Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/qsrt20.c11
There are no other files named qsrt20.c11 in the archive.
REP 21/53 ;11C1
MOVE S1,G$LNAM## ;GET THE LOCAL NODE NAME
WIT
;**;[1240]Replace 1 line with 7 lines at I$ARCHIVE:+10L JCR 2/28/85
CAIN S1,.OTNOT ;[1240]Notification?
JRST [ MOVE S1,G$NOW## ;[1240]Get the time of day
AOS S1 ;[1240]Make it the future
CAMLE S1,.EQAFT(P1) ;[1240]Compare with after time
MOVEM S1,.EQAFT(P1) ;[1240]Make after time future time
JRST I$ARC1 ] ;[1240]Rejoin
I$ARC1: MOVE S1,G$LNAM## ;[1240]Get the local node name
INS 35/63 ;11C2
;**;[1240]Add 2 lines at REATBL:-2L JCR 2/28/85
MOVX S1,PAGSIZ ;[1240]A page message
MOVEM S1,G$SAB##+SAB.LN ;[1240]Save in the SAB for C%SEND
SUM 102668