Trailing-Edge
-
PDP-10 Archives
-
BB-D868C-BM
-
language-sources/lnklog.mac
There are 48 other files named lnklog.mac in the archive. Click here to see a list.
TITLE LNKLOG - LOG/ERROR MODULE FOR LINK
SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 24-Aug-79
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
SALL
ENTRY LNKLOG
EXTERN .TYOCH,LNKSCN,LNKERR
CUSTVR==0 ;CUSTOMER VERSION
DECVER==4 ;DEC VERSION
DECMVR==1 ;DEC MINOR VERSION
DECEVR==1220 ;DEC EDIT VERSION
SEGMENT
SUBTTL REVISION HISTORY
;START OF VERSION 1A
;64 MAKE LNK999 BE USEFUL
;71 MAKE CONTINUE MESSAGE STANDARD FORM
;103 SAVE BOTH HALVES OF FL ON EDITED LOOKUP ERROR
;START OF VERSION 2
;135 ADD OVERLAY CAPABILITY
;146 (12860) MAKE S%E ENTER ERRORS FATAL (S%F)
;START OF VERSION 2B
;277 Don't clobber stack contents on editable error
;420 Always output a "[" when expected to.
;434 Don't clear OFFSET and OSCANF when doing an edit.
;START OF VERSION 2C
;464 Make .TEBLK internal for LNKLOG.
;473 Delete all .TMP files before exiting on a fatal error.
;557 Clean up the listing for release.
;START OF VERSION 3A
;560 Release on both TOPS-10 and TOPS-20 as LINK version 3A(560)
;START OF VERSION 4
;564 Make LINK assemble with MACRO 52.
;605 Use OUTSTR's to TTY whenever possible.
;625 Support .EB (Print blank line in log)
;634 Never delete input file on a fatal error.
;637 Always print the continuation error message in batch jobs.
;650 Use VM on TOPS-10 if available.
;657 Setup IO.EMG before deleting temp files on an error.
;731 SEARCH MACTEN,UUOSYM
;765 Release on both TOPS-10 and TOPS-20 as LINK version 4(765)
;START OF VERSION 4A.
;1144 Support .EN (no message specified with .ETC.).
;1174 Label and clean up all error messages. Remove most of edit 1144. Support
; .ETC. codes RTN, NLN, XCT, BKL, DAT and NOP. Support S%C. Clean up the
; listing.
;1202 Make S%E severity on code I messages work after edit 1174.
;1212 Make indexed LRE messages 7 and 10 consistent with others, fix missing
; space in LRE messages.
;1217 Clean up the listings for release.
;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
;DISPATCH TABLE FOR MAIN MESSAGE TYPE. THE MESSAGE TYPE IS SPECIFIED IN THE
;FIRST ARGUMENT TO THE .ERR. MACRO.
DEFINE XXX(TYPE)<
EXP ER.'TYPE
>
XALL
TYPTAB: ERRTYPE
;DISPATCH TABLE FOR CONTINUATION MESSAGE TYPE. THE CONTINUATION TYPE IS
;SPECIFIED IN THE FIRST ARGUMENT TO THE .ETC. MACRO.
DEFINE XXX(TYPE)<
..CTRL==1 ;;[1217] ASSUME CONTROL ONLY
IFDIF <TYPE><JMP>,<IFDIF <TYPE><RTN>,<..CTRL==0>> ;;[1217] COMPILE WITH MACRO 53(1020)
IFN ..CTRL,<
XWD 1B18,ER'TYPE ;FLOW OF CONTROL ONLY
>
IFE ..CTRL,<
EXP ER'TYPE ;PRINT TEXT
>
>
ER.TAB: ETCTYPE
ERLEN==.-ER.TAB
SALL
SUBTTL ENTRY FROM ERRUUO AND MESSAGE DISPATCH
IFN FTSINGLE,<
%%UUO:: PORTAL LNKLOG ;ENTRY FROM UUO
>
LNKLOG: MOVEM P1,SAVEAC+P1 ;SAVE P1
MOVE P1,[T2,,SAVEAC+T2]
BLT P1,SAVEAC+T4 ;AND REST OF ACCS
MOVE P1,@UUOTRAP ;GET FIRST ERROR ARG
JUMPGE P1,@TYPTAB(T1) ;GO TO REQUIRED FUNCTION
MOVE P1,@P1 ;GET A VALID ARG
JUMPL P1,.-1 ;EVENTUALLY
JRST @TYPTAB(T1) ;[1174] ROUTINES RETURN TO ERRFIN BELOW
ERRFIN: SKIPGE PRTMSG ;[1174] DID WE PRINT ANYTHING AT ALL?
JRST ERRET ;[1174] NO--NO LINE TO FINISH OFF THEN
MOVE T1,VERLVL ;[1174] DID USER REQUEST LONG MESSAGE?
CAIGE T1,V%L ;[1174] ..
JRST ERRFN0 ;NO
LDB T1,VERPTR ;GET VERBOSITY LEVEL POSSIBLE
CAIL T1,V%L ;POSSIBLE TO HAVE MORE
JRST LNKERR## ;GO TO LONG ERROR MODULE
ER.FIN:: ;RETURN HERE, IN OTHER SEGMENT
ERRFN0: LDB T2,SEVPTR ;GET SEVERITY
MOVEI T1,"]" ;INFO ENDS WITH "]"
CAMGE T2,SEVLVL ;[1174] SUPPRESS ] IF MESSAGE FORCED TO FATAL
CAIL T2,S%W ;WAS IT
JRST ERRFN2 ;NO, DID NOT TYPE MESSAGE
SKIPN LOGTTY ;TTY BUT NOT LOG OUTPUT
SKIPG LOGSUB ;OR TTY AND LOG
SKIPA ;YES, IT IS ONE
JRST ERRFN2 ;NEITHER CASE
SKIPL LOGSUB ;DO WE POINT TO TTY OR LOG DEV?
JRST ERRFN1 ;POINTS TO TTY
PUSH P,[ERRFN1] ;CPOPJ RETURN, USUALLY CPOPJ1
PUSH P,T1 ;SAVE CHARACTER
PJRST TTYSET ;OUTPUT ON TTY ONLY BUT RESET LOG DEV
ERRFN1: PUSHJ P,.TCHAR## ;YES
ERRFN2: OUTVIA .TCRLF## ;END WITH CR-LF
; ..
; ..
;HERE WHEN THE MESSAGE HAS BEEN TYPED. SHOULD WE CONTINUE?
ERRET: LDB T1,SEVPTR ;GET ERROR SEVERITY
CAML T1,SEVLVL ;OK TO CONTINUE?
CAXN T1,S%C ;[1174] ..
SKIPA ;[1174] YES--RETURN TO CALLER
JRST ERXIT ;[1174] NO--GO EXIT
HRRZS LOGSUB ;CLEAR FLAG
CAIN T1,S%E ;[1174] DO WE NEED TO EDIT THIS ERROR FIRST
JRST EDITER ;YES, FATAL IF WE DON'T
MOVE P1,SAVEAC+P1 ;RESTORE P1
SKIPG T1,LOGTTY ;NEED TO RESTORE LOG SUB?
JRST RPOPJ1 ;NO
PUSHJ P,.TYOCH ;YES,
SETZM LOGTTY ;[605] BACK TO 0
RPOPJ1: AOS UUOTRAP
RPOPJ: JRST .RPOPJ## ;RETUTN TO CPOPJ
;HERE TO "EDIT" THE ERRONEOUS FILE SPECIFICATION. THIS OCCURS WHEN A MESSAGE OF
;SEVERITY S%E IS PRINTED UNDER TIMESHARING. STORE THE STILL PENDING LIST OF SCAN
;BLOCKS IN F.EDIT, AND RETURN TO THE LNKSCN FOR THE CORRECTION LINE.
EDITER: MOVEI T2,1 ;GET A WORD TO HOLD FL
PUSHJ P,DY.GET##
MOVEM FL,(T1) ;SO WE CAN RESTORE LATER
HRL T1,F.INZR ;GET THIS FILE SPEC
MOVSM T1,F.EDIT ;STORE IT
SETZM F.INZR ;CLEAR ALL TRACES
SETZM F.NXZR ;SO SCAN THINKS ITS A NEW LINE
OUTSTR EDTMES ;WARN USER WHAT TO EXPECT
SKIPG T1,LOGTTY ;NEED TO RESTORE LOG SUB?
JRST LNKSCN ;NO
PUSHJ P,.TYOCH ;YES,
SETZM LOGTTY ;[605] BACK TO 0
JRST LNKSCN ;SCAN NEW LINE
EDTMES: .ASCIZ <[ Please retype the incorrect parts of the file specification]
>
;HERE WHEN LOG FILE GETS ERROR
;FINISH ORIGINAL MESSAGE THEN OUTPUT LOG ERROR MESSAGE
REPEAT 0,< ;NOT YET WORKING
ERRLOG: POP P,T1 ;GET RETURN OFF STACK
PUSH P,UUOTRAP ;SAVE REAL RETURN ADDRESS
PUSH P,T1 ;STACK RETURN
MOVEI T1,E$$OEL-1 ;[1174] FAKE RETURN
HRRM T1,UUOTRAP ;SO WE CAN TYPE 2ND MESSAGE
POPJ P, ;IF NOTHING MORE IMPORTANT OCCURS
E$$OEL::PUSH P,[RC] ;CHANNNEL #
.ERR. (ST,0,V%L,L%W,S%W,OEL,<Output error on log file, file closed, load continuing>)
POP P,T1 ;GET ORIGINAL RETURN
JRSTF @T1 ;RETURN
>;END OF REPEAT 0
SUBTTL FATAL ERROR FINAL CLEAN-UP AND EXIT
;HERE IF FATAL NON-CONTINUABLE (E.G., NOT EDITABLE) ERROR OCCURS, AFTER PRINTING
;THE MESSAGE. CLOSE THE LOG FILE AND DELETE ALL OF LINK'S .TMP FILES. IF WE'RE
;UNDER BATCH, FORCE OUT THE LONG MESSAGE IF APPLICABLE. OTHERWISE, MERELY GIVE
;THE USER A HINT THAT THE LONG MESSAGE MAY BE TYPED IF DESIRED.
ERXIT: MOVEI T1,FINMES ;TELL USER WE CLOSED FILE
SKIPE LOGSUB ;BUT ONLY ON LOG FILE
PUSHJ P,.TSTRG##
RELEASE RC, ;CLOSE LOG FILE
RELEASE DC, ;[634] CLOSE REL FILE (DON'T DELETE)
PUSH P,P1 ;SAVE A PERM AC
MOVSI P1,-20 ;SETUP TO SCAN ALL CHANNELS
ERXIT1: HRRZ T1,P1 ;GET THIS CHANNEL NUMBER
DEVCHR T1, ;FIND OUT ABOUT THE ASSOCIATED DEV
JUMPE T1,ERXIT2 ;FORGET IT IF NONE
MOVE T1,IO.PTR(P1) ;SOMETHING THERE, GET IO BLOCK
HRRZM T1,IO.EMG ;[657] USE SAME BLOCK IN DVDEL.
HLRZ T1,I.EXT(T1) ;GET THE FILE EXTENSION
CAIE T1,'TMP' ;ONLY DELETE .TMP FILES
JRST ERXIT2 ;NOT USER'S INPUT REL FILE ETC.
HRRZ T1,P1 ;GOT ONE! GET I/O CHANNEL
PUSHJ P,DVDEL.## ;DELETE IT
JFCL ;IGNORE FAILURE
ERXIT2: AOBJN P1,ERXIT1 ;LOOP OVER ALL CHANNELS
POP P,P1 ;RESTORE PERM AC
MOVEI T1,V%L ;GET MAX VERBOSITY
LDB T2,VERPTR ;AND POSSIBLE MESSAGE VERBOSITY
CAMLE T1,VERLVL ;IF ALREADY SEEN IT ALL
CAIGE T2,V%L ;OR NOTHING MORE
EXIT
MOVEM T1,VERLVL ;FAKE /VER:LONG
SETZM LOGSUB ;FORGET LOG DEVICE
SETZM LOGTTY
MOVE T1,HIORGN ;[650] SEE WHO CALLED
HRRZ T1,.JBHNM(T1) ;[650]
CAIN T1,'999' ;[650] SOME FLAVOR OF XXX999?
EXIT ;GIVE UP, GETSEG WILL FAIL ETC.
MOVE T1,TTYSUB ;MAKE SURE WE POINT TO TTY
PUSHJ P,.TYOCH##
CLRBFI ;[637] CLEAR JUNK
SKIPE BATCH ;[637] CAN USER TYPE CONTINUE?
JRST LNKERR## ;[637] NO, GIVE HIM THE MESSAGE FOR FREE
OUTSTR [ASCIZ \[ Type CONTINUE for more information]\]
EXIT 1, ;MONRET
JRST LNKERR## ;SO CONTINUE WILL GET REST OF TEXT
FINMES: .ASCIZ < [End of log file]
>
SUBTTL MAIN ERROR MESSAGE SUBROUTINES
;ENTRY POINT FOR ASCII STRING
;CALLED BY
; ERRUUO ER%MS
; ARGS
ER.MS: SETOM ERCHAN ;[1202] SIGNAL NO CHANNEL INVOLVED
PUSHJ P,CHKLVL ;OUTPUT %,? OR TIME STAMP ETC
JRST ERRNXT ;[1174] NOTHING TO OUTPUT
HRRZ T1,P1 ;ADDRESS OF MESSAGE STRING
OUTVIA .TSTRG## ;OUTPUT MESSAGE
JRST ERRNXT ;[1174] GO PROCESS .ETC. WORDS
;HERE FOR LOOKUP/ENTER/RENAME ERROR
;CALLED BY
; PUSH P,[CHAN#]
; ERRUUO ER%LRE
; ARGS
ER.LRE: POP P,ERCHAN ;[1174] RESCUE CHANNEL FROM STACK
MOVE T4,ERCHAN ;[1174] GET CHANNEL
TXNE P1,F%SEV ;[1144] DO WE HAVE SEVERITY?
JRST ERLRE2 ;YES
MOVE T2,IO.PTR(T4) ;GET I/O BLOCK
HRRE T2,I.EXT(T2) ;GET ERROR CODE
CAILE T2,LRELEN ;IN RANGE?
MOVEI T2,LRELEN ;NO, USE DEFAULT VALUE
HLRZ T3,LRETAB(T2) ;PICKUP LVL FOR THIS MESSAGE
TLNE T4,(%ENT) ;ENTER HAS SPECIAL MESSAGES
SKIPLE T2 ;CHANGE IF 0 OR -1
CAIA ;NOT SPECIAL
HLRZ T3,ENTAB(T2) ;GET RIGHT MESSAGE
DPB T3,SLPTR ;[1144] STORE SEVERITY AND LEVEL
LDB T3,SEVPTR ;GET SEVERITY
TXNE T4,%ENT ;IF ENTER UUO
CAIE T3,S%E ;AND MARKED AS EDITABLE
JRST ERLRE2 ;NO
TXO P1,F%SEV ;[1144] MARK AS FATAL
; ..
; ..
ERLRE2: PUSHJ P,CHKLVL ;[1202] OUTPUT TIME ETC
JRST ERRNXT ;[1174] NOTHING TO DO
HRRZ T1,P1 ;ADDRESS OF MESSAGE
OUTVIA .TSTRG## ;OUTPUT ON TTY AND/OR LOG
OUTVIA .TSPAC## ;[1212] PRINT SPACE BETWEEN FAILURE AND REASON
MOVE T4,ERCHAN ;[1202] RESTORE CHAN PLUS FLAGS
IFE FTSINGLE,<
JUMPE T4,ERGSEG ;GETSEG ERROR IF CHAN# 0
>
;NOW TYPE APPROPRIATE MESSAGE FOR ERROR CODE
HRR P1,IO.PTR(T4) ;GET POINTER TO I/O BLOCK
HRRE T2,I.EXT(P1) ;GET ERROR CODE
CAILE T2,LRELEN ;DO WE KNOW ABOUT IT?
PUSHJ P,ERLDEF ;NO SETUP DEFAULT
SKIPGE T1,T2 ;BUT IF NEGATIVE
ANDI T1,<BYTE (7) 0,0,0,177,177 (1) 1>
IORM T1,ERRCOD ;STORE TABLE INDEX
HRRZ T1,LRETAB(T2) ;GET MESSAGE
TLNE T4,(%ENT) ;SPECIAL IF ENTER
SKIPLE T2 ;AND 0 OR -1
CAIA
HRRZ T1,ENTAB(T2) ;GET RIGHT MESSAGE
OUTVIA .TSTRG## ;OUTPUT IT
HRRZ T1,P1 ;[1144] POINT TO SCAN BLOCK
ERFSPC: OUTVIA .TEBLK ;OUTPUT LOOKUP BLOCK
JRST ERRFIN ;RETURN
IFE FTSINGLE,<
ERGSEG: HRRZ T2,SEGBLK+2 ;GET ERROR CODE
CAILE T2,LRELEN ;RANGE CHECK
PUSHJ P,ERLDEF ;NO SETUP DEFAULT
HRRZ T1,LRETAB(T2) ;GET MESSAGE
OUTVIA .TSTRG##
HRRZI T1,SEGBLK ;POINT TO GETSEG BLOCK
OUTVIA .TSBLK ;OUTPUT SEGMENT BLOCK
JRST ERRFIN
>;END IFE FTSINGLE
ERLDEF: PUSH P,T2 ;SAVE ERROR CODE
MOVEI T1,"("
OUTVIA .TCHAR##
POP P,T1
OUTVIA .TOCTW
MOVEI T2,LRELEN ;USE DEFAULT
POPJ P,
;INIT/OPEN ERROR
;CALLED BY
; PUSH P,[CHAN#]
; ERRUUO ER%I
; ARGS
ER.I: POP P,ERCHAN ;[1174] RESCUE CHANNEL FROM STACK
PUSHJ P,CHKLVL ;OUTPUT % OR ?
JRST ERRNXT ;[1174] NOTHING TO DO
HRRZ T1,P1 ;GET MESSAGE
OUTVIA .TSTRG##
MOVE T4,ERCHAN ;[1202] GET CHANNEL
HRRZ T4,IO.PTR(T4) ;GET IO POINTER
MOVE T1,I.DEV(T4)
SETZM I.DEV(T4) ;DELETE IT INCASE TRYING TO RECOVER
OUTVIA .TSIXN## ;DEVICE
OUTVIA .TCOLN##
JRST ERRFIN ;RETURN OR EXIT
;STATUS CHECK ERRORS
;CALLED BY
; PUSH P,[CHAN#]
; ERRUUO ER%ST
; ARGS
ER.ST: POP P,ERCHAN ;[1174] RESCUE CHANNEL FROM STACK
PUSHJ P,CHKLVL ;OUTPUT % OR ?
PJRST ERRNXT ;[1174] NOTHING TO DO
HRRZ T1,P1 ;GET MESSAGE
OUTVIA .TSTRG##
MOVX T1," " ;[1144] SEPARATE MESSAGE FROM REST
OUTVIA .TCHAR## ;[1144] ..
MOVEI T1,[ASCIZ \Status \] ;[1144]
OUTVIA .TSTRG##
HRLZ T1,ERCHAN ;[1174] GET CHANNEL FOR GETSTS
LSH T1,5 ;PUT IN AC FIELD
IOR T1,[GETSTS T1] ;FORM INST
XCT T1 ;DO IT
HRRZ T1,T1
OUTVIA .TOEP## ;(XXXXXX)
MOVEI T1,[ASCIZ \ for file \] ;[1144]
OUTVIA .TSTRG##
MOVE T4,ERCHAN ;[1202] GET CHANNEL NUMBER
HRRZ T1,IO.PTR(T4) ;GET IO POINTER
JRST ERFSPC ;REST OF FILE SPEC
SUBTTL CONTINUATION OF FIRST LINE DISPATCH
;HERE AFTER PROCESSING AN .ETC. FUNCTION. IF THERE ARE NO MORE LEFT, RETURN VIA
;ERRFIN. OTHERWISE, PROCESS THE NEXT .ETC. FUNCTION ONLY IF THE FIRST LINE OF
;THE MESSAGE SHOULD BE PRINTED OR IF THE .ETC. REPRESENTS FLOW-OF-CONTROL RATHER
;THAN TEXT.
ERRNXT: TXNN P1,.EC ;MORE TO DO?
JRST ERRFIN ;NO, END LINE
LDB T1,VSPTR ;[1144] GET VERBOSITY AND SEVERITY
AOS UUOTRAP ;ADVANCE RETURN POINTER
MOVE P1,@UUOTRAP ;GET ADDRESS OF OUTPUT INFO
DPB T1,VSPTR ;[1144] STORE VERBOSITY AND SEVERITY AGAIN
SKIPLE PRTMSG ;[1174] ARE WE SUPPOSED TO PRINT FIRST LINE?
JRST ERRNX1 ;[1174] YES--GO STRAIGHT TO IT
LDB T1,LVLPTR ;[1174] NO--ONLY PROCESS CONTROL .ETC. WORDS
SKIPL ER.TAB(T1) ;[1174] ONE THAT PRINTS TEXT?
JRST ERRNXT ;[1174] NO--IGNORE IT AND GET NEXT
ERRNX1: HRRZ T1,P1 ;[1174] GET VALUE
TXNN P1,.EP ;ONLY A POINTER?
JRST .+4 ;NO, ALL SET
CAIG T1,P1 ;IS IT ONE OF THE SAVED ONES?
SKIPA T1,SAVEAC(T1) ;YES, GET FROM SAVED SET
MOVE T1,(T1) ;NO, GET REAL VALUE
LDB T2,LVLPTR ;[1174] GET .ETC. TYPE CODE
JRST @ER.TAB(T2) ;DO CORRECT FUNCTION
;PRINT ASCII TEXT IN ASCIZ FORMAT.
ERSTR: OUTVIA .TSTRG##
JRST ERRNXT ;SEE IF MORE
;PRINT A SIXBIT WORD WITHOUT TRAILING SPACES.
ERSBX: OUTVIA .TSIXN##
JRST ERRNXT
;PRINT AN OCTAL FULL WORD WITHOUT LEADING ZEROS.
EROCT: OUTVIA .TOCTW##
JRST ERRNXT
;PRINT A SIGNED DECIMAL VALUE.
ERDEC: OUTVIA .TDECW##
JRST ERRNXT
;PRINT A FILE SPECIFICATION. THE ARGUMENT IS LINK'S INTERNAL CHANNEL NUMBER.
ERFSP: HRR P1,IO.PTR(P1) ;GET ADDRESS
HRRZ T1,P1 ;PTR IN T1
OUTVIA .TEBLK
JRST ERRNXT
;PRINT A SINGLE ASCII CHARACTER.
ERASC: OUTVIA .TCHAR##
JRST ERRNXT
;MEMORY SIZE ARGUMENT. PRINT MEMORY SIZE IN K FOR KA'S, PAGES FOR ALL OTHERS.
ERCOR: ADD. T1,.PGSIZ ;[1174] ROUND UP TO MONITOR'S PAGE SIZE
ANDCM. T1,.PGSIZ ;[1174] ..
OUTVIA .TCORW## ;[1174] .TOUTS HAS THE SMARTS
JRST ERRNXT ;[1174] DONE
;JUMP TO A CONTINUATION LIST OF .ETC. MACROS. CONTROL RETURNS FROM LNKLOG TO THE
;INSTRUCTIONS AFTER THE CONTINUATION LIST, NOT THE OLD LIST. WE ALSO SAVE THE
;ADDRESS OF THE CURRENT .ETC. WORD SO RTN BELOW CAN USE IT.
ERJMP: HRRZ T2,UUOTRAP ;[1174] GET ADDRESS OF CURRENT .ETC.
MOVEM T2,RTNPC ;[1174] SAVE IN CASE RTN NEEDS IT
SUBI T1,1 ;[1174] LOOK LIKE WE JUST PROCESSED PREVIOUS WORD
HRRM T1,UUOTRAP ;[1174] ..
TXO P1,.EC ;[1174] IMPLIED CONTINUATION FOR JMP'S
JRST ERRNXT ;[1174]
;RETURN FROM PREVIOUS JUMP. NOTE THAT THE .EC FLAG OF THE JUMP THAT GOT US HERE
;CONTROLS WHETHER THERE ARE ANY MORE .ETC. WORDS, NOT THE .EC FLAG OF THE RTN
;FUNCTION.
ERRTN: ADD T1,RTNPC ;[1174] FOR CPOPJ1, ETC.
HRRM T1,UUOTRAP ;[1174] LOOK LIKE WE JUST PROCESSED LAST JMP
LDB T2,VSPTR ;[1174] SAVE ORIGINAL VERBOSITY, SEVERITY
MOVE P1,(T1) ;[1174] FINISH LOOKING LIKE THE JMP
DPB T2,VSPTR ;[1174] RESTORE ORIGINAL VERBOSITY AND SEVERITY
JRST ERRNXT ;[1174] DONE
;PRINT A NEW LINE. THIS PRINTS A CRLF FOLLOWED BY THE RIGHT INDENTATION FOR THE
;DESTINATION. FOR A REAL LOG FILE, THIS INCLUDES THE TIME STAMP PLUS LEVEL,
;SEVERITY AND MESSAGE PREFIX. FOR A REAL TERMINAL, THIS INCLUDES A TAB FOR NOW,
;BUT SHOULD OPTIONALLY BE 2 SPACES IF LINK EVER LOOKS AT THE JOB'S MESSAGE BITS.
ERNLN: MOVEI T1,[ASCIZ /
/] ;[1174] INDENT PAST TIME STAMP IN LOG FILE
SKIPE LOGSUB ;[1174] REAL LOG FILE?
PUSHJ P,.TSTRG## ;[1174] YES--PRINT IT TO JUST LOG FILE
SKIPN LOGTTY ;[1174] NOW, OUTPUT GOING TO TERMINAL?
SKIPG LOGSUB ;[1174] ..
SKIPA ;[1174] YES
JRST ERRNXT ;[1174] NO--DONE
SKIPL LOGTTY ;[1174] TERMINAL A LOG FILE?
JRST ERNLN1 ;[1174] NO--DO IT THE HARD WAY
MOVEI T1,[ASCIZ /
/] ;[1174] YES--LOWSUB ALREADY POINTS TO TTYIT
PUSHJ P,.TSTRG## ;[1174] SEND NEW LINE AND INDENTATION
JRST ERRNXT ;[1174] DONE
ERNLN1: MOVE T1,TTYSUB ;[1174] NEW LINE ON TERMINAL--SET TO JUST TERMINAL
PUSHJ P,.TYOCH## ;[1174] ..
PUSH P,T1 ;[1174] SAVE LOG FILE ROUTINE
MOVEI T1,[ASCIZ /
/] ;[1174] JUST A TAB FOR NOW
PUSHJ P,.TSTRG## ;[1174] ..
POP P,T1 ;[1174] RESTORE LOG FILE ROUTINE
PUSHJ P,.TYOCH## ;[1174] ..
JRST ERRNXT ;[1174] DONE
;RELATIVE POINTER TO TRIPLET(S) IN LS AREA.
IFN .NWBLK,<
ERLSP: SUB T1,LW.LS ;CONVERT TO OFFSET FROM LS.LB
JUMPL T1,[HALT] ;ALREADY PAGED OUT
ADD T1,LS.LB ;CONVERT TO PHYSICAL ADDRESS
HRR P1,T1 ;USE RH(P1) AS PHYSICAL POINTER
MOVE T1,1(P1) ;GET 1ST 6 CHARS
OUTVIA .TSIXN## ;TYPE THEM
SKIPL T1,(P1) ;WAS THIS A PRIMARY TRIPLET?
HALT ;NO, ERROR
TXNN T1,PT.EXT ;EXTENDED TRIPLET?
JRST ERRNXT ;NO, FINISHED
ERLSP1: ADDI P1,3 ;POINT TO NEXT TRIPLET
SKIPL T1,(P1) ;SECONDARY?
TXNE T1,<-1B17>&<^-S.TTL> ;AND STILL IN NAME TRIPLETS?
JRST ERRNXT ;NO, QUIT
MOVE T1,1(P1) ;GET 1ST SIX CHARS
OUTVIA .TSIXN## ;TYPE THEM
SKIPN T1,2(P1) ;ANY MORE?
JRST ERRNXT ;NO, QUIT
OUTVIA .TSIXN## ;YES, TYPE THEM TOO
JRST ERLSP1 ;LOOP FOR ALL SECONDARY TRIPLETS
> ;END IFN .NWBLK
;EXECUTE AN INSTRUCTION. THIS IS USEFUL WHEN THE SET-UP PERFORMED BY LNKLOG IS
;DESIRED, BUT A COMPLEX MESSAGE IS NEEDED.
ERXCT: XCT (T1) ;[1174] EXECUTE THE INSTRUCTION
JRST ERRNXT ;[1174] NON-SKIP--CONTINUE NORMAL FLOW
AOS UUOTRAP ;[1174] SKIP--SKIP NEXT .ETC.
JRST ERRNXT ;[1174] DONE
;BLANK LINE IN THE LOG FILE. THIS IS USEFUL FOR SEPARATING SECTIONS OF THE LOG
;FILE, AS BETWEEN OVERLAY LINKS.
ERBKL: SKIPE LOGSUB ;[1174] REAL LOG FILE?
PUSHJ P,.TCRLF## ;[1174] YES--SEND A CRLF
JRST ERRNXT ;[1174] DONE
;PRINT TODAY'S DATE.
ERDAT: OUTVIA .TDATN## ;[1174] PRINTS TODAY'S DATE
JRST ERRNXT ;[1174] DONE
;NO OPERATION. THIS FUNCTION IS GOOD FOR NOTHING.
ERNOP: JRST ERRNXT ;[1174] DONE
SUBTTL USEFUL SUBROUTINES
;CHKLVL CHECKS TO SEE IF THE CURRENT MESSAGE SHOULD GO TO LOG FILE, THE
;TERMINAL, OR BOTH. IF THE MESSAGE IS DESTINED TO THE LOG FILE, A TIME STAMP IS
;PRINTED, AND IF THE MESSAGE IS DESTINED FOR THE TERMINAL THEN THE PROPER ERROR
;CHARACTER ("?", "%" OR "[") PLUS THE LNK??? PREFIX IS PRINTED.
;
;CALL:
; LOGSUB/ NON-ZERO IF REAL NON-CONTROLLING TERMINAL LOG FILE
; LOGTTY/ -1 IF LOG FILE IS THE CONTROLLING TERMINAL
;SKIP RETURNS IF FIRST LINE MESSAGE SHOULD REALLY BE PRINTED SOMEWHERE, WITH:
; LOGSUB/ <-1,,NON-ZERO> IF BOTH LOG AND TERMINAL OUTPUT REQUIRED
; LOGTTY/ <0,,NON-ZERO> IF TERMINAL BUT NOT LOG FILE OUTPUT REQUIRED
; PRTMSG/ -1: PRINT NOTHING; 0: ONLY PREFIX; 1: PRINT FIRST LINE TEXT
; P1/ <ADDRESS OF FIRST LINE TEXT>
CHKLVL: SKIPGE T1,ERCHAN ;[1202] I/O ERROR?
JRST CHKLV1 ;[1202] NO--SKIP EDITABLE TEST
HRRZS T1 ;[1202] CLEAR FLAGS IN LH
LDB T2,SEVPTR ;[1202] GET SEVERITY
CAXN T2,S%E ;[1202] EDITABLE?
CAXN T1,DC ;[1202] AND NOT INPUT REL FILE CHANNEL?
JRST CHKLV1 ;[1202] YES--LEAVE EDITABLE
MOVX T2,S%F ;[1202] NO--NOT EDITABLE FOR NOW, MAKE FATAL
DPB T2,SEVPTR ;[1202] STORE SEVERITY BACK
CHKLV1: LDB T1,LVLPTR ;[1202] GET LIST LEVEL
CAMGE T1,LOGLVL ;ABOVE CUTOFF?
JRST CHKLV2 ;NO, TRY TTY ONLY
SKIPE LOGTTY ;YES, THEN IS LOG = TTY?
JRST [MOVEI T1,1 ;[1174] POSITIVE FOR FIRST LINE
MOVEM T1,PRTMSG ;[1174] ..
JRST CHKLV4] ;OUTPUT [, % OR ? AND CODE
SKIPN LOGSUB ;DO WE REALLY HAVE A LOG DEVICE?
JRST CHKLV2 ;NO, JUST TRY TTY
;HERE FOR A REAL NON-CONTROLLING TERMINAL LOG FILE. PRINT THE TIME STAMP IN THE
;LOG FILE ONLY. THEN SEE IF THE TERMINAL SHOULD SEE THE MESSAGE TOO. IF SO,
;PRINT THE PREFIX THERE AND CAUSE THE OUTVIA MACRO TO PRINT ALL TEXT TO BOTH.
MOVEI T1,1 ;[1174] MARK THAT WE SHOULD PRINT THE MESSAGE
MOVEM T1,PRTMSG ;[1174] ..
PUSHJ P,TSTAMP ;PUT TIME STAMP ON LOG FILE
LDB T1,LVLPTR ;GET LEVEL AGAIN
CAMGE T1,ERRLVL ;ABOVE ERROR CUTOFF?
JRST CHKLV5 ;NO, NOT TO TTY
MOVE T1,TTYSUB ;POINT TO TTY LINE BUFFER
PUSHJ P,.TYOCH ;SWAP WITH LOG
PUSH P,T1 ;SAVE IT
PUSHJ P,SEVTST ;USE TTY TO OUTPUT [, % OR ?
POP P,T1 ;GET OUTPUT ROUTINE BACK
PUSHJ P,.TYOCH ;AS IT WAS
HRROS LOGSUB ;SIGNAL TO BOTH DEVICES
JRST CHKLV5 ;NOW FOR REST OF MESSAGE
;HERE WHEN THERE IS NO REAL LOG FILE, OR THE MESSAGE TO IT IS CUT OFF DUE TO
;/LOGLEVEL:. CHECK FOR TERMINAL OUTPUT. IF THE MESSAGE SHOULD GO THERE, CHECK
;FOR THE SPECIAL CASE OF THE TERMINAL BEING THE LOG FILE (TO PREVENT TIME STAMPS
;ON THE TERMINAL) THEN PRINT THE ERROR CHARACTER AND THE MESSAGE PREFIX.
;OTHERWISE, GIVE NON-SKIP RETURN SINCE NOTHING SHOULD GET PRINTED. NOTE THAT THE
;PREFIX MUST END WITH A TAB SO THAT MESSAGES WITH IMBEDDED TABS LOOK THE SAME ON
;THE TERMINAL AND IN THE LOG FILE.
CHKLV2: LDB T1,LVLPTR ;GET ERROR LEVEL
CAMGE T1,ERRLVL ;TO GO TO TTY?
JRST [SETOM PRTMSG ;[1174] NO--REMEMBER NOTHING TO DO
JRST CHKLV6] ;[1174] GO RETURN
MOVEI T1,1 ;[1174] YES--THEN REMEMBER SOMETHING TO PRINT
MOVEM T1,PRTMSG ;[1174] ..
SKIPE LOGTTY ;LOG = TTY?
JRST CHKLV4 ;YES, JUST PRINT CODE AND RETURN
HRRZ T1,LOWSUB ;[1174] SET FOR TTY OUTPUT ONLY
PUSHJ P,.TYOCH ;GET OLD RETURN
HRRZM T1,LOGTTY ;STORE OLD RETURN
;HERE WHEN LOG FILE IS THE USER'S TERMINAL.
CHKLV4: PUSHJ P,SEVTST ;OUTPUT [, % OR ?
;HERE TO PRINT THE MESSAGE PREFIX TO POTENTIALLY BOTH THE USER'S TERMINAL AND
;THE LOG FILE.
CHKLV5: MOVE T1,(P1) ;[1174] GET MESSAGE PREFIX
MOVEM T1,ERRCOD ;SAVE IN CASE LONG MESSAGE REQUIRED LATER
MOVEI T1,ERRCOD ;[1174] PRINT THE PREFIX
OUTVIA .TSTRG## ;[1174] ..
MOVE T1,VERLVL ;[1174] SEE IF /VERBOSITY:SHORT
SOJE T1,[SETZM PRTMSG ;[1174] YES--NO FIRST LINE MSG
JRST CHKLV6] ;[1174] GO RETURN
MOVX T1,.CHTAB ;[1174] PRINT TAB AFTER PREFIX
OUTVIA .TCHAR## ;[1174] ..
CHKLV6: ADDI P1,1 ;[1174] POINT TO BEGINNING OF FIRST LINE TEXT
SKIPLE PRTMSG ;[1174] SHOULD FIRST LINE BE PRINTED?
CPOPJ1: AOS (P) ;[1174] YES--SKIP RETURN
CPOPJ: POPJ P, ;[1174] NO--NON-SKIP RETURN
;SEVTST PRINTS THE PROPER ERROR CHARACTER [, % OR ? BASED ON THE MESSAGE'S
;ASSIGNED SEVERITY AND THE USER'S /SEVERITY: SWITCH. IF THE MESSAGE IS FATAL,
;CLEAR TYPE-AHEAD FIRST. FINALLY, PRINT THE FIRST PART OF THE MESSAGE PREFIX.
;SEVTST ASSUMES THAT IT WILL ONLY PRINT TO THE USER'S TERMINAL.
SEVTST: LDB T2,SEVPTR ;GET SEVERITY
MOVEI T1,"[" ;ASSUME INFO
CAIL T2,S%W ;IS IT A WARNING?
MOVEI T1,"%" ;YES, OR WORSE
CAML T2,SEVLVL ;IS IT FATAL?
MOVEI T1,"?" ;YES,
CAIN T1,"[" ;IF MORE THAN INFO
JRST SEVTS1 ;NO
CLEARO ;CLEAR ^O
SEVTS1: PUSHJ P,.TCHAR## ;TYPE CHARACTER
MOVEI T1,[ASCIZ \LNK\]
PJRST .TSTRG##
TTYCHK::SKIPL LOGSUB ;ANY NEED TO DO IT?
POPJ P, ;NO
PUSH P,T1 ;SAVE ENTRY TO .TOUTS
XCT @-1(P) ;PUT IN LOG FILE
TTYSET: MOVE T1,TTYSUB ;GET TTY LINE BUFFER SUB
PUSHJ P,.TYOCH ;INITIALIZE FOR IT
EXCH T1,(P) ;SWAP OUT SUB FOR ENTRY PTR
XCT @-1(P) ;GO TO .TOUTS
POP P,T1 ;RESTORE OUTSUB
AOS (P) ;SKIP OVER XCT'ED INST
PJRST .TYOCH ;RESET AND RETURN
TSTAMP: PUSHJ P,.TTIMN## ;STANDARD TIME OUTPUT
PUSHJ P,.TSPAC## ;SPACE
PUSHJ P,.TSPAC## ;[1174] ANOTHER SPACE
LDB T1,LVLPTR ;GET PRINT LEVEL
MOVEI T2," " ;FILLER CHAR IF 1 DIGIT
PUSHJ P,.TDEC2## ;OUTPUT IT
PUSHJ P,.TSPAC##
PUSHJ P,.TSPAC## ;[1174] ANOTHER SPACE
LDB T1,SEVPTR ;ERR LEVEL
MOVEI T2," "
PUSHJ P,.TDEC2##
MOVEI T1,[ASCIZ / /];[1174] FINISH WITH 3 SPACES
PJRST .TSTRG## ;[1174] ..
VERPTR: POINTR P1,F%VER ;[1144] VERBOSITY LEVEL
SEVPTR: POINTR P1,F%SEV ;[1144] SEVERITY LEVEL
LVLPTR: POINTR P1,F%LVL ;[1144] OUTPUT MESSAGE LEVEL
VSPTR: POINTR P1,<F%VER!F%SEV>;[1144] VERBOSITY AND SEVERITY
SLPTR: POINTR P1,<F%SEV!F%LVL>;[1144] SEVERITY AND MESSAGE LEVEL
SUBTTL EXTENSIONS TO SCAN'S .TOUTS SUBROUTINES
;.TEBLK --TYPE LOOKUP/ENTER/RENAME BLOCK (NOT SAME AS .TFBLK##)
;CALL: MOVEI T1,ADDR OF BLOCK
; PUSHJ P,.TEBLK
;USES T1-4
.TEBLK::MOVE T4,T1 ;SAVE ARGUMENT
MOVE T1,I.DEV(T4) ;DEVICE
PUSHJ P,.TSIXN##
PUSHJ P,.TCOLN##
MOVE T1,I.NAM(T4) ;NAME
PUSHJ P,.TSIXN##
HLLZ T1,I.EXT(T4) ;EXTENSION
MOVE T2,I.SCN(T4) ;GET MOD WORD
TXNE T2,FX.NUL ;TEST FOR NULL EXTENSION (NO DOT)
JUMPE T1,TEBLK2 ;NO EXT
TRO T1,'.'
ROT T1,-6 ;PUT IN LEADING PLACE
PUSHJ P,.TSIXN##
TEBLK2: MOVEI T1,I.PPN(T4) ;POINTER TO PPN OR SFD
IFN LN.DRB,< ;ENABLED FOR SFD'S?
MOVE T2,(T1) ;GET UFD
TLNE T2,-1 ;0,,+ IS A PNTR
PJRST .TDIRB## ;NO, JUST [PPN]
MOVE T1,(T1) ;GET 0,,SFDARG
ADD T1,[1,,2] ;POINT TO SFDDIR
>
PJRST .TDIRB## ;OUTPUT DIRECTORY
;.TSBLK --TYPE GETSEG BLOCK (NOT SAME AS .TFBLK##)
;CALL: MOVEI T1,ADDR OF BLOCK
; PUSHJ P,.TSBLK
;USES T1-4
.TSBLK: MOVE T4,T1 ;SAVE ARGUMENT
MOVE T1,0(T4) ;DEVICE
PUSHJ P,.TSIXN##
PUSHJ P,.TCOLN##
MOVE T1,1(T4) ;NAME
PUSHJ P,.TSIXN##
HLLZ T1,2(T4) ;EXTENSION
TRO T1,'.'
ROT T1,-6 ;PUT IN LEADING PLACE
PUSHJ P,.TSIXN##
MOVEI T1,4(T4) ;PPN
PJRST .TDIRB## ;OUTPUT DIRECTORY
SUBTTL COMMON .ERR. SUBROUTINES
.ERFEE::ASCIZ \FEE\
.ASCIZ <ENTER error> ;[1212]
.ERFLE::ASCIZ \FLE\
.ASCIZ <LOOKUP error> ;[1212]
.ERFRE::ASCIZ \FRE\
.ASCIZ <RENAME error> ;[1212]
.ERGSE::ASCIZ \GSE\
.ASCIZ <GETSEG error> ;[1212]
.ERNED::ASCIZ \NED\
.ASCIZ <Non-existent device >
.EROFD::ASCIZ \OFD\
.ASCIZ <OPEN failure for device >
.EREIF::ASCIZ \EIF\
.ASCIZ <Error for input file >
.ERCNW::ASCIZ \CNW\
.ASCIZ <Code not yet written at >
SUBTTL DEFERRED SEVERITY AND LEVEL TABLE FOR INDEXED FILE ERRORS
.ERR. (,0,V%L,L%F,S%F,,<(2) directory full >)
ENTAB: .ERR. (,0,V%L,L%F,S%F,,<(0) Illegal file name >)
LRETAB: .ERR. (,0,V%L,L%F,S%E,,<(0) file was not found >)
.ERR. (,0,V%L,L%F,S%E,,<(1) no directory for project-programmer number >)
.ERR. (,0,V%L,L%F,S%E,,<(2) protection failure >)
.ERR. (,0,V%L,L%F,S%E,,<(3) file was being modified >)
.ERR. (,0,V%L,L%F,S%E,,<(4) rename file name already exists >)
.ERR. (,0,V%L,L%F,S%F,,<(5) illegal sequence of UUOs >)
.ERR. (,0,V%L,L%F,S%F,,<(6) bad UFD or bad RIB >)
.ERR. (,0,V%L,L%F,S%F,,<(7) not a saved file >)
.ERR. (,0,V%L,L%F,S%F,,<(10) not enough memory >)
.ERR. (,0,V%L,L%F,S%F,,<(11) device not available >)
.ERR. (,0,V%L,L%F,S%F,,<(12) no such device >)
.ERR. (,0,V%L,L%F,S%F,,<(13) not two reloc reg. capability >)
.ERR. (,0,V%L,L%F,S%E,,<(14) no room or quota exceeded >)
.ERR. (,0,V%L,L%F,S%E,,<(15) write lock error >)
.ERR. (,0,V%L,L%F,S%F,,<(16) not enough monitor table space >)
.ERR. (,0,V%L,L%I,S%I,,<(17) partial allocation only >)
.ERR. (,0,V%L,L%F,S%F,,<(20) block not free on allocation >)
.ERR. (,0,V%L,L%F,S%F,,<(21) can't supersede (enter) an existing directory >)
.ERR. (,0,V%L,L%F,S%F,,<(22) can't delete (rename) a non-empty directory >)
.ERR. (,0,V%L,L%F,S%E,,<(23) SFD not found >)
.ERR. (,0,V%L,L%F,S%E,,<(24) search list empty >)
.ERR. (,0,V%L,L%F,S%E,,<(25) SFD nested too deeply >)
.ERR. (,0,V%L,L%F,S%E,,<(26) no-create on for specified SFD path >)
.ERR. (,0,V%L,L%F,S%E,,<(27) segment not on swap space >)
.ERR. (,0,V%L,L%F,S%E,,<(30) can't update file >)
.ERR. (,0,V%L,L%F,S%E,,<(31) low segment overlaps high segment >)
.ERR. (,0,V%L,L%F,S%F,,<(32) RUN not allowed when not logged in >) ;[1174]
.ERR. (,0,V%L,L%F,S%F,,<(33) file still has outstanding ENQ/DEQ locks >) ;[1174]
.ERR. (,0,V%L,L%F,S%F,,<(34) bad EXE file directory format >) ;[1174]
.ERR. (,0,V%L,L%F,S%F,,<(35) EXE format files must have .EXE extension >) ;[1174]
.ERR. (,0,V%L,L%F,S%F,,<(36) EXE file directory is too big >) ;[1174]
.ERR. (,0,V%L,L%F,S%F,,<(37) network capability exceeded for TSK: >) ;[1174]
.ERR. (,0,V%L,L%F,S%F,,<(40) task is not available >) ;[1174]
.ERR. (,0,V%L,L%F,S%F,,<(41) undefined network node for TSK: >) ;[1174]
LRELEN==:.-LRETAB ;[1174] **MUST** AGREE WITH LNKERR
LREDEF: .ERR. (,0,V%L,L%F,S%F,,<) Unknown cause >)
SUBTTL COMMON .ETC. SUBROUTINES
;PRINT 'DETECTED IN MODULE [SYMBOL] FROM FILE [FILE]' IF WE'RE CURRENTLY LOADING
;A MODULE. CALLED FROM ALL ERROR MESSAGES THAT POTENTIALLY PERTAIN TO A
;PATICULAR MODULE.
.ETIMF::.ETC. (XCT,.EC,,,,<[TRNN FL,R.LOD]>) ;[1174]
.ETC. (RTN) ;[1174] NO MODULE, MAYBE A SWITCH
.ETC. (NLN,.EC) ;[1174]
.ETC. (STR,.EC,,,,,<Detected in module >) ;[1174]
.ETC. (SBX,.EC!.EP,,,,PRGNAM) ;[1174]
.ETC. (STR,.EC,,,,,< from file >) ;[1174]
.ETC. (FSP,.EC,,,,DC) ;[1174]
.ETC. (RTN) ;[1174]
IFN .NWBLK,<
.ETNMF::.ETC. (XCT,.EC,,,,<[TRNN FL,R.LOD]>) ;[1174]
.ETC. (RTN) ;[1174] NO MODULE, MAYBE A SWITCH
.ETC. (NLN,.EC) ;[1174]
.ETC. (STR,.EC,,,,,<Error detected in module >) ;[1174]
.ETC. (LSP,.EC!.EP,,,,NAMPTR) ;[1174]
.ETC. (STR,.EC,,,,,< from file >) ;[1174]
.ETC. (FSP,.EC,,,,DC) ;[1174]
.ETC. (RTN) ;[1174]
> ;[1174] END OF IFN .NWBLK
IFN FTOVERLAY,<
;PRINT ' LINK NUMBER n[, NAME x]'.
.ETLNN::.ETC. (STR,.EC,,,,,< link number >) ;[1174]
.ETC. (DEC,.EC!.EP,,,,CS.NUM) ;[1174]
.ETC. (XCT,.EC,,,,<[SKIPN CS.LNM]>) ;[1174]
.ETC. (RTN) ;[1174] DON'T PRINT NAME IF NONE
.ETC. (STR,.EC,,,,,< name >) ;[1174]
.ETC. (SBX,.EC!.EP,,,,CS.LNM) ;[1174]
.ETC. (RTN)
>
;PRINT SYMBOLS WITH VALUES. THIS IS CALLED FROM VARIOUS PLACES, SUCH AS /ENTRY,
;/REQUEST, /UNDEFINED. THIS IS A LOOP THAT PRINTS ALL APPLICABLE SYMBOLS UNTIL
;DONE.
;
;CALL:
; W1/ SIXBIT SYMBOL NAME
; W2/ OCTAL SYMBOL VALUE
; NXTGLB/ <PUSHJ P,LOCN>, WHERE LOCN IS NEXT SYMBOL ROUTINE
;W3 IS SAVED AND CAN BE USED FOR DATA. THE ROUTINE REFERENCED IN NXTGLB SHOULD
;GIVE A NON-SKIP RETURN IF THERE ARE NO MORE SYMBOLS. OTHERWISE, IT SHOULD GIVE
;A SKIP RETURN WITH W1-W3 SET UP AS ABOVE.
.ETSAV::.ETC. (NLN,.EC) ;[1174] NEW LINE FOR NEXT SYMBOL
.ETC. (SBX,.EC!.EP,,,,W1) ;[1174] PRINT SYMBOL NAME
.ETC. (ASC,.EC,,,,.CHTAB) ;[1174]
.ETC. (OCT,.EC!.EP,,,,W2) ;[1174] PRINT SYMBOL VALUE
.ETC. (XCT,.EC,,,,NXTGLB) ;[1174] FETCH NEXT SYMBOL
.ETC. (JMP,.EC,,,,.ETDON) ;[1174] NO MORE LEFT
.ETC. (JMP,.EC,,,,.ETSAV) ;[1174] LOOP FOR THIS ONE
.ETDON::.ETC. (NOP) ;[1174] DONE
POPJ P, ;[1174] ALL DONE
SUBTTL THE END
LOGLIT: END