![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to surv2.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 surv2.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 surv2.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use surv2.X ! 17: ! 18: *----------- ! 19: ! 20: L250000 ENT ! 21: PHD ! 22: TSC ! 23: SEC ! 24: SBC #$00F9 ! 25: TCD ! 26: ADC #$00C2 ! 27: TCS ! 28: STZ $CA ! 29: STZ $C8 ! 30: LDX L03018D ! 31: LDA L03018B ! 32: CLC ! 33: ADC #$0010 ! 34: PHA ! 35: TXA ! 36: ADC #$0000 ! 37: TAX ! 38: PLA ! 39: STX $C6 ! 40: STA $C4 ! 41: LDA L0300D5 ! 42: STA $F2 ! 43: LDA $FF ! 44: ASL ! 45: ASL ! 46: LDX #$0000 ! 47: PHX ! 48: PHA ! 49: LDA #L049648 ! 50: LDX #^L049648 ! 51: JSL L2D0000 ! 52: PLA ! 53: PLX ! 54: STA $F4 ! 55: STX $F6 ! 56: LDY #$0002 ! 57: LDA [$F4],Y ! 58: TAX ! 59: LDA [$F4] ! 60: STX $E8 ! 61: STA $E6 ! 62: LDA $FF ! 63: ASL ! 64: LDX #$0000 ! 65: PHX ! 66: PHA ! 67: LDA #L04966C ! 68: LDX #^L04966C ! 69: JSL L2D0000 ! 70: PLA ! 71: PLX ! 72: STA $F4 ! 73: STX $F6 ! 74: LDA [$F4] ! 75: ASL ! 76: ASL ! 77: ASL ! 78: CLC ! 79: ADC L03020B ! 80: STA $CC ! 81: LDA $CC ! 82: AND #$01FF ! 83: STA $CC ! 84: LDA $CC ! 85: STA $D0 ! 86: STZ $F0 ! 87: LDA #$0040 ! 88: STA $E0 ! 89: LDA #L050040 ! 90: LDX #^L050040 ! 91: STX $E4 ! 92: STA $E2 ! 93: LDA $D0 ! 94: INC $D0 ! 95: LDX #$0000 ! 96: PHX ! 97: PHA ! 98: LDX $E8 ! 99: LDA $E6 ! 100: JSL L2D0000 ! 101: PLA ! 102: PLX ! 103: STA $F4 ! 104: STX $F6 ! 105: LDA [$F4] ! 106: AND #$00FF ! 107: STA $D8 ! 108: LDA $D0 ! 109: AND #$01FF ! 110: STA $D0 ! 111: LDA $D8 ! 112: LDX #$0000 ! 113: PHX ! 114: PHA ! 115: LDA #L0492A8 ! 116: LDX #^L0492A8 ! 117: JSL L2D0000 ! 118: PLA ! 119: PLX ! 120: STA $F4 ! 121: STX $F6 ! 122: LDA [$F4] ! 123: AND #$00FF ! 124: STA $D4 ! 125: LDA $D4 ! 126: CLC ! 127: ADC L030225 ! 128: STA $D4 ! 129: LDA $D4 ! 130: CMP #$00FE ! 131: BEQ L2500E6 ! 132: BCC L2500E6 ! 133: LDA #$00FF ! 134: STA $D4 ! 135: L2500E6 LDA $F0 ! 136: CLC ! 137: ADC $F2 ! 138: STA $F0 ! 139: XBA ! 140: AND #$00FF ! 141: INC ! 142: STA $EA ! 143: LDA $F0 ! 144: AND #$00FF ! 145: STA $F0 ! 146: LDY $D0 ! 147: LDA [$E6],Y ! 148: AND #$00FF ! 149: TAX ! 150: TYA ! 151: INC ! 152: AND #$01FF ! 153: STA $D0 ! 154: LDAL L0492A8,X ! 155: AND #$00FF ! 156: CLC ! 157: ADC L030225 ! 158: STA $D2 ! 159: LDA $D2 ! 160: CMP #$00FE ! 161: BEQ L250148 ! 162: BCC L250148 ! 163: LDA #$00FF ! 164: STA $D2 ! 165: LDA $D2 ! 166: CMP $D4 ! 167: BNE L250148 ! 168: LDX $EA ! 169: LDA #$FFFF ! 170: L250130 SEP #$20 ! 171: STA [$E2] ! 172: INC $E0 ! 173: BPL L25013B ! 174: BRL L2501EB ! 175: L25013B REP #$20 ! 176: INC $E2 ! 177: DEX ! 178: BPL L250130 ! 179: DEC $E2 ! 180: DEC $E0 ! 181: BRA L2500E6 ! 182: L250148 LDA $D2 ! 183: SEC ! 184: SBC $D4 ! 185: ASL ! 186: ASL ! 187: ASL ! 188: ASL ! 189: ASL ! 190: ASL ! 191: ASL ! 192: ASL ! 193: STA $DA ! 194: LDA $DA ! 195: CMP #$0000 ! 196: BNE L25019A ! 197: LDA $D2 ! 198: AND #$007F ! 199: ASL ! 200: TAX ! 201: LDAL L04367E,X ! 202: STA $C8 ! 203: LDX $EA ! 204: L25016D SEP #$20 ! 205: LDA $D2 ! 206: BPL L25018A ! 207: CMP [$E2] ! 208: BMI L25018A ! 209: STA [$E2] ! 210: REP #$20 ! 211: PHX ! 212: LDA $E0 ! 213: CLC ! 214: ADC $C8 ! 215: TAY ! 216: LDA #$00EE ! 217: SEP #$20 ! 218: STA [$C4],Y ! 219: PLX ! 220: L25018A INC $E0 ! 221: BMI L2501EB ! 222: REP #$20 ! 223: INC $E2 ! 224: DEX ! 225: BNE L25016D ! 226: BRL L2500E6 ! 227: BRA L2501EB ! 228: L25019A LDA $EA ! 229: PHA ! 230: LDA $DA ! 231: SEC ! 232: JSL L2D000B ! 233: PLY ! 234: STA $DC ! 235: LDA $D3 ! 236: AND #$FF00 ! 237: STA $CE ! 238: LDX $EA ! 239: L2501B0 SEP #$20 ! 240: LDA $CF ! 241: STA $D4 ! 242: BPL L2501D6 ! 243: CMP [$E2] ! 244: BMI L2501D6 ! 245: STA [$E2] ! 246: REP #$20 ! 247: PHX ! 248: AND #$007F ! 249: ASL ! 250: TAX ! 251: LDA $E0 ! 252: CLC ! 253: ADCL L04367E,X ! 254: TAY ! 255: LDA #$00EE ! 256: SEP #$20 ! 257: STA [$C4],Y ! 258: PLX ! 259: L2501D6 INC $E0 ! 260: BMI L2501EB ! 261: REP #$20 ! 262: INC $E2 ! 263: LDA $CE ! 264: CLC ! 265: ADC $DC ! 266: STA $CE ! 267: DEX ! 268: BNE L2501B0 ! 269: BRL L2500E6 ! 270: L2501EB REP #$20 ! 271: LDA $CC ! 272: STA $D0 ! 273: STZ $F0 ! 274: LDA #$0040 ! 275: STA $E0 ! 276: LDA #L050040 ! 277: LDX #^L050040 ! 278: STX $E4 ! 279: STA $E2 ! 280: LDA $D0 ! 281: DEC $D0 ! 282: LDX #$0000 ! 283: PHX ! 284: PHA ! 285: LDX $E8 ! 286: LDA $E6 ! 287: JSL L2D0000 ! 288: PLA ! 289: PLX ! 290: STA $F4 ! 291: STX $F6 ! 292: LDA [$F4] ! 293: AND #$00FF ! 294: STA $D8 ! 295: LDA $D0 ! 296: AND #$01FF ! 297: STA $D0 ! 298: LDA $D8 ! 299: LDX #$0000 ! 300: PHX ! 301: PHA ! 302: LDA #L0492A8 ! 303: LDX #^L0492A8 ! 304: JSL L2D0000 ! 305: PLA ! 306: PLX ! 307: STA $F4 ! 308: STX $F6 ! 309: LDA [$F4] ! 310: AND #$00FF ! 311: STA $D4 ! 312: LDA $D4 ! 313: CLC ! 314: ADC L030225 ! 315: STA $D4 ! 316: LDA $D4 ! 317: CMP #$00FE ! 318: BEQ L25025B ! 319: BCC L25025B ! 320: LDA #$00FF ! 321: STA $D4 ! 322: L25025B LDA $F0 ! 323: CLC ! 324: ADC $F2 ! 325: STA $F0 ! 326: XBA ! 327: AND #$00FF ! 328: INC ! 329: STA $EA ! 330: LDA $F0 ! 331: AND #$00FF ! 332: STA $F0 ! 333: LDY $D0 ! 334: LDA [$E6],Y ! 335: AND #$00FF ! 336: TAX ! 337: TYA ! 338: DEC ! 339: AND #$01FF ! 340: STA $D0 ! 341: LDAL L0492A8,X ! 342: AND #$00FF ! 343: CLC ! 344: ADC L030225 ! 345: STA $D2 ! 346: LDA $D2 ! 347: CMP #$00FE ! 348: BEQ L2502BD ! 349: BCC L2502BD ! 350: LDA #$00FF ! 351: STA $D2 ! 352: LDA $D2 ! 353: CMP $D4 ! 354: BNE L2502BD ! 355: LDY $EA ! 356: LDA #$00FF ! 357: L2502A5 SEP #$20 ! 358: STA [$E2] ! 359: DEC $E0 ! 360: BPL L2502B0 ! 361: BRL L25036E ! 362: L2502B0 REP #$20 ! 363: DEC $E2 ! 364: DEY ! 365: BPL L2502A5 ! 366: INC $E2 ! 367: INC $E0 ! 368: BRA L25025B ! 369: L2502BD LDA $D4 ! 370: ASL ! 371: ASL ! 372: ASL ! 373: ASL ! 374: ASL ! 375: ASL ! 376: ASL ! 377: ASL ! 378: PHA ! 379: LDA $D2 ! 380: ASL ! 381: ASL ! 382: ASL ! 383: ASL ! 384: ASL ! 385: ASL ! 386: ASL ! 387: ASL ! 388: PLX ! 389: STX $F8 ! 390: SEC ! 391: SBC $F8 ! 392: STA $DA ! 393: LDA $DA ! 394: CMP #$0000 ! 395: BNE L25031B ! 396: LDA $D2 ! 397: AND #$007F ! 398: ASL ! 399: TAX ! 400: LDAL L04367E,X ! 401: STA $C8 ! 402: LDX $EA ! 403: L2502F0 SEP #$20 ! 404: LDA $D2 ! 405: BPL L25030B ! 406: CMP [$E2] ! 407: BMI L25030B ! 408: STA [$E2] ! 409: REP #$20 ! 410: LDA $E0 ! 411: CLC ! 412: ADC $C8 ! 413: TAY ! 414: LDA #$00EE ! 415: SEP #$20 ! 416: STA [$C4],Y ! 417: L25030B DEC $E0 ! 418: BMI L25036E ! 419: REP #$20 ! 420: DEC $E2 ! 421: DEX ! 422: BNE L2502F0 ! 423: BRL L25025B ! 424: BRA L25036E ! 425: L25031B LDA $EA ! 426: PHA ! 427: LDA $DA ! 428: SEC ! 429: JSL L2D000B ! 430: PLY ! 431: STA $DC ! 432: LDA $D3 ! 433: AND #$FF00 ! 434: STA $CE ! 435: LDX $EA ! 436: L250331 SEP #$20 ! 437: LDA $CF ! 438: STA $D4 ! 439: BPL L250359 ! 440: CMP [$E2] ! 441: BMI L250359 ! 442: STA [$E2] ! 443: REP #$20 ! 444: PHX ! 445: LDA $D4 ! 446: AND #$007F ! 447: ASL ! 448: TAX ! 449: LDA $E0 ! 450: CLC ! 451: ADCL L04367E,X ! 452: TAY ! 453: LDA #$00EE ! 454: SEP #$20 ! 455: STA [$C4],Y ! 456: PLX ! 457: L250359 DEC $E0 ! 458: BMI L25036E ! 459: REP #$20 ! 460: DEC $E2 ! 461: LDA $CE ! 462: CLC ! 463: ADC $DC ! 464: STA $CE ! 465: DEX ! 466: BNE L250331 ! 467: BRL L25025B ! 468: L25036E REP #$20 ! 469: TSC ! 470: CLC ! 471: ADC #$0036 ! 472: TCS ! 473: PLD ! 474: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.