Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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