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