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