![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to destroy.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 destroy.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 destroy.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use destroy.X ! 17: ! 18: *----------- ! 19: ! 20: L100000 PHD ! 21: TSC ! 22: SEC ! 23: SBC #$00FB ! 24: TCD ! 25: ADC #$0096 ! 26: TCS ! 27: LDA #L0414C8 ! 28: LDX #^L0414C8 ! 29: STX $DA ! 30: STA $D8 ! 31: LDA #L0405B9 ! 32: LDX #^L0405B9 ! 33: STX $D6 ! 34: STA $D4 ! 35: LDA #L0406BA ! 36: LDX #^L0406BA ! 37: STX $D2 ! 38: STA $D0 ! 39: LDA #L0407BB ! 40: LDX #^L0407BB ! 41: STX $CE ! 42: STA $CC ! 43: LDA #L0408BC ! 44: LDX #^L0408BC ! 45: STX $CA ! 46: STA $C8 ! 47: LDA #L0409BD ! 48: LDX #^L0409BD ! 49: STX $C6 ! 50: STA $C4 ! 51: LDA #L040ABE ! 52: LDX #^L040ABE ! 53: STX $C2 ! 54: STA $C0 ! 55: LDA #L040BBF ! 56: LDX #^L040BBF ! 57: STX $BE ! 58: STA $BC ! 59: LDA #L040CC0 ! 60: LDX #^L040CC0 ! 61: STX $BA ! 62: STA $B8 ! 63: LDA #L040DC1 ! 64: LDX #^L040DC1 ! 65: STX $B6 ! 66: STA $B4 ! 67: LDA #L040EC2 ! 68: LDX #^L040EC2 ! 69: STX $B2 ! 70: STA $B0 ! 71: LDA #L040FC3 ! 72: LDX #^L040FC3 ! 73: STX $AE ! 74: STA $AC ! 75: LDA #L0410C4 ! 76: LDX #^L0410C4 ! 77: STX $AA ! 78: STA $A8 ! 79: LDA #L0411C5 ! 80: LDX #^L0411C5 ! 81: STX $A6 ! 82: STA $A4 ! 83: LDA #L0412C6 ! 84: LDX #^L0412C6 ! 85: STX $A2 ! 86: STA $A0 ! 87: LDA #L0413C7 ! 88: LDX #^L0413C7 ! 89: STX $9E ! 90: STA $9C ! 91: LDY #$0100 ! 92: LDA #$0000 ! 93: L1000B1 STA [$D8],Y ! 94: DEY ! 95: DEY ! 96: BPL L1000B1 ! 97: JSL L0C0017 ! 98: AND #$007F ! 99: ORA #$0080 ! 100: LDY #$0080 ! 101: STA [$D8],Y ! 102: JSL L0C0017 ! 103: AND #$003F ! 104: LDY #$0020 ! 105: STA [$D8],Y ! 106: JSL L0C0017 ! 107: AND #$007F ! 108: LDY #$0040 ! 109: STA [$D8],Y ! 110: JSL L0C0017 ! 111: AND #$007F ! 112: ADC #$0040 ! 113: LDY #$0060 ! 114: STA [$D8],Y ! 115: JSL L0C0017 ! 116: AND #$007F ! 117: ADC #$0040 ! 118: LDY #$00A0 ! 119: STA [$D8],Y ! 120: JSL L0C0017 ! 121: AND #$007F ! 122: LDY #$00C0 ! 123: STA [$D8],Y ! 124: JSL L0C0017 ! 125: AND #$007F ! 126: LDY #$00E0 ! 127: STA [$D8],Y ! 128: LDA #$0000 ! 129: LDY #$0100 ! 130: SEP #$20 ! 131: STA [$D8],Y ! 132: STA [$D8] ! 133: REP #$20 ! 134: LDA #$0020 ! 135: STA $E6 ! 136: LDA #$0010 ! 137: STA $E4 ! 138: L10012C LDA $E6 ! 139: CMP #$0001 ! 140: BEQ L100184 ! 141: BCC L100184 ! 142: STZ $F2 ! 143: BRA L100171 ! 144: L100139 JSL L0C0017 ! 145: AND #$003F ! 146: SBC #$001F ! 147: STA $E2 ! 148: LDA $F2 ! 149: CLC ! 150: ADC $E6 ! 151: TAY ! 152: SEC ! 153: SBC $E4 ! 154: STA $F0 ! 155: LDA [$D8],Y ! 156: LDY $F2 ! 157: ADC [$D8],Y ! 158: TAX ! 159: ADC $E2 ! 160: BMI L100160 ! 161: CMP #$0200 ! 162: BMI L100161 ! 163: L100160 TXA ! 164: L100161 LDY $F0 ! 165: LSR ! 166: SEP #$20 ! 167: STA [$D8],Y ! 168: REP #$20 ! 169: LDA $F2 ! 170: CLC ! 171: ADC $E6 ! 172: STA $F2 ! 173: L100171 LDA $F2 ! 174: CMP #$0100 ! 175: BNE L100139 ! 176: LDA $E6 ! 177: LSR ! 178: STA $E6 ! 179: LDA $E4 ! 180: LSR ! 181: STA $E4 ! 182: BRA L10012C ! 183: L100184 STZ $F2 ! 184: BRA L1001DD ! 185: L100188 LDY $F2 ! 186: SEP #$20 ! 187: LDA [$D8],Y ! 188: LSR ! 189: STA $EE ! 190: LSR ! 191: STA $EC ! 192: LSR ! 193: STA $EA ! 194: LSR ! 195: STA $E8 ! 196: CLC ! 197: STA [$D4],Y ! 198: ADC $EA ! 199: STA [$CC],Y ! 200: ADC $EC ! 201: STA [$BC],Y ! 202: ADC $EE ! 203: STA [$9C],Y ! 204: LDA $EA ! 205: STA [$D0],Y ! 206: ADC $EC ! 207: STA [$C0],Y ! 208: ADC $EE ! 209: STA [$A0],Y ! 210: LDA $EC ! 211: STA [$C8],Y ! 212: ADC $EE ! 213: STA [$A8],Y ! 214: LDA $E8 ! 215: ADC $EC ! 216: STA [$C4],Y ! 217: ADC $EE ! 218: STA [$A4],Y ! 219: LDA $EA ! 220: ADC $EE ! 221: STA [$B0],Y ! 222: LDA $EE ! 223: STA [$B8],Y ! 224: ADC $E8 ! 225: STA [$B4],Y ! 226: ADC $EA ! 227: STA [$AC],Y ! 228: REP #$20 ! 229: INC $F2 ! 230: L1001DD LDA $F2 ! 231: CMP #$0100 ! 232: BNE L100188 ! 233: PEA ^L040599 ! 234: PEA L040599 ! 235: PEA $0001 ! 236: JSL L0B014E ! 237: PLY ! 238: PLY ! 239: PLY ! 240: LDX #$00E1 ! 241: LDA #$1E20 ! 242: STX $9A ! 243: STA $98 ! 244: LDA #$0030 ! 245: STA $F2 ! 246: BRL L100285 ! 247: L100206 LDX $D6 ! 248: LDA $D4 ! 249: STX $DA ! 250: STA $D8 ! 251: STZ $E0 ! 252: STZ $F4 ! 253: BRA L100276 ! 254: L100214 LDA $F4 ! 255: LDX #$0000 ! 256: PHX ! 257: PHA ! 258: LDA #L040529 ! 259: LDX #^L040529 ! 260: JSL L2D0000 ! 261: PLA ! 262: PLX ! 263: STA $F6 ! 264: STX $F8 ! 265: LDA [$F6] ! 266: AND #$00FF ! 267: STA $DC ! 268: LDY $F2 ! 269: LDA [$D8],Y ! 270: AND #$00FF ! 271: CMP #$0040 ! 272: BMI L100241 ! 273: LDA #$003F ! 274: L100241 ASL ! 275: STA $DE ! 276: TAX ! 277: L100245 LDAL L043594,X ! 278: TAY ! 279: LDA $DC ! 280: STA [$98],Y ! 281: LDAL L0436FA,X ! 282: TAY ! 283: LDA $DC ! 284: STA [$98],Y ! 285: DEX ! 286: DEX ! 287: CPX $E0 ! 288: BPL L100245 ! 289: LDA $DE ! 290: STA $E0 ! 291: LDX $DA ! 292: LDA $D8 ! 293: CLC ! 294: ADC #$0101 ! 295: PHA ! 296: TXA ! 297: ADC #$0000 ! 298: TAX ! 299: PLA ! 300: STX $DA ! 301: STA $D8 ! 302: INC $F4 ! 303: L100276 LDA $F4 ! 304: CMP #$0010 ! 305: BNE L100214 ! 306: INC $98 ! 307: BNE L100283 ! 308: INC $9A ! 309: L100283 INC $F2 ! 310: L100285 LDA $F2 ! 311: CMP #$00D0 ! 312: BEQ L10028F ! 313: BRL L100206 ! 314: L10028F TSC ! 315: CLC ! 316: ADC #$0064 ! 317: TCS ! 318: PLD ! 319: RTL ! 320: ! 321: L100297 ENT ! 322: PHD ! 323: TSC ! 324: SEC ! 325: SBC #$00FB ! 326: TCD ! 327: ADC #$00F2 ! 328: TCS ! 329: LDA #$0001 ! 330: STA L03006B ! 331: PEA $0013 ! 332: JSL L190233 ! 333: PLY ! 334: JSL L130068 ! 335: JSL L160305 ! 336: LDA #$FFFF ! 337: STA L0300A1 ! 338: PEA ^L040539 ! 339: PEA L040539 ! 340: PEA $0002 ! 341: JSL L0B014E ! 342: PLY ! 343: PLY ! 344: PLY ! 345: PEA ^L040559 ! 346: PEA L040559 ! 347: PEA $0003 ! 348: JSL L0B014E ! 349: PLY ! 350: PLY ! 351: PLY ! 352: PEA ^L040579 ! 353: PEA L040579 ! 354: PEA $0004 ! 355: JSL L0B014E ! 356: PLY ! 357: PLY ! 358: PLY ! 359: JSL L100000 ! 360: JSL L0B0188 ! 361: JSL L120320 ! 362: JSL L0B01EC ! 363: JSL L1901CE ! 364: PEA ^L042E64 ! 365: PEA L042E64 ! 366: PEA $0001 ! 367: JSL L0B014E ! 368: PLY ! 369: PLY ! 370: PLY ! 371: TSC ! 372: CLC ! 373: ADC #$0008 ! 374: TCS ! 375: PLD ! 376: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.