![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dig.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 dig.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 dig.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use dig.X ! 17: ! 18: *----------- ! 19: ! 20: use 4/Sound.Macs ! 21: use 4/Util.Macs ! 22: ! 23: *----------- ! 24: ! 25: L120000 ENT ! 26: PHD ! 27: TSC ! 28: SEC ! 29: SBC #$00FB ! 30: TCD ! 31: ADC #$00F4 ! 32: TCS ! 33: PHA ! 34: PEA $0000 ! 35: _FFSoundDoneStatus ! 36: BCS L12001B ! 37: LDA #$0000 ! 38: L12001B STAL L030169 ! 39: PLA ! 40: TAY ! 41: BEQ L120028 ! 42: LDA #$0000 ! 43: BRA L12002B ! 44: L120028 LDA #$0001 ! 45: L12002B TAY ! 46: TSC ! 47: CLC ! 48: ADC #$0006 ! 49: TCS ! 50: TYA ! 51: PLD ! 52: RTL ! 53: ! 54: L120035 ENT ! 55: PHD ! 56: TSC ! 57: SEC ! 58: SBC #$00EF ! 59: TCD ! 60: ADC #$00E8 ! 61: TCS ! 62: LDA $F5 ! 63: BEQ L120093 ! 64: LDA $F5 ! 65: PHA ! 66: LDA #$0012 ! 67: CLC ! 68: JSL L2D018C ! 69: PLA ! 70: LDX #$0000 ! 71: PHX ! 72: PHA ! 73: LDA #L0415F0 ! 74: LDX #^L0415F0 ! 75: JSL L2D0000 ! 76: LDA $F5 ! 77: SEC ! 78: SBC #$0001 ! 79: PHA ! 80: LDA #$0012 ! 81: CLC ! 82: JSL L2D018C ! 83: PLA ! 84: LDX #$0000 ! 85: PHX ! 86: PHA ! 87: LDA #L0415F0 ! 88: LDX #^L0415F0 ! 89: JSL L2D0000 ! 90: PLA ! 91: PLX ! 92: STA $EA ! 93: STX $EC ! 94: PLA ! 95: PLX ! 96: LDY #$000E ! 97: PHA ! 98: TXA ! 99: STA [$EA],Y ! 100: PLA ! 101: LDY #$000C ! 102: STA [$EA],Y ! 103: L120093 LDA $F5 ! 104: PHA ! 105: LDA #$0012 ! 106: CLC ! 107: JSL L2D018C ! 108: PLA ! 109: LDX #$0000 ! 110: PHX ! 111: PHA ! 112: LDA #L0415F0 ! 113: LDX #^L0415F0 ! 114: JSL L2D0000 ! 115: PLA ! 116: PLX ! 117: STA $EA ! 118: STX $EC ! 119: LDX $FB ! 120: LDA $F9 ! 121: LDY #$0002 ! 122: PHA ! 123: TXA ! 124: STA [$EA],Y ! 125: PLA ! 126: STA [$EA] ! 127: LDA #$0100 ! 128: PHA ! 129: LDA $FD ! 130: CLC ! 131: JSL L2D000B ! 132: PLY ! 133: PHA ! 134: LDA $F5 ! 135: PHA ! 136: LDA #$0012 ! 137: CLC ! 138: JSL L2D018C ! 139: PLA ! 140: LDX #$0000 ! 141: PHX ! 142: PHA ! 143: LDA #L0415F0 ! 144: LDX #^L0415F0 ! 145: JSL L2D0000 ! 146: PLA ! 147: PLX ! 148: STA $EA ! 149: STX $EC ! 150: PLA ! 151: LDY #$0004 ! 152: STA [$EA],Y ! 153: LDA $F5 ! 154: PHA ! 155: LDA #$0012 ! 156: CLC ! 157: JSL L2D018C ! 158: PLA ! 159: LDX #$0000 ! 160: PHX ! 161: PHA ! 162: LDA #L0415F0 ! 163: LDX #^L0415F0 ! 164: JSL L2D0000 ! 165: PLA ! 166: PLX ! 167: STA $EA ! 168: STX $EC ! 169: LDA $F7 ! 170: LDY #$0006 ! 171: STA [$EA],Y ! 172: LDA $F5 ! 173: PHA ! 174: LDA #$0012 ! 175: CLC ! 176: JSL L2D018C ! 177: PLA ! 178: LDX #$0000 ! 179: PHX ! 180: PHA ! 181: LDA #L0415F0 ! 182: LDX #^L0415F0 ! 183: JSL L2D0000 ! 184: PLA ! 185: PLX ! 186: STA $EA ! 187: STX $EC ! 188: LDA #$0000 ! 189: LDY #$0008 ! 190: STA [$EA],Y ! 191: LDA $F5 ! 192: PHA ! 193: LDA #$0012 ! 194: CLC ! 195: JSL L2D018C ! 196: PLA ! 197: LDX #$0000 ! 198: PHX ! 199: PHA ! 200: LDA #L0415F0 ! 201: LDX #^L0415F0 ! 202: JSL L2D0000 ! 203: PLA ! 204: PLX ! 205: STA $EA ! 206: STX $EC ! 207: LDA #$0000 ! 208: LDY #$000A ! 209: STA [$EA],Y ! 210: LDA $F5 ! 211: PHA ! 212: LDA #$0012 ! 213: CLC ! 214: JSL L2D018C ! 215: PLA ! 216: LDX #$0000 ! 217: PHX ! 218: PHA ! 219: LDA #L0415F0 ! 220: LDX #^L0415F0 ! 221: JSL L2D0000 ! 222: PLA ! 223: PLX ! 224: STA $EA ! 225: STX $EC ! 226: LDX #$0000 ! 227: LDA #$0000 ! 228: LDY #$000E ! 229: PHA ! 230: TXA ! 231: STA [$EA],Y ! 232: PLA ! 233: LDY #$000C ! 234: STA [$EA],Y ! 235: LDA $F5 ! 236: PHA ! 237: LDA #$0012 ! 238: CLC ! 239: JSL L2D018C ! 240: PLA ! 241: LDX #$0000 ! 242: PHX ! 243: PHA ! 244: LDA #L0415F0 ! 245: LDX #^L0415F0 ! 246: JSL L2D0000 ! 247: PLA ! 248: PLX ! 249: STA $EA ! 250: STX $EC ! 251: LDA $FF ! 252: LDY #$0010 ! 253: STA [$EA],Y ! 254: TSC ! 255: CLC ! 256: ADC #$0006 ! 257: TCS ! 258: PLD ! 259: RTL ! 260: ! 261: L1201D4 ENT ! 262: PHD ! 263: TSC ! 264: SEC ! 265: SBC #$00FB ! 266: TCD ! 267: ADC #$00F4 ! 268: TCS ! 269: PEA $0001 ! 270: _FFStopSound ! 271: BCS L1201EE ! 272: LDA #$0000 ! 273: L1201EE STAL L030169 ! 274: PEA $0001 ! 275: PEA ^L0415F0 ! 276: PEA L0415F0 ! 277: _FFStartSound ! 278: BCS L120207 ! 279: LDA #$0000 ! 280: L120207 STAL L030169 ! 281: TSC ! 282: CLC ! 283: ADC #$0006 ! 284: TCS ! 285: PLD ! 286: RTL ! 287: ! 288: L120213 ENT ! 289: PHD ! 290: TSC ! 291: SEC ! 292: SBC #$00F9 ! 293: TCD ! 294: ADC #$00E8 ! 295: TCS ! 296: LDA $FF ! 297: LSR ! 298: LSR ! 299: LSR ! 300: LSR ! 301: PHA ! 302: LDA #$0100 ! 303: CLC ! 304: JSL L2D018C ! 305: PLA ! 306: LDX #$0000 ! 307: PHX ! 308: PHA ! 309: LDA $FF ! 310: AND #$000F ! 311: PHA ! 312: LDA #$0A00 ! 313: CLC ! 314: JSL L2D018C ! 315: PLA ! 316: LDX #$0000 ! 317: PHX ! 318: PHA ! 319: LDX L030179 ! 320: LDA L030177 ! 321: JSL L2D0000 ! 322: PLA ! 323: PLX ! 324: JSL L2D0000 ! 325: PLA ! 326: PLX ! 327: STX $EC ! 328: STA $EA ! 329: LDX $EC ! 330: LDA $EA ! 331: PHA ! 332: TXA ! 333: STAL L0415F2 ! 334: PLA ! 335: STAL L0415F0 ! 336: LDA #L0415F0 ! 337: LDX #^L0415F0 ! 338: STA $F4 ! 339: STX $F6 ! 340: LDA #$000A ! 341: LDY #$0004 ! 342: STA [$F4],Y ! 343: LDA #L0415F0 ! 344: LDX #^L0415F0 ! 345: STA $F4 ! 346: STX $F6 ! 347: LDA #$0100 ! 348: LDY #$0006 ! 349: STA [$F4],Y ! 350: LDA #L0415F0 ! 351: LDX #^L0415F0 ! 352: STA $F4 ! 353: STX $F6 ! 354: LDA #$0000 ! 355: LDY #$0008 ! 356: STA [$F4],Y ! 357: LDA #L0415F0 ! 358: LDX #^L0415F0 ! 359: STA $F4 ! 360: STX $F6 ! 361: LDA #$0004 ! 362: LDY #$000A ! 363: STA [$F4],Y ! 364: LDA #L0415F0 ! 365: LDX #^L0415F0 ! 366: STA $F4 ! 367: STX $F6 ! 368: LDX #$0000 ! 369: LDA #$0000 ! 370: LDY #$000E ! 371: PHA ! 372: TXA ! 373: STA [$F4],Y ! 374: PLA ! 375: LDY #$000C ! 376: STA [$F4],Y ! 377: LDA #L0415F0 ! 378: LDX #^L0415F0 ! 379: STA $F4 ! 380: STX $F6 ! 381: LDA #$008C ! 382: LDY #$0010 ! 383: STA [$F4],Y ! 384: L1202E3 JSL L120000 ! 385: TAY ! 386: BEQ L1202EC ! 387: BRA L1202E3 ! 388: L1202EC PEA $0001 ! 389: _FFStopSound ! 390: BCS L1202FB ! 391: LDA #$0000 ! 392: L1202FB STAL L030169 ! 393: PEA $0001 ! 394: PEA ^L0415F0 ! 395: PEA L0415F0 ! 396: _FFStartSound ! 397: BCS L120314 ! 398: LDA #$0000 ! 399: L120314 STAL L030169 ! 400: TSC ! 401: CLC ! 402: ADC #$0010 ! 403: TCS ! 404: PLD ! 405: RTL ! 406: ! 407: L120320 ENT ! 408: PHD ! 409: TSC ! 410: SEC ! 411: SBC #$00FB ! 412: TCD ! 413: ADC #$00F4 ! 414: TCS ! 415: PEA $0001 ! 416: _FFStopSound ! 417: BCS L12033A ! 418: LDA #$0000 ! 419: L12033A STAL L030169 ! 420: TSC ! 421: CLC ! 422: ADC #$0006 ! 423: TCS ! 424: PLD ! 425: RTL ! 426: ! 427: L120346 ENT ! 428: PHD ! 429: TSC ! 430: SEC ! 431: SBC #$00F9 ! 432: TCD ! 433: ADC #$00F2 ! 434: TCS ! 435: LDA $FF ! 436: STA L030049 ! 437: TSC ! 438: CLC ! 439: ADC #$0006 ! 440: TCS ! 441: PLD ! 442: RTL ! 443: ! 444: L12035E ENT ! 445: PHD ! 446: TSC ! 447: SEC ! 448: SBC #$00ED ! 449: TCD ! 450: ADC #$00D4 ! 451: TCS ! 452: STZ $DA ! 453: LDX $FD ! 454: LDA $FB ! 455: STX $D8 ! 456: STA $D6 ! 457: LDA #$0080 ! 458: STA L030047 ! 459: L120379 LDX $F5 ! 460: LDA $F3 ! 461: PHX ! 462: PHA ! 463: CLC ! 464: ADC #$0002 ! 465: STA $F3 ! 466: LDA $F5 ! 467: BCC L12038A ! 468: INC ! 469: L12038A STA $F5 ! 470: PLA ! 471: PLX ! 472: STA $E8 ! 473: STX $EA ! 474: LDA [$E8] ! 475: STA $E6 ! 476: TAY ! 477: BNE L12039C ! 478: BRL L1204F6 ! 479: L12039C LDA $E6 ! 480: SEC ! 481: SBC #$C001 ! 482: BVS L1203A7 ! 483: EOR #$8000 ! 484: L1203A7 BMI L1203BE ! 485: LDA $E6 ! 486: AND #$00FF ! 487: PHA ! 488: LDA L030049 ! 489: CLC ! 490: JSL L2D000B ! 491: PLY ! 492: STA L030047 ! 493: BRL L1204F3 ! 494: L1203BE LDA $E6 ! 495: SEC ! 496: SBC #$0000 ! 497: BVS L1203C9 ! 498: EOR #$8000 ! 499: L1203C9 BPL L1203CE ! 500: BRL L1204D3 ! 501: L1203CE LDA $E6 ! 502: AND #$FFFE ! 503: STA $E6 ! 504: LDA $E6 ! 505: EOR #$FFFF ! 506: INC ! 507: STA $E6 ! 508: LDA $E6 ! 509: SEC ! 510: SBC #$0008 ! 511: STA $E6 ! 512: LDA $E6 ! 513: AND #$FFFE ! 514: LSR ! 515: LSR ! 516: STA $E2 ! 517: LDA $FF ! 518: BEQ L120420 ! 519: LDA $E2 ! 520: LSR ! 521: LDX #$0000 ! 522: STX $EC ! 523: ASL ! 524: ROL $EC ! 525: ASL ! 526: ROL $EC ! 527: LDX $EC ! 528: PHX ! 529: PHA ! 530: LDX $D8 ! 531: LDA $D6 ! 532: JSL L2D0000 ! 533: PLA ! 534: PLX ! 535: STA $E8 ! 536: STX $EA ! 537: LDY #$0002 ! 538: LDA [$E8],Y ! 539: TAX ! 540: LDA [$E8] ! 541: STX $E0 ! 542: STA $DE ! 543: BRA L120457 ! 544: L120420 LDA $E2 ! 545: LDX #$0000 ! 546: STX $EC ! 547: ASL ! 548: ROL $EC ! 549: ASL ! 550: ROL $EC ! 551: LDX $EC ! 552: PHX ! 553: PHA ! 554: LDX $F9 ! 555: LDA $F7 ! 556: JSL L2D0000 ! 557: PLA ! 558: PLX ! 559: STA $E8 ! 560: STX $EA ! 561: LDY #$0002 ! 562: LDA [$E8],Y ! 563: TAX ! 564: LDA [$E8] ! 565: PHX ! 566: PHA ! 567: LDX $FD ! 568: LDA $FB ! 569: JSL L2D0000 ! 570: PLA ! 571: PLX ! 572: STX $E0 ! 573: STA $DE ! 574: L120457 LDA $E2 ! 575: LDX #$0000 ! 576: STX $EC ! 577: ASL ! 578: ROL $EC ! 579: ASL ! 580: ROL $EC ! 581: LDX $EC ! 582: PHX ! 583: PHA ! 584: LDX $F9 ! 585: LDA $F7 ! 586: JSL L2D0000 ! 587: PLA ! 588: PLX ! 589: STA $E8 ! 590: STX $EA ! 591: LDY #$0002 ! 592: LDA [$E8],Y ! 593: TAX ! 594: LDA [$E8] ! 595: PHX ! 596: PHA ! 597: LDA $E2 ! 598: CLC ! 599: ADC #$0001 ! 600: LDX #$0000 ! 601: STX $EC ! 602: ASL ! 603: ROL $EC ! 604: ASL ! 605: ROL $EC ! 606: LDX $EC ! 607: PHX ! 608: PHA ! 609: LDX $F9 ! 610: LDA $F7 ! 611: JSL L2D0000 ! 612: PLA ! 613: PLX ! 614: STA $E8 ! 615: STX $EA ! 616: LDY #$0002 ! 617: LDA [$E8],Y ! 618: TAX ! 619: LDA [$E8] ! 620: JSL L2D0181 ! 621: PLA ! 622: PLX ! 623: STA $DC ! 624: PEA $0080 ! 625: PEI $DC ! 626: PEI $E0 ! 627: PEI $DE ! 628: LDA L030047 ! 629: PHA ! 630: LDA $DA ! 631: INC $DA ! 632: PHA ! 633: JSL L120035 ! 634: TAY ! 635: TSC ! 636: CLC ! 637: ADC #$000C ! 638: TCS ! 639: TYA ! 640: BRA L1204F3 ! 641: L1204D3 PEA $0000 ! 642: PEI $E6 ! 643: PEA $0000 ! 644: PEA $0000 ! 645: LDA L030047 ! 646: PHA ! 647: LDA $DA ! 648: INC $DA ! 649: PHA ! 650: JSL L120035 ! 651: TAY ! 652: TSC ! 653: CLC ! 654: ADC #$000C ! 655: TCS ! 656: TYA ! 657: L1204F3 BRL L120379 ! 658: L1204F6 JSL L1201D4 ! 659: TSC ! 660: CLC ! 661: ADC #$0018 ! 662: TCS ! 663: PLD ! 664: RTL ! 665: ! 666: L120502 ENT ! 667: PHD ! 668: TSC ! 669: SEC ! 670: SBC #$00EF ! 671: TCD ! 672: ADC #$00E8 ! 673: TCS ! 674: PEA $0000 ! 675: PEI $FF ! 676: PEI $FD ! 677: PEI $FB ! 678: PEI $F9 ! 679: PEI $F7 ! 680: PEI $F5 ! 681: JSL L12035E ! 682: TAY ! 683: TSC ! 684: CLC ! 685: ADC #$000E ! 686: TCS ! 687: TYA ! 688: TSC ! 689: CLC ! 690: ADC #$0006 ! 691: TCS ! 692: PLD ! 693: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.