Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/qsrt20.c09
There are no other files named qsrt20.c09 in the archive.
REP 8/2 ;09C1
MAXFAL==5 ;FOR NOW
WIT
;**;[1231]Increase the value of MAXFAL
MAXFAL==^D40 ;[1231]For now
REP 26/7 ;09C2
IDIVI S1,3 ;CALC # OF SECONDS TILL SHUTDOWN
WIT
;**;[1230]Replace 1 line with 6 lines at I$SYSV:+8L JCR 9/14/84
HRRZ S2,S1 ;[1230]Place fraction into S2
HLRZS S1 ;[1230]Move days to the right half
IMULI S1,^D86400 ;[1230]Convert days to seconds
IMULI S2,^D86400 ;[1230]Convert the fraction
LSH S2,-^D18 ;[1230]into seconds
ADD S1,S2 ;[1230]Get the total number of seconds
REP 50/38 ;09C3
RTPMAP: CAIE S1,CFRKX3 ;IS IT THE RIGHT ERROR?
JRST S..PJF ;NO, GO DIE
MOVEI S1,1 ;YES, SLEEP FOR A SECOND
WIT
;**;[1231]Replace 3 lines with 1 line at RTPMAP: JCR 9/19/84
RTPMAP: MOVEI S1,2 ;[1231]Sleep for 2 seconds
SUM 121210