![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to start.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 start.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 start.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use start.E ! 17: use start.X ! 18: ! 19: *----------- ! 20: ! 21: use 4/Ctl.Macs ! 22: use 4/Desk.Macs ! 23: use 4/Dialog.Macs ! 24: use 4/Event.Macs ! 25: use 4/Line.Macs ! 26: use 4/Locator.Macs ! 27: use 4/Mem.Macs ! 28: use 4/Menu.Macs ! 29: use 4/Misc.Macs ! 30: use 4/QD.Macs ! 31: use 4/Sound.Macs ! 32: use 4/Util.Macs ! 33: use 4/Window.Macs ! 34: ! 35: *----------- ! 36: ! 37: BRA L020005 ! 38: NOP ! 39: NOP ! 40: NOP ! 41: L020005 STAL L030167 ! 42: JMPL L02000D ! 43: ! 44: L02000D PHD ! 45: TSC ! 46: SEC ! 47: SBC #$00FB ! 48: TCD ! 49: ADC #$00F0 ! 50: TCS ! 51: SEP #$20 ! 52: LDA #^L030017 ! 53: PHA ! 54: PLB ! 55: REP #$20 ! 56: LDX #$0000 ! 57: LDA #$C036 ! 58: STA $F6 ! 59: STX $F8 ! 60: LDA [$F6] ! 61: AND #$00FF ! 62: AND #$0080 ! 63: SEP #$20 ! 64: STA L030016 ! 65: REP #$20 ! 66: LDX #$0000 ! 67: LDA #$C036 ! 68: STA $F6 ! 69: STX $F8 ! 70: LDA [$F6] ! 71: AND #$00FF ! 72: ORA #$0080 ! 73: SEP #$20 ! 74: STA [$F6] ! 75: REP #$20 ! 76: PHX ! 77: PHA ! 78: PEA $0000 ! 79: PEA $1500 ! 80: LDA L030167 ! 81: PHA ! 82: PEA $C011 ! 83: PEA $0000 ! 84: PEA $0000 ! 85: _NewHandle ! 86: BCS L020072 ! 87: LDA #$0000 ! 88: L020072 STAL L030169 ! 89: PLA ! 90: PLX ! 91: STX $F4 ! 92: STA $F2 ! 93: LDY #$0002 ! 94: LDA [$F2],Y ! 95: TAX ! 96: LDA [$F2] ! 97: STX L030012 ! 98: STA L030010 ! 99: LDA L030010 ! 100: CLC ! 101: ADC #$1500 ! 102: TCS ! 103: _TLStartUp ! 104: BCS L02009E ! 105: LDA #$0000 ! 106: L02009E STAL L030169 ! 107: PHA ! 108: _MMStartUp ! 109: BCS L0200AF ! 110: LDA #$0000 ! 111: L0200AF STAL L030169 ! 112: PLA ! 113: STA L03016B ! 114: _MTStartUp ! 115: BCS L0200C3 ! 116: LDA #$0000 ! 117: L0200C3 STAL L030169 ! 118: PEA ^L043254 ! 119: PEA L043254 ! 120: _LoadTools ! 121: BCS L0200D9 ! 122: LDA #$0000 ! 123: L0200D9 STAL L030169 ! 124: LDX L030012 ! 125: LDA L030010 ! 126: CLC ! 127: ADC #$0300 ! 128: PHA ! 129: TXA ! 130: ADC #$0000 ! 131: TAX ! 132: PEA $0001 ! 133: PEA $0000 ! 134: PEA $0120 ! 135: PEA $0060 ! 136: PEA $00C4 ! 137: LDA L03016B ! 138: PHA ! 139: _EMStartUp ! 140: BCS L02010C ! 141: LDA #$0000 ! 142: L02010C STAL L030169 ! 143: LDX L030012 ! 144: LDA L030010 ! 145: CLC ! 146: ADC #$0400 ! 147: PHA ! 148: TXA ! 149: ADC #$0000 ! 150: TAX ! 151: _SoundStartUp ! 152: BCS L02012C ! 153: LDA #$0000 ! 154: L02012C STAL L030169 ! 155: LDX L030012 ! 156: LDA L030010 ! 157: PHA ! 158: PEA $0000 ! 159: PEA $00A0 ! 160: LDA L03016B ! 161: PHA ! 162: _QDStartUp ! 163: BCS L02014D ! 164: LDA #$0000 ! 165: L02014D STAL L030169 ! 166: _DeskStartUp ! 167: BCS L02015D ! 168: LDA #$0000 ! 169: L02015D STAL L030169 ! 170: LDX #$0000 ! 171: LDA #$C034 ! 172: STA $F6 ! 173: STX $F8 ! 174: LDA #$0000 ! 175: SEP #$20 ! 176: STA [$F6] ! 177: REP #$20 ! 178: PEA ^L0202EB ! 179: PEA L0202EB ! 180: _SetHeartBeat ! 181: BCS L020186 ! 182: LDA #$0000 ! 183: L020186 STAL L030169 ! 184: JSL L20024E ! 185: JSL L020212 ! 186: TSC ! 187: CLC ! 188: ADC #$000A ! 189: TCS ! 190: PLD ! 191: RTL ! 192: ! 193: L02019A ENT ! 194: PHD ! 195: TSC ! 196: SEC ! 197: SBC #$00FB ! 198: TCD ! 199: ADC #$00F4 ! 200: TCS ! 201: LDX #$0000 ! 202: LDA #$C034 ! 203: STA $F6 ! 204: STX $F8 ! 205: LDA #$0000 ! 206: SEP #$20 ! 207: STA [$F6] ! 208: REP #$20 ! 209: TSC ! 210: CLC ! 211: ADC #$0006 ! 212: TCS ! 213: PLD ! 214: RTL ! 215: ! 216: L0201C0 ENT ! 217: PHD ! 218: TSC ! 219: SEC ! 220: SBC #$00FB ! 221: TCD ! 222: ADC #$00F4 ! 223: TCS ! 224: PEA ^L0202EB ! 225: PEA L0202EB ! 226: _SetHeartBeat ! 227: BCS L0201DD ! 228: LDA #$0000 ! 229: L0201DD STAL L030169 ! 230: TSC ! 231: CLC ! 232: ADC #$0006 ! 233: TCS ! 234: PLD ! 235: RTL ! 236: ! 237: L0201E9 ENT ! 238: PHD ! 239: TSC ! 240: SEC ! 241: SBC #$00FB ! 242: TCD ! 243: ADC #$00F4 ! 244: TCS ! 245: PEA ^L0202EB ! 246: PEA L0202EB ! 247: _DelHeartBeat ! 248: BCS L020206 ! 249: LDA #$0000 ! 250: L020206 STAL L030169 ! 251: TSC ! 252: CLC ! 253: ADC #$0006 ! 254: TCS ! 255: PLD ! 256: RTL ! 257: ! 258: L020212 ENT ! 259: PHD ! 260: TSC ! 261: SEC ! 262: SBC #$00FB ! 263: TCD ! 264: ADC #$00F4 ! 265: TCS ! 266: PEA ^L0202EB ! 267: PEA L0202EB ! 268: _DelHeartBeat ! 269: BCS L02022F ! 270: LDA #$0000 ! 271: L02022F STAL L030169 ! 272: LDA L030016 ! 273: AND #$00FF ! 274: PHA ! 275: LDX #$0000 ! 276: LDA #$C036 ! 277: STA $F6 ! 278: STX $F8 ! 279: LDA [$F6] ! 280: AND #$00FF ! 281: AND #$007F ! 282: PLX ! 283: STX $FA ! 284: ORA $FA ! 285: PHA ! 286: LDX #$0000 ! 287: LDA #$C036 ! 288: STA $F6 ! 289: STX $F8 ! 290: PLA ! 291: SEP #$20 ! 292: STA [$F6] ! 293: REP #$20 ! 294: _GrafOff ! 295: BCS L02026F ! 296: LDA #$0000 ! 297: L02026F STAL L030169 ! 298: _DeskShutDown ! 299: BCS L02027F ! 300: LDA #$0000 ! 301: L02027F STAL L030169 ! 302: _EMShutDown ! 303: BCS L02028F ! 304: LDA #$0000 ! 305: L02028F STAL L030169 ! 306: _QDShutDown ! 307: BCS L02029F ! 308: LDA #$0000 ! 309: L02029F STAL L030169 ! 310: _MTShutDown ! 311: BCS L0202AF ! 312: LDA #$0000 ! 313: L0202AF STAL L030169 ! 314: LDA L03016B ! 315: PHA ! 316: _MMShutDown ! 317: BCS L0202C3 ! 318: LDA #$0000 ! 319: L0202C3 STAL L030169 ! 320: _TLShutDown ! 321: BCS L0202D3 ! 322: LDA #$0000 ! 323: L0202D3 STAL L030169 ! 324: JSL GSOS ! 325: DW $0029 ; Quit ! 326: ADRL L040000 ! 327: BRK $00 ! 328: TSC ! 329: CLC ! 330: ADC #$0006 ! 331: TCS ! 332: PLD ! 333: RTL ! 334: ! 335: L0202EB ADRL $00000000 ! 336: DW $0002 ! 337: DW $A55A ! 338: PHP ! 339: LDX #$EA04 ! 340: LDA #$EA02 ! 341: STAL L0202EB,X ! 342: STAL L030141 ! 343: PHB ! 344: REP #$20 ! 345: LDA #^L03013B ! 346: SEP #$30 ! 347: PHA ! 348: PLB ! 349: INC L0301F9 ! 350: ! 351: * What works in ROM 01 but not in ROM 3 ! 352: ! 353: * LDAL $00047C ! 354: * STA L03013B ! 355: * LDAL $00057C ! 356: * STA L03013C ! 357: * LDAL $0004FC ! 358: * STA L03013D ! 359: * LDAL $0005FC ! 360: * STA L03013E ! 361: ! 362: REP #$30 ! 363: ! 364: *--- New code ! 365: ! 366: pha ! 367: pha ! 368: pha ! 369: _ReadMouse ! 370: pla ! 371: pla ! 372: sta L03013D ! 373: pla ! 374: sta L03013B ! 375: ! 376: *--- End of new code ! 377: ! 378: LDA L0301F3 ! 379: SEC ! 380: SBC L0301FB ! 381: NOP ! 382: NOP ! 383: BRL L02038A ! 384: CLC ! 385: CMP #$0014 ! 386: BPL L020356 ! 387: LDA L0301F5 ! 388: AND #$0008 ! 389: BEQ L02034A ! 390: BRL L02038A ! 391: L02034A LDA L030006 ! 392: INC ! 393: AND L030008 ! 394: STA L030006 ! 395: BRA L020364 ! 396: L020356 LDA L030006 ! 397: INC ! 398: AND L030008 ! 399: STA L030006 ! 400: CLC ! 401: ADC #$0008 ! 402: L020364 NOP ! 403: ASL ! 404: TAX ! 405: LDA L03013B ! 406: CLC ! 407: ADCL L040008,X ! 408: BPL L020374 ! 409: LDA #$0000 ! 410: L020374 STA L03013B ! 411: LDA L03013D ! 412: CLC ! 413: ADCL L040028,X ! 414: CMP #$00C8 ! 415: BMI L020387 ! 416: LDA #$00C7 ! 417: L020387 STA L03013D ! 418: L02038A SEP #$30 ! 419: LDA L030002 ! 420: BEQ L02039E ! 421: PHK ! 422: PER L02039D ! 423: PHA ! 424: REP #$30 ! 425: LDA L030000 ! 426: DEC ! 427: PHA ! 428: L02039D RTL ! 429: ! 430: L02039E REP #$30 ! 431: LDA L030004 ! 432: INC ! 433: CMP #$0019 ! 434: BPL L0203AE ! 435: STA L030004 ! 436: BRA L0203CC ! 437: L0203AE STZ L030004 ! 438: LDA L0301F5 ! 439: INC ! 440: CMP #$003C ! 441: BMI L0203C0 ! 442: INC L0301F3 ! 443: LDA #$0000 ! 444: L0203C0 STA L0301F5 ! 445: LDA L0301F7 ! 446: BEQ L0203CC ! 447: JSL L1B0B88 ! 448: L0203CC REP #$30 ! 449: SEP #$30 ! 450: PLB ! 451: PLP ! 452: RTL ! 453: ! 454: MX %00 ! 455: PHD ! 456: TSC ! 457: SEC ! 458: SBC #$00FB ! 459: TCD ! 460: ADC #$00F4 ! 461: TCS ! 462: STZ L0301F9 ! 463: TSC ! 464: CLC ! 465: ADC #$0006 ! 466: TCS ! 467: PLD ! 468: RTL ! 469: ! 470: PHD ! 471: TSC ! 472: SEC ! 473: SBC #$00F9 ! 474: TCD ! 475: ADC #$00F2 ! 476: TCS ! 477: L0203F4 LDA L0301F9 ! 478: CMP $FF ! 479: BCC L0203F4 ! 480: TSC ! 481: CLC ! 482: ADC #$0006 ! 483: TCS ! 484: PLD ! 485: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.