Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cobst.c11
There is 1 other file named cobst.c11 in the archive. Click here to see a list.
INS 30/1 ;11C1
;28-Mar-85 KWS [1137] Fix the lookup of the overlay file
REP 44/1 ;11C2
IFN TOPS20,<SEARCH MONSYM,MACSYM>
WIT
IFN TOPS20,<SEARCH MONSYM,MACSYM,UUOSYM> ;[1137]
REP 33/2 ;11C3
>
IFE TOPS20,<
WIT
HRROI T1,.GTRDV ;[1137] Get device
GETTAB T1, ;[1137]
JRST MPRTNH ;[1137]
MOVEM T1,RN.DEV## ;[1137] and save it
HRROI T1,.GTRDI ;[1137] Get PPN
GETTAB T1, ;[1137]
JRST MPRTNH ;[1137]
MOVEM T1,RN.PPN## ;[1137] and save it
>
IFE TOPS20,<
REP 40/6 ;11C4
IFN TOPS20,<SEARCH MONSYM,MACSYM>
WIT
IFN TOPS20,<SEARCH MONSYM,MACSYM,UUOSYM>
INS 31/7 ;11C5
HRROI T1,.GTRDV ;[1137] Get device
GETTAB T1, ;[1137]
JRST MPRTNH ;[1137]
MOVEM T1,RN.DEV## ;[1137] and save it
HRROI T1,.GTRDI ;[1137] Get PPN
GETTAB T1, ;[1137]
JRST MPRTNH ;[1137]
MOVEM T1,RN.PPN## ;[1137] and save it.
SUM 228247