![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to upcom.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 upcom.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 upcom.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use upcom.X ! 17: ! 18: *----------- ! 19: ! 20: use 4/Misc.Macs ! 21: use 4/Util.Macs ! 22: ! 23: *----------- ! 24: ! 25: L2B0000 PHD ! 26: TSC ! 27: SEC ! 28: SBC #$00FB ! 29: TCD ! 30: ADC #$00F4 ! 31: TCS ! 32: LDA L030113 ! 33: AND #$0001 ! 34: TAY ! 35: BEQ L2B002A ! 36: JSL L2A0311 ! 37: LDA L030113 ! 38: AND #$0002 ! 39: TAY ! 40: BEQ L2B0027 ! 41: LDA #$FFFF ! 42: STA L0300F5 ! 43: L2B0027 BRL L2B0070 ! 44: L2B002A LDA L030113 ! 45: AND #$0002 ! 46: TAY ! 47: BEQ L2B0069 ! 48: STZ L0301E5 ! 49: LDA L0301E5 ! 50: PHA ! 51: INC ! 52: STA L0301E5 ! 53: PLA ! 54: ASL ! 55: LDX #$0000 ! 56: PHX ! 57: PHA ! 58: LDA #L0437F6 ! 59: LDX #^L0437F6 ! 60: JSL L2D0000 ! 61: PLA ! 62: PLX ! 63: STA $F6 ! 64: STX $F8 ! 65: LDA #$0009 ! 66: STA [$F6] ! 67: JSL L2A0311 ! 68: LDA #$FFFF ! 69: STA L0300F5 ! 70: STZ L0301E5 ! 71: BRA L2B0070 ! 72: L2B0069 STZ L0301E5 ! 73: JSL L2A02A9 ! 74: L2B0070 TSC ! 75: CLC ! 76: ADC #$0006 ! 77: TCS ! 78: PLD ! 79: RTL ! 80: ! 81: L2B0078 PHD ! 82: TSC ! 83: SEC ! 84: SBC #$00FB ! 85: TCD ! 86: ADC #$00F4 ! 87: TCS ! 88: LDA L0301F3 ! 89: STA L030129 ! 90: TSC ! 91: CLC ! 92: ADC #$0006 ! 93: TCS ! 94: PLD ! 95: RTL ! 96: ! 97: L2B0091 PHD ! 98: TSC ! 99: SEC ! 100: SBC #$00FB ! 101: TCD ! 102: ADC #$00F0 ! 103: TCS ! 104: LDX L030002 ! 105: LDA L030000 ! 106: STX $F4 ! 107: STA $F2 ! 108: STZ L030000 ! 109: STZ L030002 ! 110: LDA L030129 ! 111: STA L0301F3 ! 112: LDX $F4 ! 113: LDA $F2 ! 114: STX L030002 ! 115: STA L030000 ! 116: TSC ! 117: CLC ! 118: ADC #$000A ! 119: TCS ! 120: PLD ! 121: RTL ! 122: ! 123: L2B00C4 PHD ! 124: TSC ! 125: SEC ! 126: SBC #$00FB ! 127: TCD ! 128: ADC #$00F0 ! 129: TCS ! 130: JSL L2B0078 ! 131: LDA L0301F3 ! 132: STA $F2 ! 133: JSL L2A084F ! 134: STZ L0301E5 ! 135: PEA $0000 ! 136: JSL L2A104D ! 137: PLY ! 138: STZ L030000 ! 139: STZ L030002 ! 140: JSL L2B0091 ! 141: LDA $F2 ! 142: STA L0301F3 ! 143: LDA #L1E0118 ! 144: LDX #^L1E0118 ! 145: STX L030002 ! 146: STA L030000 ! 147: JSL L2B0000 ! 148: TSC ! 149: CLC ! 150: ADC #$000A ! 151: TCS ! 152: PLD ! 153: RTL ! 154: ! 155: L2B010E PHD ! 156: TSC ! 157: SEC ! 158: SBC #$00FB ! 159: TCD ! 160: ADC #$00F2 ! 161: TCS ! 162: LDAL L0435AC ! 163: CLC ! 164: ADC #$0066 ! 165: STA $F4 ! 166: PEA $0000 ! 167: PEA $0008 ! 168: PEA $0034 ! 169: LDA $F4 ! 170: LDX #$0000 ! 171: PHX ! 172: PHA ! 173: LDX L03018D ! 174: LDA L03018B ! 175: JSL L2D0000 ! 176: JSL L0D0151 ! 177: PLY ! 178: PLY ! 179: PLY ! 180: PLY ! 181: PLY ! 182: PEA $0068 ! 183: PEA $0008 ! 184: PEI $F4 ! 185: JSL L1E0000 ! 186: PLY ! 187: PLY ! 188: PLY ! 189: TSC ! 190: CLC ! 191: ADC #$0008 ! 192: TCS ! 193: PLD ! 194: RTL ! 195: ! 196: L2B015D PHD ! 197: TSC ! 198: SEC ! 199: SBC #$00FB ! 200: TCD ! 201: ADC #$00F0 ! 202: TCS ! 203: LDA L03013B ! 204: SEC ! 205: SBC #$0010 ! 206: STA $F4 ! 207: LDA $F4 ! 208: LSR ! 209: LSR ! 210: LSR ! 211: LSR ! 212: STA $F2 ! 213: LDA $F2 ! 214: CMP L0301E5 ! 215: BCS L2B01A2 ! 216: LDA $F2 ! 217: ASL ! 218: LDX #$0000 ! 219: PHX ! 220: PHA ! 221: LDA #L0437F6 ! 222: LDX #^L0437F6 ! 223: JSL L2D0000 ! 224: PLA ! 225: PLX ! 226: STA $F6 ! 227: STX $F8 ! 228: LDA [$F6] ! 229: PHA ! 230: JSL L2A0784 ! 231: PLY ! 232: BRA L2B01A6 ! 233: L2B01A2 JSL L2B010E ! 234: L2B01A6 TSC ! 235: CLC ! 236: ADC #$000A ! 237: TCS ! 238: PLD ! 239: RTL ! 240: ! 241: L2B01AE PHD ! 242: TSC ! 243: SEC ! 244: SBC #$00FB ! 245: TCD ! 246: ADC #$00F0 ! 247: TCS ! 248: LDA L03013B ! 249: SEC ! 250: SBC #$00B0 ! 251: STA $F4 ! 252: LDA $F4 ! 253: LSR ! 254: LSR ! 255: LSR ! 256: LSR ! 257: STA $F2 ! 258: LDA $F2 ! 259: CMP L0301E3 ! 260: BCS L2B01F3 ! 261: LDA $F2 ! 262: ASL ! 263: LDX #$0000 ! 264: PHX ! 265: PHA ! 266: LDA #L0437E6 ! 267: LDX #^L0437E6 ! 268: JSL L2D0000 ! 269: PLA ! 270: PLX ! 271: STA $F6 ! 272: STX $F8 ! 273: LDA [$F6] ! 274: PHA ! 275: JSL L2A0784 ! 276: PLY ! 277: BRA L2B01F7 ! 278: L2B01F3 JSL L2B010E ! 279: L2B01F7 TSC ! 280: CLC ! 281: ADC #$000A ! 282: TCS ! 283: PLD ! 284: RTL ! 285: ! 286: L2B01FF PHD ! 287: TSC ! 288: SEC ! 289: SBC #$00FB ! 290: TCD ! 291: ADC #$00EE ! 292: TCS ! 293: LDA L03013B ! 294: CLC ! 295: ADC L0301DF ! 296: SEC ! 297: SBC #$0030 ! 298: STA $F4 ! 299: LDA L03013D ! 300: SEC ! 301: SBC #$0088 ! 302: STA $F2 ! 303: LDA $F4 ! 304: LSR ! 305: LSR ! 306: LSR ! 307: LSR ! 308: ASL ! 309: STA $F0 ! 310: LDA $F2 ! 311: CMP #$0013 ! 312: BEQ L2B0234 ! 313: BCC L2B0234 ! 314: INC $F0 ! 315: L2B0234 PEI $F0 ! 316: JSL L2A0784 ! 317: PLY ! 318: TSC ! 319: CLC ! 320: ADC #$000C ! 321: TCS ! 322: PLD ! 323: RTL ! 324: ! 325: L2B0243 PHD ! 326: TSC ! 327: SEC ! 328: SBC #$00FB ! 329: TCD ! 330: ADC #$00F4 ! 331: TCS ! 332: LDA L030113 ! 333: AND #$0001 ! 334: TAY ! 335: BEQ L2B027F ! 336: LDX L03011B ! 337: LDA L030119 ! 338: STX L03011F ! 339: STA L03011D ! 340: LDA L030121 ! 341: STA L030123 ! 342: JSL L2A0162 ! 343: JSL L2A01FC ! 344: PEA $FFFF ! 345: JSL L2A104D ! 346: PLY ! 347: JSL L2B0000 ! 348: BRA L2B0288 ! 349: L2B027F LDA L0301E3 ! 350: BEQ L2B0288 ! 351: JSL L2B00C4 ! 352: L2B0288 TSC ! 353: CLC ! 354: ADC #$0006 ! 355: TCS ! 356: PLD ! 357: RTL ! 358: ! 359: PHD ! 360: TSC ! 361: SEC ! 362: SBC #$00FB ! 363: TCD ! 364: ADC #$00F4 ! 365: TCS ! 366: TSC ! 367: CLC ! 368: ADC #$0006 ! 369: TCS ! 370: PLD ! 371: RTL ! 372: ! 373: L2B02A3 PHD ! 374: TSC ! 375: SEC ! 376: SBC #$00FB ! 377: TCD ! 378: ADC #$00F4 ! 379: TCS ! 380: LDA L0300F5 ! 381: BEQ L2B02C2 ! 382: LDA #$FFFF ! 383: STA L03015F ! 384: LDA #$0006 ! 385: STA L03015D ! 386: BRL L2B0313 ! 387: L2B02C2 JSL L2B0243 ! 388: LDA L030113 ! 389: AND #$0001 ! 390: TAY ! 391: BNE L2B02DF ! 392: LDA L030113 ! 393: AND #$0002 ! 394: TAY ! 395: BNE L2B02DF ! 396: JSL L2A0257 ! 397: STZ L0301E3 ! 398: L2B02DF LDA L030079 ! 399: BNE L2B0313 ! 400: PEA $0006 ! 401: JSL L160100 ! 402: PLY ! 403: CMP L0300F1 ! 404: BEQ L2B0313 ! 405: PEA $0006 ! 406: JSL L160100 ! 407: PLY ! 408: STA L0300F1 ! 409: LDA L0300F1 ! 410: BEQ L2B030B ! 411: PEA $0000 ! 412: JSL L15032D ! 413: PLY ! 414: BRA L2B0313 ! 415: L2B030B PEA $0000 ! 416: JSL L1503A0 ! 417: PLY ! 418: L2B0313 TAY ! 419: TSC ! 420: CLC ! 421: ADC #$0006 ! 422: TCS ! 423: TYA ! 424: PLD ! 425: RTL ! 426: ! 427: L2B031D ENT ! 428: PHD ! 429: TSC ! 430: SEC ! 431: SBC #$00FB ! 432: TCD ! 433: ADC #$00EC ! 434: TCS ! 435: PEA ^L04316E ! 436: PEA L04316E ! 437: JSL L080262 ! 438: PLY ! 439: PLY ! 440: STX L0300EB ! 441: STA L0300E9 ! 442: PEA ^L04317F ! 443: PEA L04317F ! 444: JSL L080262 ! 445: PLY ! 446: PLY ! 447: STX L0300F9 ! 448: STA L0300F7 ! 449: LDX L0300EB ! 450: LDA L0300E9 ! 451: CLC ! 452: ADC #$01B0 ! 453: PHA ! 454: TXA ! 455: ADC #$0000 ! 456: TAX ! 457: PLA ! 458: STX L0300EF ! 459: STA L0300ED ! 460: LDX L0301C1 ! 461: LDA L0301BF ! 462: STX $F4 ! 463: STA $F2 ! 464: LDX L0301C1 ! 465: LDA L0301BF ! 466: CLC ! 467: ADC #$0010 ! 468: PHA ! 469: TXA ! 470: ADC #$0000 ! 471: TAX ! 472: PLA ! 473: STX L0301C9 ! 474: STA L0301C7 ! 475: LDX L0301C1 ! 476: LDA L0301BF ! 477: CLC ! 478: ADC #$0010 ! 479: PHA ! 480: TXA ! 481: ADC #$0000 ! 482: TAX ! 483: PLA ! 484: CLC ! 485: ADC #$0800 ! 486: PHA ! 487: TXA ! 488: ADC #$0000 ! 489: TAX ! 490: PLA ! 491: STX L0301C5 ! 492: STA L0301C3 ! 493: LDX L0301C5 ! 494: LDA L0301C3 ! 495: CLC ! 496: ADC #$0100 ! 497: PHA ! 498: TXA ! 499: ADC #$0000 ! 500: TAX ! 501: PLA ! 502: STX L0301CD ! 503: STA L0301CB ! 504: LDX L0301C5 ! 505: LDA L0301C3 ! 506: CLC ! 507: ADC #$0100 ! 508: PHA ! 509: TXA ! 510: ADC #$0000 ! 511: TAX ! 512: PLA ! 513: CLC ! 514: ADC #$0200 ! 515: PHA ! 516: TXA ! 517: ADC #$0000 ! 518: TAX ! 519: PLA ! 520: STX L0301D1 ! 521: STA L0301CF ! 522: LDY #$0006 ! 523: LDA [$F2],Y ! 524: TAX ! 525: LDY #$0004 ! 526: LDA [$F2],Y ! 527: PHX ! 528: PHA ! 529: JSL L0F0000 ! 530: PLY ! 531: PLY ! 532: LDX #$0000 ! 533: TAY ! 534: BPL L2B03F9 ! 535: DEX ! 536: L2B03F9 PHX ! 537: PHA ! 538: LDX L0301D1 ! 539: LDA L0301CF ! 540: JSL L2D0000 ! 541: PLA ! 542: PLX ! 543: STX L0301D5 ! 544: STA L0301D3 ! 545: LDA #$0002 ! 546: STA $F0 ! 547: BRA L2B0455 ! 548: L2B0414 LDA $F0 ! 549: LDX #$0000 ! 550: PHX ! 551: PHA ! 552: LDA #L04346C ! 553: LDX #^L04346C ! 554: JSL L2D0000 ! 555: PLA ! 556: PLX ! 557: STA $F6 ! 558: STX $F8 ! 559: LDA [$F6] ! 560: AND #$00FF ! 561: STA $EE ! 562: LDA $F0 ! 563: PHA ! 564: LDA $EE ! 565: LDX #$0000 ! 566: PHX ! 567: PHA ! 568: LDA #L043906 ! 569: LDX #^L043906 ! 570: JSL L2D0000 ! 571: PLA ! 572: PLX ! 573: STA $F6 ! 574: STX $F8 ! 575: PLA ! 576: SEP #$20 ! 577: STA [$F6] ! 578: REP #$20 ! 579: INC $F0 ! 580: L2B0455 LDA $F0 ! 581: CMP #$0079 ! 582: BNE L2B0414 ! 583: JSL L290000 ! 584: JSL L280000 ! 585: TSC ! 586: CLC ! 587: ADC #$000E ! 588: TCS ! 589: PLD ! 590: RTL ! 591: ! 592: L2B046C ENT ! 593: PHD ! 594: TSC ! 595: SEC ! 596: SBC #$00FB ! 597: TCD ! 598: ADC #$00EC ! 599: TCS ! 600: PEA $0000 ! 601: PEA $0120 ! 602: PEA $0078 ! 603: PEA $00C7 ! 604: _ClampMouse ! 605: BCS L2B048F ! 606: LDA #$0000 ! 607: L2B048F STAL L030169 ! 608: STZ L030113 ! 609: STZ L030117 ! 610: LDA #$0010 ! 611: STA L0301DF ! 612: STZ L0301E3 ! 613: STZ L0301E5 ! 614: STZ L030125 ! 615: STZ L030127 ! 616: STZ L0301E1 ! 617: STZ L0300DF ! 618: STZ L0300F5 ! 619: LDA #$0002 ! 620: STA $F4 ! 621: BRA L2B04E2 ! 622: L2B04BB LDA $F4 ! 623: LDX #$0000 ! 624: PHX ! 625: PHA ! 626: LDA #L04346C ! 627: LDX #^L04346C ! 628: JSL L2D0000 ! 629: PLA ! 630: PLX ! 631: STA $F6 ! 632: STX $F8 ! 633: LDA [$F6] ! 634: AND #$00FF ! 635: AND #$007F ! 636: SEP #$20 ! 637: STA [$F6] ! 638: REP #$20 ! 639: INC $F4 ! 640: L2B04E2 LDA $F4 ! 641: CMP #$006E ! 642: BNE L2B04BB ! 643: LDA #$006E ! 644: STA $F4 ! 645: BRA L2B0517 ! 646: L2B04F0 LDA $F4 ! 647: LDX #$0000 ! 648: PHX ! 649: PHA ! 650: LDA #L04346C ! 651: LDX #^L04346C ! 652: JSL L2D0000 ! 653: PLA ! 654: PLX ! 655: STA $F6 ! 656: STX $F8 ! 657: LDA [$F6] ! 658: AND #$00FF ! 659: ORA #$0080 ! 660: SEP #$20 ! 661: STA [$F6] ! 662: REP #$20 ! 663: INC $F4 ! 664: L2B0517 LDA $F4 ! 665: CMP #$007A ! 666: BNE L2B04F0 ! 667: LDA L030203 ! 668: LDX #$0000 ! 669: STX $FA ! 670: ASL ! 671: ROL $FA ! 672: ASL ! 673: ROL $FA ! 674: ASL ! 675: ROL $FA ! 676: ASL ! 677: ROL $FA ! 678: ASL ! 679: ROL $FA ! 680: LDX $FA ! 681: PHX ! 682: PHA ! 683: LDX L0301CD ! 684: LDA L0301CB ! 685: JSL L2D0000 ! 686: PLA ! 687: PLX ! 688: STA $F6 ! 689: STX $F8 ! 690: LDY #$0012 ! 691: LDA [$F6],Y ! 692: TAX ! 693: LDY #$0010 ! 694: LDA [$F6],Y ! 695: PHX ! 696: PHA ! 697: JSL L0F0000 ! 698: PLY ! 699: PLY ! 700: LDX #$0000 ! 701: TAY ! 702: BPL L2B0563 ! 703: DEX ! 704: L2B0563 PHX ! 705: PHA ! 706: LDX L0301D5 ! 707: LDA L0301D3 ! 708: JSL L2D0000 ! 709: PLA ! 710: PLX ! 711: STX L0301DD ! 712: STA L0301DB ! 713: LDA L030203 ! 714: LDX #$0000 ! 715: STX $FA ! 716: ASL ! 717: ROL $FA ! 718: ASL ! 719: ROL $FA ! 720: ASL ! 721: ROL $FA ! 722: ASL ! 723: ROL $FA ! 724: ASL ! 725: ROL $FA ! 726: LDX $FA ! 727: PHX ! 728: PHA ! 729: LDX L0301CD ! 730: LDA L0301CB ! 731: JSL L2D0000 ! 732: PLA ! 733: PLX ! 734: STA $F6 ! 735: STX $F8 ! 736: LDY #$0016 ! 737: LDA [$F6],Y ! 738: TAX ! 739: LDY #$0014 ! 740: LDA [$F6],Y ! 741: PHX ! 742: PHA ! 743: JSL L0F0000 ! 744: PLY ! 745: PLY ! 746: LDX #$0000 ! 747: TAY ! 748: BPL L2B05BC ! 749: DEX ! 750: L2B05BC PHX ! 751: PHA ! 752: LDX L0301D1 ! 753: LDA L0301CF ! 754: JSL L2D0000 ! 755: PLA ! 756: PLX ! 757: STX L0301D9 ! 758: STA L0301D7 ! 759: LDA #$0001 ! 760: STA $F4 ! 761: BRA L2B05E0 ! 762: L2B05D7 PEI $F4 ! 763: JSL L16004B ! 764: PLY ! 765: INC $F4 ! 766: L2B05E0 LDA $F4 ! 767: CMP #$001E ! 768: BNE L2B05D7 ! 769: LDA L030205 ! 770: AND #$0003 ! 771: CLC ! 772: ADC #$0001 ! 773: PHA ! 774: JSL L160000 ! 775: PLY ! 776: LDA L030205 ! 777: ASL ! 778: ASL ! 779: LDX #$0000 ! 780: PHX ! 781: PHA ! 782: LDA #L04798A ! 783: LDX #^L04798A ! 784: JSL L2D0000 ! 785: PLA ! 786: PLX ! 787: STA $F6 ! 788: STX $F8 ! 789: LDY #$0001 ! 790: LDA [$F6],Y ! 791: AND #$00FF ! 792: PHA ! 793: LDA L030205 ! 794: ASL ! 795: ASL ! 796: LDX #$0000 ! 797: PHX ! 798: PHA ! 799: LDA #L04798A ! 800: LDX #^L04798A ! 801: JSL L2D0000 ! 802: PLA ! 803: PLX ! 804: STA $F6 ! 805: STX $F8 ! 806: LDA [$F6] ! 807: AND #$00FF ! 808: PHA ! 809: JSL L160227 ! 810: PLY ! 811: PLY ! 812: TAY ! 813: BEQ L2B064B ! 814: PEA $0008 ! 815: JSL L160000 ! 816: PLY ! 817: L2B064B LDA L030205 ! 818: ASL ! 819: ASL ! 820: LDX #$0000 ! 821: PHX ! 822: PHA ! 823: LDA #L04798A ! 824: LDX #^L04798A ! 825: JSL L2D0000 ! 826: PLA ! 827: PLX ! 828: STA $F6 ! 829: STX $F8 ! 830: LDA [$F6] ! 831: AND #$00FF ! 832: PHA ! 833: LDA L030205 ! 834: ASL ! 835: ASL ! 836: LDX #$0000 ! 837: PHX ! 838: PHA ! 839: LDA #L04798A ! 840: LDX #^L04798A ! 841: JSL L2D0000 ! 842: PLA ! 843: PLX ! 844: STA $F6 ! 845: STX $F8 ! 846: LDY #$0002 ! 847: LDA [$F6],Y ! 848: AND #$00FF ! 849: PLX ! 850: STX $F6 ! 851: CMP $F6 ! 852: BEQ L2B0697 ! 853: BRL L2B06F2 ! 854: L2B0697 LDA L030205 ! 855: ASL ! 856: ASL ! 857: LDX #$0000 ! 858: PHX ! 859: PHA ! 860: LDA #L04798A ! 861: LDX #^L04798A ! 862: JSL L2D0000 ! 863: PLA ! 864: PLX ! 865: STA $F6 ! 866: STX $F8 ! 867: LDY #$0001 ! 868: LDA [$F6],Y ! 869: AND #$00FF ! 870: PHA ! 871: LDA L030205 ! 872: ASL ! 873: ASL ! 874: LDX #$0000 ! 875: PHX ! 876: PHA ! 877: LDA #L04798A ! 878: LDX #^L04798A ! 879: JSL L2D0000 ! 880: PLA ! 881: PLX ! 882: STA $F6 ! 883: STX $F8 ! 884: LDY #$0003 ! 885: LDA [$F6],Y ! 886: AND #$00FF ! 887: PLX ! 888: STX $F6 ! 889: CMP $F6 ! 890: BNE L2B06F2 ! 891: LDA L030205 ! 892: PHA ! 893: PEA $0002 ! 894: JSL L1600A0 ! 895: PLY ! 896: PLY ! 897: BRA L2B06FF ! 898: L2B06F2 LDA L030205 ! 899: PHA ! 900: PEA $0002 ! 901: JSL L1600D0 ! 902: PLY ! 903: PLY ! 904: L2B06FF PEA $0006 ! 905: JSL L160100 ! 906: PLY ! 907: STA L0300F1 ! 908: LDX L0301DD ! 909: LDA L0301DB ! 910: STX L03011F ! 911: STA L03011D ! 912: STZ L030123 ! 913: L2B0719 LDX L03011F ! 914: LDA L03011D ! 915: STA $F6 ! 916: STX $F8 ! 917: LDA [$F6] ! 918: AND #$00FF ! 919: STA $F0 ! 920: CMP #$00FF ! 921: BNE L2B0732 ! 922: BRL L2B07F9 ! 923: L2B0732 LDA $F0 ! 924: AND #$00E0 ! 925: STA L03010B ! 926: LDA $F0 ! 927: AND #$001F ! 928: STA L03010D ! 929: LDX L03011F ! 930: LDA L03011D ! 931: STA $F6 ! 932: STX $F8 ! 933: LDY #$0001 ! 934: LDA [$F6],Y ! 935: AND #$00FF ! 936: STA L03010F ! 937: LDA L03010B ! 938: CMP #$0000 ! 939: BEQ L2B0762 ! 940: BRL L2B07F2 ! 941: L2B0762 LDA L03010D ! 942: BNE L2B076A ! 943: BRL L2B07EC ! 944: L2B076A STZ $F4 ! 945: BRL L2B07E5 ! 946: L2B076F LDA $F4 ! 947: CLC ! 948: ADC #$0002 ! 949: LDX #$0000 ! 950: PHX ! 951: PHA ! 952: LDX L03011F ! 953: LDA L03011D ! 954: JSL L2D0000 ! 955: PLA ! 956: PLX ! 957: STA $F6 ! 958: STX $F8 ! 959: LDA [$F6] ! 960: AND #$00FF ! 961: STA $EE ! 962: LDA $EE ! 963: CMP #$0004 ! 964: BCS L2B07A4 ! 965: LDA $EE ! 966: BEQ L2B07A4 ! 967: LDA $F4 ! 968: CLC ! 969: ADC #$0002 ! 970: STA $F4 ! 971: L2B07A4 LDA $EE ! 972: LDX #$0000 ! 973: PHX ! 974: PHA ! 975: LDA #L043906 ! 976: LDX #^L043906 ! 977: JSL L2D0000 ! 978: PLA ! 979: PLX ! 980: STA $F6 ! 981: STX $F8 ! 982: LDA [$F6] ! 983: AND #$00FF ! 984: LDX #$0000 ! 985: PHX ! 986: PHA ! 987: LDA #L04346C ! 988: LDX #^L04346C ! 989: JSL L2D0000 ! 990: PLA ! 991: PLX ! 992: STA $F6 ! 993: STX $F8 ! 994: LDA [$F6] ! 995: AND #$00FF ! 996: ORA #$0080 ! 997: SEP #$20 ! 998: STA [$F6] ! 999: REP #$20 ! 1000: INC $F4 ! 1001: L2B07E5 LDA $F4 ! 1002: CMP L03010D ! 1003: BNE L2B076F ! 1004: L2B07EC JSL L2A0162 ! 1005: BRA L2B07F6 ! 1006: L2B07F2 JSL L2A0131 ! 1007: L2B07F6 BRL L2B0719 ! 1008: L2B07F9 LDA #$0002 ! 1009: STA $F4 ! 1010: BRA L2B083C ! 1011: L2B0800 LDA $F4 ! 1012: LDX #$0000 ! 1013: PHX ! 1014: PHA ! 1015: LDA #L04346C ! 1016: LDX #^L04346C ! 1017: JSL L2D0000 ! 1018: PLA ! 1019: PLX ! 1020: STA $F6 ! 1021: STX $F8 ! 1022: LDA [$F6] ! 1023: AND #$00FF ! 1024: AND #$0080 ! 1025: TAY ! 1026: BEQ L2B082F ! 1027: PEA $000F ! 1028: PEI $F4 ! 1029: JSL L0A0000 ! 1030: PLY ! 1031: PLY ! 1032: BRA L2B083A ! 1033: L2B082F PEA $000B ! 1034: PEI $F4 ! 1035: JSL L0A0000 ! 1036: PLY ! 1037: PLY ! 1038: L2B083A INC $F4 ! 1039: L2B083C LDA $F4 ! 1040: CMP #$007A ! 1041: BNE L2B0800 ! 1042: PEA $0029 ! 1043: LDAL L0435C8 ! 1044: LDX #$0000 ! 1045: PHX ! 1046: PHA ! 1047: LDX L03018D ! 1048: LDA L03018B ! 1049: JSL L2D0000 ! 1050: LDAL L0435C8 ! 1051: LDX #$0000 ! 1052: PHX ! 1053: PHA ! 1054: LDX L030181 ! 1055: LDA L03017F ! 1056: JSL L2D0000 ! 1057: PLA ! 1058: PLX ! 1059: CLC ! 1060: ADC #$0020 ! 1061: PHA ! 1062: TXA ! 1063: ADC #$0000 ! 1064: TAX ! 1065: PLA ! 1066: PHX ! 1067: PHA ! 1068: JSL L0D00E3 ! 1069: PLY ! 1070: PLY ! 1071: PLY ! 1072: PLY ! 1073: PLY ! 1074: PEA $0000 ! 1075: PEA $001C ! 1076: PEA $0090 ! 1077: LDX L03018D ! 1078: LDA L03018B ! 1079: CLC ! 1080: ADC #$42E8 ! 1081: PHA ! 1082: TXA ! 1083: ADC #$0000 ! 1084: TAX ! 1085: PLA ! 1086: PHX ! 1087: PHA ! 1088: JSL L0D0151 ! 1089: PLY ! 1090: PLY ! 1091: PLY ! 1092: PLY ! 1093: PLY ! 1094: PEA $0000 ! 1095: PEA $0026 ! 1096: PEA $0072 ! 1097: LDX L03018D ! 1098: LDA L03018B ! 1099: CLC ! 1100: ADC #$5477 ! 1101: PHA ! 1102: TXA ! 1103: ADC #$0000 ! 1104: TAX ! 1105: PLA ! 1106: PHX ! 1107: PHA ! 1108: JSL L0D0151 ! 1109: PLY ! 1110: PLY ! 1111: PLY ! 1112: PLY ! 1113: PLY ! 1114: PEA $0000 ! 1115: PEA $0003 ! 1116: PEA $006C ! 1117: LDX L03018D ! 1118: LDA L03018B ! 1119: CLC ! 1120: ADC #$6C39 ! 1121: PHA ! 1122: TXA ! 1123: ADC #$0000 ! 1124: TAX ! 1125: PLA ! 1126: PHX ! 1127: PHA ! 1128: JSL L0D0151 ! 1129: PLY ! 1130: PLY ! 1131: PLY ! 1132: PLY ! 1133: PLY ! 1134: PEA $0000 ! 1135: JSL L0D0000 ! 1136: PLY ! 1137: PEA $0020 ! 1138: PEA $001B ! 1139: LDX L03018D ! 1140: LDA L03018B ! 1141: CLC ! 1142: ADC #$4468 ! 1143: PHA ! 1144: TXA ! 1145: ADC #$0000 ! 1146: TAX ! 1147: PLA ! 1148: PHX ! 1149: PHA ! 1150: LDX L0300EF ! 1151: LDA L0300ED ! 1152: PHX ! 1153: PHA ! 1154: JSL L0D01CA ! 1155: TAY ! 1156: TSC ! 1157: CLC ! 1158: ADC #$000C ! 1159: TCS ! 1160: TYA ! 1161: PEA $0020 ! 1162: PEA $001B ! 1163: LDX L03018D ! 1164: LDA L03018B ! 1165: CLC ! 1166: ADC #$4468 ! 1167: PHA ! 1168: TXA ! 1169: ADC #$0000 ! 1170: TAX ! 1171: PLA ! 1172: PHX ! 1173: PHA ! 1174: LDX L0300EF ! 1175: LDA L0300ED ! 1176: PHX ! 1177: PHA ! 1178: JSL L0D0340 ! 1179: TAY ! 1180: TSC ! 1181: CLC ! 1182: ADC #$000C ! 1183: TCS ! 1184: TYA ! 1185: STZ $F4 ! 1186: BRL L2B09BE ! 1187: L2B095A LDX L03018D ! 1188: LDA L03018B ! 1189: PHX ! 1190: PHA ! 1191: LDA $F4 ! 1192: ASL ! 1193: LDX #$0000 ! 1194: PHX ! 1195: PHA ! 1196: LDA #L043422 ! 1197: LDX #^L043422 ! 1198: JSL L2D0000 ! 1199: PLA ! 1200: PLX ! 1201: STA $F6 ! 1202: STX $F8 ! 1203: LDA [$F6] ! 1204: PHA ! 1205: LDA $F4 ! 1206: ASL ! 1207: LDX #$0000 ! 1208: PHX ! 1209: PHA ! 1210: LDA #L043418 ! 1211: LDX #^L043418 ! 1212: JSL L2D0000 ! 1213: PLA ! 1214: PLX ! 1215: STA $F6 ! 1216: STX $F8 ! 1217: LDA [$F6] ! 1218: PHA ! 1219: LDA $F4 ! 1220: ASL ! 1221: LDX #$0000 ! 1222: PHX ! 1223: PHA ! 1224: LDA #L04340E ! 1225: LDX #^L04340E ! 1226: JSL L2D0000 ! 1227: PLA ! 1228: PLX ! 1229: STA $F6 ! 1230: STX $F8 ! 1231: LDA [$F6] ! 1232: PHA ! 1233: JSL L0700B8 ! 1234: PLY ! 1235: PLY ! 1236: PLY ! 1237: PLY ! 1238: PLY ! 1239: INC $F4 ! 1240: L2B09BE LDA $F4 ! 1241: CMP #$0005 ! 1242: BNE L2B095A ! 1243: JSL L280025 ! 1244: JSL L290025 ! 1245: LDA L0301DF ! 1246: PHA ! 1247: JSL L0A0095 ! 1248: PLY ! 1249: LDA #L1E0118 ! 1250: LDX #^L1E0118 ! 1251: STX L030002 ! 1252: STA L030000 ! 1253: PEA $0140 ! 1254: PEA $00B4 ! 1255: PEA $0B40 ! 1256: JSL L1E0000 ! 1257: PLY ! 1258: PLY ! 1259: PLY ! 1260: JSL L2A02A9 ! 1261: JSL L2A0257 ! 1262: LDX L03018D ! 1263: LDA L03018B ! 1264: PHX ! 1265: PHA ! 1266: JSL L07008D ! 1267: PLY ! 1268: PLY ! 1269: LDA L0300F1 ! 1270: BEQ L2B0A1C ! 1271: LDA L030079 ! 1272: BNE L2B0A1C ! 1273: PEA $0000 ! 1274: JSL L15032D ! 1275: PLY ! 1276: BRA L2B0A24 ! 1277: L2B0A1C PEA $0000 ! 1278: JSL L1503A0 ! 1279: PLY ! 1280: L2B0A24 JSL L0A0A04 ! 1281: JSL L2B00C4 ! 1282: TSC ! 1283: CLC ! 1284: ADC #$000E ! 1285: TCS ! 1286: PLD ! 1287: RTL ! 1288: ! 1289: L2B0A34 ENT ! 1290: PHD ! 1291: TSC ! 1292: SEC ! 1293: SBC #$00FB ! 1294: TCD ! 1295: ADC #$00F0 ! 1296: TCS ! 1297: STZ L0301F9 ! 1298: L2B0A42 LDA L0301F9 ! 1299: BNE L2B0A49 ! 1300: BRA L2B0A42 ! 1301: L2B0A49 STZ L030000 ! 1302: STZ L030002 ! 1303: PEA $0000 ! 1304: JSL L0D0000 ! 1305: PLY ! 1306: JSL L2800A0 ! 1307: PEA $00AA ! 1308: LDX L03018D ! 1309: LDA L03018B ! 1310: CLC ! 1311: ADC #$0960 ! 1312: PHA ! 1313: TXA ! 1314: ADC #$0000 ! 1315: TAX ! 1316: PLA ! 1317: PHX ! 1318: PHA ! 1319: LDX L030181 ! 1320: LDA L03017F ! 1321: CLC ! 1322: ADC #$0020 ! 1323: PHA ! 1324: TXA ! 1325: ADC #$0000 ! 1326: TAX ! 1327: PLA ! 1328: CLC ! 1329: ADC #$0960 ! 1330: PHA ! 1331: TXA ! 1332: ADC #$0000 ! 1333: TAX ! 1334: PLA ! 1335: PHX ! 1336: PHA ! 1337: JSL L0D00E3 ! 1338: PLY ! 1339: PLY ! 1340: PLY ! 1341: PLY ! 1342: PLY ! 1343: STZ $F4 ! 1344: BRL L2B0AF2 ! 1345: L2B0A9D LDA $F4 ! 1346: PHA ! 1347: LDA #$000E ! 1348: CLC ! 1349: JSL L2D018C ! 1350: PLA ! 1351: LDX #$0000 ! 1352: PHX ! 1353: PHA ! 1354: LDA #L043356 ! 1355: LDX #^L043356 ! 1356: JSL L2D0000 ! 1357: PLA ! 1358: PLX ! 1359: STA $F6 ! 1360: STX $F8 ! 1361: LDY #$0002 ! 1362: LDA [$F6],Y ! 1363: STA $F2 ! 1364: PEA $0020 ! 1365: PEA $0014 ! 1366: LDA $F2 ! 1367: LDX #$0000 ! 1368: PHX ! 1369: PHA ! 1370: LDX L03018D ! 1371: LDA L03018B ! 1372: JSL L2D0000 ! 1373: LDX L030195 ! 1374: LDA L030193 ! 1375: PHX ! 1376: PHA ! 1377: JSL L0D0340 ! 1378: TAY ! 1379: TSC ! 1380: CLC ! 1381: ADC #$000C ! 1382: TCS ! 1383: TYA ! 1384: INC $F4 ! 1385: L2B0AF2 LDA $F4 ! 1386: CMP #$0009 ! 1387: BNE L2B0A9D ! 1388: LDA #L1E0118 ! 1389: LDX #^L1E0118 ! 1390: STX L030002 ! 1391: STA L030000 ! 1392: PEA $0140 ! 1393: PEA $00B8 ! 1394: PEA $0960 ! 1395: JSL L1E0000 ! 1396: PLY ! 1397: PLY ! 1398: PLY ! 1399: TSC ! 1400: CLC ! 1401: ADC #$000A ! 1402: TCS ! 1403: PLD ! 1404: RTL ! 1405: ! 1406: L2B0B1D ENT ! 1407: PHD ! 1408: TSC ! 1409: SEC ! 1410: SBC #$00FB ! 1411: TCD ! 1412: ADC #$00F4 ! 1413: TCS ! 1414: JSL L2B0A34 ! 1415: JSL L0A0BC5 ! 1416: TSC ! 1417: CLC ! 1418: ADC #$0006 ! 1419: TCS ! 1420: PLD ! 1421: RTL ! 1422: ! 1423: L2B0B38 ENT ! 1424: PHD ! 1425: TSC ! 1426: SEC ! 1427: SBC #$00FB ! 1428: TCD ! 1429: ADC #$00EA ! 1430: TCS ! 1431: LDA #$FFFF ! 1432: STA $F0 ! 1433: STZ $F4 ! 1434: BRL L2B0C51 ! 1435: L2B0B4D LDA $F4 ! 1436: ASL ! 1437: ASL ! 1438: ASL ! 1439: LDX #$0000 ! 1440: PHX ! 1441: PHA ! 1442: LDA #L04342C ! 1443: LDX #^L04342C ! 1444: JSL L2D0000 ! 1445: PLA ! 1446: PLX ! 1447: STA $F6 ! 1448: STX $F8 ! 1449: LDA [$F6] ! 1450: PHA ! 1451: LDA L03013B ! 1452: PLX ! 1453: STX $FA ! 1454: SEC ! 1455: SBC $FA ! 1456: STA $EE ! 1457: LDA $F4 ! 1458: ASL ! 1459: ASL ! 1460: ASL ! 1461: LDX #$0000 ! 1462: PHX ! 1463: PHA ! 1464: LDA #L04342C ! 1465: LDX #^L04342C ! 1466: JSL L2D0000 ! 1467: PLA ! 1468: PLX ! 1469: STA $F6 ! 1470: STX $F8 ! 1471: LDY #$0002 ! 1472: LDA [$F6],Y ! 1473: PHA ! 1474: LDA L03013D ! 1475: PLX ! 1476: STX $FA ! 1477: SEC ! 1478: SBC $FA ! 1479: STA $EC ! 1480: LDA $EE ! 1481: SEC ! 1482: SBC #$0000 ! 1483: BVS L2B0BAB ! 1484: EOR #$8000 ! 1485: L2B0BAB BPL L2B0C00 ! 1486: LDA $F4 ! 1487: ASL ! 1488: ASL ! 1489: ASL ! 1490: LDX #$0000 ! 1491: PHX ! 1492: PHA ! 1493: LDA #L04342C ! 1494: LDX #^L04342C ! 1495: JSL L2D0000 ! 1496: PLA ! 1497: PLX ! 1498: STA $F6 ! 1499: STX $F8 ! 1500: LDY #$0004 ! 1501: LDA [$F6],Y ! 1502: CMP $EE ! 1503: BCC L2B0C00 ! 1504: LDA $EC ! 1505: SEC ! 1506: SBC #$0000 ! 1507: BVS L2B0BDB ! 1508: EOR #$8000 ! 1509: L2B0BDB BPL L2B0C00 ! 1510: LDA $F4 ! 1511: ASL ! 1512: ASL ! 1513: ASL ! 1514: LDX #$0000 ! 1515: PHX ! 1516: PHA ! 1517: LDA #L04342C ! 1518: LDX #^L04342C ! 1519: JSL L2D0000 ! 1520: PLA ! 1521: PLX ! 1522: STA $F6 ! 1523: STX $F8 ! 1524: LDY #$0006 ! 1525: LDA [$F6],Y ! 1526: CMP $EC ! 1527: BCS L2B0C03 ! 1528: L2B0C00 BRL L2B0C4D ! 1529: L2B0C03 LDA $F4 ! 1530: BRL L2B0C40 ! 1531: L2B0C08 JSL L280313 ! 1532: BRL L2B0D1D ! 1533: L2B0C0F JSL L2803C7 ! 1534: BRL L2B0D1D ! 1535: L2B0C16 JSL L2B01FF ! 1536: STZ $F0 ! 1537: BRL L2B0C4D ! 1538: L2B0C1F JSL L2B015D ! 1539: STZ $F0 ! 1540: BRL L2B0C4D ! 1541: L2B0C28 JSL L2B01AE ! 1542: STZ $F0 ! 1543: BRL L2B0C4D ! 1544: L2B0C31 BRL L2B0C4D ! 1545: L2B0C34 DA L2B0C08 ! 1546: DA L2B0C0F ! 1547: DA L2B0C16 ! 1548: DA L2B0C1F ! 1549: DA L2B0C28 ! 1550: DA L2B0C31 ! 1551: L2B0C40 CMP #$0005 ! 1552: BCC L2B0C48 ! 1553: LDA #$0005 ! 1554: L2B0C48 ASL ! 1555: TAX ! 1556: JMP (L2B0C34,X) ! 1557: ! 1558: L2B0C4D STZ $EE ! 1559: INC $F4 ! 1560: L2B0C51 LDA $F4 ! 1561: CMP #$0005 ! 1562: BEQ L2B0C5B ! 1563: BRL L2B0B4D ! 1564: L2B0C5B LDA $F0 ! 1565: BEQ L2B0C63 ! 1566: JSL L2B010E ! 1567: L2B0C63 LDA L03012F ! 1568: CMP L0301F5 ! 1569: BEQ L2B0C75 ! 1570: JSL L1B0B88 ! 1571: LDA L0301F5 ! 1572: STA L03012F ! 1573: L2B0C75 LDA L030113 ! 1574: AND #$0001 ! 1575: TAY ! 1576: BNE L2B0C81 ! 1577: BRL L2B0CAD ! 1578: L2B0C81 LDA L03012B ! 1579: CMP L0300E9 ! 1580: BNE L2B0C9F ! 1581: LDA L03012D ! 1582: CMP L0300EB ! 1583: BNE L2B0C9F ! 1584: LDX L0300EF ! 1585: LDA L0300ED ! 1586: STX L03012D ! 1587: STA L03012B ! 1588: BRA L2B0CAB ! 1589: L2B0C9F LDX L0300EB ! 1590: LDA L0300E9 ! 1591: STX L03012D ! 1592: STA L03012B ! 1593: L2B0CAB BRA L2B0CB9 ! 1594: L2B0CAD LDX L0300EF ! 1595: LDA L0300ED ! 1596: STX L03012D ! 1597: STA L03012B ! 1598: L2B0CB9 LDA L0301F9 ! 1599: CMP #$0007 ! 1600: BNE L2B0CC4 ! 1601: BRL L2B0D1D ! 1602: L2B0CC4 BCS L2B0CC9 ! 1603: BRL L2B0D1D ! 1604: L2B0CC9 STZ L0301F9 ! 1605: PEA $0000 ! 1606: JSL L0D0000 ! 1607: PLY ! 1608: PEA $0020 ! 1609: PEA $001B ! 1610: LDX L03018D ! 1611: LDA L03018B ! 1612: CLC ! 1613: ADC #$4468 ! 1614: PHA ! 1615: TXA ! 1616: ADC #$0000 ! 1617: TAX ! 1618: PLA ! 1619: PHX ! 1620: PHA ! 1621: LDX L03012D ! 1622: LDA L03012B ! 1623: PHX ! 1624: PHA ! 1625: JSL L0D0340 ! 1626: TAY ! 1627: TSC ! 1628: CLC ! 1629: ADC #$000C ! 1630: TCS ! 1631: TYA ! 1632: PEA $0020 ! 1633: PEA $001B ! 1634: PEA $4468 ! 1635: JSL L1E0000 ! 1636: PLY ! 1637: PLY ! 1638: PLY ! 1639: PEA $000F ! 1640: JSL L0D0000 ! 1641: PLY ! 1642: JSL L0A09AE ! 1643: L2B0D1D TAY ! 1644: TSC ! 1645: CLC ! 1646: ADC #$0010 ! 1647: TCS ! 1648: TYA ! 1649: PLD ! 1650: RTL ! 1651: ! 1652: L2B0D27 ENT ! 1653: PHD ! 1654: TSC ! 1655: SEC ! 1656: SBC #$00F7 ! 1657: TCD ! 1658: ADC #$00EA ! 1659: TCS ! 1660: STZ $F0 ! 1661: BRL L2B0E49 ! 1662: L2B0D37 LDA $F0 ! 1663: ASL ! 1664: ASL ! 1665: ASL ! 1666: LDX #$0000 ! 1667: PHX ! 1668: PHA ! 1669: LDA #L04342C ! 1670: LDX #^L04342C ! 1671: JSL L2D0000 ! 1672: PLA ! 1673: PLX ! 1674: STA $F2 ! 1675: STX $F4 ! 1676: LDA [$F2] ! 1677: PHA ! 1678: LDA $FD ! 1679: PLX ! 1680: STX $F6 ! 1681: SEC ! 1682: SBC $F6 ! 1683: STA $EE ! 1684: LDA $F0 ! 1685: ASL ! 1686: ASL ! 1687: ASL ! 1688: LDX #$0000 ! 1689: PHX ! 1690: PHA ! 1691: LDA #L04342C ! 1692: LDX #^L04342C ! 1693: JSL L2D0000 ! 1694: PLA ! 1695: PLX ! 1696: STA $F2 ! 1697: STX $F4 ! 1698: LDY #$0002 ! 1699: LDA [$F2],Y ! 1700: PHA ! 1701: LDA $FF ! 1702: PLX ! 1703: STX $F6 ! 1704: SEC ! 1705: SBC $F6 ! 1706: STA $EC ! 1707: LDA $EE ! 1708: SEC ! 1709: SBC #$0000 ! 1710: BVS L2B0D93 ! 1711: EOR #$8000 ! 1712: L2B0D93 BPL L2B0DE8 ! 1713: LDA $F0 ! 1714: ASL ! 1715: ASL ! 1716: ASL ! 1717: LDX #$0000 ! 1718: PHX ! 1719: PHA ! 1720: LDA #L04342C ! 1721: LDX #^L04342C ! 1722: JSL L2D0000 ! 1723: PLA ! 1724: PLX ! 1725: STA $F2 ! 1726: STX $F4 ! 1727: LDY #$0004 ! 1728: LDA [$F2],Y ! 1729: CMP $EE ! 1730: BCC L2B0DE8 ! 1731: LDA $EC ! 1732: SEC ! 1733: SBC #$0000 ! 1734: BVS L2B0DC3 ! 1735: EOR #$8000 ! 1736: L2B0DC3 BPL L2B0DE8 ! 1737: LDA $F0 ! 1738: ASL ! 1739: ASL ! 1740: ASL ! 1741: LDX #$0000 ! 1742: PHX ! 1743: PHA ! 1744: LDA #L04342C ! 1745: LDX #^L04342C ! 1746: JSL L2D0000 ! 1747: PLA ! 1748: PLX ! 1749: STA $F2 ! 1750: STX $F4 ! 1751: LDY #$0006 ! 1752: LDA [$F2],Y ! 1753: CMP $EC ! 1754: BCS L2B0DEB ! 1755: L2B0DE8 BRL L2B0E47 ! 1756: L2B0DEB LDA $F0 ! 1757: BRL L2B0E33 ! 1758: L2B0DF0 LDA L030113 ! 1759: AND #$0001 ! 1760: TAY ! 1761: BNE L2B0E03 ! 1762: PEI $FF ! 1763: PEI $FD ! 1764: JSL L290380 ! 1765: PLY ! 1766: PLY ! 1767: L2B0E03 BRL L2B0E42 ! 1768: L2B0E06 JSL L29034C ! 1769: BRL L2B0E42 ! 1770: L2B0E0D JSL L290283 ! 1771: BRL L2B0E42 ! 1772: L2B0E14 JSL L280243 ! 1773: BRL L2B0E42 ! 1774: L2B0E1B JSL L2B02A3 ! 1775: BRL L2B0E42 ! 1776: L2B0E22 BRL L2B0E42 ! 1777: L2B0E25 DA L2B0DF0 ! 1778: DA L2B0E22 ! 1779: DA L2B0E06 ! 1780: DA L2B0E0D ! 1781: DA L2B0E14 ! 1782: DA L2B0E1B ! 1783: DA L2B0E22 ! 1784: L2B0E33 DEC ! 1785: DEC ! 1786: CMP #$0006 ! 1787: BCC L2B0E3D ! 1788: LDA #$0006 ! 1789: L2B0E3D ASL ! 1790: TAX ! 1791: JMP (L2B0E25,X) ! 1792: ! 1793: L2B0E42 LDA #$0001 ! 1794: BRA L2B0E56 ! 1795: L2B0E47 INC $F0 ! 1796: L2B0E49 LDA $F0 ! 1797: CMP #$0008 ! 1798: BEQ L2B0E53 ! 1799: BRL L2B0D37 ! 1800: L2B0E53 LDA #$0000 ! 1801: L2B0E56 TAY ! 1802: TSC ! 1803: CLC ! 1804: ADC #$000C ! 1805: TCS ! 1806: TYA ! 1807: PLD ! 1808: RTL ! 1809: ! 1810: PHD ! 1811: TSC ! 1812: SEC ! 1813: SBC #$00FB ! 1814: TCD ! 1815: ADC #$00F4 ! 1816: TCS ! 1817: LDA #$FFFF ! 1818: STA L03015F ! 1819: LDA #$0004 ! 1820: STA L03015D ! 1821: TSC ! 1822: CLC ! 1823: ADC #$0006 ! 1824: TCS ! 1825: PLD ! 1826: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.