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