Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - plrt10.c08
There is 1 other file named plrt10.c08 in the archive. Click here to see a list.
 INS 35/2	;08C1
		SETZM	G$INDP##		;INIT FLAG
		MOVX	S1,%CNSTS		;STATES WORD
		GETTAB	S1,			;WANT INDPPN
		  MOVEI	S1,0			;HMMM.
		TXNE	S1,ST%IND		;TURNED ON?
		SETOM	G$INDP##		;YES
 INS 1/4	;08C2
	SUBTTL	Check for owner privs


	; This routine is used to determine owner privs.  Owner privs
	; allow a user to request a tape to be re-initialized by using
	; the /NEW-VOLUME switch in the MOUNT command.
	; Call:	MOVE	S1, owner (from tape)
	;	MOVE	S2, owner (from MOUNT)
	;	PUSHJ	P,I$OWN
	;
	; TRUE return:	User owns the tape
	; FALSE return:	Loser is a menace to society
	;
	I$OWN::	SKIPE	G$INDP##		;MONITOR HAVE IND PROJ-PROG NUMBERS?
		JRST	OWN1			;YES
		HRRZS	S1			;KEEP JUST THE
		HRRZS	S2			; PROGRAMMER NUMBERS
	OWN1:	CAME	S1,S2			;MATCH?
		$RETF				;NO
		$RETT				;YES--VALID OWNER
 REP 22/14	;08C3
		JUMPLE	S1,DT15.1		;EXIT IF SO
 WIT
		JUMPL	S1,DT15.1		;EXIT IF SO
 SUM 247141