Mercurial > hg > Members > kono > nitros9-code

comparison level2/cmds/ident.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * Ident - Show module information
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 7 Original Tandy/Microware version
9
10 nam Ident
11 ttl Show module information
12
13 * Disassembled 98/09/20 15:54:44 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 7
23
24 mod eom,name,tylg,atrv,start,size
25 u0000 rmb 1
26 u0001 rmb 1
27 u0002 rmb 1
28 u0003 rmb 1
29 u0004 rmb 2
30 u0006 rmb 2
31 u0008 rmb 2
32 u000A rmb 1
33 u000B rmb 1
34 u000C rmb 1
35 u000D rmb 1
36 u000E rmb 2
37 u0010 rmb 2
38 u0012 rmb 1
39 u0013 rmb 1
40 u0014 rmb 1
41 u0015 rmb 1
42 u0016 rmb 1
43 u0017 rmb 1
44 u0018 rmb 1
45 u0019 rmb 1
46 u001A rmb 1
47 u001B rmb 1
48 u001C rmb 2
49 u001E rmb 2
50 u0020 rmb 2
51 u0022 rmb 66
52 u0064 rmb 14
53 u0072 rmb 14
54 u0080 rmb 33
55 u00A1 rmb 71
56 u00E8 rmb 180
57 u019C rmb 2048
58 size equ .
59
60 name fcs /Ident/
61 fcb edition
62
63 L0013 fcb $0A
64 fcb $55 U
65 fcb $73 s
66 fcb $65 e
67 fcb $3A :
68 fcb $20
69 fcb $49 I
70 fcb $64 d
71 fcb $65 e
72 fcb $6E n
73 fcb $74 t
74 fcb $20
75 fcb $5B [
76 fcb $2D -
77 fcb $6F o
78 fcb $70 p
79 fcb $74 t
80 fcb $73 s
81 fcb $5D ]
82 fcb $20
83 fcb $3C <
84 fcb $6D m
85 fcb $6F o
86 fcb $64 d
87 fcb $75 u
88 fcb $6C l
89 fcb $65 e
90 fcb $3E >
91 fcb $20
92 fcb $5B [
93 fcb $2D -
94 fcb $6F o
95 fcb $70 p
96 fcb $74 t
97 fcb $73 s
98 fcb $5D ]
99 fcb $0A
100 fcb $20
101 fcb $20
102 fcb $74 t
103 fcb $6F o
104 fcb $20
105 fcb $64 d
106 fcb $69 i
107 fcb $73 s
108 fcb $70 p
109 fcb $6C l
110 fcb $61 a
111 fcb $79 y
112 fcb $20
113 fcb $6D m
114 fcb $6F o
115 fcb $64 d
116 fcb $75 u
117 fcb $6C l
118 fcb $65 e
119 fcb $20
120 fcb $68 h
121 fcb $65 e
122 fcb $61 a
123 fcb $64 d
124 fcb $65 e
125 fcb $72 r
126 fcb $2E .
127 fcb $0A
128 fcb $20
129 fcb $20
130 fcb $2D -
131 fcb $6D m
132 fcb $20
133 fcb $74 t
134 fcb $6F o
135 fcb $20
136 fcb $64 d
137 fcb $69 i
138 fcb $73 s
139 fcb $70 p
140 fcb $6C l
141 fcb $61 a
142 fcb $79 y
143 fcb $20
144 fcb $6D m
145 fcb $6F o
146 fcb $64 d
147 fcb $75 u
148 fcb $6C l
149 fcb $65 e
150 fcb $20
151 fcb $69 i
152 fcb $6E n
153 fcb $20
154 fcb $6D m
155 fcb $65 e
156 fcb $6D m
157 fcb $6F o
158 fcb $72 r
159 fcb $79 y
160 fcb $2E .
161 fcb $0A
162 fcb $20
163 fcb $20
164 fcb $2D -
165 fcb $73 s
166 fcb $20
167 fcb $66 f
168 fcb $6F o
169 fcb $72 r
170 fcb $20
171 fcb $73 s
172 fcb $68 h
173 fcb $6F o
174 fcb $72 r
175 fcb $74 t
176 fcb $20
177 fcb $66 f
178 fcb $6F o
179 fcb $72 r
180 fcb $6D m
181 fcb $2E .
182 fcb $0A
183 fcb $20
184 fcb $20
185 fcb $2D -
186 fcb $76 v
187 fcb $20
188 fcb $66 f
189 fcb $6F o
190 fcb $72 r
191 fcb $20
192 fcb $6E n
193 fcb $6F o
194 fcb $20
195 fcb $43 C
196 fcb $52 R
197 fcb $43 C
198 fcb $20
199 fcb $76 v
200 fcb $65 e
201 fcb $72 r
202 fcb $69 i
203 fcb $66 f
204 fcb $69 i
205 fcb $63 c
206 fcb $61 a
207 fcb $74 t
208 fcb $69 i
209 fcb $6F o
210 fcb $6E n
211 fcb $0A
212 fcb $20
213 fcb $20
214 fcb $2D -
215 fcb $78 x
216 fcb $20
217 fcb $66 f
218 fcb $6F o
219 fcb $72 r
220 fcb $20
221 fcb $66 f
222 fcb $69 i
223 fcb $6C l
224 fcb $65 e
225 fcb $20
226 fcb $69 i
227 fcb $6E n
228 fcb $20
229 fcb $65 e
230 fcb $78 x
231 fcb $65 e
232 fcb $63 c
233 fcb $75 u
234 fcb $74 t
235 fcb $69 i
236 fcb $6F o
237 fcb $6E n
238 fcb $20
239 fcb $64 d
240 fcb $69 i
241 fcb $72 r
242 fcb $65 e
243 fcb $63 c
244 fcb $74 t
245 fcb $6F o
246 fcb $72 r
247 fcb $79 y
248 fcb $0D
249 L00CD fcb $4D M
250 fcb $6F o
251 fcb $64 d
252 fcb $75 u
253 fcb $6C l
254 fcb $65 e
255 fcb $20
256 fcb $68 h
257 fcb $65 e
258 fcb $61 a
259 fcb $64 d
260 fcb $65 e
261 fcb $72 r
262 fcb $20
263 fcb $69 i
264 fcb $73 s
265 fcb $20
266 fcb $69 i
267 fcb $6E n
268 fcb $63 c
269 fcb $6F o
270 fcb $72 r
271 fcb $72 r
272 fcb $65 e
273 fcb $63 c
274 fcb $74 t
275 fcb $A1 !
276 L00E8 fcb $48 H
277 fcb $65 e
278 fcb $61 a
279 fcb $64 d
280 fcb $65 e
281 fcb $72 r
282 fcb $20
283 fcb $66 f
284 fcb $6F o
285 fcb $72 r
286 fcb $3A :
287 fcb $A0
288 L00F4 fcb $4D M
289 fcb $6F o
290 fcb $64 d
291 fcb $75 u
292 fcb $6C l
293 fcb $65 e
294 fcb $20
295 fcb $73 s
296 fcb $69 i
297 fcb $7A z
298 fcb $65 e
299 fcb $BA :
300 L0100 fcb $4D M
301 fcb $6F o
302 fcb $64 d
303 fcb $75 u
304 fcb $6C l
305 fcb $65 e
306 fcb $20
307 fcb $43 C
308 fcb $52 R
309 fcb $43 C
310 fcb $3A :
311 fcb $A0
312 L010C fcb $48 H
313 fcb $64 d
314 fcb $72 r
315 fcb $20
316 fcb $70 p
317 fcb $61 a
318 fcb $72 r
319 fcb $69 i
320 fcb $74 t
321 fcb $79 y
322 fcb $3A :
323 fcb $A0
324 L0118 fcb $45 E
325 fcb $78 x
326 fcb $65 e
327 fcb $63 c
328 fcb $2E .
329 fcb $20
330 fcb $6F o
331 fcb $66 f
332 fcb $66 f
333 fcb $3A :
334 fcb $20
335 fcb $A0
336 L0124 fcb $44 D
337 fcb $61 a
338 fcb $74 t
339 fcb $61 a
340 fcb $20
341 fcb $53 S
342 fcb $69 i
343 fcb $7A z
344 fcb $65 e
345 fcb $3A :
346 fcb $20
347 fcb $A0
348 L0130 fcb $54 T
349 fcb $79 y
350 fcb $2F /
351 fcb $4C L
352 fcb $61 a
353 fcb $20
354 fcb $41 A
355 fcb $74 t
356 fcb $2F /
357 fcb $52 R
358 fcb $76 v
359 fcb $BA :
360 L013C fcb $45 E
361 fcb $64 d
362 fcb $69 i
363 fcb $74 t
364 fcb $69 i
365 fcb $6F o
366 fcb $6E n
367 fcb $3A :
368 fcb $20
369 fcb $20
370 fcb $20
371 fcb $A0
372 L0148 fcb $6D m
373 fcb $6F o
374 fcb $64 d
375 fcb $AC ,
376 L014C fcb $72 r
377 fcb $65 e
378 fcb $2D -
379 fcb $65 e
380 fcb $6E n
381 fcb $AC ,
382 L0152 fcb $6E n
383 fcb $6F o
384 fcb $6E n
385 fcb $2D -
386 fcb $73 s
387 fcb $68 h
388 fcb $72 r
389 fcb $AC ,
390 L015A fcb $52 R
391 fcb $2F /
392 fcb $CF O
393 L015D fcb $52 R
394 fcb $2F /
395 fcb $D7 W
396 L0160 fcb $28 (
397 fcb $47 G
398 fcb $6F o
399 fcb $6F o
400 fcb $64 d
401 fcb $A9 )
402 L0166 fcb $28 (
403 fcb $42 B
404 fcb $61 a
405 fcb $64 d
406 fcb $29 )
407 fcb $87
408 L016C fcb $10
409 fcb $1C
410 fcb $20
411 fcb $24 $
412 fcb $29 )
413 fcb $2D -
414 fcb $32 2
415 fcb $37 7
416 fcb $3C <
417 fcb $41 A
418 fcb $46 F
419 fcb $4B K
420 fcb $50 P
421 fcb $56 V
422 fcb $5E ^
423 fcb $65 e
424 fcb $62 b
425 fcb $61 a
426 fcb $64 d
427 fcb $20
428 fcb $74 t
429 fcb $79 y
430 fcb $70 p
431 fcb $65 e
432 fcb $20
433 fcb $66 f
434 fcb $6F o
435 fcb $F2 r
436 fcb $50 P
437 fcb $72 r
438 fcb $6F o
439 fcb $E7 g
440 fcb $53 S
441 fcb $75 u
442 fcb $62 b
443 fcb $F2 r
444 fcb $4D M
445 fcb $75 u
446 fcb $6C l
447 fcb $74 t
448 fcb $E9 i
449 fcb $44 D
450 fcb $61 a
451 fcb $74 t
452 fcb $E1 a
453 fcb $55 U
454 fcb $73 s
455 fcb $72 r
456 fcb $20
457 fcb $B5 5
458 fcb $55 U
459 fcb $73 s
460 fcb $72 r
461 fcb $20
462 fcb $B6 6
463 fcb $55 U
464 fcb $73 s
465 fcb $72 r
466 fcb $20
467 fcb $B7 7
468 fcb $55 U
469 fcb $73 s
470 fcb $72 r
471 fcb $20
472 fcb $B8 8
473 fcb $55 U
474 fcb $73 s
475 fcb $72 r
476 fcb $20
477 fcb $B9 9
478 fcb $55 U
479 fcb $73 s
480 fcb $72 r
481 fcb $20
482 fcb $C1 A
483 fcb $55 U
484 fcb $73 s
485 fcb $72 r
486 fcb $20
487 fcb $C2 B
488 fcb $53 S
489 fcb $79 y
490 fcb $73 s
491 fcb $74 t
492 fcb $65 e
493 fcb $ED m
494 fcb $46 F
495 fcb $69 i
496 fcb $6C l
497 fcb $65 e
498 fcb $20
499 fcb $4D M
500 fcb $61 a
501 fcb $EE n
502 fcb $44 D
503 fcb $65 e
504 fcb $76 v
505 fcb $20
506 fcb $44 D
507 fcb $76 v
508 fcb $F2 r
509 fcb $44 D
510 fcb $65 e
511 fcb $76 v
512 fcb $20
513 fcb $44 D
514 fcb $73 s
515 fcb $E3 c
516 L01D8 fcb $10
517 fcb $15
518 fcb $1E
519 fcb $2D -
520 fcb $3B ;
521 fcb $44 D
522 fcb $51 Q
523 fcb $60 `
524 fcb $60 `
525 fcb $60 `
526 fcb $60 `
527 fcb $60 `
528 fcb $60 `
529 fcb $60 `
530 fcb $60 `
531 fcb $60 `
532 fcb $44 D
533 fcb $61 a
534 fcb $74 t
535 fcb $61 a
536 fcb $AC ,
537 fcb $36 6
538 fcb $38 8
539 fcb $30 0
540 fcb $39 9
541 fcb $20
542 fcb $6F o
543 fcb $62 b
544 fcb $6A j
545 fcb $AC ,
546 fcb $42 B
547 fcb $41 A
548 fcb $53 S
549 fcb $49 I
550 fcb $43 C
551 fcb $30 0
552 fcb $39 9
553 fcb $20
554 fcb $49 I
555 fcb $2D -
556 fcb $63 c
557 fcb $6F o
558 fcb $64 d
559 fcb $65 e
560 fcb $AC ,
561 fcb $50 P
562 fcb $41 A
563 fcb $53 S
564 fcb $43 C
565 fcb $41 A
566 fcb $4C L
567 fcb $20
568 fcb $50 P
569 fcb $2D -
570 fcb $63 c
571 fcb $6F o
572 fcb $64 d
573 fcb $65 e
574 fcb $AC ,
575 fcb $43 C
576 fcb $20
577 fcb $49 I
578 fcb $2D -
579 fcb $63 c
580 fcb $6F o
581 fcb $64 d
582 fcb $65 e
583 fcb $AC ,
584 fcb $43 C
585 fcb $4F O
586 fcb $42 B
587 fcb $4F O
588 fcb $4C L
589 fcb $20
590 fcb $49 I
591 fcb $2D -
592 fcb $63 c
593 fcb $6F o
594 fcb $64 d
595 fcb $65 e
596 fcb $AC ,
597 fcb $46 F
598 fcb $4F O
599 fcb $52 R
600 fcb $54 T
601 fcb $52 R
602 fcb $41 A
603 fcb $4E N
604 fcb $20
605 fcb $49 I
606 fcb $2D -
607 fcb $63 c
608 fcb $6F o
609 fcb $64 d
610 fcb $65 e
611 fcb $AC ,
612 fcb $3F ?
613 fcb $3F ?
614 fcb $3F ?
615 fcb $3F ?
616 fcb $AC ,
617 start equ *
618 leas >u019C,u
619 sts <u0006
620 tfr y,d
621 subd <u0006
622 std <u0008
623 leay <u0022,u
624 sty <u0000
625 clr <u000A
626 clr <u000B
627 clr <u000C
628 clr <u0018
629 lda #$01
630 sta <u000D
631 ldd #$0000
632 std <u0002
633 std <u0004
634 L0263 lda ,x+
635 L0265 cmpa #$20
636 beq L0263
637 cmpa #$2C
638 beq L0263
639 cmpa #$0D
640 beq L02BB
641 cmpa #$2D
642 beq L027E
643 ldy <u0002
644 bne L0263
645 stx <u0002
646 bra L0263
647 L027E lda ,x+
648 cmpa #$2D
649 beq L027E
650 cmpa #$30
651 bcs L0265
652 eora #$4D
653 anda #$DF
654 bne L0292
655 inc <u000A
656 bra L027E
657 L0292 lda -$01,x
658 eora #$53
659 anda #$DF
660 bne L029E
661 inc <u000B
662 bra L027E
663 L029E lda -$01,x
664 eora #$56
665 anda #$DF
666 bne L02AA
667 inc <u000C
668 bra L027E
669 L02AA lda -$01,x
670 eora #$58
671 anda #$DF
672 bne L02B8
673 lda #$05
674 sta <u000D
675 bra L027E
676 L02B8 lbra L03C4
677 L02BB ldx <u0002
678 lbeq L03C4
679 leax -$01,x
680 tst <u000A
681 beq L0314
682 pshs u
683 clra
684 os9 F$Link
685 lbcs L03D2
686 stu <u000E
687 ldd ,u
688 cmpd #$87CD
689 beq L02EB
690 puls u
691 L02DD leay >L00CD,pcr
692 lbsr L05FC
693 lbsr L0612
694 clrb
695 lbra L03D2
696 L02EB ldd u0002,u
697 subd #$0003
698 leax d,u
699 puls u
700 leay <u0010,u
701 pshs u
702 lda #$03
703 L02FB ldb ,x+
704 stb ,y+
705 deca
706 bne L02FB
707 puls u
708 lbsr L03D5
709 ldu <u000E
710 os9 F$UnLink
711 lbcs L03D2
712 clrb
713 lbra L03D2
714 L0314 lda #$80
715 sta <u00A1
716 lda <u000D
717 os9 I$Open
718 lbcs L03D2
719 sta <u0019
720 ldd #$0000
721 std <u001E
722 std <u0020
723 std <u001C
724 L032C ldd <u0020
725 addd <u001C
726 std <u0020
727 bcc L033B
728 ldd <u001E
729 addd #$0001
730 std <u001E
731 L033B pshs u
732 ldx <u001E
733 ldu <u0020
734 lda <u0019
735 os9 I$Seek
736 lbcs L03D2
737 puls u
738 leax <u0072,u
739 stx <u000E
740 ldy #$000E
741 os9 I$Read
742 bcc L0360
743 cmpb #$D3
744 bne L03D2
745 bra L03C1
746 L0360 ldd ,x
747 cmpd #$87CD
748 lbne L02DD
749 pshs u,x
750 ldd $02,x
751 std <u001C
752 addd <u0020
753 tfr d,u
754 leau -u0003,u
755 ldx <u001E
756 bcc L037C
757 leax $01,x
758 L037C lda <u0019
759 os9 I$Seek
760 bcs L03D2
761 puls u,x
762 leax <u0010,u
763 ldy #$0003
764 lda <u0019
765 os9 I$Read
766 bcs L03D2
767 pshs u,x
768 ldy <u000E
769 ldd $04,y
770 addd <u0020
771 tfr d,u
772 ldx <u001E
773 bcc L03A4
774 leax $01,x
775 L03A4 lda <u0019
776 os9 I$Seek
777 bcs L03D2
778 puls u,x
779 leax >u0080,u
780 ldy #$0021
781 lda <u0019
782 os9 I$Read
783 bcs L03D2
784 bsr L03D5
785 lbra L032C
786 L03C1 clrb
787 bra L03D2
788 L03C4 lda #$01
789 leax >L0013,pcr
790 ldy #$00BA
791 os9 I$WritLn
792 clrb
793 L03D2 os9 F$Exit
794 L03D5 tst <u000B
795 lbne L0502
796 lbsr L0612
797 leay >L00E8,pcr
798 lbsr L05FC
799 lbsr L04E9
800 lbsr L0612
801 leay >L00F4,pcr
802 lbsr L05FC
803 ldy <u000E
804 ldd $02,y
805 lbsr L05D2
806 leay >L0100,pcr
807 lbsr L05FC
808 lbsr L0543
809 tst <u000C
810 bne L041E
811 lbsr L0553
812 tsta
813 beq L0417
814 leay >L0166,pcr
815 lbsr L05FC
816 bra L041E
817 L0417 leay >L0160,pcr
818 lbsr L05FC
819 L041E lbsr L0612
820 leay >L010C,pcr
821 lbsr L05FC
822 ldy <u000E
823 ldb $08,y
824 lbsr L0633
825 lbsr L0612
826 ldy <u000E
827 ldb $06,y
828 stb <u001A
829 andb #$F0
830 cmpb #$E0
831 beq L0444
832 cmpb #$10
833 bne L0462
834 L0444 leay >L0118,pcr
835 lbsr L05FC
836 ldy <u000E
837 ldd $09,y
838 lbsr L05D2
839 leay >L0124,pcr
840 lbsr L05FC
841 ldy <u000E
842 ldd $0B,y
843 lbsr L05D2
844 L0462 leay >L013C,pcr
845 lbsr L05FC
846 ldb <u0016
847 pshs b
848 lbsr L0633
849 ldb #$05
850 lbsr L0654
851 puls b
852 clra
853 lbsr L0649
854 lbsr L0612
855 leay >L0130,pcr
856 lbsr L05FC
857 ldb <u001A
858 lbsr L0633
859 ldy <u000E
860 ldb $07,y
861 stb <u001B
862 lbsr L0633
863 lbsr L0612
864 ldb <u001A
865 lsrb
866 lsrb
867 lsrb
868 lsrb
869 leax >L016C,pcr
870 lda b,x
871 leay a,x
872 lbsr L05FC
873 leay >L0148,pcr
874 lbsr L05FC
875 ldb <u001A
876 andb #$0F
877 leax >L01D8,pcr
878 lda b,x
879 leay a,x
880 lbsr L05FC
881 ldb <u001B
882 bitb #$80
883 beq L04CD
884 leay >L014C,pcr
885 lbsr L05FC
886 bra L04D4
887 L04CD leay >L0152,pcr
888 lbsr L05FC
889 L04D4 bitb #$40
890 beq L04DE
891 leay >L015D,pcr
892 bra L04E2
893 L04DE leay >L015A,pcr
894 L04E2 lbsr L05FC
895 lbsr L0612
896 rts
897 L04E9 tst <u000A
898 beq L04F6
899 ldy <u000E
900 ldd $04,y
901 leay d,y
902 bra L04FA
903 L04F6 leay >u0080,u
904 L04FA lbsr L05FC
905 lda ,y
906 sta <u0016
907 rts
908 L0502 ldb #$06
909 lbsr L0654
910 ldy <u000E
911 ldb $06,y
912 lbsr L0633
913 bsr L0543
914 tst <u000C
915 beq L0519
916 lda #$20
917 bra L0520
918 L0519 bsr L0553
919 tsta
920 bne L0520
921 lda #$2E
922 L0520 lbsr L0608
923 lbsr L0666
924 bsr L04E9
925 ldx <u0000
926 pshs x
927 leax <u0022,u
928 stx <u0000
929 ldb <u0016
930 inc <u0018
931 clra
932 lbsr L0692
933 clr <u0018
934 puls x
935 stx <u0000
936 lbsr L0612
937 rts
938 L0543 lda #$24
939 lbsr L0608
940 ldd <u0010
941 lbsr L066E
942 ldb <u0012
943 lbsr L0664
944 rts
945 L0553 ldd #$FFFF
946 std <u0013
947 stb <u0015
948 pshs u,y,x
949 leau <u0013,u
950 tst <u000A
951 beq L0571
952 ldx <u000E
953 ldy $02,x
954 os9 F$CRC
955 lbcs L03D2
956 bra L058C
957 L0571 pshs u,x
958 ldx <u001E
959 ldu <u0020
960 lda <u0019
961 os9 I$Seek
962 puls u,x
963 lbcs L03D2
964 ldd <u001C
965 pshs b,a
966 bsr L05BF
967 puls b,a
968 std <u001C
969 L058C puls u,y,x
970 lda <u0013
971 cmpa #$80
972 bne L059E
973 ldd <u0014
974 cmpd #$0FE3
975 bne L059E
976 bra L05A1
977 L059E lda #$3F
978 rts
979 L05A1 clra
980 rts
981 L05A3 lda <u0019
982 ldx <u0006
983 ldy <u0008
984 cmpy <u001C
985 bls L05B2
986 ldy <u001C
987 L05B2 os9 I$Read
988 sty <u0004
989 rts
990 L05B9 bsr L05A3
991 lbcs L03D2
992 L05BF ldy <u0004
993 beq L05B9
994 os9 F$CRC
995 ldd <u001C
996 subd <u0004
997 std <u001C
998 bne L05B9
999 std <u0004
1000 rts
1001 L05D2 pshs b,a
1002 bsr L0628
1003 ldb #$03
1004 bsr L0654
1005 puls b,a
1006 bsr L0649
1007 bsr L0612
1008 rts
1009 pshs b,a
1010 andb #$F0
1011 lsrb
1012 lsrb
1013 lsrb
1014 lsrb
1015 L05E9 lda #$24
1016 bsr L0608
1017 lbsr L0682
1018 ldb #$02
1019 bsr L0654
1020 puls pc,b,a
1021 pshs b,a
1022 andb #$0F
1023 bra L05E9
1024 L05FC lda ,y
1025 anda #$7F
1026 bsr L0608
1027 lda ,y+
1028 bpl L05FC
1029 L0606 lda #$20
1030 L0608 pshs x
1031 ldx <u0000
1032 sta ,x+
1033 stx <u0000
1034 puls pc,x
1035 L0612 pshs y,x,a
1036 lda #$0D
1037 bsr L0608
1038 leax <u0022,u
1039 stx <u0000
1040 ldy #$0050
1041 lda #$01
1042 os9 I$WritLn
1043 puls pc,y,x,a
1044 L0628 pshs a
1045 lda #$24
1046 bsr L0608
1047 puls a
1048 bsr L0660
1049 rts
1050 L0633 pshs a
1051 lda #$24
1052 bsr L0608
1053 puls a
1054 bsr L0664
1055 rts
1056 pshs a
1057 lda #$24
1058 bsr L0608
1059 puls a
1060 bsr L0682
1061 rts
1062 L0649 pshs a
1063 lda #$23
1064 bsr L0608
1065 puls a
1066 bsr L0692
1067 rts
1068 L0654 pshs b,a
1069 L0656 tstb
1070 ble L065E
1071 bsr L0606
1072 decb
1073 bra L0656
1074 L065E puls pc,b,a
1075 L0660 bsr L066E
1076 bra L0666
1077 L0664 bsr L0674
1078 L0666 pshs a
1079 lda #$20
1080 bsr L0608
1081 puls pc,a
1082 L066E exg a,b
1083 bsr L0674
1084 tfr a,b
1085 L0674 pshs b
1086 andb #$F0
1087 lsrb
1088 lsrb
1089 lsrb
1090 lsrb
1091 bsr L0682
1092 puls b
1093 andb #$0F
1094 L0682 cmpb #$09
1095 bls L0688
1096 addb #$07
1097 L0688 addb #$30
1098 exg a,b
1099 lbsr L0608
1100 exg a,b
1101 rts
1102 L0692 pshs u,y,b
1103 leau <L06C3,pcr
1104 clr <u0017
1105 ldy #$0005
1106 L069D clr ,s
1107 L069F subd ,u
1108 bcs L06A7
1109 inc ,s
1110 bra L069F
1111 L06A7 addd ,u++
1112 pshs b
1113 ldb $01,s
1114 exg a,b
1115 bsr L06CD
1116 exg a,b
1117 puls b
1118 cmpy #$0002
1119 bgt L06BD
1120 inc <u0017
1121 L06BD leay -$01,y
1122 bne L069D
1123 puls pc,u,y,b
1124 L06C3 fdb $2710,$03e8,$0064,$000a,$0001
1125 L06CD tsta
1126 beq L06D2
1127 sta <u0017
1128 L06D2 tst <u0017
1129 bne L06DF
1130 tst <u0018
1131 beq L06DE
1132 lda #$20
1133 bra L06E1
1134 L06DE rts
1135 L06DF adda #$30
1136 L06E1 lbra L0608
1137
1138 emod
1139 eom equ *
1140 end