Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cobst.c09
There is 1 other file named cobst.c09 in the archive. Click here to see a list.
INS 30/1 ;09C1
;11-Jun-84 KWS [1127] Removed obsolete code
DEL 12/2 ;09C2
IFE TOPS20,<
TLNE .SGDEV,700000 ;IF NOT GARBAGE IN 11
MOVEM .SGDEV,RN.DEV## ; SAVE RUN DEVICE
MOVEM .SGNAM,RN.NAM## ;SAVE RUN NAME
SKIPE .SGDEV ;IF THERE WAS A DEVICE
MOVEM .SGPPN,RN.PPN## ; SAVE THE PPN
>
DEL 42/2 ;09C3
JUMPE .SGDEV,MPRTNH ;USER DID A LOAD ONLY
REP 47/2 ;09C4
MOVEM T1,RN.DEV ;SAVE ACTUAL DEVICE
WIT
MOVEM T1,RN.DEV## ;[1127]SAVE ACTUAL DEVICE
REP 51/2 ;09C5
MOVEM T1,RN.PPN ;SAVE ACTUAL PPN
WIT
MOVEM T1,RN.PPN## ;[1127]SAVE ACTUAL PPN
DEL 14/7 ;09C6
IFE TOPS20,<
TLNE .SGDEV,700000 ;IF NOT GARBAGE IN 11
MOVEM .SGDEV,RN.DEV## ; SAVE RUN DEVICE
MOVEM .SGNAM,RN.NAM## ;SAVE RUN NAME
JUMPE .SGDEV,(JAC) ;USER DID A LOAD ONLY
MOVEM .SGPPN,RN.PPN## ;IF THERE WAS A DEVICE SAVE THE PPN
>
REP 44/7 ;09C7
MOVEM T1,RN.DEV ;SAVE ACTUAL DEVICE
WIT
MOVEM T1,RN.DEV## ;[1127]SAVE ACTUAL DEVICE
REP 48/7 ;09C8
MOVEM T1,RN.PPN ;SAVE ACTUAL PPN
WIT
MOVEM T1,RN.PPN## ;[1127]SAVE ACTUAL PPN
SUM 9051