source: thomson/code/3rdparty/sources3-lambinet/Copiers/CC.ASM@ ceffc47

main
Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5

  • Property mode set to 100644
File size: 23.6 KB
Line 
1C0000 BSR C0010
2 LBRA C0150
3C0010 PSHS B
4 PSHS X
5 LDB #$1B
6 JSR $E803
7 LDB #$41
8 JSR $E803
9 LDB #$1F
10 JSR $E803
11 PULS B
12 JSR $E803
13 PULS B
14 JSR $E803
15 PULS B
16 CLRA
17 STD >$6150
18 BEQ C0030
19 LDA #$02
20 STA >$6105
21 LDY #$6150
22 CLR >$617C
23 LDB #$42
24 JSR $EC0C
25 LDX #$6155
26C0020 LDB ,X+
27 BEQ C0040
28 CMPB #$20
29 BLS C0020
30 JSR $E803
31 BRA C0020
32C0030 LDB #$30
33 JSR $E803
34C0040 RTS
35 LDY #$00FF
36 LDA #$01
37 JSR $EC00
38 LDB #$80
39 PSHS B
40C0050 DEC ,S
41 BEQ C0090
42 LDX #$0BBB
43C0060 LEAX -1,X
44 BNE C0060
45 LDX #$FFFF
46 LDY #$0000
47 LDA #$01
48 JSR $EC00
49 CMPX #$F000
50 BNE C0070
51 LDD #$0011
52 STD >$8428
53C0070 CMPX #$F0FF
54 BNE C0080
55 LDD #$FFEF
56 STD >$8428
57C0080 TFR X,D
58 ADDD >$8428
59 TFR D,X
60 CLRA
61 TFR D,Y
62 LDA #$01
63 JSR $EC00
64 BRA C0050
65C0090 LDX #$F0FF
66 LDY #$00FF
67 LDA #$01
68 JSR $EC00
69 PULS B
70 RTS
71C0100 BSR C0130
72 LDA >$E7C3
73 ANDA #$FE
74 STA >$E7C3
75 LDX #$5E27
76 LDD #$04C8
77C0110 STB ,X
78 LEAX <$28,X
79 DECA
80 BNE C0110
81 LDA >$E7C3
82 ORA #$01
83 STA >$E7C3
84 LDX #$5E27
85 LDD #$0310
86C0120 STB ,X
87 LEAX <$28,X
88 DECA
89 BNE C0120
90 LDB #$F0
91 STB ,X
92 RTS
93C0130 LDB ,U+
94 BEQ C0140
95 JSR $E803
96 BRA C0130
97C0140 RTS
98C0150 JSR $E806
99 BCS C0150
100 LDX #$F0FF
101 LDY #$00FF
102 LDA #$01
103 JSR $EC00
104C0160 LDX #$0BBB
105C0170 LEAX -1,X
106 BNE C0170
107 LDX #$FFFF
108 LDY #$0000
109 LDA #$01
110 JSR $EC00
111 CMPX #$F000
112 BNE C0180
113 LDD #$0011
114 STD >$8428
115C0180 CMPX #$F0FF
116 BNE C0190
117 LDD #$FFEF
118 STD >$8428
119C0190 TFR X,D
120 ADDD >$8428
121 TFR D,X
122 CLRA
123 TFR D,Y
124 LDA #$01
125 JSR $EC00
126 JSR $E809
127 BCC C0160
128 JSR $E806
129 LDX #$F0FF
130 LDY #$00FF
131 LDA #$01
132 JSR $EC00
133 RTS
134C0200 LDU #C2180 #$7700
135 LBSR C0100
136C0210 BSR C0150
137 ANDB #$DF
138C0220 CMPB #$48
139 BHI C0210
140 CMPB #$41
141 BLT C0210
142 SUBB #$41
143 ASLB
144 ASLB
145 ASLB
146 PSHS B
147 LDA #$50
148 MUL
149 ADDD #$4703
150 TFR D,U
151 LDA >$E7C3
152 ORA #$01
153 STA >$E7C3
154 LDD #$1F0F
155C0230 STA ,U
156 LEAU <$28,U
157 DECB
158 BNE C0230
159 LEAU >-ç0257,U
160 LDD #$FF0F
161C0240 STA ,U
162 LEAU <$28,U
163 DECB
164 BNE C0240
165 LEAU >-ç0257,U
166 LDB #$0F
167C0250 COM ,U
168 LEAU <$28,U
169 DECB
170 BNE C0250
171 LEAU >-ç0257,U
172 LDD #$FF0F
173C0260 STA ,U
174 LEAU <$28,U
175 DECB
176 BNE C0260
177 LEAU >-ç0257,U
178 LDD #$F00F
179C0270 STA ,U
180 LEAU <$28,U
181 DECB
182 BNE C0270
183 PULS B
184 LDU #$83C0
185 LEAU B,U
186 LDX #$8412
187 LDB #$07
188C0280 LDA ,U+
189 STA ,X+
190 DECB
191 BNE C0280
192 LDA >$8412
193 BNE C0290
194 LDU #$7922
195 LBSR C0130
196 LDB >$8400
197 LDX #$574B
198 LBSR C0000
199C0290 LDU #$795C
200 LBSR C0130
201C0300 LBSR C0150
202 CMPB #$30
203 BLT C0300
204 CMPB #$39
205 BHI C0300
206 JSR $E803
207 SUBB #$30
208 STB >$8401
209 LDA #$0A
210 MUL
211 STB >$840B
212C0310 LBSR C0150
213 CMPB #$0D
214 BEQ C0320
215 CMPB #$30
216 BLT C0310
217 CMPB #$39
218 BHI C0310
219 JSR $E803
220 SUBB #$30
221 ADDB >$840B
222 STB >$8401
223C0320 LDB >$8412
224 BNE C0330
225 LDB >$8401
226 CMPB >$8400
227 BHI C0290
228C0330 LDU #$7988
229 LBSR C0100
230C0340 LBSR C0150
231 CMPB #$4E
232 LBEQ C0200
233 CMPB #$6E
234 LBEQ C0200
235 CMPB #$4F
236 BEQ C0350
237 CMPB #$6F
238 BNE C0340
239C0350 LDB >$8412
240 BNE C0360
241 LDB >$8400
242 SUBB >$8401
243 STB >$8400
244C0360 LDU >$8417
245 LBSR C0130
246 TST >$8412
247 BEQ C0370
248 LDU #$7A9A
249 BRA C0380
250C0370 LDU #$7AC6
251C0380 LBSR C0130
252 LDA #$00
253 STA >$8408
254C0390 LDA >$8408
255 CMPA #$50
256 LBEQ C0200
257 STA >$8407
258C0400 LDU #$7AF2
259 LBSR C0130
260 LBSR C0150
261 JSR $E09D
262 JSR $E0A7
263 JSR $E452
264 BCS C0410
265 LDA 1,X
266 BITA #$04
267 BNE C0420
268C0410 JSR $E0B9
269 LDU #$7BAA
270 LBSR C0130
271 LBSR C0150
272 BRA C0400
273C0420 JSR $E0B9
274 LDU #$7C66
275 LBSR C0130
276 LBSR C0520
277 CMPA #$00
278 BEQ C0430
279 LDU #$7C9D
280 LBSR C0130
281 LBSR C0150
282 LBRA C0200
283C0430 CLR >$83FF
284C0440 LDA >$604B
285 CMPA #$50
286 BNE C0450
287 DEC >$604B
288C0450 INC >$83FF
289 LDA >$83FF
290 CMPA >$8401
291 BHI C0390
292C0460 LDU #$7D55
293 LBSR C0130
294 LDB >$83FF
295 LDX #$4F4D
296 LBSR C0010
297 LBSR C0150
298 JSR $E09D
299 JSR $E0A7
300 JSR $E452
301 BCS C0470
302 LDA 1,X
303 BITA #$04
304 BEQ C0480
305C0470 JSR $E0B9
306 LDU #$7E0B
307 LBSR C0130
308 LBSR C0150
309 BRA C0460
310C0480 JSR $E0B9
311 LDU #$7EC7
312 LBSR C0130
313 LBSR C1170
314 CMPA #$00
315 BEQ C0440
316 LDU #$7EFF
317 LBSR C0130
318C0490 LBSR C0150
319 CMPB #$41
320 BEQ C0510
321 CMPB #$61
322 BEQ C0510
323 CMPB #$52
324 BEQ C0500
325 CMPB #$72
326 BNE C0490
327C0500 BRA C0460
328C0510 LBRA C0220
329C0520 TST >$8412
330 LBNE C0970
331 LDX #$A000
332 STX >$8402
333 LDA #$02
334 STA >$E7E5
335 LDA >$8407
336 STA >$604B
337 LDX #$8450
338 STX >$8419
339C0530 CLR >$6049
340 LDA #$40
341 STA >$6048
342 JSR $E004
343 LDA >$8413
344 BEQ C0540
345 BSR C0580
346 CMPA #$01
347 BEQ C0570
348C0540 INC >$6049
349 LDA >$8414
350 BEQ C0550
351 BSR C0580
352 CMPA #$01
353 BEQ C0570
354C0550 LDA >$604B
355 INCA
356 STA >$604B
357 CMPA #$50
358 BNE C0530
359C0560 STA >$8408
360 CLRA
361 RTS
362C0570 LDA >$604B
363 BRA C0560
364C0580 LDA #$0F
365 STA >$7098,PCR=C0810+1
366 JSR $E09D
367 JSR $E0A7
368 JSR $E45A
369 JSR $E341
370 PSHS CC
371 LDB #$1B
372 JSR $E394
373 LDD #$E718
374 TFR A,DP
375 STB <$D0
376 LDA #$02
377 STA >$6200
378C0590 LDY #$1858
379 LDU #$8600
380 LDX #$85FD
381 LDA #$40
382C0600 BITA <$D1
383 BEQ C0600
384C0610 BITA <$D1
385 BNE C0610
386 LDA <$D3
387C0620 LDB <$D0
388 BPL C0620
389 LEAY -1,Y
390 LBEQ $715B =C0950+1
391 LDA <$D3
392 BITB #$01
393 BEQ C0620
394 TFR Y,D
395 ADDD #$8600
396 STD <$702E,PCR=C0730+1
397C0630 LDA <$D0
398 BPL C0630
399C0640 LDA <$D3
400 CMPA #$A1
401 BEQ C0660
402 STA ,X+
403C0650 LDD <$D0
404 BPL C0650
405 BITA #$01
406 BEQ C0700
407 LDA <$D3
408 CMPA #$A1
409 BNE C0680
410 BITB #$40
411 BNE C0710
412 LEAX -1,X
413C0660 LEAX 3,X
414 PSHU X
415C0670 LDD <$D0
416 BPL C0670
417 LDA <$D3
418 BITB #$40
419 BNE C0710
420 CMPA #$A1
421 BEQ C0670
422C0680 STA ,X+
423C0690 LDD <$D0
424 BPL C0690
425 BITA #$01
426 BNE C0640
427C0700 LDA <$D3
428 BITB #$40
429 BEQ C0680
430C0710 STA ,X+
431C0720 LDB <$D0
432 BPL C0720
433 BITB #$01
434 BNE C0740
435 LDA <$D3
436C0730 CMPX #$0000
437 BCS C0710
438C0740 CMPU #$85FB
439 BCS C0750
440 DEC >$6200
441 LBNE C0590
442 LBRA $715E =C0960+1
443C0750 LDY #$A000
444 LDD #$0001
445 STD ,--Y
446 TFR X,D
447 SUBD #$8600
448 CMPD >$840E
449 BMI C0780
450 PSHS U,B,A
451 LDD #$8600
452 SUBD 2,S
453 LSRA
454 RORB
455 PSHS B,A
456 LDD 2,S
457C0760 DEC <$7098,PCR=C0810+1
458 BPL C0770
459 LEAS 6,S
460 LBRA $715E =C0960+1
461C0770 SUBD ,S
462 CMPD >$840E
463 BHI C0760
464 LEAS 4,S
465 PULS U
466C0780 STD ,--Y
467C0790 PSHS Y
468C0800 LDA ,-X
469 STA ,-Y
470 CMPX ,U
471 BHI C0800
472 PULS A,B
473 SUBD #$0001
474 STD ,--Y
475 PULU X
476 CMPU #$8600
477 BEQ C0820
478 LEAX <-$1E,X
479C0810 LEAX 12,X
480 BRA C0790
481C0820 TFR Y,X
482 NOP
483 NOP
484 NOP
485 NOP
486 NOP
487 NOP
488 NOP
489 NOP
490 NOP
491 NOP
492 NOP
493 NOP
494 NOP
495 NOP
496 NOP
497 NOP
498 NOP
499 NOP
500 NOP
501 NOP
502 NOP
503 NOP
504 NOP
505 NOP
506 NOP
507 NOP
508 NOP
509 NOP
510 NOP
511 NOP
512 NOP
513 NOP
514 NOP
515 NOP
516 NOP
517 NOP
518 NOP
519 NOP
520 NOP
521 NOP
522 NOP
523 NOP
524 STY >$8500
525 TFR Y,X
526 LDY #$8502
527 STY >$8405
528 LDU #$8504
529C0830 LDY #$0000
530C0840 LDA ,X+
531 CMPX #$9FFF
532 BEQ C0890
533 CMPA ,X
534 BNE C0850
535 CMPA 1,X
536 BNE C0850
537 CMPA 2,X
538 BEQ C0860
539C0850 STA ,U+
540 LEAY 1,Y
541 BRA C0840
542C0860 TFR Y,D
543 LDY >$8405
544 STD ,Y
545 LDB #$00
546 LDA ,X
547 STA ,U+
548C0870 LDA ,X+
549 CMPX #$9FFF
550 BEQ C0900
551 INCB
552 BEQ C0880
553 CMPA -1,U
554 BEQ C0870
555C0880 DECB
556 STB ,U+
557 STU >$8405
558 LEAU 2,U
559 LEAX -1,X
560 BRA C0830
561C0890 TFR Y,D
562 LDY >$8405
563 STD ,Y
564 BRA C0910
565C0900 STB ,U+
566C0910 STU >$8405
567 LDX #$8500
568 LDY >$8402
569C0920 LDA ,X+
570 STA ,Y+
571 CMPY #$E000
572 BNE C0930
573 LDY #$A000
574 LDA >$E7E5
575 INCA
576 CMPA >$8404
577 BEQ $7158 =C0940+1
578 STA >$E7E5
579C0930 CMPX >$8405
580 BNE C0920
581 STY >$8402
582 CLRA
583C0940 TST >$8601
584C0950 TST >$86FE
585C0960 TST >$86FF
586 PULS CC
587 CLR <$D0
588 LDB #$40
589 STB <$D2
590 LDU >$8419
591 STA ,U+
592 STU >$8419
593 RTS
594C0970 PSHS CC
595 ORCC #$50
596 LDX #$A000
597 STX >$8402
598 LDA #$02
599 STA >$E7E5
600 LDA >$8407
601 STA >$604B
602 LDX #$8440
603 STX >$8420
604 LDX #$8580
605 STX >$8422
606C0980 CLR >$6049
607 LDA #$40
608 STA >$6048
609 JSR $E004
610 LDA >$8413
611 BEQ C0990
612 BSR C1010
613C0990 INC >$6049
614 LDA >$8414
615 BEQ C1000
616 BSR C1010
617C1000 LDA >$604B
618 INCA
619 STA >$604B
620 CMPA #$50
621 BNE C0980
622 STA >$8408
623 CLRA
624 PULS CC,PC
625C1010 STA >$E7D2
626 LDX #$83B0
627 LDB #$10
628C1020 LDA ,X+
629 PSHS A
630 DECB
631 BNE C1020
632 LDA #$E7
633 TFR A,DP
634 LDX >$8402
635 LDU >$8422
636 LDA #$01
637C1030 CLR <$D0
638 STA <$D5
639 LDA #$0A
640 STA <$D4
641 LDA #$A1
642 STA <$D3
643 LDD #$041B
644 STB <$D0
645 CMPX #$E000
646 BNE C1040
647 LDX #$A000
648 LDB <$E5
649 INCB
650 CMPB >$8404
651 BEQ C1150
652 STB <$E5
653 NOP
654C1040 LDY #C1720 #$7500
655C1050 LEAY -1,Y
656 BEQ C1140
657 LDB <$D0
658 BITB #$02
659 BEQ C1050
660 LDB <$D3
661C1060 DECA
662 BEQ C1140
663C1070 LDB <$D0
664 BPL C1070
665 LDB <$D3
666 CMPB #$FB
667 BNE C1060
668 CLRA
669C1080 LDB <$D0
670 BPL C1080
671 LDB <$D3
672 STB ,X+
673 STB ,U
674 DECA
675C1090 LDB <$D0
676 BPL C1090
677 LDB <$D3
678 STB ,X+
679 CMPB ,U
680 BNE C1110
681 DECA
682 BNE C1090
683 LEAX >-ç0100,X
684 DECA
685 BRA C1120
686C1100 LDB <$D0
687 BPL C1100
688 LDB <$D3
689 STB ,X+
690C1110 DECA
691 BNE C1100
692C1120 LDB <$D0
693 BITB #$08
694 BEQ C1120
695 BITB #$04
696 BNE C1140
697 LEAU 1,U
698 STA ,U+
699 PULS A
700 TSTA
701 LBNE C1030
702 STU >$8422
703 STX >$8402
704C1130 LDD #$4000
705 STB <$D0
706 STA <$D2
707 RTS
708C1140 BSR C1130
709 LDA #$FF
710 BRA C1160
711C1150 BSR C1130
712 LDA >$604B
713 STA >$8408
714 CLRA
715C1160 PULS B
716 TSTB
717 BNE C1160
718 LEAS 2,S
719 PULS CC,PC
720 NOP
721 NOP
722 NOP
723C1170 TST >$8412
724 LBNE C1710
725 LDX #$A000
726 STX >$8402
727 LDA #$02
728 STA >$E7E5
729 LDA >$8407
730 STA >$604B
731 LDX #$8450
732 STX >$8419
733C1180 LDX >$840E
734 STX >$8410
735 JSR $E09D
736 JSR $E452
737 LDD #$0020
738 STD <$49
739 LDA >$8415
740 BEQ C1190
741 BSR C1210
742C1190 INC >$6049
743 LDA >$8416
744 BEQ C1200
745 BSR C1210
746C1200 LDA >$604B
747 INCA
748 STA >$604B
749 CMPA >$8408
750 BNE C1180
751 CLRA
752 RTS
753C1210 LDU >$8419
754 LDA ,U+
755 STU >$8419
756 TSTA
757 LBEQ C1370
758 CMPA #$FF
759 BEQ C1260
760 JSR $E09D
761 JSR $E0A7
762 JSR $E341
763 LDA #$E7
764 TFR A,DP
765 PSHS CC
766 ORCC #$50
767C1220 LDA <$D1
768 BITA #$40
769 BEQ C1220
770C1230 LDA <$D3
771 LDA <$D0
772 BPL C1230
773C1240 LDA <$D0
774 BPL C1240
775 LDD #$4EFF
776 STD <$D3
777 LDB #$04
778 STB <$D0
779 LDD #$A00A
780 STD <$D3
781 LDX #$1900
782C1250 LDA <$D0
783 BPL C1250
784 LDA #$FE
785 STA <$D3
786 LEAX -1,X
787 BNE C1250
788 PULS CC
789 LDA #$00
790 STA <$D0
791 LDA #$40
792 STA <$D2
793 RTS
794C1260 JSR $E09D
795 JSR $E0A7
796 JSR $E341
797 LDA #$E7
798 TFR A,DP
799 PSHS A,CC
800 ORCC #$50
801C1270 LDA <$D1
802 BITA #$40
803 BEQ C1270
804C1280 LDA <$D3
805 LDA <$D0
806 BPL C1280
807C1290 LDA <$D0
808 BPL C1290
809 LDD #$4EFF
810 STD <$D3
811 LDB #$04
812 STB <$D0
813 LDB #$0C
814C1300 LDA <$D0
815 BPL C1300
816 CLR <$D3
817 DECB
818 BNE C1300
819C1310 LDA <$D0
820 BPL C1310
821 LDD #$A10A
822 STD <$D3
823C1320 LDB <$D0
824 BPL C1320
825 STA <$D3
826C1330 LDB <$D0
827 BPL C1330
828 STA <$D3
829C1340 LDA <$D0
830 BPL C1340
831 LDD #$FEFF
832 STD <$D3
833 LDX #$1900
834C1350 LDA <$D0
835 BPL C1350
836 LDA #$FF
837 STA <$D3
838 LEAX -1,X
839 BNE C1350
840 LDA #$00
841 STA <$D0
842 LDA #$40
843 STA <$D2
844C1360 PULS CC,A
845 RTS
846C1370 LDX >$8402
847 BSR C1430
848 TFR B,A
849 BSR C1430
850 TFR D,U
851 PSHS U
852C1380 BSR C1430
853 TFR B,A
854 BSR C1430
855 TFR D,Y
856 CMPD #$0000
857 BEQ C1400
858C1390 BSR C1430
859 STB ,U+
860 LEAY -1,Y
861 BNE C1390
862C1400 CMPU #$9FFE
863 BEQ C1420
864 BSR C1430
865 TFR B,A
866 BSR C1430
867 STA ,U+
868C1410 STA ,U+
869 DECB
870 BNE C1410
871 CMPU #$9FFE
872 BNE C1380
873C1420 STX >$8402
874 BRA C1450
875C1430 LDB ,X+
876 CMPX #$E000
877 BNE C1440
878 LDX #$A000
879 INC >$E7E5
880C1440 RTS
881C1450 JSR $E09D
882 DEC <$4A
883 BEQ C1360
884 JSR $E0A7
885 JSR $E45A
886 JSR $E341
887 LDD >$9FFC
888 SUBD >$8410
889 BMI C1460
890 LDD #$FFFF
891C1460 TFR D,Y
892 LDA #$E7
893 TFR A,DP
894 LDX ,S
895 PSHS CC
896 ORCC #$50
897C1470 LDA <$D1
898 BITA #$40
899 BEQ C1470
900C1480 LDA <$D3
901 LDA <$D0
902 BPL C1480
903C1490 LDA <$D0
904 BPL C1490
905 LDD #$4EFF
906 STD <$D3
907 LDB #$04
908 STB <$D0
909 LDA #$4E
910C1500 LDB <$D0
911 BPL C1500
912 STA <$D3
913 LEAY 1,Y
914 BNE C1500
915C1510 LDA <$D0
916 BPL C1510
917 CLR <$D3
918 LDU ,X++
919C1520 LDA <$D0
920 BPL C1520
921 CLR <$D3
922 STU <$748A,PCR=C1620+1
923C1530 LDA <$D0
924 BPL C1530
925 CLR <$D3
926 LDB ,X+
927C1540 LDA <$D0
928 BPL C1540
929 CLR <$D3
930 STB <$747D,PCR=C1600+1
931 LDB #$08
932C1550 LDA <$D0
933 BPL C1550
934 CLR <$D3
935 DECB
936 BNE C1550
937C1560 LDA <$D0
938 BPL C1560
939 LDD #$A10A
940 STD <$D3
941C1570 LDB <$D0
942 BPL C1570
943 STA <$D3
944C1580 LDB <$D0
945 BPL C1580
946 STA <$D3
947C1590 LDA <$D0
948 BPL C1590
949C1600 LDD #$20FF
950 STD <$D3
951C1610 LDA <$D0
952 BPL C1610
953 LDA ,X+
954 STA <$D3
955C1620 CMPX #$F8F8
956 BCS C1610
957 LDX <$758A,PCR=C1820+3
958C1630 LDA <$D0
959 BPL C1630
960 LDA ,X+
961 STA <$D3
962 CMPX #$9FFC
963 BCS C1510
964C1640 LDD <$D0
965 BPL C1640
966 BITB #$40
967 BEQ C1670
968 LDD #$A10A
969 STD <$D3
970C1650 LDA <$D0
971 BPL C1650
972 LDD #$FBFF
973 STD <$D3
974 NOP
975 NOP
976 PULS CC,X
977C1660 CLR <$D0
978 LDA #$40
979 STA <$D2
980 RTS
981C1670 CLRB
982C1680 INCB
983 BEQ C1690
984 PSHS X
985 PULS X
986 NOP
987 NOP
988 LDA <$D1
989 BITA #$40
990 BEQ C1680
991 CLRA
992 ADDD >$8410
993 SUBD #$0001
994 BRA C1700
995C1690 LDD >$840E
996C1700 STD >$8410
997 PULS CC
998 BSR C1660
999 LBRA C1450
1000C1710 PSHS CC
1001 ORCC #$50
1002 LDX #$A000
1003 STX >$8402
1004 LDA #$02
1005 STA >$83F7
1006 LDA >$8407
1007 STA >$604B
1008 LDX #$8440
1009 STX >$8420
1010C1720 LDX #$8580
1011 STX >$8422
1012C1730 LDA #$40
1013 STA >$6048
1014 JSR $E004
1015 CLR >$6049
1016 LDA >$8415
1017 BEQ C1740
1018 BSR C1770
1019C1740 INC >$6049
1020 LDA >$8416
1021 BEQ C1750
1022 BSR C1770
1023C1750 LDA >$604B
1024 INCA
1025 STA >$604B
1026 CMPA >$8408
1027 BNE C1730
1028 CLRA
1029C1760 PULS CC,PC
1030C1770 STA >$E7D2
1031 STA >$841F
1032 LDA #$03
1033 STA >$841E
1034C1780 DEC >$841E
1035 BNE C1790
1036 COMA
1037 LEAS 2,S
1038 BRA C1760
1039C1790 LDX #$83B0
1040 LDB #$10
1041C1800 LDA ,X+
1042 PSHS A
1043 DECB
1044 BNE C1800
1045 LDA #$E7
1046 TFR A,DP
1047 LDX >$8402
1048 LDA >$83F7
1049 STA >$E7E5
1050 LDU >$8422
1051 LDA #$01
1052C1810 CLR <$D0
1053 STA <$D5
1054 LDA #$0A
1055 STA <$D4
1056 LDA #$A1
1057 STA <$D3
1058 LDB #$19
1059 STB <$D0
1060 CMPX #$E000
1061 BNE C1820
1062 LDX #$A000
1063 INC >$E7E5
1064 LDB >$E7E5
1065 CMPB >$8404
1066 BEQ C1920
1067C1820 LDY #$5D00
1068C1830 LEAY -1,Y
1069 BEQ C1890
1070 LDB <$D0
1071 BITB #$02
1072 BEQ C1830
1073 STA <$D3
1074C1840 LDB <$D0
1075 BPL C1840
1076 STA <$D3
1077C1850 LDB <$D0
1078 BPL C1850
1079 LDA #$FB
1080 STA <$D3
1081 LDD ,U++
1082 TSTB
1083 BEQ C1870
1084 CLRB
1085C1860 TST <$D0
1086 BPL C1860
1087 STA <$D3
1088 DECB
1089 BNE C1860
1090 BRA C1880
1091C1870 LDA <$D0
1092 BPL C1870
1093 LDA ,X+
1094 STA <$D3
1095 DECB
1096 BNE C1870
1097C1880 LDB <$D0
1098 BITB #$08
1099 BEQ C1880
1100 PULS A
1101 TSTA
1102 BNE C1810
1103 STU >$8422
1104 STX >$8402
1105 LDA >$E7E5
1106 STA >$83F7
1107 LDD #$4000
1108 STB <$D0
1109 STA <$D2
1110 RTS
1111C1890 PULS A
1112 CMPA #$00
1113 BNE C1890
1114 LDX #$83B0
1115 LDB #$10
1116C1900 LDA ,X+
1117 PSHS A
1118 DECB
1119 BNE C1900
1120 LDA #$01
1121 PSHS A
1122 LDU #$9A00
1123C1910 PULS A
1124 CMPA #$00
1125 BEQ C1930
1126C1920 LDB #$01
1127 STD 2,U
1128 LDA >$604B
1129 CLRB
1130 STD ,U
1131 LDY #$0004
1132 LDD #$B230
1133 JSR $E364
1134 STD ,U++
1135 BRA C1910
1136C1930 LDA #$40
1137 STA >$6048
1138 JSR $E004
1139 LDA >$841F
1140 STA >$E7D2
1141 LDU #$9A00
1142 LDA #$10
1143 PSHS A
1144C1940 LDA <$D1
1145 BITA #$40
1146 BEQ C1940
1147C1950 LDA <$D3
1148 LDA <$D0
1149 BPL C1950
1150C1960 LDA <$D0
1151 BPL C1960
1152 LDD #$4EFF
1153 STD <$D3
1154 LDB #$04
1155 STB <$D0
1156 LDA #$1E
1157C1970 LDB <$D0
1158 BPL C1970
1159 LDB #$4E
1160 STB <$D3
1161 DECA
1162 BNE C1970
1163C1980 LDA #$0C
1164C1990 LDB <$D0
1165 BPL C1990
1166 CLR <$D3
1167 DECA
1168 BNE C1990
1169C2000 LDB <$D0
1170 BPL C2000
1171 LDD #$A10A
1172 STD <$D3
1173C2010 LDB <$D0
1174 BPL C2010
1175 STA <$D3
1176C2020 LDB <$D0
1177 BPL C2020
1178 STA <$D3
1179C2030 LDA <$D0
1180 BPL C2030
1181 LDD #$FEFF
1182 STD <$D3
1183 LDA #$06
1184C2040 LDB <$D0
1185 BPL C2040
1186 LDB ,U+
1187 STB <$D3
1188 DECA
1189 BNE C2040
1190 LDA #$16
1191C2050 LDB <$D0
1192 BPL C2050
1193 LDB #$4E
1194 STB <$D3
1195 DECA
1196 BNE C2050
1197 LDA #$0C
1198C2060 LDB <$D0
1199 BPL C2060
1200 CLR <$D3
1201 DECA
1202 BNE C2060
1203C2070 LDB <$D0
1204 BPL C2070
1205 LDD #$A10A
1206 STD <$D3
1207C2080 LDB <$D0
1208 BPL C2080
1209 STA <$D3
1210C2090 LDB <$D0
1211 BPL C2090
1212 STA <$D3
1213C2100 LDA <$D0
1214 BPL C2100
1215 LDD #$FBFF
1216 STD <$D3
1217 CLRA
1218C2110 LDB <$D0
1219 BPL C2110
1220 LDB #$E5
1221 STB <$D3
1222 DECA
1223 BNE C2110
1224C2120 LDB <$D0
1225 BPL C2120
1226 LDB #$78
1227 STB <$D3
1228C2130 LDB <$D0
1229 BPL C2130
1230 LDB #$27
1231 STB <$D3
1232 LDA #$2C
1233C2140 LDB <$D0
1234 BPL C2140
1235 LDB #$4E
1236 STB <$D3
1237 DECA
1238 BNE C2140
1239 DEC ,S
1240 LBNE C1980
1241C2150 LDA <$D1
1242 BITA #$40
1243 BNE C2170
1244C2160 LDA <$D0
1245 BPL C2160
1246 STB <$D3
1247 BRA C2150
1248C2170 PULS A
1249 LBRA C1780
1250C2180 TFR Y,D
1251 BCS $771F
1252 ASRA
1253 INC <$14
1254 BLS $7769
1255 NOP
Note: See TracBrowser for help on using the repository browser.