|
|
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 bncopy.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use bncopy.X ! 17: ! 18: *----------- ! 19: ! 20: L0D0000 ENT ! 21: PHD ! 22: TSC ! 23: SEC ! 24: SBC #$00F9 ! 25: TCD ! 26: ADC #$00F0 ! 27: TCS ! 28: LDA $FF ! 29: STA L030033 ! 30: LDA $FF ! 31: ASL ! 32: ASL ! 33: ASL ! 34: ASL ! 35: STA L030035 ! 36: LDA $FF ! 37: ASL ! 38: ASL ! 39: ASL ! 40: ASL ! 41: ASL ! 42: ASL ! 43: ASL ! 44: ASL ! 45: STA L030037 ! 46: LDA #$000C ! 47: PHA ! 48: LDA $FF ! 49: CLC ! 50: JSL L2D082F ! 51: PLA ! 52: STA L030039 ! 53: STZ $F2 ! 54: BRL L0D009B ! 55: L0D003A LDA $F2 ! 56: AND #$000F ! 57: CMP $FF ! 58: BNE L0D0048 ! 59: LDA #$000F ! 60: BRA L0D004B ! 61: L0D0048 LDA #$0000 ! 62: L0D004B PHA ! 63: LDA $F2 ! 64: LDX #$0000 ! 65: PHX ! 66: PHA ! 67: LDA #L040429 ! 68: LDX #^L040429 ! 69: JSL L2D0000 ! 70: PLA ! 71: PLX ! 72: STA $F4 ! 73: STX $F6 ! 74: PLA ! 75: SEP #$20 ! 76: STA [$F4] ! 77: REP #$20 ! 78: LDA $F2 ! 79: AND #$00F0 ! 80: CMP L030035 ! 81: BNE L0D0099 ! 82: LDA $F2 ! 83: LDX #$0000 ! 84: PHX ! 85: PHA ! 86: LDA #L040429 ! 87: LDX #^L040429 ! 88: JSL L2D0000 ! 89: PLA ! 90: PLX ! 91: STA $F4 ! 92: STX $F6 ! 93: LDA [$F4] ! 94: AND #$00FF ! 95: ORA #$00F0 ! 96: SEP #$20 ! 97: STA [$F4] ! 98: REP #$20 ! 99: L0D0099 INC $F2 ! 100: L0D009B LDA $F2 ! 101: CMP #$0100 ! 102: BNE L0D003A ! 103: TSC ! 104: CLC ! 105: ADC #$0008 ! 106: TCS ! 107: PLD ! 108: RTL ! 109: ! 110: L0D00AA STA $00 ! 111: STX $02 ! 112: XBA ! 113: SEP #$30 ! 114: TAX ! 115: LDAL L040429,X ! 116: XBA ! 117: LDX $00 ! 118: LDAL L040429,X ! 119: REP #$30 ! 120: TAX ! 121: AND $02 ! 122: STA $02 ! 123: TXA ! 124: EOR #$FFFF ! 125: AND $00 ! 126: ORA $02 ! 127: RTL ! 128: ! 129: L0D00CD XBA ! 130: TAX ! 131: LSR ! 132: LSR ! 133: LSR ! 134: LSR ! 135: AND #$0F0F ! 136: STA $00 ! 137: TXA ! 138: ASL ! 139: ASL ! 140: ASL ! 141: ASL ! 142: AND #$F0F0 ! 143: ORA $00 ! 144: RTL ! 145: ! 146: L0D00E3 ENT ! 147: PHD ! 148: TSC ! 149: SEC ! 150: SBC #$00F1 ! 151: TCD ! 152: ADC #$00E8 ! 153: TCS ! 154: LDA $FF ! 155: ASL ! 156: TAX ! 157: LDAL L0434EC,X ! 158: STA $FF ! 159: PHB ! 160: PHK ! 161: PLB ! 162: PER L0D0113+1 ! 163: PLA ! 164: STA $EA ! 165: SEP #$20 ! 166: LDA $F9 ! 167: XBA ! 168: LDA $FD ! 169: REP #$20 ! 170: STA ($EA) ! 171: LDX $F7 ! 172: LDY $FB ! 173: LDA $FF ! 174: DEC ! 175: L0D0113 MVN $010000,$000000 ! 176: PLB ! 177: TSC ! 178: CLC ! 179: ADC #$0008 ! 180: TCS ! 181: PLD ! 182: RTL ! 183: ! 184: L0D011F ENT ! 185: PHD ! 186: TSC ! 187: SEC ! 188: SBC #$00F1 ! 189: TCD ! 190: ADC #$00E8 ! 191: TCS ! 192: PHB ! 193: PHK ! 194: PLB ! 195: PER L0D0145+1 ! 196: PLA ! 197: STA $EA ! 198: SEP #$20 ! 199: LDA $F9 ! 200: XBA ! 201: LDA $FD ! 202: REP #$20 ! 203: STA ($EA) ! 204: LDX $F7 ! 205: LDY $FB ! 206: LDA $FF ! 207: DEC ! 208: L0D0145 MVN $010000,$000000 ! 209: PLB ! 210: TSC ! 211: CLC ! 212: ADC #$0008 ! 213: TCS ! 214: PLD ! 215: RTL ! 216: ! 217: L0D0151 ENT ! 218: PHD ! 219: TSC ! 220: SEC ! 221: SBC #$00F1 ! 222: TCD ! 223: ADC #$00EA ! 224: TCS ! 225: LDX $FD ! 226: L0D015E SEP #$20 ! 227: LDA $FF ! 228: LDY $FB ! 229: DEY ! 230: L0D0165 STA [$F7],Y ! 231: DEY ! 232: BPL L0D0165 ! 233: CLC ! 234: REP #$20 ! 235: LDA $F7 ! 236: ADC #$00A0 ! 237: STA $F7 ! 238: DEX ! 239: BNE L0D015E ! 240: TSC ! 241: CLC ! 242: ADC #$0006 ! 243: TCS ! 244: PLD ! 245: RTL ! 246: ! 247: L0D017F ENT ! 248: PHD ! 249: TSC ! 250: SEC ! 251: SBC #$00F5 ! 252: TCD ! 253: ADC #$00E8 ! 254: TCS ! 255: LDA $FF ! 256: ASL ! 257: ASL ! 258: ASL ! 259: ASL ! 260: STA $EC ! 261: LDX #$0012 ! 262: L0D0195 LDY #$0007 ! 263: SEP #$20 ! 264: L0D019A LDA [$FB],Y ! 265: STA $EE ! 266: AND #$0F ! 267: BEQ L0D01A4 ! 268: LDA $FF ! 269: L0D01A4 STA $EA ! 270: LDA $EE ! 271: AND #$F0 ! 272: BEQ L0D01AE ! 273: LDA $EC ! 274: L0D01AE ORA $EA ! 275: STA [$FB],Y ! 276: DEY ! 277: BPL L0D019A ! 278: REP #$20 ! 279: LDA $FB ! 280: CLC ! 281: ADC #$0200 ! 282: STA $FB ! 283: DEX ! 284: BNE L0D0195 ! 285: TSC ! 286: CLC ! 287: ADC #$000C ! 288: TCS ! 289: PLD ! 290: RTL ! 291: ! 292: L0D01CA ENT ! 293: PHD ! 294: TSC ! 295: SEC ! 296: SBC #$00EF ! 297: TCD ! 298: ADC #$00E4 ! 299: TCS ! 300: LDA $FF ! 301: LSR ! 302: DEC ! 303: STA $FF ! 304: LDA #$00A0 ! 305: SEC ! 306: SBC $FF ! 307: DEC ! 308: STA $E6 ! 309: PHB ! 310: PHK ! 311: PLB ! 312: PER L0D01FE+1 ! 313: PLA ! 314: STA $E8 ! 315: SEP #$20 ! 316: LDA $F7 ! 317: XBA ! 318: LDA $FB ! 319: REP #$20 ! 320: STA ($E8) ! 321: LDX $F5 ! 322: LDY $F9 ! 323: L0D01FC LDA $FF ! 324: L0D01FE MVN $000000,$000000 ! 325: TYA ! 326: CLC ! 327: ADC $E6 ! 328: TAY ! 329: DEC $FD ! 330: BNE L0D01FC ! 331: PLB ! 332: TSC ! 333: CLC ! 334: ADC #$000A ! 335: TCS ! 336: PLD ! 337: RTL ! 338: ! 339: L0D0213 ENT ! 340: PHD ! 341: TSC ! 342: SEC ! 343: SBC #$00EF ! 344: TCD ! 345: ADC #$00E4 ! 346: TCS ! 347: LDA $FF ! 348: LSR ! 349: DEC ! 350: STA $FF ! 351: LDA #$00A0 ! 352: SEC ! 353: SBC $FF ! 354: DEC ! 355: STA $E6 ! 356: PHB ! 357: PHK ! 358: PLB ! 359: PER L0D0247+1 ! 360: PLA ! 361: STA $E8 ! 362: SEP #$20 ! 363: LDA $F7 ! 364: XBA ! 365: LDA $FB ! 366: REP #$20 ! 367: STA ($E8) ! 368: LDX $F5 ! 369: LDY $F9 ! 370: L0D0245 LDA $FF ! 371: L0D0247 MVN $000000,$000000 ! 372: TXA ! 373: CLC ! 374: ADC $E6 ! 375: TAX ! 376: DEC $FD ! 377: BNE L0D0245 ! 378: PLB ! 379: TSC ! 380: CLC ! 381: ADC #$000A ! 382: TCS ! 383: PLD ! 384: RTL ! 385: ! 386: L0D025C ENT ! 387: PHD ! 388: TSC ! 389: SEC ! 390: SBC #$00EF ! 391: TCD ! 392: ADC #$00E4 ! 393: TCS ! 394: LDA $FF ! 395: LSR ! 396: DEC ! 397: STA $FF ! 398: LDA #$00A0 ! 399: SEC ! 400: SBC $FF ! 401: DEC ! 402: STA $E6 ! 403: PHB ! 404: PHK ! 405: PLB ! 406: PER L0D0290+1 ! 407: PLA ! 408: STA $E8 ! 409: SEP #$20 ! 410: LDA $F7 ! 411: XBA ! 412: LDA $FB ! 413: REP #$20 ! 414: STA ($E8) ! 415: LDX $F5 ! 416: LDY $F9 ! 417: L0D028E LDA $FF ! 418: L0D0290 MVN $000000,$000000 ! 419: TYA ! 420: CLC ! 421: ADC $E6 ! 422: TAY ! 423: TXA ! 424: CLC ! 425: ADC $E6 ! 426: TAX ! 427: DEC $FD ! 428: BNE L0D028E ! 429: PLB ! 430: TSC ! 431: CLC ! 432: ADC #$000A ! 433: TCS ! 434: PLD ! 435: RTL ! 436: ! 437: L0D02AA ENT ! 438: PHD ! 439: TSC ! 440: SEC ! 441: SBC #$00F3 ! 442: TCD ! 443: ADC #$00E6 ! 444: TCS ! 445: LDA #$006F ! 446: STA $EA ! 447: LDA #$0026 ! 448: STA $E8 ! 449: PHB ! 450: PHK ! 451: PLB ! 452: PER L0D02D9+1 ! 453: PLA ! 454: STA $EC ! 455: SEP #$20 ! 456: LDA $FB ! 457: XBA ! 458: LDA $FF ! 459: REP #$20 ! 460: STA ($EC) ! 461: LDX $F9 ! 462: LDY $FD ! 463: L0D02D7 LDA $EA ! 464: L0D02D9 MVN $000000,$000000 ! 465: TYA ! 466: CLC ! 467: ADC #$0030 ! 468: TAY ! 469: TXA ! 470: CLC ! 471: ADC #$0190 ! 472: TAX ! 473: DEC $E8 ! 474: BNE L0D02D7 ! 475: PLB ! 476: TSC ! 477: CLC ! 478: ADC #$000C ! 479: TCS ! 480: PLD ! 481: RTL ! 482: ! 483: L0D02F5 ENT ! 484: PHD ! 485: TSC ! 486: SEC ! 487: SBC #$00F3 ! 488: TCD ! 489: ADC #$00E6 ! 490: TCS ! 491: LDA #$0007 ! 492: STA $EA ! 493: LDA #$0012 ! 494: STA $E8 ! 495: PHB ! 496: PHK ! 497: PLB ! 498: PER L0D0324+1 ! 499: PLA ! 500: STA $EC ! 501: SEP #$20 ! 502: LDA $FB ! 503: XBA ! 504: LDA $FF ! 505: REP #$20 ! 506: STA ($EC) ! 507: LDX $F9 ! 508: LDY $FD ! 509: L0D0322 LDA $EA ! 510: L0D0324 MVN $000000,$000000 ! 511: TYA ! 512: CLC ! 513: ADC #$0098 ! 514: TAY ! 515: TXA ! 516: CLC ! 517: ADC #$01F8 ! 518: TAX ! 519: DEC $E8 ! 520: BNE L0D0322 ! 521: PLB ! 522: TSC ! 523: CLC ! 524: ADC #$000C ! 525: TCS ! 526: PLD ! 527: RTL ! 528: ! 529: L0D0340 ENT ! 530: PHD ! 531: TSC ! 532: SEC ! 533: SBC #$00EF ! 534: TCD ! 535: ADC #$00E8 ! 536: TCS ! 537: LDA $FF ! 538: LSR ! 539: LSR ! 540: DEC ! 541: ASL ! 542: STA $FF ! 543: L0D0353 LDY $FF ! 544: L0D0355 LDA [$F9],Y ! 545: TAX ! 546: LDA [$F5],Y ! 547: JSL L0D00AA ! 548: STA [$F9],Y ! 549: DEY ! 550: DEY ! 551: BPL L0D0355 ! 552: LDA $F9 ! 553: CLC ! 554: ADC #$00A0 ! 555: STA $F9 ! 556: LDA $F5 ! 557: ADC $FF ! 558: ADC #$0002 ! 559: STA $F5 ! 560: DEC $FD ! 561: BNE L0D0353 ! 562: TSC ! 563: CLC ! 564: ADC #$0006 ! 565: TCS ! 566: PLD ! 567: RTL ! 568: ! 569: L0D0381 ENT ! 570: PHD ! 571: TSC ! 572: SEC ! 573: SBC #$00EF ! 574: TCD ! 575: ADC #$00E8 ! 576: TCS ! 577: LDA $FF ! 578: LSR ! 579: LSR ! 580: DEC ! 581: ASL ! 582: STA $FF ! 583: L0D0394 LDY $FF ! 584: L0D0396 LDA [$F5],Y ! 585: STY L03016D ! 586: JSL L0D00CD ! 587: TAX ! 588: LDA $FF ! 589: SEC ! 590: SBC L03016D ! 591: TAY ! 592: TXA ! 593: STA [$F9],Y ! 594: LDY L03016D ! 595: DEY ! 596: DEY ! 597: BPL L0D0396 ! 598: CLC ! 599: LDA $F9 ! 600: ADC $FF ! 601: ADC #$0002 ! 602: STA $F9 ! 603: LDA $F5 ! 604: ADC $FF ! 605: ADC #$0002 ! 606: STA $F5 ! 607: DEC $FD ! 608: BNE L0D0394 ! 609: TSC ! 610: CLC ! 611: ADC #$0006 ! 612: TCS ! 613: PLD ! 614: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.