|
|
1.1 root 1: *
2: * Captain Blood
3: *
4: * (c) Infogrames
5: * (s) 2017, Brutal Deluxe Software
6: *
7:
8: mx %00
9:
10: rel
11: dsk upcom.L
12: lst off
13:
14: *-----------
15:
16: use upcom.X
17:
18: *-----------
19:
20: use 4/Misc.Macs
21: use 4/Util.Macs
22:
23: *-----------
24:
25: L2B0000 PHD
26: TSC
27: SEC
28: SBC #$00FB
29: TCD
30: ADC #$00F4
31: TCS
32: LDA L030113
33: AND #$0001
34: TAY
35: BEQ L2B002A
36: JSL L2A0311
37: LDA L030113
38: AND #$0002
39: TAY
40: BEQ L2B0027
41: LDA #$FFFF
42: STA L0300F5
43: L2B0027 BRL L2B0070
44: L2B002A LDA L030113
45: AND #$0002
46: TAY
47: BEQ L2B0069
48: STZ L0301E5
49: LDA L0301E5
50: PHA
51: INC
52: STA L0301E5
53: PLA
54: ASL
55: LDX #$0000
56: PHX
57: PHA
58: LDA #L0437F6
59: LDX #^L0437F6
60: JSL L2D0000
61: PLA
62: PLX
63: STA $F6
64: STX $F8
65: LDA #$0009
66: STA [$F6]
67: JSL L2A0311
68: LDA #$FFFF
69: STA L0300F5
70: STZ L0301E5
71: BRA L2B0070
72: L2B0069 STZ L0301E5
73: JSL L2A02A9
74: L2B0070 TSC
75: CLC
76: ADC #$0006
77: TCS
78: PLD
79: RTL
80:
81: L2B0078 PHD
82: TSC
83: SEC
84: SBC #$00FB
85: TCD
86: ADC #$00F4
87: TCS
88: LDA L0301F3
89: STA L030129
90: TSC
91: CLC
92: ADC #$0006
93: TCS
94: PLD
95: RTL
96:
97: L2B0091 PHD
98: TSC
99: SEC
100: SBC #$00FB
101: TCD
102: ADC #$00F0
103: TCS
104: LDX L030002
105: LDA L030000
106: STX $F4
107: STA $F2
108: STZ L030000
109: STZ L030002
110: LDA L030129
111: STA L0301F3
112: LDX $F4
113: LDA $F2
114: STX L030002
115: STA L030000
116: TSC
117: CLC
118: ADC #$000A
119: TCS
120: PLD
121: RTL
122:
123: L2B00C4 PHD
124: TSC
125: SEC
126: SBC #$00FB
127: TCD
128: ADC #$00F0
129: TCS
130: JSL L2B0078
131: LDA L0301F3
132: STA $F2
133: JSL L2A084F
134: STZ L0301E5
135: PEA $0000
136: JSL L2A104D
137: PLY
138: STZ L030000
139: STZ L030002
140: JSL L2B0091
141: LDA $F2
142: STA L0301F3
143: LDA #L1E0118
144: LDX #^L1E0118
145: STX L030002
146: STA L030000
147: JSL L2B0000
148: TSC
149: CLC
150: ADC #$000A
151: TCS
152: PLD
153: RTL
154:
155: L2B010E PHD
156: TSC
157: SEC
158: SBC #$00FB
159: TCD
160: ADC #$00F2
161: TCS
162: LDAL L0435AC
163: CLC
164: ADC #$0066
165: STA $F4
166: PEA $0000
167: PEA $0008
168: PEA $0034
169: LDA $F4
170: LDX #$0000
171: PHX
172: PHA
173: LDX L03018D
174: LDA L03018B
175: JSL L2D0000
176: JSL L0D0151
177: PLY
178: PLY
179: PLY
180: PLY
181: PLY
182: PEA $0068
183: PEA $0008
184: PEI $F4
185: JSL L1E0000
186: PLY
187: PLY
188: PLY
189: TSC
190: CLC
191: ADC #$0008
192: TCS
193: PLD
194: RTL
195:
196: L2B015D PHD
197: TSC
198: SEC
199: SBC #$00FB
200: TCD
201: ADC #$00F0
202: TCS
203: LDA L03013B
204: SEC
205: SBC #$0010
206: STA $F4
207: LDA $F4
208: LSR
209: LSR
210: LSR
211: LSR
212: STA $F2
213: LDA $F2
214: CMP L0301E5
215: BCS L2B01A2
216: LDA $F2
217: ASL
218: LDX #$0000
219: PHX
220: PHA
221: LDA #L0437F6
222: LDX #^L0437F6
223: JSL L2D0000
224: PLA
225: PLX
226: STA $F6
227: STX $F8
228: LDA [$F6]
229: PHA
230: JSL L2A0784
231: PLY
232: BRA L2B01A6
233: L2B01A2 JSL L2B010E
234: L2B01A6 TSC
235: CLC
236: ADC #$000A
237: TCS
238: PLD
239: RTL
240:
241: L2B01AE PHD
242: TSC
243: SEC
244: SBC #$00FB
245: TCD
246: ADC #$00F0
247: TCS
248: LDA L03013B
249: SEC
250: SBC #$00B0
251: STA $F4
252: LDA $F4
253: LSR
254: LSR
255: LSR
256: LSR
257: STA $F2
258: LDA $F2
259: CMP L0301E3
260: BCS L2B01F3
261: LDA $F2
262: ASL
263: LDX #$0000
264: PHX
265: PHA
266: LDA #L0437E6
267: LDX #^L0437E6
268: JSL L2D0000
269: PLA
270: PLX
271: STA $F6
272: STX $F8
273: LDA [$F6]
274: PHA
275: JSL L2A0784
276: PLY
277: BRA L2B01F7
278: L2B01F3 JSL L2B010E
279: L2B01F7 TSC
280: CLC
281: ADC #$000A
282: TCS
283: PLD
284: RTL
285:
286: L2B01FF PHD
287: TSC
288: SEC
289: SBC #$00FB
290: TCD
291: ADC #$00EE
292: TCS
293: LDA L03013B
294: CLC
295: ADC L0301DF
296: SEC
297: SBC #$0030
298: STA $F4
299: LDA L03013D
300: SEC
301: SBC #$0088
302: STA $F2
303: LDA $F4
304: LSR
305: LSR
306: LSR
307: LSR
308: ASL
309: STA $F0
310: LDA $F2
311: CMP #$0013
312: BEQ L2B0234
313: BCC L2B0234
314: INC $F0
315: L2B0234 PEI $F0
316: JSL L2A0784
317: PLY
318: TSC
319: CLC
320: ADC #$000C
321: TCS
322: PLD
323: RTL
324:
325: L2B0243 PHD
326: TSC
327: SEC
328: SBC #$00FB
329: TCD
330: ADC #$00F4
331: TCS
332: LDA L030113
333: AND #$0001
334: TAY
335: BEQ L2B027F
336: LDX L03011B
337: LDA L030119
338: STX L03011F
339: STA L03011D
340: LDA L030121
341: STA L030123
342: JSL L2A0162
343: JSL L2A01FC
344: PEA $FFFF
345: JSL L2A104D
346: PLY
347: JSL L2B0000
348: BRA L2B0288
349: L2B027F LDA L0301E3
350: BEQ L2B0288
351: JSL L2B00C4
352: L2B0288 TSC
353: CLC
354: ADC #$0006
355: TCS
356: PLD
357: RTL
358:
359: PHD
360: TSC
361: SEC
362: SBC #$00FB
363: TCD
364: ADC #$00F4
365: TCS
366: TSC
367: CLC
368: ADC #$0006
369: TCS
370: PLD
371: RTL
372:
373: L2B02A3 PHD
374: TSC
375: SEC
376: SBC #$00FB
377: TCD
378: ADC #$00F4
379: TCS
380: LDA L0300F5
381: BEQ L2B02C2
382: LDA #$FFFF
383: STA L03015F
384: LDA #$0006
385: STA L03015D
386: BRL L2B0313
387: L2B02C2 JSL L2B0243
388: LDA L030113
389: AND #$0001
390: TAY
391: BNE L2B02DF
392: LDA L030113
393: AND #$0002
394: TAY
395: BNE L2B02DF
396: JSL L2A0257
397: STZ L0301E3
398: L2B02DF LDA L030079
399: BNE L2B0313
400: PEA $0006
401: JSL L160100
402: PLY
403: CMP L0300F1
404: BEQ L2B0313
405: PEA $0006
406: JSL L160100
407: PLY
408: STA L0300F1
409: LDA L0300F1
410: BEQ L2B030B
411: PEA $0000
412: JSL L15032D
413: PLY
414: BRA L2B0313
415: L2B030B PEA $0000
416: JSL L1503A0
417: PLY
418: L2B0313 TAY
419: TSC
420: CLC
421: ADC #$0006
422: TCS
423: TYA
424: PLD
425: RTL
426:
427: L2B031D ENT
428: PHD
429: TSC
430: SEC
431: SBC #$00FB
432: TCD
433: ADC #$00EC
434: TCS
435: PEA ^L04316E
436: PEA L04316E
437: JSL L080262
438: PLY
439: PLY
440: STX L0300EB
441: STA L0300E9
442: PEA ^L04317F
443: PEA L04317F
444: JSL L080262
445: PLY
446: PLY
447: STX L0300F9
448: STA L0300F7
449: LDX L0300EB
450: LDA L0300E9
451: CLC
452: ADC #$01B0
453: PHA
454: TXA
455: ADC #$0000
456: TAX
457: PLA
458: STX L0300EF
459: STA L0300ED
460: LDX L0301C1
461: LDA L0301BF
462: STX $F4
463: STA $F2
464: LDX L0301C1
465: LDA L0301BF
466: CLC
467: ADC #$0010
468: PHA
469: TXA
470: ADC #$0000
471: TAX
472: PLA
473: STX L0301C9
474: STA L0301C7
475: LDX L0301C1
476: LDA L0301BF
477: CLC
478: ADC #$0010
479: PHA
480: TXA
481: ADC #$0000
482: TAX
483: PLA
484: CLC
485: ADC #$0800
486: PHA
487: TXA
488: ADC #$0000
489: TAX
490: PLA
491: STX L0301C5
492: STA L0301C3
493: LDX L0301C5
494: LDA L0301C3
495: CLC
496: ADC #$0100
497: PHA
498: TXA
499: ADC #$0000
500: TAX
501: PLA
502: STX L0301CD
503: STA L0301CB
504: LDX L0301C5
505: LDA L0301C3
506: CLC
507: ADC #$0100
508: PHA
509: TXA
510: ADC #$0000
511: TAX
512: PLA
513: CLC
514: ADC #$0200
515: PHA
516: TXA
517: ADC #$0000
518: TAX
519: PLA
520: STX L0301D1
521: STA L0301CF
522: LDY #$0006
523: LDA [$F2],Y
524: TAX
525: LDY #$0004
526: LDA [$F2],Y
527: PHX
528: PHA
529: JSL L0F0000
530: PLY
531: PLY
532: LDX #$0000
533: TAY
534: BPL L2B03F9
535: DEX
536: L2B03F9 PHX
537: PHA
538: LDX L0301D1
539: LDA L0301CF
540: JSL L2D0000
541: PLA
542: PLX
543: STX L0301D5
544: STA L0301D3
545: LDA #$0002
546: STA $F0
547: BRA L2B0455
548: L2B0414 LDA $F0
549: LDX #$0000
550: PHX
551: PHA
552: LDA #L04346C
553: LDX #^L04346C
554: JSL L2D0000
555: PLA
556: PLX
557: STA $F6
558: STX $F8
559: LDA [$F6]
560: AND #$00FF
561: STA $EE
562: LDA $F0
563: PHA
564: LDA $EE
565: LDX #$0000
566: PHX
567: PHA
568: LDA #L043906
569: LDX #^L043906
570: JSL L2D0000
571: PLA
572: PLX
573: STA $F6
574: STX $F8
575: PLA
576: SEP #$20
577: STA [$F6]
578: REP #$20
579: INC $F0
580: L2B0455 LDA $F0
581: CMP #$0079
582: BNE L2B0414
583: JSL L290000
584: JSL L280000
585: TSC
586: CLC
587: ADC #$000E
588: TCS
589: PLD
590: RTL
591:
592: L2B046C ENT
593: PHD
594: TSC
595: SEC
596: SBC #$00FB
597: TCD
598: ADC #$00EC
599: TCS
600: PEA $0000
601: PEA $0120
602: PEA $0078
603: PEA $00C7
604: _ClampMouse
605: BCS L2B048F
606: LDA #$0000
607: L2B048F STAL L030169
608: STZ L030113
609: STZ L030117
610: LDA #$0010
611: STA L0301DF
612: STZ L0301E3
613: STZ L0301E5
614: STZ L030125
615: STZ L030127
616: STZ L0301E1
617: STZ L0300DF
618: STZ L0300F5
619: LDA #$0002
620: STA $F4
621: BRA L2B04E2
622: L2B04BB LDA $F4
623: LDX #$0000
624: PHX
625: PHA
626: LDA #L04346C
627: LDX #^L04346C
628: JSL L2D0000
629: PLA
630: PLX
631: STA $F6
632: STX $F8
633: LDA [$F6]
634: AND #$00FF
635: AND #$007F
636: SEP #$20
637: STA [$F6]
638: REP #$20
639: INC $F4
640: L2B04E2 LDA $F4
641: CMP #$006E
642: BNE L2B04BB
643: LDA #$006E
644: STA $F4
645: BRA L2B0517
646: L2B04F0 LDA $F4
647: LDX #$0000
648: PHX
649: PHA
650: LDA #L04346C
651: LDX #^L04346C
652: JSL L2D0000
653: PLA
654: PLX
655: STA $F6
656: STX $F8
657: LDA [$F6]
658: AND #$00FF
659: ORA #$0080
660: SEP #$20
661: STA [$F6]
662: REP #$20
663: INC $F4
664: L2B0517 LDA $F4
665: CMP #$007A
666: BNE L2B04F0
667: LDA L030203
668: LDX #$0000
669: STX $FA
670: ASL
671: ROL $FA
672: ASL
673: ROL $FA
674: ASL
675: ROL $FA
676: ASL
677: ROL $FA
678: ASL
679: ROL $FA
680: LDX $FA
681: PHX
682: PHA
683: LDX L0301CD
684: LDA L0301CB
685: JSL L2D0000
686: PLA
687: PLX
688: STA $F6
689: STX $F8
690: LDY #$0012
691: LDA [$F6],Y
692: TAX
693: LDY #$0010
694: LDA [$F6],Y
695: PHX
696: PHA
697: JSL L0F0000
698: PLY
699: PLY
700: LDX #$0000
701: TAY
702: BPL L2B0563
703: DEX
704: L2B0563 PHX
705: PHA
706: LDX L0301D5
707: LDA L0301D3
708: JSL L2D0000
709: PLA
710: PLX
711: STX L0301DD
712: STA L0301DB
713: LDA L030203
714: LDX #$0000
715: STX $FA
716: ASL
717: ROL $FA
718: ASL
719: ROL $FA
720: ASL
721: ROL $FA
722: ASL
723: ROL $FA
724: ASL
725: ROL $FA
726: LDX $FA
727: PHX
728: PHA
729: LDX L0301CD
730: LDA L0301CB
731: JSL L2D0000
732: PLA
733: PLX
734: STA $F6
735: STX $F8
736: LDY #$0016
737: LDA [$F6],Y
738: TAX
739: LDY #$0014
740: LDA [$F6],Y
741: PHX
742: PHA
743: JSL L0F0000
744: PLY
745: PLY
746: LDX #$0000
747: TAY
748: BPL L2B05BC
749: DEX
750: L2B05BC PHX
751: PHA
752: LDX L0301D1
753: LDA L0301CF
754: JSL L2D0000
755: PLA
756: PLX
757: STX L0301D9
758: STA L0301D7
759: LDA #$0001
760: STA $F4
761: BRA L2B05E0
762: L2B05D7 PEI $F4
763: JSL L16004B
764: PLY
765: INC $F4
766: L2B05E0 LDA $F4
767: CMP #$001E
768: BNE L2B05D7
769: LDA L030205
770: AND #$0003
771: CLC
772: ADC #$0001
773: PHA
774: JSL L160000
775: PLY
776: LDA L030205
777: ASL
778: ASL
779: LDX #$0000
780: PHX
781: PHA
782: LDA #L04798A
783: LDX #^L04798A
784: JSL L2D0000
785: PLA
786: PLX
787: STA $F6
788: STX $F8
789: LDY #$0001
790: LDA [$F6],Y
791: AND #$00FF
792: PHA
793: LDA L030205
794: ASL
795: ASL
796: LDX #$0000
797: PHX
798: PHA
799: LDA #L04798A
800: LDX #^L04798A
801: JSL L2D0000
802: PLA
803: PLX
804: STA $F6
805: STX $F8
806: LDA [$F6]
807: AND #$00FF
808: PHA
809: JSL L160227
810: PLY
811: PLY
812: TAY
813: BEQ L2B064B
814: PEA $0008
815: JSL L160000
816: PLY
817: L2B064B LDA L030205
818: ASL
819: ASL
820: LDX #$0000
821: PHX
822: PHA
823: LDA #L04798A
824: LDX #^L04798A
825: JSL L2D0000
826: PLA
827: PLX
828: STA $F6
829: STX $F8
830: LDA [$F6]
831: AND #$00FF
832: PHA
833: LDA L030205
834: ASL
835: ASL
836: LDX #$0000
837: PHX
838: PHA
839: LDA #L04798A
840: LDX #^L04798A
841: JSL L2D0000
842: PLA
843: PLX
844: STA $F6
845: STX $F8
846: LDY #$0002
847: LDA [$F6],Y
848: AND #$00FF
849: PLX
850: STX $F6
851: CMP $F6
852: BEQ L2B0697
853: BRL L2B06F2
854: L2B0697 LDA L030205
855: ASL
856: ASL
857: LDX #$0000
858: PHX
859: PHA
860: LDA #L04798A
861: LDX #^L04798A
862: JSL L2D0000
863: PLA
864: PLX
865: STA $F6
866: STX $F8
867: LDY #$0001
868: LDA [$F6],Y
869: AND #$00FF
870: PHA
871: LDA L030205
872: ASL
873: ASL
874: LDX #$0000
875: PHX
876: PHA
877: LDA #L04798A
878: LDX #^L04798A
879: JSL L2D0000
880: PLA
881: PLX
882: STA $F6
883: STX $F8
884: LDY #$0003
885: LDA [$F6],Y
886: AND #$00FF
887: PLX
888: STX $F6
889: CMP $F6
890: BNE L2B06F2
891: LDA L030205
892: PHA
893: PEA $0002
894: JSL L1600A0
895: PLY
896: PLY
897: BRA L2B06FF
898: L2B06F2 LDA L030205
899: PHA
900: PEA $0002
901: JSL L1600D0
902: PLY
903: PLY
904: L2B06FF PEA $0006
905: JSL L160100
906: PLY
907: STA L0300F1
908: LDX L0301DD
909: LDA L0301DB
910: STX L03011F
911: STA L03011D
912: STZ L030123
913: L2B0719 LDX L03011F
914: LDA L03011D
915: STA $F6
916: STX $F8
917: LDA [$F6]
918: AND #$00FF
919: STA $F0
920: CMP #$00FF
921: BNE L2B0732
922: BRL L2B07F9
923: L2B0732 LDA $F0
924: AND #$00E0
925: STA L03010B
926: LDA $F0
927: AND #$001F
928: STA L03010D
929: LDX L03011F
930: LDA L03011D
931: STA $F6
932: STX $F8
933: LDY #$0001
934: LDA [$F6],Y
935: AND #$00FF
936: STA L03010F
937: LDA L03010B
938: CMP #$0000
939: BEQ L2B0762
940: BRL L2B07F2
941: L2B0762 LDA L03010D
942: BNE L2B076A
943: BRL L2B07EC
944: L2B076A STZ $F4
945: BRL L2B07E5
946: L2B076F LDA $F4
947: CLC
948: ADC #$0002
949: LDX #$0000
950: PHX
951: PHA
952: LDX L03011F
953: LDA L03011D
954: JSL L2D0000
955: PLA
956: PLX
957: STA $F6
958: STX $F8
959: LDA [$F6]
960: AND #$00FF
961: STA $EE
962: LDA $EE
963: CMP #$0004
964: BCS L2B07A4
965: LDA $EE
966: BEQ L2B07A4
967: LDA $F4
968: CLC
969: ADC #$0002
970: STA $F4
971: L2B07A4 LDA $EE
972: LDX #$0000
973: PHX
974: PHA
975: LDA #L043906
976: LDX #^L043906
977: JSL L2D0000
978: PLA
979: PLX
980: STA $F6
981: STX $F8
982: LDA [$F6]
983: AND #$00FF
984: LDX #$0000
985: PHX
986: PHA
987: LDA #L04346C
988: LDX #^L04346C
989: JSL L2D0000
990: PLA
991: PLX
992: STA $F6
993: STX $F8
994: LDA [$F6]
995: AND #$00FF
996: ORA #$0080
997: SEP #$20
998: STA [$F6]
999: REP #$20
1000: INC $F4
1001: L2B07E5 LDA $F4
1002: CMP L03010D
1003: BNE L2B076F
1004: L2B07EC JSL L2A0162
1005: BRA L2B07F6
1006: L2B07F2 JSL L2A0131
1007: L2B07F6 BRL L2B0719
1008: L2B07F9 LDA #$0002
1009: STA $F4
1010: BRA L2B083C
1011: L2B0800 LDA $F4
1012: LDX #$0000
1013: PHX
1014: PHA
1015: LDA #L04346C
1016: LDX #^L04346C
1017: JSL L2D0000
1018: PLA
1019: PLX
1020: STA $F6
1021: STX $F8
1022: LDA [$F6]
1023: AND #$00FF
1024: AND #$0080
1025: TAY
1026: BEQ L2B082F
1027: PEA $000F
1028: PEI $F4
1029: JSL L0A0000
1030: PLY
1031: PLY
1032: BRA L2B083A
1033: L2B082F PEA $000B
1034: PEI $F4
1035: JSL L0A0000
1036: PLY
1037: PLY
1038: L2B083A INC $F4
1039: L2B083C LDA $F4
1040: CMP #$007A
1041: BNE L2B0800
1042: PEA $0029
1043: LDAL L0435C8
1044: LDX #$0000
1045: PHX
1046: PHA
1047: LDX L03018D
1048: LDA L03018B
1049: JSL L2D0000
1050: LDAL L0435C8
1051: LDX #$0000
1052: PHX
1053: PHA
1054: LDX L030181
1055: LDA L03017F
1056: JSL L2D0000
1057: PLA
1058: PLX
1059: CLC
1060: ADC #$0020
1061: PHA
1062: TXA
1063: ADC #$0000
1064: TAX
1065: PLA
1066: PHX
1067: PHA
1068: JSL L0D00E3
1069: PLY
1070: PLY
1071: PLY
1072: PLY
1073: PLY
1074: PEA $0000
1075: PEA $001C
1076: PEA $0090
1077: LDX L03018D
1078: LDA L03018B
1079: CLC
1080: ADC #$42E8
1081: PHA
1082: TXA
1083: ADC #$0000
1084: TAX
1085: PLA
1086: PHX
1087: PHA
1088: JSL L0D0151
1089: PLY
1090: PLY
1091: PLY
1092: PLY
1093: PLY
1094: PEA $0000
1095: PEA $0026
1096: PEA $0072
1097: LDX L03018D
1098: LDA L03018B
1099: CLC
1100: ADC #$5477
1101: PHA
1102: TXA
1103: ADC #$0000
1104: TAX
1105: PLA
1106: PHX
1107: PHA
1108: JSL L0D0151
1109: PLY
1110: PLY
1111: PLY
1112: PLY
1113: PLY
1114: PEA $0000
1115: PEA $0003
1116: PEA $006C
1117: LDX L03018D
1118: LDA L03018B
1119: CLC
1120: ADC #$6C39
1121: PHA
1122: TXA
1123: ADC #$0000
1124: TAX
1125: PLA
1126: PHX
1127: PHA
1128: JSL L0D0151
1129: PLY
1130: PLY
1131: PLY
1132: PLY
1133: PLY
1134: PEA $0000
1135: JSL L0D0000
1136: PLY
1137: PEA $0020
1138: PEA $001B
1139: LDX L03018D
1140: LDA L03018B
1141: CLC
1142: ADC #$4468
1143: PHA
1144: TXA
1145: ADC #$0000
1146: TAX
1147: PLA
1148: PHX
1149: PHA
1150: LDX L0300EF
1151: LDA L0300ED
1152: PHX
1153: PHA
1154: JSL L0D01CA
1155: TAY
1156: TSC
1157: CLC
1158: ADC #$000C
1159: TCS
1160: TYA
1161: PEA $0020
1162: PEA $001B
1163: LDX L03018D
1164: LDA L03018B
1165: CLC
1166: ADC #$4468
1167: PHA
1168: TXA
1169: ADC #$0000
1170: TAX
1171: PLA
1172: PHX
1173: PHA
1174: LDX L0300EF
1175: LDA L0300ED
1176: PHX
1177: PHA
1178: JSL L0D0340
1179: TAY
1180: TSC
1181: CLC
1182: ADC #$000C
1183: TCS
1184: TYA
1185: STZ $F4
1186: BRL L2B09BE
1187: L2B095A LDX L03018D
1188: LDA L03018B
1189: PHX
1190: PHA
1191: LDA $F4
1192: ASL
1193: LDX #$0000
1194: PHX
1195: PHA
1196: LDA #L043422
1197: LDX #^L043422
1198: JSL L2D0000
1199: PLA
1200: PLX
1201: STA $F6
1202: STX $F8
1203: LDA [$F6]
1204: PHA
1205: LDA $F4
1206: ASL
1207: LDX #$0000
1208: PHX
1209: PHA
1210: LDA #L043418
1211: LDX #^L043418
1212: JSL L2D0000
1213: PLA
1214: PLX
1215: STA $F6
1216: STX $F8
1217: LDA [$F6]
1218: PHA
1219: LDA $F4
1220: ASL
1221: LDX #$0000
1222: PHX
1223: PHA
1224: LDA #L04340E
1225: LDX #^L04340E
1226: JSL L2D0000
1227: PLA
1228: PLX
1229: STA $F6
1230: STX $F8
1231: LDA [$F6]
1232: PHA
1233: JSL L0700B8
1234: PLY
1235: PLY
1236: PLY
1237: PLY
1238: PLY
1239: INC $F4
1240: L2B09BE LDA $F4
1241: CMP #$0005
1242: BNE L2B095A
1243: JSL L280025
1244: JSL L290025
1245: LDA L0301DF
1246: PHA
1247: JSL L0A0095
1248: PLY
1249: LDA #L1E0118
1250: LDX #^L1E0118
1251: STX L030002
1252: STA L030000
1253: PEA $0140
1254: PEA $00B4
1255: PEA $0B40
1256: JSL L1E0000
1257: PLY
1258: PLY
1259: PLY
1260: JSL L2A02A9
1261: JSL L2A0257
1262: LDX L03018D
1263: LDA L03018B
1264: PHX
1265: PHA
1266: JSL L07008D
1267: PLY
1268: PLY
1269: LDA L0300F1
1270: BEQ L2B0A1C
1271: LDA L030079
1272: BNE L2B0A1C
1273: PEA $0000
1274: JSL L15032D
1275: PLY
1276: BRA L2B0A24
1277: L2B0A1C PEA $0000
1278: JSL L1503A0
1279: PLY
1280: L2B0A24 JSL L0A0A04
1281: JSL L2B00C4
1282: TSC
1283: CLC
1284: ADC #$000E
1285: TCS
1286: PLD
1287: RTL
1288:
1289: L2B0A34 ENT
1290: PHD
1291: TSC
1292: SEC
1293: SBC #$00FB
1294: TCD
1295: ADC #$00F0
1296: TCS
1297: STZ L0301F9
1298: L2B0A42 LDA L0301F9
1299: BNE L2B0A49
1300: BRA L2B0A42
1301: L2B0A49 STZ L030000
1302: STZ L030002
1303: PEA $0000
1304: JSL L0D0000
1305: PLY
1306: JSL L2800A0
1307: PEA $00AA
1308: LDX L03018D
1309: LDA L03018B
1310: CLC
1311: ADC #$0960
1312: PHA
1313: TXA
1314: ADC #$0000
1315: TAX
1316: PLA
1317: PHX
1318: PHA
1319: LDX L030181
1320: LDA L03017F
1321: CLC
1322: ADC #$0020
1323: PHA
1324: TXA
1325: ADC #$0000
1326: TAX
1327: PLA
1328: CLC
1329: ADC #$0960
1330: PHA
1331: TXA
1332: ADC #$0000
1333: TAX
1334: PLA
1335: PHX
1336: PHA
1337: JSL L0D00E3
1338: PLY
1339: PLY
1340: PLY
1341: PLY
1342: PLY
1343: STZ $F4
1344: BRL L2B0AF2
1345: L2B0A9D LDA $F4
1346: PHA
1347: LDA #$000E
1348: CLC
1349: JSL L2D018C
1350: PLA
1351: LDX #$0000
1352: PHX
1353: PHA
1354: LDA #L043356
1355: LDX #^L043356
1356: JSL L2D0000
1357: PLA
1358: PLX
1359: STA $F6
1360: STX $F8
1361: LDY #$0002
1362: LDA [$F6],Y
1363: STA $F2
1364: PEA $0020
1365: PEA $0014
1366: LDA $F2
1367: LDX #$0000
1368: PHX
1369: PHA
1370: LDX L03018D
1371: LDA L03018B
1372: JSL L2D0000
1373: LDX L030195
1374: LDA L030193
1375: PHX
1376: PHA
1377: JSL L0D0340
1378: TAY
1379: TSC
1380: CLC
1381: ADC #$000C
1382: TCS
1383: TYA
1384: INC $F4
1385: L2B0AF2 LDA $F4
1386: CMP #$0009
1387: BNE L2B0A9D
1388: LDA #L1E0118
1389: LDX #^L1E0118
1390: STX L030002
1391: STA L030000
1392: PEA $0140
1393: PEA $00B8
1394: PEA $0960
1395: JSL L1E0000
1396: PLY
1397: PLY
1398: PLY
1399: TSC
1400: CLC
1401: ADC #$000A
1402: TCS
1403: PLD
1404: RTL
1405:
1406: L2B0B1D ENT
1407: PHD
1408: TSC
1409: SEC
1410: SBC #$00FB
1411: TCD
1412: ADC #$00F4
1413: TCS
1414: JSL L2B0A34
1415: JSL L0A0BC5
1416: TSC
1417: CLC
1418: ADC #$0006
1419: TCS
1420: PLD
1421: RTL
1422:
1423: L2B0B38 ENT
1424: PHD
1425: TSC
1426: SEC
1427: SBC #$00FB
1428: TCD
1429: ADC #$00EA
1430: TCS
1431: LDA #$FFFF
1432: STA $F0
1433: STZ $F4
1434: BRL L2B0C51
1435: L2B0B4D LDA $F4
1436: ASL
1437: ASL
1438: ASL
1439: LDX #$0000
1440: PHX
1441: PHA
1442: LDA #L04342C
1443: LDX #^L04342C
1444: JSL L2D0000
1445: PLA
1446: PLX
1447: STA $F6
1448: STX $F8
1449: LDA [$F6]
1450: PHA
1451: LDA L03013B
1452: PLX
1453: STX $FA
1454: SEC
1455: SBC $FA
1456: STA $EE
1457: LDA $F4
1458: ASL
1459: ASL
1460: ASL
1461: LDX #$0000
1462: PHX
1463: PHA
1464: LDA #L04342C
1465: LDX #^L04342C
1466: JSL L2D0000
1467: PLA
1468: PLX
1469: STA $F6
1470: STX $F8
1471: LDY #$0002
1472: LDA [$F6],Y
1473: PHA
1474: LDA L03013D
1475: PLX
1476: STX $FA
1477: SEC
1478: SBC $FA
1479: STA $EC
1480: LDA $EE
1481: SEC
1482: SBC #$0000
1483: BVS L2B0BAB
1484: EOR #$8000
1485: L2B0BAB BPL L2B0C00
1486: LDA $F4
1487: ASL
1488: ASL
1489: ASL
1490: LDX #$0000
1491: PHX
1492: PHA
1493: LDA #L04342C
1494: LDX #^L04342C
1495: JSL L2D0000
1496: PLA
1497: PLX
1498: STA $F6
1499: STX $F8
1500: LDY #$0004
1501: LDA [$F6],Y
1502: CMP $EE
1503: BCC L2B0C00
1504: LDA $EC
1505: SEC
1506: SBC #$0000
1507: BVS L2B0BDB
1508: EOR #$8000
1509: L2B0BDB BPL L2B0C00
1510: LDA $F4
1511: ASL
1512: ASL
1513: ASL
1514: LDX #$0000
1515: PHX
1516: PHA
1517: LDA #L04342C
1518: LDX #^L04342C
1519: JSL L2D0000
1520: PLA
1521: PLX
1522: STA $F6
1523: STX $F8
1524: LDY #$0006
1525: LDA [$F6],Y
1526: CMP $EC
1527: BCS L2B0C03
1528: L2B0C00 BRL L2B0C4D
1529: L2B0C03 LDA $F4
1530: BRL L2B0C40
1531: L2B0C08 JSL L280313
1532: BRL L2B0D1D
1533: L2B0C0F JSL L2803C7
1534: BRL L2B0D1D
1535: L2B0C16 JSL L2B01FF
1536: STZ $F0
1537: BRL L2B0C4D
1538: L2B0C1F JSL L2B015D
1539: STZ $F0
1540: BRL L2B0C4D
1541: L2B0C28 JSL L2B01AE
1542: STZ $F0
1543: BRL L2B0C4D
1544: L2B0C31 BRL L2B0C4D
1545: L2B0C34 DA L2B0C08
1546: DA L2B0C0F
1547: DA L2B0C16
1548: DA L2B0C1F
1549: DA L2B0C28
1550: DA L2B0C31
1551: L2B0C40 CMP #$0005
1552: BCC L2B0C48
1553: LDA #$0005
1554: L2B0C48 ASL
1555: TAX
1556: JMP (L2B0C34,X)
1557:
1558: L2B0C4D STZ $EE
1559: INC $F4
1560: L2B0C51 LDA $F4
1561: CMP #$0005
1562: BEQ L2B0C5B
1563: BRL L2B0B4D
1564: L2B0C5B LDA $F0
1565: BEQ L2B0C63
1566: JSL L2B010E
1567: L2B0C63 LDA L03012F
1568: CMP L0301F5
1569: BEQ L2B0C75
1570: JSL L1B0B88
1571: LDA L0301F5
1572: STA L03012F
1573: L2B0C75 LDA L030113
1574: AND #$0001
1575: TAY
1576: BNE L2B0C81
1577: BRL L2B0CAD
1578: L2B0C81 LDA L03012B
1579: CMP L0300E9
1580: BNE L2B0C9F
1581: LDA L03012D
1582: CMP L0300EB
1583: BNE L2B0C9F
1584: LDX L0300EF
1585: LDA L0300ED
1586: STX L03012D
1587: STA L03012B
1588: BRA L2B0CAB
1589: L2B0C9F LDX L0300EB
1590: LDA L0300E9
1591: STX L03012D
1592: STA L03012B
1593: L2B0CAB BRA L2B0CB9
1594: L2B0CAD LDX L0300EF
1595: LDA L0300ED
1596: STX L03012D
1597: STA L03012B
1598: L2B0CB9 LDA L0301F9
1599: CMP #$0007
1600: BNE L2B0CC4
1601: BRL L2B0D1D
1602: L2B0CC4 BCS L2B0CC9
1603: BRL L2B0D1D
1604: L2B0CC9 STZ L0301F9
1605: PEA $0000
1606: JSL L0D0000
1607: PLY
1608: PEA $0020
1609: PEA $001B
1610: LDX L03018D
1611: LDA L03018B
1612: CLC
1613: ADC #$4468
1614: PHA
1615: TXA
1616: ADC #$0000
1617: TAX
1618: PLA
1619: PHX
1620: PHA
1621: LDX L03012D
1622: LDA L03012B
1623: PHX
1624: PHA
1625: JSL L0D0340
1626: TAY
1627: TSC
1628: CLC
1629: ADC #$000C
1630: TCS
1631: TYA
1632: PEA $0020
1633: PEA $001B
1634: PEA $4468
1635: JSL L1E0000
1636: PLY
1637: PLY
1638: PLY
1639: PEA $000F
1640: JSL L0D0000
1641: PLY
1642: JSL L0A09AE
1643: L2B0D1D TAY
1644: TSC
1645: CLC
1646: ADC #$0010
1647: TCS
1648: TYA
1649: PLD
1650: RTL
1651:
1652: L2B0D27 ENT
1653: PHD
1654: TSC
1655: SEC
1656: SBC #$00F7
1657: TCD
1658: ADC #$00EA
1659: TCS
1660: STZ $F0
1661: BRL L2B0E49
1662: L2B0D37 LDA $F0
1663: ASL
1664: ASL
1665: ASL
1666: LDX #$0000
1667: PHX
1668: PHA
1669: LDA #L04342C
1670: LDX #^L04342C
1671: JSL L2D0000
1672: PLA
1673: PLX
1674: STA $F2
1675: STX $F4
1676: LDA [$F2]
1677: PHA
1678: LDA $FD
1679: PLX
1680: STX $F6
1681: SEC
1682: SBC $F6
1683: STA $EE
1684: LDA $F0
1685: ASL
1686: ASL
1687: ASL
1688: LDX #$0000
1689: PHX
1690: PHA
1691: LDA #L04342C
1692: LDX #^L04342C
1693: JSL L2D0000
1694: PLA
1695: PLX
1696: STA $F2
1697: STX $F4
1698: LDY #$0002
1699: LDA [$F2],Y
1700: PHA
1701: LDA $FF
1702: PLX
1703: STX $F6
1704: SEC
1705: SBC $F6
1706: STA $EC
1707: LDA $EE
1708: SEC
1709: SBC #$0000
1710: BVS L2B0D93
1711: EOR #$8000
1712: L2B0D93 BPL L2B0DE8
1713: LDA $F0
1714: ASL
1715: ASL
1716: ASL
1717: LDX #$0000
1718: PHX
1719: PHA
1720: LDA #L04342C
1721: LDX #^L04342C
1722: JSL L2D0000
1723: PLA
1724: PLX
1725: STA $F2
1726: STX $F4
1727: LDY #$0004
1728: LDA [$F2],Y
1729: CMP $EE
1730: BCC L2B0DE8
1731: LDA $EC
1732: SEC
1733: SBC #$0000
1734: BVS L2B0DC3
1735: EOR #$8000
1736: L2B0DC3 BPL L2B0DE8
1737: LDA $F0
1738: ASL
1739: ASL
1740: ASL
1741: LDX #$0000
1742: PHX
1743: PHA
1744: LDA #L04342C
1745: LDX #^L04342C
1746: JSL L2D0000
1747: PLA
1748: PLX
1749: STA $F2
1750: STX $F4
1751: LDY #$0006
1752: LDA [$F2],Y
1753: CMP $EC
1754: BCS L2B0DEB
1755: L2B0DE8 BRL L2B0E47
1756: L2B0DEB LDA $F0
1757: BRL L2B0E33
1758: L2B0DF0 LDA L030113
1759: AND #$0001
1760: TAY
1761: BNE L2B0E03
1762: PEI $FF
1763: PEI $FD
1764: JSL L290380
1765: PLY
1766: PLY
1767: L2B0E03 BRL L2B0E42
1768: L2B0E06 JSL L29034C
1769: BRL L2B0E42
1770: L2B0E0D JSL L290283
1771: BRL L2B0E42
1772: L2B0E14 JSL L280243
1773: BRL L2B0E42
1774: L2B0E1B JSL L2B02A3
1775: BRL L2B0E42
1776: L2B0E22 BRL L2B0E42
1777: L2B0E25 DA L2B0DF0
1778: DA L2B0E22
1779: DA L2B0E06
1780: DA L2B0E0D
1781: DA L2B0E14
1782: DA L2B0E1B
1783: DA L2B0E22
1784: L2B0E33 DEC
1785: DEC
1786: CMP #$0006
1787: BCC L2B0E3D
1788: LDA #$0006
1789: L2B0E3D ASL
1790: TAX
1791: JMP (L2B0E25,X)
1792:
1793: L2B0E42 LDA #$0001
1794: BRA L2B0E56
1795: L2B0E47 INC $F0
1796: L2B0E49 LDA $F0
1797: CMP #$0008
1798: BEQ L2B0E53
1799: BRL L2B0D37
1800: L2B0E53 LDA #$0000
1801: L2B0E56 TAY
1802: TSC
1803: CLC
1804: ADC #$000C
1805: TCS
1806: TYA
1807: PLD
1808: RTL
1809:
1810: PHD
1811: TSC
1812: SEC
1813: SBC #$00FB
1814: TCD
1815: ADC #$00F4
1816: TCS
1817: LDA #$FFFF
1818: STA L03015F
1819: LDA #$0004
1820: STA L03015D
1821: TSC
1822: CLC
1823: ADC #$0006
1824: TCS
1825: PLD
1826: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.