Google
 

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