.TITLE BYEUSR
;
;	PURPOSE: TO ACTIVATE THE USER MADE LOGOUT PROCEDURE
;
	.MCALL SPWN$S,STSE$S
	.GLOBL $USRSB
;
EFN5=5
;
$USRSB:	MOV R5,-(SP)			;SAVE SOME REGISTERS
	MOV R2,-(SP)
	MOV R1,-(SP)
	MOV R0,-(SP)
	MOV $TKTCB,R5			;GET CURRENT TCB ADDRESS
	MOV T.UCB(R5),R5		;GET UCB OF TI:
	MOV #UIC+1,R0			;CONVERT LOGIN UIC TO COMMAND LINE
	MOVB U.LUIC+1(R5),R1		;GROUP FIRST
	MOV #1,R2
	CALL $CBTMG
	MOVB U.LUIC(R5),R1		;MEMBER
	INC R0
	CALL $CBTMG
	SPWN$S #MCR,,,,,#EFN5,,#EXST,#MCRBUF,#MCRLEN ;"LOG $O$ [XXX,XXX]"
	STSE$S #EFN5			;STOP FOR EVENT FLAG
	CMP #1,EXST			;IF EXIT STATUS EQ 1...
	BEQ CLC				;CLEAR CARRY FOR LOGOUT
	SEC				;SET CARRY -- DISABLE LOGOUT
	BR RTSPC			;BRANCH
CLC:	CLC				;CLEAR CARRY -- ENABLE LOGOUT
RTSPC:	MOV (SP)+,R0			;RESTORE REGISTERS
	MOV (SP)+,R1
	MOV (SP)+,R2
	MOV (SP)+,R5
	RTS PC				;RETURN TO CALLER
;
;
EXST:	.BLKW 8.
MCR:	.RAD50 /MCR.../
MCRBUF:	.ASCII /LOG $O$ /
UIC:	.ASCII /[000,000]/
MCRLEN=.-MCRBUF
	.EVEN
	.END