![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gestion.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 gestion.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 gestion.L ! 12: lst off ! 13: ! 14: *----------- ! 15: ! 16: use gestion.X ! 17: ! 18: *----------- ! 19: ! 20: L160000 ENT ! 21: PHD ! 22: TSC ! 23: SEC ! 24: SBC #$00F9 ! 25: TCD ! 26: ADC #$00F2 ! 27: TCS ! 28: LDA $FF ! 29: AND #$0007 ! 30: PHA ! 31: LDA #$0001 ! 32: CLC ! 33: JSL L2D082F ! 34: LDA $FF ! 35: LSR ! 36: LSR ! 37: LSR ! 38: LDX #$0000 ! 39: PHX ! 40: PHA ! 41: LDX L0301C5 ! 42: LDA L0301C3 ! 43: JSL L2D0000 ! 44: PLA ! 45: PLX ! 46: STA $F4 ! 47: STX $F6 ! 48: LDA [$F4] ! 49: AND #$00FF ! 50: PLX ! 51: STX $F8 ! 52: ORA $F8 ! 53: SEP #$20 ! 54: STA [$F4] ! 55: REP #$20 ! 56: TSC ! 57: CLC ! 58: ADC #$0006 ! 59: TCS ! 60: PLD ! 61: RTL ! 62: ! 63: L16004B ENT ! 64: PHD ! 65: TSC ! 66: SEC ! 67: SBC #$00F9 ! 68: TCD ! 69: ADC #$00F2 ! 70: TCS ! 71: LDA $FF ! 72: AND #$0007 ! 73: PHA ! 74: LDA #$0001 ! 75: CLC ! 76: JSL L2D082F ! 77: LDA #$00FF ! 78: PLX ! 79: STX $F8 ! 80: SEC ! 81: SBC $F8 ! 82: PHA ! 83: LDA $FF ! 84: LSR ! 85: LSR ! 86: LSR ! 87: LDX #$0000 ! 88: PHX ! 89: PHA ! 90: LDX L0301C5 ! 91: LDA L0301C3 ! 92: JSL L2D0000 ! 93: PLA ! 94: PLX ! 95: STA $F4 ! 96: STX $F6 ! 97: LDA [$F4] ! 98: AND #$00FF ! 99: PLX ! 100: STX $F8 ! 101: AND $F8 ! 102: SEP #$20 ! 103: STA [$F4] ! 104: REP #$20 ! 105: TSC ! 106: CLC ! 107: ADC #$0006 ! 108: TCS ! 109: PLD ! 110: RTL ! 111: ! 112: L1600A0 ENT ! 113: PHD ! 114: TSC ! 115: SEC ! 116: SBC #$00F7 ! 117: TCD ! 118: ADC #$00F0 ! 119: TCS ! 120: LDA $FF ! 121: PHA ! 122: LDA #$0005 ! 123: CLC ! 124: JSL L2D018C ! 125: LDA #$0064 ! 126: PLX ! 127: STX $F6 ! 128: CLC ! 129: ADC $F6 ! 130: CLC ! 131: ADC $FD ! 132: PHA ! 133: JSL L160000 ! 134: PLY ! 135: TSC ! 136: CLC ! 137: ADC #$0006 ! 138: TCS ! 139: PLD ! 140: RTL ! 141: ! 142: L1600D0 ENT ! 143: PHD ! 144: TSC ! 145: SEC ! 146: SBC #$00F7 ! 147: TCD ! 148: ADC #$00F0 ! 149: TCS ! 150: LDA $FF ! 151: PHA ! 152: LDA #$0005 ! 153: CLC ! 154: JSL L2D018C ! 155: LDA #$0064 ! 156: PLX ! 157: STX $F6 ! 158: CLC ! 159: ADC $F6 ! 160: CLC ! 161: ADC $FD ! 162: PHA ! 163: JSL L16004B ! 164: PLY ! 165: TSC ! 166: CLC ! 167: ADC #$0006 ! 168: TCS ! 169: PLD ! 170: RTL ! 171: ! 172: L160100 ENT ! 173: PHD ! 174: TSC ! 175: SEC ! 176: SBC #$00F9 ! 177: TCD ! 178: ADC #$00F2 ! 179: TCS ! 180: LDA $FF ! 181: AND #$0007 ! 182: PHA ! 183: LDA #$0001 ! 184: CLC ! 185: JSL L2D082F ! 186: LDA $FF ! 187: LSR ! 188: LSR ! 189: LSR ! 190: LDX #$0000 ! 191: PHX ! 192: PHA ! 193: LDX L0301C5 ! 194: LDA L0301C3 ! 195: JSL L2D0000 ! 196: PLA ! 197: PLX ! 198: STA $F4 ! 199: STX $F6 ! 200: LDA [$F4] ! 201: AND #$00FF ! 202: PLX ! 203: STX $F8 ! 204: AND $F8 ! 205: TAY ! 206: TSC ! 207: CLC ! 208: ADC #$0006 ! 209: TCS ! 210: TYA ! 211: PLD ! 212: RTL ! 213: ! 214: L160147 ENT ! 215: PHD ! 216: TSC ! 217: SEC ! 218: SBC #$00F7 ! 219: TCD ! 220: ADC #$00F0 ! 221: TCS ! 222: LDA $FF ! 223: PHA ! 224: LDA #$0005 ! 225: CLC ! 226: JSL L2D018C ! 227: LDA #$0064 ! 228: PLX ! 229: STX $F6 ! 230: CLC ! 231: ADC $F6 ! 232: CLC ! 233: ADC $FD ! 234: PHA ! 235: JSL L160100 ! 236: PLY ! 237: TAY ! 238: TSC ! 239: CLC ! 240: ADC #$0006 ! 241: TCS ! 242: TYA ! 243: PLD ! 244: RTL ! 245: ! 246: L160179 ENT ! 247: PHD ! 248: TSC ! 249: SEC ! 250: SBC #$00FB ! 251: TCD ! 252: ADC #$00F2 ! 253: TCS ! 254: STZ $F4 ! 255: BRL L16020A ! 256: L160189 LDAL L043986 ! 257: AND #$00FF ! 258: PHA ! 259: LDA $F4 ! 260: ASL ! 261: ASL ! 262: LDX #$0000 ! 263: PHX ! 264: PHA ! 265: LDA #L04798A ! 266: LDX #^L04798A ! 267: JSL L2D0000 ! 268: PLA ! 269: PLX ! 270: STA $F6 ! 271: STX $F8 ! 272: LDY #$0002 ! 273: LDA [$F6],Y ! 274: AND #$00FF ! 275: PLX ! 276: STX $F6 ! 277: CMP $F6 ! 278: BNE L160208 ! 279: LDAL L043987 ! 280: AND #$00FF ! 281: PHA ! 282: LDA $F4 ! 283: ASL ! 284: ASL ! 285: LDX #$0000 ! 286: PHX ! 287: PHA ! 288: LDA #L04798A ! 289: LDX #^L04798A ! 290: JSL L2D0000 ! 291: PLA ! 292: PLX ! 293: STA $F6 ! 294: STX $F8 ! 295: LDY #$0003 ! 296: LDA [$F6],Y ! 297: AND #$00FF ! 298: PLX ! 299: STX $F6 ! 300: CMP $F6 ! 301: BNE L160208 ! 302: PEI $F4 ! 303: PEA $0000 ! 304: JSL L160147 ! 305: PLY ! 306: PLY ! 307: TAY ! 308: BEQ L160208 ! 309: LDA $F4 ! 310: STA L030205 ! 311: LDA $F4 ! 312: LSR ! 313: LSR ! 314: STA L030203 ! 315: LDA #$FFFF ! 316: BRA L16021D ! 317: L160208 INC $F4 ! 318: L16020A LDA $F4 ! 319: CMP #$0040 ! 320: BEQ L160214 ! 321: BRL L160189 ! 322: L160214 LDA #$FFFF ! 323: STA L030203 ! 324: LDA #$0000 ! 325: L16021D TAY ! 326: TSC ! 327: CLC ! 328: ADC #$0008 ! 329: TCS ! 330: TYA ! 331: PLD ! 332: RTL ! 333: ! 334: L160227 ENT ! 335: PHD ! 336: TSC ! 337: SEC ! 338: SBC #$00F7 ! 339: TCD ! 340: ADC #$00EE ! 341: TCS ! 342: STZ $F0 ! 343: BRA L160282 ! 344: L160236 LDA $F0 ! 345: ASL ! 346: LDX #$0000 ! 347: PHX ! 348: PHA ! 349: LDA #L047B8A ! 350: LDX #^L047B8A ! 351: JSL L2D0000 ! 352: PLA ! 353: PLX ! 354: STA $F2 ! 355: STX $F4 ! 356: LDA [$F2] ! 357: AND #$00FF ! 358: CMP $FD ! 359: BNE L160280 ! 360: LDA $F0 ! 361: ASL ! 362: LDX #$0000 ! 363: PHX ! 364: PHA ! 365: LDA #L047B8A ! 366: LDX #^L047B8A ! 367: JSL L2D0000 ! 368: PLA ! 369: PLX ! 370: STA $F2 ! 371: STX $F4 ! 372: LDY #$0001 ! 373: LDA [$F2],Y ! 374: AND #$00FF ! 375: CMP $FF ! 376: BNE L160280 ! 377: LDA #$00FF ! 378: BRA L16028C ! 379: L160280 INC $F0 ! 380: L160282 LDA $F0 ! 381: CMP L0301FF ! 382: BNE L160236 ! 383: LDA #$0000 ! 384: L16028C TAY ! 385: TSC ! 386: CLC ! 387: ADC #$0008 ! 388: TCS ! 389: TYA ! 390: PLD ! 391: RTL ! 392: ! 393: L160296 ENT ! 394: PHD ! 395: TSC ! 396: SEC ! 397: SBC #$00F7 ! 398: TCD ! 399: ADC #$00EE ! 400: TCS ! 401: STZ $F0 ! 402: BRA L1602F1 ! 403: L1602A5 LDA $F0 ! 404: ASL ! 405: LDX #$0000 ! 406: PHX ! 407: PHA ! 408: LDA #L047A8A ! 409: LDX #^L047A8A ! 410: JSL L2D0000 ! 411: PLA ! 412: PLX ! 413: STA $F2 ! 414: STX $F4 ! 415: LDA [$F2] ! 416: AND #$00FF ! 417: CMP $FD ! 418: BNE L1602EF ! 419: LDA $F0 ! 420: ASL ! 421: LDX #$0000 ! 422: PHX ! 423: PHA ! 424: LDA #L047A8A ! 425: LDX #^L047A8A ! 426: JSL L2D0000 ! 427: PLA ! 428: PLX ! 429: STA $F2 ! 430: STX $F4 ! 431: LDY #$0001 ! 432: LDA [$F2],Y ! 433: AND #$00FF ! 434: CMP $FF ! 435: BNE L1602EF ! 436: LDA #$00FF ! 437: BRA L1602FB ! 438: L1602EF INC $F0 ! 439: L1602F1 LDA $F0 ! 440: CMP L030201 ! 441: BNE L1602A5 ! 442: LDA #$0000 ! 443: L1602FB TAY ! 444: TSC ! 445: CLC ! 446: ADC #$0008 ! 447: TCS ! 448: TYA ! 449: PLD ! 450: RTL ! 451: ! 452: L160305 ENT ! 453: PHD ! 454: TSC ! 455: SEC ! 456: SBC #$00FB ! 457: TCD ! 458: ADC #$00EC ! 459: TCS ! 460: LDAL L043986 ! 461: AND #$00FF ! 462: STA $F4 ! 463: LDAL L043987 ! 464: AND #$00FF ! 465: STA $F2 ! 466: STZ $F0 ! 467: LDAL L043987 ! 468: AND #$00FF ! 469: PHA ! 470: LDAL L043986 ! 471: AND #$00FF ! 472: PHA ! 473: JSL L160227 ! 474: PLY ! 475: PLY ! 476: TAY ! 477: BEQ L160346 ! 478: LDA #$FFFF ! 479: STA L03007B ! 480: BRL L1604FD ! 481: L160346 STZ $EE ! 482: BRL L160489 ! 483: L16034B LDA $EE ! 484: ASL ! 485: ASL ! 486: LDX #$0000 ! 487: PHX ! 488: PHA ! 489: LDA #L04798A ! 490: LDX #^L04798A ! 491: JSL L2D0000 ! 492: PLA ! 493: PLX ! 494: STA $F6 ! 495: STX $F8 ! 496: LDA [$F6] ! 497: AND #$00FF ! 498: CMP $F4 ! 499: BNE L1603DB ! 500: LDA $EE ! 501: ASL ! 502: ASL ! 503: LDX #$0000 ! 504: PHX ! 505: PHA ! 506: LDA #L04798A ! 507: LDX #^L04798A ! 508: JSL L2D0000 ! 509: PLA ! 510: PLX ! 511: STA $F6 ! 512: STX $F8 ! 513: LDY #$0001 ! 514: LDA [$F6],Y ! 515: AND #$00FF ! 516: CMP $F2 ! 517: BNE L1603DB ! 518: LDA $EE ! 519: ASL ! 520: ASL ! 521: LDX #$0000 ! 522: PHX ! 523: PHA ! 524: LDA #L04798A ! 525: LDX #^L04798A ! 526: JSL L2D0000 ! 527: PLA ! 528: PLX ! 529: STA $F6 ! 530: STX $F8 ! 531: LDY #$0001 ! 532: LDA [$F6],Y ! 533: AND #$00FF ! 534: EOR #$FFFF ! 535: INC ! 536: PHA ! 537: LDA $EE ! 538: ASL ! 539: ASL ! 540: LDX #$0000 ! 541: PHX ! 542: PHA ! 543: LDA #L04798A ! 544: LDX #^L04798A ! 545: JSL L2D0000 ! 546: PLA ! 547: PLX ! 548: STA $F6 ! 549: STX $F8 ! 550: PLA ! 551: SEP #$20 ! 552: LDY #$0001 ! 553: STA [$F6],Y ! 554: REP #$20 ! 555: L1603DB LDA $EE ! 556: ASL ! 557: ASL ! 558: LDX #$0000 ! 559: PHX ! 560: PHA ! 561: LDA #L04798A ! 562: LDX #^L04798A ! 563: JSL L2D0000 ! 564: PLA ! 565: PLX ! 566: STA $F6 ! 567: STX $F8 ! 568: LDY #$0002 ! 569: LDA [$F6],Y ! 570: AND #$00FF ! 571: CMP $F4 ! 572: BEQ L160403 ! 573: BRL L160487 ! 574: L160403 LDA $EE ! 575: ASL ! 576: ASL ! 577: LDX #$0000 ! 578: PHX ! 579: PHA ! 580: LDA #L04798A ! 581: LDX #^L04798A ! 582: JSL L2D0000 ! 583: PLA ! 584: PLX ! 585: STA $F6 ! 586: STX $F8 ! 587: LDY #$0003 ! 588: LDA [$F6],Y ! 589: AND #$00FF ! 590: CMP $F2 ! 591: BNE L160487 ! 592: LDA $EE ! 593: ASL ! 594: ASL ! 595: LDX #$0000 ! 596: PHX ! 597: PHA ! 598: LDA #L04798A ! 599: LDX #^L04798A ! 600: JSL L2D0000 ! 601: PLA ! 602: PLX ! 603: STA $F6 ! 604: STX $F8 ! 605: LDY #$0003 ! 606: LDA [$F6],Y ! 607: AND #$00FF ! 608: EOR #$FFFF ! 609: INC ! 610: PHA ! 611: LDA $EE ! 612: ASL ! 613: ASL ! 614: LDX #$0000 ! 615: PHX ! 616: PHA ! 617: LDA #L04798A ! 618: LDX #^L04798A ! 619: JSL L2D0000 ! 620: PLA ! 621: PLX ! 622: STA $F6 ! 623: STX $F8 ! 624: PLA ! 625: SEP #$20 ! 626: LDY #$0003 ! 627: STA [$F6],Y ! 628: REP #$20 ! 629: PEI $EE ! 630: PEA $0000 ! 631: JSL L1600D0 ! 632: PLY ! 633: PLY ! 634: PEI $EE ! 635: PEA $0001 ! 636: JSL L1600D0 ! 637: PLY ! 638: PLY ! 639: L160487 INC $EE ! 640: L160489 LDA $EE ! 641: CMP #$0040 ! 642: BEQ L160493 ! 643: BRL L16034B ! 644: L160493 LDA L0301FF ! 645: ASL ! 646: LDX #$0000 ! 647: PHX ! 648: PHA ! 649: LDA #L047B8A ! 650: LDX #^L047B8A ! 651: JSL L2D0000 ! 652: PLA ! 653: PLX ! 654: STA $F6 ! 655: STX $F8 ! 656: LDAL L043986 ! 657: SEP #$20 ! 658: STA [$F6] ! 659: REP #$20 ! 660: LDA L0301FF ! 661: ASL ! 662: LDX #$0000 ! 663: PHX ! 664: PHA ! 665: LDA #L047B8A ! 666: LDX #^L047B8A ! 667: JSL L2D0000 ! 668: PLA ! 669: PLX ! 670: STA $F6 ! 671: STX $F8 ! 672: LDAL L043987 ! 673: SEP #$20 ! 674: LDY #$0001 ! 675: STA [$F6],Y ! 676: REP #$20 ! 677: INC L0301FF ! 678: LDA L0301FF ! 679: AND #$007F ! 680: STA L0301FF ! 681: LDA L0301FF ! 682: CMP #$000B ! 683: BCS L1604FD ! 684: LDA #$0027 ! 685: CLC ! 686: ADC L0301FF ! 687: PHA ! 688: JSL L16004B ! 689: PLY ! 690: L1604FD TAY ! 691: TSC ! 692: CLC ! 693: ADC #$000E ! 694: TCS ! 695: TYA ! 696: PLD ! 697: RTL ! 698: ! 699: L160507 ENT ! 700: PHD ! 701: TSC ! 702: SEC ! 703: SBC #$00FB ! 704: TCD ! 705: ADC #$00F4 ! 706: TCS ! 707: LDAL L043987 ! 708: AND #$00FF ! 709: PHA ! 710: LDAL L043986 ! 711: AND #$00FF ! 712: PHA ! 713: JSL L160296 ! 714: PLY ! 715: PLY ! 716: TAY ! 717: BEQ L160534 ! 718: LDA #$FFFF ! 719: STA L03007B ! 720: BRL L16058F ! 721: L160534 LDA L030201 ! 722: ASL ! 723: LDX #$0000 ! 724: PHX ! 725: PHA ! 726: LDA #L047A8A ! 727: LDX #^L047A8A ! 728: JSL L2D0000 ! 729: PLA ! 730: PLX ! 731: STA $F6 ! 732: STX $F8 ! 733: LDAL L043986 ! 734: SEP #$20 ! 735: STA [$F6] ! 736: REP #$20 ! 737: LDA L030201 ! 738: ASL ! 739: LDX #$0000 ! 740: PHX ! 741: PHA ! 742: LDA #L047A8A ! 743: LDX #^L047A8A ! 744: JSL L2D0000 ! 745: PLA ! 746: PLX ! 747: STA $F6 ! 748: STX $F8 ! 749: LDAL L043987 ! 750: SEP #$20 ! 751: LDY #$0001 ! 752: STA [$F6],Y ! 753: REP #$20 ! 754: INC L030201 ! 755: LDA L030201 ! 756: AND #$007F ! 757: STA L030201 ! 758: LDA #$FFFF ! 759: STA L03007B ! 760: L16058F TAY ! 761: TSC ! 762: CLC ! 763: ADC #$0006 ! 764: TCS ! 765: TYA ! 766: PLD ! 767: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.