; .TITLE ~module~ - ~descr~ ; .IDENT /~rel~~lev~/ ; this include file doesn't want a title/ident .REM | *+ ~module~ - ~descr~ File:~file~ Version: ~rel~~lev~ Author: Last Edit: 28-MAY-1985 09:43:35 Last Update: ~upddate~ ~updtime~ ~purpose~ *- | .sbttl Message Database .psect data,d,gbl,rw,con .rem | Each message logged by SCLI is identified by a message number. The message number, along with required parameters, are passed to LOG on the argument stack - a variable number of parameters is allowed. The number is defined along with the message below. | ; define EDMSG control strings for each message ; the next premsg timestamps the buffer (with code in LOG to get time ; ). it is suppressed for now, as COT and errlog timestamp for us. ; to restore timestamp, change comments below... ;;premsg: .ASCIZ /SECURE: %19<%Y %3Z %10>/ ; preamble to all messages premsg: .ASCIZ /SECURE: / ; preamble to all messages - no timestamp msg1: .ASCIZ /%I Logged On TT%Q:/ msg2: .ASCIZ /%I Logged Off TT%Q:/ msg3: .ASCIZ /Mumble-ON TT%Q:, count=%M./ ; when CLI brought on-line (e.g. at boot time) or reinit msg4: .ASCIZ /Security System Initialized/ ; when terminal connected, other than by logoff (e.g. at boot) msg5: .ASCIZ /Connect to TT%Q:/ ; when terminal disconnected other than by login (e.g. at shutdown) msg6: .ASCIZ /Disconnect from TT%Q:/ ; when CLI told to shut down (maintenance mode) msg7: .ASCIZ /Maintenance ON by TT%Q:/ ; when CLI eliminated msg8: .ASCIZ /CLI Eliminated/ ; report internal errors -- note variable params msg9: .ASCIZ /Error #%M. - %VP/ ;@MARK@ ; to log all illegal logins (enabled by a /message) msg10: .ASCIZ /TT%Q: *%I*/ ; if command received from unknown (to SCLI) terminal msg11: .ASCIZ /Message from TT%Q: ???/ ; when eliminated and exiting (e.g. maint shutdown) msg12: .ASCIZ /Security service terminated/ ; ; define a control byte for each message, indicating where ; it is to be sent. multiple destinations are valid ; ms.ssm = 1 ; send to error log file ms.cot = 2 ; send to console msgflg: .byte ms.ssm!ms.cot ; 1 - logged on .byte ms.ssm!ms.cot ; 2 - logged off .byte ms.ssm!ms.cot ; 3 - mumble .byte ms.ssm!ms.cot ; 4 - scli init .byte ms.ssm!ms.cot ; 5 - connect .byte ms.ssm!ms.cot ; 6 - disconnect .byte ms.ssm!ms.cot ; 7 - mait mode .byte ms.ssm!ms.cot ; 8 - eliminated .byte ms.ssm ; 9 - internal error .byte ms.cot ; 10 - illegal login .byte ms.ssm!ms.cot ; 11 - unknown terminal .byte ms.ssm!ms.cot ; 12 - scli exit flgnd = . ; ; now define a table of pointers to the above messages ; .even msgtbl: .word msg1 .word msg2 .word msg3 .word msg4 .word msg5 .word msg6 .word msg7 .word msg8 .word msg9 .word msg10 .word msg11 .word msg12 msgtnd=.