![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to surv1.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 surv1.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 surv1.L
12: lst off
13:
14: *-----------
15:
16: use surv1.E
17: use surv1.X
18:
19: *-----------
20:
21: L230000 ENT
22: PHB
23: LDA L03018D
24: SEP #$20
25: PHA
26: PLB
27: REP #$20
28: LDX #$0B50
29: LDY #$0080
30: L230010 LDA $1770,X
31: STAL $E12000,X
32: LDA $1772,X
33: STAL $E12002,X
34: LDA $1774,X
35: STAL $E12004,X
36: LDA $1776,X
37: STAL $E12006,X
38: LDA $1778,X
39: STAL $E12008,X
40: LDA $177A,X
41: STAL $E1200A,X
42: LDA $177C,X
43: STAL $E1200C,X
44: LDA $177E,X
45: STAL $E1200E,X
46: LDA $1780,X
47: STAL $E12010,X
48: LDA $1782,X
49: STAL $E12012,X
50: LDA $1784,X
51: STAL $E12014,X
52: LDA $1786,X
53: STAL $E12016,X
54: LDA $1788,X
55: STAL $E12018,X
56: LDA $178A,X
57: STAL $E1201A,X
58: LDA $178C,X
59: STAL $E1201C,X
60: LDA $178E,X
61: STAL $E1201E,X
62: LDA $1790,X
63: STAL $E12020,X
64: LDA $1792,X
65: STAL $E12022,X
66: LDA $1794,X
67: STAL $E12024,X
68: LDA $1796,X
69: STAL $E12026,X
70: LDA $1798,X
71: STAL $E12028,X
72: LDA $179A,X
73: STAL $E1202A,X
74: LDA $179C,X
75: STAL $E1202C,X
76: LDA $179E,X
77: STAL $E1202E,X
78: LDA $17A0,X
79: STAL $E12030,X
80: LDA $17A2,X
81: STAL $E12032,X
82: LDA $17A4,X
83: STAL $E12034,X
84: LDA $17A6,X
85: STAL $E12036,X
86: LDA $17A8,X
87: STAL $E12038,X
88: LDA $17AA,X
89: STAL $E1203A,X
90: LDA $17AC,X
91: STAL $E1203C,X
92: LDA $17AE,X
93: STAL $E1203E,X
94: LDA $17B0,X
95: STAL $E12040,X
96: LDA $17B2,X
97: STAL $E12042,X
98: LDA $17B4,X
99: STAL $E12044,X
100: LDA $17B6,X
101: STAL $E12046,X
102: LDA $17B8,X
103: STAL $E12048,X
104: LDA $17BA,X
105: STAL $E1204A,X
106: LDA $17BC,X
107: STAL $E1204C,X
108: LDA $17BE,X
109: STAL $E1204E,X
110: LDA $17C0,X
111: STAL $E12050,X
112: LDA $17C2,X
113: STAL $E12052,X
114: LDA $17C4,X
115: STAL $E12054,X
116: LDA $17C6,X
117: STAL $E12056,X
118: LDA $17C8,X
119: STAL $E12058,X
120: LDA $17CA,X
121: STAL $E1205A,X
122: LDA $17CC,X
123: STAL $E1205C,X
124: LDA $17CE,X
125: STAL $E1205E,X
126: LDA $17D0,X
127: STAL $E12060,X
128: LDA $17D2,X
129: STAL $E12062,X
130: LDA $17D4,X
131: STAL $E12064,X
132: LDA $17D6,X
133: STAL $E12066,X
134: LDA $17D8,X
135: STAL $E12068,X
136: LDA $17DA,X
137: STAL $E1206A,X
138: LDA $17DC,X
139: STAL $E1206C,X
140: LDA $17DE,X
141: STAL $E1206E,X
142: LDA $17E0,X
143: STAL $E12070,X
144: LDA $17E2,X
145: STAL $E12072,X
146: LDA $17E4,X
147: STAL $E12074,X
148: LDA $17E6,X
149: STAL $E12076,X
150: LDA $17E8,X
151: STAL $E12078,X
152: LDA $17EA,X
153: STAL $E1207A,X
154: LDA $17EC,X
155: STAL $E1207C,X
156: LDA $17EE,X
157: STAL $E1207E,X
158: TXA
159: CLC
160: ADC #$00A0
161: TAX
162: DEY
163: BEQ L2301DC
164: BRL L230010
165: L2301DC PLB
166: RTL
167:
168: L2301DE ENT
169: PHB
170: LDA L03018D
171: SEP #$20
172: PHA
173: PLB
174: REP #$20
175: LDX #$0B50
176: LDY #$0080
177: L2301EE LDA #$1111
178: STA $1770,X
179: STA $1772,X
180: STA $1774,X
181: STA $1776,X
182: STA $1778,X
183: STA $177A,X
184: STA $177C,X
185: STA $177E,X
186: STA $1780,X
187: STA $1782,X
188: STA $1784,X
189: STA $1786,X
190: STA $1788,X
191: STA $178A,X
192: STA $178C,X
193: STA $178E,X
194: STA $1790,X
195: STA $1792,X
196: STA $1794,X
197: STA $1796,X
198: STA $1798,X
199: STA $179A,X
200: STA $179C,X
201: STA $179E,X
202: STA $17A0,X
203: STA $17A2,X
204: STA $17A4,X
205: STA $17A6,X
206: STA $17A8,X
207: STA $17AA,X
208: STA $17AC,X
209: STA $17AE,X
210: STA $17B0,X
211: STA $17B2,X
212: STA $17B4,X
213: STA $17B6,X
214: STA $17B8,X
215: STA $17BA,X
216: STA $17BC,X
217: STA $17BE,X
218: STA $17C0,X
219: STA $17C2,X
220: STA $17C4,X
221: STA $17C6,X
222: STA $17C8,X
223: STA $17CA,X
224: STA $17CC,X
225: STA $17CE,X
226: STA $17D0,X
227: STA $17D2,X
228: STA $17D4,X
229: STA $17D6,X
230: STA $17D8,X
231: STA $17DA,X
232: STA $17DC,X
233: STA $17DE,X
234: STA $17E0,X
235: STA $17E2,X
236: STA $17E4,X
237: STA $17E6,X
238: STA $17E8,X
239: STA $17EA,X
240: STA $17EC,X
241: STA $17EE,X
242: TXA
243: CLC
244: ADC #$00A0
245: TAX
246: DEY
247: BEQ L2302BD
248: BRL L2301EE
249: L2302BD PLB
250: RTL
251:
252: L2302BF ENT
253: PHB
254: LDA L03018D
255: SEP #$20
256: PHA
257: PLB
258: REP #$20
259: LDX #$0B50
260: LDA #$0080
261: STA $00
262: L2302D1 LDY #$0040
263: L2302D4 LDA $1770,X
264: AND #$EEEE
265: STA $1770,X
266: INX
267: INX
268: DEY
269: BNE L2302D4
270: TXA
271: CLC
272: ADC #$0020
273: TAX
274: DEC $00
275: BNE L2302D1
276: PLB
277: RTL
278:
279: L2302EE ENT
280: LDAL L049668
281: STA L03022F
282: LDAL L04966A
283: STA L030231
284: LDAL L049664
285: STA L030233
286: LDAL L049666
287: STA L030235
288: RTL
289:
290: L23030B ENT
291: LDA L0300BF
292: EOR #$0001
293: STA L0300BF
294: LDA L03021F
295: CMP L03020F
296: BPL L230322
297: LDA #$0001
298: STA L0300BF
299: L230322 LDA L03018D
300: STA $06
301: LDA L03013B
302: LSR
303: STA $08
304: LDA L03013D
305: SEC
306: SBC #$0020
307: ASL
308: TAX
309: LDAL L0434EC,X
310: CLC
311: ADC L03018B
312: ADC $08
313: STA $04
314: STA $12
315: STZ L0300BD
316: LDX L03020B
317: CPX #$00EC
318: BMI L23037D
319: CPX #$0114
320: BPL L230357
321: BRL L2303CE
322: L230357 LDA L0300BF
323: BEQ L23035F
324: BRL L2303D4
325: L23035F LDA #^L04806C
326: STA $02
327: LDA #L04806C
328: STA $00
329: LDA #^L048050
330: STA $0C
331: LDA #L048050
332: STA $0A
333: LDA $12
334: CLC
335: ADC #$009D
336: STA $04
337: BRA L2303A6
338: L23037D LDA L0300BF
339: BNE L2303D4
340: LDA #^L04806C
341: STA $02
342: LDA #L04806C
343: CLC
344: ADC #$000E
345: STA $00
346: LDA #^L048050
347: STA $0C
348: LDA #L048050
349: CLC
350: ADC #$000E
351: STA $0A
352: LDA $12
353: CLC
354: ADC #$00A5
355: STA $04
356: L2303A6 LDY #$0007
357: L2303A9 LDA [$04]
358: AND [$0A]
359: ORA [$00]
360: STA [$04]
361: LDA $04
362: CLC
363: ADC #$00A0
364: STA $04
365: LDA $0A
366: CLC
367: ADC #$0002
368: STA $0A
369: LDA $00
370: CLC
371: ADC #$0002
372: STA $00
373: DEY
374: BNE L2303A9
375: BRA L2303D4
376: L2303CE LDA L0300BF
377: STA L0300BD
378: L2303D4 LDA #^L047F78
379: STA $02
380: LDA L0300BD
381: ASL
382: TAX
383: LDAL L043064,X
384: CLC
385: ADC #L047F78
386: STA $00
387: BCC L2303EC
388: INC $02
389: L2303EC LDA #^L047FE4
390: STA $0C
391: LDA L0300BD
392: ASL
393: TAX
394: LDAL L043064,X
395: CLC
396: ADC #L047FE4
397: STA $0A
398: BCC L230404
399: INC $0C
400: L230404 LDA $12
401: STA $04
402: LDA #$0009
403: STA $10
404: L23040D LDY #$0004
405: L230410 LDA [$04],Y
406: AND [$0A],Y
407: ORA [$00],Y
408: STA [$04],Y
409: DEY
410: DEY
411: BPL L230410
412: LDA $04
413: CLC
414: ADC #$00A0
415: STA $04
416: LDA $0A
417: CLC
418: ADC #$0006
419: STA $0A
420: LDA $00
421: CLC
422: ADC #$0006
423: STA $00
424: DEC $10
425: BNE L23040D
426: RTL
427:
428: L230439 ENT
429: LDA #$0090
430: SEC
431: SBC L030223
432: ASL
433: TAX
434: LDAL L0434EC,X
435: CLC
436: ADC #$0010
437: TAX
438: PHB
439: LDA L03018D
440: SEP #$20
441: PHA
442: PLB
443: REP #$20
444: LDA #$8888
445: STA $1770,X
446: STA $1772,X
447: STA $1810,X
448: STA $1812,X
449: STA $17EE,X
450: STA $17EC,X
451: STA $188E,X
452: STA $188C,X
453: LDAL L030227
454: ASL
455: BEQ L23048E
456: TAY
457: LDX #$57A8
458: L23047B LDA #$8888
459: STA $1770,X
460: INX
461: INX
462: LDA #$1188
463: STA $1770,X
464: INX
465: INX
466: DEY
467: BNE L23047B
468: L23048E PLB
469: RTL
470:
471: L230490 ENT
472: LDA L0300B7
473: LSR
474: LSR
475: BNE L230498
476: RTL
477:
478: L230498 STA $10
479: PHB
480: LDA L03018D
481: SEP #$20
482: PHA
483: PLB
484: REP #$20
485: LDY $10
486: LDX #$0C90
487: L2304A9 LDA #$8188
488: STA $1770,X
489: STA $1810,X
490: STA $1772,X
491: STA $1812,X
492: TXA
493: CLC
494: ADC #$0005
495: TAX
496: DEY
497: BNE L2304A9
498: DEX
499: LDA #$1188
500: STA $1630,X
501: STA $1950,X
502: LDA #$8118
503: STA $16D0,X
504: STA $18B0,X
505: LDA #$8888
506: STA $1770,X
507: STA $1810,X
508: LDY $10
509: LDX #$0D0C
510: L2304E2 LDA #$8818
511: STA $1770,X
512: STA $1810,X
513: STA $1772,X
514: STA $1812,X
515: TXA
516: SEC
517: SBC #$0005
518: TAX
519: DEY
520: BNE L2304E2
521: INX
522: INX
523: INX
524: LDA #$8811
525: STA $1630,X
526: STA $1950,X
527: LDA #$8118
528: STA $16D0,X
529: STA $18B0,X
530: LDA #$8888
531: STA $1770,X
532: STA $1810,X
533: PLB
534: RTL
535:
536: LDY #$0000
537: SEP #$20
538: LDAL KBDSTROBE
539: BPL L230526
540: TAY
541: L230526 REP #$20
542: TYA
543: AND #$007F
544: RTL
545:
546: PHD
547: TSC
548: SEC
549: SBC #$00FB
550: TCD
551: ADC #$00F0
552: TCS
553: LDA L03013B
554: SEC
555: SBC #$00A0
556: LSR
557: LSR
558: LSR
559: LSR
560: LSR
561: STA $F4
562: LDA L03013D
563: CMP #$0055
564: BEQ L230574
565: BCC L230574
566: LDA L03013D
567: SEC
568: SBC #$0055
569: LSR
570: LSR
571: LSR
572: LSR
573: STA $F2
574: LDA L030223
575: SEC
576: SBC $F2
577: STA L030223
578: LDA L030223
579: AND #$8000
580: TAY
581: BEQ L230572
582: STZ L030223
583: L230572 BRA L23059A
584: L230574 LDA #$0055
585: SEC
586: SBC L03013D
587: LSR
588: LSR
589: LSR
590: LSR
591: STA $F2
592: LDA L030223
593: CLC
594: ADC $F2
595: STA L030223
596: LDA L030223
597: CMP #$007F
598: BEQ L23059A
599: BCC L23059A
600: LDA #$007F
601: STA L030223
602: L23059A LDA L03020B
603: CLC
604: ADC $F4
605: STA L03020B
606: LDA L03020B
607: AND #$01FF
608: STA L03020B
609: TSC
610: CLC
611: ADC #$000A
612: TCS
613: PLD
614: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.