![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to plan.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 plan.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 plan.L
12: lst off
13:
14: *-----------
15:
16: use plan.X
17:
18: *-----------
19:
20: L210000 ENT
21: PHD
22: TSC
23: SEC
24: SBC #$00FB
25: TCD
26: ADC #$00F4
27: TCS
28: PEA $0000
29: PEA $09C4
30: JSL L0702E3
31: PLY
32: PLY
33: STX L0300AB
34: STA L0300A9
35: PEA $0028
36: LDX L0300AB
37: LDA L0300A9
38: PHX
39: PHA
40: LDX L03009F
41: LDA L03009D
42: PHX
43: PHA
44: JSL L210A5F
45: PLY
46: PLY
47: PLY
48: PLY
49: PLY
50: STZ L0300A1
51: TSC
52: CLC
53: ADC #$0006
54: TCS
55: PLD
56: RTL
57:
58: L210044 PHD
59: TSC
60: SEC
61: SBC #$00FB
62: TCD
63: ADC #$00E6
64: TCS
65: LDAL L043986
66: AND #$00FF
67: PHA
68: LDAL L043987
69: AND #$00FF
70: ASL
71: ASL
72: ASL
73: ASL
74: ASL
75: ASL
76: ASL
77: ASL
78: PLX
79: STX $FA
80: CLC
81: ADC $FA
82: STA L030207
83: LDA #$0080
84: STA L0300AD
85: JSL L0C0017
86: AND #$0001
87: TAY
88: BEQ L210084
89: LDA #$0001
90: BRA L210087
91: L210084 LDA #$FFFF
92: L210087 STA L0300AF
93: LDA #$0000
94: STAL L042E64
95: LDA #$0003
96: STA $F4
97: BRL L2102A8
98: L210099 JSL L0C0017
99: AND #$0FFF
100: STA $F2
101: LDA $F4
102: ASL
103: LDX #$0000
104: PHX
105: PHA
106: LDA #L042E64
107: LDX #^L042E64
108: JSL L2D0000
109: PLA
110: PLX
111: STA $F6
112: STX $F8
113: LDA $F2
114: STA [$F6]
115: LDA $F2
116: AND #$00F0
117: STA $F0
118: LDA $F2
119: AND #$0F00
120: STA $EE
121: LDA $F2
122: AND #$000F
123: STA $F2
124: LDA $F4
125: CMP #$0003
126: BNE L2100DD
127: BRL L210211
128: L2100DD LDA $F4
129: SEC
130: SBC #$0004
131: ASL
132: LDX #$0000
133: PHX
134: PHA
135: LDA #L042E64
136: LDX #^L042E64
137: JSL L2D0000
138: PLA
139: PLX
140: STA $F6
141: STX $F8
142: LDA [$F6]
143: STA $EC
144: LDA $EC
145: AND #$00F0
146: STA $EA
147: LDA $EC
148: AND #$0F00
149: STA $E8
150: LDA $EC
151: AND #$000F
152: STA $EC
153: LDA $EE
154: CLC
155: ADC $EE
156: CLC
157: ADC $EE
158: CLC
159: ADC $E8
160: LSR
161: LSR
162: AND #$0F00
163: PHA
164: LDA $F0
165: CLC
166: ADC $F0
167: CLC
168: ADC $F0
169: CLC
170: ADC $EA
171: LSR
172: LSR
173: AND #$00F0
174: PHA
175: LDA $F2
176: CLC
177: ADC $F2
178: CLC
179: ADC $F2
180: CLC
181: ADC $EC
182: LSR
183: LSR
184: PLX
185: STX $FA
186: CLC
187: ADC $FA
188: PLX
189: STX $FA
190: CLC
191: ADC $FA
192: PHA
193: LDA $F4
194: SEC
195: SBC #$0001
196: ASL
197: LDX #$0000
198: PHX
199: PHA
200: LDA #L042E64
201: LDX #^L042E64
202: JSL L2D0000
203: PLA
204: PLX
205: STA $F6
206: STX $F8
207: PLA
208: STA [$F6]
209: LDA $EE
210: CLC
211: ADC $E8
212: CLC
213: ADC $E8
214: CLC
215: ADC $E8
216: LSR
217: LSR
218: AND #$0F00
219: PHA
220: LDA $F0
221: CLC
222: ADC $EA
223: CLC
224: ADC $EA
225: CLC
226: ADC $EA
227: LSR
228: LSR
229: AND #$00F0
230: PHA
231: LDA $F2
232: CLC
233: ADC $EC
234: CLC
235: ADC $EC
236: CLC
237: ADC $EC
238: LSR
239: LSR
240: PLX
241: STX $FA
242: CLC
243: ADC $FA
244: PLX
245: STX $FA
246: CLC
247: ADC $FA
248: PHA
249: LDA $F4
250: SEC
251: SBC #$0003
252: ASL
253: LDX #$0000
254: PHX
255: PHA
256: LDA #L042E64
257: LDX #^L042E64
258: JSL L2D0000
259: PLA
260: PLX
261: STA $F6
262: STX $F8
263: PLA
264: STA [$F6]
265: LDA $EE
266: CLC
267: ADC $E8
268: LSR
269: AND #$0F00
270: PHA
271: LDA $F0
272: CLC
273: ADC $EA
274: LSR
275: AND #$00F0
276: PHA
277: LDA $F2
278: CLC
279: ADC $EC
280: LSR
281: PLX
282: STX $FA
283: CLC
284: ADC $FA
285: PLX
286: STX $FA
287: CLC
288: ADC $FA
289: PHA
290: LDA $F4
291: SEC
292: SBC #$0002
293: ASL
294: LDX #$0000
295: PHX
296: PHA
297: LDA #L042E64
298: LDX #^L042E64
299: JSL L2D0000
300: PLA
301: PLX
302: STA $F6
303: STX $F8
304: PLA
305: STA [$F6]
306: BRL L2102A0
307: L210211 LDA $EE
308: CLC
309: ADC $EE
310: CLC
311: ADC $EE
312: LSR
313: LSR
314: AND #$0F00
315: PHA
316: LDA $F0
317: CLC
318: ADC $F0
319: CLC
320: ADC $F0
321: LSR
322: LSR
323: AND #$00F0
324: PHA
325: LDA $F2
326: CLC
327: ADC $F2
328: CLC
329: ADC $F2
330: LSR
331: LSR
332: PLX
333: STX $FA
334: CLC
335: ADC $FA
336: PLX
337: STX $FA
338: CLC
339: ADC $FA
340: PHA
341: LDA $F4
342: SEC
343: SBC #$0001
344: ASL
345: LDX #$0000
346: PHX
347: PHA
348: LDA #L042E64
349: LDX #^L042E64
350: JSL L2D0000
351: PLA
352: PLX
353: STA $F6
354: STX $F8
355: PLA
356: STA [$F6]
357: LDA $EE
358: LSR
359: AND #$0F00
360: PHA
361: LDA $F0
362: LSR
363: AND #$00F0
364: PHA
365: LDA $F2
366: LSR
367: PLX
368: STX $FA
369: CLC
370: ADC $FA
371: PLX
372: STX $FA
373: CLC
374: ADC $FA
375: PHA
376: LDA $F4
377: SEC
378: SBC #$0002
379: ASL
380: LDX #$0000
381: PHX
382: PHA
383: LDA #L042E64
384: LDX #^L042E64
385: JSL L2D0000
386: PLA
387: PLX
388: STA $F6
389: STX $F8
390: PLA
391: STA [$F6]
392: L2102A0 LDA $F4
393: CLC
394: ADC #$0004
395: STA $F4
396: L2102A8 LDA $F4
397: CMP #$0010
398: BCS L2102B2
399: BRL L210099
400: L2102B2 LDA #$000F
401: STAL L042E66
402: LDA #$088F
403: STAL L042E68
404: LDA #$0003
405: PHA
406: JSL L0C0017
407: CLC
408: JSL L2D000B
409: LDA #$0008
410: CLC
411: JSL L2D082F
412: PLA
413: STA L0301E7
414: LDA #$0007
415: PHA
416: JSL L0C0017
417: CLC
418: JSL L2D000B
419: PLA
420: STA L0301E9
421: LDA #$0007
422: PHA
423: JSL L0C0017
424: CLC
425: JSL L2D000B
426: PLA
427: STA L0301EB
428: JSL L0C0017
429: AND #$0007
430: SEC
431: SBC #$0003
432: STA L0301ED
433: LDA #$0002
434: STA L0301F1
435: JSL L0C0017
436: AND #$0003
437: STA L0300B1
438: JSL L160179
439: TAY
440: BEQ L210330
441: LDA L030205
442: PHA
443: PEA $0004
444: JSL L160147
445: PLY
446: PLY
447: STA L0300B1
448: L210330 LDA L0300B1
449: BEQ L210343
450: JSL L0C0017
451: AND #$000F
452: CLC
453: ADC #$000F
454: STA L0300B1
455: L210343 TSC
456: CLC
457: ADC #$0014
458: TCS
459: PLD
460: RTL
461:
462: L21034B ENT
463: LDA L0300A7
464: DEC
465: BEQ L210355
466: STA L0300A7
467: RTL
468:
469: L210355 LDA #$000A
470: STA L0300A7
471: LDX L0300A5
472: DEX
473: DEX
474: BPL L210365
475: LDX #$0006
476: L210365 STX L0300A5
477: LDAL L042E54,X
478: TAY
479: LDAL L042E5C,X
480: LDX #$9E00
481: STAL $E10022,X
482: TYA
483: STAL $E10024,X
484: RTL
485:
486: L21037E ENT
487: PHD
488: TSC
489: SEC
490: SBC #$00FB
491: TCD
492: ADC #$00BA
493: TCS
494: STZ $E8
495: STZ $E6
496: STZ $BC
497: LDA L0300A1
498: BEQ L210397
499: BRL L2105CD
500: L210397 LDX L0300AB
501: LDA L0300A9
502: STX $D8
503: STA $D6
504: LDX L0300AB
505: LDA L0300A9
506: CLC
507: ADC #$0002
508: PHA
509: TXA
510: ADC #$0000
511: TAX
512: PLA
513: STX $D4
514: STA $D2
515: LDA L0300AD
516: CLC
517: ADC L0300AF
518: STA L0300AD
519: STA $DA
520: LDA #$00E1
521: STA $C4
522: STA $C0
523: LDA #$5340
524: STA $C2
525: LDA #$52A0
526: STA $BE
527: LDA #^L04398A
528: STA $C8
529: STA $D0
530: STA $CC
531: LDA #L04398A
532: CLC
533: ADC #$2000
534: BCC L2103E7
535: INC $C8
536: L2103E7 STA $C6
537: L2103E9 LDA $C8
538: STA $D0
539: STA $CC
540: LDA #$0050
541: STA $E4
542: LDA #$004E
543: STA $E2
544: LDY $BC
545: LDA [$D6],Y
546: INY
547: AND #$00FF
548: CMP #$00FF
549: BNE L210409
550: BRL L2105CD
551: L210409 XBA
552: STA $E0
553: CLC
554: ADC $C6
555: BCC L210413
556: INC $D0
557: L210413 STA $CE
558: LDA $C6
559: SEC
560: SBC $E0
561: BCS L21041E
562: DEC $CC
563: L21041E STA $CA
564: LDA [$D6],Y
565: INY
566: INY
567: STY $BC
568: SEP #$20
569: STA $E8
570: XBA
571: STA $E6
572: REP #$20
573: L21042F LDY $BC
574: LDA [$D2],Y
575: STA $F2
576: LDA [$D6],Y
577: STA $F4
578: TYA
579: CLC
580: ADC #$0004
581: STA $BC
582: LDY $DA
583: SEP #$20
584: TYA
585: CLC
586: ADC $F4
587: STA $F1
588: TYA
589: SEC
590: SBC $F4
591: STA $ED
592: TYA
593: CLC
594: ADC $F5
595: STA $F0
596: TYA
597: SEC
598: SBC $F5
599: STA $EC
600: TYA
601: CLC
602: ADC $F2
603: STA $EF
604: TYA
605: SEC
606: SBC $F2
607: STA $EB
608: TYA
609: CLC
610: ADC $F3
611: STA $EE
612: TYA
613: SEC
614: SBC $F3
615: STA $EA
616: REP #$20
617: DEC $E8
618: BNE L21047D
619: BRL L210516
620: L21047D SEP #$30
621: LDY $EC
622: LDA [$CE],Y
623: TAX
624: LDAL L0433FE,X
625: LDY $ED
626: ORA [$CE],Y
627: XBA
628: LDY $EA
629: LDA [$CE],Y
630: TAX
631: LDAL L0433FE,X
632: LDY $EB
633: ORA [$CE],Y
634: REP #$30
635: LDY $E2
636: STA [$C2],Y
637: SEP #$30
638: LDY $EC
639: LDA [$CA],Y
640: TAX
641: LDAL L0433FE,X
642: LDY $ED
643: ORA [$CA],Y
644: XBA
645: LDY $EA
646: LDA [$CA],Y
647: TAX
648: LDAL L0433FE,X
649: LDY $EB
650: ORA [$CA],Y
651: REP #$30
652: LDY $E2
653: STA [$BE],Y
654: DEY
655: DEY
656: STY $E2
657: SEP #$30
658: LDY $F1
659: LDA [$CE],Y
660: TAX
661: LDAL L0433FE,X
662: LDY $F0
663: ORA [$CE],Y
664: XBA
665: LDY $EF
666: LDA [$CE],Y
667: TAX
668: LDAL L0433FE,X
669: LDY $EE
670: ORA [$CE],Y
671: XBA
672: REP #$30
673: LDY $E4
674: STA [$C2],Y
675: SEP #$30
676: LDY $F1
677: LDA [$CA],Y
678: TAX
679: LDAL L0433FE,X
680: LDY $F0
681: ORA [$CA],Y
682: XBA
683: LDY $EF
684: LDA [$CA],Y
685: TAX
686: LDAL L0433FE,X
687: LDY $EE
688: ORA [$CA],Y
689: XBA
690: REP #$30
691: LDY $E4
692: STA [$BE],Y
693: INY
694: INY
695: STY $E4
696: BRL L21042F
697: L210516 SEP #$30
698: LDY $EC
699: LDA [$CE],Y
700: TAX
701: LDAL L0433FE,X
702: LDY $ED
703: ORA [$CE],Y
704: XBA
705: LDY $EA
706: LDA [$CE],Y
707: TAX
708: LDAL L0433FE,X
709: LDY $EB
710: ORA [$CE],Y
711: REP #$30
712: LDY $E2
713: LDX $E6
714: ANDL L042E44,X
715: STA [$C2],Y
716: SEP #$30
717: LDY $EC
718: LDA [$CA],Y
719: TAX
720: LDAL L0433FE,X
721: LDY $ED
722: ORA [$CA],Y
723: XBA
724: LDY $EA
725: LDA [$CA],Y
726: TAX
727: LDAL L0433FE,X
728: LDY $EB
729: ORA [$CA],Y
730: REP #$30
731: LDY $E2
732: LDX $E6
733: ANDL L042E44,X
734: STA [$BE],Y
735: SEP #$30
736: LDY $EF
737: LDA [$CE],Y
738: TAX
739: LDAL L0433FE,X
740: LDY $EE
741: ORA [$CE],Y
742: XBA
743: LDY $F1
744: LDA [$CE],Y
745: TAX
746: LDAL L0433FE,X
747: LDY $F0
748: ORA [$CE],Y
749: REP #$30
750: LDY $E4
751: LDX $E6
752: ANDL L042E4C,X
753: STA [$C2],Y
754: SEP #$30
755: LDY $EF
756: LDA [$CA],Y
757: TAX
758: LDAL L0433FE,X
759: LDY $EE
760: ORA [$CA],Y
761: XBA
762: LDY $F1
763: LDA [$CA],Y
764: TAX
765: LDAL L0433FE,X
766: LDY $F0
767: ORA [$CA],Y
768: REP #$30
769: LDY $E4
770: LDX $E6
771: ANDL L042E4C,X
772: STA [$BE],Y
773: LDA $C2
774: CLC
775: ADC #$00A0
776: STA $C2
777: LDA $BE
778: SEC
779: SBC #$00A0
780: STA $BE
781: BRL L2103E9
782: L2105CD TAY
783: TSC
784: CLC
785: ADC #$0040
786: TCS
787: TYA
788: PLD
789: RTL
790:
791: L2105D7 ENT
792: PHD
793: TSC
794: SEC
795: SBC #$00FB
796: TCD
797: ADC #$00C8
798: TCS
799: LDAL L043987
800: AND #$00FF
801: PHA
802: LDAL L043986
803: AND #$00FF
804: PHA
805: JSL L160227
806: PLY
807: PLY
808: TAY
809: BEQ L210604
810: LDA #$FFFF
811: STA L0300A1
812: BRL L210A55
813: L210604 STZ L0300A1
814: JSL L210044
815: LDA L0301E9
816: ASL
817: ASL
818: LDX #$0000
819: PHX
820: PHA
821: LDA #L043234
822: LDX #^L043234
823: JSL L2D0000
824: PLA
825: PLX
826: STA $F6
827: STX $F8
828: LDY #$0002
829: LDA [$F6],Y
830: TAX
831: LDA [$F6]
832: STX $E8
833: STA $E6
834: LDA L0301EB
835: ASL
836: ASL
837: LDX #$0000
838: PHX
839: PHA
840: LDA #L043234
841: LDX #^L043234
842: JSL L2D0000
843: PLA
844: PLX
845: STA $F6
846: STX $F8
847: LDY #$0002
848: LDA [$F6],Y
849: TAX
850: LDA [$F6]
851: STX $E4
852: STA $E2
853: LDA #$0040
854: SEC
855: SBC L0301E7
856: STA $F0
857: LDA #$0100
858: SEC
859: SBC L0301E7
860: STA $EE
861: STZ $DC
862: LDA L0301E7
863: ASL
864: ASL
865: ASL
866: ASL
867: ASL
868: ASL
869: ASL
870: ASL
871: STA $E0
872: STZ $F2
873: BRA L2106B8
874: L21067C LDA $DC
875: STA $DA
876: STZ $F4
877: BRA L2106A1
878: L210684 JSL L0C0017
879: LDX $DA
880: SEP #$20
881: STAL L04398A,X
882: REP #$20
883: TXA
884: CLC
885: ADC L0301E7
886: STA $DA
887: LDA $F4
888: CLC
889: ADC L0301E7
890: STA $F4
891: L2106A1 LDA $F4
892: CMP $EE
893: BEQ L210684
894: BCC L210684
895: LDA $DC
896: CLC
897: ADC $E0
898: STA $DC
899: LDA $F2
900: CLC
901: ADC L0301E7
902: STA $F2
903: L2106B8 LDA $F2
904: CMP $F0
905: BEQ L21067C
906: BCC L21067C
907: L2106C0 LDA L0301E7
908: CMP #$0001
909: BNE L2106CB
910: BRL L2108FC
911: L2106CB BCS L2106D0
912: BRL L2108FC
913: L2106D0 LDA #$0040
914: SEC
915: SBC L0301E7
916: STA $F0
917: LDA L0301E7
918: LSR
919: STA $EA
920: LDA L0301E7
921: ASL
922: STA $EC
923: STZ $DC
924: STZ $F2
925: BRL L2107D4
926: L2106EC LDA #$0100
927: SEC
928: SBC $EC
929: STA $EE
930: STZ $F4
931: BRA L21073B
932: L2106F8 LDA $E6
933: LDX $E8
934: JSL L2D08A1
935: STA $E0
936: LDA $DC
937: CLC
938: ADC $F4
939: TAX
940: CLC
941: ADC L0301E7
942: TAY
943: TXA
944: CLC
945: ADC $EA
946: STA $D2
947: LDAL L04398A,X
948: AND #$00FF
949: STA $DE
950: TYX
951: LDAL L04398A,X
952: AND #$00FF
953: ADC $DE
954: LSR
955: ADC $E0
956: LDX $D2
957: SEP #$20
958: STAL L04398A,X
959: REP #$20
960: LDA $F4
961: CLC
962: ADC L0301E7
963: STA $F4
964: L21073B LDA $F4
965: CMP $EE
966: BEQ L2106F8
967: BCC L2106F8
968: LDA $E6
969: LDX $E8
970: JSL L2D08A1
971: PHA
972: LDA #$0001
973: PHA
974: LDA $DC
975: LDX #$0000
976: PHX
977: PHA
978: LDA #L04398A
979: LDX #^L04398A
980: JSL L2D0000
981: PLA
982: PLX
983: STA $F6
984: STX $F8
985: LDA [$F6]
986: AND #$00FF
987: PHA
988: LDA $DC
989: CLC
990: ADC $F4
991: LDX #$0000
992: PHX
993: PHA
994: LDA #L04398A
995: LDX #^L04398A
996: JSL L2D0000
997: PLA
998: PLX
999: STA $F6
1000: STX $F8
1001: LDA [$F6]
1002: AND #$00FF
1003: PLX
1004: STX $FA
1005: CLC
1006: ADC $FA
1007: SEC
1008: JSL L2D083F
1009: PLA
1010: PLX
1011: STX $FA
1012: CLC
1013: ADC $FA
1014: PHA
1015: LDA $DC
1016: CLC
1017: ADC $F4
1018: CLC
1019: ADC $EA
1020: LDX #$0000
1021: PHX
1022: PHA
1023: LDA #L04398A
1024: LDX #^L04398A
1025: JSL L2D0000
1026: PLA
1027: PLX
1028: STA $F6
1029: STX $F8
1030: PLA
1031: SEP #$20
1032: STA [$F6]
1033: REP #$20
1034: LDA L0301E7
1035: XBA
1036: CLC
1037: ADC $DC
1038: STA $DC
1039: LDA $F2
1040: CLC
1041: ADC L0301E7
1042: STA $F2
1043: L2107D4 LDA $F2
1044: CMP $F0
1045: BNE L2107DD
1046: BRL L2106EC
1047: L2107DD BCS L2107E2
1048: BRL L2106EC
1049: L2107E2 LDA #$0100
1050: SEC
1051: SBC $EA
1052: STA $F0
1053: STZ $F4
1054: BRL L2108E1
1055: L2107EF LDA #$0040
1056: SEC
1057: SBC $EC
1058: STA $EE
1059: LDA $F4
1060: STA $DC
1061: STZ $F2
1062: BRA L21084A
1063: L2107FF LDA $E2
1064: LDX $E4
1065: JSL L2D08A1
1066: STA $E0
1067: LDA $EA
1068: XBA
1069: AND #$FF00
1070: CLC
1071: ADC $DC
1072: STA $D2
1073: LDA L0301E7
1074: XBA
1075: CLC
1076: ADC $DC
1077: TAY
1078: LDX $DC
1079: LDAL L04398A,X
1080: AND #$00FF
1081: STA $DE
1082: TYX
1083: LDAL L04398A,X
1084: AND #$00FF
1085: CLC
1086: ADC $DE
1087: LSR
1088: CLC
1089: ADC $E0
1090: LDX $D2
1091: SEP #$20
1092: STAL L04398A,X
1093: REP #$20
1094: STY $DC
1095: LDA $F2
1096: CLC
1097: ADC L0301E7
1098: STA $F2
1099: L21084A LDA $F2
1100: CMP $EE
1101: BEQ L2107FF
1102: BCC L2107FF
1103: LDA $E2
1104: LDX $E4
1105: JSL L2D08A1
1106: PHA
1107: LDA #$0001
1108: PHA
1109: LDA $F4
1110: LDX #$0000
1111: PHX
1112: PHA
1113: LDA #L04398A
1114: LDX #^L04398A
1115: JSL L2D0000
1116: PLA
1117: PLX
1118: STA $F6
1119: STX $F8
1120: LDA [$F6]
1121: AND #$00FF
1122: PHA
1123: LDA $DC
1124: LDX #$0000
1125: PHX
1126: PHA
1127: LDA #L04398A
1128: LDX #^L04398A
1129: JSL L2D0000
1130: PLA
1131: PLX
1132: STA $F6
1133: STX $F8
1134: LDA [$F6]
1135: AND #$00FF
1136: PLX
1137: STX $FA
1138: CLC
1139: ADC $FA
1140: SEC
1141: JSL L2D083F
1142: PLA
1143: PLX
1144: STX $FA
1145: CLC
1146: ADC $FA
1147: PHA
1148: LDA $EA
1149: ASL
1150: ASL
1151: ASL
1152: ASL
1153: ASL
1154: ASL
1155: ASL
1156: ASL
1157: PHA
1158: LDA $DC
1159: PLX
1160: STX $FA
1161: CLC
1162: ADC $FA
1163: LDX #$0000
1164: PHX
1165: PHA
1166: LDA #L04398A
1167: LDX #^L04398A
1168: JSL L2D0000
1169: PLA
1170: PLX
1171: STA $F6
1172: STX $F8
1173: PLA
1174: SEP #$20
1175: STA [$F6]
1176: REP #$20
1177: LDA $F4
1178: CLC
1179: ADC $EA
1180: STA $F4
1181: L2108E1 LDA $F4
1182: CMP $F0
1183: BNE L2108EA
1184: BRL L2107EF
1185: L2108EA BCS L2108EF
1186: BRL L2107EF
1187: L2108EF LDA L0301E7
1188: LSR
1189: STA L0301E7
1190: INC L0301F1
1191: BRL L2106C0
1192: L2108FC LDA #L04398A
1193: LDX #^L04398A
1194: STX $D0
1195: STA $CE
1196: LDA #L043806
1197: LDX #^L043806
1198: STX $CC
1199: STA $CA
1200: LDA L0301ED
1201: STA $DC
1202: LDA #$0001
1203: STA $DA
1204: BRA L210951
1205: L21091C LDA $CE
1206: CLC
1207: ADC #$0100
1208: BCC L210926
1209: INC $D0
1210: L210926 STA $CE
1211: SEP #$10
1212: LDY #$00
1213: NOP
1214: L21092D LDA [$CE],Y
1215: STA [$CA],Y
1216: INY
1217: INY
1218: BNE L21092D
1219: SEP #$30
1220: LDY #$00
1221: LDX $DC
1222: L21093B LDAL L043806,X
1223: STA [$CE],Y
1224: INX
1225: INY
1226: BNE L21093B
1227: LDA $DC
1228: CLC
1229: ADC L0301ED
1230: STA $DC
1231: REP #$30
1232: INC $DA
1233: L210951 LDA $DA
1234: CMP #$0040
1235: BNE L21091C
1236: LDX #$3FFF
1237: SEP #$20
1238: L21095D LDAL L04398A,X
1239: LSR
1240: LSR
1241: LSR
1242: LSR
1243: CMP #$03
1244: BPL L21096B
1245: LDA #$03
1246: L21096B STAL L04398A,X
1247: DEX
1248: BPL L21095D
1249: REP #$20
1250: STZ $D8
1251: STZ $DC
1252: BRL L210A4B
1253: L21097B JSL L0C0017
1254: AND #$007F
1255: STA $F4
1256: JSL L0C0017
1257: AND #$007F
1258: STA $F2
1259: LDA $F2
1260: ASL
1261: ASL
1262: ASL
1263: ASL
1264: ASL
1265: ASL
1266: ASL
1267: CLC
1268: ADC $F4
1269: STA $F2
1270: LDA $D8
1271: INC $D8
1272: ASL
1273: LDX #$0000
1274: PHX
1275: PHA
1276: LDA #L042E84
1277: LDX #^L042E84
1278: JSL L2D0000
1279: PLA
1280: PLX
1281: STA $F6
1282: STX $F8
1283: LDA $F2
1284: STA [$F6]
1285: LDA $F2
1286: CLC
1287: ADC #$0080
1288: PHA
1289: LDA $D8
1290: INC $D8
1291: ASL
1292: LDX #$0000
1293: PHX
1294: PHA
1295: LDA #L042E84
1296: LDX #^L042E84
1297: JSL L2D0000
1298: PLA
1299: PLX
1300: STA $F6
1301: STX $F8
1302: PLA
1303: STA [$F6]
1304: LDA $F2
1305: SEC
1306: SBC #$0080
1307: PHA
1308: LDA $D8
1309: INC $D8
1310: ASL
1311: LDX #$0000
1312: PHX
1313: PHA
1314: LDA #L042E84
1315: LDX #^L042E84
1316: JSL L2D0000
1317: PLA
1318: PLX
1319: STA $F6
1320: STX $F8
1321: PLA
1322: STA [$F6]
1323: LDA $F2
1324: SEC
1325: SBC #$0001
1326: PHA
1327: LDA $D8
1328: INC $D8
1329: ASL
1330: LDX #$0000
1331: PHX
1332: PHA
1333: LDA #L042E84
1334: LDX #^L042E84
1335: JSL L2D0000
1336: PLA
1337: PLX
1338: STA $F6
1339: STX $F8
1340: PLA
1341: STA [$F6]
1342: LDA $F2
1343: CLC
1344: ADC #$0001
1345: PHA
1346: LDA $D8
1347: INC $D8
1348: ASL
1349: LDX #$0000
1350: PHX
1351: PHA
1352: LDA #L042E84
1353: LDX #^L042E84
1354: JSL L2D0000
1355: PLA
1356: PLX
1357: STA $F6
1358: STX $F8
1359: PLA
1360: STA [$F6]
1361: INC $DC
1362: L210A4B LDA $DC
1363: CMP L0300B1
1364: BEQ L210A55
1365: BRL L21097B
1366: L210A55 TAY
1367: TSC
1368: CLC
1369: ADC #$0032
1370: TCS
1371: TYA
1372: PLD
1373: RTL
1374:
1375: L210A5F PHD
1376: TSC
1377: SEC
1378: SBC #$00F1
1379: TCD
1380: ADC #$00D4
1381: TCS
1382: STZ $E6
1383: STZ $E2
1384: STZ $E0
1385: STZ $DE
1386: LDA $FF
1387: XBA
1388: STA $EA
1389: LDA #$0028
1390: PHA
1391: LDA $EA
1392: CLC
1393: JSL L2D000B
1394: PLY
1395: STA $EA
1396: LDA $FF
1397: PHA
1398: LDA #$2800
1399: CLC
1400: JSL L2D000B
1401: PLY
1402: STA $D8
1403: STZ $E8
1404: BRL L210B7A
1405: L210A98 LDA [$F7]
1406: LDY #$0002
1407: SEP #$20
1408: STA $DE
1409: XBA
1410: STA $E2
1411: LDA [$F7],Y
1412: STA $E0
1413: REP #$20
1414: LDA $E6
1415: CLC
1416: ADC $EA
1417: STA $E6
1418: LDA $E6
1419: CMP #$00FF
1420: BNE L210ABB
1421: BRL L210B5D
1422: L210ABB BCS L210AC0
1423: BRL L210B5D
1424: L210AC0 LDA #$0300
1425: STA $DA
1426: LDA $E6
1427: SEC
1428: SBC #$0100
1429: STA $E6
1430: LDA $E0
1431: LSR
1432: INC
1433: STA $E0
1434: LDA $E2
1435: DEC
1436: ASL
1437: ASL
1438: CLC
1439: ADC $E0
1440: STA $E4
1441: LDA $FF
1442: PHA
1443: LDA $E4
1444: CLC
1445: JSL L2D018C
1446: PLA
1447: STA $E4
1448: LDA #$0028
1449: PHA
1450: LDA $E4
1451: CLC
1452: JSL L2D000B
1453: PLY
1454: STA $E4
1455: LDA $E4
1456: DEC
1457: LSR
1458: LSR
1459: INC
1460: STA $D6
1461: LDA $E4
1462: AND #$0003
1463: ASL
1464: TAX
1465: LDAL L042E3C,X
1466: STA $E0
1467: LDY #$0002
1468: SEP #$30
1469: LDA $E0
1470: STA [$FB],Y
1471: LDA $D6
1472: XBA
1473: LDA $DE
1474: REP #$30
1475: STA [$FB]
1476: LDA $E4
1477: CLC
1478: ADC #$0003
1479: STA $E4
1480: LDX #$0003
1481: L210B2A SEP #$30
1482: LDA $DB
1483: TAY
1484: LDA [$F7],Y
1485: TXY
1486: STA [$FB],Y
1487: REP #$30
1488: LDA $DA
1489: CLC
1490: ADC $D8
1491: STA $DA
1492: INX
1493: CPX $E4
1494: BMI L210B2A
1495: LDA $D6
1496: ASL
1497: ASL
1498: CLC
1499: ADC #$0003
1500: LDX #$0000
1501: PHX
1502: PHA
1503: LDX $FD
1504: LDA $FB
1505: JSL L2D0000
1506: PLA
1507: PLX
1508: STX $FD
1509: STA $FB
1510: L210B5D LDA $E2
1511: ASL
1512: ASL
1513: CLC
1514: ADC #$0003
1515: LDX #$0000
1516: PHX
1517: PHA
1518: LDX $F9
1519: LDA $F7
1520: JSL L2D0000
1521: PLA
1522: PLX
1523: STX $F9
1524: STA $F7
1525: INC $E8
1526: L210B7A LDA $E8
1527: CMP #$0028
1528: BEQ L210B84
1529: BRL L210A98
1530: L210B84 LDX $FD
1531: LDA $FB
1532: INC $FB
1533: BNE L210B8E
1534: INC $FD
1535: L210B8E STA $EC
1536: STX $EE
1537: LDA #$00FF
1538: SEP #$20
1539: STA [$EC]
1540: REP #$20
1541: LDA #$00FF
1542: SEP #$20
1543: STA [$FB]
1544: REP #$20
1545: TSC
1546: CLC
1547: ADC #$001C
1548: TCS
1549: PLD
1550: RTL
1551:
1552: L210BAC ENT
1553: PHD
1554: TSC
1555: SEC
1556: SBC #$00FB
1557: TCD
1558: ADC #$00F2
1559: TCS
1560: JSL L1901CE
1561: PEA ^L042E64
1562: PEA L042E64
1563: PEA $0001
1564: JSL L0B014E
1565: PLY
1566: PLY
1567: PLY
1568: LDA L0300A1
1569: BNE L210BFF
1570: LDA #$0005
1571: STA $F4
1572: BRA L210BF8
1573: L210BD7 PEI $F4
1574: LDX L0300AB
1575: LDA L0300A9
1576: PHX
1577: PHA
1578: LDX L03009F
1579: LDA L03009D
1580: PHX
1581: PHA
1582: JSL L210A5F
1583: PLY
1584: PLY
1585: PLY
1586: PLY
1587: PLY
1588: JSL L21037E
1589: INC $F4
1590: L210BF8 LDA $F4
1591: CMP #$0029
1592: BNE L210BD7
1593: L210BFF TSC
1594: CLC
1595: ADC #$0008
1596: TCS
1597: PLD
1598: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.