Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/qsrfss.c10
There are no other files named qsrfss.c10 in the archive.
INS 26/6 ;10C1
;**;[1236]Insert 3 lines at REBI.2:+2L JCR 1/29/85
CAIG P4,%RBMAX ;[1236]Is the code valid?
CAIGE P4,%RBMIN ;[1236]Is the code valid?
$STOP(IRC,Invalid Rebuild Code) ;[1236]Invalid code detected
REP 13/14 ;10C2
HRLZ S1,GETD.D ;GET REBUILD CODE,,0
WIT
;**;[1236]Replace 1 line with 5 lines at GETD.3:+10L JCR 1/29/85
HRRZ S1,GETD.D ;[1236]Get the rebuild code
CAIG S1,%RBMAX ;[1236]Is it valid?
CAIGE S1,%RBMIN ;[1236]Is it valid?
$STOP(WBR,Writing Bad Rebuild Code) ;[1236]Invalid code detected
HRLZS S1 ;[1236]Rebuild code,,0
SUM 81675