![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to surv2.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 surv2.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 surv2.L
12: lst off
13:
14: *-----------
15:
16: use surv2.X
17:
18: *-----------
19:
20: L250000 ENT
21: PHD
22: TSC
23: SEC
24: SBC #$00F9
25: TCD
26: ADC #$00C2
27: TCS
28: STZ $CA
29: STZ $C8
30: LDX L03018D
31: LDA L03018B
32: CLC
33: ADC #$0010
34: PHA
35: TXA
36: ADC #$0000
37: TAX
38: PLA
39: STX $C6
40: STA $C4
41: LDA L0300D5
42: STA $F2
43: LDA $FF
44: ASL
45: ASL
46: LDX #$0000
47: PHX
48: PHA
49: LDA #L049648
50: LDX #^L049648
51: JSL L2D0000
52: PLA
53: PLX
54: STA $F4
55: STX $F6
56: LDY #$0002
57: LDA [$F4],Y
58: TAX
59: LDA [$F4]
60: STX $E8
61: STA $E6
62: LDA $FF
63: ASL
64: LDX #$0000
65: PHX
66: PHA
67: LDA #L04966C
68: LDX #^L04966C
69: JSL L2D0000
70: PLA
71: PLX
72: STA $F4
73: STX $F6
74: LDA [$F4]
75: ASL
76: ASL
77: ASL
78: CLC
79: ADC L03020B
80: STA $CC
81: LDA $CC
82: AND #$01FF
83: STA $CC
84: LDA $CC
85: STA $D0
86: STZ $F0
87: LDA #$0040
88: STA $E0
89: LDA #L050040
90: LDX #^L050040
91: STX $E4
92: STA $E2
93: LDA $D0
94: INC $D0
95: LDX #$0000
96: PHX
97: PHA
98: LDX $E8
99: LDA $E6
100: JSL L2D0000
101: PLA
102: PLX
103: STA $F4
104: STX $F6
105: LDA [$F4]
106: AND #$00FF
107: STA $D8
108: LDA $D0
109: AND #$01FF
110: STA $D0
111: LDA $D8
112: LDX #$0000
113: PHX
114: PHA
115: LDA #L0492A8
116: LDX #^L0492A8
117: JSL L2D0000
118: PLA
119: PLX
120: STA $F4
121: STX $F6
122: LDA [$F4]
123: AND #$00FF
124: STA $D4
125: LDA $D4
126: CLC
127: ADC L030225
128: STA $D4
129: LDA $D4
130: CMP #$00FE
131: BEQ L2500E6
132: BCC L2500E6
133: LDA #$00FF
134: STA $D4
135: L2500E6 LDA $F0
136: CLC
137: ADC $F2
138: STA $F0
139: XBA
140: AND #$00FF
141: INC
142: STA $EA
143: LDA $F0
144: AND #$00FF
145: STA $F0
146: LDY $D0
147: LDA [$E6],Y
148: AND #$00FF
149: TAX
150: TYA
151: INC
152: AND #$01FF
153: STA $D0
154: LDAL L0492A8,X
155: AND #$00FF
156: CLC
157: ADC L030225
158: STA $D2
159: LDA $D2
160: CMP #$00FE
161: BEQ L250148
162: BCC L250148
163: LDA #$00FF
164: STA $D2
165: LDA $D2
166: CMP $D4
167: BNE L250148
168: LDX $EA
169: LDA #$FFFF
170: L250130 SEP #$20
171: STA [$E2]
172: INC $E0
173: BPL L25013B
174: BRL L2501EB
175: L25013B REP #$20
176: INC $E2
177: DEX
178: BPL L250130
179: DEC $E2
180: DEC $E0
181: BRA L2500E6
182: L250148 LDA $D2
183: SEC
184: SBC $D4
185: ASL
186: ASL
187: ASL
188: ASL
189: ASL
190: ASL
191: ASL
192: ASL
193: STA $DA
194: LDA $DA
195: CMP #$0000
196: BNE L25019A
197: LDA $D2
198: AND #$007F
199: ASL
200: TAX
201: LDAL L04367E,X
202: STA $C8
203: LDX $EA
204: L25016D SEP #$20
205: LDA $D2
206: BPL L25018A
207: CMP [$E2]
208: BMI L25018A
209: STA [$E2]
210: REP #$20
211: PHX
212: LDA $E0
213: CLC
214: ADC $C8
215: TAY
216: LDA #$00EE
217: SEP #$20
218: STA [$C4],Y
219: PLX
220: L25018A INC $E0
221: BMI L2501EB
222: REP #$20
223: INC $E2
224: DEX
225: BNE L25016D
226: BRL L2500E6
227: BRA L2501EB
228: L25019A LDA $EA
229: PHA
230: LDA $DA
231: SEC
232: JSL L2D000B
233: PLY
234: STA $DC
235: LDA $D3
236: AND #$FF00
237: STA $CE
238: LDX $EA
239: L2501B0 SEP #$20
240: LDA $CF
241: STA $D4
242: BPL L2501D6
243: CMP [$E2]
244: BMI L2501D6
245: STA [$E2]
246: REP #$20
247: PHX
248: AND #$007F
249: ASL
250: TAX
251: LDA $E0
252: CLC
253: ADCL L04367E,X
254: TAY
255: LDA #$00EE
256: SEP #$20
257: STA [$C4],Y
258: PLX
259: L2501D6 INC $E0
260: BMI L2501EB
261: REP #$20
262: INC $E2
263: LDA $CE
264: CLC
265: ADC $DC
266: STA $CE
267: DEX
268: BNE L2501B0
269: BRL L2500E6
270: L2501EB REP #$20
271: LDA $CC
272: STA $D0
273: STZ $F0
274: LDA #$0040
275: STA $E0
276: LDA #L050040
277: LDX #^L050040
278: STX $E4
279: STA $E2
280: LDA $D0
281: DEC $D0
282: LDX #$0000
283: PHX
284: PHA
285: LDX $E8
286: LDA $E6
287: JSL L2D0000
288: PLA
289: PLX
290: STA $F4
291: STX $F6
292: LDA [$F4]
293: AND #$00FF
294: STA $D8
295: LDA $D0
296: AND #$01FF
297: STA $D0
298: LDA $D8
299: LDX #$0000
300: PHX
301: PHA
302: LDA #L0492A8
303: LDX #^L0492A8
304: JSL L2D0000
305: PLA
306: PLX
307: STA $F4
308: STX $F6
309: LDA [$F4]
310: AND #$00FF
311: STA $D4
312: LDA $D4
313: CLC
314: ADC L030225
315: STA $D4
316: LDA $D4
317: CMP #$00FE
318: BEQ L25025B
319: BCC L25025B
320: LDA #$00FF
321: STA $D4
322: L25025B LDA $F0
323: CLC
324: ADC $F2
325: STA $F0
326: XBA
327: AND #$00FF
328: INC
329: STA $EA
330: LDA $F0
331: AND #$00FF
332: STA $F0
333: LDY $D0
334: LDA [$E6],Y
335: AND #$00FF
336: TAX
337: TYA
338: DEC
339: AND #$01FF
340: STA $D0
341: LDAL L0492A8,X
342: AND #$00FF
343: CLC
344: ADC L030225
345: STA $D2
346: LDA $D2
347: CMP #$00FE
348: BEQ L2502BD
349: BCC L2502BD
350: LDA #$00FF
351: STA $D2
352: LDA $D2
353: CMP $D4
354: BNE L2502BD
355: LDY $EA
356: LDA #$00FF
357: L2502A5 SEP #$20
358: STA [$E2]
359: DEC $E0
360: BPL L2502B0
361: BRL L25036E
362: L2502B0 REP #$20
363: DEC $E2
364: DEY
365: BPL L2502A5
366: INC $E2
367: INC $E0
368: BRA L25025B
369: L2502BD LDA $D4
370: ASL
371: ASL
372: ASL
373: ASL
374: ASL
375: ASL
376: ASL
377: ASL
378: PHA
379: LDA $D2
380: ASL
381: ASL
382: ASL
383: ASL
384: ASL
385: ASL
386: ASL
387: ASL
388: PLX
389: STX $F8
390: SEC
391: SBC $F8
392: STA $DA
393: LDA $DA
394: CMP #$0000
395: BNE L25031B
396: LDA $D2
397: AND #$007F
398: ASL
399: TAX
400: LDAL L04367E,X
401: STA $C8
402: LDX $EA
403: L2502F0 SEP #$20
404: LDA $D2
405: BPL L25030B
406: CMP [$E2]
407: BMI L25030B
408: STA [$E2]
409: REP #$20
410: LDA $E0
411: CLC
412: ADC $C8
413: TAY
414: LDA #$00EE
415: SEP #$20
416: STA [$C4],Y
417: L25030B DEC $E0
418: BMI L25036E
419: REP #$20
420: DEC $E2
421: DEX
422: BNE L2502F0
423: BRL L25025B
424: BRA L25036E
425: L25031B LDA $EA
426: PHA
427: LDA $DA
428: SEC
429: JSL L2D000B
430: PLY
431: STA $DC
432: LDA $D3
433: AND #$FF00
434: STA $CE
435: LDX $EA
436: L250331 SEP #$20
437: LDA $CF
438: STA $D4
439: BPL L250359
440: CMP [$E2]
441: BMI L250359
442: STA [$E2]
443: REP #$20
444: PHX
445: LDA $D4
446: AND #$007F
447: ASL
448: TAX
449: LDA $E0
450: CLC
451: ADCL L04367E,X
452: TAY
453: LDA #$00EE
454: SEP #$20
455: STA [$C4],Y
456: PLX
457: L250359 DEC $E0
458: BMI L25036E
459: REP #$20
460: DEC $E2
461: LDA $CE
462: CLC
463: ADC $DC
464: STA $CE
465: DEX
466: BNE L250331
467: BRL L25025B
468: L25036E REP #$20
469: TSC
470: CLC
471: ADC #$0036
472: TCS
473: PLD
474: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.