Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - srtsta.c08
There is 1 other file named srtsta.c08 in the archive. Click here to see a list.
 INS 28/25	;08C1

 REP 29/35	;08C2
		HRRZ	T2,FILNAM(T2)	;[OK] ...
		ADDI	T2,X.RIB	;COMPENSATE FOR FOLLOWING MACRO
 WIT
	IFE FTOPS20,<			;[521]
		MOVE	T2,FILXBK(T2)	;[521] OK
		ADDI	T2,X.RIB	;COMPENSATE FOR FOLLOWING MACRO
	>				;[521]
	IFN FTOPS20,<
		HLRZ	T2,FILPGN(T2)	;[521] GET JFN OF FILE
					;[522] FROM LEFT HALF OF NEXT PAGE
	>				;[521]
 SUM 7827