ERROR IDENT ERROR ERROR 1 TITLE RUN-TIME ERROR PROCESSING ERROR 2 * FOR A LISTING OF THE SNODEF COMDECK, CALLED BELOW, SEE MAINLUP. ERROR 3 LIST -L ERROR 4 *CALL,SNODEF ERROR 5 LIST L ERROR 6 * ERROR 7 * ERROR ERROR 8 ENTRY ADDS1,SUBTRS,DIVS,MULTS,EXP ERROR 9 ENTRY FATBUMP ERROR 10 ENTRY RTERROR,FILEWD,SJCALL ERROR 11 ENTRY MSGOUT ERROR 12 * UTILITY ERROR 13 EXT ICX1X6 ERROR 14 * IO ERROR 15 EXT ABT,PUTWD ERROR 16 * ERROR 17 TITLE ERROR CALLS ERROR 18 ERR32 ERROR 32 ERROR 19 ADDS1 EQU ERR32 ERROR 20 SUBTRS EQU ERR32 ERROR 21 MULTS EQU ERR32 ERROR 22 DIVS EQU ERR32 ERROR 23 EXP EQU ERR32 ERROR 24 * ERROR 25 NOEND ERROR 0 ERROR 26 ERR2 ERROR 2 ERROR 27 ERR3 ERROR 3 ERROR 28 ERR4 ERROR 4 ERROR 29 ERR6 ERROR 6 ERROR 30 ERR7 ERROR 7 ERROR 31 ERR9 ERROR 9 ERROR 32 ERR13 ERROR 13 ERROR 33 ERR14 ERROR 14 ERROR 34 ERR17 ERROR -17 ERROR 35 ERR19 ERROR 19 ERROR 36 ERR21 ERROR 21 ERROR 37 ERR24 ERROR 24 ERROR 38 ERR27 ERROR 27 ERROR 39 ERR28 ERROR 28 ERROR 40 ERR29 ERROR 29 ERROR 41 ERR30 ERROR 30 ERROR 42 ERR31 ERROR 31 ERROR 43 ERR35 ERROR 35 ERROR 44 ERR37 ERROR 37 ERROR 45 ERR38 ERROR 38 ERROR 46 ERR39 ERROR 39 ERROR 47 ERR40 ERROR 40 ERROR 48 ERR42 ERROR 42 ERROR 49 ERR44 ERROR 44 ERROR 50 ERR48 ERROR 48 ERROR 51 ERR49 ERROR 49 ERROR 52 ERR50 ERROR 50 ERROR 53 ERR52 ERROR 52 ERROR 54 ERR53 ERROR 53 ERROR 55 ERR55 ERROR 55 ERROR 56 ERR56 ERROR 56 ERROR 57 ERR57 ERROR 57 ERROR 58 ERR59 ERROR 59 ERROR 59 * ERROR 60 FATBUMP STREAM OUTSTRM . OUT OF SPACE DURING COMPILATION ERROR 61 BX6 X6-X6 ERROR 62 RJ PUTWD . GUARANTEE ZERO BYTE FOR LAST LINE ERROR 63 ERROR -54 ERROR 64 TITLE RUN-TIME ERROR MESSAGE PRINTOUT ERROR 65 * SB5 ERROR.NUMBER . THIS IS THE CALLING SEQUENCE ERROR 66 * JP RTERROR . GENERATED BY THE @ERROR@ MACRO ERROR 67 * ERROR 68 * WE PRINT AN ERROR TERMINATION MESSAGE, INCLUDING STATEMENT NUMBER, ERROR 69 * FUNCTION CALL LEVEL, AND A DIAGNOSTIC. THIS INFORMATION GOES TO THE ERROR 70 * STANDARD OUTPUT FILE AND TO THE DAYFILE. THE DIAGNOSTIC TEXTS ARE INERROR 71 * AN OVERLAY, PRECEDED BY AN INDEX OF MESSAGE POINTERS PACKED TWO/WORD.ERROR 72 * THIS OVERLAY IS LOADED ON TOP OF UNNEEDED SNOBOL SYSTEM CODE. ERROR 73 * ERROR 74 RTERROR SA1 LCALL . RA+1 REQUEST WORD FOR THE LOADER ERROR 75 BX6 X1 ERROR 76 BX7 X7-X7 . WHEN LOADING IS COMPLETE, CELL 67B ERROR 77 SA7 67B . WILL BE SET NONZERO ERROR 78 SA6 1 . ISSUE REQUEST ERROR 79 RTERRL1 SA1 1 . AND WAIT FOR ERROR 80 NZ X1,RTERRL1 . MONITOR TO SEE IT ERROR 81 RTERRL2 RCL . USE PERIODIC RECALL ERROR 82 SA1 67B . TO BLOCK UNTIL ERROR 83 ZR X1,RTERRL2 . THE OVERLAY IS LOADED ERROR 84 * ERROR 85 STREAM OUTSTRM . SET B2 = OUTPUT FILE BLOCK ERROR 86 * ERROR 87 SA1 TERMMSG . =10H1ERROR TER ERROR 88 SA4 A1+1 . =8LMINATION ERROR 89 BX6 X1 ERROR 90 SX5 61B . =(1R1 EXOR 1R ) ERROR 91 LX5 60-6 ERROR 92 BX7 X1-X5 . REMOVE EJECT CARRIAGE CONTROL CHAR ERROR 93 SA7 A1 . FOR THE DAYFILE VERSION ERROR 94 RJ PUTWD ERROR 95 BX6 X4 ERROR 96 RJ PUTWD ERROR 97 SX6 TERMMSG ERROR 98 CALL MSGOUT ERROR 99 * ERROR 100 * IF B5<0, THE SNOBOL SYSTEM IS IN A BAD STATE; STATEMENT NUMBER AND ERROR 101 * LEVEL ARE NOT PRINTED. ERROR 102 * ERROR 103 NG B5,RTERRPD . GO PRINT DIAGNOSTIC ERROR 104 SX1 1 . INITIALIZE STATEMENT NUMBER = 1 ERROR 105 SB1 A5 . MICOP POINTER ERROR 106 SA2 CODLIST . HEAD OF LIST OF CODE BLOCKS ERROR 107 NEXTBLOK SA3 X2 . FETCH NEXT CODE BLOCK HEADER ERROR 108 SB3 X2 ERROR 109 SX2 X3 . F1 IS LINK ERROR 110 AX3 18 . F2 IS BYPASS ERROR 111 SB4 X3-1 ERROR 112 SB4 B3+B4 . INITIALIZE B4 = ADDR. OF FIRST MIC.ERROR 113 NEXTMICW EQ B1,B4,FOUNDRUL . FOUND CURRENT POSITION ERROR 114 SA3 B4+0 ERROR 115 PL X3,CKENDBLK . NOT END OF RULE ERROR 116 SX1 X1+1 . INCREMENT STATEMENT NUMBER ERROR 117 CKENDBLK SB4 B4-1 ERROR 118 GT B4,B3,NEXTMICW . MORE MICOPS, THIS BLOCK ERROR 119 NZ X2,NEXTBLOK . MORE BLOCKS ERROR 120 JP 400000B+* . SYSTEM ERROR, A5 OUT OF RANGE ERROR 121 * ERROR 122 FOUNDRUL BX5 X5-X5 . INITIALIZE FNCLEVEL = 0 ERROR 123 SA2 B6 . THIS LOOP ERROR 124 ZR X2,FOUNDBOT . IS LIKE THE ERROR 125 CKCALL PL X2,NEXTSTKE . ONE USED ERROR 126 SX5 X5+1 . BY STANDARD ERROR 127 NEXTSTKE SB1 X2 . PROCEDURE FNCLEVEL() ERROR 128 SA2 A2-B1 . IN THE ASSEMBLY ERROR 129 NZ X2,CKCALL . PROCS ERROR 130 * ERROR 131 FOUNDBOT RJ ICX1X6 . BINARY IN X1 => STRING IN X6 ERROR 132 SA1 STNOMSG . =10H IN STATEM ERROR 133 SA4 A1+1 . =4LENT ERROR 134 LX6 60-4*6 . RIGHT SHIFT 4 CHARACTER POSITIONS ERROR 135 BX4 X4+X6 ERROR 136 BX7 X4 ERROR 137 BX6 X1 ERROR 138 SA7 A4 ERROR 139 RJ PUTWD . (SAVES X4,X5) ERROR 140 BX6 X4 ERROR 141 RJ PUTWD ERROR 142 SX6 STNOMSG ERROR 143 CALL MSGOUT ERROR 144 BX1 X5 . FNCLEVEL ERROR 145 RJ ICX1X6 ERROR 146 SA1 FNCLMSG . =10H AT LEVEL ERROR 147 SA6 A1+1 ERROR 148 BX4 X6 ERROR 149 BX6 X1 ERROR 150 RJ PUTWD ERROR 151 BX6 X4 ERROR 152 RJ PUTWD ERROR 153 SB5 -B5 . HERE TWO WRONGS MAKE A RIGHT ERROR 154 SX6 FNCLMSG ERROR 155 CALL MSGOUT ERROR 156 * ERROR 157 ERROR 158 RTERRPD SX1 -B5 . -(-ERROR.NUMBER) ERROR 159 LX1 60-1 . RIGHT CYCLE X1 BY 1 BIT ERROR 160 SA4 RTEDIR+X1 ERROR 161 BX6 X6-X6 ERROR 162 NG X1,RTERRINI . EVEN ERROR NUMBERS OCCUPY ERROR 163 LX4 30 . UPPER HALVES OF DIRECTORY WORDS ERROR 164 RTERRINI SX4 RTEDIR+X4 . ABSOLUTE TEXT POINTER ERROR 165 SB1 X4 . COPY IT ERROR 166 MX5 60-12 . COMPLEMENT OF A 1-BYTE MASK ERROR 167 RJ PUTWD . OUTPUT A BLANK LINE ERROR 168 * ERROR 169 RTERRLUP SA1 B1 . PRINT OUT ERROR 170 SB1 B1+1 . THE ERROR ERROR 171 BX6 X1 . MESSAGE, WHICH ERROR 172 RJ PUTWD . ENDS WITH ERROR 173 BX2 -X5*X6 . A ERROR 174 NZ X2,RTERRLUP . ZERO BYTE ERROR 175 * ERROR 176 SX6 X4 . TEXT POINTER ERROR 177 CALL MSGOUT,,ABT . SEND MESSAGE TO DAYFILE AND ABORT ERROR 178 * ERROR 179 * ERROR 180 LCALL VFD 18/3LLDR,42/SJCALL ERROR 181 * ERROR 182 SJCALL VFD 42/0LSNOJOB,18/0 ******* 1 VFD 6/1,6/0,5/0,1/1,1/1,41/RTEDIR-1 ERROR 184 VFD 60/0 ERROR 185 * ERROR 186 FILEWD VFD 6/1,6/0,6/0,1/1,41/RTEDIR-1 ERROR 187 * ERROR 188 * ERROR 189 TERMMSG DATA 10H1ERROR TER ERROR 190 DATA 8LMINATION ERROR 191 * ERROR 192 STNOMSG DATA 10H IN STATEM ERROR 193 DATA 4LENT ERROR 194 * ERROR 195 FNCLMSG DATA 10H AT LEVEL ERROR 196 DATA 0 ERROR 197 * ERROR 198 * ERROR 199 * MSGOUT ERROR 200 * ERROR 201 * PARAMETERS: X6 = ADDRESS OF MESSAGE FOR THE DAYFILE ERROR 202 * B1 = RETURN ERROR 203 * ERROR 204 * USES: A1/X1, A6/X6, A7/X7 ERROR 205 * ERROR 206 MSGOUT SA1 MSGCALLR . RA+1 REQUEST WORD, RECALL BIT ON ERROR 207 BX7 X1+X6 ******* 2 SA7 1 . ISSUE REQUEST ERROR 211 MSGOUTL SA1 1 ERROR 212 NZ X1,MSGOUTL ERROR 213 JP B1 ERROR 214 * ERROR 215 MSGCALLR VFD 24/0LMSGP,18/0,18/0 ******* 3 * ERROR 217 * ERROR 218 BSS 1 . OVERLAY 50-TABLE WORD LANDS HERE ERROR 219 RTEDIR BSS 0 . ORIGIN FOR THE TEXTS OVERLAY ERROR 220 * ERROR 221 * ERROR 222 END ERROR 223