Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/rmsio.c14
There are 11 other files named rmsio.c14 in the archive. Click here to see a list.
INS 35/4 ;14C1
;[1162] Add SU.RR after SU.T1
EXTERN SU.RR
DEL 61/8 ;14C2
CAIN T1,VB%ST ;IS IT START VERB?
HRRZI T1,VB%RD ;MAKE IT BE READ FOR PURPOSES OF SMU OPTION 1
REP 7/11 ;14C3
MOVE T1,[T1,,ACSAV0##]
BLT T1,ACSAV0+16 ;SAVE ACS THRU PP
WIT
MOVE T0,[T1,,ACSAV0##] ;[1163]
BLT T0,ACSAV0+16 ;[1163]SAVE ACS THRU PP
REP 21/11 ;14C4
RMSGOT: MOVE T1,[ACSAV0,,T1]
BLT T1,PP ;RESTORE ACS
WIT
RMSGOT: MOVE 17,[ACSAV0,,T1] ;[1163]
BLT 17,PP ;[1163]RESTORE ACS
REP 103/23 ;14C5
LDB T3,[POINT 2,T0,2] ;[1044] GRAB OFF EBCDIC AND SIXBIT BITS OF
;[1044] DEVICE DATA MODE FIELD.
WIT
LDB T3,[POINT 2,T0,14] ;[1160][1044] GRAB OFF EBCDIC AND SIXBIT BITS OF
;[1044] CORE DATA MODE FIELD.
REP 6/55 ;14C6
JRST STASE2 ; YES, NOT ALLOWED
WIT
SKIPN SU.RR ;[1162] Yes, any records retained now?
SKIPA ;[1162] Everything is ok
JRST STASE2 ;[1162] Not allowed to START within RETAIN
REP 32/56 ;14C7
STASE2: $ERROR (E.529,SV.KIL,MT.FIL)
WIT
;[1162] Illegal to execute START within scope of RETAIN and FREE
STASE2: $ERROR (E.535,SV.KIL,MT.FIL) ;[1162]
SUM 244750