![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Cursor.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 Cursor.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 Cursor.L
12: lst off
13:
14: *-----------
15:
16: use Cursor.X
17:
18: *-----------
19:
20: L290000 ENT
21: PHD
22: TSC
23: SEC
24: SBC #$00FB
25: TCD
26: ADC #$00F4
27: TCS
28: PEA $0000
29: PEA $0066
30: JSL L0702E3
31: PLY
32: PLY
33: STX L030105
34: STA L030103
35: TSC
36: CLC
37: ADC #$0006
38: TCS
39: PLD
40: RTL
41:
42: L290025 ENT
43: PHD
44: TSC
45: SEC
46: SBC #$00FB
47: TCD
48: ADC #$00F4
49: TCS
50: LDA #$00A8
51: STA L0300E1
52: STZ L030107
53: LDA #$0001
54: PHA
55: LDA L0300E1
56: SEC
57: JSL L2D083F
58: LDAL L0435F0
59: PLX
60: STX $FA
61: CLC
62: ADC $FA
63: STA L030109
64: PEA $0020
65: PEA $0006
66: LDX L030105
67: LDA L030103
68: PHX
69: PHA
70: LDA L030109
71: LDX #$0000
72: PHX
73: PHA
74: LDX L03018D
75: LDA L03018B
76: JSL L2D0000
77: JSL L0D0213
78: TAY
79: TSC
80: CLC
81: ADC #$000C
82: TCS
83: TYA
84: PEA $0000
85: JSL L0D0000
86: PLY
87: PEA $0020
88: PEA $0006
89: LDA L030109
90: LDX #$0000
91: PHX
92: PHA
93: LDX L03018D
94: LDA L03018B
95: JSL L2D0000
96: LDX L0300F9
97: LDA L0300F7
98: PHX
99: PHA
100: JSL L0D0340
101: TAY
102: TSC
103: CLC
104: ADC #$000C
105: TCS
106: TYA
107: PEA $000F
108: JSL L0D0000
109: PLY
110: TSC
111: CLC
112: ADC #$0006
113: TCS
114: PLD
115: RTL
116:
117: L2900C2 ENT
118: PHD
119: TSC
120: SEC
121: SBC #$00F9
122: TCD
123: ADC #$00F2
124: TCS
125: PEA $0020
126: PEA $0006
127: LDA L030109
128: LDX #$0000
129: PHX
130: PHA
131: LDX L03018D
132: LDA L03018B
133: JSL L2D0000
134: LDX L030105
135: LDA L030103
136: PHX
137: PHA
138: JSL L0D01CA
139: TAY
140: TSC
141: CLC
142: ADC #$000C
143: TCS
144: TYA
145: LDA $FF
146: STA L030107
147: LDA $FF
148: ASL
149: ASL
150: ASL
151: ASL
152: PHA
153: LDA #$00A8
154: PLX
155: STX $F8
156: CLC
157: ADC $F8
158: STA L0300E1
159: LDA #$0001
160: PHA
161: LDA L0300E1
162: SEC
163: JSL L2D083F
164: LDAL L0435F0
165: PLX
166: STX $F8
167: CLC
168: ADC $F8
169: STA L030109
170: PEA $0020
171: PEA $0006
172: LDX L030105
173: LDA L030103
174: PHX
175: PHA
176: LDA L030109
177: LDX #$0000
178: PHX
179: PHA
180: LDX L03018D
181: LDA L03018B
182: JSL L2D0000
183: JSL L0D0213
184: TAY
185: TSC
186: CLC
187: ADC #$000C
188: TCS
189: TYA
190: PEA $0000
191: JSL L0D0000
192: PLY
193: PEA $0020
194: PEA $0006
195: LDA L030109
196: LDX #$0000
197: PHX
198: PHA
199: LDX L03018D
200: LDA L03018B
201: JSL L2D0000
202: LDX L0300F9
203: LDA L0300F7
204: PHX
205: PHA
206: JSL L0D0340
207: TAY
208: TSC
209: CLC
210: ADC #$000C
211: TCS
212: TYA
213: PEA $000F
214: JSL L0D0000
215: PLY
216: PEA $0090
217: PEA $0006
218: PEA $5194
219: JSL L1E0000
220: PLY
221: PLY
222: PLY
223: TSC
224: CLC
225: ADC #$0006
226: TCS
227: PLD
228: RTL
229:
230: L2901AA PHD
231: TSC
232: SEC
233: SBC #$00F9
234: TCD
235: ADC #$00F0
236: TCS
237: LDA L030107
238: CMP L0301E3
239: BNE L2901C0
240: BRL L29020A
241: L2901C0 LDA L0301E3
242: STA $F2
243: BRA L290203
244: L2901C7 LDA $F2
245: SEC
246: SBC #$0001
247: ASL
248: LDX #$0000
249: PHX
250: PHA
251: LDA #L0437E6
252: LDX #^L0437E6
253: JSL L2D0000
254: PLA
255: PLX
256: STA $F4
257: STX $F6
258: LDA [$F4]
259: PHA
260: LDA $F2
261: ASL
262: LDX #$0000
263: PHX
264: PHA
265: LDA #L0437E6
266: LDX #^L0437E6
267: JSL L2D0000
268: PLA
269: PLX
270: STA $F4
271: STX $F6
272: PLA
273: STA [$F4]
274: DEC $F2
275: L290203 LDA $F2
276: CMP L030107
277: BNE L2901C7
278: L29020A LDA L030107
279: ASL
280: LDX #$0000
281: PHX
282: PHA
283: LDA #L0437E6
284: LDX #^L0437E6
285: JSL L2D0000
286: PLA
287: PLX
288: STA $F4
289: STX $F6
290: LDA $FF
291: STA [$F4]
292: LDA L0301E3
293: CMP #$0008
294: BEQ L290232
295: INC L0301E3
296: L290232 STZ $F2
297: BRA L290260
298: L290236 LDA #$000A
299: CLC
300: ADC $F2
301: PHA
302: LDA $F2
303: ASL
304: LDX #$0000
305: PHX
306: PHA
307: LDA #L0437E6
308: LDX #^L0437E6
309: JSL L2D0000
310: PLA
311: PLX
312: STA $F4
313: STX $F6
314: LDA [$F4]
315: PHA
316: JSL L0A00D5
317: PLY
318: PLY
319: INC $F2
320: L290260 LDA $F2
321: CMP L0301E3
322: BNE L290236
323: LDA L030107
324: CMP #$0007
325: BEQ L29027B
326: INC L030107
327: LDA L030107
328: PHA
329: JSL L2900C2
330: PLY
331: L29027B TSC
332: CLC
333: ADC #$0008
334: TCS
335: PLD
336: RTL
337:
338: L290283 ENT
339: PHD
340: TSC
341: SEC
342: SBC #$00FB
343: TCD
344: ADC #$00F2
345: TCS
346: LDA L0301E3
347: BNE L290296
348: BRL L290342
349: L290296 LDA L030107
350: CMP L0301E3
351: BNE L2902A1
352: BRL L290318
353: L2902A1 LDA L030107
354: STA $F4
355: BRL L29030D
356: L2902A9 LDA $F4
357: CLC
358: ADC #$0001
359: ASL
360: LDX #$0000
361: PHX
362: PHA
363: LDA #L0437E6
364: LDX #^L0437E6
365: JSL L2D0000
366: PLA
367: PLX
368: STA $F6
369: STX $F8
370: LDA [$F6]
371: PHA
372: LDA $F4
373: ASL
374: LDX #$0000
375: PHX
376: PHA
377: LDA #L0437E6
378: LDX #^L0437E6
379: JSL L2D0000
380: PLA
381: PLX
382: STA $F6
383: STX $F8
384: PLA
385: STA [$F6]
386: LDA #$000A
387: CLC
388: ADC $F4
389: PHA
390: LDA $F4
391: ASL
392: LDX #$0000
393: PHX
394: PHA
395: LDA #L0437E6
396: LDX #^L0437E6
397: JSL L2D0000
398: PLA
399: PLX
400: STA $F6
401: STX $F8
402: LDA [$F6]
403: PHA
404: JSL L0A00D5
405: PLY
406: PLY
407: INC $F4
408: L29030D LDA L0301E3
409: SEC
410: SBC #$0001
411: CMP $F4
412: BNE L2902A9
413: L290318 DEC L0301E3
414: LDA #$000A
415: CLC
416: ADC L0301E3
417: PHA
418: PEA $0000
419: JSL L0A00D5
420: PLY
421: PLY
422: LDA L030107
423: CMP L0301E3
424: BEQ L290342
425: BCC L290342
426: DEC L030107
427: LDA L030107
428: PHA
429: JSL L2900C2
430: PLY
431: L290342 TAY
432: TSC
433: CLC
434: ADC #$0008
435: TCS
436: TYA
437: PLD
438: RTL
439:
440: L29034C ENT
441: PHD
442: TSC
443: SEC
444: SBC #$00FB
445: TCD
446: ADC #$00F0
447: TCS
448: LDA L03013B
449: SEC
450: SBC #$00B0
451: STA $F4
452: LDA $F4
453: LSR
454: LSR
455: LSR
456: LSR
457: STA $F2
458: LDA $F2
459: CMP L0301E3
460: BEQ L290371
461: BCS L290378
462: L290371 PEI $F2
463: JSL L2900C2
464: PLY
465: L290378 TSC
466: CLC
467: ADC #$000A
468: TCS
469: PLD
470: RTL
471:
472: L290380 ENT
473: PHD
474: TSC
475: SEC
476: SBC #$00F7
477: TCD
478: ADC #$00EA
479: TCS
480: LDA $FD
481: CLC
482: ADC L0301DF
483: SEC
484: SBC #$0030
485: STA $FD
486: LDA $FF
487: SEC
488: SBC #$0088
489: STA $FF
490: LDA $FD
491: LSR
492: LSR
493: LSR
494: LSR
495: ASL
496: STA $EC
497: LDA $FF
498: CMP #$0013
499: BEQ L2903B3
500: BCC L2903B3
501: INC $EC
502: L2903B3 LDA $EC
503: LDX #$0000
504: PHX
505: PHA
506: LDA #L04346C
507: LDX #^L04346C
508: JSL L2D0000
509: PLA
510: PLX
511: STA $F2
512: STX $F4
513: LDA [$F2]
514: AND #$00FF
515: AND #$0080
516: TAY
517: BEQ L2903DC
518: PEI $EC
519: JSL L2901AA
520: PLY
521: L2903DC TSC
522: CLC
523: ADC #$000C
524: TCS
525: PLD
526: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.