![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to survol.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 survol.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 survol.L
12: lst off
13:
14: *-----------
15:
16: use survol.E
17: use survol.X
18:
19: *-----------
20:
21: L240000 ENT
22: PHD
23: TSC
24: SEC
25: SBC #$00FB
26: TCD
27: ADC #$00EE
28: TCS
29: JSL L2301DE
30: LDAL BUTN0
31: STA $F4
32: LDA $F4
33: AND #$0080
34: TAY
35: BEQ L240031
36: LDA L030227
37: CMP #$0008
38: BCS L240031
39: INC L030227
40: LDA L030227
41: PHA
42: JSL L1301BA
43: PLY
44: L240031 LDA $F4
45: AND #$8000
46: TAY
47: BEQ L24004A
48: LDA L030227
49: BEQ L24004A
50: DEC L030227
51: LDA L030227
52: PHA
53: JSL L1301BA
54: PLY
55: L24004A LDA L03013B
56: SEC
57: SBC #$00A0
58: BMI L240064
59: LSR
60: LSR
61: LSR
62: LSR
63: LSR
64: CLC
65: ADC L03020B
66: AND #$01FF
67: STA L03020B
68: BRA L24007E
69: L240064 LDA #$00A0
70: SEC
71: SBC L03013B
72: LSR
73: LSR
74: LSR
75: LSR
76: LSR
77: STA $F2
78: LDA L03020B
79: SEC
80: SBC $F2
81: AND #$01FF
82: STA L03020B
83: L24007E LDA L03013D
84: SEC
85: SBC #$0055
86: BMI L24009D
87: LSR
88: LSR
89: LSR
90: LSR
91: STA $F0
92: LDA L030223
93: SEC
94: SBC $F0
95: BPL L240098
96: LDA #$0000
97: L240098 STA L030223
98: BRA L2400B7
99: L24009D LDA #$0055
100: SEC
101: SBC L03013D
102: LSR
103: LSR
104: LSR
105: LSR
106: CLC
107: ADC L030223
108: CMP #$0080
109: BMI L2400B4
110: LDA #$007F
111: L2400B4 STA L030223
112: L2400B7 LDA L030223
113: LSR
114: CLC
115: ADC #$0020
116: STA L030225
117: JSL L240229
118: PEA $FFFF
119: JSL L260826
120: PLY
121: JSL L23030B
122: JSL L230439
123: JSL L230490
124: JSL L230000
125: LDA L0300B1
126: BNE L2400E6
127: BRL L240143
128: L2400E6 LDA L03020B
129: LDX #$0000
130: PHX
131: PHA
132: LDAL L04964A
133: TAX
134: LDAL L049648
135: JSL L2D0000
136: PLA
137: PLX
138: STA $F6
139: STX $F8
140: LDA [$F6]
141: AND #$00FF
142: CLC
143: ADC #$0024
144: CMP L030223
145: BEQ L24011B
146: BCC L24011B
147: LDA L0300B7
148: BEQ L240119
149: DEC L0300B7
150: L240119 BRA L24011E
151: L24011B INC L0300B7
152: L24011E LDA L0300B7
153: CMP #$0038
154: BNE L240143
155: JSL L260768
156: JSL L1800B7
157: STZ L03015F
158: LDA #L1E0118
159: LDX #^L1E0118
160: STX L030002
161: STA L030000
162: LDA #$0006
163: STA L03015D
164: L240143 LDA L0300C7
165: BNE L24014C
166: JSL L180000
167: L24014C TSC
168: CLC
169: ADC #$000C
170: TCS
171: PLD
172: RTL
173:
174: L240154 ENT
175: LDAL L049648
176: TAX
177: LDAL L04964A
178: TAY
179: LDAL L04964C
180: STAL L049648
181: LDAL L04964E
182: STAL L04964A
183: LDAL L049650
184: STAL L04964C
185: LDAL L049652
186: STAL L04964E
187: LDAL L049654
188: STAL L049650
189: LDAL L049656
190: STAL L049652
191: LDAL L049658
192: STAL L049654
193: LDAL L04965A
194: STAL L049656
195: LDAL L04965C
196: STAL L049658
197: LDAL L04965E
198: STAL L04965A
199: LDAL L049660
200: STAL L04965C
201: LDAL L049662
202: STAL L04965E
203: LDAL L049664
204: STAL L049660
205: LDAL L049666
206: STAL L049662
207: LDAL L049668
208: STAL L049664
209: LDAL L04966A
210: STAL L049666
211: TXA
212: STAL L049668
213: TYA
214: STAL L04966A
215: LDAL L04966E
216: STAL L04966C
217: LDAL L049670
218: STAL L04966E
219: LDAL L049672
220: STAL L049670
221: LDAL L049674
222: STAL L049672
223: LDAL L049676
224: STAL L049674
225: LDAL L049678
226: STAL L049676
227: LDAL L04967A
228: STAL L049678
229: LDAL L04967C
230: STAL L04967A
231: RTL
232:
233: L240229 ENT
234: LDA #$7F7F
235: LDX #$000E
236: L24022F STAL L050000,X
237: STAL L050020,X
238: STAL L050040,X
239: STAL L050060,X
240: STAL L050010,X
241: STAL L050030,X
242: STAL L050050,X
243: STAL L050070,X
244: DEX
245: DEX
246: BPL L24022F
247: RTL
248:
249: L240254 ENT
250: LDA L030231
251: STA $02
252: STA $06
253: LDA L03022F
254: STA $00
255: SEC
256: SBC #$0004
257: STA $04
258: BCS L24026A
259: DEC $06
260: L24026A LDY #$01FC
261: SEP #$20
262: L24026F LDA [$00],Y
263: STA $18
264: LDA [$04],Y
265: STA $10
266: CLC
267: ADC $18
268: LSR
269: STA $14
270: CLC
271: ADC $18
272: LSR
273: DEY
274: STA [$00],Y
275: DEY
276: LDA $14
277: STA [$00],Y
278: DEY
279: CLC
280: ADC $10
281: LSR
282: STA [$00],Y
283: DEY
284: BNE L24026F
285: LDA [$00]
286: STA $18
287: LDY #$01FC
288: LDA [$00],Y
289: STA $10
290: CLC
291: ADC $18
292: LSR
293: LDY #$01FE
294: STA [$00],Y
295: STA $14
296: CLC
297: ADC $10
298: LSR
299: LDY #$01FD
300: STA [$00],Y
301: LDA $18
302: CLC
303: ADC $14
304: LSR
305: LDY #$01FF
306: STA [$00],Y
307: REP #$20
308: LDA #$FFFF
309: STA L030221
310: RTL
311:
312: LDA L030231
313: STA $02
314: STA $06
315: LDA L03022F
316: CLC
317: ADC L0300CB
318: STA $00
319: BCC L2402DA
320: INC $02
321: L2402DA SEC
322: SBC #$0004
323: STA $04
324: BCS L2402E4
325: DEC $06
326: L2402E4 LDY L0300C3
327: SEP #$20
328: L2402E9 LDA [$00],Y
329: STA $18
330: LDA [$04],Y
331: STA $10
332: CLC
333: ADC $18
334: LSR
335: STA $14
336: CLC
337: ADC $18
338: LSR
339: DEY
340: STA [$00],Y
341: DEY
342: LDA $14
343: STA [$00],Y
344: DEY
345: CLC
346: ADC $10
347: LSR
348: STA [$00],Y
349: DEY
350: BNE L2402E9
351: REP #$20
352: LDA #$FFFF
353: STA L030221
354: RTL
355:
356: L240316 ENT
357: LDA L030231
358: STA $02
359: LDA L03022F
360: STA $00
361: LDX L030217
362: LDY #$0000
363: L240326 JSL L0C0000
364: SEP #$20
365: AND L030219
366: CLC
367: ADC L03021B
368: STA [$00],Y
369: REP #$20
370: TYA
371: CLC
372: ADC L030215
373: TAY
374: DEX
375: BNE L240326
376: LDA L030215
377: STA $04
378: L240345 CMP #$0008
379: BMI L2403A2
380: LSR
381: STA $08
382: LDA #$0201
383: SEC
384: SBC $04
385: STA $06
386: STZ $0E
387: LDA $08
388: STA $0C
389: LDA $04
390: STA $0A
391: L24035F LDA L03023F
392: LDX L030241
393: JSL L2D08A1
394: SEP #$20
395: ASL
396: LDY $0E
397: CLC
398: ADC [$00],Y
399: LDY $0A
400: ADC [$00],Y
401: LSR
402: LDY $0C
403: STA [$00],Y
404: REP #$20
405: LDA $0A
406: CLC
407: ADC $04
408: AND #$01FF
409: STA $0A
410: LDA $0C
411: CLC
412: ADC $04
413: AND #$01FF
414: STA $0C
415: LDA $0E
416: CLC
417: ADC $04
418: STA $0E
419: CMP $06
420: BMI L24035F
421: LDA $04
422: LSR
423: STA $04
424: BRA L240345
425: L2403A2 LDA #$0000
426: STA L030221
427: RTL
428:
429: L2403A9 ENT
430: LDA L030231
431: STA $02
432: LDA L030235
433: STA $14
434: LDA L03022F
435: STA $00
436: LDA L030233
437: STA $12
438: LDX L030217
439: STX $18
440: LDY #$0000
441: L2403C5 JSL L0C0000
442: AND #$000F
443: SEC
444: SBC #$0008
445: AND #$00FF
446: LDX #$0000
447: SEP #$20
448: STA $16
449: LDA [$12],Y
450: SEC
451: SBC L0300B5
452: CLC
453: ADC $16
454: TAX
455: LDAL L04306C,X
456: CLC
457: ADC L03021B
458: STA [$00],Y
459: REP #$20
460: TYA
461: CLC
462: ADC L030215
463: TAY
464: DEC $18
465: BNE L2403C5
466: LDA L030215
467: STA $04
468: L2403FF CMP #$0008
469: BMI L24045C
470: LSR
471: STA $08
472: LDA #$0201
473: SEC
474: SBC $04
475: STA $06
476: STZ $1E
477: LDA $08
478: STA $1C
479: LDA $04
480: STA $1A
481: L240419 LDA L03023F
482: LDX L030241
483: JSL L2D08A1
484: SEP #$20
485: ASL
486: LDY $1E
487: CLC
488: ADC [$00],Y
489: LDY $1A
490: ADC [$00],Y
491: LSR
492: LDY $1C
493: STA [$00],Y
494: REP #$20
495: LDA $1A
496: CLC
497: ADC $04
498: AND #$01FF
499: STA $1A
500: LDA $1C
501: CLC
502: ADC $04
503: AND #$01FF
504: STA $1C
505: LDA $1E
506: CLC
507: ADC $04
508: STA $1E
509: CMP $06
510: BMI L240419
511: LDA $04
512: LSR
513: STA $04
514: BRA L2403FF
515: L24045C LDA L03023F
516: LDX L030241
517: JSL L2D08A1
518: ADC L0300BB
519: AND #$00FF
520: STA L0300BB
521: STAL L04967C
522: LDA #$0000
523: STA L030221
524: RTL
525:
526: L24047A ENT
527: PHD
528: TSC
529: SEC
530: SBC #$00F9
531: TCD
532: ADC #$00D2
533: TCS
534: STZ $EC
535: STZ $EA
536: STZ $E8
537: LDA L0300D5
538: AND #$0FFF
539: LSR
540: LSR
541: STA $F2
542: LDA L0300D6
543: LSR
544: LSR
545: AND #$003F
546: INC
547: STA $F0
548: LDA L03018D
549: STA $DC
550: LDA L03018B
551: CLC
552: ADC #$0050
553: STA $DA
554: LDA $FF
555: ASL
556: TAX
557: LDAL L04966C,X
558: ASL
559: ASL
560: ASL
561: CLC
562: ADC L03020B
563: AND #$01FF
564: STA $D6
565: STA $D8
566: ASL
567: ASL
568: ASL
569: ASL
570: ASL
571: ASL
572: ASL
573: STA $EE
574: LDA $FF
575: ASL
576: ASL
577: LDX #$0000
578: PHX
579: PHA
580: LDA #L049648
581: LDX #^L049648
582: JSL L2D0000
583: PLA
584: PLX
585: STA $F4
586: STX $F6
587: LDY #$0002
588: LDA [$F4],Y
589: TAX
590: LDA [$F4]
591: STX $E4
592: STA $E2
593: LDA #L050040
594: LDX #^L050040
595: STX $E0
596: STA $DE
597: LDA $F0
598: STA $E6
599: L240500 LDY $D6
600: LDA #$0000
601: SEP #$20
602: LDA [$E2],Y
603: TAX
604: LDAL L0492A8,X
605: CLC
606: ADC L030225
607: BCC L24051A
608: LDA #$FF
609: STA [$DE]
610: BRA L240535
611: L24051A BPL L240535
612: CMP [$DE]
613: BMI L240535
614: STA [$DE]
615: REP #$20
616: AND #$007F
617: ASL
618: TAX
619: LDAL L04367E,X
620: TAY
621: LDA #$00EE
622: SEP #$20
623: STA [$DA],Y
624: L240535 REP #$20
625: INC $DA
626: LDA $EE
627: CLC
628: ADC $F2
629: STA $EE
630: XBA
631: ROL
632: AND #$01FF
633: STA $D6
634: INC $DE
635: DEC $E6
636: BNE L240500
637: LDA L03018D
638: STA $DC
639: LDA L03018B
640: CLC
641: ADC #$0050
642: STA $DA
643: LDA $D8
644: ASL
645: ASL
646: ASL
647: ASL
648: ASL
649: ASL
650: ASL
651: STA $EE
652: LDA #L050040
653: LDX #^L050040
654: STX $E0
655: STA $DE
656: LDA $D8
657: STA $D6
658: LDA $F0
659: STA $E6
660: L240578 LDY $D6
661: LDA #$0000
662: SEP #$20
663: LDA [$E2],Y
664: TAX
665: LDAL L0492A8,X
666: CLC
667: ADC L030225
668: BCC L240592
669: LDA #$FF
670: STA [$DE]
671: BRA L2405AD
672: L240592 BPL L2405AD
673: CMP [$DE]
674: BMI L2405AD
675: STA [$DE]
676: REP #$20
677: AND #$007F
678: ASL
679: TAX
680: LDAL L04367E,X
681: TAY
682: LDA #$00EE
683: SEP #$20
684: STA [$DA],Y
685: L2405AD REP #$20
686: DEC $DA
687: LDA $EE
688: SEC
689: SBC $F2
690: STA $EE
691: XBA
692: ROL
693: AND #$01FF
694: STA $D6
695: DEC $DE
696: DEC $E6
697: BNE L240578
698: TSC
699: CLC
700: ADC #$0026
701: TCS
702: PLD
703: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.