BYE.MAC/AU/BF=BYE.VGN \ -2,2,/;JMB110/ .IDENT -04.5A- -31,31,/;JMB110/ ; VERSION 4.5A -88,,/;JMB110/ ; JB110 19-SEP-84 CARGILL MODIFICATIONS: ; 1. SET ALL TERMS PRIV AND SLAVE PRIOR TO CALLING ; SYSLOGOUT ; 2. REISSUE GCII$ AFTER USERSB & SYSLOGOUT, IN CASE THEY ; CHANGED CLI ; 3. IF $USRSB RETURNS CARRY SET, LEAVE TT SLAVED AFTER ; LOGOUT ; 4. New and interesting logout messages. ; % -117,120,/;JMB110/ ;;MSG2: .ASCIZ <15>/Have a Good Morning/ ;;MSG3: .ASCIZ <15>/Have a Good Afternoon/ ;;MSG4: .ASCIZ <15>/Have a Good Evening/ ;;MSG5: .ASCIZ <15>/Have a nice day/ MSG2: .ASCIZ <15>/Quitting so soon? The day is yet young!/ ; 6-12am MSG3: .ASCIZ <15><7>/IT'S MILLER TIME!!!/ ; 0-6pm MSG4: .ASCIZ <15>/Working late again? Such dedication!/ ; 6-12pm MSG5: .ASCIZ <15><7>/Get some sleep -- you need it!/ ; 0-6am -198,198,/;JMB110/ SLVFLG: .WORD 0 ; IF 1, LEAVE TT SLAVED AFTER LOGOUT -347,,/;JMB110/ CLR SLVFLG ; ASSUME USER SUBROUTINE SUCCESS -350,,/;JMB110/ BCC 1$ ; SUCCESS - BRANCH INC SLVFLG ; REMEMBER FAILURE -424,,/;JMB110/ ; ; CHECK CLI AGAIN, IN CASE SYSLOGOUT OR USERSB CHANGED CLI TO ONE ; WITH DIFFERENT REQUIREMENTS FROM ONE WHICH ACTIVATED BYE ; CLR SILENT ; INIT TO NOISY GCII$S #CLIDAT,#6 ; INFO TO CLIDAT 6 BYTES BCS 51$ ; BR IF ERROR BIT #CP.NIO, CLIDAT+4 ; SILENT REQ'D? BEQ 51$ ; BR IF NO INC SILENT ; SET SILENT IF REQ'D 51$: ; REF LABEL -459,,/;JMB110/ TST SLVFLG ; LEAVE SLAVED? BEQ 40$ ; NO - BRANCH BIS #U2.SLV, U.CW2(R0) ; SLAVE TT 40$: ; REF LABEL -595,,/;JMB110/ MOV UCB, R0 ; GET TI: UCB BIS #U2.PRV, U.CW2(R0) ; SET PRIV -631,,/;JMB110/ MOV UCB, R0 ; GET TI: UCB BIC #U2.PRV, U.CW2(R0) ; SET NON PRIV /