Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/srtscn.c05
There are 2 other files named srtscn.c05 in the archive. Click here to see a list.
 REP 2/1	;05C1
	SUBTTL	D.M.NIXON/DMN/DZN/BRF/CLRH/GCS	13-Apr-82
 WIT
	SUBTTL	D.M.NIXON/DMN/DZN/BRF/CLRH/GCS/PY	1-Nov-82
 INS 34/15	;05C2
	;**;[506] Insert 1 Line after USRKEY+28 Lines	PY	13-Sep-82
		ANDM	T2,MODEM	;[506] CLEAR THE MASK TOO
 REP 27/16	;05C3
		MOVEI	T2,S.LEN+S.DEV		;[C20] [355] SOJG COUNT TO EXCH FILE SPECS
		MOVE	T1,F.NAM##-1(T2)	;[OK] [355] GET COLLATE FILE SPEC WORD
		EXCH	T1,COLSCN+S.DEV(T2)	;[OK] [355] EXCHANGE WITH WAITING SPEC
		MOVEM	T1,F.NAM##-1(T2)	;[OK] [355]   ..
 WIT
	;**;[504] @COLEFS) + 7L.  Replace 1 line.	GCS	8-Jul-82
		MOVEI	T2,S.SCNL		;[504] SOJG COUNT TO EXCH FILE SPECS
	;**;[512] @COLEFS) + 9L,  Replace 3 lines.	GCS	1-Nov-82
		MOVE	T1,F.NAM##-2(T2)	;[512] GET COLLATE FILE SPEC WORD
		EXCH	T1,COLSCN+S.DEV-1(T2)	;[512] EXCHANGE WITH WAITING SPEC
		MOVEM	T1,F.NAM##-2(T2)	;[512]   ..
 REP 134/25	;05C4
			JRST	$F			;[353] NOT SPECIFIED
 WIT
	;**;[510] @STOPB)+130 lines, Change some lines.	GCS	25-Oct-82
			JRST	$T			;[510][353]NOT SPECIFIED
 REP 139/25	;05C5
		  FI;
 WIT
			JRST	$F			;[510]
		  ELSE CLEAR IT				;[510]
			SETZM	X.RIB+.RBEST(P1)	;[510]
		  FI;
		SETZM	X.RIB+.RBSPL(P1)	;[510] CLEAR OUT ANY JUNK.
		SETZM	X.RIB+.RBVER(P1)	;[510] CLEAR OUT ANY JUNK.
 SUM 213124