Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qsrmda.c09
There are 2 other files named qsrmda.c09 in the archive. Click here to see a list.
INS 21/15 ;09C1
X (RA80,%DISK,.DCCRA,.DCU80,0,UC.SHR)
X (RA81,%DISK,.DCCRA,.DCU81,0,UC.SHR)
X (RA60,%DISK,.DCCRA,.DCU60,0,UC.SHR)
REP 52/31 ;09C2
REAS.1: MOVE T2,.VSLNM(P2) ;GET THE LOGICAL NAME IN T2
WIT
;**;[1224] ADD 3 LINES AT REAS.1 13-AUG-84 /DPM
REAS.1: MOVE S1,.UCBNM(P1) ;[1224]GET DEVICE NAME
LOAD S2,.VSFLG(P2),VS.LBT ;[1224]GET THE REQUESTED LABEL TYPE
PUSHJ P,I$SLBT## ;[1224]SET IT
MOVE T2,.VSLNM(P2) ;GET THE LOGICAL NAME IN T2
INS 6/32 ;09C3
;**;[1224] ADD 3 LINES AT REAS.2+1L 13-AUG-84 /DPM
MOVE S1,.UCBNM(P1) ;[1224]GET DEVICE NAME
LOAD S2,.VLFLG(P3),VL.LBT ;[1224]GET THE VOLUME LABEL TYPE
PUSHJ P,I$SLBT## ;[1224]RESET IT
INS 40/46 ;09C4
LOAD S2,.UCBS1(T2),U1.FRC ;[1217] GET 'FORCED' MOUNT BIT
STORE S2,.VLFLG(P1),VL.FRC ;[1217] SET IN VOL BLOCK ALSO
INS 47/46 ;09C5
MOVX TF,VL.FRC ;[1217] GET 'FORCED' MOUNT BIT
TDNN TF,.VLFLG(P1) ;[1217] IS A 'FORCED' MOUNT IN PROGRESS ?
REP 18/77 ;09C6
$COUNT (STRM) ;count # of successful str mounts
WIT
MNTA.0: $COUNT (STRM) ;[1217] COUNT # OF SUCCESSFUL STR MOUNTS
INS 25/83 ;09C7
;**;[1221] AT CATACK+14 LINES 31-JUL-84 /DPM
HRROI S1,.VSVSN(P1) ;[1221] POINT TO THE ASCIZ VOL SET NAME
PUSHJ P,S%SIXB ;[1221] CONVERT IT TO SIXBIT
MOVE S1,S2 ;[1221] MOVE IT TO S1
PUSHJ P,D$SRSN ;[1221] GET THE RESOURCE NUMBER
PUSHJ P,GIVRSN ;[1221] TRY TO RETURN IT
REP 38/170 ;09C8
$RETF ;RETURN
WIT
MOVX S1,VL.FRC ;[1217] STRUCTURE TRYING TO BE 'FORCED'
TDNN S1,.VLFLG(P1) ;[1217] UP BY SOMEONE ??
$RETF ;RETURN
MOVE S1,P1 ;[1217] YES, BUT TOO BAD!!!
MOVX S2,.DMNCK ;[1217] GET /NOCHECK BIT
PUSHJ P,SNDDSM ;[1217] TELL PULSAR TO DISMOUNT STR
$RETF ;[1217] RETURN FALSE
INS 64/171 ;09C9
MOVX TF,U1.FRC ;[1217] GET 'FORCED' MOUNT BIT FOR UCB
ANDCAM TF,.UCBS1(S2) ;[1217] CLEAR IT IN UCB.
REP 26/172 ;09C10
PUSHJ P,SNDLBR ;SEND THE MSG OFF TO THE TAPE LABELER
$RETT ;AND RETURN
WIT
LOAD TF,.VLFLG(P1),VL.FRC ;[1217] GET 'FORCED' MOUNT BIT
SKIPE P2 ;[1217] ALWAYS SEND ON DISMOUNT
JUMPN TF,SNDB.4 ;[1217] DON'T BOTHER PULSAR IF 'FORCED'
PUSHJ P,SNDLBR ;SEND THE MSG OFF TO THE TAPE LABELER
$RETT ;AND RETURN
SNDB.4: MOVE S1,P1 ;[1217] GET PRIMARY VOL ADDRESS
SETZM S2 ;[1217] CLEAR S2
PUSHJ P,MNTA.0 ;[1217] TELL OPR IT'S MOUNTED
MOVX S1,VL.FRC ;[1217] GET 'FORCED' MOUNT BIT
ANDCAM S1,.VLFLG(P1) ;[1217] DON'T NEED IT ANYMORE
$RETT ;[1217] RETURN
SUM 15101