![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mgalax.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [ERE Captain BLood IIGS reversed] / cblood|
Return to mgalax.s CVS log | Up to [ERE Captain BLood IIGS reversed] / cblood |
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 mgalax.L
12: lst off
13:
14: *-----------
15:
16: use mgalax.X
17:
18: *-----------
19:
20: L1B0000 ENT
21: PHD
22: TSC
23: SEC
24: SBC #$00F9
25: TCD
26: ADC #$00F2
27: TCS
28: LDA $FF
29: SEC
30: SBC #$0000
31: BEQ L1B001E
32: BVS L1B0018
33: EOR #$8000
34: L1B0018 BPL L1B001E
35: LDA $FF
36: BRA L1B0024
37: L1B001E LDA $FF
38: EOR #$FFFF
39: INC
40: L1B0024 TAY
41: TSC
42: CLC
43: ADC #$0006
44: TCS
45: TYA
46: PLD
47: RTL
48:
49: L1B002E PHD
50: TSC
51: SEC
52: SBC #$00F1
53: TCD
54: ADC #$00E4
55: TCS
56: LDA $F7
57: LDX #$0000
58: PHX
59: PHA
60: LDX $FD
61: LDA $FB
62: JSL L2D0000
63: PLA
64: PLX
65: STX $E8
66: STA $E6
67: LDA $FF
68: SEC
69: SBC #$0001
70: ASL
71: STA $EA
72: L1B0057 LDX $EA
73: LDAL L0434EC,X
74: TAY
75: LDX $F9
76: LDA [$E6],Y
77: ANDL L042B79,X
78: ORAL L042B75,X
79: STA [$E6],Y
80: DEC $EA
81: DEC $EA
82: BPL L1B0057
83: TSC
84: CLC
85: ADC #$000C
86: TCS
87: PLD
88: RTL
89:
90: L1B007A PHD
91: TSC
92: SEC
93: SBC #$00FB
94: TCD
95: ADC #$00EA
96: TCS
97: LDA L030083
98: LSR
99: LDX #$0000
100: PHX
101: PHA
102: LDX L03018D
103: LDA L03018B
104: CLC
105: ADC #$0B50
106: PHA
107: TXA
108: ADC #$0000
109: TAX
110: PLA
111: JSL L2D0000
112: PLA
113: PLX
114: STX $F2
115: STA $F0
116: LDA #$00FE
117: STA $F4
118: LDA L030083
119: CMP #$0037
120: BCC L1B00C0
121: LDA L030083
122: CMP #$00CA
123: BEQ L1B00DF
124: BCC L1B00DF
125: L1B00C0 LDAL L043512
126: LDX #$0000
127: PHX
128: PHA
129: LDX $F2
130: LDA $F0
131: JSL L2D0000
132: PLA
133: PLX
134: STX $F2
135: STA $F0
136: LDA $F4
137: SEC
138: SBC #$0026
139: STA $F4
140: L1B00DF LDX $F4
141: LDAL L0434EC,X
142: TAY
143: LDA $F4
144: LSR
145: TAX
146: SEP #$20
147: LDAL L042CF4,X
148: STA [$F0],Y
149: REP #$20
150: DEC $F4
151: DEC $F4
152: BPL L1B00DF
153: LDA L030085
154: CMP #$0013
155: BCS L1B0116
156: LDA L030083
157: CMP #$0038
158: BCC L1B0114
159: LDA L030083
160: CMP #$00CA
161: BEQ L1B0116
162: BCC L1B0116
163: L1B0114 BRA L1B0169
164: L1B0116 LDA L030085
165: ASL
166: LDX #$0000
167: PHX
168: PHA
169: LDA #L0434EC
170: LDX #^L0434EC
171: JSL L2D0000
172: PLA
173: PLX
174: STA $F6
175: STX $F8
176: LDA [$F6]
177: LDX #$0000
178: PHX
179: PHA
180: LDA L030083
181: LSR
182: LDX #$0000
183: PHX
184: PHA
185: LDX L03018D
186: LDA L03018B
187: CLC
188: ADC #$0B50
189: PHA
190: TXA
191: ADC #$0000
192: TAX
193: PLA
194: JSL L2D0000
195: PLA
196: PLX
197: JSL L2D0000
198: PLA
199: PLX
200: STX $EE
201: STA $EC
202: LDA #$0088
203: SEP #$20
204: STA [$EC]
205: REP #$20
206: L1B0169 TAY
207: TSC
208: CLC
209: ADC #$0010
210: TCS
211: TYA
212: PLD
213: RTL
214:
215: L1B0173 PHD
216: TSC
217: SEC
218: SBC #$00FB
219: TCD
220: ADC #$00E8
221: TCS
222: LDA L030085
223: ASL
224: LDX #$0000
225: PHX
226: PHA
227: LDA #L0434EC
228: LDX #^L0434EC
229: JSL L2D0000
230: PLA
231: PLX
232: STA $F6
233: STX $F8
234: LDA [$F6]
235: LDX #$0000
236: PHX
237: PHA
238: LDX L03018D
239: LDA L03018B
240: CLC
241: ADC #$0B50
242: PHA
243: TXA
244: ADC #$0000
245: TAX
246: PLA
247: SEC
248: SBC #$0010
249: PHA
250: TXA
251: SBC #$0000
252: TAX
253: PLA
254: JSL L2D0000
255: PLA
256: PLX
257: STX $F4
258: STA $F2
259: LDA #$009E
260: STA $EC
261: LDA L030085
262: CMP #$0013
263: BCS L1B01E9
264: LDX $F4
265: LDA $F2
266: CLC
267: ADC #$002A
268: PHA
269: TXA
270: ADC #$0000
271: TAX
272: PLA
273: STX $F4
274: STA $F2
275: LDA #$004A
276: STA $EC
277: L1B01E9 LDY $EC
278: L1B01EB TYX
279: LDAL L042D74,X
280: STA [$F2],Y
281: DEY
282: DEY
283: BNE L1B01EB
284: LDA L030085
285: CMP #$0013
286: BCS L1B0213
287: LDA L030083
288: CMP #$0038
289: BCC L1B0210
290: LDA L030083
291: CMP #$00CA
292: BEQ L1B0213
293: BCC L1B0213
294: L1B0210 BRL L1B02B4
295: L1B0213 LDA L030083
296: LSR
297: LDX #$0000
298: PHX
299: PHA
300: LDA L030085
301: ASL
302: LDX #$0000
303: PHX
304: PHA
305: LDA #L0434EC
306: LDX #^L0434EC
307: JSL L2D0000
308: PLA
309: PLX
310: STA $F6
311: STX $F8
312: LDA [$F6]
313: LDX #$0000
314: PHX
315: PHA
316: LDX L03018D
317: LDA L03018B
318: CLC
319: ADC #$0B50
320: PHA
321: TXA
322: ADC #$0000
323: TAX
324: PLA
325: JSL L2D0000
326: PLA
327: PLX
328: JSL L2D0000
329: PLA
330: PLX
331: STX $F0
332: STA $EE
333: LDA L030083
334: AND #$0001
335: ASL
336: LDX #$0000
337: PHX
338: PHA
339: LDA #L042B79
340: LDX #^L042B79
341: JSL L2D0000
342: PLA
343: PLX
344: STA $F6
345: STX $F8
346: LDA [$F6]
347: PHA
348: LDA [$EE]
349: AND #$00FF
350: PLX
351: STX $FA
352: AND $FA
353: STA $EA
354: LDA L030083
355: AND #$0001
356: ASL
357: LDX #$0000
358: PHX
359: PHA
360: LDA #L042B75
361: LDX #^L042B75
362: JSL L2D0000
363: PLA
364: PLX
365: STA $F6
366: STX $F8
367: LDA [$F6]
368: PHA
369: LDA $EA
370: PLX
371: STX $FA
372: ORA $FA
373: SEP #$20
374: STA [$EE]
375: REP #$20
376: L1B02B4 TAY
377: TSC
378: CLC
379: ADC #$0012
380: TCS
381: TYA
382: PLD
383: RTL
384:
385: L1B02BE PHD
386: TSC
387: SEC
388: SBC #$00F3
389: TCD
390: ADC #$00E6
391: TCS
392: LDA $F9
393: LDX #$0000
394: PHX
395: PHA
396: LDX $FD
397: LDA $FB
398: JSL L2D0000
399: PLA
400: PLX
401: SEC
402: SBC #$0010
403: PHA
404: TXA
405: SBC #$0000
406: TAX
407: PLA
408: STX $EC
409: STA $EA
410: LDA $FF
411: LSR
412: LSR
413: ASL
414: SEC
415: SBC #$0002
416: STA $E8
417: LDY $E8
418: LDA #$8888
419: L1B02F9 STA [$EA],Y
420: DEY
421: DEY
422: BNE L1B02F9
423: TSC
424: CLC
425: ADC #$000C
426: TCS
427: PLD
428: RTL
429:
430: L1B0307 ENT
431: PHD
432: TSC
433: SEC
434: SBC #$00FB
435: TCD
436: ADC #$00EC
437: TCS
438: LDA L030083
439: AND #$0001
440: ASL
441: STA $F0
442: LDA L030083
443: LSR
444: CLC
445: ADC #$0B50
446: STA $F4
447: LDA $F4
448: STA $F2
449: LDA #$0080
450: STA $EE
451: LDA L030083
452: CMP #$0037
453: BCC L1B0340
454: LDA L030083
455: CMP #$00CA
456: BEQ L1B0351
457: BCC L1B0351
458: L1B0340 LDA $EE
459: SEC
460: SBC #$0013
461: STA $EE
462: LDA $F2
463: CLC
464: ADCL L043512
465: STA $F2
466: L1B0351 PEA $0002
467: PEI $EE
468: PEA ^L042CF4
469: PEA L042CF4
470: LDA $F2
471: LDX #$0000
472: PHX
473: PHA
474: LDX L03018D
475: LDA L03018B
476: JSL L2D0000
477: JSL L0D0213
478: TAY
479: TSC
480: CLC
481: ADC #$000C
482: TCS
483: TYA
484: PEI $EE
485: LDX L03018D
486: LDA L03018B
487: PHX
488: PHA
489: PEI $F0
490: PEI $F2
491: JSL L1B002E
492: PLY
493: PLY
494: PLY
495: PLY
496: PLY
497: PEI $EE
498: PEA $00E1
499: PEA $2000
500: PEI $F0
501: PEI $F2
502: JSL L1B002E
503: PLY
504: PLY
505: PLY
506: PLY
507: PLY
508: TSC
509: CLC
510: ADC #$000E
511: TCS
512: PLD
513: RTL
514:
515: L1B03AD ENT
516: PHD
517: TSC
518: SEC
519: SBC #$00FB
520: TCD
521: ADC #$00E0
522: TCS
523: LDX L03018D
524: LDA L03018B
525: STX $E4
526: STA $E2
527: LDA L03013B
528: SEC
529: SBC #$001B
530: STA $F4
531: LDA $F4
532: SEC
533: SBC #$0000
534: BVS L1B03D6
535: EOR #$8000
536: L1B03D6 BMI L1B03DA
537: STZ $F4
538: L1B03DA LDA $F4
539: SEC
540: SBC #$00FF
541: BEQ L1B03EE
542: BVS L1B03E7
543: EOR #$8000
544: L1B03E7 BPL L1B03EE
545: LDA #$00FF
546: STA $F4
547: L1B03EE LDA $F4
548: AND #$0001
549: ASL
550: STA $F0
551: LDA #$0001
552: PHA
553: LDA $F4
554: SEC
555: JSL L2D083F
556: PLA
557: CLC
558: ADC #$0B50
559: STA $EC
560: LDA $EC
561: STA $EA
562: LDA #$0080
563: STA $E6
564: LDA $F4
565: SEC
566: SBC #$0037
567: BVS L1B041C
568: EOR #$8000
569: L1B041C BPL L1B042D
570: LDA $F4
571: SEC
572: SBC #$00CA
573: BEQ L1B043E
574: BVS L1B042B
575: EOR #$8000
576: L1B042B BPL L1B043E
577: L1B042D LDA $E6
578: SEC
579: SBC #$0013
580: STA $E6
581: LDA $EA
582: CLC
583: ADCL L043512
584: STA $EA
585: L1B043E LDA $F4
586: CMP L030083
587: BNE L1B0448
588: BRL L1B069B
589: L1B0448 JSL L1B007A
590: PEA $0002
591: PEI $E6
592: PEA ^L042CF4
593: PEA L042CF4
594: LDA $EA
595: LDX #$0000
596: PHX
597: PHA
598: LDX L03018D
599: LDA L03018B
600: JSL L2D0000
601: JSL L0D0213
602: TAY
603: TSC
604: CLC
605: ADC #$000C
606: TCS
607: TYA
608: LDA $F4
609: SEC
610: SBC #$0036
611: BNE L1B047F
612: BRL L1B0537
613: L1B047F BVS L1B0484
614: EOR #$8000
615: L1B0484 BMI L1B0489
616: BRL L1B0537
617: L1B0489 LDA $F4
618: SEC
619: SBC #$00CB
620: BVS L1B0494
621: EOR #$8000
622: L1B0494 BPL L1B0499
623: BRL L1B0537
624: L1B0499 LDA L030085
625: CMP #$0013
626: BCS L1B04EE
627: LDA #$0001
628: PHA
629: LDA $F4
630: SEC
631: JSL L2D083F
632: PLA
633: CLC
634: ADC #$0010
635: SEC
636: SBC #$002A
637: LDX #$0000
638: PHX
639: PHA
640: LDA #L042D74
641: LDX #^L042D74
642: JSL L2D0000
643: PLA
644: PLX
645: STA $F6
646: STX $F8
647: LDA [$F6]
648: PHA
649: LDA L030085
650: LDX #$0000
651: PHX
652: PHA
653: LDA #L042CF4
654: LDX #^L042CF4
655: JSL L2D0000
656: PLA
657: PLX
658: STA $F6
659: STX $F8
660: PLA
661: SEP #$20
662: STA [$F6]
663: REP #$20
664: BRA L1B0535
665: L1B04EE LDA #$0001
666: PHA
667: LDA $F4
668: SEC
669: JSL L2D083F
670: PLA
671: CLC
672: ADC #$0010
673: LDX #$0000
674: PHX
675: PHA
676: LDA #L042D74
677: LDX #^L042D74
678: JSL L2D0000
679: PLA
680: PLX
681: STA $F6
682: STX $F8
683: LDA [$F6]
684: PHA
685: LDA L030085
686: LDX #$0000
687: PHX
688: PHA
689: LDA #L042CF4
690: LDX #^L042CF4
691: JSL L2D0000
692: PLA
693: PLX
694: STA $F6
695: STX $F8
696: PLA
697: SEP #$20
698: STA [$F6]
699: REP #$20
700: L1B0535 BRA L1B058C
701: L1B0537 LDA L030085
702: CMP #$0012
703: BEQ L1B058C
704: BCC L1B058C
705: LDA #$0001
706: PHA
707: LDA $F4
708: SEC
709: JSL L2D083F
710: PLA
711: CLC
712: ADC #$0010
713: LDX #$0000
714: PHX
715: PHA
716: LDA #L042D74
717: LDX #^L042D74
718: JSL L2D0000
719: PLA
720: PLX
721: STA $F6
722: STX $F8
723: LDA [$F6]
724: PHA
725: LDA L030085
726: SEC
727: SBC #$0013
728: LDX #$0000
729: PHX
730: PHA
731: LDA #L042CF4
732: LDX #^L042CF4
733: JSL L2D0000
734: PLA
735: PLX
736: STA $F6
737: STX $F8
738: PLA
739: SEP #$20
740: STA [$F6]
741: REP #$20
742: L1B058C PEI $E6
743: LDX L03018D
744: LDA L03018B
745: PHX
746: PHA
747: PEI $F0
748: PEI $EA
749: JSL L1B002E
750: PLY
751: PLY
752: PLY
753: PLY
754: PLY
755: LDA $F4
756: CMP L030083
757: BCS L1B05C3
758: LDA L030083
759: SEC
760: SBC $F4
761: CLC
762: ADC #$0003
763: PHA
764: PEA $0080
765: PEI $EC
766: JSL L1E0000
767: PLY
768: PLY
769: PLY
770: BRA L1B05E1
771: L1B05C3 LDA $F4
772: SEC
773: SBC L030083
774: CLC
775: ADC #$0003
776: PHA
777: PEA $0080
778: LDA L030083
779: LSR
780: CLC
781: ADC #$0B50
782: PHA
783: JSL L1E0000
784: PLY
785: PLY
786: PLY
787: L1B05E1 LDA $F4
788: STA L030083
789: PEA $0000
790: PEA $0007
791: PEA $0014
792: LDX L03018D
793: LDA L03018B
794: PHX
795: PHA
796: JSL L0D0151
797: PLY
798: PLY
799: PLY
800: PLY
801: PLY
802: LDX L03018D
803: LDA L03018B
804: PHX
805: PHA
806: JSL L07008D
807: PLY
808: PLY
809: PEI $F4
810: PEA $0003
811: PEA $0007
812: PEA $0000
813: JSL L0704AA
814: PLY
815: PLY
816: PLY
817: PLY
818: PEA $0018
819: PEA $0008
820: LDX L03018D
821: LDA L03018B
822: CLC
823: ADC #$1044
824: PHA
825: TXA
826: ADC #$0000
827: TAX
828: PLA
829: PHX
830: PHA
831: LDX L03018D
832: LDA L03018B
833: PHX
834: PHA
835: JSL L0D025C
836: TAY
837: TSC
838: CLC
839: ADC #$000C
840: TCS
841: TYA
842: PEA $0018
843: PEA $0008
844: LDX L03018D
845: LDA L03018B
846: CLC
847: ADC #$10B8
848: PHA
849: TXA
850: ADC #$0000
851: TAX
852: PLA
853: PHX
854: PHA
855: LDX L03018D
856: LDA L03018B
857: PHX
858: PHA
859: JSL L0D025C
860: TAY
861: TSC
862: CLC
863: ADC #$000C
864: TCS
865: TYA
866: PEA $0018
867: PEA $0008
868: PEA $1044
869: JSL L1E0000
870: PLY
871: PLY
872: PLY
873: PEA $0018
874: PEA $0008
875: PEA $10B8
876: JSL L1E0000
877: PLY
878: PLY
879: PLY
880: L1B069B TSC
881: CLC
882: ADC #$001A
883: TCS
884: PLD
885: RTL
886:
887: L1B06A3 ENT
888: PHD
889: TSC
890: SEC
891: SBC #$00FB
892: TCD
893: ADC #$00F0
894: TCS
895: LDA L030085
896: ASL
897: LDX #$0000
898: PHX
899: PHA
900: LDA #L0434EC
901: LDX #^L0434EC
902: JSL L2D0000
903: PLA
904: PLX
905: STA $F6
906: STX $F8
907: LDA [$F6]
908: CLC
909: ADC #$0B50
910: STA $F4
911: LDA L030085
912: CMP #$0013
913: BCS L1B06E6
914: LDA #$009A
915: STA $F2
916: LDA $F4
917: CLC
918: ADC #$002A
919: STA $F4
920: BRA L1B06EB
921: L1B06E6 LDA #$0140
922: STA $F2
923: L1B06EB PEI $F2
924: PEA $0001
925: PEA ^L042D74
926: PEA L042D74
927: LDA $F4
928: LDX #$0000
929: PHX
930: PHA
931: LDX L03018D
932: LDA L03018B
933: JSL L2D0000
934: PLA
935: PLX
936: SEC
937: SBC #$0010
938: PHA
939: TXA
940: SBC #$0000
941: TAX
942: PLA
943: PHX
944: PHA
945: JSL L0D0213
946: TAY
947: TSC
948: CLC
949: ADC #$000C
950: TCS
951: TYA
952: LDA L030083
953: CMP #$0037
954: BNE L1B072D
955: BRL L1B07CB
956: L1B072D BCS L1B0732
957: BRL L1B07CB
958: L1B0732 LDA L030083
959: CMP #$00CA
960: BCC L1B073D
961: BRL L1B07CB
962: L1B073D LDA L030085
963: CMP #$0013
964: BCS L1B078A
965: LDA L030085
966: LDX #$0000
967: PHX
968: PHA
969: LDA #L042CF4
970: LDX #^L042CF4
971: JSL L2D0000
972: PLA
973: PLX
974: STA $F6
975: STX $F8
976: LDA [$F6]
977: PHA
978: LDA L030083
979: LSR
980: CLC
981: ADC #$0010
982: SEC
983: SBC #$002A
984: LDX #$0000
985: PHX
986: PHA
987: LDA #L042D74
988: LDX #^L042D74
989: JSL L2D0000
990: PLA
991: PLX
992: STA $F6
993: STX $F8
994: PLA
995: SEP #$20
996: STA [$F6]
997: REP #$20
998: BRA L1B07C9
999: L1B078A LDA L030085
1000: LDX #$0000
1001: PHX
1002: PHA
1003: LDA #L042CF4
1004: LDX #^L042CF4
1005: JSL L2D0000
1006: PLA
1007: PLX
1008: STA $F6
1009: STX $F8
1010: LDA [$F6]
1011: PHA
1012: LDA L030083
1013: LSR
1014: CLC
1015: ADC #$0010
1016: LDX #$0000
1017: PHX
1018: PHA
1019: LDA #L042D74
1020: LDX #^L042D74
1021: JSL L2D0000
1022: PLA
1023: PLX
1024: STA $F6
1025: STX $F8
1026: PLA
1027: SEP #$20
1028: STA [$F6]
1029: REP #$20
1030: L1B07C9 BRA L1B0818
1031: L1B07CB LDA L030085
1032: CMP #$0012
1033: BEQ L1B0818
1034: BCC L1B0818
1035: LDA L030085
1036: SEC
1037: SBC #$0013
1038: LDX #$0000
1039: PHX
1040: PHA
1041: LDA #L042CF4
1042: LDX #^L042CF4
1043: JSL L2D0000
1044: PLA
1045: PLX
1046: STA $F6
1047: STX $F8
1048: LDA [$F6]
1049: PHA
1050: LDA L030083
1051: LSR
1052: CLC
1053: ADC #$0010
1054: LDX #$0000
1055: PHX
1056: PHA
1057: LDA #L042D74
1058: LDX #^L042D74
1059: JSL L2D0000
1060: PLA
1061: PLX
1062: STA $F6
1063: STX $F8
1064: PLA
1065: SEP #$20
1066: STA [$F6]
1067: REP #$20
1068: L1B0818 PEI $F2
1069: LDX L03018D
1070: LDA L03018B
1071: PHX
1072: PHA
1073: PEI $F4
1074: JSL L1B02BE
1075: PLY
1076: PLY
1077: PLY
1078: PLY
1079: PEI $F2
1080: PEA $00E1
1081: PEA $2000
1082: PEI $F4
1083: JSL L1B02BE
1084: PLY
1085: PLY
1086: PLY
1087: PLY
1088: TSC
1089: CLC
1090: ADC #$000A
1091: TCS
1092: PLD
1093: RTL
1094:
1095: L1B0846 ENT
1096: PHD
1097: TSC
1098: SEC
1099: SBC #$00FB
1100: TCD
1101: ADC #$00E8
1102: TCS
1103: STZ $EA
1104: LDA L03013D
1105: SEC
1106: SBC #$0012
1107: STA $F4
1108: LDA $F4
1109: SEC
1110: SBC #$0000
1111: BVS L1B0867
1112: EOR #$8000
1113: L1B0867 BMI L1B086B
1114: STZ $F4
1115: L1B086B LDA $F4
1116: SEC
1117: SBC #$007F
1118: BEQ L1B087F
1119: BVS L1B0878
1120: EOR #$8000
1121: L1B0878 BPL L1B087F
1122: LDA #$007F
1123: STA $F4
1124: L1B087F LDA $F4
1125: CMP L030085
1126: BNE L1B0889
1127: BRL L1B0B4F
1128: L1B0889 JSL L1B0173
1129: LDA $F4
1130: ASL
1131: LDX #$0000
1132: PHX
1133: PHA
1134: LDA #L0434EC
1135: LDX #^L0434EC
1136: JSL L2D0000
1137: PLA
1138: PLX
1139: STA $F6
1140: STX $F8
1141: LDA [$F6]
1142: CLC
1143: ADC #$0B50
1144: STA $EE
1145: LDA $F4
1146: SEC
1147: SBC #$0013
1148: BVS L1B08B8
1149: EOR #$8000
1150: L1B08B8 BMI L1B08C9
1151: LDA #$009A
1152: STA $EC
1153: LDA $EE
1154: CLC
1155: ADC #$002A
1156: STA $EE
1157: BRA L1B08CE
1158: L1B08C9 LDA #$0140
1159: STA $EC
1160: L1B08CE PEI $EC
1161: PEA $0001
1162: PEA ^L042D74
1163: PEA L042D74
1164: LDA $EE
1165: LDX #$0000
1166: PHX
1167: PHA
1168: LDX L03018D
1169: LDA L03018B
1170: JSL L2D0000
1171: PLA
1172: PLX
1173: SEC
1174: SBC #$0010
1175: PHA
1176: TXA
1177: SBC #$0000
1178: TAX
1179: PLA
1180: PHX
1181: PHA
1182: JSL L0D0213
1183: TAY
1184: TSC
1185: CLC
1186: ADC #$000C
1187: TCS
1188: TYA
1189: LDA L030083
1190: CMP #$0037
1191: BNE L1B0910
1192: BRL L1B09B1
1193: L1B0910 BCS L1B0915
1194: BRL L1B09B1
1195: L1B0915 LDA L030083
1196: CMP #$00CA
1197: BCC L1B0920
1198: BRL L1B09B1
1199: L1B0920 LDA $F4
1200: SEC
1201: SBC #$0013
1202: BVS L1B092B
1203: EOR #$8000
1204: L1B092B BMI L1B0971
1205: LDA $F4
1206: LDX #$0000
1207: PHX
1208: PHA
1209: LDA #L042CF4
1210: LDX #^L042CF4
1211: JSL L2D0000
1212: PLA
1213: PLX
1214: STA $F6
1215: STX $F8
1216: LDA [$F6]
1217: PHA
1218: LDA L030083
1219: LSR
1220: CLC
1221: ADC #$0010
1222: SEC
1223: SBC #$002A
1224: LDX #$0000
1225: PHX
1226: PHA
1227: LDA #L042D74
1228: LDX #^L042D74
1229: JSL L2D0000
1230: PLA
1231: PLX
1232: STA $F6
1233: STX $F8
1234: PLA
1235: SEP #$20
1236: STA [$F6]
1237: REP #$20
1238: BRA L1B09AF
1239: L1B0971 LDA $F4
1240: LDX #$0000
1241: PHX
1242: PHA
1243: LDA #L042CF4
1244: LDX #^L042CF4
1245: JSL L2D0000
1246: PLA
1247: PLX
1248: STA $F6
1249: STX $F8
1250: LDA [$F6]
1251: PHA
1252: LDA L030083
1253: LSR
1254: CLC
1255: ADC #$0010
1256: LDX #$0000
1257: PHX
1258: PHA
1259: LDA #L042D74
1260: LDX #^L042D74
1261: JSL L2D0000
1262: PLA
1263: PLX
1264: STA $F6
1265: STX $F8
1266: PLA
1267: SEP #$20
1268: STA [$F6]
1269: REP #$20
1270: L1B09AF BRA L1B0A02
1271: L1B09B1 LDA $F4
1272: SEC
1273: SBC #$0012
1274: BEQ L1B0A02
1275: BVS L1B09BE
1276: EOR #$8000
1277: L1B09BE BPL L1B0A02
1278: LDA $F4
1279: SEC
1280: SBC #$0013
1281: LDX #$0000
1282: PHX
1283: PHA
1284: LDA #L042CF4
1285: LDX #^L042CF4
1286: JSL L2D0000
1287: PLA
1288: PLX
1289: STA $F6
1290: STX $F8
1291: LDA [$F6]
1292: PHA
1293: LDA L030083
1294: LSR
1295: CLC
1296: ADC #$0010
1297: LDX #$0000
1298: PHX
1299: PHA
1300: LDA #L042D74
1301: LDX #^L042D74
1302: JSL L2D0000
1303: PLA
1304: PLX
1305: STA $F6
1306: STX $F8
1307: PLA
1308: SEP #$20
1309: STA [$F6]
1310: REP #$20
1311: L1B0A02 PEI $EC
1312: LDX L03018D
1313: LDA L03018B
1314: PHX
1315: PHA
1316: PEI $EE
1317: JSL L1B02BE
1318: PLY
1319: PLY
1320: PLY
1321: PLY
1322: LDA $F4
1323: CMP L030085
1324: BCS L1B0A57
1325: PEA $0140
1326: LDA L030085
1327: SEC
1328: SBC $F4
1329: CLC
1330: ADC #$0001
1331: PHA
1332: LDA $F4
1333: ASL
1334: LDX #$0000
1335: PHX
1336: PHA
1337: LDA #L0434EC
1338: LDX #^L0434EC
1339: JSL L2D0000
1340: PLA
1341: PLX
1342: STA $F6
1343: STX $F8
1344: LDA [$F6]
1345: CLC
1346: ADC #$0B50
1347: SEC
1348: SBC #$0010
1349: PHA
1350: JSL L1E0000
1351: PLY
1352: PLY
1353: PLY
1354: BRA L1B0A90
1355: L1B0A57 PEA $0140
1356: LDA $F4
1357: SEC
1358: SBC L030085
1359: CLC
1360: ADC #$0001
1361: PHA
1362: LDA L030085
1363: ASL
1364: LDX #$0000
1365: PHX
1366: PHA
1367: LDA #L0434EC
1368: LDX #^L0434EC
1369: JSL L2D0000
1370: PLA
1371: PLX
1372: STA $F6
1373: STX $F8
1374: LDA [$F6]
1375: CLC
1376: ADC #$0B50
1377: SEC
1378: SBC #$0010
1379: PHA
1380: JSL L1E0000
1381: PLY
1382: PLY
1383: PLY
1384: L1B0A90 LDA $F4
1385: STA L030085
1386: PEA $0000
1387: PEA $0007
1388: PEA $0014
1389: LDX L03018D
1390: LDA L03018B
1391: PHX
1392: PHA
1393: JSL L0D0151
1394: PLY
1395: PLY
1396: PLY
1397: PLY
1398: PLY
1399: LDX L03018D
1400: LDA L03018B
1401: PHX
1402: PHA
1403: JSL L07008D
1404: PLY
1405: PLY
1406: LDA #$007F
1407: SEC
1408: SBC $F4
1409: PHA
1410: PEA $0003
1411: PEA $0007
1412: PEA $0000
1413: JSL L0704AA
1414: PLY
1415: PLY
1416: PLY
1417: PLY
1418: PEA $0018
1419: PEA $0008
1420: LDX L03018D
1421: LDA L03018B
1422: CLC
1423: ADC #$1056
1424: PHA
1425: TXA
1426: ADC #$0000
1427: TAX
1428: PLA
1429: PHX
1430: PHA
1431: LDX L03018D
1432: LDA L03018B
1433: PHX
1434: PHA
1435: JSL L0D025C
1436: TAY
1437: TSC
1438: CLC
1439: ADC #$000C
1440: TCS
1441: TYA
1442: PEA $0018
1443: PEA $0008
1444: LDX L03018D
1445: LDA L03018B
1446: CLC
1447: ADC #$10CA
1448: PHA
1449: TXA
1450: ADC #$0000
1451: TAX
1452: PLA
1453: PHX
1454: PHA
1455: LDX L03018D
1456: LDA L03018B
1457: PHX
1458: PHA
1459: JSL L0D025C
1460: TAY
1461: TSC
1462: CLC
1463: ADC #$000C
1464: TCS
1465: TYA
1466: PEA $0018
1467: PEA $0008
1468: PEA $1056
1469: JSL L1E0000
1470: PLY
1471: PLY
1472: PLY
1473: PEA $0018
1474: PEA $0008
1475: PEA $10CA
1476: JSL L1E0000
1477: PLY
1478: PLY
1479: PLY
1480: L1B0B4F TSC
1481: CLC
1482: ADC #$0012
1483: TCS
1484: PLD
1485: RTL
1486:
1487: L1B0B57 ENT
1488: PHD
1489: TSC
1490: SEC
1491: SBC #$00FB
1492: TCD
1493: ADC #$00F4
1494: TCS
1495: LDAL L043986
1496: AND #$00FF
1497: STA L030083
1498: LDAL L043987
1499: AND #$00FF
1500: PHA
1501: LDA #$007F
1502: PLX
1503: STX $FA
1504: SEC
1505: SBC $FA
1506: STA L030085
1507: TSC
1508: CLC
1509: ADC #$0006
1510: TCS
1511: PLD
1512: RTL
1513:
1514: L1B0B88 ENT
1515: PHD
1516: TSC
1517: SEC
1518: SBC #$00FB
1519: TCD
1520: ADC #$00F4
1521: TCS
1522: LDX L03018D
1523: LDA L03018B
1524: PHX
1525: PHA
1526: JSL L07008D
1527: PLY
1528: PLY
1529: PEA $0000
1530: PEA $0007
1531: PEA $001A
1532: LDX L03018D
1533: LDA L03018B
1534: PHX
1535: PHA
1536: JSL L0D0151
1537: PLY
1538: PLY
1539: PLY
1540: PLY
1541: PLY
1542: LDA L0301F3
1543: PHA
1544: PEA $0004
1545: PEA $0007
1546: PEA $0000
1547: JSL L0704AA
1548: PLY
1549: PLY
1550: PLY
1551: PLY
1552: PEA ^L042B7D
1553: PEA L042B7D
1554: PEA $0006
1555: PEA $001D
1556: JSL L070592
1557: PLY
1558: PLY
1559: PLY
1560: PLY
1561: LDA L0301F5
1562: PHA
1563: PEA $0002
1564: PEA $0007
1565: PEA $0020
1566: JSL L0704AA
1567: PLY
1568: PLY
1569: PLY
1570: PLY
1571: PEA $0030
1572: PEA $0008
1573: LDX L03018D
1574: LDA L03018B
1575: CLC
1576: ADC #$0EA5
1577: PHA
1578: TXA
1579: ADC #$0000
1580: TAX
1581: PLA
1582: PHX
1583: PHA
1584: LDX L03018D
1585: LDA L03018B
1586: PHX
1587: PHA
1588: JSL L0D025C
1589: TAY
1590: TSC
1591: CLC
1592: ADC #$000C
1593: TCS
1594: TYA
1595: PEA $0030
1596: PEA $0008
1597: PEA $00E1
1598: PEA $2EA5
1599: LDX L03018D
1600: LDA L03018B
1601: PHX
1602: PHA
1603: JSL L0D025C
1604: TAY
1605: TSC
1606: CLC
1607: ADC #$000C
1608: TCS
1609: TYA
1610: TSC
1611: CLC
1612: ADC #$0006
1613: TCS
1614: PLD
1615: RTL
1616:
1617: L1B0C4E ENT
1618: PHD
1619: TSC
1620: SEC
1621: SBC #$00FB
1622: TCD
1623: ADC #$00F4
1624: TCS
1625: LDX L03018D
1626: LDA L03018B
1627: PHX
1628: PHA
1629: JSL L07008D
1630: PLY
1631: PLY
1632: PEA $0000
1633: PEA $0007
1634: PEA $0014
1635: LDX L03018D
1636: LDA L03018B
1637: PHX
1638: PHA
1639: JSL L0D0151
1640: PLY
1641: PLY
1642: PLY
1643: PLY
1644: PLY
1645: LDA #$007F
1646: SEC
1647: SBC L030085
1648: PHA
1649: PEA $0007
1650: PEA $0000
1651: JSL L07047C
1652: PLY
1653: PLY
1654: PLY
1655: PEA $0018
1656: PEA $0008
1657: LDX L03018D
1658: LDA L03018B
1659: CLC
1660: ADC #$04B4
1661: PHA
1662: TXA
1663: ADC #$0000
1664: TAX
1665: PLA
1666: PHX
1667: PHA
1668: LDX L03018D
1669: LDA L03018B
1670: PHX
1671: PHA
1672: JSL L0D025C
1673: TAY
1674: TSC
1675: CLC
1676: ADC #$000C
1677: TCS
1678: TYA
1679: PEA $0000
1680: PEA $0007
1681: PEA $0014
1682: LDX L03018D
1683: LDA L03018B
1684: PHX
1685: PHA
1686: JSL L0D0151
1687: PLY
1688: PLY
1689: PLY
1690: PLY
1691: PLY
1692: LDA L030083
1693: PHA
1694: PEA $0007
1695: PEA $0000
1696: JSL L07047C
1697: PLY
1698: PLY
1699: PLY
1700: PEA $0018
1701: PEA $0008
1702: LDX L03018D
1703: LDA L03018B
1704: CLC
1705: ADC #$04A0
1706: PHA
1707: TXA
1708: ADC #$0000
1709: TAX
1710: PLA
1711: PHX
1712: PHA
1713: LDX L03018D
1714: LDA L03018B
1715: PHX
1716: PHA
1717: JSL L0D025C
1718: TAY
1719: TSC
1720: CLC
1721: ADC #$000C
1722: TCS
1723: TYA
1724: PEA $0040
1725: PEA $0008
1726: PEA $04A0
1727: JSL L1E0000
1728: PLY
1729: PLY
1730: PLY
1731: TSC
1732: CLC
1733: ADC #$0006
1734: TCS
1735: PLD
1736: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.