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