![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to surv1.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 surv1.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 surv1.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use surv1.E ! 17: use surv1.X ! 18: ! 19: *----------- ! 20: ! 21: L230000 ENT ! 22: PHB ! 23: LDA L03018D ! 24: SEP #$20 ! 25: PHA ! 26: PLB ! 27: REP #$20 ! 28: LDX #$0B50 ! 29: LDY #$0080 ! 30: L230010 LDA $1770,X ! 31: STAL $E12000,X ! 32: LDA $1772,X ! 33: STAL $E12002,X ! 34: LDA $1774,X ! 35: STAL $E12004,X ! 36: LDA $1776,X ! 37: STAL $E12006,X ! 38: LDA $1778,X ! 39: STAL $E12008,X ! 40: LDA $177A,X ! 41: STAL $E1200A,X ! 42: LDA $177C,X ! 43: STAL $E1200C,X ! 44: LDA $177E,X ! 45: STAL $E1200E,X ! 46: LDA $1780,X ! 47: STAL $E12010,X ! 48: LDA $1782,X ! 49: STAL $E12012,X ! 50: LDA $1784,X ! 51: STAL $E12014,X ! 52: LDA $1786,X ! 53: STAL $E12016,X ! 54: LDA $1788,X ! 55: STAL $E12018,X ! 56: LDA $178A,X ! 57: STAL $E1201A,X ! 58: LDA $178C,X ! 59: STAL $E1201C,X ! 60: LDA $178E,X ! 61: STAL $E1201E,X ! 62: LDA $1790,X ! 63: STAL $E12020,X ! 64: LDA $1792,X ! 65: STAL $E12022,X ! 66: LDA $1794,X ! 67: STAL $E12024,X ! 68: LDA $1796,X ! 69: STAL $E12026,X ! 70: LDA $1798,X ! 71: STAL $E12028,X ! 72: LDA $179A,X ! 73: STAL $E1202A,X ! 74: LDA $179C,X ! 75: STAL $E1202C,X ! 76: LDA $179E,X ! 77: STAL $E1202E,X ! 78: LDA $17A0,X ! 79: STAL $E12030,X ! 80: LDA $17A2,X ! 81: STAL $E12032,X ! 82: LDA $17A4,X ! 83: STAL $E12034,X ! 84: LDA $17A6,X ! 85: STAL $E12036,X ! 86: LDA $17A8,X ! 87: STAL $E12038,X ! 88: LDA $17AA,X ! 89: STAL $E1203A,X ! 90: LDA $17AC,X ! 91: STAL $E1203C,X ! 92: LDA $17AE,X ! 93: STAL $E1203E,X ! 94: LDA $17B0,X ! 95: STAL $E12040,X ! 96: LDA $17B2,X ! 97: STAL $E12042,X ! 98: LDA $17B4,X ! 99: STAL $E12044,X ! 100: LDA $17B6,X ! 101: STAL $E12046,X ! 102: LDA $17B8,X ! 103: STAL $E12048,X ! 104: LDA $17BA,X ! 105: STAL $E1204A,X ! 106: LDA $17BC,X ! 107: STAL $E1204C,X ! 108: LDA $17BE,X ! 109: STAL $E1204E,X ! 110: LDA $17C0,X ! 111: STAL $E12050,X ! 112: LDA $17C2,X ! 113: STAL $E12052,X ! 114: LDA $17C4,X ! 115: STAL $E12054,X ! 116: LDA $17C6,X ! 117: STAL $E12056,X ! 118: LDA $17C8,X ! 119: STAL $E12058,X ! 120: LDA $17CA,X ! 121: STAL $E1205A,X ! 122: LDA $17CC,X ! 123: STAL $E1205C,X ! 124: LDA $17CE,X ! 125: STAL $E1205E,X ! 126: LDA $17D0,X ! 127: STAL $E12060,X ! 128: LDA $17D2,X ! 129: STAL $E12062,X ! 130: LDA $17D4,X ! 131: STAL $E12064,X ! 132: LDA $17D6,X ! 133: STAL $E12066,X ! 134: LDA $17D8,X ! 135: STAL $E12068,X ! 136: LDA $17DA,X ! 137: STAL $E1206A,X ! 138: LDA $17DC,X ! 139: STAL $E1206C,X ! 140: LDA $17DE,X ! 141: STAL $E1206E,X ! 142: LDA $17E0,X ! 143: STAL $E12070,X ! 144: LDA $17E2,X ! 145: STAL $E12072,X ! 146: LDA $17E4,X ! 147: STAL $E12074,X ! 148: LDA $17E6,X ! 149: STAL $E12076,X ! 150: LDA $17E8,X ! 151: STAL $E12078,X ! 152: LDA $17EA,X ! 153: STAL $E1207A,X ! 154: LDA $17EC,X ! 155: STAL $E1207C,X ! 156: LDA $17EE,X ! 157: STAL $E1207E,X ! 158: TXA ! 159: CLC ! 160: ADC #$00A0 ! 161: TAX ! 162: DEY ! 163: BEQ L2301DC ! 164: BRL L230010 ! 165: L2301DC PLB ! 166: RTL ! 167: ! 168: L2301DE ENT ! 169: PHB ! 170: LDA L03018D ! 171: SEP #$20 ! 172: PHA ! 173: PLB ! 174: REP #$20 ! 175: LDX #$0B50 ! 176: LDY #$0080 ! 177: L2301EE LDA #$1111 ! 178: STA $1770,X ! 179: STA $1772,X ! 180: STA $1774,X ! 181: STA $1776,X ! 182: STA $1778,X ! 183: STA $177A,X ! 184: STA $177C,X ! 185: STA $177E,X ! 186: STA $1780,X ! 187: STA $1782,X ! 188: STA $1784,X ! 189: STA $1786,X ! 190: STA $1788,X ! 191: STA $178A,X ! 192: STA $178C,X ! 193: STA $178E,X ! 194: STA $1790,X ! 195: STA $1792,X ! 196: STA $1794,X ! 197: STA $1796,X ! 198: STA $1798,X ! 199: STA $179A,X ! 200: STA $179C,X ! 201: STA $179E,X ! 202: STA $17A0,X ! 203: STA $17A2,X ! 204: STA $17A4,X ! 205: STA $17A6,X ! 206: STA $17A8,X ! 207: STA $17AA,X ! 208: STA $17AC,X ! 209: STA $17AE,X ! 210: STA $17B0,X ! 211: STA $17B2,X ! 212: STA $17B4,X ! 213: STA $17B6,X ! 214: STA $17B8,X ! 215: STA $17BA,X ! 216: STA $17BC,X ! 217: STA $17BE,X ! 218: STA $17C0,X ! 219: STA $17C2,X ! 220: STA $17C4,X ! 221: STA $17C6,X ! 222: STA $17C8,X ! 223: STA $17CA,X ! 224: STA $17CC,X ! 225: STA $17CE,X ! 226: STA $17D0,X ! 227: STA $17D2,X ! 228: STA $17D4,X ! 229: STA $17D6,X ! 230: STA $17D8,X ! 231: STA $17DA,X ! 232: STA $17DC,X ! 233: STA $17DE,X ! 234: STA $17E0,X ! 235: STA $17E2,X ! 236: STA $17E4,X ! 237: STA $17E6,X ! 238: STA $17E8,X ! 239: STA $17EA,X ! 240: STA $17EC,X ! 241: STA $17EE,X ! 242: TXA ! 243: CLC ! 244: ADC #$00A0 ! 245: TAX ! 246: DEY ! 247: BEQ L2302BD ! 248: BRL L2301EE ! 249: L2302BD PLB ! 250: RTL ! 251: ! 252: L2302BF ENT ! 253: PHB ! 254: LDA L03018D ! 255: SEP #$20 ! 256: PHA ! 257: PLB ! 258: REP #$20 ! 259: LDX #$0B50 ! 260: LDA #$0080 ! 261: STA $00 ! 262: L2302D1 LDY #$0040 ! 263: L2302D4 LDA $1770,X ! 264: AND #$EEEE ! 265: STA $1770,X ! 266: INX ! 267: INX ! 268: DEY ! 269: BNE L2302D4 ! 270: TXA ! 271: CLC ! 272: ADC #$0020 ! 273: TAX ! 274: DEC $00 ! 275: BNE L2302D1 ! 276: PLB ! 277: RTL ! 278: ! 279: L2302EE ENT ! 280: LDAL L049668 ! 281: STA L03022F ! 282: LDAL L04966A ! 283: STA L030231 ! 284: LDAL L049664 ! 285: STA L030233 ! 286: LDAL L049666 ! 287: STA L030235 ! 288: RTL ! 289: ! 290: L23030B ENT ! 291: LDA L0300BF ! 292: EOR #$0001 ! 293: STA L0300BF ! 294: LDA L03021F ! 295: CMP L03020F ! 296: BPL L230322 ! 297: LDA #$0001 ! 298: STA L0300BF ! 299: L230322 LDA L03018D ! 300: STA $06 ! 301: LDA L03013B ! 302: LSR ! 303: STA $08 ! 304: LDA L03013D ! 305: SEC ! 306: SBC #$0020 ! 307: ASL ! 308: TAX ! 309: LDAL L0434EC,X ! 310: CLC ! 311: ADC L03018B ! 312: ADC $08 ! 313: STA $04 ! 314: STA $12 ! 315: STZ L0300BD ! 316: LDX L03020B ! 317: CPX #$00EC ! 318: BMI L23037D ! 319: CPX #$0114 ! 320: BPL L230357 ! 321: BRL L2303CE ! 322: L230357 LDA L0300BF ! 323: BEQ L23035F ! 324: BRL L2303D4 ! 325: L23035F LDA #^L04806C ! 326: STA $02 ! 327: LDA #L04806C ! 328: STA $00 ! 329: LDA #^L048050 ! 330: STA $0C ! 331: LDA #L048050 ! 332: STA $0A ! 333: LDA $12 ! 334: CLC ! 335: ADC #$009D ! 336: STA $04 ! 337: BRA L2303A6 ! 338: L23037D LDA L0300BF ! 339: BNE L2303D4 ! 340: LDA #^L04806C ! 341: STA $02 ! 342: LDA #L04806C ! 343: CLC ! 344: ADC #$000E ! 345: STA $00 ! 346: LDA #^L048050 ! 347: STA $0C ! 348: LDA #L048050 ! 349: CLC ! 350: ADC #$000E ! 351: STA $0A ! 352: LDA $12 ! 353: CLC ! 354: ADC #$00A5 ! 355: STA $04 ! 356: L2303A6 LDY #$0007 ! 357: L2303A9 LDA [$04] ! 358: AND [$0A] ! 359: ORA [$00] ! 360: STA [$04] ! 361: LDA $04 ! 362: CLC ! 363: ADC #$00A0 ! 364: STA $04 ! 365: LDA $0A ! 366: CLC ! 367: ADC #$0002 ! 368: STA $0A ! 369: LDA $00 ! 370: CLC ! 371: ADC #$0002 ! 372: STA $00 ! 373: DEY ! 374: BNE L2303A9 ! 375: BRA L2303D4 ! 376: L2303CE LDA L0300BF ! 377: STA L0300BD ! 378: L2303D4 LDA #^L047F78 ! 379: STA $02 ! 380: LDA L0300BD ! 381: ASL ! 382: TAX ! 383: LDAL L043064,X ! 384: CLC ! 385: ADC #L047F78 ! 386: STA $00 ! 387: BCC L2303EC ! 388: INC $02 ! 389: L2303EC LDA #^L047FE4 ! 390: STA $0C ! 391: LDA L0300BD ! 392: ASL ! 393: TAX ! 394: LDAL L043064,X ! 395: CLC ! 396: ADC #L047FE4 ! 397: STA $0A ! 398: BCC L230404 ! 399: INC $0C ! 400: L230404 LDA $12 ! 401: STA $04 ! 402: LDA #$0009 ! 403: STA $10 ! 404: L23040D LDY #$0004 ! 405: L230410 LDA [$04],Y ! 406: AND [$0A],Y ! 407: ORA [$00],Y ! 408: STA [$04],Y ! 409: DEY ! 410: DEY ! 411: BPL L230410 ! 412: LDA $04 ! 413: CLC ! 414: ADC #$00A0 ! 415: STA $04 ! 416: LDA $0A ! 417: CLC ! 418: ADC #$0006 ! 419: STA $0A ! 420: LDA $00 ! 421: CLC ! 422: ADC #$0006 ! 423: STA $00 ! 424: DEC $10 ! 425: BNE L23040D ! 426: RTL ! 427: ! 428: L230439 ENT ! 429: LDA #$0090 ! 430: SEC ! 431: SBC L030223 ! 432: ASL ! 433: TAX ! 434: LDAL L0434EC,X ! 435: CLC ! 436: ADC #$0010 ! 437: TAX ! 438: PHB ! 439: LDA L03018D ! 440: SEP #$20 ! 441: PHA ! 442: PLB ! 443: REP #$20 ! 444: LDA #$8888 ! 445: STA $1770,X ! 446: STA $1772,X ! 447: STA $1810,X ! 448: STA $1812,X ! 449: STA $17EE,X ! 450: STA $17EC,X ! 451: STA $188E,X ! 452: STA $188C,X ! 453: LDAL L030227 ! 454: ASL ! 455: BEQ L23048E ! 456: TAY ! 457: LDX #$57A8 ! 458: L23047B LDA #$8888 ! 459: STA $1770,X ! 460: INX ! 461: INX ! 462: LDA #$1188 ! 463: STA $1770,X ! 464: INX ! 465: INX ! 466: DEY ! 467: BNE L23047B ! 468: L23048E PLB ! 469: RTL ! 470: ! 471: L230490 ENT ! 472: LDA L0300B7 ! 473: LSR ! 474: LSR ! 475: BNE L230498 ! 476: RTL ! 477: ! 478: L230498 STA $10 ! 479: PHB ! 480: LDA L03018D ! 481: SEP #$20 ! 482: PHA ! 483: PLB ! 484: REP #$20 ! 485: LDY $10 ! 486: LDX #$0C90 ! 487: L2304A9 LDA #$8188 ! 488: STA $1770,X ! 489: STA $1810,X ! 490: STA $1772,X ! 491: STA $1812,X ! 492: TXA ! 493: CLC ! 494: ADC #$0005 ! 495: TAX ! 496: DEY ! 497: BNE L2304A9 ! 498: DEX ! 499: LDA #$1188 ! 500: STA $1630,X ! 501: STA $1950,X ! 502: LDA #$8118 ! 503: STA $16D0,X ! 504: STA $18B0,X ! 505: LDA #$8888 ! 506: STA $1770,X ! 507: STA $1810,X ! 508: LDY $10 ! 509: LDX #$0D0C ! 510: L2304E2 LDA #$8818 ! 511: STA $1770,X ! 512: STA $1810,X ! 513: STA $1772,X ! 514: STA $1812,X ! 515: TXA ! 516: SEC ! 517: SBC #$0005 ! 518: TAX ! 519: DEY ! 520: BNE L2304E2 ! 521: INX ! 522: INX ! 523: INX ! 524: LDA #$8811 ! 525: STA $1630,X ! 526: STA $1950,X ! 527: LDA #$8118 ! 528: STA $16D0,X ! 529: STA $18B0,X ! 530: LDA #$8888 ! 531: STA $1770,X ! 532: STA $1810,X ! 533: PLB ! 534: RTL ! 535: ! 536: LDY #$0000 ! 537: SEP #$20 ! 538: LDAL KBDSTROBE ! 539: BPL L230526 ! 540: TAY ! 541: L230526 REP #$20 ! 542: TYA ! 543: AND #$007F ! 544: RTL ! 545: ! 546: PHD ! 547: TSC ! 548: SEC ! 549: SBC #$00FB ! 550: TCD ! 551: ADC #$00F0 ! 552: TCS ! 553: LDA L03013B ! 554: SEC ! 555: SBC #$00A0 ! 556: LSR ! 557: LSR ! 558: LSR ! 559: LSR ! 560: LSR ! 561: STA $F4 ! 562: LDA L03013D ! 563: CMP #$0055 ! 564: BEQ L230574 ! 565: BCC L230574 ! 566: LDA L03013D ! 567: SEC ! 568: SBC #$0055 ! 569: LSR ! 570: LSR ! 571: LSR ! 572: LSR ! 573: STA $F2 ! 574: LDA L030223 ! 575: SEC ! 576: SBC $F2 ! 577: STA L030223 ! 578: LDA L030223 ! 579: AND #$8000 ! 580: TAY ! 581: BEQ L230572 ! 582: STZ L030223 ! 583: L230572 BRA L23059A ! 584: L230574 LDA #$0055 ! 585: SEC ! 586: SBC L03013D ! 587: LSR ! 588: LSR ! 589: LSR ! 590: LSR ! 591: STA $F2 ! 592: LDA L030223 ! 593: CLC ! 594: ADC $F2 ! 595: STA L030223 ! 596: LDA L030223 ! 597: CMP #$007F ! 598: BEQ L23059A ! 599: BCC L23059A ! 600: LDA #$007F ! 601: STA L030223 ! 602: L23059A LDA L03020B ! 603: CLC ! 604: ADC $F4 ! 605: STA L03020B ! 606: LDA L03020B ! 607: AND #$01FF ! 608: STA L03020B ! 609: TSC ! 610: CLC ! 611: ADC #$000A ! 612: TCS ! 613: PLD ! 614: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.