|
|
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 conv.L
12: lst off
13:
14: *-----------
15:
16: L0F0000 ENT
17: PHD
18: TSC
19: SEC
20: SBC #$00F7
21: TCD
22: ADC #$00EC
23: TCS
24: LDA $FD
25: XBA
26: STA $F0
27: LDA $FF
28: XBA
29: STA $EE
30: LDX $F0
31: LDA $EE
32: TAY
33: TSC
34: CLC
35: ADC #$000A
36: TCS
37: TYA
38: PLD
39: RTL
40:
41: * Let's optimize the thing...
42:
43: L0F0023 ent ; too many calls to change
44: xba
45: rtl
46:
47: *L0F0023 ENT
48: * PHD
49: * TSC
50: * SEC
51: * SBC #$00F9
52: * TCD
53: * ADC #$00F2
54: * TCS
55: * LDA $FF
56: * XBA
57: * STA $FF
58: * LDA $FF
59: * TAY
60: * TSC
61: * CLC
62: * ADC #$0006
63: * TCS
64: * TYA
65: * PLD
66: * RTL
67:
68: L0F003F ENT
69: PHD
70: TSC
71: SEC
72: SBC #$00F9
73: TCD
74: ADC #$00F2
75: TCS
76: LDA $FF
77: CMP #$0080
78: BCS L0F0057
79: LDA $FF
80: BRA L0F005C
81: BRA L0F005C
82: L0F0057 LDA #$0F00
83: ORA $FF
84: L0F005C TAY
85: TSC
86: CLC
87: ADC #$0006
88: TCS
89: TYA
90: PLD
91: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.