Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/drivers/sdisk/sformat.asm @ 207:347828fbd427

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added additional programs that came with SDisk + Bootfix
author boisy
date Mon, 15 Jul 2002 12:28:44 +0000
parents
children
comparison
equal deleted inserted replaced
206:a4bb7f96b6b7 207:347828fbd427
1 nam sformat
2 ttl program module
3
4 * Disassembled 02/07/15 07:16:29 by Disasm v1.6 (C) 1988 by RML
5
6 ifp1
7 use /dd/defs/os9defs
8 endc
9 tylg set Prgrm+Objct
10 atrv set ReEnt+rev
11 rev set $00
12 mod eom,name,tylg,atrv,start,size
13 u0000 rmb 1
14 u0001 rmb 2
15 u0003 rmb 1
16 u0004 rmb 1
17 u0005 rmb 2
18 u0007 rmb 2
19 u0009 rmb 1
20 u000A rmb 1
21 u000B rmb 1
22 u000C rmb 1
23 u000D rmb 1
24 u000E rmb 1
25 u000F rmb 1
26 u0010 rmb 1
27 u0011 rmb 1
28 u0012 rmb 1
29 u0013 rmb 1
30 u0014 rmb 2
31 u0016 rmb 1
32 u0017 rmb 1
33 u0018 rmb 2
34 u001A rmb 1
35 u001B rmb 2
36 u001D rmb 6
37 u0023 rmb 1
38 u0024 rmb 2
39 u0026 rmb 5
40 u002B rmb 2
41 u002D rmb 3
42 u0030 rmb 3
43 u0033 rmb 1
44 u0034 rmb 1
45 u0035 rmb 2
46 u0037 rmb 1
47 u0038 rmb 1
48 u0039 rmb 20
49 u004D rmb 2
50 u004F rmb 21
51 u0064 rmb 9
52 u006D rmb 1
53 u006E rmb 3
54 u0071 rmb 1
55 u0072 rmb 1
56 u0073 rmb 1
57 u0074 rmb 1
58 u0075 rmb 2
59 u0077 rmb 2
60 u0079 rmb 2
61 u007B rmb 1
62 u007C rmb 10
63 u0086 rmb 7
64 u008D rmb 1
65 u008E rmb 1
66 u008F rmb 2
67 u0091 rmb 1
68 u0092 rmb 3
69 u0095 rmb 3
70 u0098 rmb 3
71 u009B rmb 1
72 u009C rmb 2
73 u009E rmb 2
74 u00A0 rmb 8
75 u00A8 rmb 1
76 u00A9 rmb 1
77 u00AA rmb 1
78 u00AB rmb 1
79 u00AC rmb 1
80 u00AD rmb 32
81 u00CD rmb 9
82 u00D6 rmb 18
83 u00E8 rmb 21
84 u00FD rmb 6514
85 u1A6F rmb 506
86 size equ .
87 name equ *
88 fcs /sformat/
89 fcb $1B
90 fcb $28 (
91 fcb $63 c
92 fcb $29 )
93 fcb $20
94 fcb $43 C
95 fcb $6F o
96 fcb $70 p
97 fcb $79 y
98 fcb $72 r
99 fcb $69 i
100 fcb $67 g
101 fcb $68 h
102 fcb $74 t
103 fcb $20
104 fcb $31 1
105 fcb $39 9
106 fcb $38 8
107 fcb $33 3
108 fcb $20
109 fcb $44 D
110 fcb $2E .
111 fcb $50 P
112 fcb $2E .
113 fcb $4A J
114 fcb $6F o
115 fcb $68 h
116 fcb $6E n
117 fcb $73 s
118 fcb $6F o
119 fcb $6E n
120 L0033 fcb $0A
121 fcb $20
122 fcb $20
123 fcb $20
124 fcb $20
125 fcb $44 D
126 fcb $6F o
127 fcb $75 u
128 fcb $62 b
129 fcb $6C l
130 fcb $65 e
131 fcb $0A
132 fcb $20
133 fcb $20
134 fcb $20
135 fcb $20
136 fcb $53 S
137 fcb $69 i
138 fcb $6E n
139 fcb $67 g
140 fcb $6C l
141 fcb $65 e
142 fcb $09
143 fcb $20
144 fcb $44 D
145 fcb $65 e
146 fcb $6E n
147 fcb $73 s
148 fcb $69 i
149 fcb $74 t
150 fcb $79 y
151 fcb $0D
152 fcb $0B
153 fcb $20
154 fcb $43 C
155 fcb $79 y
156 fcb $6C l
157 fcb $69 i
158 fcb $6E n
159 fcb $64 d
160 fcb $65 e
161 fcb $72 r
162 fcb $73 s
163 fcb $0D
164 fcb $07
165 fcb $20
166 fcb $73 s
167 fcb $69 i
168 fcb $64 d
169 fcb $65 e
170 fcb $73 s
171 fcb $0D
172 fcb $12
173 fcb $20
174 fcb $20
175 fcb $20
176 fcb $20
177 fcb $43 C
178 fcb $6F o
179 fcb $6C l
180 fcb $6F o
181 fcb $72 r
182 fcb $20
183 fcb $43 C
184 fcb $6F o
185 fcb $6D m
186 fcb $70 p
187 fcb $75 u
188 fcb $74 t
189 fcb $65 e
190 fcb $72 r
191 fcb $11
192 L007B fcb $20
193 fcb $20
194 fcb $20
195 fcb $20
196 fcb $4F O
197 fcb $53 S
198 fcb $2D -
199 fcb $39 9
200 fcb $20
201 fcb $53 S
202 fcb $74 t
203 fcb $61 a
204 fcb $6E n
205 fcb $64 d
206 fcb $61 a
207 fcb $72 r
208 fcb $64 d
209 fcb $08
210 fcb $20
211 fcb $66 f
212 fcb $6F o
213 fcb $72 r
214 fcb $6D m
215 fcb $61 a
216 fcb $74 t
217 fcb $0D
218 fcb $0F
219 fcb $20
220 fcb $54 T
221 fcb $72 r
222 fcb $6B k
223 fcb $20
224 fcb $30 0
225 fcb $20
226 fcb $53 S
227 fcb $65 e
228 fcb $63 c
229 fcb $74 t
230 fcb $6F o
231 fcb $72 r
232 fcb $73 s
233 fcb $0D
234 fcb $0F
235 fcb $20
236 fcb $53 S
237 fcb $65 e
238 fcb $63 c
239 fcb $74 t
240 fcb $6F o
241 fcb $72 r
242 fcb $73 s
243 fcb $2F /
244 fcb $54 T
245 fcb $72 r
246 fcb $61 a
247 fcb $63 c
248 fcb $6B k
249 L00B4 fcb $0D
250 fcb $16
251 fcb $43 C
252 fcb $6F o
253 fcb $6C l
254 fcb $6F o
255 fcb $72 r
256 fcb $20
257 fcb $43 C
258 fcb $6F o
259 fcb $6D m
260 fcb $70 p
261 fcb $75 u
262 fcb $74 t
263 fcb $65 e
264 fcb $72 r
265 fcb $20
266 fcb $46 F
267 fcb $6F o
268 fcb $72 r
269 fcb $6D m
270 fcb $61 a
271 fcb $74 t
272 fcb $3F ?
273 fcb $0F
274 fcb $44 D
275 fcb $6F o
276 fcb $75 u
277 fcb $62 b
278 fcb $6C l
279 fcb $65 e
280 fcb $20
281 fcb $44 D
282 fcb $65 e
283 fcb $6E n
284 fcb $73 s
285 fcb $69 i
286 fcb $74 t
287 fcb $79 y
288 fcb $3F ?
289 fcb $0D
290 fcb $44 D
291 fcb $6F o
292 fcb $75 u
293 fcb $62 b
294 fcb $6C l
295 fcb $65 e
296 fcb $20
297 fcb $53 S
298 fcb $69 i
299 fcb $64 d
300 fcb $65 e
301 fcb $64 d
302 fcb $3F ?
303 fcb $11
304 fcb $4E N
305 fcb $6F o
306 fcb $2E .
307 fcb $20
308 fcb $6F o
309 fcb $66 f
310 fcb $20
311 fcb $43 C
312 fcb $79 y
313 fcb $6C l
314 fcb $69 i
315 fcb $6E n
316 fcb $64 d
317 fcb $65 e
318 fcb $72 r
319 fcb $73 s
320 fcb $3D =
321 fcb $01
322 fcb $0D
323 fcb $13
324 fcb $46 F
325 fcb $4F O
326 fcb $52 R
327 fcb $4D M
328 fcb $41 A
329 fcb $54 T
330 fcb $20
331 fcb $50 P
332 fcb $41 A
333 fcb $52 R
334 fcb $41 A
335 fcb $4D M
336 fcb $45 E
337 fcb $54 T
338 fcb $45 E
339 fcb $52 R
340 fcb $53 S
341 fcb $3A :
342 fcb $0D
343 fcb $11
344 fcb $46 F
345 fcb $6F o
346 fcb $72 r
347 fcb $6D m
348 fcb $61 a
349 fcb $74 t
350 fcb $74 t
351 fcb $69 i
352 fcb $6E n
353 fcb $67 g
354 fcb $20
355 fcb $64 d
356 fcb $72 r
357 fcb $69 i
358 fcb $76 v
359 fcb $65 e
360 fcb $20
361 fcb $1D
362 fcb $79 y
363 fcb $20
364 fcb $28 (
365 fcb $79 y
366 fcb $65 e
367 fcb $73 s
368 fcb $29 )
369 fcb $2C ,
370 fcb $20
371 fcb $6E n
372 fcb $20
373 fcb $28 (
374 fcb $6E n
375 fcb $6F o
376 fcb $29 )
377 fcb $2C ,
378 fcb $20
379 fcb $6F o
380 fcb $72 r
381 fcb $20
382 fcb $71 q
383 fcb $20
384 fcb $28 (
385 fcb $71 q
386 fcb $75 u
387 fcb $69 i
388 fcb $74 t
389 fcb $29 )
390 fcb $0D
391 fcb $06
392 fcb $52 R
393 fcb $65 e
394 fcb $61 a
395 fcb $64 d
396 fcb $79 y
397 fcb $3F ?
398 fcb $0D
399 fcb $56 V
400 fcb $6F o
401 fcb $6C l
402 fcb $75 u
403 fcb $6D m
404 fcb $65 e
405 fcb $20
406 fcb $4E N
407 fcb $61 a
408 fcb $6D m
409 fcb $65 e
410 fcb $3D =
411 fcb $0D
412 fcb $12
413 fcb $56 V
414 fcb $65 e
415 fcb $72 r
416 fcb $69 i
417 fcb $66 f
418 fcb $79 y
419 fcb $69 i
420 fcb $6E n
421 fcb $67 g
422 fcb $20
423 fcb $54 T
424 fcb $72 r
425 fcb $61 a
426 fcb $63 c
427 fcb $6B k
428 fcb $73 s
429 fcb $3A :
430 fcb $0D
431 fcb $0E
432 fcb $20
433 fcb $47 G
434 fcb $6F o
435 fcb $6F o
436 fcb $64 d
437 fcb $20
438 fcb $53 S
439 fcb $65 e
440 fcb $63 c
441 fcb $74 t
442 fcb $6F o
443 fcb $72 r
444 fcb $73 s
445 fcb $0D
446 fcb $1D
447 fcb $2A *
448 fcb $2A *
449 fcb $2A *
450 fcb $20
451 fcb $53 S
452 fcb $54 T
453 fcb $41 A
454 fcb $4E N
455 fcb $44 D
456 fcb $41 A
457 fcb $52 R
458 fcb $44 D
459 fcb $20
460 fcb $44 D
461 fcb $49 I
462 fcb $53 S
463 fcb $4B K
464 fcb $20
465 fcb $46 F
466 fcb $4F O
467 fcb $52 R
468 fcb $4D M
469 fcb $41 A
470 fcb $54 T
471 fcb $20
472 fcb $2A *
473 fcb $2A *
474 fcb $2A *
475 fcb $0D
476 fcb $20
477 fcb $28 (
478 fcb $43 C
479 fcb $29 )
480 fcb $20
481 fcb $43 C
482 fcb $6F o
483 fcb $70 p
484 fcb $79 y
485 fcb $72 r
486 fcb $69 i
487 fcb $67 g
488 fcb $68 h
489 fcb $74 t
490 fcb $20
491 fcb $31 1
492 fcb $39 9
493 fcb $38 8
494 fcb $33 3
495 fcb $20
496 fcb $44 D
497 fcb $2E .
498 fcb $50 P
499 fcb $2E .
500 fcb $20
501 fcb $4A J
502 fcb $6F o
503 fcb $68 h
504 fcb $6E n
505 fcb $73 s
506 fcb $6F o
507 fcb $6E n
508 fcb $0D
509 fcb $14
510 fcb $41 A
511 fcb $4C L
512 fcb $4C L
513 fcb $20
514 fcb $52 R
515 fcb $49 I
516 fcb $47 G
517 fcb $48 H
518 fcb $54 T
519 fcb $53 S
520 fcb $20
521 fcb $52 R
522 fcb $45 E
523 fcb $53 S
524 fcb $45 E
525 fcb $52 R
526 fcb $56 V
527 fcb $45 E
528 fcb $44 D
529 fcb $0D
530 fcb $0D
531 fcb $53 S
532 fcb $59 Y
533 fcb $4E N
534 fcb $54 T
535 fcb $41 A
536 fcb $58 X
537 fcb $20
538 fcb $45 E
539 fcb $52 R
540 fcb $52 R
541 fcb $4F O
542 fcb $52 R
543 fcb $0D
544 fcb $1D
545 fcb $75 u
546 fcb $73 s
547 fcb $65 e
548 fcb $3A :
549 fcb $20
550 fcb $53 S
551 fcb $46 F
552 fcb $4F O
553 fcb $52 R
554 fcb $4D M
555 fcb $41 A
556 fcb $54 T
557 fcb $20
558 fcb $2F /
559 fcb $64 d
560 fcb $65 e
561 fcb $76 v
562 fcb $6E n
563 fcb $61 a
564 fcb $6D m
565 fcb $65 e
566 fcb $20
567 fcb $5B [
568 fcb $6F o
569 fcb $70 p
570 fcb $74 t
571 fcb $73 s
572 fcb $5D ]
573 fcb $0D
574 fcb $1A
575 fcb $20
576 fcb $6F o
577 fcb $70 p
578 fcb $74 t
579 fcb $73 s
580 fcb $3A :
581 fcb $20
582 fcb $53 S
583 fcb $20
584 fcb $3D =
585 fcb $20
586 fcb $53 S
587 fcb $69 i
588 fcb $6E n
589 fcb $67 g
590 fcb $6C l
591 fcb $65 e
592 fcb $20
593 fcb $64 d
594 fcb $65 e
595 fcb $6E n
596 fcb $73 s
597 fcb $69 i
598 fcb $74 t
599 fcb $79 y
600 fcb $0D
601 fcb $1A
602 fcb $20
603 fcb $20
604 fcb $20
605 fcb $20
606 fcb $20
607 fcb $20
608 fcb $20
609 fcb $44 D
610 fcb $20
611 fcb $3D =
612 fcb $20
613 fcb $44 D
614 fcb $6F o
615 fcb $75 u
616 fcb $62 b
617 fcb $6C l
618 fcb $65 e
619 fcb $20
620 fcb $64 d
621 fcb $65 e
622 fcb $6E n
623 fcb $73 s
624 fcb $69 i
625 fcb $74 t
626 fcb $79 y
627 fcb $0D
628 fcb $11
629 fcb $20
630 fcb $20
631 fcb $20
632 fcb $20
633 fcb $20
634 fcb $20
635 fcb $20
636 fcb $52 R
637 fcb $20
638 fcb $3D =
639 fcb $20
640 fcb $52 R
641 fcb $65 e
642 fcb $61 a
643 fcb $64 d
644 fcb $79 y
645 fcb $0D
646 fcb $12
647 fcb $20
648 fcb $20
649 fcb $20
650 fcb $20
651 fcb $20
652 fcb $20
653 fcb $20
654 fcb $31 1
655 fcb $20
656 fcb $3D =
657 fcb $20
658 fcb $31 1
659 fcb $20
660 fcb $73 s
661 fcb $69 i
662 fcb $64 d
663 fcb $65 e
664 fcb $0D
665 fcb $13
666 fcb $20
667 fcb $20
668 fcb $20
669 fcb $20
670 fcb $20
671 fcb $20
672 fcb $20
673 fcb $32 2
674 fcb $20
675 fcb $3D =
676 fcb $20
677 fcb $32 2
678 fcb $20
679 fcb $73 s
680 fcb $69 i
681 fcb $64 d
682 fcb $65 e
683 fcb $73 s
684 fcb $0D
685 fcb $12
686 fcb $20
687 fcb $20
688 fcb $20
689 fcb $20
690 fcb $20
691 fcb $20
692 fcb $20
693 fcb $34 4
694 fcb $20
695 fcb $3D =
696 fcb $20
697 fcb $34 4
698 fcb $38 8
699 fcb $20
700 fcb $54 T
701 fcb $50 P
702 fcb $49 I
703 fcb $0D
704 fcb $1C
705 fcb $20
706 fcb $20
707 fcb $20
708 fcb $20
709 fcb $20
710 fcb $20
711 fcb $20
712 fcb $4F O
713 fcb $20
714 fcb $3D =
715 fcb $20
716 fcb $4F O
717 fcb $53 S
718 fcb $2D -
719 fcb $39 9
720 fcb $20
721 fcb $53 S
722 fcb $74 t
723 fcb $64 d
724 fcb $2E .
725 fcb $20
726 fcb $66 f
727 fcb $6F o
728 fcb $72 r
729 fcb $6D m
730 fcb $61 a
731 fcb $74 t
732 fcb $0D
733 fcb $13
734 fcb $20
735 fcb $20
736 fcb $20
737 fcb $20
738 fcb $20
739 fcb $20
740 fcb $20
741 fcb $22 "
742 fcb $64 d
743 fcb $69 i
744 fcb $73 s
745 fcb $6B k
746 fcb $20
747 fcb $6E n
748 fcb $61 a
749 fcb $6D m
750 fcb $65 e
751 fcb $22 "
752 fcb $0D
753 fcb $1A
754 fcb $20
755 fcb $20
756 fcb $20
757 fcb $20
758 fcb $20
759 fcb $20
760 fcb $20
761 fcb $27 '
762 fcb $6E n
763 fcb $6F o
764 fcb $2E .
765 fcb $20
766 fcb $6F o
767 fcb $66 f
768 fcb $20
769 fcb $63 c
770 fcb $79 y
771 fcb $6C l
772 fcb $69 i
773 fcb $6E n
774 fcb $64 d
775 fcb $65 e
776 fcb $72 r
777 fcb $73 s
778 fcb $27 '
779 fcb $0D
780 fcb $14
781 fcb $20
782 fcb $20
783 fcb $20
784 fcb $20
785 fcb $20
786 fcb $20
787 fcb $20
788 fcb $3A :
789 fcb $49 I
790 fcb $6E n
791 fcb $74 t
792 fcb $65 e
793 fcb $72 r
794 fcb $6C l
795 fcb $65 e
796 fcb $61 a
797 fcb $76 v
798 fcb $65 e
799 fcb $3A :
800 fcb $0D
801 fcb $11
802 fcb $43 C
803 fcb $68 h
804 fcb $61 a
805 fcb $6E n
806 fcb $67 g
807 fcb $65 e
808 fcb $20
809 fcb $74 t
810 fcb $6F o
811 fcb $20
812 fcb $34 4
813 fcb $38 8
814 fcb $20
815 fcb $74 t
816 fcb $70 p
817 fcb $69 i
818 fcb $3F ?
819 fcb $13
820 fcb $53 S
821 fcb $79 y
822 fcb $73 s
823 fcb $74 t
824 fcb $65 e
825 fcb $6D m
826 fcb $20
827 fcb $53 S
828 fcb $65 e
829 fcb $63 c
830 fcb $74 t
831 fcb $6F o
832 fcb $72 r
833 fcb $20
834 fcb $42 B
835 fcb $41 A
836 fcb $44 D
837 fcb $07
838 fcb $0D
839 fcb $01
840 fcb $28 (
841 L0304 fcb $27 '
842 fcb $FF
843 fcb $01
844 fcb $FF
845 fcb $06
846 fcb $00
847 fcb $01
848 fcb $FC
849 fcb $0C
850 fcb $FF
851 fcb $05
852 fcb $00
853 fcb $01
854 fcb $00
855 fcb $01
856 fcb $FE
857 fcb $04
858 fcb $01
859 fcb $01
860 fcb $F7 w
861 fcb $0A
862 fcb $FF
863 fcb $06
864 fcb $00
865 fcb $01
866 fcb $FB
867 fcb $00
868 fcb $E5 e
869 fcb $01
870 fcb $F7 w
871 fcb $08
872 fcb $FF
873 fcb $02
874 fcb $FF
875 fcb $01
876 fcb $52 R
877 L0328 fcb $50 P
878 fcb $4E N
879 fcb $0C
880 fcb $00
881 fcb $03
882 fcb $F6 v
883 fcb $01
884 fcb $FC
885 fcb $20
886 fcb $4E N
887 fcb $0C
888 fcb $00
889 fcb $03
890 fcb $F5 u
891 fcb $01
892 fcb $FE
893 fcb $04
894 fcb $01
895 fcb $01
896 fcb $F7 w
897 fcb $16
898 fcb $4E N
899 fcb $0C
900 fcb $00
901 fcb $03
902 fcb $F5 u
903 fcb $01
904 fcb $FB
905 fcb $00
906 fcb $E5 e
907 fcb $01
908 fcb $F7 w
909 fcb $16
910 fcb $4E N
911 fcb $01
912 fcb $50 P
913 L034C fcb $20
914 fcb $4E N
915 fcb $0C
916 fcb $00
917 fcb $03
918 fcb $F6 v
919 fcb $01
920 fcb $FC
921 fcb $20
922 fcb $4E N
923 fcb $08
924 fcb $00
925 fcb $03
926 fcb $F5 u
927 fcb $01
928 fcb $FE
929 fcb $04
930 fcb $01
931 fcb $01
932 fcb $F7 w
933 fcb $16
934 fcb $4E N
935 fcb $0C
936 fcb $00
937 fcb $03
938 fcb $F5 u
939 fcb $01
940 fcb $FB
941 fcb $00
942 fcb $E5 e
943 fcb $01
944 fcb $F7 w
945 fcb $18
946 fcb $4E N
947 start equ *
948 pshs u
949 clrb
950 L0371 clr ,u+
951 decb
952 bne L0371
953 puls u
954 stu <u0005
955 L037A lda ,x+
956 cmpa #$20
957 beq L037A
958 cmpa #$2F
959 bne L03EA
960 sta <u0023
961 os9 F$PrsNam
962 bcs L03EA
963 stb <u001A
964 inc <u001A
965 leay <u0024,u
966 L0392 lda ,x+
967 sta -$07,y
968 sta ,y+
969 decb
970 bne L0392
971 lda #$40
972 ldb #$0D
973 std ,y
974 stb -$07,y
975 stx <u0001
976 lbsr L05FB
977 lbra L1AAD
978 clra
979 lbsr L1AB1
980 fcb $4B K
981 fcb $18
982 lbsr L05FB
983 jmp <u004F
984 leax <u001D,u
985 os9 I$Attach
986 lbcs L09B9
987 stu <u001B
988 ldu <u0005
989 lda #$01
990 clrb
991 leax <u004D,u
992 os9 I$GetStt
993 lbcs L09B9
994 ldb $07,x
995 stb <u006D
996 clr $07,x
997 clrb
998 os9 I$SetStt
999 bcs L03E7
1000 leax <u0023,u
1001 lda #$02
1002 os9 I$Open
1003 bcc L03F1
1004 L03E7 lbra L09A6
1005 L03EA lbsr L0AB8
1006 clrb
1007 os9 F$Exit
1008 L03F1 sta <u0000
1009 ldb #$00
1010 leax <u006E,u
1011 os9 I$GetStt
1012 bcs L03E7
1013 lda <u0072,u
1014 tfr a,b
1015 anda #$01
1016 sta <u000D
1017 andb #$02
1018 stb <u000C
1019 lda <u0071,u
1020 tfr a,b
1021 anda #$81
1022 lbne L0AAB
1023 andb #$20
1024 stb <u0011
1025 ldd <u0074,u
1026 std <u000E
1027 ldd <u0077,u
1028 stb <u0013
1029 ldd <u0079,u
1030 stb <u0012
1031 ldb <u007B,u
1032 stb <u0010
1033 bra L0436
1034 L042F cmpa #$60
1035 bls L0435
1036 suba #$20
1037 L0435 rts
1038 L0436 ldx <u0001
1039 L0438 lda ,x+
1040 bsr L042F
1041 cmpa #$0D
1042 lbeq L0502
1043 ldb #$01
1044 tst <u0011
1045 bne L0456
1046 cmpa #$53
1047 bne L0456
1048 clr <u000D
1049 lda #$0A
1050 sta <u0012
1051 sta <u0013
1052 bra L0438
1053 L0456 cmpa #$44
1054 bne L045E
1055 stb <u000D
1056 bra L0438
1057 L045E cmpa #$52
1058 bne L0480
1059 stb <u0003
1060 bra L0438
1061 cmpa #$43
1062 bne L0478
1063 lda #$20
1064 sta <u0011
1065 stb <u000D
1066 lda #$12
1067 sta <u0012
1068 sta <u0013
1069 bra L0438
1070 L0478 cmpa #$4F
1071 bne L0480
1072 clr <u0011
1073 bra L0438
1074 L0480 cmpa #$31
1075 bne L0488
1076 stb <u000F
1077 bra L0438
1078 L0488 cmpa #$32
1079 bne L0497
1080 cmpb <u0075
1081 lbeq L0AAB
1082 incb
1083 stb <u000F
1084 bra L0438
1085 L0497 cmpa #$34
1086 bne L049F
1087 clr <u000C
1088 bra L04D5
1089 L049F cmpa #$27
1090 bne L04BD
1091 lbsr L069E
1092 lbcs L0AB0
1093 cmpd <u0073
1094 lbhi L0AAB
1095 stb <u000E
1096 lda ,x+
1097 cmpa #$27
1098 lbne L0AB0
1099 bra L04D5
1100 L04BD cmpa #$22
1101 bne L04EF
1102 inc <u0004
1103 leay >u00AD,u
1104 ldb #$20
1105 L04C9 lda ,x+
1106 cmpa #$22
1107 bne L04D8
1108 L04CF lda ,-y
1109 ora #$80
1110 sta ,y
1111 L04D5 lbra L0438
1112 L04D8 cmpa #$0D
1113 lbeq L0AB0
1114 sta ,y+
1115 decb
1116 bne L04C9
1117 L04E3 lda ,x+
1118 cmpa #$22
1119 beq L04CF
1120 cmpa #$0D
1121 beq L04CF
1122 bra L04E3
1123 L04EF cmpa #$3A
1124 bne L04D5
1125 lbsr L069E
1126 stb <u0010
1127 lda ,x+
1128 cmpa #$3A
1129 lbne L0AB0
1130 bra L04D5
1131 L0502 bsr L057F
1132 clr <u008D
1133 lsl >$0E0D
1134 tst <u0026
1135 eim #$8D,<u0071
1136 oim #$20,<u0003
1137 bsr L057F
1138 neg <u008D
1139 rol $02,x
1140 ldb <u000E
1141 lbsr L0638
1142 bsr L057F
1143 com <u00D6
1144 clr <u0017
1145 oim #$14,<u008D
1146 rolb
1147 lsr <u000D
1148 fcb $11
1149 beq L0530
1150 bsr L057F
1151 eim #$20,<u0003
1152 L0530 bsr L057F
1153 ror <u008D
1154 deca
1155 asr <u00D6
1156 nop
1157 lbsr L0638
1158 bsr L057F
1159 lsl <u00D6
1160 sync
1161 lbsr L0638
1162 bsr L057F
1163 rol <u008D
1164 pulu dp,b,a
1165 bsr L057F
1166 L054B fcb $10
1167 ldb <u001A
1168 clra
1169 tfr d,y
1170 leax <u0023,u
1171 lda #$01
1172 os9 I$WritLn
1173 lbcs L03E7
1174 bsr L057F
1175 jmp <u000D
1176 com <u0010
1177 bne L0566
1178 bita #$8D
1179 lbsr L16F7
1180 sexw
1181 nop
1182 lbsr L061D
1183 lbeq L06EB
1184 cmpa #$51
1185 lbeq L09A0
1186 cmpa #$4E
1187 bne L0546
1188 bra L0581
1189 L057F bra L05FB
1190 L0581 bra L059D
1191 bsr L05FB
1192 dec <u000F
1193 fcb $11
1194 lbsr L061D
1195 bne L059D
1196 lda #$20
1197 sta <u0011
1198 lda #$12
1199 sta <u0012
1200 sta <u0013
1201 lda #$01
1202 sta <u000D
1203 bra L05B6
1204 L059D tst <u0011
1205 bne L05B6
1206 lda #$0A
1207 sta <u0012
1208 sta <u0013
1209 bsr L05FB
1210 tim #$0F,<u000D
1211 bsr L061D
1212 bne L05B6
1213 inc <u000D
1214 lda #$10
1215 sta <u0013
1216 L05B6 tst <u000C
1217 beq L05C3
1218 bsr L05FB
1219 bcs L054B
1220 fcb $5E ^
1221 bne L05C3
1222 clr <u000C
1223 L05C3 lda <u0075
1224 cmpa #$01
1225 beq L05D6
1226 bsr L05FB
1227 inc <u0086
1228 oim #$97,<u000F
1229 bsr L061D
1230 bne L05D6
1231 inc <u000F
1232 L05D6 bsr L05FB
1233 tst <u0010
1234 ldx #$0050
1235 leax >u00CD,u
1236 clra
1237 os9 I$ReadLn
1238 lbcs L03E7
1239 lbsr L069E
1240 bcs L05D6
1241 cmpd <u0073
1242 bhi L05D6
1243 stb <u000E
1244 bsr L05FB
1245 jmp <u0016
1246 stu >$0735
1247 ldw ,x+
1248 pshs x
1249 leax >L0033,pcr
1250 L0605 tsta
1251 beq L060E
1252 ldb ,x+
1253 abx
1254 deca
1255 bra L0605
1256 L060E ldb ,x+
1257 clra
1258 tfr d,y
1259 lda #$01
1260 os9 I$WritLn
1261 lbcs L03E7
1262 rts
1263 L061D clr ,-s
1264 tfr s,x
1265 ldy #$0001
1266 clra
1267 os9 I$Read
1268 lbcs L03E7
1269 bsr L05FB
1270 jmp <u0035
1271 aim #$17,<u00FD
1272 orb >$8159
1273 rts
1274 L0638 clra
1275 leax <u002B,u
1276 ldy #$0004
1277 bsr L065D
1278 leax <u002D,u
1279 ldy #$0003
1280 lda #$01
1281 os9 I$WritLn
1282 lbcs L03E7
1283 rts
1284 L0653 beq L0665
1285 com <u00E8
1286 neg <u0064
1287 neg <u000A
1288 neg <u0001
1289 L065D pshs y
1290 pshs x,b,a
1291 lda #$30
1292 ldb #$05
1293 L0665 stb $04,s
1294 L0667 sta ,x+
1295 decb
1296 bne L0667
1297 puls x,b,a
1298 pshs x,b,a
1299 leay <L0653,pcr
1300 L0673 subd ,y
1301 bcs L067B
1302 inc ,x
1303 bra L0673
1304 L067B addd ,y++
1305 leax $01,x
1306 dec $04,s
1307 bne L0673
1308 puls x,b,a
1309 puls y
1310 pshs y
1311 tst $01,s
1312 beq L069B
1313 lda #$30
1314 ldb #$20
1315 L0691 cmpa ,x
1316 bne L069B
1317 stb ,x+
1318 dec $01,s
1319 bne L0691
1320 L069B leas $02,s
1321 rts
1322 L069E pshs y
1323 leay u0007,u
1324 bsr L06A6
1325 puls pc,y
1326 L06A6 clrb
1327 clra
1328 std ,y
1329 L06AA lda ,x+
1330 cmpa #$20
1331 beq L06AA
1332 cmpa #$30
1333 bcs L06E2
1334 cmpa #$39
1335 bhi L06E2
1336 suba #$30
1337 sta $01,y
1338 L06BC ldb ,x+
1339 cmpb #$30
1340 bcs L06E5
1341 cmpb #$39
1342 bhi L06E5
1343 subb #$30
1344 clra
1345 pshs b,a
1346 lda $01,y
1347 ldb #$0A
1348 mul
1349 pshs b,a
1350 lda ,y
1351 ldb #$0A
1352 mul
1353 tfr b,a
1354 clrb
1355 addd ,s++
1356 addd ,s++
1357 std ,y
1358 bra L06BC
1359 L06E2 comb
1360 bra L06E6
1361 L06E5 clrb
1362 L06E6 leax -$01,x
1363 ldd ,y
1364 rts
1365 L06EB lda <u0000
1366 ldb #$03
1367 os9 I$SetStt
1368 lda <u000D
1369 pshs a
1370 tst <u0011
1371 beq L070E
1372 leax >L034C,pcr
1373 L06FE lda <u0012
1374 lbsr L0A01
1375 clra
1376 clrb
1377 lbsr L09BC
1378 puls a
1379 sta <u000D
1380 bra L0716
1381 L070E leax >L0304,pcr
1382 clr <u000D
1383 bra L06FE
1384 L0716 leax >L034C,pcr
1385 tst <u0011
1386 bne L0734
1387 leax >L0304,pcr
1388 tst <u000D
1389 beq L0734
1390 leax >L0328,pcr
1391 lda <u0013
1392 cmpa #$10
1393 bls L0734
1394 leax >L034C,pcr
1395 L0734 lda <u0013
1396 lbsr L0A01
1397 bra L0746
1398 L073B lda <u0009
1399 inca
1400 cmpa <u000E
1401 beq L0755
1402 clrb
1403 lbsr L09BC
1404 L0746 lda <u000F
1405 cmpa #$02
1406 bne L073B
1407 lda <u0009
1408 ldb #$01
1409 lbsr L09BC
1410 bra L073B
1411 L0755 lda <u0013
1412 sta <u0091
1413 sta <u00A0
1414 ldd <u008F
1415 addd #$0007
1416 lsra
1417 rorb
1418 lsra
1419 rorb
1420 lsra
1421 rorb
1422 std <u0092
1423 subd #$0001
1424 pshs a
1425 ldb #$02
1426 addb ,s+
1427 stb <u0098
1428 ldb #$01
1429 stb <u0095
1430 lda <u000C
1431 ora <u000D
1432 lsla
1433 ldb <u000F
1434 cmpb #$02
1435 bne L0783
1436 inca
1437 L0783 sta <u009E
1438 lda <u00AD
1439 leax >u00A8,u
1440 os9 F$Time
1441 sta <u00AD
1442 tst <u0004
1443 bne L07B8
1444 lbsr L05FB
1445 sync
1446 leax >u00AD,u
1447 ldy #$0020
1448 clra
1449 os9 I$ReadLn
1450 lbcs L03E7
1451 tfr y,d
1452 L07AA decb
1453 lda b,x
1454 tstb
1455 beq L07B4
1456 cmpa #$0D
1457 beq L07AA
1458 L07B4 ora #$80
1459 sta b,x
1460 L07B8 lda #$FF
1461 sta <u009B
1462 ldd <u00A9
1463 addd <u00AB
1464 pshs b,a
1465 ldb <u00AC
1466 leax >u00AD,u
1467 L07C8 lda ,s
1468 eora b,x
1469 sta ,s
1470 rola
1471 rol $01,s
1472 rol ,s
1473 decb
1474 bne L07C8
1475 puls b,a
1476 addd <u000D
1477 subd <u0011
1478 addd <u0005
1479 subd <u0001
1480 std <u009C
1481 leax >u00CD,u
1482 ldy #$1000
1483 L07EA clr ,x+
1484 leay -$01,y
1485 bne L07EA
1486 lda <u0000
1487 ldb #$03
1488 os9 I$SetStt
1489 ldy #$0100
1490 leax >u008E,u
1491 os9 I$Write
1492 lbcs L03E7
1493 ldd <u0092
1494 inca
1495 clrb
1496 tfr d,y
1497 leax >u00CD,u
1498 lda #$FF
1499 L0812 sta ,x+
1500 leay -$01,y
1501 bne L0812
1502 ldy <u008F
1503 leax >u00CD,u
1504 clra
1505 clrb
1506 os9 F$DelBit
1507 ldb <u0092
1508 addb #$02
1509 addb <u007C
1510 std <u0037
1511 tfr d,y
1512 clra
1513 clrb
1514 os9 F$AllBit
1515 lda <u0000
1516 os9 I$Close
1517 bcc L083D
1518 L083A lbra L09A6
1519 L083D leax <u0023,u
1520 lda #$01
1521 os9 I$Open
1522 bcs L083A
1523 sta <u0000
1524 leax >u1A6F,u
1525 ldy #$0100
1526 os9 I$Read
1527 bcs L083A
1528 os9 I$Read
1529 bcs L083A
1530 lda <u0000
1531 os9 I$Close
1532 bcs L083A
1533 leax <u0023,u
1534 lda #$03
1535 os9 I$Open
1536 bcs L083A
1537 sta <u0000
1538 ldd <u008F
1539 std <u0035
1540 lda <u0000
1541 ldx #$0000
1542 tfr x,u
1543 os9 I$Seek
1544 ldu <u0005
1545 lbcs L091A
1546 lbsr L05FB
1547 sexw
1548 L0886 ldd <u0030
1549 cmpd <u008F
1550 lbeq L091D
1551 tst <u0034
1552 bne L08B6
1553 ldy #$0001
1554 leax >L00B4,pcr
1555 lda #$01
1556 os9 I$Write
1557 bcs L091A
1558 ldb <u0033
1559 lbsr L0638
1560 leax >L007B,pcr
1561 ldy #$0001
1562 lda #$01
1563 os9 I$WritLn
1564 bcs L091A
1565 L08B6 leax >u1A6F,u
1566 ldy #$0100
1567 lda <u0000
1568 os9 I$Read
1569 bcc L08F6
1570 ldd <u0030
1571 cmpd <u0037
1572 bcs L0914
1573 ldy #$0001
1574 leax >u00CD,u
1575 os9 F$AllBit
1576 ldd <u0035
1577 subd #$0001
1578 std <u0035
1579 clrb
1580 L08DF pshs b
1581 ldd <u0030
1582 addd #$0001
1583 pshs b,a
1584 clrb
1585 pshs b
1586 puls u,x
1587 lda <u0000
1588 os9 I$Seek
1589 ldu <u0005
1590 bcs L091A
1591 L08F6 ldd <u0030
1592 addd #$0001
1593 std <u0030
1594 inc <u0034
1595 ldb <u0012
1596 clra
1597 cmpd <u0030
1598 bcc L0909
1599 ldb <u0013
1600 L0909 cmpb <u0034
1601 bne L0911
1602 clr <u0034
1603 inc <u0033
1604 L0911 lbra L0886
1605 L0914 lbsr L05FB
1606 bne L08DF
1607 oim #$16,<u0000
1608 adca #$17
1609 ldd >$DB0E
1610 ldd <u0035
1611 leax <u002B,u
1612 ldy #$0004
1613 lbsr L065D
1614 leax <u002B,u
1615 ldy #$0005
1616 lda #$01
1617 os9 I$WritLn
1618 bcs L091A
1619 lbsr L05FB
1620 fcb $15
1621 ldx #$0000
1622 ldu #$0100
1623 lda <u0000
1624 os9 I$Seek
1625 ldu <u0005
1626 bcs L091A
1627 leax >u00CD,u
1628 lda <u0098
1629 deca
1630 clrb
1631 leax d,x
1632 lda #$BF
1633 sta ,x
1634 ldd <u00A8
1635 std $03,x
1636 std $0D,x
1637 ldd <u00AA
1638 std $05,x
1639 sta $0F,x
1640 lda <u00AC
1641 sta $07,x
1642 lda #$40
1643 sta $0C,x
1644 ldb <u0098
1645 stb >$011F,x
1646 stb >$013F,x
1647 incb
1648 stb <$12,x
1649 ldb <u007C
1650 decb
1651 stb <$14,x
1652 ldd #$2EAE
1653 std >$0100,x
1654 stb >$0120,x
1655 lda <u0038
1656 deca
1657 clrb
1658 tfr d,y
1659 leax >u00CD,u
1660 lda <u0000
1661 os9 I$Write
1662 bcs L09A6
1663 L09A0 ldu <u001B
1664 os9 I$Detach
1665 L09A5 clrb
1666 L09A6 pshs b,cc
1667 ldb <u006D
1668 ldu <u0005
1669 leax <u004D,u
1670 stb $07,x
1671 lda #$01
1672 clrb
1673 os9 I$SetStt
1674 puls b,cc
1675 L09B9 os9 F$Exit
1676 L09BC bsr L09E9
1677 pshs u
1678 clra
1679 ldb <u000D
1680 orb <u000C
1681 lslb
1682 orb <u000A
1683 tfr d,y
1684 ldb <u0009
1685 pshs b,a
1686 leax >u00CD,u
1687 puls u
1688 lda <u0000
1689 ldb #$04
1690 os9 I$SetStt
1691 bcc L09DF
1692 bra L09A6
1693 L09DF ldd <u008F
1694 addb <u000B
1695 adca #$00
1696 std <u008F
1697 puls pc,u
1698 L09E9 std <u0009
1699 ldb <u000B
1700 pshs b
1701 ldx <u0014
1702 L09F1 ldd <u0009
1703 std ,x
1704 tfr x,d
1705 addd <u0018
1706 tfr d,x
1707 dec ,s
1708 bne L09F1
1709 puls pc,b
1710 L0A01 sta <u000B
1711 ldb <u0010
1712 lbsr L0A7E
1713 leay >u00CD,u
1714 clrb
1715 pshs x,b,a
1716 ldd -$02,x
1717 std <u0018
1718 ldb #$05
1719 bsr L0A6F
1720 stx <u0016
1721 ldb #$03
1722 bsr L0A6F
1723 sty <u0014
1724 ldb #$09
1725 bsr L0A6F
1726 ldb ,s
1727 decb
1728 pshs b
1729 L0A29 ldx <u0016
1730 ldb #$0C
1731 bsr L0A6F
1732 dec ,s
1733 bne L0A29
1734 leas $01,s
1735 leax >u1A6F,u
1736 tfr x,d
1737 pshs y
1738 subd ,s
1739 std ,s
1740 ldx $04,s
1741 lda $01,x
1742 puls x
1743 L0A47 sta ,y+
1744 leax -$01,x
1745 bne L0A47
1746 ldy <u0014
1747 leax <u0039,u
1748 ldb $01,s
1749 L0A55 lda b,x
1750 tst <u0011
1751 beq L0A5C
1752 inca
1753 L0A5C sta $02,y
1754 L0A5E incb
1755 stb $01,s
1756 tfr y,d
1757 addd <u0018
1758 tfr d,y
1759 ldb $01,s
1760 cmpb ,s
1761 bne L0A55
1762 puls pc,x,b,a
1763 L0A6F pshs b
1764 L0A71 ldd ,x++
1765 L0A73 stb ,y+
1766 deca
1767 bne L0A73
1768 dec ,s
1769 bne L0A71
1770 puls pc,b
1771 L0A7E pshs x,b,a
1772 leax <u0039,u
1773 lda #$FF
1774 ldb #$14
1775 L0A87 sta ,x+
1776 decb
1777 bne L0A87
1778 leax <u0039,u
1779 clra
1780 clrb
1781 bra L0A94
1782 L0A93 incb
1783 L0A94 cmpb ,s
1784 bcs L0A9A
1785 subb ,s
1786 L0A9A tst b,x
1787 bpl L0A93
1788 sta b,x
1789 inca
1790 cmpa ,s
1791 beq L0AA9
1792 addb $01,s
1793 bra L0A94
1794 L0AA9 puls pc,x,b,a
1795 L0AAB ldb #$F9
1796 os9 F$Exit
1797 L0AB0 bsr L0AB8
1798 lbra L09A5
1799 L0AB5 lbra L05FB
1800 L0AB8 bsr L0AB5
1801 daa
1802 bsr L0AB5
1803 orcc #$8D
1804 bitb >$1B8D
1805 sbcb >$1C8D
1806 stu -$03,x
1807 bsr L0AB5
1808 exg a,0
1809 adcb -$01,x
1810 bsr L0AB5
1811 bra L0A5E
1812 addd $02,y
1813 bsr L0AB5
1814 bls L0A64
1815 std <u0024
1816 rts
1817 fcb $01
1818 fcb $E9 i
1819 emod
1820 eom equ *