Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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