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