![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ficsup.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 ficsup.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 ficsup.L
12: lst off
13:
14: *-----------
15:
16: use ficsup.X
17:
18: *-----------
19:
20: use 4/Locator.Macs
21: use 4/Util.Macs
22:
23: *-----------
24:
25: L060000 ENT
26: PHD
27: TSC
28: SEC
29: SBC #$00F3
30: TCD
31: ADC #$00EC
32: TCS
33: PEA $0014
34: PEA $0014
35: PEI $FB
36: PEI $F9
37: JSL L2D07C3
38: PLY
39: PLY
40: PHX
41: PHA
42: PEI $FF
43: PEI $FD
44: JSL L2D07C3
45: PLY
46: PLY
47: PHX
48: PHA
49: PEA ^L040050
50: PEA L040050
51: PEA ^L040055
52: PEA L040055
53: _TLMountVolume
54: BCS L060041
55: LDA #$0000
56: L060041 STAL L030169
57: JSL L020212
58: TSC
59: CLC
60: ADC #$0006
61: TCS
62: PLD
63: RTL
64:
65: L060051 ENT
66: PHD
67: TSC
68: SEC
69: SBC #$00F3
70: TCD
71: ADC #$00EC
72: TCS
73: PEI $FF
74: PEI $FD
75: PEI $FB
76: PEI $F9
77: JSL L2D0258
78: PLY
79: PLY
80: PLY
81: PLY
82: TAY
83: TSC
84: CLC
85: ADC #$0006
86: TCS
87: TYA
88: PLD
89: RTL
90:
91: L060076 ENT
92: PHD
93: TSC
94: SEC
95: SBC #$00F3
96: TCD
97: ADC #$00EC
98: TCS
99: PEI $FF
100: PEI $FD
101: PEI $FB
102: PEI $F9
103: JSL L2D06E1
104: PLY
105: PLY
106: PLY
107: PLY
108: TAY
109: TSC
110: CLC
111: ADC #$0006
112: TCS
113: TYA
114: PLD
115: RTL
116:
117: L06009B ENT
118: PHD
119: TSC
120: SEC
121: SBC #$00F3
122: TCD
123: ADC #$00EC
124: TCS
125: PEI $FF
126: PEI $FD
127: PEI $FB
128: PEI $F9
129: JSL L2D044B
130: PLY
131: PLY
132: PLY
133: PLY
134: TAY
135: TSC
136: CLC
137: ADC #$0006
138: TCS
139: TYA
140: PLD
141: RTL
142:
143: L0600C0 ENT
144: PHD
145: TSC
146: SEC
147: SBC #$00F7
148: TCD
149: ADC #$00EE
150: TCS
151: PEA $0020
152: PEI $FF
153: PEI $FD
154: JSL L2D033A
155: PLY
156: PLY
157: PLY
158: STA $F0
159: LDA $F0
160: TAY
161: TSC
162: CLC
163: ADC #$0008
164: TCS
165: TYA
166: PLD
167: RTL
168:
169: L0600E7 ENT
170: PHD
171: TSC
172: SEC
173: SBC #$00F7
174: TCD
175: ADC #$00EE
176: TCS
177: L0600F2 PEA $0020
178: PEI $FF
179: PEI $FD
180: JSL L2D033A
181: PLY
182: PLY
183: PLY
184: STA $F0
185: LDA $F0
186: CMP #$FFFF
187: BNE L060139
188: PEA $0014
189: PEA $0014
190: PEA ^L04005C
191: PEA L04005C
192: PEA ^L040076
193: PEA L040076
194: PEA ^L040085
195: PEA L040085
196: PEA ^L04008A
197: PEA L04008A
198: _TLMountVolume
199: BCS L060133
200: LDA #$0000
201: L060133 STAL L030169
202: BRA L0600F2
203: L060139 LDA $F0
204: TAY
205: TSC
206: CLC
207: ADC #$0008
208: TCS
209: TYA
210: PLD
211: RTL
212:
213: L060145 ENT
214: PHD
215: TSC
216: SEC
217: SBC #$00F7
218: TCD
219: ADC #$00F0
220: TCS
221: PEA $00AA
222: PEA $0024
223: PEI $FF
224: PEI $FD
225: JSL L2D0428
226: PLY
227: PLY
228: PLY
229: PLY
230: TAY
231: TSC
232: CLC
233: ADC #$0006
234: TCS
235: TYA
236: PLD
237: RTL
238:
239: L06016C ENT
240: PHD
241: TSC
242: SEC
243: SBC #$00F9
244: TCD
245: ADC #$00F2
246: TCS
247: PEI $FF
248: JSL L2D0497
249: PLY
250: TAY
251: TSC
252: CLC
253: ADC #$0006
254: TCS
255: TYA
256: PLD
257: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.