CVL.MAC/-BF=CVL.VGN;1
-,,/; RVT01/
-2,3
	.IDENT	/01.30A/
-25
;	RVT01 	ADDED CLEANUP FOR /VI. LET NON-PRIV USER CHANGE STUFF
;		FOR AN ALLOCATED DISK. LET NON-MOUNTED DISK DISPLAY ONLY
;		REQUIRE "/CL" SWITCH TO CHANGE THE LABEL
;
;
-35
;		/CL     - CHANGE THE LABEL
-49
;		THE NEW VALUES DO NOT HAVE ANY EFFECT UNTIL THE
;		VOLUME IS DISMOUNTED AND MOUNTED AGAIN, AS
;		THE F11ACP REMEMBERS THEM WHEN THE DISK IS MOUNTED, AND
;		NEVER LOOKS AT THEM ON THE DISK AGAIN.
-108,108
	.ASCII	/NON-PRIV USER MUST ALLOCATE THE DEVICE/
-114,114
	.ASCII	/VOLUME MUST BE MOUNTED TO CHANGE ANYTHING/
-122,126
	.ASCII	/VOLUME NAME CHANGED FROM "/
OLDLBL:	.ASCII	/123456789ABC/
	.ASCII	/" TO "/
NEWLBL:	.ASCII	/123456789ABC"/
	.ASCII	<15><12>/	EXT =/
-152
CVLFLG:	.WORD	0		; /CL FLAG SEEN
-166,171
CVL::	BR	1100$

-206,206
	BR	1000$		; BYE-BYE
-224,224
	BR	1000$		; BYE-BYE
-235,237
	TST	SKPFLG			; ONLY DISPLAYING--NEED NOT MOUNT
	BNE	2100$
	MSGN$S	PFX,1,M004,,,ABORT ;DEVICE NOT MOUNTED
	INC	SKPFLG
	BR	2100$
2080$:	JMP	1000$		; BYE-BYE
2100$:	MOV	$TKTCB,R0	;R0 = A(MY TCB)
	MOV	T.UCB(R0),R0	;R0 = A(TI: UCB)
	BIT	#U2.PRV,U.CW2(R0) ;IS USER PRIVLEDGED?
	BNE	2110$		;IF NE, YES - CONTINUE
	CMP	U.OWN(R1),R0	; NO--DID HE ALLOC IT?
	BEQ	2110$		; YES
	MSGN$S	PFX,3,M001,,,ABORT ;PRIVLEDGE VIOLATION!
	EXIT$S

2110$:	ALUN$S	#2,DEV,UNIT	;ASSIGN LUN 2 TO DEVICE
-275,275
	TST	CVLFLG		; CHANGE ONLY IF /CL SEEN
	BNE	2605$
	MOVB	-1(R2),-1(R1)
	MOVB	-1(R2),-1(R0)
2605$:	SOB	R3,2600$	;LOOP UNTIL DONE
-286,286
	BNE	2970$		; IF SKPFLG SET, ONLY DISPLAY DATA, DON'T TWIDDLE DISK
-301,301
2950$:	JMP	1000$		; BYE-BYE

2970$:	CLR	M007+13.+0	; NULL OUT "NEW LABEL"
	CLR	M007+13.+2
	CLR	M007+13.+4
	CLR	M007+13.+6
	CLR	M007+13.+10.
	CLR	M007+13.+8.
	CLR	NEWLBL-6+0
	CLR	NEWLBL-6+2
	CLR	NEWLBL-6+4
	CLR	NEWLBL-6+6
	CLR	NEWLBL-6+8.
	CLR	NEWLBL-6+10.
	CLR	NEWLBL-6+12.
	CLR	NEWLBL-6+14.
	CLR	NEWLBL-6+16.
-389,389
DSPVAL:	TST	SKPFLG		; IF DISPLAY, SHOW ORIG VALUES
	BEQ	2$
	CLR	LRUFLG
	CLR	EXTFLG
	CLR	MAXFLG
	CLR	WINFLG
	CLR	PROFLG
2$:	MOV	#HDRBUF+H.FIEX,R4; ADRESS OF WHERE MAXEXT BYTE SITS
-428,442
60$:	MOV	#HDRBUF+H.FMAX,R4; ADDRESS OF MAXIMUM FILES ALLOWED
-476,477
-569,569
10$:	CALL	GETNXT		; GET CHARACTER
-594,595
	BNE	350$		; CHECK FOR /FPRO
-603
350$:	CMPB	#'C,R0		; IS IT A 'C' (MAYBE CHANGE LABEL)
	BNE	500$		; CHECK FOR /FPRO				
	CALL	GETNXT		; CHECK FOR SPELLING				
	CMPB	#'L,R0		; IS IT AN 'L
	BNE	SYNERR		; NO, SYNTAX ERROR				
	INC	CVLFLG		; SHOW WE HAVE SEEN /CL
	BR	10$
/