Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/qsrt20.c10
There are no other files named qsrt20.c10 in the archive.
INS 12/45 ;10C1
;**;[1232]Add 6 lines at I$MNTR:+1L JCR 11/7/84
MOVX S1,.OTMNT ;[1232]Want the MOUNT Processor PSB
MOVX S2,%GENRC ;[1232]Want the generic MOUNT Processor
PUSHJ P,A$LPSB## ;[1232]Locate the PSB
JUMPF E$MPN## ;[1232]Not there, return an error
PUSHJ P,USRACK## ;[1232]ACK the user
MOVE S1,P1 ;[1232]Restore the VSL address
INS 15/50 ;10C2
;**;[1232]Add 3 lines at MATR.1:+3L JCR 11/7/84
MOVE P1,S1 ;[1232]Save MOUNTR's PSB adress
PUSHJ P,G$STGS## ;[1232]Build ACK and send
MOVE S1,P1 ;[1232]Restore MOUNTR's PSB address
REP 29/59 ;10C3
DIRCTY: BLOCK 10 ;TEMP DIRECTORY STORAGE
WIT
;**;[1235]Change 1 line at DIRCTY: JCR 1/29/85
DIRCTY: BLOCK ^D10 ;[1235]TEMP DIRECTORY STORAGE
SUM 119281