![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to survol.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 survol.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 survol.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use survol.E ! 17: use survol.X ! 18: ! 19: *----------- ! 20: ! 21: L240000 ENT ! 22: PHD ! 23: TSC ! 24: SEC ! 25: SBC #$00FB ! 26: TCD ! 27: ADC #$00EE ! 28: TCS ! 29: JSL L2301DE ! 30: LDAL BUTN0 ! 31: STA $F4 ! 32: LDA $F4 ! 33: AND #$0080 ! 34: TAY ! 35: BEQ L240031 ! 36: LDA L030227 ! 37: CMP #$0008 ! 38: BCS L240031 ! 39: INC L030227 ! 40: LDA L030227 ! 41: PHA ! 42: JSL L1301BA ! 43: PLY ! 44: L240031 LDA $F4 ! 45: AND #$8000 ! 46: TAY ! 47: BEQ L24004A ! 48: LDA L030227 ! 49: BEQ L24004A ! 50: DEC L030227 ! 51: LDA L030227 ! 52: PHA ! 53: JSL L1301BA ! 54: PLY ! 55: L24004A LDA L03013B ! 56: SEC ! 57: SBC #$00A0 ! 58: BMI L240064 ! 59: LSR ! 60: LSR ! 61: LSR ! 62: LSR ! 63: LSR ! 64: CLC ! 65: ADC L03020B ! 66: AND #$01FF ! 67: STA L03020B ! 68: BRA L24007E ! 69: L240064 LDA #$00A0 ! 70: SEC ! 71: SBC L03013B ! 72: LSR ! 73: LSR ! 74: LSR ! 75: LSR ! 76: LSR ! 77: STA $F2 ! 78: LDA L03020B ! 79: SEC ! 80: SBC $F2 ! 81: AND #$01FF ! 82: STA L03020B ! 83: L24007E LDA L03013D ! 84: SEC ! 85: SBC #$0055 ! 86: BMI L24009D ! 87: LSR ! 88: LSR ! 89: LSR ! 90: LSR ! 91: STA $F0 ! 92: LDA L030223 ! 93: SEC ! 94: SBC $F0 ! 95: BPL L240098 ! 96: LDA #$0000 ! 97: L240098 STA L030223 ! 98: BRA L2400B7 ! 99: L24009D LDA #$0055 ! 100: SEC ! 101: SBC L03013D ! 102: LSR ! 103: LSR ! 104: LSR ! 105: LSR ! 106: CLC ! 107: ADC L030223 ! 108: CMP #$0080 ! 109: BMI L2400B4 ! 110: LDA #$007F ! 111: L2400B4 STA L030223 ! 112: L2400B7 LDA L030223 ! 113: LSR ! 114: CLC ! 115: ADC #$0020 ! 116: STA L030225 ! 117: JSL L240229 ! 118: PEA $FFFF ! 119: JSL L260826 ! 120: PLY ! 121: JSL L23030B ! 122: JSL L230439 ! 123: JSL L230490 ! 124: JSL L230000 ! 125: LDA L0300B1 ! 126: BNE L2400E6 ! 127: BRL L240143 ! 128: L2400E6 LDA L03020B ! 129: LDX #$0000 ! 130: PHX ! 131: PHA ! 132: LDAL L04964A ! 133: TAX ! 134: LDAL L049648 ! 135: JSL L2D0000 ! 136: PLA ! 137: PLX ! 138: STA $F6 ! 139: STX $F8 ! 140: LDA [$F6] ! 141: AND #$00FF ! 142: CLC ! 143: ADC #$0024 ! 144: CMP L030223 ! 145: BEQ L24011B ! 146: BCC L24011B ! 147: LDA L0300B7 ! 148: BEQ L240119 ! 149: DEC L0300B7 ! 150: L240119 BRA L24011E ! 151: L24011B INC L0300B7 ! 152: L24011E LDA L0300B7 ! 153: CMP #$0038 ! 154: BNE L240143 ! 155: JSL L260768 ! 156: JSL L1800B7 ! 157: STZ L03015F ! 158: LDA #L1E0118 ! 159: LDX #^L1E0118 ! 160: STX L030002 ! 161: STA L030000 ! 162: LDA #$0006 ! 163: STA L03015D ! 164: L240143 LDA L0300C7 ! 165: BNE L24014C ! 166: JSL L180000 ! 167: L24014C TSC ! 168: CLC ! 169: ADC #$000C ! 170: TCS ! 171: PLD ! 172: RTL ! 173: ! 174: L240154 ENT ! 175: LDAL L049648 ! 176: TAX ! 177: LDAL L04964A ! 178: TAY ! 179: LDAL L04964C ! 180: STAL L049648 ! 181: LDAL L04964E ! 182: STAL L04964A ! 183: LDAL L049650 ! 184: STAL L04964C ! 185: LDAL L049652 ! 186: STAL L04964E ! 187: LDAL L049654 ! 188: STAL L049650 ! 189: LDAL L049656 ! 190: STAL L049652 ! 191: LDAL L049658 ! 192: STAL L049654 ! 193: LDAL L04965A ! 194: STAL L049656 ! 195: LDAL L04965C ! 196: STAL L049658 ! 197: LDAL L04965E ! 198: STAL L04965A ! 199: LDAL L049660 ! 200: STAL L04965C ! 201: LDAL L049662 ! 202: STAL L04965E ! 203: LDAL L049664 ! 204: STAL L049660 ! 205: LDAL L049666 ! 206: STAL L049662 ! 207: LDAL L049668 ! 208: STAL L049664 ! 209: LDAL L04966A ! 210: STAL L049666 ! 211: TXA ! 212: STAL L049668 ! 213: TYA ! 214: STAL L04966A ! 215: LDAL L04966E ! 216: STAL L04966C ! 217: LDAL L049670 ! 218: STAL L04966E ! 219: LDAL L049672 ! 220: STAL L049670 ! 221: LDAL L049674 ! 222: STAL L049672 ! 223: LDAL L049676 ! 224: STAL L049674 ! 225: LDAL L049678 ! 226: STAL L049676 ! 227: LDAL L04967A ! 228: STAL L049678 ! 229: LDAL L04967C ! 230: STAL L04967A ! 231: RTL ! 232: ! 233: L240229 ENT ! 234: LDA #$7F7F ! 235: LDX #$000E ! 236: L24022F STAL L050000,X ! 237: STAL L050020,X ! 238: STAL L050040,X ! 239: STAL L050060,X ! 240: STAL L050010,X ! 241: STAL L050030,X ! 242: STAL L050050,X ! 243: STAL L050070,X ! 244: DEX ! 245: DEX ! 246: BPL L24022F ! 247: RTL ! 248: ! 249: L240254 ENT ! 250: LDA L030231 ! 251: STA $02 ! 252: STA $06 ! 253: LDA L03022F ! 254: STA $00 ! 255: SEC ! 256: SBC #$0004 ! 257: STA $04 ! 258: BCS L24026A ! 259: DEC $06 ! 260: L24026A LDY #$01FC ! 261: SEP #$20 ! 262: L24026F LDA [$00],Y ! 263: STA $18 ! 264: LDA [$04],Y ! 265: STA $10 ! 266: CLC ! 267: ADC $18 ! 268: LSR ! 269: STA $14 ! 270: CLC ! 271: ADC $18 ! 272: LSR ! 273: DEY ! 274: STA [$00],Y ! 275: DEY ! 276: LDA $14 ! 277: STA [$00],Y ! 278: DEY ! 279: CLC ! 280: ADC $10 ! 281: LSR ! 282: STA [$00],Y ! 283: DEY ! 284: BNE L24026F ! 285: LDA [$00] ! 286: STA $18 ! 287: LDY #$01FC ! 288: LDA [$00],Y ! 289: STA $10 ! 290: CLC ! 291: ADC $18 ! 292: LSR ! 293: LDY #$01FE ! 294: STA [$00],Y ! 295: STA $14 ! 296: CLC ! 297: ADC $10 ! 298: LSR ! 299: LDY #$01FD ! 300: STA [$00],Y ! 301: LDA $18 ! 302: CLC ! 303: ADC $14 ! 304: LSR ! 305: LDY #$01FF ! 306: STA [$00],Y ! 307: REP #$20 ! 308: LDA #$FFFF ! 309: STA L030221 ! 310: RTL ! 311: ! 312: LDA L030231 ! 313: STA $02 ! 314: STA $06 ! 315: LDA L03022F ! 316: CLC ! 317: ADC L0300CB ! 318: STA $00 ! 319: BCC L2402DA ! 320: INC $02 ! 321: L2402DA SEC ! 322: SBC #$0004 ! 323: STA $04 ! 324: BCS L2402E4 ! 325: DEC $06 ! 326: L2402E4 LDY L0300C3 ! 327: SEP #$20 ! 328: L2402E9 LDA [$00],Y ! 329: STA $18 ! 330: LDA [$04],Y ! 331: STA $10 ! 332: CLC ! 333: ADC $18 ! 334: LSR ! 335: STA $14 ! 336: CLC ! 337: ADC $18 ! 338: LSR ! 339: DEY ! 340: STA [$00],Y ! 341: DEY ! 342: LDA $14 ! 343: STA [$00],Y ! 344: DEY ! 345: CLC ! 346: ADC $10 ! 347: LSR ! 348: STA [$00],Y ! 349: DEY ! 350: BNE L2402E9 ! 351: REP #$20 ! 352: LDA #$FFFF ! 353: STA L030221 ! 354: RTL ! 355: ! 356: L240316 ENT ! 357: LDA L030231 ! 358: STA $02 ! 359: LDA L03022F ! 360: STA $00 ! 361: LDX L030217 ! 362: LDY #$0000 ! 363: L240326 JSL L0C0000 ! 364: SEP #$20 ! 365: AND L030219 ! 366: CLC ! 367: ADC L03021B ! 368: STA [$00],Y ! 369: REP #$20 ! 370: TYA ! 371: CLC ! 372: ADC L030215 ! 373: TAY ! 374: DEX ! 375: BNE L240326 ! 376: LDA L030215 ! 377: STA $04 ! 378: L240345 CMP #$0008 ! 379: BMI L2403A2 ! 380: LSR ! 381: STA $08 ! 382: LDA #$0201 ! 383: SEC ! 384: SBC $04 ! 385: STA $06 ! 386: STZ $0E ! 387: LDA $08 ! 388: STA $0C ! 389: LDA $04 ! 390: STA $0A ! 391: L24035F LDA L03023F ! 392: LDX L030241 ! 393: JSL L2D08A1 ! 394: SEP #$20 ! 395: ASL ! 396: LDY $0E ! 397: CLC ! 398: ADC [$00],Y ! 399: LDY $0A ! 400: ADC [$00],Y ! 401: LSR ! 402: LDY $0C ! 403: STA [$00],Y ! 404: REP #$20 ! 405: LDA $0A ! 406: CLC ! 407: ADC $04 ! 408: AND #$01FF ! 409: STA $0A ! 410: LDA $0C ! 411: CLC ! 412: ADC $04 ! 413: AND #$01FF ! 414: STA $0C ! 415: LDA $0E ! 416: CLC ! 417: ADC $04 ! 418: STA $0E ! 419: CMP $06 ! 420: BMI L24035F ! 421: LDA $04 ! 422: LSR ! 423: STA $04 ! 424: BRA L240345 ! 425: L2403A2 LDA #$0000 ! 426: STA L030221 ! 427: RTL ! 428: ! 429: L2403A9 ENT ! 430: LDA L030231 ! 431: STA $02 ! 432: LDA L030235 ! 433: STA $14 ! 434: LDA L03022F ! 435: STA $00 ! 436: LDA L030233 ! 437: STA $12 ! 438: LDX L030217 ! 439: STX $18 ! 440: LDY #$0000 ! 441: L2403C5 JSL L0C0000 ! 442: AND #$000F ! 443: SEC ! 444: SBC #$0008 ! 445: AND #$00FF ! 446: LDX #$0000 ! 447: SEP #$20 ! 448: STA $16 ! 449: LDA [$12],Y ! 450: SEC ! 451: SBC L0300B5 ! 452: CLC ! 453: ADC $16 ! 454: TAX ! 455: LDAL L04306C,X ! 456: CLC ! 457: ADC L03021B ! 458: STA [$00],Y ! 459: REP #$20 ! 460: TYA ! 461: CLC ! 462: ADC L030215 ! 463: TAY ! 464: DEC $18 ! 465: BNE L2403C5 ! 466: LDA L030215 ! 467: STA $04 ! 468: L2403FF CMP #$0008 ! 469: BMI L24045C ! 470: LSR ! 471: STA $08 ! 472: LDA #$0201 ! 473: SEC ! 474: SBC $04 ! 475: STA $06 ! 476: STZ $1E ! 477: LDA $08 ! 478: STA $1C ! 479: LDA $04 ! 480: STA $1A ! 481: L240419 LDA L03023F ! 482: LDX L030241 ! 483: JSL L2D08A1 ! 484: SEP #$20 ! 485: ASL ! 486: LDY $1E ! 487: CLC ! 488: ADC [$00],Y ! 489: LDY $1A ! 490: ADC [$00],Y ! 491: LSR ! 492: LDY $1C ! 493: STA [$00],Y ! 494: REP #$20 ! 495: LDA $1A ! 496: CLC ! 497: ADC $04 ! 498: AND #$01FF ! 499: STA $1A ! 500: LDA $1C ! 501: CLC ! 502: ADC $04 ! 503: AND #$01FF ! 504: STA $1C ! 505: LDA $1E ! 506: CLC ! 507: ADC $04 ! 508: STA $1E ! 509: CMP $06 ! 510: BMI L240419 ! 511: LDA $04 ! 512: LSR ! 513: STA $04 ! 514: BRA L2403FF ! 515: L24045C LDA L03023F ! 516: LDX L030241 ! 517: JSL L2D08A1 ! 518: ADC L0300BB ! 519: AND #$00FF ! 520: STA L0300BB ! 521: STAL L04967C ! 522: LDA #$0000 ! 523: STA L030221 ! 524: RTL ! 525: ! 526: L24047A ENT ! 527: PHD ! 528: TSC ! 529: SEC ! 530: SBC #$00F9 ! 531: TCD ! 532: ADC #$00D2 ! 533: TCS ! 534: STZ $EC ! 535: STZ $EA ! 536: STZ $E8 ! 537: LDA L0300D5 ! 538: AND #$0FFF ! 539: LSR ! 540: LSR ! 541: STA $F2 ! 542: LDA L0300D6 ! 543: LSR ! 544: LSR ! 545: AND #$003F ! 546: INC ! 547: STA $F0 ! 548: LDA L03018D ! 549: STA $DC ! 550: LDA L03018B ! 551: CLC ! 552: ADC #$0050 ! 553: STA $DA ! 554: LDA $FF ! 555: ASL ! 556: TAX ! 557: LDAL L04966C,X ! 558: ASL ! 559: ASL ! 560: ASL ! 561: CLC ! 562: ADC L03020B ! 563: AND #$01FF ! 564: STA $D6 ! 565: STA $D8 ! 566: ASL ! 567: ASL ! 568: ASL ! 569: ASL ! 570: ASL ! 571: ASL ! 572: ASL ! 573: STA $EE ! 574: LDA $FF ! 575: ASL ! 576: ASL ! 577: LDX #$0000 ! 578: PHX ! 579: PHA ! 580: LDA #L049648 ! 581: LDX #^L049648 ! 582: JSL L2D0000 ! 583: PLA ! 584: PLX ! 585: STA $F4 ! 586: STX $F6 ! 587: LDY #$0002 ! 588: LDA [$F4],Y ! 589: TAX ! 590: LDA [$F4] ! 591: STX $E4 ! 592: STA $E2 ! 593: LDA #L050040 ! 594: LDX #^L050040 ! 595: STX $E0 ! 596: STA $DE ! 597: LDA $F0 ! 598: STA $E6 ! 599: L240500 LDY $D6 ! 600: LDA #$0000 ! 601: SEP #$20 ! 602: LDA [$E2],Y ! 603: TAX ! 604: LDAL L0492A8,X ! 605: CLC ! 606: ADC L030225 ! 607: BCC L24051A ! 608: LDA #$FF ! 609: STA [$DE] ! 610: BRA L240535 ! 611: L24051A BPL L240535 ! 612: CMP [$DE] ! 613: BMI L240535 ! 614: STA [$DE] ! 615: REP #$20 ! 616: AND #$007F ! 617: ASL ! 618: TAX ! 619: LDAL L04367E,X ! 620: TAY ! 621: LDA #$00EE ! 622: SEP #$20 ! 623: STA [$DA],Y ! 624: L240535 REP #$20 ! 625: INC $DA ! 626: LDA $EE ! 627: CLC ! 628: ADC $F2 ! 629: STA $EE ! 630: XBA ! 631: ROL ! 632: AND #$01FF ! 633: STA $D6 ! 634: INC $DE ! 635: DEC $E6 ! 636: BNE L240500 ! 637: LDA L03018D ! 638: STA $DC ! 639: LDA L03018B ! 640: CLC ! 641: ADC #$0050 ! 642: STA $DA ! 643: LDA $D8 ! 644: ASL ! 645: ASL ! 646: ASL ! 647: ASL ! 648: ASL ! 649: ASL ! 650: ASL ! 651: STA $EE ! 652: LDA #L050040 ! 653: LDX #^L050040 ! 654: STX $E0 ! 655: STA $DE ! 656: LDA $D8 ! 657: STA $D6 ! 658: LDA $F0 ! 659: STA $E6 ! 660: L240578 LDY $D6 ! 661: LDA #$0000 ! 662: SEP #$20 ! 663: LDA [$E2],Y ! 664: TAX ! 665: LDAL L0492A8,X ! 666: CLC ! 667: ADC L030225 ! 668: BCC L240592 ! 669: LDA #$FF ! 670: STA [$DE] ! 671: BRA L2405AD ! 672: L240592 BPL L2405AD ! 673: CMP [$DE] ! 674: BMI L2405AD ! 675: STA [$DE] ! 676: REP #$20 ! 677: AND #$007F ! 678: ASL ! 679: TAX ! 680: LDAL L04367E,X ! 681: TAY ! 682: LDA #$00EE ! 683: SEP #$20 ! 684: STA [$DA],Y ! 685: L2405AD REP #$20 ! 686: DEC $DA ! 687: LDA $EE ! 688: SEC ! 689: SBC $F2 ! 690: STA $EE ! 691: XBA ! 692: ROL ! 693: AND #$01FF ! 694: STA $D6 ! 695: DEC $DE ! 696: DEC $E6 ! 697: BNE L240578 ! 698: TSC ! 699: CLC ! 700: ADC #$0026 ! 701: TCS ! 702: PLD ! 703: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.