Mercurial > hg > Members > kono > os9 > sbc09

comparison CoCoOS9/level2v3/MODULES/rbf.asm @ 31:bd2b07db8917 cocoos9lv2v3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CoCoOS9 version
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Jul 2018 15:16:13 +0900
parents
children
comparison
equal deleted inserted replaced
30:7b1b25ff010a 31:bd2b07db8917
1 ********************************************************************
2 * RBF - Random Block file manager
3 *
4 * $Id: rbf.asm,v 1.1.1.1 2001/02/21 23:30:55 boisy Exp $
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 30 Given to me by Gene Heskett BGP 98/10/10
9
10 nam RBF
11 ttl Random Block file manager
12
13 * Disassembled 98/08/24 22:41:27 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use defsfile
17 endc
18
19 tylg set FlMgr+Objct
20 atrv set ReEnt+rev
21 rev set $02
22 edition set 30
23
24 mod eom,name,tylg,atrv,start,size
25 u0000 rmb 0
26 size equ .
27
28 name fcs /RBF/
29 fcb 30
30 L0011 fcb $26
31
32 start equ *
33 lbra L0039
34 lbra L018D
35 lbra L0220
36 lbra L02EC
37 lbra L031F
38 lbra L0407
39 lbra L04B2
40 lbra L0569
41 lbra L0429
42 lbra L0542
43 lbra L05E2
44 lbra L064E
45 lbra L0288
46 L0039 pshs y
47 leas -$05,s
48 lda $02,u
49 anda #$7F
50 sta $02,u
51 lbsr L07B5
52 bcs L004A
53 ldb #$DA
54 L004A cmpb #$D8
55 bne L0082
56 cmpa #$2F
57 beq L0082
58 pshs x
59 ldx $06,y
60 stu $04,x
61 ldb <$16,y
62 ldx <$17,y
63 lda <$19,y
64 ldu <$1A,y
65 pshs u,x,b,a
66 ldx $06,y
67 lda $01,x
68 clrb
69 anda #$20
70 beq L0071
71 ldd $06,x
72 L0071 addd #$0001
73 bcc L0079
74 ldd #$FFFF
75 L0079 lbsr L0DBE
76 bcc L0087
77 leas $06,s
78 L0080 leas $02,s
79 L0082 leas $05,s
80 lbra L02B1
81 L0087 std $0B,s
82 ldb <$16,y
83 ldx <$17,y
84 stb $08,s
85 stx $09,s
86 puls u,x,b,a
87 stb <$16,y
88 stx <$17,y
89 sta <$19,y
90 stu <$1A,y
91 ldd <$3A,y
92 std $0B,y
93 ldd <$3C,y
94 std $0D,y
95 lbsr L0960
96 bcs L00B9
97 L00B0 tst ,x
98 beq L00CB
99 lbsr L094B
100 bcc L00B0
101 L00B9 cmpb #$D3
102 bne L0080
103 ldd #$0020
104 lbsr L05A2
105 bcs L0080
106 lbsr L0275
107 lbsr L0960
108 L00CB leau ,x
109 lbsr L0173
110 puls x
111 os9 F$PrsNam
112 bcs L0082
113 cmpb #$1D
114 bls L00DD
115 ldb #$1D
116 L00DD clra
117 tfr d,y
118 lbsr L05D4
119 tfr y,d
120 ldy $05,s
121 decb
122 lda b,u
123 ora #$80
124 sta b,u
125 ldb ,s
126 ldx $01,s
127 stb <$1D,u
128 stx <$1E,u
129 lbsr L120E
130 bcs L015B
131 ldu $08,y
132 bsr L017A
133 lda #$04
134 sta $0A,y
135 ldx $06,y
136 lda $02,x
137 sta ,u
138 ldx <$0050
139 ldd $08,x
140 std $01,u
141 lbsr L02D1
142 ldd $03,u
143 std $0D,u
144 ldb $05,u
145 stb $0F,u
146 ldb #$01
147 stb $08,u
148 ldd $03,s
149 subd #$0001
150 beq L013A
151 leax <$10,u
152 std $03,x
153 ldd $01,s
154 addd #$0001
155 std $01,x
156 ldb ,s
157 adcb #$00
158 stb ,x
159 L013A ldb ,s
160 ldx $01,s
161 lbsr L1210
162 bcs L015B
163 lbsr L0A99
164 stb <$34,y
165 stx <$35,y
166 lbsr L0A33
167 leas $05,s
168 ldx <$30,y
169 lda #$04
170 sta $07,x
171 lbra L01DB
172 L015B puls u,x,a
173 sta <$16,y
174 stx <$17,y
175 clr <$19,y
176 stu <$1A,y
177 pshs b
178 lbsr L0FD5
179 puls b
180 L0170 lbra L02B1
181 L0173 pshs u,x,b,a
182 leau <$20,u
183 bra L0180
184 L017A pshs u,x,b,a
185 leau >$0100,u
186 L0180 clra
187 clrb
188 tfr d,x
189 L0184 pshu x,b,a
190 cmpu $04,s
191 bhi L0184
192 puls pc,u,x,b,a
193 L018D pshs y
194 lbsr L07B5
195 bcs L0170
196 ldu $06,y
197 stx $04,u
198 ldd <$35,y
199 bne L01CA
200 lda <$34,y
201 bne L01CA
202 ldb $01,y
203 andb #$80
204 lbne L02AF
205 std <$16,y
206 sta <$18,y
207 std <$13,y
208 sta <$15,y
209 ldx <$1E,y
210 lda $02,x
211 std <$11,y
212 sta <$1B,y
213 ldd ,x
214 std $0F,y
215 std <$19,y
216 puls pc,y
217 L01CA lda $01,y
218 lbsr L09E6
219 bcs L0170
220 bita #$02
221 beq L01DB
222 lbsr L02D1
223 lbsr L1206
224 L01DB puls y
225 L01DD clra
226 clrb
227 std $0B,y
228 std $0D,y
229 std <$13,y
230 sta <$15,y
231 sta <$19,y
232 lda ,u
233 sta <$33,y
234 ldd <$10,u
235 std <$16,y
236 lda <$12,u
237 sta <$18,y
238 ldd <$13,u
239 std <$1A,y
240 ldd $09,u
241 ldx $0B,u
242 ldu <$30,y
243 cmpu $05,u
244 beq L0218
245 ldu $05,u
246 ldu $01,u
247 ldd $0F,u
248 ldx <$11,u
249 L0218 std $0F,y
250 stx <$11,y
251 clr $0A,y
252 rts
253 L0220 lbsr L0039
254 bcs L0273
255 lda <$33,y
256 ora #$40
257 lbsr L09E6
258 bcs L0273
259 ldd #$0040
260 std <$11,y
261 bsr L0285
262 bcs L0273
263 lbsr L0C78
264 bcs L0273
265 lbsr L112C
266 ldu $08,y
267 lda ,u
268 ora #$80
269 sta ,u
270 bsr L0278
271 bcs L0273
272 lbsr L017A
273 ldd #$2EAE
274 std ,u
275 stb <$20,u
276 lda <$37,y
277 sta <$1D,u
278 ldd <$38,y
279 std <$1E,u
280 lda <$34,y
281 sta <$3D,u
282 ldd <$35,y
283 std <$3E,u
284 lbsr L120E
285 L0273 bra L02B4
286 L0275 lbsr L112C
287 L0278 ldx $08,y
288 ldd $0F,y
289 std $09,x
290 ldd <$11,y
291 std $0B,x
292 clr $0A,y
293 L0285 lbra L1206
294 L0288 clra
295 tst $02,y
296 bne L02AE
297 lbsr L1240
298 bcs L02B4
299 ldb $01,y
300 bitb #$02
301 beq L02B4
302 ldd <$34,y
303 bne L02A2
304 lda <$36,y
305 beq L02B4
306 L02A2 bsr L0275
307 lbsr L05EE
308 bcc L02B4
309 lbsr L0F07
310 bra L02B4
311 L02AE rts
312 L02AF ldb #$D6
313 L02B1 coma
314 L02B2 puls y
315 L02B4 pshs b,cc
316 ldu $08,y
317 beq L02CF
318 ldd #$0100
319 os9 F$SRtMem
320 ldx <$30,y
321 beq L02CF
322 lbsr L0A99
323 lda ,x
324 ldx <$0088
325 os9 F$Ret64
326 L02CF puls pc,b,cc
327 L02D1 lbsr L112C
328 ldu $08,y
329 lda $08,u
330 ldx <$0050
331 pshs x,a
332 ldx <$004A
333 stx <$0050
334 leax $03,u
335 os9 F$Time
336 puls x,a
337 stx <$0050
338 sta $08,u
339 rts
340 L02EC pshs y
341 lda $01,y
342 ora #$80
343 sta $01,y
344 lbsr L018D
345 bcs L02B2
346 ldx <$0050
347 ldu <$35,y
348 ldb $01,y
349 bitb #$03
350 beq L030D
351 ldb <$34,y
352 stb <$23,x
353 stu <$24,x
354 L030D ldb $01,y
355 bitb #$04
356 beq L031C
357 ldb <$34,y
358 stb <$29,x
359 stu <$2A,x
360 L031C clrb
361 bra L02B2
362 L031F pshs y
363 lbsr L07B5
364 bcs L02B2
365 ldd <$35,y
366 bne L0332
367 tst <$34,y
368 lbeq L02AF
369 L0332 lda #$42
370 lbsr L09E6
371 lbcs L02B2
372 ldu $06,y
373 stx $04,u
374 lbsr L112C
375 lbcs L03D7
376 ldx $08,y
377 dec $08,x
378 beq L0358
379 lbsr L1206
380 nop
381 pshs u,x,b
382 clra
383 clrb
384 std $03,s
385 bra L03A2
386 L0358 ldb <$34,y
387 ldx <$35,y
388 pshs u,x,b
389 ldd #$0100
390 os9 F$SRqMem
391 bcc L036C
392 clra
393 clrb
394 bra L037A
395 L036C stu $03,s
396 ldx $08,y
397 clrb
398 L0371 lda ,x+
399 sta ,u+
400 decb
401 bne L0371
402 ldd $03,s
403 L037A std $03,s
404 clra
405 clrb
406 std $0F,y
407 std <$11,y
408 lbsr L0F07
409 bcs L03F7
410 ldb <$34,y
411 ldx <$35,y
412 stb <$16,y
413 stx <$17,y
414 ldx $08,y
415 ldd <$13,x
416 addd #$0001
417 std <$1A,y
418 lbsr L0FD5
419 L03A2 bcs L03F7
420 lbsr L1240
421 lbsr L0A99
422 lda <$37,y
423 sta <$34,y
424 ldd <$38,y
425 std <$35,y
426 lbsr L112C
427 bcs L03F7
428 lbsr L0A33
429 ldu $08,y
430 lbsr L01DD
431 ldd <$3A,y
432 std $0B,y
433 ldd <$3C,y
434 std $0D,y
435 lbsr L0960
436 bcs L03F7
437 clr ,x
438 lbsr L120E
439 L03D7 ldu $03,s
440 beq L0402
441 ldb ,s
442 ldx $01,s
443 stb <$34,y
444 stx <$35,y
445 ldx <$08,y
446 stx <$01,s
447 stu <$08,y
448 lbsr L1206
449 ldu <$01,s
450 stu <$08,y
451 L03F7 ldu <$03,s
452 beq L0402
453 ldd #$0100
454 os9 F$SRtMem
455 L0402 leas $05,s
456 lbra L02B2
457 L0407 ldb $0A,y
458 bitb #$02
459 beq L0420
460 lda $05,u
461 ldb $08,u
462 subd $0C,y
463 bne L041B
464 lda $04,u
465 sbca $0B,y
466 beq L0424
467 L041B lbsr L1240
468 bcs L0428
469 L0420 ldd $04,u
470 std $0B,y
471 L0424 ldd $08,u
472 std $0D,y
473 L0428 rts
474 L0429 bsr L046C
475 beq L044F
476 bsr L0450
477 pshs u,y,x,b,a
478 exg x,u
479 ldy #$0000
480 lda #$0D
481 L0439 leay $01,y
482 cmpa ,x+
483 beq L0442
484 decb
485 bne L0439
486 L0442 ldx $06,s
487 bsr L04A4
488 sty $0A,s
489 puls u,y,x,b,a
490 ldd $02,s
491 leax d,x
492 L044F rts
493 L0450 lbsr L04DC
494 leax -$01,x
495 lbsr L0988
496 cmpa #$0D
497 beq L0462
498 ldd $02,s
499 lbne L04E2
500 L0462 ldu $06,y
501 ldd $06,u
502 subd $02,s
503 std $06,u
504 bra L04C9
505 L046C ldd $06,u
506 lbsr L0B15
507 bcs L04A0
508 ldd $06,u
509 bsr L047C
510 bcs L04A0
511 std $06,u
512 rts
513 L047C pshs b,a
514 ldd <$11,y
515 subd $0D,y
516 tfr d,x
517 ldd $0F,y
518 sbcb $0C,y
519 sbca $0B,y
520 bcs L049D
521 bne L049A
522 tstb
523 bne L049A
524 cmpx ,s
525 bcc L049A
526 stx ,s
527 beq L049D
528 L049A clrb
529 puls pc,b,a
530 L049D comb
531 ldb #$D3
532 L04A0 leas $02,s
533 bra L04CE
534 L04A4 pshs x
535 ldx <$0050
536 lda <$00D0
537 ldb $06,x
538 puls x
539 os9 F$Move
540 rts
541 L04B2 bsr L046C
542 beq L04C4
543 bsr L04C5
544 L04B8 pshs u,y,x,b,a
545 exg x,u
546 tfr d,y
547 bsr L04A4
548 puls u,y,x,b,a
549 leax d,x
550 L04C4 rts
551 L04C5 bsr L04DC
552 bne L04E2
553 L04C9 clrb
554 L04CA leas -$02,s
555 L04CC leas $0A,s
556 L04CE pshs b,cc
557 lda $01,y
558 bita #$02
559 bne L04D9
560 lbsr L0B0B
561 L04D9 puls b,cc
562 rts
563 L04DC ldd $04,u
564 ldx $06,u
565 pshs x,b,a
566 L04E2 lda $0A,y
567 bita #$02
568 bne L0502
569 tst $0E,y
570 bne L04FD
571 tst $02,s
572 beq L04FD
573 leax >L057A,pcr
574 cmpx $06,s
575 bne L04FD
576 lbsr L10A1
577 bra L0500
578 L04FD lbsr L125F
579 L0500 bcs L04CA
580 L0502 ldu $08,y
581 clra
582 ldb $0E,y
583 leau d,u
584 negb
585 sbca #$FF
586 ldx ,s
587 cmpd $02,s
588 bls L0515
589 ldd $02,s
590 L0515 pshs b,a
591 jsr [<$08,s]
592 stx $02,s
593 lda $0A,y
594 anda #$BF
595 sta $0A,y
596 ldb $01,s
597 addb $0E,y
598 stb $0E,y
599 bne L0539
600 lbsr L1240
601 inc $0D,y
602 bne L0537
603 inc $0C,y
604 bne L0537
605 inc $0B,y
606 L0537 bcs L04CC
607 L0539 ldd $04,s
608 subd ,s++
609 std $02,s
610 jmp [<$04,s]
611 L0542 pshs y
612 clrb
613 ldy $06,u
614 beq L0567
615 ldx <$0050
616 ldb $06,x
617 ldx $04,u
618 L0550 leay -$01,y
619 beq L0567
620 os9 F$LDABX
621 leax $01,x
622 cmpa #$0D
623 bne L0550
624 tfr y,d
625 nega
626 negb
627 sbca #$00
628 addd $06,u
629 std $06,u
630 L0567 puls y
631 L0569 ldd $06,u
632 lbsr L0B15
633 bcs L05A1
634 ldd $06,u
635 beq L05A0
636 bsr L05A2
637 bcs L05A1
638 bsr L058B
639 L057A pshs y,b,a
640 tfr d,y
641 bsr L05D4
642 puls y,b,a
643 leax d,x
644 lda $0A,y
645 ora #$03
646 sta $0A,y
647 rts
648 L058B lbsr L04DC
649 lbne L04E2
650 leas $08,s
651 ldy <$30,y
652 lda #$01
653 lbsr L0ADA
654 ldy $01,y
655 L05A0 clrb
656 L05A1 rts
657 L05A2 addd $0D,y
658 tfr d,x
659 ldd $0B,y
660 adcb #$00
661 adca #$00
662 L05AC cmpd $0F,y
663 bcs L05A0
664 bhi L05B8
665 cmpx <$11,y
666 bls L05A0
667 L05B8 pshs u
668 ldu <$11,y
669 stx <$11,y
670 ldx $0F,y
671 std $0F,y
672 pshs u,x
673 lbsr L0C78
674 puls u,x
675 bcc L05D2
676 stx $0F,y
677 stu <$11,y
678 L05D2 puls pc,u
679 L05D4 pshs x
680 ldx <$0050
681 lda $06,x
682 ldb <$00D0
683 puls x
684 os9 F$Move
685 rts
686 L05E2 ldb $02,u
687 cmpb #$00
688 beq L0608
689 cmpb #$06
690 bne L05F4
691 clr $02,u
692 L05EE clra
693 ldb #$01
694 lbra L047C
695 L05F4 cmpb #$01
696 bne L05FB
697 clr $02,u
698 rts
699 L05FB cmpb #$02
700 bne L0609
701 ldd $0F,y
702 std $04,u
703 ldd <$11,y
704 std $08,u
705 L0608 rts
706 L0609 cmpb #$05
707 bne L0616
708 ldd $0B,y
709 std $04,u
710 ldd $0D,y
711 std $08,u
712 rts
713 L0616 cmpb #$0F
714 bne L0630
715 lbsr L112C
716 bcs L0608
717 ldu $06,y
718 ldd $06,u
719 tsta
720 beq L0629
721 ldd #$0100
722 L0629 ldx $04,u
723 ldu $08,y
724 lbra L04B8
725 L0630 cmpb #$20
726 bne L0649
727 lbsr L1240
728 bcs L0608
729 ldb $06,u
730 ldx $08,u
731 lbsr L1143
732 bcs L0608
733 ldu $06,y
734 ldd $06,u
735 clra
736 bra L0629
737 L0649 lda #$09
738 lbra L1145
739 L064E ldb $02,u
740 cmpb #$00
741 bne L0662
742 ldx $04,u
743 leax $02,x
744 leau <$22,y
745 ldy #$000D
746 lbra L05D4
747 L0662 cmpb #$02
748 bne L06A4
749 ldd <$35,y
750 bne L0672
751 tst <$34,y
752 lbeq L07B1
753 L0672 lda $01,y
754 bita #$02
755 beq L06A0
756 ldd $04,u
757 ldx $08,u
758 cmpd $0F,y
759 bcs L068B
760 bne L0688
761 cmpx <$11,y
762 bcs L068B
763 L0688 lbra L05AC
764 L068B std $0F,y
765 stx <$11,y
766 ldd $0B,y
767 ldx $0D,y
768 pshs x,b,a
769 lbsr L0F07
770 puls u,x
771 stx $0B,y
772 stu $0D,y
773 rts
774 L06A0 comb
775 ldb #$CB
776 L06A3 rts
777 L06A4 cmpb #$0F
778 bne L06E2
779 lda $01,y
780 bita #$02
781 beq L06A0
782 lbsr L112C
783 bcs L06A3
784 pshs y
785 ldx $04,u
786 ldu $08,y
787 ldy <$0050
788 ldd $08,y
789 bne L06C5
790 ldd #$0102
791 bsr L06D4
792 L06C5 ldd #$0305
793 bsr L06D4
794 ldd #$0D03
795 bsr L06D4
796 puls y
797 lbra L1206
798 L06D4 pshs u,x
799 leax a,x
800 leau a,u
801 clra
802 tfr d,y
803 lbsr L05D4
804 puls pc,u,x
805 L06E2 cmpb #$11
806 bne L0701
807 ldd $08,u
808 ldx $04,u
809 cmpx #$FFFF
810 bne L06FE
811 cmpx $08,u
812 bne L06FE
813 ldu <$30,y
814 lda $07,u
815 ora #$02
816 sta $07,u
817 lda #$FF
818 L06FE lbra L0B24
819 L0701 cmpb #$10
820 bne L070E
821 ldd $04,u
822 ldx <$30,y
823 std <$12,x
824 rts
825 L070E cmpb #$1E
826 bne L071E
827 ldx <$1E,y
828 lda $05,u
829 sta <$1E,x
830 clr <$1D,x
831 L071D rts
832 L071E cmpb #$1C
833 bne L078D
834 lbsr L112C
835 bcs L071D
836 ldx <$0050
837 lda $08,x
838 beq L0733
839 ldx $08,y
840 cmpa $01,x
841 bne L0789
842 L0733 lda $05,u
843 tfr a,b
844 ldu $08,y
845 eorb ,u
846 bpl L0784
847 tsta
848 bmi L076D
849 ldx <$1E,y
850 ldd $08,x
851 cmpd <$34,y
852 bne L0752
853 ldb $0A,x
854 cmpb <$36,y
855 beq L0789
856 L0752 ldb $0B,y
857 ldx $0C,y
858 pshs x,b
859 std $0B,y
860 ldb #$20
861 std $0D,y
862 L075E lbsr L094B
863 bcs L0771
864 tst ,x
865 beq L075E
866 puls x,b
867 stb $0B,y
868 stx $0C,y
869 L076D ldb #$EE
870 bra L078B
871 L0771 puls x,a
872 sta $0B,y
873 stx $0C,y
874 cmpb #$D3
875 bne L078B
876 lbsr L112C
877 ldu $08,y
878 ldx $06,y
879 lda $05,x
880 L0784 sta ,u
881 lbra L1206
882 L0789 ldb #$D6
883 L078B coma
884 rts
885 L078D cmpb #$2C
886 bne L07AC
887 lda <$33,y
888 bita #$40
889 lbne L0A94
890 ldx <$30,y
891 lda $05,u
892 sta <$18,x
893 ldu <$0050
894 lda <$0000,u
895 sta <$17,x
896 clrb
897 rts
898 L07AC lda #$0C
899 lbra L1145
900 L07B1 comb
901 ldb #$D0
902 L07B4 rts
903 L07B5 ldd #$0100
904 stb $0A,y
905 os9 F$SRqMem
906 bcs L07B4
907 stu $08,y
908 leau ,y
909 ldx <$0088
910 os9 F$All64
911 exg y,u
912 bcs L07B4
913 stu <$30,y
914 clr <$17,u
915 sty $01,u
916 stu <$10,u
917 ldx $06,y
918 ldx $04,x
919 pshs u,y,x
920 leas -$04,s
921 clra
922 clrb
923 sta <$34,y
924 std <$35,y
925 std <$1C,y
926 lbsr L0988
927 sta ,s
928 cmpa #$2F
929 bne L0804
930 lbsr L0993
931 sta ,s
932 lbcs L0916
933 leax ,y
934 ldy $06,s
935 bra L0827
936 L0804 anda #$7F
937 cmpa #$40
938 beq L0827
939 lda #$2F
940 sta ,s
941 leax -$01,x
942 lda $01,y
943 ldu <$0050
944 leau <$20,u
945 bita #$04
946 beq L081D
947 leau $06,u
948 L081D ldb $03,u
949 stb <$34,y
950 ldd $04,u
951 std <$35,y
952 L0827 ldu $03,y
953 stu <$3E,y
954 lda <$21,y
955 ldb >L0011,pcr
956 mul
957 addd $02,u
958 addd #$000F
959 std <$1E,y
960 lda ,s
961 anda #$7F
962 cmpa #$40
963 bne L0848
964 leax $01,x
965 bra L086A
966 L0848 lbsr L1119
967 lbcs L091E
968 ldu $08,y
969 ldd $0E,u
970 std <$1C,y
971 ldd <$35,y
972 bne L086A
973 lda <$34,y
974 bne L086A
975 lda $08,u
976 sta <$34,y
977 ldd $09,u
978 std <$35,y
979 L086A stx $04,s
980 stx $08,s
981 L086E lbsr L1240
982 lbcs L091E
983 lda ,s
984 anda #$7F
985 cmpa #$40
986 beq L0884
987 lbsr L112C
988 lbcs L091E
989 L0884 lbsr L0A33
990 lda ,s
991 cmpa #$2F
992 bne L08F8
993 clr $02,s
994 clr $03,s
995 lda $01,y
996 ora #$80
997 lbsr L09E6
998 bcs L0916
999 lbsr L01DD
1000 ldx $08,s
1001 leax $01,x
1002 lbsr L0993
1003 std ,s
1004 stx $04,s
1005 sty $08,s
1006 ldy $06,s
1007 bcs L0916
1008 pshs u,y
1009 ldu <$30,y
1010 leau <$20,u
1011 clra
1012 tfr d,y
1013 lbsr L05D4
1014 puls u,y
1015 lbsr L0960
1016 bra L08CA
1017 L08C5 bsr L0921
1018 L08C7 lbsr L094B
1019 L08CA bcs L0916
1020 tst ,x
1021 beq L08C5
1022 clra
1023 ldb $01,s
1024 exg x,y
1025 ldx <$30,x
1026 leax <$20,x
1027 lbsr L09C8
1028 ldx $06,s
1029 exg x,y
1030 bcs L08C7
1031 bsr L092F
1032 lda <$1D,x
1033 sta <$34,y
1034 ldd <$1E,x
1035 std <$35,y
1036 lbsr L0A99
1037 lbra L086E
1038 L08F8 ldx $08,s
1039 tsta
1040 bmi L0905
1041 os9 F$PrsNam
1042 leax ,y
1043 ldy $06,s
1044 L0905 stx $04,s
1045 clra
1046 L0908 lda ,s
1047 leas $04,s
1048 pshs b,a,cc
1049 lda $0A,y
1050 anda #$BF
1051 sta $0A,y
1052 puls pc,u,y,x,b,a,cc
1053 L0916 cmpb #$D3
1054 bne L091E
1055 bsr L0921
1056 ldb #$D8
1057 L091E coma
1058 bra L0908
1059 L0921 pshs b,a
1060 lda $04,s
1061 cmpa #$2F
1062 beq L0949
1063 ldd $06,s
1064 bne L0949
1065 puls b,a
1066 L092F pshs b,a
1067 stx $06,s
1068 lda <$34,y
1069 sta <$37,y
1070 ldd <$35,y
1071 std <$38,y
1072 ldd $0B,y
1073 std <$3A,y
1074 ldd $0D,y
1075 std <$3C,y
1076 L0949 puls pc,b,a
1077 L094B ldb $0E,y
1078 addb #$20
1079 stb $0E,y
1080 bcc L0960
1081 lbsr L1240
1082 inc $0D,y
1083 bne L0960
1084 inc $0C,y
1085 bne L0960
1086 inc $0B,y
1087 L0960 ldd #$0020
1088 lbsr L047C
1089 bcs L0987
1090 ldd #$0020
1091 lbsr L0B15
1092 bcs L0987
1093 lda $0A,y
1094 bita #$02
1095 bne L0980
1096 lbsr L10A1
1097 bcs L0987
1098 lbsr L125F
1099 bcs L0987
1100 L0980 ldb $0E,y
1101 lda $08,y
1102 tfr d,x
1103 clrb
1104 L0987 rts
1105 L0988 pshs u,x,b
1106 ldu <$0050
1107 ldb $06,u
1108 os9 F$LDABX
1109 puls pc,u,x,b
1110 L0993 os9 F$PrsNam
1111 pshs x
1112 bcc L09C0
1113 clrb
1114 L099B pshs a
1115 anda #$7F
1116 cmpa #$2E
1117 puls a
1118 bne L09B6
1119 incb
1120 leax $01,x
1121 tsta
1122 bmi L09B6
1123 bsr L0988
1124 cmpb #$03
1125 bcs L099B
1126 lda #$2F
1127 decb
1128 leax -$03,x
1129 L09B6 tstb
1130 bne L09BE
1131 L09B9 comb
1132 ldb #$D7
1133 puls pc,x
1134 L09BE leay ,x
1135 L09C0 cmpb #$20
1136 bhi L09B9
1137 andcc #$FE
1138 puls pc,x
1139 L09C8 pshs y,x,b,a
1140 L09CA lda ,y+
1141 bmi L09DA
1142 decb
1143 beq L09D7
1144 eora ,x+
1145 anda #$DF
1146 beq L09CA
1147 L09D7 comb
1148 puls pc,y,x,b,a
1149 L09DA decb
1150 bne L09D7
1151 eora ,x
1152 anda #$5F
1153 bne L09D7
1154 clrb
1155 puls pc,y,x,b,a
1156 L09E6 tfr a,b
1157 anda #$07
1158 andb #$C0
1159 pshs x,b,a
1160 lbsr L112C
1161 bcs L0A15
1162 ldu $08,y
1163 ldx <$0050
1164 ldd $08,x
1165 beq L09FE
1166 cmpd $01,u
1167 L09FE puls a
1168 beq L0A05
1169 lsla
1170 lsla
1171 lsla
1172 L0A05 ora ,s
1173 anda #$BF
1174 pshs a
1175 ora #$80
1176 anda ,u
1177 cmpa ,s
1178 beq L0A1E
1179 ldb #$D6
1180 L0A15 leas $02,s
1181 coma
1182 puls pc,x
1183 L0A1A ldb #$FD
1184 bra L0A15
1185 L0A1E ldb $01,s
1186 orb ,u
1187 bitb #$40
1188 beq L0A31
1189 ldx <$30,y
1190 cmpx $05,x
1191 bne L0A1A
1192 lda #$02
1193 sta $07,x
1194 L0A31 puls pc,x,b,a
1195 L0A33 pshs u,y,x
1196 clra
1197 clrb
1198 std $0B,y
1199 std $0D,y
1200 sta <$19,y
1201 std <$1A,y
1202 ldb <$34,y
1203 ldx <$35,y
1204 pshs x,b
1205 ldu <$1E,y
1206 ldy <$30,y
1207 sty $05,y
1208 leau <$15,u
1209 bra L0A5A
1210 L0A58 ldu $03,u
1211 L0A5A ldx $03,u
1212 beq L0A88
1213 ldx $01,x
1214 ldd <$34,x
1215 cmpd ,s
1216 bcs L0A58
1217 bhi L0A88
1218 ldb <$36,x
1219 cmpb $02,s
1220 bcs L0A58
1221 bhi L0A88
1222 ldx <$30,x
1223 lda $07,y
1224 bita #$02
1225 bne L0A94
1226 sty $03,y
1227 ldd $05,x
1228 std $05,y
1229 sty $05,x
1230 bra L0A8F
1231 L0A88 ldx $03,u
1232 stx $03,y
1233 sty $03,u
1234 L0A8F clrb
1235 L0A90 leas $03,s
1236 puls pc,u,y,x
1237 L0A94 comb
1238 ldb #$FD
1239 bra L0A90
1240 L0A99 pshs u,y,x,b,a
1241 ldu <$1E,y
1242 leau <$15,u
1243 ldx <$30,y
1244 leay ,x
1245 bsr L0AD8
1246 bra L0AAE
1247 L0AAA ldx $05,x
1248 beq L0AD3
1249 L0AAE cmpy $05,x
1250 bne L0AAA
1251 ldd $05,y
1252 std $05,x
1253 bra L0ABB
1254 L0AB9 ldu $03,u
1255 L0ABB ldd $03,u
1256 beq L0AD3
1257 cmpy $03,u
1258 bne L0AB9
1259 ldx $03,y
1260 cmpy $05,y
1261 beq L0AD1
1262 ldx $05,y
1263 ldd $03,y
1264 std $03,x
1265 L0AD1 stx $03,u
1266 L0AD3 sty $05,y
1267 puls pc,u,y,x,b,a
1268 L0AD8 lda #$07
1269 L0ADA pshs u,y,x,b,a
1270 bita $07,y
1271 beq L0AE9
1272 coma
1273 anda $07,y
1274 sta $07,y
1275 bita #$02
1276 bne L0B06
1277 L0AE9 leau ,y
1278 L0AEB ldx <$10,u
1279 cmpy <$10,u
1280 beq L0B03
1281 stu <$10,u
1282 leau ,x
1283 lda <$14,u
1284 ldb #$01
1285 os9 F$Send
1286 bra L0AEB
1287 L0B03 stu <$10,u
1288 L0B06 puls pc,u,y,x,b,a
1289 L0B08 comb
1290 ldb #$FD
1291 L0B0B pshs y,b,cc
1292 ldy <$30,y
1293 bsr L0AD8
1294 puls pc,y,b,cc
1295 L0B15 ldx #$0000
1296 bra L0B24
1297 L0B1A ldu <$30,y
1298 lda <$15,u
1299 sta $07,u
1300 puls u,y,x,b,a
1301 L0B24 pshs u,y,x,b,a
1302 ldu <$30,y
1303 lda $07,u
1304 sta <$15,u
1305 lda ,s
1306 bsr L0BA8
1307 bcc L0BA6
1308 ldu <$0050
1309 lda <$14,x
1310 L0B39 os9 F$GProcP
1311 bcs L0B4B
1312 lda <$1E,y
1313 beq L0B4B
1314 cmpa ,u
1315 bne L0B39
1316 ldb #$FE
1317 bra L0BA3
1318 L0B4B lda <$14,x
1319 sta <$1E,u
1320 ldy $04,s
1321 lda $0A,y
1322 anda #$BF
1323 sta $0A,y
1324 ldu <$30,y
1325 ldd <$10,x
1326 stu <$10,x
1327 std <$10,u
1328 lbsr L0C5F
1329 ldx <$12,u
1330 os9 F$Sleep
1331 pshs x
1332 leax ,u
1333 bra L0B78
1334 L0B75 ldx <$10,x
1335 L0B78 cmpu <$10,x
1336 bne L0B75
1337 ldd <$10,u
1338 std <$10,x
1339 stu <$10,u
1340 puls x
1341 ldu <$0050
1342 clr <$1E,u
1343 lbsr L105C
1344 bcs L0BA3
1345 leax ,x
1346 bne L0B1A
1347 ldu <$30,y
1348 ldx <$12,u
1349 lbeq L0B1A
1350 ldb #$FC
1351 L0BA3 coma
1352 stb $01,s
1353 L0BA6 puls pc,u,y,x,b,a
1354 L0BA8 std -$02,s
1355 bne L0BB3
1356 cmpx #$0000
1357 lbeq L0B0B
1358 L0BB3 bsr L0BCB
1359 lbcs L0B08
1360 pshs u,y,x
1361 ldy <$30,y
1362 lda #$01
1363 lbsr L0ADA
1364 ora $07,y
1365 sta $07,y
1366 clrb
1367 puls pc,u,y,x
1368 L0BCB pshs u,y,b,a
1369 leau ,y
1370 ldy <$30,y
1371 subd #$0001
1372 bcc L0BDA
1373 leax -$01,x
1374 L0BDA addd $0D,u
1375 exg d,x
1376 adcb $0C,u
1377 adca $0B,u
1378 bcc L0BE9
1379 ldx #$FFFF
1380 tfr x,d
1381 L0BE9 std $0C,y
1382 stx $0E,y
1383 cmpd $0F,u
1384 bcs L0C01
1385 bhi L0BF9
1386 cmpx <$11,u
1387 bcs L0C01
1388 L0BF9 lda $07,y
1389 ora #$04
1390 sta $07,y
1391 bra L0C0A
1392 L0C01 lda #$04
1393 bita $07,y
1394 beq L0C0A
1395 lbsr L0ADA
1396 L0C0A ldd $0B,u
1397 ldx $0D,u
1398 std $08,y
1399 stx $0A,y
1400 lda $05,u
1401 sta <$14,y
1402 leax ,y
1403 L0C19 cmpy $05,x
1404 beq L0C5D
1405 ldx $05,x
1406 ldb <$14,y
1407 cmpb <$14,x
1408 beq L0C19
1409 lda $07,x
1410 beq L0C19
1411 ora $07,y
1412 bita #$02
1413 bne L0C5C
1414 lda $07,x
1415 anda $07,y
1416 bita #$04
1417 bne L0C5C
1418 ldd $08,x
1419 cmpd $0C,y
1420 bhi L0C19
1421 bcs L0C4C
1422 ldd $0A,x
1423 cmpd $0E,y
1424 bhi L0C19
1425 beq L0C5C
1426 L0C4C ldd $0C,x
1427 cmpd $08,y
1428 bcs L0C19
1429 bhi L0C5C
1430 ldd $0E,x
1431 cmpd $0A,y
1432 bcs L0C19
1433 L0C5C comb
1434 L0C5D puls pc,u,y,b,a
1435 L0C5F pshs y,x,b,a
1436 ldx <$0050
1437 lda <$10,x
1438 beq L0C75
1439 clr <$10,x
1440 ldb #$01
1441 os9 F$Send
1442 os9 F$GProcP
1443 clr $0F,y
1444 L0C75 clrb
1445 puls pc,y,x,b,a
1446 L0C78 pshs u,x
1447 L0C7A bsr L0CDA
1448 bne L0C8A
1449 cmpx <$1A,y
1450 bcs L0CD1
1451 bne L0C8A
1452 lda <$12,y
1453 beq L0CD1
1454 L0C8A lbsr L112C
1455 bcs L0CCE
1456 ldx $0B,y
1457 ldu $0D,y
1458 pshs u,x
1459 ldd $0F,y
1460 std $0B,y
1461 ldd <$11,y
1462 std $0D,y
1463 lbsr L10BB
1464 puls u,x
1465 stx $0B,y
1466 stu $0D,y
1467 bcc L0CD1
1468 cmpb #$D5
1469 bne L0CCE
1470 bsr L0CDA
1471 bne L0CBA
1472 tst <$12,y
1473 beq L0CBD
1474 leax $01,x
1475 bne L0CBD
1476 L0CBA ldx #$FFFF
1477 L0CBD tfr x,d
1478 tsta
1479 bne L0CCA
1480 cmpb <$2E,y
1481 bcc L0CCA
1482 ldb <$2E,y
1483 L0CCA bsr L0D10
1484 bcc L0C7A
1485 L0CCE coma
1486 puls pc,u,x
1487 L0CD1 lbsr L10A1
1488 bcs L0CCE
1489 bsr L0CE8
1490 puls pc,u,x
1491 L0CDA ldd <$10,y
1492 subd <$14,y
1493 tfr d,x
1494 ldb $0F,y
1495 sbcb <$13,y
1496 rts
1497 L0CE8 clra
1498 ldb #$02
1499 pshs u,x
1500 ldu <$30,y
1501 bra L0D06
1502 L0CF2 ldu $01,u
1503 ldx $0F,y
1504 stx $0F,u
1505 ldx <$11,y
1506 stx <$11,u
1507 bitb $01,y
1508 beq L0D03
1509 inca
1510 L0D03 ldu <$30,u
1511 L0D06 ldu $05,u
1512 cmpy $01,u
1513 bne L0CF2
1514 tsta
1515 puls pc,u,x
1516 L0D10 pshs u,x
1517 lbsr L0DBE
1518 bcs L0D57
1519 lbsr L112C
1520 bcs L0D57
1521 ldu $08,y
1522 clra
1523 clrb
1524 std $09,u
1525 std $0B,u
1526 leax <$10,u
1527 ldd $03,x
1528 beq L0D9F
1529 ldd $08,y
1530 inca
1531 pshs b,a
1532 bra L0D3F
1533 L0D32 clrb
1534 ldd -$02,x
1535 beq L0D53
1536 addd $0A,u
1537 std $0A,u
1538 bcc L0D3F
1539 inc $09,u
1540 L0D3F leax $05,x
1541 cmpx ,s
1542 bcs L0D32
1543 lbsr L0FD5
1544 clra
1545 clrb
1546 sta <$19,y
1547 std <$1A,y
1548 comb
1549 ldb #$D9
1550 L0D53 leas $02,s
1551 leax -$05,x
1552 L0D57 bcs L0DBC
1553 ldd -$04,x
1554 addd -$02,x
1555 pshs b,a
1556 ldb -$05,x
1557 adcb #$00
1558 cmpb <$16,y
1559 puls b,a
1560 bne L0D9F
1561 cmpd <$17,y
1562 bne L0D9F
1563 ldu <$1E,y
1564 ldd $06,u
1565 ldu $08,y
1566 subd #$0001
1567 coma
1568 comb
1569 pshs b,a
1570 ldd -$05,x
1571 eora <$16,y
1572 eorb <$17,y
1573 lsra
1574 rorb
1575 lsra
1576 rorb
1577 lsra
1578 rorb
1579 anda ,s+
1580 andb ,s+
1581 std -$02,s
1582 bne L0D9F
1583 ldd -$02,x
1584 addd <$1A,y
1585 bcs L0D9F
1586 std -$02,x
1587 bra L0DAE
1588 L0D9F ldd <$16,y
1589 std ,x
1590 lda <$18,y
1591 sta $02,x
1592 ldd <$1A,y
1593 std $03,x
1594 L0DAE ldd $0A,u
1595 addd <$1A,y
1596 std $0A,u
1597 bcc L0DB9
1598 inc $09,u
1599 L0DB9 lbsr L1206
1600 L0DBC puls pc,u,x
1601 L0DBE pshs u,y,x,b,a
1602 ldb #$0C
1603 L0DC2 clr ,-s
1604 decb
1605 bne L0DC2
1606 ldx <$1E,y
1607 ldd $04,x
1608 std $04,s
1609 ldd $06,x
1610 std $02,s
1611 std $0A,s
1612 ldx $03,y
1613 ldx $04,x
1614 leax <$12,x
1615 subd #$0001
1616 addb $0E,x
1617 adca #$00
1618 bra L0DE6
1619 L0DE4 lsra
1620 rorb
1621 L0DE6 lsr $0A,s
1622 ror $0B,s
1623 bcc L0DE4
1624 std ,s
1625 ldd $02,s
1626 std $0A,s
1627 subd #$0001
1628 addd $0C,s
1629 bcc L0E00
1630 ldd #$FFFF
1631 bra L0E00
1632 L0DFE lsra
1633 rorb
1634 L0E00 lsr $0A,s
1635 ror $0B,s
1636 bcc L0DFE
1637 cmpa #$08
1638 bcs L0E0D
1639 ldd #$0800
1640 L0E0D std $0C,s
1641 lbsr L103F
1642 lbcs L0EFB
1643 ldx <$1E,y
1644 ldd <$1A,x
1645 cmpd $0E,x
1646 bne L0E2F
1647 lda <$1C,x
1648 cmpa $04,x
1649 bne L0E2F
1650 ldb <$1D,x
1651 cmpb $04,x
1652 bcs L0E3D
1653 L0E2F ldd $0E,x
1654 std <$1A,x
1655 lda $04,x
1656 sta <$1C,x
1657 clrb
1658 stb <$1D,x
1659 L0E3D incb
1660 stb $06,s
1661 ldx <$1E,y
1662 cmpb <$1E,x
1663 beq L0E79
1664 lbsr L109A
1665 lbcs L0EFB
1666 ldb $06,s
1667 cmpb $04,s
1668 bls L0E5A
1669 clra
1670 ldb $05,s
1671 bra L0E5D
1672 L0E5A ldd #$0100
1673 L0E5D ldx $08,y
1674 leau d,x
1675 ldy $0C,s
1676 clra
1677 clrb
1678 os9 F$SchBit
1679 bcc L0EA6
1680 cmpy $08,s
1681 bls L0E79
1682 sty $08,s
1683 std $0A,s
1684 lda $06,s
1685 sta $07,s
1686 L0E79 ldy <$10,s
1687 ldb $06,s
1688 cmpb $04,s
1689 bcs L0E8A
1690 bhi L0E89
1691 tst $05,s
1692 bne L0E8A
1693 L0E89 clrb
1694 L0E8A ldx <$1E,y
1695 cmpb <$1D,x
1696 bne L0E3D
1697 ldb $07,s
1698 beq L0EF9
1699 cmpb $06,s
1700 beq L0E9F
1701 stb $06,s
1702 lbsr L109A
1703 L0E9F ldx $08,y
1704 ldd $0A,s
1705 ldy $08,s
1706 L0EA6 std $0A,s
1707 sty $08,s
1708 os9 F$AllBit
1709 ldy <$10,s
1710 ldb $06,s
1711 lbsr L1072
1712 bcs L0EFB
1713 ldx <$1E,y
1714 lda $06,s
1715 deca
1716 sta <$1D,x
1717 clrb
1718 lsla
1719 rolb
1720 lsla
1721 rolb
1722 lsla
1723 rolb
1724 stb <$16,y
1725 ora $0A,s
1726 ldb $0B,s
1727 ldx $08,s
1728 ldy <$10,s
1729 std <$17,y
1730 stx <$1A,y
1731 ldd $02,s
1732 bra L0EEF
1733 L0EE0 lsl <$18,y
1734 rol <$17,y
1735 rol <$16,y
1736 lsl <$1B,y
1737 rol <$1A,y
1738 L0EEF lsra
1739 rorb
1740 bcc L0EE0
1741 clrb
1742 ldd <$1A,y
1743 bra L0F03
1744 L0EF9 ldb #$F8
1745 L0EFB ldy <$10,s
1746 lbsr L1079
1747 coma
1748 L0F03 leas $0E,s
1749 puls pc,u,y,x
1750 L0F07 clra
1751 lda $01,y
1752 bita #$80
1753 bne L0F78
1754 ldd $0F,y
1755 std $0B,y
1756 ldd <$11,y
1757 std $0D,y
1758 ldd #$FFFF
1759 tfr d,x
1760 lbsr L0B24
1761 bcs L0F77
1762 lbsr L0CE8
1763 bne L0F78
1764 lbsr L10BB
1765 bcc L0F2F
1766 cmpb #$D5
1767 bra L0F70
1768 L0F2F ldd <$14,y
1769 subd $0C,y
1770 addd <$1A,y
1771 tst $0E,y
1772 beq L0F3E
1773 subd #$0001
1774 L0F3E pshs b,a
1775 ldu <$1E,y
1776 ldd $06,u
1777 subd #$0001
1778 coma
1779 comb
1780 anda ,s+
1781 andb ,s+
1782 ldu <$1A,y
1783 std <$1A,y
1784 beq L0F72
1785 tfr u,d
1786 subd <$1A,y
1787 pshs x,b,a
1788 addd <$17,y
1789 std <$17,y
1790 bcc L0F68
1791 inc <$16,y
1792 L0F68 bsr L0FD5
1793 bcc L0F79
1794 leas $04,s
1795 cmpb #$DB
1796 L0F70 bne L0F77
1797 L0F72 lbsr L112C
1798 bcc L0F82
1799 L0F77 coma
1800 L0F78 rts
1801 L0F79 lbsr L112C
1802 bcs L0FD2
1803 puls x,b,a
1804 std $03,x
1805 L0F82 ldu $08,y
1806 ldd <$11,y
1807 std $0B,u
1808 ldd $0F,y
1809 std $09,u
1810 tfr x,d
1811 clrb
1812 inca
1813 leax $05,x
1814 pshs x,b,a
1815 bra L0FBD
1816 L0F97 ldd -$02,x
1817 beq L0FCA
1818 std <$1A,y
1819 ldd -$05,x
1820 std <$16,y
1821 lda -$03,x
1822 sta <$18,y
1823 bsr L0FD5
1824 bcs L0FD2
1825 stx $02,s
1826 lbsr L112C
1827 bcs L0FD2
1828 ldx $02,s
1829 clra
1830 clrb
1831 std -$05,x
1832 sta -$03,x
1833 std -$02,x
1834 L0FBD lbsr L1206
1835 bcs L0FD2
1836 ldx $02,s
1837 leax $05,x
1838 cmpx ,s
1839 bcs L0F97
1840 L0FCA clra
1841 clrb
1842 sta <$19,y
1843 std <$1A,y
1844 L0FD2 leas $04,s
1845 rts
1846 L0FD5 pshs u,y,x,a
1847 ldx <$1E,y
1848 ldd $06,x
1849 subd #$0001
1850 addd <$17,y
1851 std <$17,y
1852 ldd $06,x
1853 bcc L0FFD
1854 inc <$16,y
1855 bra L0FFD
1856 L0FEE lsr <$16,y
1857 ror <$17,y
1858 ror <$18,y
1859 lsr <$1A,y
1860 ror <$1B,y
1861 L0FFD lsra
1862 rorb
1863 bcc L0FEE
1864 clrb
1865 ldd <$1A,y
1866 beq L103D
1867 ldd <$16,y
1868 lsra
1869 rorb
1870 lsra
1871 rorb
1872 lsra
1873 rorb
1874 tfr b,a
1875 ldb #$DB
1876 cmpa $04,x
1877 bhi L103C
1878 inca
1879 sta ,s
1880 L101B bsr L103F
1881 bcs L101B
1882 ldb ,s
1883 bsr L109A
1884 bcs L103C
1885 ldx $08,y
1886 ldd <$17,y
1887 anda #$07
1888 ldy <$1A,y
1889 os9 F$DelBit
1890 ldy $03,s
1891 ldb ,s
1892 bsr L1072
1893 bcc L103D
1894 L103C coma
1895 L103D puls pc,u,y,x,a
1896 L103F lbsr L1240
1897 bra L104C
1898 L1044 lbsr L0C5F
1899 os9 F$IOQu
1900 bsr L105C
1901 L104C bcs L105B
1902 ldx <$1E,y
1903 lda <$17,x
1904 bne L1044
1905 lda $05,y
1906 sta <$17,x
1907 L105B rts
1908 L105C ldu <$0050
1909 ldb <$19,u
1910 cmpb #$01
1911 bls L1069
1912 cmpb #$03
1913 bls L1070
1914 L1069 clra
1915 lda $0C,u
1916 bita #$02
1917 beq L1071
1918 L1070 coma
1919 L1071 rts
1920 L1072 clra
1921 tfr d,x
1922 clrb
1923 lbsr L1210
1924 L1079 pshs cc
1925 ldx <$1E,y
1926 lda $05,y
1927 cmpa <$17,x
1928 bne L1098
1929 clr <$17,x
1930 ldx <$0050
1931 lda <$10,x
1932 beq L1098
1933 lbsr L0C5F
1934 ldx #$0001
1935 os9 F$Sleep
1936 L1098 puls pc,cc
1937 L109A clra
1938 tfr d,x
1939 clrb
1940 lbra L1143
1941 L10A1 ldd $0C,y
1942 subd <$14,y
1943 tfr d,x
1944 ldb $0B,y
1945 sbcb <$13,y
1946 cmpb <$19,y
1947 bcs L10B9
1948 bhi L10BB
1949 cmpx <$1A,y
1950 bcc L10BB
1951 L10B9 clrb
1952 L10BA rts
1953 L10BB pshs u
1954 bsr L112C
1955 bcs L1117
1956 clra
1957 clrb
1958 std <$13,y
1959 stb <$15,y
1960 ldu $08,y
1961 leax <$10,u
1962 lda $08,y
1963 ldb #$FC
1964 pshs b,a
1965 L10D4 ldd $03,x
1966 beq L10F9
1967 addd <$14,y
1968 tfr d,u
1969 ldb <$13,y
1970 adcb #$00
1971 cmpb $0B,y
1972 bhi L1106
1973 bne L10ED
1974 cmpu $0C,y
1975 bhi L1106
1976 L10ED stb <$13,y
1977 stu <$14,y
1978 leax $05,x
1979 cmpx ,s
1980 bcs L10D4
1981 L10F9 clra
1982 clrb
1983 sta <$19,y
1984 std <$1A,y
1985 comb
1986 ldb #$D5
1987 bra L1115
1988 L1106 ldd ,x
1989 std <$16,y
1990 lda $02,x
1991 sta <$18,y
1992 ldd $03,x
1993 std <$1A,y
1994 L1115 leas $02,s
1995 L1117 puls pc,u
1996 L1119 pshs x,b
1997 lbsr L1240
1998 bcs L1128
1999 clrb
2000 ldx #$0000
2001 bsr L1143
2002 bcc L112A
2003 L1128 stb ,s
2004 L112A puls pc,x,b
2005 L112C ldb $0A,y
2006 bitb #$04
2007 bne L10B9
2008 lbsr L1240
2009 bcs L10BA
2010 ldb $0A,y
2011 orb #$04
2012 stb $0A,y
2013 ldb <$34,y
2014 ldx <$35,y
2015 L1143 lda #$03
2016 L1145 pshs u,y,x,b,a
2017 lda $0A,y
2018 ora #$20
2019 sta $0A,y
2020 ldx <$0050
2021 lda $0A,x
2022 tfr a,b
2023 addb #$03
2024 bcc L1159
2025 ldb #$FF
2026 L1159 stb $0A,x
2027 stb $0B,x
2028 ldx <$30,y
2029 sta <$16,x
2030 ldu $03,y
2031 ldu $02,u
2032 bra L116F
2033 L1169 lbsr L0C5F
2034 os9 F$IOQu
2035 L116F lda $04,u
2036 bne L1169
2037 lda $05,y
2038 sta $04,u
2039 ldd ,s
2040 ldx $02,s
2041 pshs u
2042 bsr L11F4
2043 puls u
2044 ldy $04,s
2045 pshs cc
2046 bcc L118A
2047 stb $02,s
2048 L118A lda $0A,y
2049 anda #$DF
2050 sta $0A,y
2051 clr $04,u
2052 ldx <$30,y
2053 lda <$16,x
2054 ldx <$0050
2055 sta $0A,x
2056 lda ,s
2057 bita #$01
2058 bne L11D4
2059 lda $01,s
2060 cmpa #$06
2061 bne L11D4
2062 pshs u,y,x
2063 ldy <$30,y
2064 leau ,y
2065 L11B0 ldx <$05,u
2066 cmpy <$05,u
2067 beq L11D2
2068 leau ,x
2069 lda <$17,u
2070 beq L11B0
2071 ldx <$0050
2072 cmpa <$00,x
2073 beq L11B0
2074 clr <$17,u
2075 ldb <$18,u
2076 os9 F$Send
2077 bra L11B0
2078 L11D2 puls u,y,x
2079 L11D4 lda <$10,x
2080 beq L11F2
2081 lda $01,y
2082 bita #$04
2083 bne L11F2
2084 ldx <$1E,y
2085 lda $05,y
2086 cmpa <$17,x
2087 beq L11F2
2088 lbsr L0C5F
2089 ldx #$0001
2090 os9 F$Sleep
2091 L11F2 puls pc,u,y,x,b,a,cc
2092 L11F4 pshs pc,x,b,a
2093 ldx $03,y
2094 ldd ,x
2095 ldx ,x
2096 addd $09,x
2097 addb ,s
2098 adca #$00
2099 std $04,s
2100 puls pc,x,b,a
2101 L1206 ldb <$34,y
2102 ldx <$35,y
2103 bra L1210
2104 L120E bsr L1229
2105 L1210 lda #$06
2106 pshs x,b,a
2107 ldd <$1C,y
2108 beq L121F
2109 ldx <$1E,y
2110 cmpd $0E,x
2111 L121F puls x,b,a
2112 lbeq L1145
2113 comb
2114 ldb #$FB
2115 rts
2116 L1229 ldd $0C,y
2117 subd <$14,y
2118 tfr d,x
2119 ldb $0B,y
2120 sbcb <$13,y
2121 exg d,x
2122 addd <$17,y
2123 exg d,x
2124 adcb <$16,y
2125 rts
2126 L1240 clrb
2127 pshs u,x
2128 ldb $0A,y
2129 andb #$46
2130 beq L125D
2131 tfr b,a
2132 eorb $0A,y
2133 stb $0A,y
2134 andb #$01
2135 beq L125D
2136 eorb $0A,y
2137 stb $0A,y
2138 bita #$02
2139 beq L125D
2140 bsr L120E
2141 L125D puls pc,u,x
2142 L125F pshs u,x
2143 lbsr L10A1
2144 bcs L12CF
2145 bsr L1240
2146 bcs L12CF
2147 L126A ldb $0B,y
2148 ldu $0C,y
2149 leax ,y
2150 ldy <$30,y
2151 L1274 ldx <$30,x
2152 cmpy $05,x
2153 beq L12BE
2154 ldx $05,x
2155 ldx $01,x
2156 cmpu $0C,x
2157 bne L1274
2158 cmpb $0B,x
2159 bne L1274
2160 lda $0A,x
2161 bita #$02
2162 beq L1274
2163 bita #$20
2164 bne L1297
2165 bita #$40
2166 beq L12A9
2167 L1297 lda $05,x
2168 ldy $01,y
2169 lbsr L0C5F
2170 os9 F$IOQu
2171 lbsr L105C
2172 bcc L126A
2173 bra L12CF
2174 L12A9 ldy $01,y
2175 ldd $08,x
2176 ldu $08,y
2177 std $08,y
2178 stu $08,x
2179 lda $0A,x
2180 ora #$40
2181 sta $0A,y
2182 clr $0A,x
2183 puls pc,u,x
2184 L12BE ldy $01,y
2185 lbsr L1229
2186 lbsr L1143
2187 bcs L12CF
2188 lda $0A,y
2189 ora #$42
2190 sta $0A,y
2191 L12CF puls pc,u,x
2192
2193 emod
2194 eom equ *
2195 end