Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qsrmda.c12
There is 1 other file named qsrmda.c12 in the archive. Click here to see a list.
REP 9/21 ;12C1
MOVE S1,.TDDEV(M) ;GET THE RELEASED DEVICE NAME
WIT
;**;[1234] Insert code at D$DEAS+1L. /LWS
LOAD S1,.TDDVT(M),TDD.FL ;[1234] GET MONITOR FLAGS
TXNN S1,TD.VSW ;[1234] VOL SWITCH STATS?
JRST DEAS.0 ;[1234] NO, CONTINUE
MOVE S1,.TDJBN(M) ;[1234] YES, GET JOB NUMBER
PUSHJ P,FNDMDR ;[1234] GET MDR FOR JOB
JUMPT I$TDSM## ;[1234] GO UPDATE ACCOUNTING
$RETT ;[1234] FORGET IT IF NO MDR
DEAS.0: MOVE S1,.TDDEV(M) ;[1234] GET THE RELEASED DEVICE NAME
REP 26/21 ;12C2
MOVE S2,.TDDVT(M) ;GET THE DEVICE TYPE
WIT
;**;[1234] Change 1 line at DEAS.1+9L. /LWS
LOAD S2,.TDDVT(M),TDD.DV ;[1234] GET THE DEVICE TYPE
REP 3/68 ;12C3
VSR.0: MOVE S1,P2 ;GET THE VSL ADDRESS
PUSHJ P,I$TDSM## ;PERFORM TAPE ACCOUNTING
MOVE S1,.UCBNM(P1) ;GET THE DEVICE NAME IN S1
WIT
;**;[1234] Delete 2 lines at VSR.0+0L. /LWS
VSR.0: MOVE S1,.UCBNM(P1) ;GET THE DEVICE NAME IN S1
SUM 2825