![[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.