![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dial.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 dial.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 dial.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use dial.X ! 17: ! 18: *----------- ! 19: ! 20: use 4/Event.Macs ! 21: use 4/Qd.Macs ! 22: use 4/Util.Macs ! 23: ! 24: *----------- ! 25: ! 26: L090000 PHD ! 27: TSC ! 28: SEC ! 29: SBC #$00FB ! 30: TCD ! 31: ADC #$00F4 ! 32: TCS ! 33: LDX L03001D ! 34: LDA L03001B ! 35: CLC ! 36: ADC #$0014 ! 37: PHA ! 38: TXA ! 39: ADC #$0000 ! 40: TAX ! 41: PLA ! 42: PHX ! 43: PHA ! 44: PHX ! 45: PHA ! 46: _TickCount ! 47: BCS L09002C ! 48: LDA #$0000 ! 49: L09002C STAL L030169 ! 50: PLA ! 51: PLX ! 52: JSL L2D03FD ! 53: BCS L090054 ! 54: PHX ! 55: PHA ! 56: _TickCount ! 57: BCS L090046 ! 58: LDA #$0000 ! 59: L090046 STAL L030169 ! 60: PLA ! 61: PLX ! 62: STX L03001D ! 63: STA L03001B ! 64: BRA L090057 ! 65: L090054 BRL L0900D6 ! 66: L090057 PEA $0001 ! 67: PEA $FFFF ! 68: _Move ! 69: BCS L090069 ! 70: LDA #$0000 ! 71: L090069 STAL L030169 ! 72: LDA L030019 ! 73: BEQ L090087 ! 74: PEA $000D ! 75: _SetSolidPenPat ! 76: BCS L090081 ! 77: LDA #$0000 ! 78: L090081 STAL L030169 ! 79: BRA L09009A ! 80: L090087 PEA $0000 ! 81: _SetSolidPenPat ! 82: BCS L090096 ! 83: LDA #$0000 ! 84: L090096 STAL L030169 ! 85: L09009A PEA $0000 ! 86: PEA $FFFA ! 87: _Line ! 88: BCS L0900AC ! 89: LDA #$0000 ! 90: L0900AC STAL L030169 ! 91: PEA $FFFF ! 92: PEA $0007 ! 93: _Move ! 94: BCS L0900C2 ! 95: LDA #$0000 ! 96: L0900C2 STAL L030169 ! 97: LDA L030019 ! 98: BEQ L0900D0 ! 99: LDA #$0000 ! 100: BRA L0900D3 ! 101: L0900D0 LDA #$0001 ! 102: L0900D3 STA L030019 ! 103: L0900D6 TAY ! 104: TSC ! 105: CLC ! 106: ADC #$0006 ! 107: TCS ! 108: TYA ! 109: PLD ! 110: RTL ! 111: ! 112: L0900E0 ENT ! 113: PHD ! 114: TSC ! 115: SEC ! 116: SBC #$00FB ! 117: TCD ! 118: ADC #$00F2 ! 119: TCS ! 120: L0900EB PHA ! 121: PEA $0008 ! 122: PEA ^L0400D5 ! 123: PEA L0400D5 ! 124: _GetNextEvent ! 125: BCS L090101 ! 126: LDA #$0000 ! 127: L090101 STAL L030169 ! 128: PLA ! 129: TAY ! 130: BNE L09010B ! 131: BRA L0900EB ! 132: L09010B LDAL L0400D9 ! 133: TAX ! 134: LDAL L0400D7 ! 135: AND #$00FF ! 136: PHA ! 137: TXA ! 138: AND #$0000 ! 139: TAX ! 140: PLA ! 141: STA $F4 ! 142: LDA $F4 ! 143: TAY ! 144: TSC ! 145: CLC ! 146: ADC #$0008 ! 147: TCS ! 148: TYA ! 149: PLD ! 150: RTL ! 151: ! 152: L09012C PHD ! 153: TSC ! 154: SEC ! 155: SBC #$00F5 ! 156: TCD ! 157: ADC #$00E7 ! 158: TCS ! 159: STZ $ED ! 160: STZ $EB ! 161: STZ $E9 ! 162: BRA L090161 ! 163: L09013F LDA $E9 ! 164: LDX #$0000 ! 165: PHX ! 166: PHA ! 167: LDA #L0400ED ! 168: LDX #^L0400ED ! 169: JSL L2D0000 ! 170: PLA ! 171: PLX ! 172: STA $F0 ! 173: STX $F2 ! 174: LDA #$0000 ! 175: SEP #$20 ! 176: STA [$F0] ! 177: REP #$20 ! 178: INC $E9 ! 179: L090161 LDA $E9 ! 180: CMP #$0064 ! 181: BNE L09013F ! 182: PEI $FB ! 183: PEI $FD ! 184: _MoveTo ! 185: BCS L090178 ! 186: LDA #$0000 ! 187: L090178 STAL L030169 ! 188: L09017C PHA ! 189: PEA $0008 ! 190: PEA ^L0400D5 ! 191: PEA L0400D5 ! 192: _GetNextEvent ! 193: BCS L090192 ! 194: LDA #$0000 ! 195: L090192 STAL L030169 ! 196: PLA ! 197: TAY ! 198: BNE L0901A0 ! 199: JSL L090000 ! 200: BRA L09017C ! 201: L0901A0 LDAL L0400D9 ! 202: TAX ! 203: LDAL L0400D7 ! 204: AND #$00FF ! 205: PHA ! 206: TXA ! 207: AND #$0000 ! 208: TAX ! 209: PLA ! 210: SEP #$20 ! 211: STA $EF ! 212: REP #$20 ! 213: LDA $EF ! 214: AND #$00FF ! 215: CMP #$007F ! 216: BNE L0901EC ! 217: LDA $ED ! 218: BEQ L0901EC ! 219: DEC $ED ! 220: LDA $ED ! 221: LDX #$0000 ! 222: PHX ! 223: PHA ! 224: LDA #L0400ED ! 225: LDX #^L0400ED ! 226: JSL L2D0000 ! 227: PLA ! 228: PLX ! 229: STA $F0 ! 230: STX $F2 ! 231: LDA #$0000 ! 232: SEP #$20 ! 233: STA [$F0] ! 234: REP #$20 ! 235: BRL L090256 ! 236: L0901EC LDA $EF ! 237: AND #$00FF ! 238: SEC ! 239: SBC #$001F ! 240: BEQ L090247 ! 241: BVS L0901FC ! 242: EOR #$8000 ! 243: L0901FC BPL L090247 ! 244: LDA $ED ! 245: CMP $FF ! 246: BCS L090247 ! 247: LDA $ED ! 248: INC $ED ! 249: LDX #$0000 ! 250: PHX ! 251: PHA ! 252: LDA #L0400ED ! 253: LDX #^L0400ED ! 254: JSL L2D0000 ! 255: PLA ! 256: PLX ! 257: STA $F0 ! 258: STX $F2 ! 259: LDA $EF ! 260: SEP #$20 ! 261: STA [$F0] ! 262: REP #$20 ! 263: LDA $ED ! 264: LDX #$0000 ! 265: PHX ! 266: PHA ! 267: LDA #L0400ED ! 268: LDX #^L0400ED ! 269: JSL L2D0000 ! 270: PLA ! 271: PLX ! 272: STA $F0 ! 273: STX $F2 ! 274: LDA #$0000 ! 275: SEP #$20 ! 276: STA [$F0] ! 277: REP #$20 ! 278: BRA L090256 ! 279: L090247 LDA $EF ! 280: AND #$00FF ! 281: CMP #$000D ! 282: BNE L090256 ! 283: LDA #$0001 ! 284: STA $EB ! 285: L090256 PEI $FB ! 286: PEI $FD ! 287: _MoveTo ! 288: BCS L090266 ! 289: LDA #$0000 ! 290: L090266 STAL L030169 ! 291: PEA ^L0400ED ! 292: PEA L0400ED ! 293: _DrawCString ! 294: BCS L09027C ! 295: LDA #$0000 ! 296: L09027C STAL L030169 ! 297: PEA ^L0400D1 ! 298: PEA L0400D1 ! 299: _DrawCString ! 300: BCS L090292 ! 301: LDA #$0000 ! 302: L090292 STAL L030169 ! 303: PEI $FB ! 304: PEI $FD ! 305: _MoveTo ! 306: BCS L0902A6 ! 307: LDA #$0000 ! 308: L0902A6 STAL L030169 ! 309: PEA ^L0400ED ! 310: PEA L0400ED ! 311: _DrawCString ! 312: BCS L0902BC ! 313: LDA #$0000 ! 314: L0902BC STAL L030169 ! 315: LDA $EB ! 316: BNE L0902C7 ! 317: BRL L09017C ! 318: L0902C7 LDA #L0400ED ! 319: LDX #^L0400ED ! 320: TAY ! 321: TSC ! 322: CLC ! 323: ADC #$000D ! 324: TCS ! 325: TYA ! 326: PLD ! 327: RTL ! 328: ! 329: L0902D7 ENT ! 330: PHD ! 331: TSC ! 332: SEC ! 333: SBC #$00EF ! 334: TCD ! 335: ADC #$00E4 ! 336: TCS ! 337: PEA $0000 ! 338: PEA $000D ! 339: JSL L070534 ! 340: PLY ! 341: PLY ! 342: PEI $FF ! 343: PEI $FD ! 344: PEA $000D ! 345: LDA $F7 ! 346: CLC ! 347: ADC #$000E ! 348: PHA ! 349: LDA $F5 ! 350: CLC ! 351: ADC $F9 ! 352: CLC ! 353: ADC #$0003 ! 354: PHA ! 355: PEI $F7 ! 356: LDA $F5 ! 357: SEC ! 358: SBC #$0003 ! 359: PHA ! 360: JSL L07018E ! 361: TAY ! 362: TSC ! 363: CLC ! 364: ADC #$000E ! 365: TCS ! 366: TYA ! 367: PEI $FB ! 368: LDA $F7 ! 369: CLC ! 370: ADC #$000A ! 371: PHA ! 372: PEI $F5 ! 373: JSL L09012C ! 374: PLY ! 375: PLY ! 376: PLY ! 377: STX $E8 ! 378: STA $E6 ! 379: PEA $0000 ! 380: PEA $000C ! 381: JSL L070534 ! 382: PLY ! 383: PLY ! 384: LDX $E8 ! 385: LDA $E6 ! 386: TAY ! 387: TSC ! 388: CLC ! 389: ADC #$000A ! 390: TCS ! 391: TYA ! 392: PLD ! 393: RTL ! 394: ! 395: L09034B ENT ! 396: PHD ! 397: TSC ! 398: SEC ! 399: SBC #$00E7 ! 400: TCD ! 401: ADC #$00E0 ! 402: TCS ! 403: PEI $FF ! 404: PEI $FD ! 405: JSL L07008D ! 406: PLY ! 407: PLY ! 408: PEI $FF ! 409: PEI $FD ! 410: PEA $0000 ! 411: LDA $EF ! 412: CLC ! 413: ADC $F3 ! 414: CLC ! 415: ADC #$0002 ! 416: PHA ! 417: LDA $ED ! 418: CLC ! 419: ADC $F1 ! 420: CLC ! 421: ADC #$0002 ! 422: PHA ! 423: LDA $EF ! 424: CLC ! 425: ADC #$0002 ! 426: PHA ! 427: LDA $ED ! 428: CLC ! 429: ADC #$0002 ! 430: PHA ! 431: JSL L070205 ! 432: TAY ! 433: TSC ! 434: CLC ! 435: ADC #$000E ! 436: TCS ! 437: TYA ! 438: PEI $FF ! 439: PEI $FD ! 440: PEA $000B ! 441: LDA $EF ! 442: CLC ! 443: ADC $F3 ! 444: SEC ! 445: SBC #$0002 ! 446: PHA ! 447: LDA $ED ! 448: CLC ! 449: ADC $F1 ! 450: SEC ! 451: SBC #$0002 ! 452: PHA ! 453: LDA $EF ! 454: CLC ! 455: ADC #$0002 ! 456: PHA ! 457: LDA $ED ! 458: CLC ! 459: ADC #$0002 ! 460: PHA ! 461: JSL L07018E ! 462: TAY ! 463: TSC ! 464: CLC ! 465: ADC #$000E ! 466: TCS ! 467: TYA ! 468: PEI $FF ! 469: PEI $FD ! 470: PEA $000D ! 471: LDA $EF ! 472: CLC ! 473: ADC $F3 ! 474: SEC ! 475: SBC #$0001 ! 476: PHA ! 477: LDA $ED ! 478: CLC ! 479: ADC $F1 ! 480: SEC ! 481: SBC #$0001 ! 482: PHA ! 483: LDA $EF ! 484: CLC ! 485: ADC #$0001 ! 486: PHA ! 487: LDA $ED ! 488: CLC ! 489: ADC #$0001 ! 490: PHA ! 491: JSL L07018E ! 492: TAY ! 493: TSC ! 494: CLC ! 495: ADC #$000E ! 496: TCS ! 497: TYA ! 498: PEI $FF ! 499: PEI $FD ! 500: PEA $000B ! 501: LDA $EF ! 502: CLC ! 503: ADC $F3 ! 504: PHA ! 505: LDA $ED ! 506: CLC ! 507: ADC $F1 ! 508: PHA ! 509: PEI $EF ! 510: PEI $ED ! 511: JSL L07018E ! 512: TAY ! 513: TSC ! 514: CLC ! 515: ADC #$000E ! 516: TCS ! 517: TYA ! 518: LDA $ED ! 519: CLC ! 520: ADC #$0008 ! 521: PHA ! 522: LDA $EF ! 523: CLC ! 524: ADC #$0010 ! 525: PHA ! 526: _MoveTo ! 527: BCS L09043C ! 528: LDA #$0000 ! 529: L09043C STAL L030169 ! 530: LDA $F5 ! 531: LDX $F7 ! 532: JSL L2D08A1 ! 533: LDA $ED ! 534: CLC ! 535: ADC #$0008 ! 536: PHA ! 537: LDA $EF ! 538: CLC ! 539: ADC #$001A ! 540: PHA ! 541: _MoveTo ! 542: BCS L090462 ! 543: LDA #$0000 ! 544: L090462 STAL L030169 ! 545: LDA $F9 ! 546: LDX $FB ! 547: JSL L2D08A1 ! 548: TSC ! 549: CLC ! 550: ADC #$0006 ! 551: TCS ! 552: PLD ! 553: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.