bye.mac/bf/au=bye.vgn \ -2,2,/;JMB219/ .IDENT -02.6A- -31,31,/;JMB219/ ; VERSION 2.6A -103,,/;JMB219/ ; Modified for Cargill by ; Jim Bostwick (JMB) ; JMB219 16-JAN-1985 ; 1. SET PRIV DURING SYSLOGOUT ; 2. IF USRSB RETURNS CARRY SET, SLAVE TT: ON EXIT ; 3. RE-CHECK CLI AFTER SYSLOGOUT, IN CASE SYSLOGOUT ; CHANGED IT TO A "SILENT" ONE. ; 4. INSPIRING LOGOUT MESSAGES ; ; LAST EDIT: 17-JUN-1985 16:22:06 ; % -116,117,/;JMB219/ ATERS=24 ; DEFINE UCB OFFSET TO ADDITIONAL ; TERMINAL STATUS WORD -126,127,/;JMB219/ LGOERR: .ASCII <15><12>/BYE -- User not logged in/ .ASCIZ <15><12>/BYE -- Exiting/ -135,139,/;JMB219/ MSG1B: .ASCIZ /XXXXXX/<15><12>/>/ ;;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 -229,,/;JMB219/ SLVFLG: .word 0 ; 1-> leave tt slaved on exit -464,465,/;JMB219/ MOV UCB, R3 ; point to TI: ucb CALL $USRSB ; CALL IT bcc 2001$ ; cc - no slave on exit inc slvflg ; slave tt on exit 2001$: TST R0 ; USER WANT'S TO PRINT??? -539,539,/;JMB219/ ; check cli again, in case usersb or syslogout changed it to one requesting ; the silent treatment. This allows usrsb or syslogout to establish a cli ; for the logged out terminal which will NOT be reset to MCR below! clr silent ; assume no silent GCII$S #CLIDAT,#6 ; INFO TO CLIDAT 6 BYTES BCS 351$ ; BR IF ERROR BIT #CP.NIO, CLIDAT+4 ; SILENT REQ'D? BEQ 351$ ; BR IF NO INC SILENT ; SET SILENT IF REQ'D 351$: MOV UCB,R0 ; GET TI UCB ADDRESS -570,571,/;JMB219/ BIS #U2.SLV, U.CW2(R0) ; BE SURE SLAVED TST SLVFLG ; WANT LEFT THAT WAY? BNE 30$ ; YES - BR BIC #U2.SLV,U.CW2(R0) ; RESET TERMINAL STATUS 30$: MOV #EX$SUC,R0 ; SET SUCCESSFUL LOGOUT -865,,/;JMB219/ MOV UCB, R0 ; POINT TO TI: UCB BIS #U2.PRV, U.CW2(R0) ; SET PRIV -894,,/;JMB219/ MOV UCB, R0 ; POINT TO TI: UCB BIC #U2.PRV, U.CW2(R0) ; UNCONDITIONALLY SET NONPRIV /