![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gestion.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 gestion.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 gestion.L
12: lst off
13:
14: *-----------
15:
16: use gestion.X
17:
18: *-----------
19:
20: L160000 ENT
21: PHD
22: TSC
23: SEC
24: SBC #$00F9
25: TCD
26: ADC #$00F2
27: TCS
28: LDA $FF
29: AND #$0007
30: PHA
31: LDA #$0001
32: CLC
33: JSL L2D082F
34: LDA $FF
35: LSR
36: LSR
37: LSR
38: LDX #$0000
39: PHX
40: PHA
41: LDX L0301C5
42: LDA L0301C3
43: JSL L2D0000
44: PLA
45: PLX
46: STA $F4
47: STX $F6
48: LDA [$F4]
49: AND #$00FF
50: PLX
51: STX $F8
52: ORA $F8
53: SEP #$20
54: STA [$F4]
55: REP #$20
56: TSC
57: CLC
58: ADC #$0006
59: TCS
60: PLD
61: RTL
62:
63: L16004B ENT
64: PHD
65: TSC
66: SEC
67: SBC #$00F9
68: TCD
69: ADC #$00F2
70: TCS
71: LDA $FF
72: AND #$0007
73: PHA
74: LDA #$0001
75: CLC
76: JSL L2D082F
77: LDA #$00FF
78: PLX
79: STX $F8
80: SEC
81: SBC $F8
82: PHA
83: LDA $FF
84: LSR
85: LSR
86: LSR
87: LDX #$0000
88: PHX
89: PHA
90: LDX L0301C5
91: LDA L0301C3
92: JSL L2D0000
93: PLA
94: PLX
95: STA $F4
96: STX $F6
97: LDA [$F4]
98: AND #$00FF
99: PLX
100: STX $F8
101: AND $F8
102: SEP #$20
103: STA [$F4]
104: REP #$20
105: TSC
106: CLC
107: ADC #$0006
108: TCS
109: PLD
110: RTL
111:
112: L1600A0 ENT
113: PHD
114: TSC
115: SEC
116: SBC #$00F7
117: TCD
118: ADC #$00F0
119: TCS
120: LDA $FF
121: PHA
122: LDA #$0005
123: CLC
124: JSL L2D018C
125: LDA #$0064
126: PLX
127: STX $F6
128: CLC
129: ADC $F6
130: CLC
131: ADC $FD
132: PHA
133: JSL L160000
134: PLY
135: TSC
136: CLC
137: ADC #$0006
138: TCS
139: PLD
140: RTL
141:
142: L1600D0 ENT
143: PHD
144: TSC
145: SEC
146: SBC #$00F7
147: TCD
148: ADC #$00F0
149: TCS
150: LDA $FF
151: PHA
152: LDA #$0005
153: CLC
154: JSL L2D018C
155: LDA #$0064
156: PLX
157: STX $F6
158: CLC
159: ADC $F6
160: CLC
161: ADC $FD
162: PHA
163: JSL L16004B
164: PLY
165: TSC
166: CLC
167: ADC #$0006
168: TCS
169: PLD
170: RTL
171:
172: L160100 ENT
173: PHD
174: TSC
175: SEC
176: SBC #$00F9
177: TCD
178: ADC #$00F2
179: TCS
180: LDA $FF
181: AND #$0007
182: PHA
183: LDA #$0001
184: CLC
185: JSL L2D082F
186: LDA $FF
187: LSR
188: LSR
189: LSR
190: LDX #$0000
191: PHX
192: PHA
193: LDX L0301C5
194: LDA L0301C3
195: JSL L2D0000
196: PLA
197: PLX
198: STA $F4
199: STX $F6
200: LDA [$F4]
201: AND #$00FF
202: PLX
203: STX $F8
204: AND $F8
205: TAY
206: TSC
207: CLC
208: ADC #$0006
209: TCS
210: TYA
211: PLD
212: RTL
213:
214: L160147 ENT
215: PHD
216: TSC
217: SEC
218: SBC #$00F7
219: TCD
220: ADC #$00F0
221: TCS
222: LDA $FF
223: PHA
224: LDA #$0005
225: CLC
226: JSL L2D018C
227: LDA #$0064
228: PLX
229: STX $F6
230: CLC
231: ADC $F6
232: CLC
233: ADC $FD
234: PHA
235: JSL L160100
236: PLY
237: TAY
238: TSC
239: CLC
240: ADC #$0006
241: TCS
242: TYA
243: PLD
244: RTL
245:
246: L160179 ENT
247: PHD
248: TSC
249: SEC
250: SBC #$00FB
251: TCD
252: ADC #$00F2
253: TCS
254: STZ $F4
255: BRL L16020A
256: L160189 LDAL L043986
257: AND #$00FF
258: PHA
259: LDA $F4
260: ASL
261: ASL
262: LDX #$0000
263: PHX
264: PHA
265: LDA #L04798A
266: LDX #^L04798A
267: JSL L2D0000
268: PLA
269: PLX
270: STA $F6
271: STX $F8
272: LDY #$0002
273: LDA [$F6],Y
274: AND #$00FF
275: PLX
276: STX $F6
277: CMP $F6
278: BNE L160208
279: LDAL L043987
280: AND #$00FF
281: PHA
282: LDA $F4
283: ASL
284: ASL
285: LDX #$0000
286: PHX
287: PHA
288: LDA #L04798A
289: LDX #^L04798A
290: JSL L2D0000
291: PLA
292: PLX
293: STA $F6
294: STX $F8
295: LDY #$0003
296: LDA [$F6],Y
297: AND #$00FF
298: PLX
299: STX $F6
300: CMP $F6
301: BNE L160208
302: PEI $F4
303: PEA $0000
304: JSL L160147
305: PLY
306: PLY
307: TAY
308: BEQ L160208
309: LDA $F4
310: STA L030205
311: LDA $F4
312: LSR
313: LSR
314: STA L030203
315: LDA #$FFFF
316: BRA L16021D
317: L160208 INC $F4
318: L16020A LDA $F4
319: CMP #$0040
320: BEQ L160214
321: BRL L160189
322: L160214 LDA #$FFFF
323: STA L030203
324: LDA #$0000
325: L16021D TAY
326: TSC
327: CLC
328: ADC #$0008
329: TCS
330: TYA
331: PLD
332: RTL
333:
334: L160227 ENT
335: PHD
336: TSC
337: SEC
338: SBC #$00F7
339: TCD
340: ADC #$00EE
341: TCS
342: STZ $F0
343: BRA L160282
344: L160236 LDA $F0
345: ASL
346: LDX #$0000
347: PHX
348: PHA
349: LDA #L047B8A
350: LDX #^L047B8A
351: JSL L2D0000
352: PLA
353: PLX
354: STA $F2
355: STX $F4
356: LDA [$F2]
357: AND #$00FF
358: CMP $FD
359: BNE L160280
360: LDA $F0
361: ASL
362: LDX #$0000
363: PHX
364: PHA
365: LDA #L047B8A
366: LDX #^L047B8A
367: JSL L2D0000
368: PLA
369: PLX
370: STA $F2
371: STX $F4
372: LDY #$0001
373: LDA [$F2],Y
374: AND #$00FF
375: CMP $FF
376: BNE L160280
377: LDA #$00FF
378: BRA L16028C
379: L160280 INC $F0
380: L160282 LDA $F0
381: CMP L0301FF
382: BNE L160236
383: LDA #$0000
384: L16028C TAY
385: TSC
386: CLC
387: ADC #$0008
388: TCS
389: TYA
390: PLD
391: RTL
392:
393: L160296 ENT
394: PHD
395: TSC
396: SEC
397: SBC #$00F7
398: TCD
399: ADC #$00EE
400: TCS
401: STZ $F0
402: BRA L1602F1
403: L1602A5 LDA $F0
404: ASL
405: LDX #$0000
406: PHX
407: PHA
408: LDA #L047A8A
409: LDX #^L047A8A
410: JSL L2D0000
411: PLA
412: PLX
413: STA $F2
414: STX $F4
415: LDA [$F2]
416: AND #$00FF
417: CMP $FD
418: BNE L1602EF
419: LDA $F0
420: ASL
421: LDX #$0000
422: PHX
423: PHA
424: LDA #L047A8A
425: LDX #^L047A8A
426: JSL L2D0000
427: PLA
428: PLX
429: STA $F2
430: STX $F4
431: LDY #$0001
432: LDA [$F2],Y
433: AND #$00FF
434: CMP $FF
435: BNE L1602EF
436: LDA #$00FF
437: BRA L1602FB
438: L1602EF INC $F0
439: L1602F1 LDA $F0
440: CMP L030201
441: BNE L1602A5
442: LDA #$0000
443: L1602FB TAY
444: TSC
445: CLC
446: ADC #$0008
447: TCS
448: TYA
449: PLD
450: RTL
451:
452: L160305 ENT
453: PHD
454: TSC
455: SEC
456: SBC #$00FB
457: TCD
458: ADC #$00EC
459: TCS
460: LDAL L043986
461: AND #$00FF
462: STA $F4
463: LDAL L043987
464: AND #$00FF
465: STA $F2
466: STZ $F0
467: LDAL L043987
468: AND #$00FF
469: PHA
470: LDAL L043986
471: AND #$00FF
472: PHA
473: JSL L160227
474: PLY
475: PLY
476: TAY
477: BEQ L160346
478: LDA #$FFFF
479: STA L03007B
480: BRL L1604FD
481: L160346 STZ $EE
482: BRL L160489
483: L16034B LDA $EE
484: ASL
485: ASL
486: LDX #$0000
487: PHX
488: PHA
489: LDA #L04798A
490: LDX #^L04798A
491: JSL L2D0000
492: PLA
493: PLX
494: STA $F6
495: STX $F8
496: LDA [$F6]
497: AND #$00FF
498: CMP $F4
499: BNE L1603DB
500: LDA $EE
501: ASL
502: ASL
503: LDX #$0000
504: PHX
505: PHA
506: LDA #L04798A
507: LDX #^L04798A
508: JSL L2D0000
509: PLA
510: PLX
511: STA $F6
512: STX $F8
513: LDY #$0001
514: LDA [$F6],Y
515: AND #$00FF
516: CMP $F2
517: BNE L1603DB
518: LDA $EE
519: ASL
520: ASL
521: LDX #$0000
522: PHX
523: PHA
524: LDA #L04798A
525: LDX #^L04798A
526: JSL L2D0000
527: PLA
528: PLX
529: STA $F6
530: STX $F8
531: LDY #$0001
532: LDA [$F6],Y
533: AND #$00FF
534: EOR #$FFFF
535: INC
536: PHA
537: LDA $EE
538: ASL
539: ASL
540: LDX #$0000
541: PHX
542: PHA
543: LDA #L04798A
544: LDX #^L04798A
545: JSL L2D0000
546: PLA
547: PLX
548: STA $F6
549: STX $F8
550: PLA
551: SEP #$20
552: LDY #$0001
553: STA [$F6],Y
554: REP #$20
555: L1603DB LDA $EE
556: ASL
557: ASL
558: LDX #$0000
559: PHX
560: PHA
561: LDA #L04798A
562: LDX #^L04798A
563: JSL L2D0000
564: PLA
565: PLX
566: STA $F6
567: STX $F8
568: LDY #$0002
569: LDA [$F6],Y
570: AND #$00FF
571: CMP $F4
572: BEQ L160403
573: BRL L160487
574: L160403 LDA $EE
575: ASL
576: ASL
577: LDX #$0000
578: PHX
579: PHA
580: LDA #L04798A
581: LDX #^L04798A
582: JSL L2D0000
583: PLA
584: PLX
585: STA $F6
586: STX $F8
587: LDY #$0003
588: LDA [$F6],Y
589: AND #$00FF
590: CMP $F2
591: BNE L160487
592: LDA $EE
593: ASL
594: ASL
595: LDX #$0000
596: PHX
597: PHA
598: LDA #L04798A
599: LDX #^L04798A
600: JSL L2D0000
601: PLA
602: PLX
603: STA $F6
604: STX $F8
605: LDY #$0003
606: LDA [$F6],Y
607: AND #$00FF
608: EOR #$FFFF
609: INC
610: PHA
611: LDA $EE
612: ASL
613: ASL
614: LDX #$0000
615: PHX
616: PHA
617: LDA #L04798A
618: LDX #^L04798A
619: JSL L2D0000
620: PLA
621: PLX
622: STA $F6
623: STX $F8
624: PLA
625: SEP #$20
626: LDY #$0003
627: STA [$F6],Y
628: REP #$20
629: PEI $EE
630: PEA $0000
631: JSL L1600D0
632: PLY
633: PLY
634: PEI $EE
635: PEA $0001
636: JSL L1600D0
637: PLY
638: PLY
639: L160487 INC $EE
640: L160489 LDA $EE
641: CMP #$0040
642: BEQ L160493
643: BRL L16034B
644: L160493 LDA L0301FF
645: ASL
646: LDX #$0000
647: PHX
648: PHA
649: LDA #L047B8A
650: LDX #^L047B8A
651: JSL L2D0000
652: PLA
653: PLX
654: STA $F6
655: STX $F8
656: LDAL L043986
657: SEP #$20
658: STA [$F6]
659: REP #$20
660: LDA L0301FF
661: ASL
662: LDX #$0000
663: PHX
664: PHA
665: LDA #L047B8A
666: LDX #^L047B8A
667: JSL L2D0000
668: PLA
669: PLX
670: STA $F6
671: STX $F8
672: LDAL L043987
673: SEP #$20
674: LDY #$0001
675: STA [$F6],Y
676: REP #$20
677: INC L0301FF
678: LDA L0301FF
679: AND #$007F
680: STA L0301FF
681: LDA L0301FF
682: CMP #$000B
683: BCS L1604FD
684: LDA #$0027
685: CLC
686: ADC L0301FF
687: PHA
688: JSL L16004B
689: PLY
690: L1604FD TAY
691: TSC
692: CLC
693: ADC #$000E
694: TCS
695: TYA
696: PLD
697: RTL
698:
699: L160507 ENT
700: PHD
701: TSC
702: SEC
703: SBC #$00FB
704: TCD
705: ADC #$00F4
706: TCS
707: LDAL L043987
708: AND #$00FF
709: PHA
710: LDAL L043986
711: AND #$00FF
712: PHA
713: JSL L160296
714: PLY
715: PLY
716: TAY
717: BEQ L160534
718: LDA #$FFFF
719: STA L03007B
720: BRL L16058F
721: L160534 LDA L030201
722: ASL
723: LDX #$0000
724: PHX
725: PHA
726: LDA #L047A8A
727: LDX #^L047A8A
728: JSL L2D0000
729: PLA
730: PLX
731: STA $F6
732: STX $F8
733: LDAL L043986
734: SEP #$20
735: STA [$F6]
736: REP #$20
737: LDA L030201
738: ASL
739: LDX #$0000
740: PHX
741: PHA
742: LDA #L047A8A
743: LDX #^L047A8A
744: JSL L2D0000
745: PLA
746: PLX
747: STA $F6
748: STX $F8
749: LDAL L043987
750: SEP #$20
751: LDY #$0001
752: STA [$F6],Y
753: REP #$20
754: INC L030201
755: LDA L030201
756: AND #$007F
757: STA L030201
758: LDA #$FFFF
759: STA L03007B
760: L16058F TAY
761: TSC
762: CLC
763: ADC #$0006
764: TCS
765: TYA
766: PLD
767: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.