File: TECERR.LS of Disk: V50/Source/Source-Listing-MAC-2
(Source file text)
PAGE LINE SUBTITLE
2 36 . Error overlay
8 271 . Error message initialization
24 698 . Help code
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 1
FILE # 1
1 /9 TECO ERROR MESSAGE MODULE V50
2
3 / 10-APR-79 MADE HLPBUF NOT LOAD INTO 7400
4
5 /GERMAN=1 not anymore
6 .ENABLE 7BIT
7
8 .GLOBAL ERRYY,HLPADR,HLPSYS,NEWERR,XERBAS
9 .GLOBAL CDF4F,CIF4A,CIF4B,CIF4C,HCDF1
10 .GLOBAL QMK,XH,CIF4E,VTSUP
11 .EXTERNAL IOVRLC,QOVRLC,XOVRLC,FOVRLC
12 .ZTERNAL N,XR,SCANP
13 .EXTERNAL QPNTR
14 .EXTERNAL ERRXX
15 .EXTERNAL TYPE,PUTT,CRLF
16 .EXTERNAL EHFLAG,ETFLAG
17 .EXTERNAL MEMLOC
18 .EXTERNAL CTL.C
19 .EXTERNAL STABLE
20 .ZTERNAL LASTC,MEMSIZ
21 .EXTERNAL OVREAD
22 .EXTERNAL ERR01,ERR02,ERR03,ERR04,ERR05,ERR06,ERR07,ERR08
23 .EXTERNAL ERR09,ERR10,ERR11,ERR12,ERR13,ERR14,ERR15,ERR16
24 .EXTERNAL ERR17,ERR18,ERR19,ERR20,ERR21,ERR22,ERR23,ERR24
25 .EXTERNAL ERR25,ERR26,ERR27,ERR28,ERR29,ERR30,ERR31,ERR32
26 .EXTERNAL ERR33,ERR34,ERR35,ERR36,ERR37,ERR38,ERR39,ERR40
27 .EXTERNAL ERR41
28 .EXTERNAL ERRRET
29 .EXTERNAL S.NOT,S.SEP,S.ANY
30 .ZTERNAL Z77,Z200,Z177,ZQPNTR,Z40
31 .EXTERNAL RESORT,NOTRCE,SCAN,T0
32 .ZTERNAL QLENGTH,ERROR
33 .ZTERNAL SCHAR
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 2
FILE # 1
34
35
36 .SBTTL . Error overlay
37
38 0200 .ASECT TECERR
39
40 6200 *6200 /BE SURE TO FIX CDF LABELS IF RELOCATION CHANGED
41
42 6200 RELOC 3200
43
44 03200* 0000 * IOVRLC
45 03201* 0000 * QOVRLC
46 03202* 0000 EOVRLY, 0
47 03203* 0000 * XOVRLC
48 03204* 0000 * FOVRLC
49
50 03205* 3000 * ERRYY, DCA N
51 03206* 1377 TAD (ERLIST-1
52 03207* 3000 * DCA XR
53 03210* 2000 * ERLOOP, ISZ N /BUMP ERROR NUMBER
54 03211* 1400 * TAD I XR
55 03212* 7440 SZA /END OF LIST?
56 03213* 1776 TAD I (ERRXX /NO - CHECK FOR MATCH
57 03214* 7640 SZA CLA /FOUND WHAT WE WANTED?
58 03215* 5210 JMP ERLOOP /NO - KEEP LOOKING
59 03216* 1000 * TAD N
60 03217* 7104 CLL RAL /MULTIPLY BY 2
61 03220* 1375 TAD (ERBASE-2
62 03221* 3312 DCA PTR
63 03222* 1712 TAD I PTR /GET FIRST WORD OF ERR MSG
64 03223* 7710 SPA CLA
65 03224* 5264 JMP CTCT /^C TRAP
66 03225* 1000 * ERL2, TAD Z77
67 03226* 0000 * TYPE
68 03227* 1712 TAD I PTR
69 03230* 4300 JMS TWO
70 03231* 2312 ISZ PTR
71 03232* 1712 TAD I PTR
72 03233* 4300 JMS TWO
73 03234* 1774 TAD I (EHFLAG
74 03235* 0373 AND (3 /ISOLATE HELP LEVEL BITS
75 03236* 1372 TAD (-1
76 03237* 7650 SNA CLA /0, 2, OR 3 MEANS USE LONG MESSAGES
77 03240* 5254 JMP ERET
78 6241 VTSUP=.-3200+6200
79 03241* 7344 CLL STA RAL /-2 (-3 IF VT SUPPORT)
80 03242* 1000 * TAD MEMSIZ
81 03243* 7710 SPA CLA
82 03244* 5254 JMP ERET /NO LONG ERROR MESSAGE UNLESS 16K OR MORE
83 03245* 4300 JMS TWO /PRINT TWO SPACES
84 6246 CIF4B=.-3200+6200
85 03246* 6232 CIF 30
86 03247* 4771 JMS I (EE2 /DO MORE ERROR STUFF
87 03250* 1774 TAD I (EHFLAG /CHECK FOR 4EH
88 03251* 0370 AND (4
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 2-1
. Error overlay FILE # 1
89 03252* 7640 SZA CLA
90 03253* 0000 * CRLF /DO AN EXTRA CR/LF IF AUTO ? AND LONG ERROR MSGS
91 03254* 1767 ERET, TAD I (ETFLAG
92 03255* 0000 * AND Z200
93 03256* 7640 SZA CLA /CHECK FATAL BIT
94 03257* 5766 JMP I (CTL.C /RETURN TO OS/8
95 03260* 1000 * TAD SCANP /RETURN TO TECO
96 03261* 7041 CIA
97 03262* 3776 DCA I (ERRXX /SET ERRXX TO CHAR POSITION OF ERROR CHAR.
98 03263* 5765 JMP I (ERRRET
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 3
. Error overlay FILE # 1
99
100
101 03264* 0003 CTCT, 003 /CTRL/C ERROR MESSAGE
102 03265* 1264 TAD CTCT /PATCH (NO KRS AFTER KCC)
103 03266* 0000 * TYPE /PRINT IT
104 03267* 0000 * CRLF /AND CR LF
105 03270* 1400 * TAD I ZQPNTR
106 03271* 7640 SZA CLA
107 03272* 5225 JMP ERL2 /PRINT XAB ERROR MESSAGE
108 / MTHREE
109 / TAD CHAR /LOOK AT PREVIOUS CHARACTER
110 / SZA CLA
111 / JMP ERET /ONE ^C DO NOTHING
112 03273* 5766 JMP I (CTL.C /TWO ^C'S, ABORT
113
114 03274* 0000 PUTTX, 0
115 03275* 0000 * PUTT
116 6276 CIF4C=.-3200+6200
117 03276* 6233 CIF CDF 30
118 03277* 5674 JMP I PUTTX
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 4
. Error overlay FILE # 1
119
120
121 03300* 0000 TWO, 0
122 03301* 3313 DCA TTWO
123 03302* 1313 TAD TTWO
124 03303* 7012 RTR
125 03304* 7012 RTR
126 03305* 7012 RTR
127 03306* 4314 JMS SIXTYP
128 03307* 1313 TAD TTWO
129 03310* 4314 JMS SIXTYP
130 03311* 5700 JMP I TWO
131
132 03312* 3314 PTR, SIXTYP
133 03313* 3232 TTWO, 'ZZ
134 03314* 3232 SIXTYP, 'ZZ /NULL ERROR MESSAGE
135 03315* 0364 AND (37 /IGNORE SIGN BIT OF BYTE
136 03316* 7450 SNA /TREAT 0 AS MEANING SPACE
137 03317* 1000 * TAD Z40
138 03320* 1363 TAD (-37
139 03321* 7450 SNA
140 03322* 4330 JMS G$ /- MEANS LAST CHARACTER
141 03323* 1000 * TAD Z77
142 03324* 0000 * AND Z77
143 03325* 1000 * TAD Z40
144 03326* 0000 * PUTT
145 03327* 5714 JMP I SIXTYP
146
147 03330* 0000 G$: 0
148 03331* 1000 * TAD LASTC
149 03332* 1363 TAD (-37
150 03333* 5730 JMP I G$
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 5
. Error overlay FILE # 1
151
152
153 03334* 1400 * QMK, TAD I ERROR
154 03335* 7650 SNA CLA /ERROR ROUTINE ENTRY POINT NON-ZERO?
155 03336* 0000 * RESORT /NO
156 03337* 1000 * TAD Z77 /TYPE "?"
157 03340* 0000 * TYPE
158 03341* 7240 STA /AN ERROR PRINTOUT
159 03342* 3000 * DCA QLENGT /SET QLENGT BIG SO WE CAN ACCESS ENTIRE LINE
160 03343* 0000 * NOTRCE /TURN TRACE OFF
161 03344* 3000 * DCA SCANP /NEEDED IN CASE OF AUTO ? (4EH)
162 03345* 0000 * 1$: SCAN
163 03346* 0000 * TYPE /PRINT OUT THE LINE WHICH CAUSED THE ERROR
164 03347* 2400 * ISZ I ERROR /UP TO THE ERROR CHAR ITSELF
165 03350* 5345 JMP 1$
166 03351* 1000 * TAD Z77 /NOW TYPE TRAILING "?"
167 03352* 0000 * TYPE
168 03353* 5762 JMP I (T0 /RE-INITIALIZE
169
170 03354* 1000 * XH, TAD SCHAR
171 03355* 0000 * TYPE
172 6356 CIF4E=.-3200+6200
173 03356* 6233 CIF CDF 30
174 03357* 5761 JMP I (XHELP
------
03361* 6732
03362* 0000 *
03363* 7741
03364* 0037
03365* 0000 *
03366* 0000 *
03367* 0000 *
03370* 0004
03371* 6642
03372* 7777
03373* 0003
03374* 0000 *
03375* 3450
03376* 0000 *
03377* 3377
175 6400 PAGE
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 6
. Error overlay FILE # 1
176
177
178 03400* **** * ERLIST, -ERR01-1 /LIST OF POINTERS TO ALL POSSIBLE
179 03401* **** * -ERR02-1 /CALLS TO THE ERROR ROUTINE.
180 03402* **** * -ERR03-1
181 03403* **** * -ERR04-1
182 03404* **** * -ERR05-1
183 03405* **** * -ERR06-1
184 03406* **** * -ERR07-1
185 03407* **** * -ERR08-1
186 03410* **** * -ERR09-1
187 03411* **** * -ERR10-1
188 03412* **** * -ERR11-1
189 03413* **** * -ERR12-1
190 03414* **** * -ERR13-1
191 03415* **** * -ERR14-1
192 03416* **** * -ERR15-1
193 03417* **** * -ERR16-1
194 03420* **** * -ERR17-1
195 03421* **** * -ERR18-1
196 03422* **** * -ERR19-1
197 03423* **** * -ERR20-1
198 03424* **** * -ERR21-1
199 03425* **** * -ERR22-1
200 03426* **** * -ERR23-1
201 03427* **** * -ERR24-1
202 03430* **** * -ERR25-1
203 03431* **** * -ERR26-1
204 03432* **** * -ERR27-1
205 03433* **** * -ERR28-1
206 03434* **** * -ERR29-1
207 03435* **** * -ERR30-1
208 03436* **** * -ERR31-1
209 03437* **** * -ERR32-1
210 03440* **** * -ERR33-1
211 03441* **** * -ERR34-1
212 03442* **** * -ERR35-1
213 03443* **** * -ERR36-1
214 03444* **** * -ERR37-1
215 03445* **** * -ERR38-1
216 03446* **** * -ERR39-1
217 03447* **** * -ERR40-1
218 03450* **** * -ERR41-1
219 03451* 0000 0 /ERROR 42 - UNLABELED ERROR - NAMELY "JMS I OUTR"
220 /** MUST BE LAST ERROR MESSAGE
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 7
. Error overlay FILE # 1
221
222
223 03452* 1114 ERBASE, TEXT /ILL/ /1 ILLEGAL COMMAND
03453* 1400
224 03454* 2524 TEXT /UTC/ /2 UNTERMINATED COMMAND
03455* 0300
225 03456* 1121 TEXT /IQN/ /3 ILLEGAL Q-REGISTER NAME
03457* 1600
226 03460* 2004 TEXT /PDO/ /4 INTERNAL PUSH DOWN OVERFLOW (RECURSION)
03461* 1700
227 03462* 1505 TEXT /MEM/ /5 MEMORY OVERFLOW
03463* 1500
228 03464* 2324 TEXT /STL/ /6 SEARCH STRING TOO LONG
03465* 1400
229 03466* 0122 TEXT /ARG/ /7 ARGUMENT ERROR
03467* 0700
230 03470* 1106 TEXT /IFN/ /8 ILLEGAL FILE NAME
03471* 1600
231 03472* 2316 TEXT /SNI/ /9 SEMICOLON NOT IN ITERATION
03473* 1100
232 03474* 0216 TEXT /BNI/ /10 CLOSE BRACKET NOT IN ITERATION
03475* 1100
233 03476* 2017 TEXT /POP/ /11 POINTER OFF PAGE
03477* 2000
234 03500* 2115 TEXT /QMO/ /12 Q-REGISTER MEMORY OVERFLOW
03501* 1700
235 03502* 2524 TEXT /UTM/ /13 UNTERMINATED MACRO
03503* 1500
236 03504* 1725 TEXT /OUT/ /14 OUTPUT ERROR
03505* 2400
237 03506* 1116 TEXT /INP/ /15 INPUT ERROR
03507* 2000
238 03510* 0605 TEXT /FER/ /16 FILE ERROR
03511* 2200
239 03512* 0625 TEXT /FUL/ /17 OUTPUT COMMAND WOULD HAVE OVERFLOWED
03513* 1400
240 03514* 1601 TEXT /NAY/ /18 NEGATIVE ARGUMENT TO Y
03515* 3100
241 03516* 1105 TEXT /IEC/ /19 ILLEGAL E CHARACTER
03517* 0300
242 03520* 1121 TEXT /IQC/ /20 ILLEGAL " CHARACTER
03521* 0300
243 03522* 1601 TEXT /NAE/ /21 NO ARGUMENT BEFORE =
03523* 0500
244 03524* 1601 TEXT /NAU/ /22 NO ARGUMENT BEFORE U
03525* 2500
245 03526* 1601 TEXT /NAQ/ /23 NO ARGUMENT BEFORE "
03527* 2100
246 03530* 2322 TEXT /SRH/ /24 FAILING SEARCH
03531* 1000
247 03532* 1601 TEXT /NAP/ /25. NEGATIVE OR 0 ARGUMENT TO P
03533* 2000
248 03534* 1601 TEXT /NAC/ /26. NEGATIVE ARGUMENT TO ,
03535* 0300
249 03536* 1631 TEXT /NYI/ /27. ^W NOT IMPLEMENTED
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 7-1
. Error overlay FILE # 1
03537* 1100
250 03540* 2511 TEXT /UIS/ /28. UNDEFINED I/O SWITCH
03541* 2300
251 03542* 1123 TEXT /ISA/ /29. NEGATIVE OR 0 COUNT TO SEARCH
03543* 0100
252 03544* 2714 TEXT /WLO/ /30. CAN'T WRITE OUT ERROR MESSAGE OVERLAY
03545* 1700
253 03546* 1106 TEXT /IFC/ /31. ILLEGAL F CHARACTER
03547* 0300
254 03550* 3103 TEXT /YCA/ /32. Y COMMAND ABORTED
03551* 0100
255 03552* 0303 TEXT /CCL/ /33. CCL NOT FOUND OR EG TOO BIG
03553* 1400
256 / TEXT /XAB/ /34. EXECUTION ABORTED BY ^C
257 03554* 7001 7001;0200
03555* 0200
258 03556* 1631 TEXT /NYI/ /35. ^V NOT IMPLEMENTED
03557* 1100
259 03560* 2505 TEXT /UE_/ /36. UNIMPLEMENTED E COMMAND
03561* 3700
260 03562* 0424 TEXT /DTB/ /37. DELETE TOO BIG
03563* 0200
261 03564* 2017 TEXT /POP/ /38. REFERENCE TO POINTER OFF PAGE
03565* 2000
262 03566* 1103 TEXT /ICE/ /39. ILLEGAL ^E IN SEARCH STRING
03567* 0500
263 03570* 1601 TEXT /NAB/ /40. NO ARGUMENT BEFORE ^_
03571* 0200
264 03572* 1631 TEXT /NYI/ /41. [ OR ] NOT IMPLEMENTED
03573* 1100
265 03574* 1606 TEXT /NFO/ /42. NO FILE FOR OUTPUT
03575* 1700
266 / MUST BE LAST
267 6600 PAGE
268 6600 RELOC
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 8
. Error overlay FILE # 1
269
270
271 .SBTTL . Error message initialization
272
273 0200 .ASECT TECO.1
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 9
. Error message initialization FILE # 1
274
275
276 0001 FIELD 1
277
278 4400 *4400
279
280 14400 4452 XERBAS, XER1
281 14401 4474 XER2
282 14402 4521 XER3
283 14403 4553 XER4
284 14404 4607 XER5
285 14405 4641 XER6
286 14406 4672 XER7
287 14407 4715 XER8
288 14410 4755 XER9
289 14411 4755 XER9
290 14412 5003 XER11
291 14413 5053 XER12
292 14414 5106 XER13
293 14415 5131 XER14
294 14416 5146 XER15
295 14417 5162 XER16
296 14420 5175 XER17
297 14421 5242 XER18
298 14422 5270 XER19
299 14423 5324 XER20
300 14424 5360 XER21
301 14425 5405 XER22
302 14426 5405 XER22
303 14427 5432 XER24
304 14430 5452 XER25
305 14431 5511 XER26
306 14432 5540 XER27
307 14433 5633 XER28
308 14434 5452 XER25
309 14435 5660 XER30
310 14436 5727 XER31
311 14437 5763 XER32
312 14440 6005 XER33
313 14441 6055 XER34
314 14442 6077 XER35
315 14443 6174 XER36
316 14444 6236 XER37
317 14445 6255 XER38
318 14446 6324 XER39
319 14447 6402 XER40
320 14450 6430 XER41
321 14451 6474 XER42
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 10
. Error message initialization FILE # 1
322
323
324 .NOLIST BE
325 .ENABLE ASCII
326 .IF NDF GERMAN <
327 14452 0111 XER1, TEXT "Illegal Command @"
328 14474 0125 XER2, TEXT "Unterminated Command"
329 14521 0111 XER3, TEXT "Illegal Q-register Name @"
330 14553 0111 XER4, TEXT "Internal Push Down Overflow"
331 14607 0123 XER5, TEXT "Storage Capacity Exceeded"
332 14641 0123 XER6, TEXT "Search String too Long +"
333 14672 0111 XER7, TEXT "Improper Arguments"
334 14715 0111 XER8, TEXT "Illegal Character @ in Filename"
335 14755 0100 XER9, TEXT "@ not in an Iteration" /;
336 15003 0101 XER11, TEXT "Attempt to Move Pointer Off Page with @"
337 15053 0121 XER12, TEXT "Q-register Memory Overflow"
338 15106 0125 XER13, TEXT "Unterminated Macro"
339 15131 0117 XER14, TEXT "Output Error"
340 15146 0111 XER15, TEXT "Input Error"
341 15162 0106 XER16, TEXT "File Error"
342 15175 0117 XER17, TEXT "Output Command would have Overflowed"
343 15242 0116 XER18, TEXT "Numeric Argument to Y"
344 15270 0111 XER19, TEXT "Illegal Character @ after E"
345 15324 0111 XER20, TEXT \Illegal Character @ after "\
346 15360 0116 XER21, TEXT "No Argument before ="
347 15405 0116 XER22, TEXT "No Argument before @" /U
348 /XER23, TEXT \No Argument before"\ /"
349 15432 0123 XER24, TEXT "Search failed +"
350 15452 0116 XER25, TEXT "Negative or Zero Argument to @" /P
351 15511 0116 XER26, TEXT "Negative argument to ,"
352 15540 0103 XER27, TEXT "Case Support not Implemented"<15><12><11><177><177>
353 5601 *.-1
354 15601 0133 TEXT "[use W for Watch Command]"
355 15633 0125 XER28, TEXT "Undefined I/O Switch"
356 /XER29, TEXT "Negative or Zero Argument to S" /S
357 15660 0103 XER30, TEXT "Cannot Write Out Error Message Overlay"
358 15727 0111 XER31, TEXT "Illegal Character @ after F"
359 15763 0100 XER32, TEXT "@ Command Aborted"
360 16005 0103 XER33, TEXT "CCL.SV not found or EG argument too big"
361 16055 0105 XER34, TEXT "Execution aborted"
362 16077 0103 XER35, TEXT "Case Support not Implemented"<15><12><11><177><177>
363 6140 *.-1
364 16140 0133 TEXT "[use EO for Version number]"
365 16174 0125 XER36, TEXT "Unimplemented character @ after E"
366 16236 0104 XER37, TEXT "Delete too big"
367 16255 0122 XER38, TEXT "Reference to Pointer position Off Page"
368 16324 0105 XER39, TEXT "Extended CTRL/E match control not implemented"
369 16402 0116 XER40, TEXT "No Argument Before ^_"
370 16430 0125 XER41, TEXT "Unimplemented Push or Pop Command @"
371 16474 0116 XER42, TEXT "No File for Output"
372 >
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 11
. Error message initialization FILE # 1
373
374
375 .IF DF GERMAN <
376 XER1, TEXT "Falscher Befehl @"
377 XER2, TEXT "Befehl unvollstaendig"
378 XER3, TEXT "Falscher Q-Register-Name @"
379 XER4, TEXT "Zu tiefe Verschachtelung"
380 XER5, TEXT "Text-Puffer voll"
381 XER6, TEXT "Such-Text zu lang: +"
382 XER7, TEXT "Unzulaessige Argumente"
383 XER8, TEXT "Falsches Zeichen @ im Dateinamen"
384 XER9, TEXT "@ nicht in Iterationsschleife"
385 XER11, TEXT "Befehl @ ausserhalb Textbereich"
386 XER12, TEXT "Q-Register-Puffer voll"
387 XER13, TEXT "Makro mit unvollst. Befehl"
388 XER14, TEXT "Schreibfehler"
389 XER15, TEXT "Lesefehler"
390 XER16, TEXT "Dateifehler"
391 XER17, TEXT "Ausgabe-Datei voll"
392 XER18, TEXT "Y mit numerischem Argument"
393 XER19, TEXT "Falsches Zeichen @ nach E"
394 XER20, TEXT \Falsches Zeichen @ nach "\
395 XER21, TEXT "Kein Wert vor ="
396 XER22, TEXT "Kein Wert vor @"
397 /XER23, TEXT \No Argument before"\
398 XER24, TEXT "Nicht gefunden: +"
399 XER25, TEXT "Wert kleiner-gleich 0 vor @"
400 XER26, TEXT "Negativer Wert vor ,"
401 XER27, TEXT "Keine Zeichenwandlung in TECO8"<15><12><11><177><177>
402 *.-1
403 TEXT "[benutze W fuer Watch]"
404 XER28, TEXT "Unbekannte Dateibefehl-Auswahl"
405 /XER29, TEXT "Wert kleiner-gleich 0 vor S"
406 XER30, TEXT "Sytem-Geraet schreibgesperrt"
407 XER31, TEXT "Falsches Zeichen @ nach F"
408 XER32, TEXT "@-Befehl abgebrochen"
409 XER33, TEXT "CCL.SV nicht da oder EG-Befehl zu lang"
410 XER34, TEXT "^C-Abbruch"
411 XER35, TEXT "Keine Zeichenwandlung in TECO8"<15><12><11><177><177>
412 *.-1
413 TEXT "[benutze EO= fuer Versionszahl]"
414 XER36, TEXT "Unbekanntes Zeichen @ nach E"
415 XER37, TEXT "Loeschbefehl zu gross"
416 XER38, TEXT "Zeiger zeigt ausserhalb Textbereich"
417 XER39, TEXT "Keine CTRL/E-Vergleiche in TECO8"
418 XER40, TEXT "Kein Wert vor ^_"
419 XER41, TEXT "TECO8 hat keine Push-oder Pop-Befehle @"
420 XER42, TEXT "Keine Ausgabe-Datei"
421 >
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 12
. Error message initialization FILE # 1
422
423 .ENABLE SIXBIT
424 .LIST BE
425
426 16517 2401 CNVTAB, TEXT "TAB" /11
16520 0200
427 16521 1406 TEXT "LF" /12
16522 0000
428 16523 2624 TEXT "VT" /13
16524 0000
429 16525 0606 TEXT "FF" /14
16526 0000
430 16527 0322 TEXT "CR" /15
16530 0000
431 16531 1617 TEXT "NOT" /16 PSEUDO
16532 2400
432 16533 2305 TEXT "SEP" /17 PSEUDO
16534 2000
433 16535 0116 TEXT "ANY" /20 PSEUDO
16536 3100
434 16537 0523 TEXT "ESC" /21 PSEUDO
16540 0300
435
436 CIF4A,
437 16541 6232 NEWERR, CIF 30 /NEW CODE TO READ OVERLAY
438 16542 **** * OVREAD+2&177+4600/MUST BE 5 LOCS LONG
439 16543 6600 COREAD
440 16544 0000 0 /BLOCK #
441 16545 7000 NOP
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 13
. Error message initialization FILE # 1
442
443
444 6600 IFNZRO .&7600-6600 <PAGE>
445
446 16600 0000 COREAD, 0
447 16601 2200 ISZ COREAD
448 16602 1600 TAD I COREAD /GET BLOCK #
449 16603 0231 AND CO7
450 16604 7112 CLL RTR
451 16605 7012 RTR
452 16606 7010 RAR /MULTIPLY BY 400
453 16607 1234 TAD KMEM
454 16610 3235 DCA FLO
455 16611 1232 TAD M400
456 16612 3230 DCA FLCNT
457 16613 1233 TAD K3200
458 16614 3236 DCA FTO
459 16615 4237 L$: JMS FLERR
460 16616 1635 TAD I FLO
461 16617 6201 CDF 0
462 16620 3636 DCA I FTO
463 16621 2235 ISZ FLO
464 16622 2236 ISZ FTO
465 16623 2230 ISZ FLCNT
466 16624 5215 JMP L$
467 16625 2200 ISZ COREAD
468 16626 6203 CIF CDF 0
469 16627 5600 JMP I COREAD
470
471 16630 0000 FLCNT, 0
472 16631 0007 CO7, 7
473 16632 7400 M400, -400
474 16633 3200 K3200, 3200
475 16634 0000 * KMEM, MEMLOC
476 16635 0000 FLO, 0
477 16636 0000 FTO, 0
478
479
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 14
. Error message initialization FILE # 1
480
481
482 16637 0000 FLERR, 0
483 16640 6231 CDF4F, CDF 30
484 16641 5637 JMP I FLERR
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 15
. Error message initialization FILE # 1
485
486
487 /@ means current character
488 /+ means search string
489 /* means scan character (not yet implemented)
490
491 16642 0000 EE2, 0
492 16643 1777 TAD I (N
493 16644 1376 TAD (XERBAS-1
494 16645 3267 DCA PTR$ /GET PTR TO PTR TO ERROR MSG
495 16646 4237 JMS FLERR
496 16647 1667 TAD I PTR$ /GET PTR TO ERROR MESSAGE
497 16650 3267 DCA PTR$
498 16651 1667 L$: TAD I PTR$
499 16652 7450 SNA
500 16653 5321 JMP EROV
501 16654 1375 TAD (-"@
502 16655 7450 SNA
503 16656 5270 JMP NEGCHR
504 16657 1374 TAD ("@-"+
505 16660 7450 SNA
506 16661 5301 JMP SCHPRT
507 16662 1373 TAD ("+
508 16663 4772 JMS I (XPUTT
509 16664 2267 EE3: ISZ PTR$
510 16665 4237 JMS FLERR
511 16666 5251 JMP L$
512
513 16667 0000 PTR$: 0
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 16
. Error message initialization FILE # 1
514
515
516 16670 1371 NEGCHR, TAD (""
517 16671 4772 JMS I (XPUTT
518 16672 6201 CDF 0
519 16673 1770 TAD I (LASTC
520 16674 4237 JMS FLERR
521 16675 4767 JMS I (XCHAR
522 16676 1371 TAD (""
523 16677 4772 JMS I (XPUTT
524 16700 5264 JMP EE3
525
526 16701 1371 SCHPRT, TAD ("" /PRINT SEARCH STRING ON ENCOUNTERING "+"
527 16702 4772 JMS I (XPUTT
528 16703 1366 TAD (STABLE
529 16704 3320 DCA PTR$
530 16705 6201 L$: CDF 0
531 16706 1720 TAD I PTR$
532 16707 4237 JMS FLERR
533 16710 2320 ISZ PTR$
534 16711 7450 SNA
535 16712 5315 JMP 1$
536 16713 4767 JMS I (XCHAR
537 16714 5305 JMP L$
538 16715 1371 1$: TAD (""
539 16716 4772 JMS I (XPUTT
540 16717 5264 JMP EE3
541
542 16720 0000 PTR$: 0
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 17
. Error message initialization FILE # 1
543
544
545 16721 6201 EROV, CDF 0
546 16722 1765 TAD I (EHFLAG
547 16723 4237 JMS FLERR
548 16724 0364 AND (3 /ISOLATE HELP LEVEL
549 16725 1363 TAD (-3
550 16726 7650 SNA CLA /IS IT WAR AND PEACE MODE?
551 16727 4762 JMS I (HELP /YES
552 16730 6203 CIF CDF 0 /NO, RETURN TO TECO
553 16731 5642 JMP I EE2
554
555 16732 4762 XHELP, JMS I (HELP
556 16733 6203 CIF CDF 0
557 16734 5761 JMP I (T0
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 18
. Error message initialization FILE # 1
558
559
560 16735 **** * CTAB, -S.NOT; 4016
16736 4016
561 16737 **** * -S.SEP; 4017
16740 4017
562 16741 **** * -S.ANY; 4020
16742 4020
563 16743 7745 -33; 4021
16744 4021
564 16745 0000 0
------
16761 0000 *
16762 7203
16763 7775
16764 0003
16765 0000 *
16766 0000 *
16767 7000
16770 0000 *
16771 0042
16772 7075
16773 0053
16774 0025
16775 7700
16776 4377
16777 0000 *
565 7000 PAGE
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 19
. Error message initialization FILE # 1
566
567
568 17000 0000 XCHAR, 0
569 17001 3237 DCA LC
570 17002 1377 TAD (CTAB
571 17003 3236 DCA PTR$
572 17004 1636 2$: TAD I PTR$
573 17005 7450 SNA
574 17006 5217 JMP 3$
575 17007 1237 TAD LC
576 17010 2236 ISZ PTR$
577 17011 7650 SNA CLA
578 17012 5215 JMP 4$
579 17013 2236 ISZ PTR$
580 17014 5204 JMP 2$
581 17015 1636 4$: TAD I PTR$
582 17016 3237 DCA LC
583 17017 1237 3$: TAD LC
584 17020 7510 SPA /PSEDUO-CHARACTERS ARE NEGATIVE
585 17021 5250 JMP SPY
586 17022 1376 TAD (-11
587 17023 7100 CLL
588 17024 1375 TAD (-5
589 17025 7620 SNL CLA
590 17026 5250 JMP SPY /IT'S IN THE RANGE 11-15
591 17027 1237 TAD LC
592 17030 0374 AND (7740
593 17031 7650 SNA CLA
594 17032 5240 JMP CARET /USE CARRET FORM FOR CONTROL CHARS
595 17033 1237 TAD LC
596 17034 4275 JMS XPUTT
597 17035 5600 JMP I XCHAR
598
599 17036 0000 PTR$: 0
600 17037 0000 LC, 0
601
602 17040 1373 CARET, TAD ("<
603 17041 4275 JMS XPUTT
604 17042 1372 TAD ("^
605 17043 4275 JMS XPUTT
606 17044 1371 TAD (100
607 17045 1237 TAD LC
608 17046 4275 JMS XPUTT
609 17047 5312 JMP X2
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 20
. Error message initialization FILE # 1
610
611
612 17050 7350 SPY, STA CLL RAR /AC IS NON-0, FORCE 3777
613 17051 0237 AND LC
614 17052 1376 TAD (-11
615 17053 7104 CLL RAL
616 17054 1370 TAD (CNVTAB
617 17055 3267 DCA W$
618 17056 1373 TAD ("<
619 17057 4275 JMS XPUTT
620 17060 1667 L$: TAD I W$
621 17061 4270 JMS ROTA
622 17062 4301 JMS SIXTY
623 17063 1667 TAD I W$
624 17064 4301 JMS SIXTY
625 17065 2267 ISZ W$
626 17066 5260 JMP L$
627
628 17067 0000 W$: 0
629
630 17070 0000 ROTA, 0
631 17071 7012 RTR
632 17072 7012 RTR
633 17073 7012 RTR
634 17074 5670 JMP I ROTA
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 21
. Error message initialization FILE # 1
635
636
637 17075 0000 XPUTT, 0
638 17076 6203 CIF CDF 0
639 17077 4767 JMS I (PUTTX
640 17100 5675 JMP I XPUTT
641
642 17101 0000 SIXTY, 0
643 17102 0366 AND (77
644 17103 7450 SNA
645 17104 5312 JMP X2
646 17105 1365 TAD (40
647 17106 0366 AND (77
648 17107 1365 TAD (40
649 17110 4275 JMS XPUTT
650 17111 5701 JMP I SIXTY
651 17112 1364 X2, TAD (">
652 17113 4275 JMS XPUTT
653 17114 5600 JMP I XCHAR
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 22
. Error message initialization FILE # 1
654
655
656 17115 0000 HSET, 0
657 17116 6201 CDF 0
658 17117 7240 STA
659 17120 1763 TAD I (PTR
660 17121 3347 DCA P$
661 17122 1747 TAD I P$
662 17123 3345 DCA K1$
663 17124 2347 ISZ P$
664 17125 1747 TAD I P$
665 17126 3346 DCA K2$
666 17127 4762 JMS I (FLERR
667 17130 1361 TAD (HLPBUF+1
668 17131 3347 DCA P$
669 /WANT TO START AT HLPBUF AND FIRST STORE A "?"
670 17132 1345 TAD K1$
671 17133 4270 JMS ROTA
672 17134 0360 AND (37 /?XAB HAS SPECIAL *K*
673 17135 4350 JMS FOOSTO
674 17136 1345 TAD K1$
675 17137 4350 JMS FOOSTO
676 17140 1346 TAD K2$
677 17141 4270 JMS ROTA
678 17142 4350 JMS FOOSTO
679 17143 3747 DCA I P$ /STORE A 0 AT THE END
680 17144 5715 JMP I HSET
681
682 17145 0000 K1$: 0
683 17146 0000 K2$: 0
684 17147 0000 P$: 0
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 23
. Error message initialization FILE # 1
685
686
687 17150 0000 FOOSTO: 0
688 17151 0366 AND (77
689 17152 1365 TAD (40
690 17153 0366 AND (77
691 17154 1365 TAD (40
692 17155 3747 DCA I P$
693 17156 2347 ISZ P$
694 17157 5750 JMP I FOOSTO
------
17160 0037
17161 7375
17162 6637
17163 3312
17164 0076
17165 0040
17166 0077
17167 3274
17170 6517
17171 0100
17172 0136
17173 0074
17174 7740
17175 7773
17176 7767
17177 6735
695 7200 PAGE
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 24
. Error message initialization FILE # 1
696
697
698 .SBTTL . Help code
699
700 17200 0000 HLPADR, 0 /BLOCK # OF FIRST BLOCK OF TECHLP.TXT
701 /IF 0, MEANS NO TECHLP
702 17201 7607 HLPSYS, 7607 /DEVICE WHERE TECHLP.TX IS EXPECTED (SEE TECINI)
703 17202 0004 HLPSIZ, 4 /# OF BLOCKS IN HELP BUFFER
704
705 0000 HELBUF=0 / I/O BUFFER IS 2000 WORDS LONG, 0-1777
706 /IN FIELD OF OVERLAYS
707
708 /*************
709 /
710 / NO LITERALS ALLOWED!
711 /
712 /*************
713
714 /ENTER WITH STRING YOU REQUEST HELP ON IN HLPBUF (TERMINATED WITH 0)
715 /HELP TEXT PRINTS ON TERMINAL UP TO NEXT ESCAPE OR CTRL/Z
716
717 17203 0000 HELP, 0
718 17204 1200 TAD HLPADR
719 17205 7450 SNA /DOES HELP FILE EXIST?
720 17206 5603 JMP I HELP /NO, SORRY GUY
721 17207 3347 DCA HLPBLK /START SEARCHING AT FIRST BLOCK
722 17210 4665 JMS I LHSET
723 17211 1266 TAD L15
724 17212 4667 JMS I LXPUTT
725 17213 1270 TAD L12
726 17214 4667 JMS I LXPUTT /OUTPUT <CR><LF> AT START
727 17215 1271 TAD LHLPINI /INITIALIZE COROUTINES
728 17216 3277 DCA HSEND
729 17217 1202 TAD HLPSIZ /CREATE FUNCTION WORD
730 17220 7112 CLL RTR
731 17221 7012 RTR
732 17222 7012 RTR
733 17223 3252 DCA TM$
734 17224 1315 TAD HCDF1
735 17225 0272 AND L70 /GET OUT FIELD
736 17226 1252 TAD TM$
737 17227 3345 DCA HFUNC
738 17230 4275 L$: JMS HGET /SCAN FOR $
739 17231 1273 TAD M33
740 17232 7640 SZA CLA
741 17233 5230 JMP L$
742 17234 1274 TAD LHLPBUF
743 17235 3251 DCA HPTR$
744 17236 1651 2$: TAD I HPTR$
745 17237 7450 SNA
746 17240 5253 JMP 3$
747 17241 3252 DCA TM$
748 17242 4275 JMS HGET
749 17243 7041 CIA
750 17244 1252 TAD TM$
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 24-1
. Help code FILE # 1
751 17245 7640 SZA CLA
752 17246 5230 JMP L$ /DID NOT MATCH
753 17247 2251 ISZ HPTR$ /PARTIAL MATCH
754 17250 5236 JMP 2$ /KEEP TRYING TO MATCH
755
756 17251 0000 HPTR$: 0
757 17252 0000 TM$: 0
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 25
. Help code FILE # 1
758
759
760 17253 4275 3$: JMS HGET /MATCH!
761 17254 1273 TAD M33 /START PRINTING
762 17255 7450 SNA
763 17256 5263 JMP CTRLZ /UNTIL AN ESCAPE
764 17257 1262 TAD L33
765 17260 4667 JMS I LXPUTT
766 17261 5253 JMP 3$
767
768 17262 0033 L33, 33
769
770 17263 7200 CTRLZ, CLA
771 17264 5603 JMP I HELP /RETURN
772
773 17265 7115 LHSET, HSET
774 17266 0015 L15, 15
775 17267 7075 LXPUTT, XPUTT
776 17270 0012 L12, 12
777 17271 7343 LHLPINI,HLPINI
778 17272 0070 L70, 70
779 17273 7745 M33, -33
780 17274 7374 LHLPBUF,HLPBUF
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 26
. Help code FILE # 1
781
782
783 /coroutines
784
785 17275 0000 HGET, 0
786 17276 5677 JMP I HSEND
787 17277 7343 HSEND, HLPINI
788 17300 0312 AND L177 /7-BIT
789 17301 1313 TAD MCTZ
790 17302 7450 SNA
791 17303 5263 JMP CTRLZ
792 17304 1314 TAD CONST
793 17305 7450 SNA
794 17306 5677 JMP I HSEND /IGNORE FORM FEEDS
795 17307 1311 TAD L14
796 17310 5675 JMP I HGET
797
798 17311 0014 L14, 14
799 17312 0177 L177, 177
800 17313 7746 MCTZ, -^"Z
801 17314 0016 CONST, ^"Z-14
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 27
. Help code FILE # 1
802
803
804 17315 6231 HCDF1: CDF 30
805 17316 1771 L$: TAD I H1
806 17317 4277 JMS HSEND
807 17320 1772 TAD I H2
808 17321 4277 JMS HSEND
809 17322 1772 TAD I H2
810 17323 0367 AND L7400
811 17324 7112 CLL RTR
812 17325 7012 RTR
813 17326 3370 DCA HTM
814 17327 1771 TAD I H1
815 17330 0367 AND L7400
816 17331 1370 TAD HTM
817 17332 7112 CLL RTR
818 17333 7012 RTR
819 17334 4277 JMS HSEND
820 17335 2371 ISZ H1
821 17336 2371 ISZ H1
822 17337 2372 ISZ H2
823 17340 2372 ISZ H2
824 17341 2373 ISZ HLPCNT
825 17342 5316 JMP L$
826 17343 6202 HLPINI, CIF 0 /READ NEXT BUFFER
827 17344 4601 JMS I HLPSYS /USING RESIDENT HANDLER
828 17345 1030 HFUNC, 1030 /4 BLOCKS INTO FIELD 3 (OR 4)
829 17346 0000 HELBUF /BUFFER
830 17347 0000 HLPBLK, 0 /NEXT BLOCK TO SEARCH
831 17350 5263 JMP CTRLZ /END OF FILE OR ERROR
832 17351 1347 TAD HLPBLK
833 17352 1202 TAD HLPSIZ
834 17353 3347 DCA HLPBLK /POINT TO NEXT BLOCK
835 17354 1202 TAD HLPSIZ /GET # OF BLOCKS
836 17355 7112 CLL RTR
837 17356 7012 RTR
838 17357 7012 RTR /CONVERT TO DOUBLE WORDS
839 17360 7041 CIA /MAKE NEGATIVE
840 17361 3373 DCA HLPCNT
841 / TAD LHELBUF
842 .IF NE HELBUF <__ERROR__>
843 17362 3371 DCA H1
844 17363 1371 TAD H1
845 17364 7001 IAC
846 17365 3372 DCA H2
847 17366 5315 JMP HCDF1
848
849 17367 7400 L7400, 7400
850 /LHELBUF,HELBUF
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 28
. Help code FILE # 1
851
852
853 17370 0000 HTM, 0
854 17371 0000 H1, HELBUF
855 17372 0001 H2, HELBUF+1
856 17373 7777 HLPCNT, -1
857 17374 0077 HLPBUF, "?;"/;0 /MUST BE AT VERY END OF PAGE
17375 0057
17376 0000
858 .IF GT .-7400 <__ERROR__>
/9 TECO ERROR MESSAGE MODULE V50 MACREL-V2C FRI 07-DEC-90 PAGE 29
SYMBOL TABLE
CARET 7040 ERR26 X **** L33 7262 XER21 5360
CDF4F G 6640 ERR27 X **** L70 7272 XER22 5405
CIF4A G 6541 ERR28 X **** L7400 7367 XER24 5432
CIF4B G 6246 ERR29 X **** MCTZ 7313 XER25 5452
CIF4C G 6276 ERR30 X **** MEMLOC X **** XER26 5511
CIF4E G 6356 ERR31 X **** MEMSIZ Z 0*** XER27 5540
CNVTAB 6517 ERR32 X **** M33 7273 XER28 5633
CONST 7314 ERR33 X **** M400 6632 XER3 4521
COREAD 6600 ERR34 X **** N Z 0*** XER30 5660
CO7 6631 ERR35 X **** NEGCHR 6670 XER31 5727
CRLF X **** ERR36 X **** NEWERR G 6541 XER32 5763
CTAB 6735 ERR37 X **** NOTRCE X **** XER33 6005
CTCT 3264 ERR38 X **** OVREAD X **** XER34 6055
CTL.C X **** ERR39 X **** PTR 3312 XER35 6077
CTRLZ 7263 ERR40 X **** PUTT X **** XER36 6174
EE2 6642 ERR41 X **** PUTTX 3274 XER37 6236
EE3 6664 ETFLAG X **** QLENGT Z 0*** XER38 6255
EHFLAG X **** FLCNT 6630 QMK G 3334 XER39 6324
EOVRLY 3202 FLD: 0 0200 ASECT QOVRLC X **** XER4 4553
ERBASE 3452 FLERR 6637 QPNTR X **** XER40 6402
ERET 3254 FLO 6635 RESORT X **** XER41 6430
ERLIST 3400 FOOSTO 7150 ROTA 7070 XER42 6474
ERLOOP 3210 FOVRLC X **** SCAN X **** XER5 4607
ERL2 3225 FTO 6636 SCANP Z 0*** XER6 4641
EROV 6721 HCDF1 G 7315 SCHAR Z 0*** XER7 4672
ERROR Z 0*** HELBUF 0000 SCHPRT 6701 XER8 4715
ERRRET X **** HELP 7203 SIXTY 7101 XER9 4755
ERRXX X **** HFUNC 7345 SIXTYP 3314 XH G 3354
ERRYY G 3205 HGET 7275 SPY 7050 XHELP 6732
ERR01 X **** HLPADR G 7200 STABLE X **** XOVRLC X ****
ERR02 X **** HLPBLK 7347 S.ANY X **** XPUTT 7075
ERR03 X **** HLPBUF 7374 S.NOT X **** XR Z 0***
ERR04 X **** HLPCNT 7373 S.SEP X **** X2 7112
ERR05 X **** HLPINI 7343 TECERR 6600 ASECT ZQPNTR Z 0***
ERR06 X **** HLPSIZ 7202 TECO.1 7377 ASECT Z177 Z 0***
ERR07 X **** HLPSYS G 7201 TTWO 3313 Z200 Z 0***
ERR08 X **** HSEND 7277 TWO 3300 Z40 Z 0***
ERR09 X **** HSET 7115 TYPE X **** Z77 Z 0***
ERR10 X **** HTM 7370 T0 X ****
ERR11 X **** H1 7371 VTSUP G 6241
ERR12 X **** H2 7372 XCHAR 7000
ERR13 X **** IOVRLC X **** XERBAS G 4400
ERR14 X **** KMEM 6634 XER1 4452
ERR15 X **** K3200 6633 XER11 5003
ERR16 X **** LASTC Z 0*** XER12 5053
ERR17 X **** LC 7037 XER13 5106
ERR18 X **** LHLPBU 7274 XER14 5131
ERR19 X **** LHLPIN 7271 XER15 5146
ERR20 X **** LHSET 7265 XER16 5162
ERR21 X **** LXPUTT 7267 XER17 5175
ERR22 X **** L12 7270 XER18 5242
ERR23 X **** L14 7311 XER19 5270
ERR24 X **** L15 7266 XER2 4474
ERR25 X **** L177 7312 XER20 5324