Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/srtscn.c04
There are no other files named srtscn.c04 in the archive.
 REP 2/1	;04C1
	SUBTTL	D.M.NIXON/DMN/DZN/BRF/CLRH	3-Jun-81
 WIT
	SUBTTL	D.M.NIXON/DMN/DZN/BRF/CLRH/GCS	13-Apr-82
 REP 9/1	;04C2
	;COPYRIGHT (C) 1975, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1975, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
 REP 14/3	;04C3
	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]
 REP 5/18	;04C4
		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	;04C5
		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
 SUM 163833