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