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