.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