Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - 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	3-Jun-81
 WIT
	SUBTTL	D.M.NIXON/DMN/DZN/BRF/CLRH/GCS/PY	1-Nov-82
 REP 9/1	;05C2
	;COPYRIGHT (C) 1975, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1975, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
 REP 14/3	;05C3
	EXTERN	.SWDEC,.SWOCT,.DECNW,.SWCOR,.SIXSW,.SWSIX,.NMUL,.SAVE4
 WIT
	;**;[500] @EXTERN  Replace 1 line.   GCS   13-APR-82
	EXTERN	.SWDEC,.SWOCT,.DECNW,.SWCOR,.SIXSW,.SWSIX,.NMUL,.SAVE4,.PSH4T,.POP4T  ;[500]
 INS 34/15	;05C4
	;**;[506] Insert 1 Line after USRKEY+28 Lines	PY	13-Sep-82
		ANDM	T2,MODEM	;[506] CLEAR THE MASK TOO
 REP 27/16	;05C5
		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 5/18	;05C6
		HRRZ	T1,COLPTR+2	;[462] GET WORD
		MOVE	T1,(T1)		;[462]   ..
 WIT
	;**;[500] @COLCHR + 3L  Replace 2 lines.  GCS  13-APR-82
		IBP	COLPTR+2	;[500] POINT TO NEXT BYTE
		MOVE	T1,@COLPTR+2	;[500] GET WORD
 REP 12/18	;05C7
		ILDB	T1,COLPTR+2	;GET A BYTE
 WIT
	;**;[500] @COLCHR + 11L  Replace 1 line.   GCS   13-APR-82
		LDB	T1,COLPTR+2	;[500] GET A BYTE
 REP 134/25	;05C8
			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	;05C9
		  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 163833