|
|
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 destroy.L
12: lst off
13:
14: *-----------
15:
16: use destroy.X
17:
18: *-----------
19:
20: L100000 PHD
21: TSC
22: SEC
23: SBC #$00FB
24: TCD
25: ADC #$0096
26: TCS
27: LDA #L0414C8
28: LDX #^L0414C8
29: STX $DA
30: STA $D8
31: LDA #L0405B9
32: LDX #^L0405B9
33: STX $D6
34: STA $D4
35: LDA #L0406BA
36: LDX #^L0406BA
37: STX $D2
38: STA $D0
39: LDA #L0407BB
40: LDX #^L0407BB
41: STX $CE
42: STA $CC
43: LDA #L0408BC
44: LDX #^L0408BC
45: STX $CA
46: STA $C8
47: LDA #L0409BD
48: LDX #^L0409BD
49: STX $C6
50: STA $C4
51: LDA #L040ABE
52: LDX #^L040ABE
53: STX $C2
54: STA $C0
55: LDA #L040BBF
56: LDX #^L040BBF
57: STX $BE
58: STA $BC
59: LDA #L040CC0
60: LDX #^L040CC0
61: STX $BA
62: STA $B8
63: LDA #L040DC1
64: LDX #^L040DC1
65: STX $B6
66: STA $B4
67: LDA #L040EC2
68: LDX #^L040EC2
69: STX $B2
70: STA $B0
71: LDA #L040FC3
72: LDX #^L040FC3
73: STX $AE
74: STA $AC
75: LDA #L0410C4
76: LDX #^L0410C4
77: STX $AA
78: STA $A8
79: LDA #L0411C5
80: LDX #^L0411C5
81: STX $A6
82: STA $A4
83: LDA #L0412C6
84: LDX #^L0412C6
85: STX $A2
86: STA $A0
87: LDA #L0413C7
88: LDX #^L0413C7
89: STX $9E
90: STA $9C
91: LDY #$0100
92: LDA #$0000
93: L1000B1 STA [$D8],Y
94: DEY
95: DEY
96: BPL L1000B1
97: JSL L0C0017
98: AND #$007F
99: ORA #$0080
100: LDY #$0080
101: STA [$D8],Y
102: JSL L0C0017
103: AND #$003F
104: LDY #$0020
105: STA [$D8],Y
106: JSL L0C0017
107: AND #$007F
108: LDY #$0040
109: STA [$D8],Y
110: JSL L0C0017
111: AND #$007F
112: ADC #$0040
113: LDY #$0060
114: STA [$D8],Y
115: JSL L0C0017
116: AND #$007F
117: ADC #$0040
118: LDY #$00A0
119: STA [$D8],Y
120: JSL L0C0017
121: AND #$007F
122: LDY #$00C0
123: STA [$D8],Y
124: JSL L0C0017
125: AND #$007F
126: LDY #$00E0
127: STA [$D8],Y
128: LDA #$0000
129: LDY #$0100
130: SEP #$20
131: STA [$D8],Y
132: STA [$D8]
133: REP #$20
134: LDA #$0020
135: STA $E6
136: LDA #$0010
137: STA $E4
138: L10012C LDA $E6
139: CMP #$0001
140: BEQ L100184
141: BCC L100184
142: STZ $F2
143: BRA L100171
144: L100139 JSL L0C0017
145: AND #$003F
146: SBC #$001F
147: STA $E2
148: LDA $F2
149: CLC
150: ADC $E6
151: TAY
152: SEC
153: SBC $E4
154: STA $F0
155: LDA [$D8],Y
156: LDY $F2
157: ADC [$D8],Y
158: TAX
159: ADC $E2
160: BMI L100160
161: CMP #$0200
162: BMI L100161
163: L100160 TXA
164: L100161 LDY $F0
165: LSR
166: SEP #$20
167: STA [$D8],Y
168: REP #$20
169: LDA $F2
170: CLC
171: ADC $E6
172: STA $F2
173: L100171 LDA $F2
174: CMP #$0100
175: BNE L100139
176: LDA $E6
177: LSR
178: STA $E6
179: LDA $E4
180: LSR
181: STA $E4
182: BRA L10012C
183: L100184 STZ $F2
184: BRA L1001DD
185: L100188 LDY $F2
186: SEP #$20
187: LDA [$D8],Y
188: LSR
189: STA $EE
190: LSR
191: STA $EC
192: LSR
193: STA $EA
194: LSR
195: STA $E8
196: CLC
197: STA [$D4],Y
198: ADC $EA
199: STA [$CC],Y
200: ADC $EC
201: STA [$BC],Y
202: ADC $EE
203: STA [$9C],Y
204: LDA $EA
205: STA [$D0],Y
206: ADC $EC
207: STA [$C0],Y
208: ADC $EE
209: STA [$A0],Y
210: LDA $EC
211: STA [$C8],Y
212: ADC $EE
213: STA [$A8],Y
214: LDA $E8
215: ADC $EC
216: STA [$C4],Y
217: ADC $EE
218: STA [$A4],Y
219: LDA $EA
220: ADC $EE
221: STA [$B0],Y
222: LDA $EE
223: STA [$B8],Y
224: ADC $E8
225: STA [$B4],Y
226: ADC $EA
227: STA [$AC],Y
228: REP #$20
229: INC $F2
230: L1001DD LDA $F2
231: CMP #$0100
232: BNE L100188
233: PEA ^L040599
234: PEA L040599
235: PEA $0001
236: JSL L0B014E
237: PLY
238: PLY
239: PLY
240: LDX #$00E1
241: LDA #$1E20
242: STX $9A
243: STA $98
244: LDA #$0030
245: STA $F2
246: BRL L100285
247: L100206 LDX $D6
248: LDA $D4
249: STX $DA
250: STA $D8
251: STZ $E0
252: STZ $F4
253: BRA L100276
254: L100214 LDA $F4
255: LDX #$0000
256: PHX
257: PHA
258: LDA #L040529
259: LDX #^L040529
260: JSL L2D0000
261: PLA
262: PLX
263: STA $F6
264: STX $F8
265: LDA [$F6]
266: AND #$00FF
267: STA $DC
268: LDY $F2
269: LDA [$D8],Y
270: AND #$00FF
271: CMP #$0040
272: BMI L100241
273: LDA #$003F
274: L100241 ASL
275: STA $DE
276: TAX
277: L100245 LDAL L043594,X
278: TAY
279: LDA $DC
280: STA [$98],Y
281: LDAL L0436FA,X
282: TAY
283: LDA $DC
284: STA [$98],Y
285: DEX
286: DEX
287: CPX $E0
288: BPL L100245
289: LDA $DE
290: STA $E0
291: LDX $DA
292: LDA $D8
293: CLC
294: ADC #$0101
295: PHA
296: TXA
297: ADC #$0000
298: TAX
299: PLA
300: STX $DA
301: STA $D8
302: INC $F4
303: L100276 LDA $F4
304: CMP #$0010
305: BNE L100214
306: INC $98
307: BNE L100283
308: INC $9A
309: L100283 INC $F2
310: L100285 LDA $F2
311: CMP #$00D0
312: BEQ L10028F
313: BRL L100206
314: L10028F TSC
315: CLC
316: ADC #$0064
317: TCS
318: PLD
319: RTL
320:
321: L100297 ENT
322: PHD
323: TSC
324: SEC
325: SBC #$00FB
326: TCD
327: ADC #$00F2
328: TCS
329: LDA #$0001
330: STA L03006B
331: PEA $0013
332: JSL L190233
333: PLY
334: JSL L130068
335: JSL L160305
336: LDA #$FFFF
337: STA L0300A1
338: PEA ^L040539
339: PEA L040539
340: PEA $0002
341: JSL L0B014E
342: PLY
343: PLY
344: PLY
345: PEA ^L040559
346: PEA L040559
347: PEA $0003
348: JSL L0B014E
349: PLY
350: PLY
351: PLY
352: PEA ^L040579
353: PEA L040579
354: PEA $0004
355: JSL L0B014E
356: PLY
357: PLY
358: PLY
359: JSL L100000
360: JSL L0B0188
361: JSL L120320
362: JSL L0B01EC
363: JSL L1901CE
364: PEA ^L042E64
365: PEA L042E64
366: PEA $0001
367: JSL L0B014E
368: PLY
369: PLY
370: PLY
371: TSC
372: CLC
373: ADC #$0008
374: TCS
375: PLD
376: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.