BYE.MAC/AU:72./-BF=BYE.MAC;3
-/;	DD041/
-,,/;RWT001/
;
;	RWT001	14-NOV-80 OAK RIDGE NATIONAL LAB
;			LOCAL MODIFICATIONS FOR VIRTUAL DISK SUPPORT
;			2) ADDED $USRSB TO SPAWN A "DVD /ALL/NM" COMMAND TO
;			   RELEASE VIRTUAL DISKS
;			3) DECLARE "BYEERR" AS A GLOBAL SYMBOL
;			4) MOVE CODE TO SPAWN "ASN =/LOGIN" TO FOLLOW CALL
;			   TO $USRSB.
;
	.GLOBL	BYEERR
-/3$:/
-/R$$SCS/,/6$:/
	glun$s	#LUN1,#GLNBUF
6$:
-/BYE1:/
-/	GTIM$S/,.
;
; THE FOLLOWING SECTION OF CODE (THROUGH THE LABEL 6$) WAS MOVED TO FOLLOW THE
; CALL TO $USRSB.
;
	MOV	#DEASSN,SPWDPB+S.PWCA
	MOV	#DEALEN,SPWDPB+S.PWCL ;...
	DEC	SPWDPB+S.PWCL	; PREVENT DEASSIGN COMMAND FROM CAUSING A PROMPT;EAF004
	DIR$	#SPWDPB		; SPAWN MCR WITH DEASSIGN COMMAND LINE
	BCS	4$		; ERROR - TRY QUEUEING DEASSIGN COMMAND TO MCR
	WTSE$S	#1		; WAIT UNTIL COMPLETE
	BR	6$		;						;**-1
4$:	MOV	#DEASSN,R5	; GET DEASSIGN COMMAND
	CALL	GIVMCR		; GIVE IT TO MCR
	BCC	5$		; OKAY
	CALL	WAIT1		; WAIT 1 SECOND
	BR	4$		; TRY IT AGAIN
5$:	CALL	WAIT1		; WAIT ONE SECOND
	MOV	UCB,R0		; GET TI UCB ADDRESS
	BIT	#U2.AT.,U.CW2(R0) ; IS MCR DONE?
	BNE	5$		; NO, WAIT SOME MORE
6$:
	BIC	#U2.PRV,U.CW2(R0) ; SET TERMINAL NOT PRIVILEGED
	GTIM$S	#TIMBUF		; GET TIME
/