![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hyper.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 hyper.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 hyper.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use hyper.X ! 17: ! 18: *----------- ! 19: ! 20: use 4/Event.Macs ! 21: use 4/Util.Macs ! 22: ! 23: *----------- ! 24: ! 25: L190000 INC L030207 ! 26: TXY ! 27: LDX L030207 ! 28: LDAL $FE1000,X ! 29: ADCL $FE8000,X ! 30: ADCL $FF0000,X ! 31: TYX ! 32: TAY ! 33: AND #$7FFF ! 34: STAL L042675,X ! 35: TYA ! 36: AND #$2000 ! 37: STAL L042875,X ! 38: INC L030207 ! 39: TXY ! 40: LDX L030207 ! 41: LDAL $FE1000,X ! 42: ADCL $FE8000,X ! 43: ADCL $FF0000,X ! 44: TYX ! 45: TAY ! 46: AND #$1FFF ! 47: STAL L042775,X ! 48: TYA ! 49: AND #$2000 ! 50: STAL L042975,X ! 51: INC L030207 ! 52: TXY ! 53: LDX L030207 ! 54: LDAL $FE1000,X ! 55: ADCL $FE8000,X ! 56: ADCL $FF0000,X ! 57: TYX ! 58: AND #$01FF ! 59: ADC #$01F0 ! 60: STAL L042A75,X ! 61: LDA #$0000 ! 62: STAL L042575,X ! 63: LDA #$FFFF ! 64: STAL L042475,X ! 65: RTL ! 66: ! 67: L190075 ENT ! 68: PHD ! 69: TSC ! 70: SEC ! 71: SBC #$00FB ! 72: TCD ! 73: ADC #$00F2 ! 74: TCS ! 75: JSL L0C0017 ! 76: AND #$003F ! 77: ORA #$0040 ! 78: STA L030069 ! 79: STZ $F4 ! 80: BRA L19009B ! 81: L190091 LDA $F4 ! 82: ASL ! 83: TAX ! 84: JSL L190000 ! 85: INC $F4 ! 86: L19009B LDA $F4 ! 87: CMP L030069 ! 88: BNE L190091 ! 89: LDA #$0001 ! 90: STA L03006B ! 91: TSC ! 92: CLC ! 93: ADC #$0008 ! 94: TCS ! 95: PLD ! 96: RTL ! 97: ! 98: L1900B0 ENT ! 99: PHD ! 100: TSC ! 101: SEC ! 102: SBC #$00FB ! 103: TCD ! 104: ADC #$00D4 ! 105: TCS ! 106: LDA #$FF00 ! 107: STA $EE ! 108: LDX #$00E1 ! 109: LDA #$2B40 ! 110: STX $EA ! 111: STA $E8 ! 112: STZ $F4 ! 113: BRL L1901BC ! 114: L1900CF LDA $F4 ! 115: ASL ! 116: STA $F2 ! 117: TAX ! 118: LDAL L042675,X ! 119: STA $E6 ! 120: LDAL L042775,X ! 121: STA $E4 ! 122: LDAL L042A75,X ! 123: STA $DE ! 124: LDAL L042575,X ! 125: TAY ! 126: LDAL L042475,X ! 127: AND [$E8],Y ! 128: STA [$E8],Y ! 129: LDA L03006B ! 130: CMP $DE ! 131: BMI L190102 ! 132: JSL L190000 ! 133: BRL L1901BA ! 134: L190102 LDA $DE ! 135: SEC ! 136: SBC L03006B ! 137: STA $DE ! 138: STAL L042A75,X ! 139: LSR ! 140: LSR ! 141: LSR ! 142: LSR ! 143: LSR ! 144: LSR ! 145: ASL ! 146: STA $D6 ! 147: LDA #$001E ! 148: SEC ! 149: SBC $D6 ! 150: STA $D6 ! 151: LDX $E6 ! 152: LDA $DE ! 153: JSL L0B0000 ! 154: STA $E2 ! 155: CMP #$00A1 ! 156: BMI L190137 ! 157: LDX $F2 ! 158: JSL L190000 ! 159: BRL L1901BA ! 160: L190137 LDX $E4 ! 161: LDA $DE ! 162: JSL L0B0000 ! 163: STA $E0 ! 164: CMP #$0040 ! 165: BMI L19014F ! 166: LDX $F2 ! 167: JSL L190000 ! 168: BRL L1901BA ! 169: L19014F LDX $F2 ! 170: LDAL L042875,X ! 171: BEQ L19015F ! 172: LDA #$00A0 ! 173: SEC ! 174: SBC $E2 ! 175: BRA L190165 ! 176: L19015F LDA #$00A0 ! 177: CLC ! 178: ADC $E2 ! 179: L190165 STA $DC ! 180: LSR ! 181: STA $D8 ! 182: LDAL L042975,X ! 183: BEQ L190178 ! 184: LDA #$0040 ! 185: SEC ! 186: SBC $E0 ! 187: BRA L19017E ! 188: L190178 LDA #$0040 ! 189: CLC ! 190: ADC $E0 ! 191: L19017E STA $DA ! 192: ASL ! 193: TAX ! 194: LDAL L0434EC,X ! 195: CLC ! 196: ADC $D8 ! 197: STA $EC ! 198: TAY ! 199: LDX $F2 ! 200: STAL L042575,X ! 201: LDX #$0000 ! 202: LDA #$0000 ! 203: SEP #$20 ! 204: LDA $DC ! 205: AND #$01 ! 206: CLC ! 207: ADC $D6 ! 208: TAX ! 209: LDAL L042453,X ! 210: STA $EE ! 211: ORA [$E8],Y ! 212: STA [$E8],Y ! 213: EOR #$FF ! 214: STA $EE ! 215: REP #$20 ! 216: LDX $F2 ! 217: LDA $EE ! 218: STAL L042475,X ! 219: L1901BA INC $F4 ! 220: L1901BC LDA $F4 ! 221: CMP L030069 ! 222: BEQ L1901C6 ! 223: BRL L1900CF ! 224: L1901C6 TSC ! 225: CLC ! 226: ADC #$0026 ! 227: TCS ! 228: PLD ! 229: RTL ! 230: ! 231: L1901CE ENT ! 232: PHD ! 233: TSC ! 234: SEC ! 235: SBC #$00FB ! 236: TCD ! 237: ADC #$00DA ! 238: TCS ! 239: LDX #$00E1 ! 240: LDA #$2B40 ! 241: STX $EC ! 242: STA $EA ! 243: STZ $F4 ! 244: BRA L190224 ! 245: L1901E7 LDA $F4 ! 246: ASL ! 247: TAX ! 248: LDAL L042575,X ! 249: STA $EE ! 250: LDAL L042A75,X ! 251: AND #$0001 ! 252: SEP #$20 ! 253: INC ! 254: STA $DE ! 255: ASL ! 256: ASL ! 257: ASL ! 258: ASL ! 259: ORA $DE ! 260: STA $DE ! 261: LDA $F4 ! 262: AND #$01 ! 263: TAX ! 264: LDAL L042473,X ! 265: STA $DC ! 266: EOR #$FF ! 267: AND $DE ! 268: STA $DE ! 269: LDY $EE ! 270: LDA $DC ! 271: AND [$EA],Y ! 272: ORA $DE ! 273: STA [$EA],Y ! 274: REP #$20 ! 275: INC $F4 ! 276: L190224 LDA $F4 ! 277: CMP L030069 ! 278: BNE L1901E7 ! 279: TSC ! 280: CLC ! 281: ADC #$0020 ! 282: TCS ! 283: PLD ! 284: RTL ! 285: ! 286: L190233 ENT ! 287: PHD ! 288: TSC ! 289: SEC ! 290: SBC #$00F9 ! 291: TCD ! 292: ADC #$00F0 ! 293: TCS ! 294: STZ $F2 ! 295: BRA L190288 ! 296: L190242 INC L03006B ! 297: JSL L1900B0 ! 298: JSL L1900B0 ! 299: JSL L1900B0 ! 300: JSL L1900B0 ! 301: JSL L1900B0 ! 302: JSL L1900B0 ! 303: JSL L1900B0 ! 304: JSL L1900B0 ! 305: JSL L1900B0 ! 306: PHA ! 307: PEA $0000 ! 308: _Button ! 309: BCS L190279 ! 310: LDA #$0000 ! 311: L190279 STAL L030169 ! 312: PLA ! 313: TAY ! 314: BEQ L190286 ! 315: LDA #$0000 ! 316: BRA L190291 ! 317: L190286 INC $F2 ! 318: L190288 LDA $F2 ! 319: CMP $FF ! 320: BNE L190242 ! 321: LDA #$0001 ! 322: L190291 TAY ! 323: TSC ! 324: CLC ! 325: ADC #$0008 ! 326: TCS ! 327: TYA ! 328: PLD ! 329: RTL ! 330: ! 331: L19029B ENT ! 332: PHD ! 333: TSC ! 334: SEC ! 335: SBC #$00F9 ! 336: TCD ! 337: ADC #$00F2 ! 338: TCS ! 339: L1902A6 LDA L03006B ! 340: CMP $FF ! 341: BEQ L1902E8 ! 342: DEC L03006B ! 343: PHA ! 344: PEA $0000 ! 345: _Button ! 346: BCS L1902C0 ! 347: LDA #$0000 ! 348: L1902C0 STAL L030169 ! 349: PLA ! 350: TAY ! 351: BEQ L1902CA ! 352: BRA L1902E8 ! 353: L1902CA JSL L1900B0 ! 354: JSL L1900B0 ! 355: JSL L1900B0 ! 356: JSL L1900B0 ! 357: JSL L1900B0 ! 358: JSL L1900B0 ! 359: JSL L1900B0 ! 360: BRA L1902A6 ! 361: L1902E8 TAY ! 362: TSC ! 363: CLC ! 364: ADC #$0006 ! 365: TCS ! 366: TYA ! 367: PLD ! 368: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.