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

	SUBROUTINE SCOPE(I,J)
C	EDIT IN IOF=6001 ON SABR SOURCE BEFORE LINKAGE
	I1=I
	J1=J
S	AND I \I1	/DUMMY TO REMOVE 6201 05
S	6201		/INDIRECT TO FIELD 0
S	TAD (5402
S	DCA I ONE	/PUT 5402 IN 00001
S	TAD DISPLA	/PUT AD DISP.ROUTINE
S	DCA I TWO	/INTO 00002
S	TAD \J1
S	DCA I MLINES	/0:SCOPE,ELSE NOT
S	TAD \J1
S	SNA CLA
S	JMP OFF		/TURN SCOPE OFF
S	TAD \I1
S	SNA
S	IAC		/I=0 TREATED AS I=1
S	SMA
S	CIA
S	DCA I RFRESH	/-CYCLES/REFRESH
S	CMA
S	DCA I CYCLES	/-1 TO CYCLE COUNTER
S	TAD \I1
S	SPA CLA
S	JMP NOCLR	/I<0: LEAVE SCOPE BUFFER INTACT
S	TAD ADBUFR	/I>0:CLEAR BUFFER
S	DCA I EPOINT	/RESET END POINTER
S	DCA I PBUFFR	/CLEAR BUFFER(0) - PMODE AD.
S	TAD \J
S	SMA
S	CIA		/-ABS(J)
S	DCA I DLINES	/INITIALIZE LINE COUNTER
S	NOCLR,	TAD (60
S	6134		/CLEN(60): TRIGGER 1=INTERRUPT
S	ION		/INTERRUPT FOR SCOPE REFRESH
	RETURN
S	OFF,	6134	/CLEN(0):TRIGGER 1 OFF
	RETURN
S	RFRESH,6614
S	DLINES,6401
S	MLINES,6400
S	ADBUFR,1130	/LMODE AD OF 7130
S	PBUFFR,7130
S	EPOINT,6526
S	CYCLES,6615
S	DISPLA,6616
S	ONE,1
S	TWO,2
	END