|
324
|
1 ********************************************************************
|
|
|
2 * error - show error messages
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 2 From Tandy OS-9 Level Two Vr. 02.00.01
|
|
|
9
|
|
|
10 nam error
|
|
|
11 ttl show error messages
|
|
|
12
|
|
|
13 * Disassembled 02/07/06 13:09:55 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 2
|
|
|
23
|
|
|
24 L0000 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 1
|
|
|
27 u0001 rmb 1
|
|
|
28 u0002 rmb 1
|
|
|
29 u0003 rmb 1
|
|
|
30 u0004 rmb 1
|
|
|
31 u0005 rmb 12
|
|
|
32 u0011 rmb 15
|
|
|
33 u0020 rmb 55
|
|
|
34 u0057 rmb 2
|
|
|
35 u0059 rmb 2
|
|
|
36 u005B rmb 42
|
|
|
37 u0085 rmb 13
|
|
|
38 u0092 rmb 25
|
|
|
39 u00AB rmb 49
|
|
|
40 u00DC rmb 2
|
|
|
41 u00DE rmb 58
|
|
|
42 u0118 rmb 1
|
|
|
43 u0119 rmb 3
|
|
|
44 u011C rmb 912
|
|
|
45 size equ .
|
|
|
46
|
|
|
47 name fcs /error/
|
|
|
48 fcb edition
|
|
|
49
|
|
|
50 L0013 fcb $A6 &
|
|
|
51 fcb $A0
|
|
|
52 fcb $A7 '
|
|
|
53 fcb $C0 @
|
|
|
54 fcb $30 0
|
|
|
55 fcb $1F
|
|
|
56 fcb $26 &
|
|
|
57 fcb $F8 x
|
|
|
58 fcb $39 9
|
|
|
59 start equ *
|
|
|
60 pshs y
|
|
|
61 pshs u
|
|
|
62 clra
|
|
|
63 clrb
|
|
|
64 L0022 sta ,u+
|
|
|
65 decb
|
|
|
66 bne L0022
|
|
|
67 ldx ,s
|
|
|
68 leau ,x
|
|
|
69 leax >$012C,x
|
|
|
70 pshs x
|
|
|
71 leay >L064C,pcr
|
|
|
72 ldx ,y++
|
|
|
73 beq L003D
|
|
|
74 bsr L0013
|
|
|
75 ldu $02,s
|
|
|
76 L003D leau >u0057,u
|
|
|
77 ldx ,y++
|
|
|
78 beq L0048
|
|
|
79 bsr L0013
|
|
|
80 clra
|
|
|
81 L0048 cmpu ,s
|
|
|
82 beq L0051
|
|
|
83 sta ,u+
|
|
|
84 bra L0048
|
|
|
85 L0051 ldu $02,s
|
|
|
86 ldd ,y++
|
|
|
87 beq L005E
|
|
|
88 leax >L0000,pcr
|
|
|
89 lbsr L0161
|
|
|
90 L005E ldd ,y++
|
|
|
91 beq L0067
|
|
|
92 leax ,u
|
|
|
93 lbsr L0161
|
|
|
94 L0067 leas $04,s
|
|
|
95 puls x
|
|
|
96 stx >u011C,u
|
|
|
97 sty >u00DC,u
|
|
|
98 ldd #$0001
|
|
|
99 std >u0118,u
|
|
|
100 leay >u00DE,u
|
|
|
101 leax ,s
|
|
|
102 lda ,x+
|
|
|
103 L0083 ldb >u0119,u
|
|
|
104 cmpb #$1D
|
|
|
105 beq L00DF
|
|
|
106 L008B cmpa #$0D
|
|
|
107 beq L00DF
|
|
|
108 cmpa #$20
|
|
|
109 beq L0097
|
|
|
110 cmpa #$2C
|
|
|
111 bne L009B
|
|
|
112 L0097 lda ,x+
|
|
|
113 bra L008B
|
|
|
114 L009B cmpa #$22
|
|
|
115 beq L00A3
|
|
|
116 cmpa #$27
|
|
|
117 bne L00C1
|
|
|
118 L00A3 stx ,y++
|
|
|
119 inc >u0119,u
|
|
|
120 pshs a
|
|
|
121 L00AB lda ,x+
|
|
|
122 cmpa #$0D
|
|
|
123 beq L00B5
|
|
|
124 cmpa ,s
|
|
|
125 bne L00AB
|
|
|
126 L00B5 puls b
|
|
|
127 clr -$01,x
|
|
|
128 cmpa #$0D
|
|
|
129 beq L00DF
|
|
|
130 lda ,x+
|
|
|
131 bra L0083
|
|
|
132 L00C1 leax -$01,x
|
|
|
133 stx ,y++
|
|
|
134 leax $01,x
|
|
|
135 inc >u0119,u
|
|
|
136 L00CB cmpa #$0D
|
|
|
137 beq L00DB
|
|
|
138 cmpa #$20
|
|
|
139 beq L00DB
|
|
|
140 cmpa #$2C
|
|
|
141 beq L00DB
|
|
|
142 lda ,x+
|
|
|
143 bra L00CB
|
|
|
144 L00DB clr -$01,x
|
|
|
145 bra L0083
|
|
|
146 L00DF leax >u00DC,u
|
|
|
147 pshs x
|
|
|
148 ldd >u0118,u
|
|
|
149 pshs b,a
|
|
|
150 leay ,u
|
|
|
151 bsr L00F9
|
|
|
152 lbsr L017B
|
|
|
153 clr ,-s
|
|
|
154 clr ,-s
|
|
|
155 lbsr L063F
|
|
|
156 L00F9 leax >$012C,y
|
|
|
157 stx >$0126,y
|
|
|
158 sts >$011A,y
|
|
|
159 sts >$0128,y
|
|
|
160 ldd #$FF82
|
|
|
161 L010E leax d,s
|
|
|
162 cmpx >$0128,y
|
|
|
163 bcc L0120
|
|
|
164 cmpx >$0126,y
|
|
|
165 bcs L013A
|
|
|
166 stx >$0128,y
|
|
|
167 L0120 rts
|
|
|
168 L0121 fcc "**** STACK OVERFLOW ****"
|
|
|
169 fcb C$CR
|
|
|
170 L013A leax <L0121,pcr
|
|
|
171 ldb #$CF
|
|
|
172 pshs b
|
|
|
173 lda #$02
|
|
|
174 ldy #$0064
|
|
|
175 L0147 os9 I$WritLn
|
|
|
176 clr ,-s
|
|
|
177 lbsr L0645
|
|
|
178 L014F ldd >$011A,y
|
|
|
179 subd >$0128,y
|
|
|
180 rts
|
|
|
181 ldd >$0128,y
|
|
|
182 subd >$0126,y
|
|
|
183 L0160 rts
|
|
|
184 L0161 pshs x
|
|
|
185 leax d,y
|
|
|
186 leax d,x
|
|
|
187 pshs x
|
|
|
188 L0169 ldd ,y++
|
|
|
189 leax d,u
|
|
|
190 ldd ,x
|
|
|
191 addd $02,s
|
|
|
192 std ,x
|
|
|
193 cmpy ,s
|
|
|
194 bne L0169
|
|
|
195 leas $04,s
|
|
|
196 L017A rts
|
|
|
197 L017B pshs u
|
|
|
198 ldd #$FFB6
|
|
|
199 lbsr L010E
|
|
|
200 ldd $04,s
|
|
|
201 cmpd #$0002
|
|
|
202 bge L01AD
|
|
|
203 bra L01A6
|
|
|
204 L018D ldd #$0050
|
|
|
205 pshs b,a
|
|
|
206 ldx <u0001
|
|
|
207 leax $02,x
|
|
|
208 stx <u0001
|
|
|
209 ldd -$02,x
|
|
|
210 pshs b,a
|
|
|
211 ldd #$0002
|
|
|
212 pshs b,a
|
|
|
213 lbsr L05BA
|
|
|
214 leas $06,s
|
|
|
215 L01A6 ldd <u0001
|
|
|
216 cmpd <u0003
|
|
|
217 bcs L018D
|
|
|
218 L01AD ldd #$0001
|
|
|
219 pshs b,a
|
|
|
220 leax >L03E1,pcr
|
|
|
221 pshs x
|
|
|
222 lbsr L04F4
|
|
|
223 leas $04,s
|
|
|
224 std <u0005
|
|
|
225 cmpd #$FFFF
|
|
|
226 bne L01E5
|
|
|
227 ldd #$001C
|
|
|
228 pshs b,a
|
|
|
229 leax >L03F0,pcr
|
|
|
230 pshs x
|
|
|
231 lbsr L0358
|
|
|
232 leas $04,s
|
|
|
233 bra L01E5
|
|
|
234 L01D7 ldx $06,s
|
|
|
235 leax $02,x
|
|
|
236 stx $06,s
|
|
|
237 ldd ,x
|
|
|
238 pshs b,a
|
|
|
239 bsr L01F8
|
|
|
240 leas $02,s
|
|
|
241 L01E5 ldd $04,s
|
|
|
242 addd #$FFFF
|
|
|
243 std $04,s
|
|
|
244 bne L01D7
|
|
|
245 ldd <u0005
|
|
|
246 pshs b,a
|
|
|
247 lbsr L0503
|
|
|
248 lbra L038E
|
|
|
249 L01F8 pshs u
|
|
|
250 ldd #$FFA8
|
|
|
251 lbsr L010E
|
|
|
252 leas -$0C,s
|
|
|
253 clra
|
|
|
254 clrb
|
|
|
255 std ,s
|
|
|
256 clra
|
|
|
257 clrb
|
|
|
258 pshs b,a
|
|
|
259 clra
|
|
|
260 clrb
|
|
|
261 pshs b,a
|
|
|
262 pshs b,a
|
|
|
263 ldd <u0005
|
|
|
264 pshs b,a
|
|
|
265 lbsr L05CA
|
|
|
266 leas $08,s
|
|
|
267 lbra L02E4
|
|
|
268 L021C clra
|
|
|
269 clrb
|
|
|
270 std $04,s
|
|
|
271 std $02,s
|
|
|
272 ldu <$10,s
|
|
|
273 bra L0229
|
|
|
274 L0227 leau u0001,u
|
|
|
275 L0229 ldb ,u
|
|
|
276 cmpb #$30
|
|
|
277 beq L0227
|
|
|
278 stu $08,s
|
|
|
279 leax >$0007,y
|
|
|
280 stx $0A,s
|
|
|
281 bra L026C
|
|
|
282 L0239 ldb ,u
|
|
|
283 sex
|
|
|
284 leax >$005C,y
|
|
|
285 leax d,x
|
|
|
286 ldb ,x
|
|
|
287 clra
|
|
|
288 andb #$08
|
|
|
289 beq L0265
|
|
|
290 ldb ,u+
|
|
|
291 sex
|
|
|
292 pshs b,a
|
|
|
293 ldx $0C,s
|
|
|
294 leax $01,x
|
|
|
295 stx $0C,s
|
|
|
296 ldb -$01,x
|
|
|
297 sex
|
|
|
298 cmpd ,s++
|
|
|
299 beq L026C
|
|
|
300 ldd $04,s
|
|
|
301 addd #$0001
|
|
|
302 std $04,s
|
|
|
303 bra L026C
|
|
|
304 L0265 ldd $02,s
|
|
|
305 addd #$0001
|
|
|
306 std $02,s
|
|
|
307 L026C ldb ,u
|
|
|
308 beq L0278
|
|
|
309 ldd $04,s
|
|
|
310 bne L0278
|
|
|
311 ldd $02,s
|
|
|
312 beq L0239
|
|
|
313 L0278 ldd $02,s
|
|
|
314 beq L02B6
|
|
|
315 ldd $08,s
|
|
|
316 pshs b,a
|
|
|
317 lbsr L045E
|
|
|
318 std ,s
|
|
|
319 ldd $0A,s
|
|
|
320 pshs b,a
|
|
|
321 ldd #$0002
|
|
|
322 pshs b,a
|
|
|
323 lbsr L05A1
|
|
|
324 leas $06,s
|
|
|
325 ldd #$0019
|
|
|
326 pshs b,a
|
|
|
327 leax >L040B,pcr
|
|
|
328 pshs x
|
|
|
329 ldd #$0002
|
|
|
330 pshs b,a
|
|
|
331 lbsr L05BA
|
|
|
332 leas $06,s
|
|
|
333 ldd $04,s
|
|
|
334 addd #$0001
|
|
|
335 std $04,s
|
|
|
336 ldd ,s
|
|
|
337 addd #$0001
|
|
|
338 std ,s
|
|
|
339 L02B6 ldb [<$0A,s]
|
|
|
340 cmpb #$20
|
|
|
341 beq L02C4
|
|
|
342 ldd $04,s
|
|
|
343 addd #$0001
|
|
|
344 std $04,s
|
|
|
345 L02C4 ldd $04,s
|
|
|
346 bne L02E4
|
|
|
347 ldd #$0050
|
|
|
348 pshs b,a
|
|
|
349 leax >$0007,y
|
|
|
350 pshs x
|
|
|
351 ldd #$0001
|
|
|
352 pshs b,a
|
|
|
353 lbsr L05BA
|
|
|
354 leas $06,s
|
|
|
355 ldd ,s
|
|
|
356 addd #$0001
|
|
|
357 std ,s
|
|
|
358 L02E4 ldd #$0050
|
|
|
359 pshs b,a
|
|
|
360 leax >$0007,y
|
|
|
361 pshs x
|
|
|
362 ldd <u0005
|
|
|
363 pshs b,a
|
|
|
364 lbsr L0591
|
|
|
365 leas $06,s
|
|
|
366 std -$02,s
|
|
|
367 ble L0301
|
|
|
368 ldd #$0001
|
|
|
369 bra L0303
|
|
|
370 L0301 clra
|
|
|
371 clrb
|
|
|
372 L0303 std $06,s
|
|
|
373 beq L030D
|
|
|
374 ldd ,s
|
|
|
375 lbeq L021C
|
|
|
376 L030D ldd $06,s
|
|
|
377 cmpd #$FFFF
|
|
|
378 bne L0324
|
|
|
379 ldd #$001C
|
|
|
380 pshs b,a
|
|
|
381 leax >L0423,pcr
|
|
|
382 pshs x
|
|
|
383 bsr L0358
|
|
|
384 leas $04,s
|
|
|
385 L0324 ldd ,s
|
|
|
386 bne L0354
|
|
|
387 ldd $08,s
|
|
|
388 pshs b,a
|
|
|
389 lbsr L045E
|
|
|
390 std ,s
|
|
|
391 ldd $0A,s
|
|
|
392 pshs b,a
|
|
|
393 ldd #$0001
|
|
|
394 pshs b,a
|
|
|
395 lbsr L05A1
|
|
|
396 leas $06,s
|
|
|
397 ldd #$0019
|
|
|
398 pshs b,a
|
|
|
399 leax >L043E,pcr
|
|
|
400 pshs x
|
|
|
401 ldd #$0001
|
|
|
402 pshs b,a
|
|
|
403 lbsr L05BA
|
|
|
404 leas $06,s
|
|
|
405 L0354 leas $0C,s
|
|
|
406 puls pc,u
|
|
|
407 L0358 pshs u
|
|
|
408 ldd #$FFB6
|
|
|
409 lbsr L010E
|
|
|
410 ldd #$0007
|
|
|
411 pshs b,a
|
|
|
412 leax >L0456,pcr
|
|
|
413 pshs x
|
|
|
414 ldd #$0002
|
|
|
415 pshs b,a
|
|
|
416 lbsr L05A1
|
|
|
417 leas $06,s
|
|
|
418 ldd $06,s
|
|
|
419 pshs b,a
|
|
|
420 ldd $06,s
|
|
|
421 pshs b,a
|
|
|
422 ldd #$0002
|
|
|
423 pshs b,a
|
|
|
424 lbsr L05BA
|
|
|
425 leas $06,s
|
|
|
426 clra
|
|
|
427 clrb
|
|
|
428 pshs b,a
|
|
|
429 lbsr L063F
|
|
|
430 L038E leas $02,s
|
|
|
431 puls pc,u
|
|
|
432 fcc "Error errno [errno...]"
|
|
|
433 fcb C$CR
|
|
|
434 fcb $00
|
|
|
435 fcc "Usage: returns error message for given error numbers"
|
|
|
436 fcb C$CR
|
|
|
437 fcb $00
|
|
|
438 L03E1 fcc "/dd/sys/errmsg"
|
|
|
439 fcb $00
|
|
|
440 L03F0 fcc "can't open /dd/sys/errmsg"
|
|
|
441 fcb C$CR
|
|
|
442 fcb $00
|
|
|
443 L040B fcc " : not an error number"
|
|
|
444 fcb C$CR
|
|
|
445 fcb $00
|
|
|
446 L0423 fcc "error reading errmsg file"
|
|
|
447 fcb C$CR
|
|
|
448 fcb $00
|
|
|
449 L043E fcc " : not an error number"
|
|
|
450 fcb C$CR
|
|
|
451 fcb $00
|
|
|
452 L0456 fcc "error: "
|
|
|
453 fcb $00
|
|
|
454
|
|
|
455 L045E pshs u
|
|
|
456 ldu $04,s
|
|
|
457 L0462 ldb ,u+
|
|
|
458 bne L0462
|
|
|
459 tfr u,d
|
|
|
460 subd $04,s
|
|
|
461 addd #$FFFF
|
|
|
462 puls pc,u
|
|
|
463 pshs u
|
|
|
464 ldu $06,s
|
|
|
465 L0473 leas -$02,s
|
|
|
466 ldd $06,s
|
|
|
467 std ,s
|
|
|
468 L0479 ldb ,u+
|
|
|
469 ldx ,s
|
|
|
470 L047D leax $01,x
|
|
|
471 stx ,s
|
|
|
472 stb -$01,x
|
|
|
473 bne L0479
|
|
|
474 bra L04AE
|
|
|
475 pshs u
|
|
|
476 ldu $06,s
|
|
|
477 leas -$02,s
|
|
|
478 ldd $06,s
|
|
|
479 std ,s
|
|
|
480 L0491 ldx ,s
|
|
|
481 leax $01,x
|
|
|
482 stx ,s
|
|
|
483 ldb -$01,x
|
|
|
484 bne L0491
|
|
|
485 ldd ,s
|
|
|
486 addd #$FFFF
|
|
|
487 std ,s
|
|
|
488 L04A2 ldb ,u+
|
|
|
489 ldx ,s
|
|
|
490 leax $01,x
|
|
|
491 stx ,s
|
|
|
492 stb -$01,x
|
|
|
493 bne L04A2
|
|
|
494 L04AE ldd $06,s
|
|
|
495 L04B0 leas $02,s
|
|
|
496 puls pc,u
|
|
|
497 pshs u
|
|
|
498 ldu $04,s
|
|
|
499 bra L04CA
|
|
|
500 L04BA ldx $06,s
|
|
|
501 leax $01,x
|
|
|
502 stx $06,s
|
|
|
503 ldb -$01,x
|
|
|
504 bne L04C8
|
|
|
505 clra
|
|
|
506 clrb
|
|
|
507 puls pc,u
|
|
|
508 L04C8 leau u0001,u
|
|
|
509 L04CA ldb ,u
|
|
|
510 sex
|
|
|
511 pshs b,a
|
|
|
512 ldb [<$08,s]
|
|
|
513 sex
|
|
|
514 cmpd ,s++
|
|
|
515 beq L04BA
|
|
|
516 ldb [<$06,s]
|
|
|
517 sex
|
|
|
518 pshs b,a
|
|
|
519 ldb ,u
|
|
|
520 sex
|
|
|
521 subd ,s++
|
|
|
522 puls pc,u
|
|
|
523 ldx $02,s
|
|
|
524 lda $05,s
|
|
|
525 os9 I$Open
|
|
|
526 bcs L04F1
|
|
|
527 os9 I$Close
|
|
|
528 L04F1 lbra L063A
|
|
|
529 L04F4 ldx $02,s
|
|
|
530 lda $05,s
|
|
|
531 os9 I$Open
|
|
|
532 lbcs L0631
|
|
|
533 tfr a,b
|
|
|
534 clra
|
|
|
535 rts
|
|
|
536 L0503 lda $03,s
|
|
|
537 os9 I$Close
|
|
|
538 lbra L063A
|
|
|
539 ldx $02,s
|
|
|
540 ldb $05,s
|
|
|
541 os9 I$MakDir
|
|
|
542 lbra L063A
|
|
|
543 ldx $02,s
|
|
|
544 lda $05,s
|
|
|
545 tfr a,b
|
|
|
546 andb #$24
|
|
|
547 orb #$0B
|
|
|
548 os9 I$Create
|
|
|
549 bcs L0528
|
|
|
550 L0524 tfr a,b
|
|
|
551 clra
|
|
|
552 rts
|
|
|
553 L0528 cmpb #$DA
|
|
|
554 lbne L0631
|
|
|
555 lda $05,s
|
|
|
556 bita #$80
|
|
|
557 lbne L0631
|
|
|
558 anda #$07
|
|
|
559 ldx $02,s
|
|
|
560 os9 I$Open
|
|
|
561 lbcs L0631
|
|
|
562 pshs u,a
|
|
|
563 ldx #$0000
|
|
|
564 leau ,x
|
|
|
565 ldb #$02
|
|
|
566 os9 I$SetStt
|
|
|
567 puls u,a
|
|
|
568 bcc L0524
|
|
|
569 pshs b
|
|
|
570 os9 I$Close
|
|
|
571 puls b
|
|
|
572 lbra L0631
|
|
|
573 ldx $02,s
|
|
|
574 os9 I$Delete
|
|
|
575 lbra L063A
|
|
|
576 lda $03,s
|
|
|
577 os9 I$Dup
|
|
|
578 lbcs L0631
|
|
|
579 tfr a,b
|
|
|
580 clra
|
|
|
581 rts
|
|
|
582 pshs y
|
|
|
583 ldx $06,s
|
|
|
584 lda $05,s
|
|
|
585 ldy $08,s
|
|
|
586 pshs y
|
|
|
587 os9 I$Read
|
|
|
588 L057E bcc L058D
|
|
|
589 cmpb #$D3
|
|
|
590 bne L0588
|
|
|
591 clra
|
|
|
592 clrb
|
|
|
593 puls pc,y,x
|
|
|
594 L0588 puls y,x
|
|
|
595 lbra L0631
|
|
|
596 L058D tfr y,d
|
|
|
597 puls pc,y,x
|
|
|
598 L0591 pshs y
|
|
|
599 lda $05,s
|
|
|
600 ldx $06,s
|
|
|
601 ldy $08,s
|
|
|
602 pshs y
|
|
|
603 os9 I$ReadLn
|
|
|
604 bra L057E
|
|
|
605 L05A1 pshs y
|
|
|
606 ldy $08,s
|
|
|
607 beq L05B6
|
|
|
608 lda $05,s
|
|
|
609 ldx $06,s
|
|
|
610 os9 I$Write
|
|
|
611 L05AF bcc L05B6
|
|
|
612 puls y
|
|
|
613 lbra L0631
|
|
|
614 L05B6 tfr y,d
|
|
|
615 puls pc,y
|
|
|
616 L05BA pshs y
|
|
|
617 ldy $08,s
|
|
|
618 beq L05B6
|
|
|
619 lda $05,s
|
|
|
620 ldx $06,s
|
|
|
621 os9 I$WritLn
|
|
|
622 bra L05AF
|
|
|
623 L05CA pshs u
|
|
|
624 ldd $0A,s
|
|
|
625 bne L05D8
|
|
|
626 ldu #$0000
|
|
|
627 ldx #$0000
|
|
|
628 bra L060C
|
|
|
629 L05D8 cmpd #$0001
|
|
|
630 beq L0603
|
|
|
631 cmpd #$0002
|
|
|
632 beq L05F8
|
|
|
633 ldb #$F7
|
|
|
634 L05E6 clra
|
|
|
635 std >$012A,y
|
|
|
636 ldd #$FFFF
|
|
|
637 leax >$011E,y
|
|
|
638 std ,x
|
|
|
639 std $02,x
|
|
|
640 puls pc,u
|
|
|
641 L05F8 lda $05,s
|
|
|
642 ldb #$02
|
|
|
643 os9 I$GetStt
|
|
|
644 bcs L05E6
|
|
|
645 bra L060C
|
|
|
646 L0603 lda $05,s
|
|
|
647 ldb #$05
|
|
|
648 os9 I$GetStt
|
|
|
649 bcs L05E6
|
|
|
650 L060C tfr u,d
|
|
|
651 addd $08,s
|
|
|
652 std >$0120,y
|
|
|
653 tfr d,u
|
|
|
654 tfr x,d
|
|
|
655 adcb $07,s
|
|
|
656 adca $06,s
|
|
|
657 bmi L05E6
|
|
|
658 tfr d,x
|
|
|
659 std >$011E,y
|
|
|
660 lda $05,s
|
|
|
661 os9 I$Seek
|
|
|
662 bcs L05E6
|
|
|
663 leax >$011E,y
|
|
|
664 puls pc,u
|
|
|
665 L0631 clra
|
|
|
666 std >$012A,y
|
|
|
667 ldd #$FFFF
|
|
|
668 rts
|
|
|
669 L063A bcs L0631
|
|
|
670 clra
|
|
|
671 clrb
|
|
|
672 rts
|
|
|
673 L063F lbsr L064A
|
|
|
674 lbsr L064B
|
|
|
675 L0645 ldd $02,s
|
|
|
676 os9 F$Exit
|
|
|
677 L064A rts
|
|
|
678 L064B rts
|
|
|
679
|
|
|
680 L064C fdb $0005,$0000
|
|
|
681 fdb $5700,$5b00,$8503,$9203,$ab00,$0101,$0101,$0101
|
|
|
682 fdb $0101,$0111,$1101,$1111,$0101,$0101,$0101,$0101
|
|
|
683 fdb $0101,$0101,$0101,$0101,$0101,$3020,$2020,$2020
|
|
|
684 fdb $2020,$2020,$2020,$2020,$2020,$4848,$4848,$4848
|
|
|
685 fdb $4848,$4848,$2020,$2020,$2020,$2042,$4242,$4242
|
|
|
686 fdb $4202,$0202,$0202,$0202,$0202,$0202,$0202,$0202
|
|
|
687 fdb $0202,$0202,$0220,$2020,$2020,$2044,$4444,$4444
|
|
|
688 fdb $4404,$0404,$0404,$0404,$0404,$0404,$0404,$0404
|
|
|
689 fdb $0404,$0404,$0420,$2020,$2001,$0002,$0059,$0057
|
|
|
690 fdb $0002,$0003,$0001
|
|
|
691
|
|
|
692 fcc "error"
|
|
|
693 fcb $00
|
|
|
694
|
|
|
695 emod
|
|
|
696 eom equ *
|
|
|
697 end
|
