Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/error.asm @ 324:eb24764bc7b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added error.asm to source base
author boisy
date Wed, 24 Jul 2002 04:40:22 +0000
parents
children c155aac72190
comparison
equal deleted inserted replaced
323:9ca004356f09 324:eb24764bc7b7
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