|
|
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 spots.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use spots.X ! 17: ! 18: *----------- ! 19: ! 20: L220000 ENT ! 21: PHD ! 22: TSC ! 23: SEC ! 24: SBC #$00FB ! 25: TCD ! 26: ADC #$00EC ! 27: TCS ! 28: STZ $F4 ! 29: STZ $EE ! 30: BRL L220262 ! 31: L220012 LDA $F4 ! 32: ASL ! 33: LDX #$0000 ! 34: PHX ! 35: PHA ! 36: LDA #L042E84 ! 37: LDX #^L042E84 ! 38: JSL L2D0000 ! 39: PLA ! 40: PLX ! 41: STA $F6 ! 42: STX $F8 ! 43: LDA [$F6] ! 44: STA $F2 ! 45: LDA $F2 ! 46: LDX #$0000 ! 47: PHX ! 48: PHA ! 49: LDA #L04398A ! 50: LDX #^L04398A ! 51: JSL L2D0000 ! 52: PLA ! 53: PLX ! 54: STA $F6 ! 55: STX $F8 ! 56: LDA [$F6] ! 57: PHA ! 58: LDA $F4 ! 59: INC $F4 ! 60: LDX #$0000 ! 61: PHX ! 62: PHA ! 63: LDA #L042FC4 ! 64: LDX #^L042FC4 ! 65: JSL L2D0000 ! 66: PLA ! 67: PLX ! 68: STA $F6 ! 69: STX $F8 ! 70: PLA ! 71: SEP #$20 ! 72: STA [$F6] ! 73: REP #$20 ! 74: LDA $F2 ! 75: LDX #$0000 ! 76: PHX ! 77: PHA ! 78: LDA #L04398A ! 79: LDX #^L04398A ! 80: JSL L2D0000 ! 81: PLA ! 82: PLX ! 83: STA $F6 ! 84: STX $F8 ! 85: LDA #$0001 ! 86: SEP #$20 ! 87: STA [$F6] ! 88: REP #$20 ! 89: LDA $F4 ! 90: ASL ! 91: LDX #$0000 ! 92: PHX ! 93: PHA ! 94: LDA #L042E84 ! 95: LDX #^L042E84 ! 96: JSL L2D0000 ! 97: PLA ! 98: PLX ! 99: STA $F6 ! 100: STX $F8 ! 101: LDA [$F6] ! 102: STA $F2 ! 103: LDA $F2 ! 104: LDX #$0000 ! 105: PHX ! 106: PHA ! 107: LDA #L04398A ! 108: LDX #^L04398A ! 109: JSL L2D0000 ! 110: PLA ! 111: PLX ! 112: STA $F6 ! 113: STX $F8 ! 114: LDA [$F6] ! 115: PHA ! 116: LDA $F4 ! 117: INC $F4 ! 118: LDX #$0000 ! 119: PHX ! 120: PHA ! 121: LDA #L042FC4 ! 122: LDX #^L042FC4 ! 123: JSL L2D0000 ! 124: PLA ! 125: PLX ! 126: STA $F6 ! 127: STX $F8 ! 128: PLA ! 129: SEP #$20 ! 130: STA [$F6] ! 131: REP #$20 ! 132: LDA $F2 ! 133: LDX #$0000 ! 134: PHX ! 135: PHA ! 136: LDA #L04398A ! 137: LDX #^L04398A ! 138: JSL L2D0000 ! 139: PLA ! 140: PLX ! 141: STA $F6 ! 142: STX $F8 ! 143: LDA #$0001 ! 144: SEP #$20 ! 145: STA [$F6] ! 146: REP #$20 ! 147: LDA $F4 ! 148: ASL ! 149: LDX #$0000 ! 150: PHX ! 151: PHA ! 152: LDA #L042E84 ! 153: LDX #^L042E84 ! 154: JSL L2D0000 ! 155: PLA ! 156: PLX ! 157: STA $F6 ! 158: STX $F8 ! 159: LDA [$F6] ! 160: STA $F2 ! 161: LDA $F2 ! 162: LDX #$0000 ! 163: PHX ! 164: PHA ! 165: LDA #L04398A ! 166: LDX #^L04398A ! 167: JSL L2D0000 ! 168: PLA ! 169: PLX ! 170: STA $F6 ! 171: STX $F8 ! 172: LDA [$F6] ! 173: PHA ! 174: LDA $F4 ! 175: INC $F4 ! 176: LDX #$0000 ! 177: PHX ! 178: PHA ! 179: LDA #L042FC4 ! 180: LDX #^L042FC4 ! 181: JSL L2D0000 ! 182: PLA ! 183: PLX ! 184: STA $F6 ! 185: STX $F8 ! 186: PLA ! 187: SEP #$20 ! 188: STA [$F6] ! 189: REP #$20 ! 190: LDA $F2 ! 191: LDX #$0000 ! 192: PHX ! 193: PHA ! 194: LDA #L04398A ! 195: LDX #^L04398A ! 196: JSL L2D0000 ! 197: PLA ! 198: PLX ! 199: STA $F6 ! 200: STX $F8 ! 201: LDA #$0001 ! 202: SEP #$20 ! 203: STA [$F6] ! 204: REP #$20 ! 205: LDA $F4 ! 206: ASL ! 207: LDX #$0000 ! 208: PHX ! 209: PHA ! 210: LDA #L042E84 ! 211: LDX #^L042E84 ! 212: JSL L2D0000 ! 213: PLA ! 214: PLX ! 215: STA $F6 ! 216: STX $F8 ! 217: LDA [$F6] ! 218: STA $F2 ! 219: LDA $F2 ! 220: LDX #$0000 ! 221: PHX ! 222: PHA ! 223: LDA #L04398A ! 224: LDX #^L04398A ! 225: JSL L2D0000 ! 226: PLA ! 227: PLX ! 228: STA $F6 ! 229: STX $F8 ! 230: LDA [$F6] ! 231: PHA ! 232: LDA $F4 ! 233: INC $F4 ! 234: LDX #$0000 ! 235: PHX ! 236: PHA ! 237: LDA #L042FC4 ! 238: LDX #^L042FC4 ! 239: JSL L2D0000 ! 240: PLA ! 241: PLX ! 242: STA $F6 ! 243: STX $F8 ! 244: PLA ! 245: SEP #$20 ! 246: STA [$F6] ! 247: REP #$20 ! 248: LDA $F2 ! 249: LDX #$0000 ! 250: PHX ! 251: PHA ! 252: LDA #L04398A ! 253: LDX #^L04398A ! 254: JSL L2D0000 ! 255: PLA ! 256: PLX ! 257: STA $F6 ! 258: STX $F8 ! 259: LDA #$0002 ! 260: SEP #$20 ! 261: STA [$F6] ! 262: REP #$20 ! 263: LDA $F4 ! 264: ASL ! 265: LDX #$0000 ! 266: PHX ! 267: PHA ! 268: LDA #L042E84 ! 269: LDX #^L042E84 ! 270: JSL L2D0000 ! 271: PLA ! 272: PLX ! 273: STA $F6 ! 274: STX $F8 ! 275: LDA [$F6] ! 276: STA $F2 ! 277: LDA $F2 ! 278: LDX #$0000 ! 279: PHX ! 280: PHA ! 281: LDA #L04398A ! 282: LDX #^L04398A ! 283: JSL L2D0000 ! 284: PLA ! 285: PLX ! 286: STA $F6 ! 287: STX $F8 ! 288: LDA [$F6] ! 289: PHA ! 290: LDA $F4 ! 291: INC $F4 ! 292: LDX #$0000 ! 293: PHX ! 294: PHA ! 295: LDA #L042FC4 ! 296: LDX #^L042FC4 ! 297: JSL L2D0000 ! 298: PLA ! 299: PLX ! 300: STA $F6 ! 301: STX $F8 ! 302: PLA ! 303: SEP #$20 ! 304: STA [$F6] ! 305: REP #$20 ! 306: LDA $F2 ! 307: LDX #$0000 ! 308: PHX ! 309: PHA ! 310: LDA #L04398A ! 311: LDX #^L04398A ! 312: JSL L2D0000 ! 313: PLA ! 314: PLX ! 315: STA $F6 ! 316: STX $F8 ! 317: LDA #$0002 ! 318: SEP #$20 ! 319: STA [$F6] ! 320: REP #$20 ! 321: INC $EE ! 322: L220262 LDA $EE ! 323: CMP L0300B1 ! 324: BEQ L22026C ! 325: BRL L220012 ! 326: L22026C TSC ! 327: CLC ! 328: ADC #$000E ! 329: TCS ! 330: PLD ! 331: RTL ! 332: ! 333: L220274 ENT ! 334: PHD ! 335: TSC ! 336: SEC ! 337: SBC #$00FB ! 338: TCD ! 339: ADC #$00EA ! 340: TCS ! 341: LDA L0300B1 ! 342: PHA ! 343: LDA #$0005 ! 344: CLC ! 345: JSL L2D018C ! 346: PLA ! 347: STA $EC ! 348: STZ $EE ! 349: BRA L2202E8 ! 350: L220292 LDA $EE ! 351: ASL ! 352: LDX #$0000 ! 353: PHX ! 354: PHA ! 355: LDA #L042E84 ! 356: LDX #^L042E84 ! 357: JSL L2D0000 ! 358: PLA ! 359: PLX ! 360: STA $F6 ! 361: STX $F8 ! 362: LDA [$F6] ! 363: STA $F2 ! 364: LDA $EE ! 365: LDX #$0000 ! 366: PHX ! 367: PHA ! 368: LDA #L042FC4 ! 369: LDX #^L042FC4 ! 370: JSL L2D0000 ! 371: PLA ! 372: PLX ! 373: STA $F6 ! 374: STX $F8 ! 375: LDA [$F6] ! 376: PHA ! 377: LDA $F2 ! 378: LDX #$0000 ! 379: PHX ! 380: PHA ! 381: LDA #L04398A ! 382: LDX #^L04398A ! 383: JSL L2D0000 ! 384: PLA ! 385: PLX ! 386: STA $F6 ! 387: STX $F8 ! 388: PLA ! 389: SEP #$20 ! 390: STA [$F6] ! 391: REP #$20 ! 392: INC $EE ! 393: L2202E8 LDA $EE ! 394: CMP $EC ! 395: BNE L220292 ! 396: TSC ! 397: CLC ! 398: ADC #$0010 ! 399: TCS ! 400: PLD ! 401: RTL ! 402: ! 403: L2202F6 ENT ! 404: JSL L21034B ! 405: LDA L0300A3 ! 406: INC ! 407: CMP #$00A0 ! 408: BMI L220314 ! 409: LDA L0300AD ! 410: CLC ! 411: ADC L0300AF ! 412: CLC ! 413: ADC L0300AF ! 414: STA L0300AD ! 415: LDA #$0000 ! 416: L220314 STA L0300A3 ! 417: STA $00 ! 418: LDA L0300AD ! 419: LSR ! 420: CLC ! 421: ADC $00 ! 422: AND #$00FF ! 423: STA $02 ! 424: L220325 LDA $02 ! 425: TAX ! 426: CLC ! 427: ADC #$0100 ! 428: TAY ! 429: STA $02 ! 430: LDAL L04398A,X ! 431: STA $04 ! 432: ASL ! 433: ASL ! 434: ASL ! 435: ASL ! 436: STA $0A ! 437: TYX ! 438: LDAL L04398A,X ! 439: STA $06 ! 440: XBA ! 441: ORA $0A ! 442: STA $0A ! 443: LDA $04 ! 444: LSR ! 445: LSR ! 446: LSR ! 447: LSR ! 448: ORA $04 ! 449: STA $08 ! 450: LDA $00 ! 451: TAX ! 452: CLC ! 453: ADC #$00A0 ! 454: PHA ! 455: ADC #$00A0 ! 456: STA $00 ! 457: SEP #$20 ! 458: LDA $08 ! 459: STAL $E12C80,X ! 460: PLX ! 461: LDA $0A ! 462: STAL $E12C80,X ! 463: REP #$20 ! 464: LDA $00 ! 465: CMP #$4D80 ! 466: BMI L220325 ! 467: RTL ! 468: ! 469: L220377 ENT ! 470: JSL L21034B ! 471: LDA L0300A3 ! 472: INC ! 473: CMP #$0050 ! 474: BMI L220395 ! 475: LDA L0300AD ! 476: CLC ! 477: ADC L0300AF ! 478: CLC ! 479: ADC L0300AF ! 480: STA L0300AD ! 481: LDA #$0000 ! 482: L220395 STA L0300A3 ! 483: STA $00 ! 484: LDA L0300AD ! 485: LSR ! 486: CLC ! 487: ADC $00 ! 488: CLC ! 489: ADC #$003F ! 490: AND #$00FF ! 491: CLC ! 492: ADC #$1000 ! 493: STA $02 ! 494: LDA $00 ! 495: ASL ! 496: STA $00 ! 497: L2203B3 LDA $02 ! 498: TAX ! 499: CLC ! 500: ADC #$0100 ! 501: TAY ! 502: STA $02 ! 503: LDAL L04398A,X ! 504: STA $04 ! 505: TYX ! 506: LDAL L04398A,X ! 507: STA $06 ! 508: LDA $04 ! 509: SEP #$20 ! 510: XBA ! 511: LDA $04 ! 512: REP #$20 ! 513: ASL ! 514: ASL ! 515: ASL ! 516: ASL ! 517: ORA $04 ! 518: STA $08 ! 519: LDA $06 ! 520: SEP #$20 ! 521: XBA ! 522: ASL ! 523: ASL ! 524: ASL ! 525: ASL ! 526: REP #$20 ! 527: STA $10 ! 528: LDA $04 ! 529: SEP #$20 ! 530: XBA ! 531: ASL ! 532: ASL ! 533: ASL ! 534: ASL ! 535: XBA ! 536: REP #$20 ! 537: ORA $10 ! 538: STA $0A ! 539: XBA ! 540: STA $0C ! 541: LDA $08 ! 542: AND #$F00F ! 543: STA $10 ! 544: LDA $06 ! 545: SEP #$20 ! 546: ASL ! 547: ASL ! 548: ASL ! 549: ASL ! 550: REP #$20 ! 551: ORA $10 ! 552: STA $0E ! 553: LDA $00 ! 554: TAX ! 555: CLC ! 556: ADC #$00A0 ! 557: TAY ! 558: ADC #$00A0 ! 559: STA $12 ! 560: ADC #$00A0 ! 561: STA $14 ! 562: ADC #$00A0 ! 563: STA $00 ! 564: LDA $08 ! 565: STAL $E12C80,X ! 566: TYX ! 567: LDA $0A ! 568: STAL $E12C80,X ! 569: LDX $12 ! 570: LDA $0C ! 571: STAL $E12C80,X ! 572: LDX $14 ! 573: LDA $0E ! 574: STAL $E12C80,X ! 575: LDA $00 ! 576: CMP #$4D80 ! 577: BPL L22044E ! 578: BRL L2203B3 ! 579: L22044E RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.