.sbttl ASCII STUFF ; =========== .sbttl . Prompts and Listing Text .psect text .nlist bex dfpmt: .ascii "UCL> "<200><0> ;Default .gtlin prompt runcmd: .ascii "RUN " rundev: .blkb 5 huh: .asciz "?" sydefq: .ascii "Symbol definition? "<200> dspqry: .ascii "Command? "<200> eraqry: .asciz "Erase all symbols" ersqry: .ascii "Erase symbol "<200> rusure: .ascii "Are you sure? "<200> er1qry: .ascii "Symbol? "<200> listcm: .asciz "Valid commands:" listp0: .asciz /No "run-by-name" path/ listpm: .ascii /"Run-by-name" path: /<200> listsm: .asciz "Current symbols:" listsd: .asciz " Symbols defined" listse: .asciz " Entries remaining" listxm: .ascii "CHAIN in effect to "<200> listx0: .asciz "No CHAIN in effect" listxu: .ascii "Pass-line-to-KMON in effect "<200> listxf: .asciz "(UCF)" listxi: .asciz "(UCI_MODE)" filqry: .ascii "File? "<200> .iif ne pfx, .byte pfx pmtmsg: .ascii "PROMPT "<200> pthmsg: .ascii "PATH "<200> chnmsg: .ascii "CHAIN "<200> .if eq okray eofmsg: .asciz "" .iff eofmsg: .ascii "" .asciz "?UCL-I-Is that OK, Ray?" .endc crlf: .byte 0 .sbttl . "Informational" messages mucli: .ascii "?UCL-I-"<200> erainf: .ascii "Erased symbol "<200> nchinf: .asciz "CHAIN disabled" npainf: .asciz "PATH disabled" pminf: .ascii /Prompt changed to "/<200> pminf0: .asciz /"/ resinf: .asciz "Replaced existing symbol" ucinf: .asciz "UCI_MODE enabled" nucinf: .asciz "UCI_MODE disabled" .if eq ucl$xm nu1inf: .asciz "Data file not found; creating new one" .endc .sbttl . Error Messages, "Warning" muclw: .ascii "?UCL-W-"<200> trswrn: .asciz "Truncating symbol name to 6 characters" trdwrn: .asciz "Truncating symbol definition to 72 characters" nchwrn: .asciz "No argument; CHAIN not enabled" .sbttl . Error Messages ; Error messages are terminated with <200>. This allows for optional ; secondary text. .if eq c4ell mucle: .ascii "?UCL-E-"<200> .iff mucle: .ascii "?UCL-E-Try again, schmuck - "<200> .endc mbadop: .ascii "Invalid or missing option "<200> mcnfsw: .ascii "Conflicting switches "<200> mbad: .ascii "Invalid command "<200> mrucf: .asciz "-- running as UCF" mamb: .ascii "Ambiguous command "<200> mbadsp: .ascii "Invalid DISPLAY argument "<200> synrm: .ascii "Symbol definition table full "<200> mbadrg: .ascii "Invalid argument "<200> mbadsw: .ascii "Invalid switch "<200> mambsw: .ascii "Ambiguous switch "<200> millfn: .ascii "Illegal file name "<200> mfilnf: .ascii "File not found "<200> mnroom: .ascii "Not enough room for file "<200> mpfilf: .ascii "Protected file already exists "<200> strerr: .ascii "Write error "<200> .iif ne ucl$xm, milrel: .ascii "RELOAD invalid while journaling "<200> .iif ne uci$c, miluci: .ascii "UCI_MODE invalid for this monitor "<200> er1nfm: .ascii "Symbol(s) not found "<200> er1amm: .ascii "Ambiguous symbol "<200> dmnerr: .ascii "Invalid device "<200> lpluer: .ascii "Cannot access LP: "<200> .sbttl . Error Messages, "Fatal" .if eq c4ell muclf: .ascii "?UCL-F-"<200> .iff muclf: .ascii "?UCL-F-Try again, schmuck - "<200> .endc ; Write error wtfail: .asciz "while updating symbol blocks" rclerr: .ascii "Read error "<200> eronjf: .asciz "on journal file" vrerr: .ascii "Wrong version "<200> .if eq ucl$xm xdluer: .ascii "Cannot access data file"<200> ;don't need trailing space... xdrder: .ascii "Data file read error"<200> xdener: .ascii "Cannot create data file"<200> xdwter: .ascii "Data file write error"<200> .endc .list bex .even