Directory of image this file is from
This file as a plain text file

	SUBROUTINE JOY(IX,IY,IC)
C SUBROUTINE FOR THE TEKTRONIX 4010
C FORTRAN II
C AS CURSIS WITH SABR AND SUBROUTINE MODIFICATIONS
C FROM THE PLOTTER MANUAL
S	CLA 
S	TAD (237	/ US
S	JMS CHOUT	/ TO ALPHA MODE
S	TAD (233	/ ESCAPE
S	JMS CHOUT	/ SEND IT
S	TAD (232	/ AND SUB TO TURN THE CURSOR ON
S	JMS CHOUT	/ SEND IT
S	JMS CHIN	/ FETCH THE ALPHA CHAR
S	AND (77		/ 6 BIT ONLY
S	7002		/ SWAP BYTES IN AC
S	DCA I \IC	/ SAVE ASCII CHAR
S	CLA CLL CMA RAL / AC = -2
S	DCA COUNT	/ SET COUNTER
SCURS,	JMS CHIN
S	AND (37		/ HIGH ORDER
S	RTL;RTL;RAL	/ SHIFT LEFT 5
S	DCA VALUE	/ SAVE
S	JMS CHIN	/ LOW ORDER VALUE
S	AND (37		/ SAVE ONLY 5 BITS
S	TAD VALUE	/ ADD HIGH ORDER
S	ISZ COUNT	/ SKIP WHEN DONE
S	JMP YY		/ NOT DONE
S	TAD (-20	/ DONE
S	DCA I \IY
	RETURN
SYY,	TAD (-20	/ TO CORRECT ADD -16
S	DCA I \IX	/ AND SAVE IT
S	JMP CURS	/ SEC LOOP
SCHIN,	0
S	CLA
SDD,	KSF
S	JMP DD
S	KRB
S	JMP I CHIN
SCHOUT,	0
SEE,	TSF
S	JMP EE
S	TLS
S	CLA
S	JMP I CHOUT
SVALUE,	0
SCOUNT,	0
	END