![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dig.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 dig.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 dig.L
12: lst off
13:
14: *-----------
15:
16: use dig.X
17:
18: *-----------
19:
20: use 4/Sound.Macs
21: use 4/Util.Macs
22:
23: *-----------
24:
25: L120000 ENT
26: PHD
27: TSC
28: SEC
29: SBC #$00FB
30: TCD
31: ADC #$00F4
32: TCS
33: PHA
34: PEA $0000
35: _FFSoundDoneStatus
36: BCS L12001B
37: LDA #$0000
38: L12001B STAL L030169
39: PLA
40: TAY
41: BEQ L120028
42: LDA #$0000
43: BRA L12002B
44: L120028 LDA #$0001
45: L12002B TAY
46: TSC
47: CLC
48: ADC #$0006
49: TCS
50: TYA
51: PLD
52: RTL
53:
54: L120035 ENT
55: PHD
56: TSC
57: SEC
58: SBC #$00EF
59: TCD
60: ADC #$00E8
61: TCS
62: LDA $F5
63: BEQ L120093
64: LDA $F5
65: PHA
66: LDA #$0012
67: CLC
68: JSL L2D018C
69: PLA
70: LDX #$0000
71: PHX
72: PHA
73: LDA #L0415F0
74: LDX #^L0415F0
75: JSL L2D0000
76: LDA $F5
77: SEC
78: SBC #$0001
79: PHA
80: LDA #$0012
81: CLC
82: JSL L2D018C
83: PLA
84: LDX #$0000
85: PHX
86: PHA
87: LDA #L0415F0
88: LDX #^L0415F0
89: JSL L2D0000
90: PLA
91: PLX
92: STA $EA
93: STX $EC
94: PLA
95: PLX
96: LDY #$000E
97: PHA
98: TXA
99: STA [$EA],Y
100: PLA
101: LDY #$000C
102: STA [$EA],Y
103: L120093 LDA $F5
104: PHA
105: LDA #$0012
106: CLC
107: JSL L2D018C
108: PLA
109: LDX #$0000
110: PHX
111: PHA
112: LDA #L0415F0
113: LDX #^L0415F0
114: JSL L2D0000
115: PLA
116: PLX
117: STA $EA
118: STX $EC
119: LDX $FB
120: LDA $F9
121: LDY #$0002
122: PHA
123: TXA
124: STA [$EA],Y
125: PLA
126: STA [$EA]
127: LDA #$0100
128: PHA
129: LDA $FD
130: CLC
131: JSL L2D000B
132: PLY
133: PHA
134: LDA $F5
135: PHA
136: LDA #$0012
137: CLC
138: JSL L2D018C
139: PLA
140: LDX #$0000
141: PHX
142: PHA
143: LDA #L0415F0
144: LDX #^L0415F0
145: JSL L2D0000
146: PLA
147: PLX
148: STA $EA
149: STX $EC
150: PLA
151: LDY #$0004
152: STA [$EA],Y
153: LDA $F5
154: PHA
155: LDA #$0012
156: CLC
157: JSL L2D018C
158: PLA
159: LDX #$0000
160: PHX
161: PHA
162: LDA #L0415F0
163: LDX #^L0415F0
164: JSL L2D0000
165: PLA
166: PLX
167: STA $EA
168: STX $EC
169: LDA $F7
170: LDY #$0006
171: STA [$EA],Y
172: LDA $F5
173: PHA
174: LDA #$0012
175: CLC
176: JSL L2D018C
177: PLA
178: LDX #$0000
179: PHX
180: PHA
181: LDA #L0415F0
182: LDX #^L0415F0
183: JSL L2D0000
184: PLA
185: PLX
186: STA $EA
187: STX $EC
188: LDA #$0000
189: LDY #$0008
190: STA [$EA],Y
191: LDA $F5
192: PHA
193: LDA #$0012
194: CLC
195: JSL L2D018C
196: PLA
197: LDX #$0000
198: PHX
199: PHA
200: LDA #L0415F0
201: LDX #^L0415F0
202: JSL L2D0000
203: PLA
204: PLX
205: STA $EA
206: STX $EC
207: LDA #$0000
208: LDY #$000A
209: STA [$EA],Y
210: LDA $F5
211: PHA
212: LDA #$0012
213: CLC
214: JSL L2D018C
215: PLA
216: LDX #$0000
217: PHX
218: PHA
219: LDA #L0415F0
220: LDX #^L0415F0
221: JSL L2D0000
222: PLA
223: PLX
224: STA $EA
225: STX $EC
226: LDX #$0000
227: LDA #$0000
228: LDY #$000E
229: PHA
230: TXA
231: STA [$EA],Y
232: PLA
233: LDY #$000C
234: STA [$EA],Y
235: LDA $F5
236: PHA
237: LDA #$0012
238: CLC
239: JSL L2D018C
240: PLA
241: LDX #$0000
242: PHX
243: PHA
244: LDA #L0415F0
245: LDX #^L0415F0
246: JSL L2D0000
247: PLA
248: PLX
249: STA $EA
250: STX $EC
251: LDA $FF
252: LDY #$0010
253: STA [$EA],Y
254: TSC
255: CLC
256: ADC #$0006
257: TCS
258: PLD
259: RTL
260:
261: L1201D4 ENT
262: PHD
263: TSC
264: SEC
265: SBC #$00FB
266: TCD
267: ADC #$00F4
268: TCS
269: PEA $0001
270: _FFStopSound
271: BCS L1201EE
272: LDA #$0000
273: L1201EE STAL L030169
274: PEA $0001
275: PEA ^L0415F0
276: PEA L0415F0
277: _FFStartSound
278: BCS L120207
279: LDA #$0000
280: L120207 STAL L030169
281: TSC
282: CLC
283: ADC #$0006
284: TCS
285: PLD
286: RTL
287:
288: L120213 ENT
289: PHD
290: TSC
291: SEC
292: SBC #$00F9
293: TCD
294: ADC #$00E8
295: TCS
296: LDA $FF
297: LSR
298: LSR
299: LSR
300: LSR
301: PHA
302: LDA #$0100
303: CLC
304: JSL L2D018C
305: PLA
306: LDX #$0000
307: PHX
308: PHA
309: LDA $FF
310: AND #$000F
311: PHA
312: LDA #$0A00
313: CLC
314: JSL L2D018C
315: PLA
316: LDX #$0000
317: PHX
318: PHA
319: LDX L030179
320: LDA L030177
321: JSL L2D0000
322: PLA
323: PLX
324: JSL L2D0000
325: PLA
326: PLX
327: STX $EC
328: STA $EA
329: LDX $EC
330: LDA $EA
331: PHA
332: TXA
333: STAL L0415F2
334: PLA
335: STAL L0415F0
336: LDA #L0415F0
337: LDX #^L0415F0
338: STA $F4
339: STX $F6
340: LDA #$000A
341: LDY #$0004
342: STA [$F4],Y
343: LDA #L0415F0
344: LDX #^L0415F0
345: STA $F4
346: STX $F6
347: LDA #$0100
348: LDY #$0006
349: STA [$F4],Y
350: LDA #L0415F0
351: LDX #^L0415F0
352: STA $F4
353: STX $F6
354: LDA #$0000
355: LDY #$0008
356: STA [$F4],Y
357: LDA #L0415F0
358: LDX #^L0415F0
359: STA $F4
360: STX $F6
361: LDA #$0004
362: LDY #$000A
363: STA [$F4],Y
364: LDA #L0415F0
365: LDX #^L0415F0
366: STA $F4
367: STX $F6
368: LDX #$0000
369: LDA #$0000
370: LDY #$000E
371: PHA
372: TXA
373: STA [$F4],Y
374: PLA
375: LDY #$000C
376: STA [$F4],Y
377: LDA #L0415F0
378: LDX #^L0415F0
379: STA $F4
380: STX $F6
381: LDA #$008C
382: LDY #$0010
383: STA [$F4],Y
384: L1202E3 JSL L120000
385: TAY
386: BEQ L1202EC
387: BRA L1202E3
388: L1202EC PEA $0001
389: _FFStopSound
390: BCS L1202FB
391: LDA #$0000
392: L1202FB STAL L030169
393: PEA $0001
394: PEA ^L0415F0
395: PEA L0415F0
396: _FFStartSound
397: BCS L120314
398: LDA #$0000
399: L120314 STAL L030169
400: TSC
401: CLC
402: ADC #$0010
403: TCS
404: PLD
405: RTL
406:
407: L120320 ENT
408: PHD
409: TSC
410: SEC
411: SBC #$00FB
412: TCD
413: ADC #$00F4
414: TCS
415: PEA $0001
416: _FFStopSound
417: BCS L12033A
418: LDA #$0000
419: L12033A STAL L030169
420: TSC
421: CLC
422: ADC #$0006
423: TCS
424: PLD
425: RTL
426:
427: L120346 ENT
428: PHD
429: TSC
430: SEC
431: SBC #$00F9
432: TCD
433: ADC #$00F2
434: TCS
435: LDA $FF
436: STA L030049
437: TSC
438: CLC
439: ADC #$0006
440: TCS
441: PLD
442: RTL
443:
444: L12035E ENT
445: PHD
446: TSC
447: SEC
448: SBC #$00ED
449: TCD
450: ADC #$00D4
451: TCS
452: STZ $DA
453: LDX $FD
454: LDA $FB
455: STX $D8
456: STA $D6
457: LDA #$0080
458: STA L030047
459: L120379 LDX $F5
460: LDA $F3
461: PHX
462: PHA
463: CLC
464: ADC #$0002
465: STA $F3
466: LDA $F5
467: BCC L12038A
468: INC
469: L12038A STA $F5
470: PLA
471: PLX
472: STA $E8
473: STX $EA
474: LDA [$E8]
475: STA $E6
476: TAY
477: BNE L12039C
478: BRL L1204F6
479: L12039C LDA $E6
480: SEC
481: SBC #$C001
482: BVS L1203A7
483: EOR #$8000
484: L1203A7 BMI L1203BE
485: LDA $E6
486: AND #$00FF
487: PHA
488: LDA L030049
489: CLC
490: JSL L2D000B
491: PLY
492: STA L030047
493: BRL L1204F3
494: L1203BE LDA $E6
495: SEC
496: SBC #$0000
497: BVS L1203C9
498: EOR #$8000
499: L1203C9 BPL L1203CE
500: BRL L1204D3
501: L1203CE LDA $E6
502: AND #$FFFE
503: STA $E6
504: LDA $E6
505: EOR #$FFFF
506: INC
507: STA $E6
508: LDA $E6
509: SEC
510: SBC #$0008
511: STA $E6
512: LDA $E6
513: AND #$FFFE
514: LSR
515: LSR
516: STA $E2
517: LDA $FF
518: BEQ L120420
519: LDA $E2
520: LSR
521: LDX #$0000
522: STX $EC
523: ASL
524: ROL $EC
525: ASL
526: ROL $EC
527: LDX $EC
528: PHX
529: PHA
530: LDX $D8
531: LDA $D6
532: JSL L2D0000
533: PLA
534: PLX
535: STA $E8
536: STX $EA
537: LDY #$0002
538: LDA [$E8],Y
539: TAX
540: LDA [$E8]
541: STX $E0
542: STA $DE
543: BRA L120457
544: L120420 LDA $E2
545: LDX #$0000
546: STX $EC
547: ASL
548: ROL $EC
549: ASL
550: ROL $EC
551: LDX $EC
552: PHX
553: PHA
554: LDX $F9
555: LDA $F7
556: JSL L2D0000
557: PLA
558: PLX
559: STA $E8
560: STX $EA
561: LDY #$0002
562: LDA [$E8],Y
563: TAX
564: LDA [$E8]
565: PHX
566: PHA
567: LDX $FD
568: LDA $FB
569: JSL L2D0000
570: PLA
571: PLX
572: STX $E0
573: STA $DE
574: L120457 LDA $E2
575: LDX #$0000
576: STX $EC
577: ASL
578: ROL $EC
579: ASL
580: ROL $EC
581: LDX $EC
582: PHX
583: PHA
584: LDX $F9
585: LDA $F7
586: JSL L2D0000
587: PLA
588: PLX
589: STA $E8
590: STX $EA
591: LDY #$0002
592: LDA [$E8],Y
593: TAX
594: LDA [$E8]
595: PHX
596: PHA
597: LDA $E2
598: CLC
599: ADC #$0001
600: LDX #$0000
601: STX $EC
602: ASL
603: ROL $EC
604: ASL
605: ROL $EC
606: LDX $EC
607: PHX
608: PHA
609: LDX $F9
610: LDA $F7
611: JSL L2D0000
612: PLA
613: PLX
614: STA $E8
615: STX $EA
616: LDY #$0002
617: LDA [$E8],Y
618: TAX
619: LDA [$E8]
620: JSL L2D0181
621: PLA
622: PLX
623: STA $DC
624: PEA $0080
625: PEI $DC
626: PEI $E0
627: PEI $DE
628: LDA L030047
629: PHA
630: LDA $DA
631: INC $DA
632: PHA
633: JSL L120035
634: TAY
635: TSC
636: CLC
637: ADC #$000C
638: TCS
639: TYA
640: BRA L1204F3
641: L1204D3 PEA $0000
642: PEI $E6
643: PEA $0000
644: PEA $0000
645: LDA L030047
646: PHA
647: LDA $DA
648: INC $DA
649: PHA
650: JSL L120035
651: TAY
652: TSC
653: CLC
654: ADC #$000C
655: TCS
656: TYA
657: L1204F3 BRL L120379
658: L1204F6 JSL L1201D4
659: TSC
660: CLC
661: ADC #$0018
662: TCS
663: PLD
664: RTL
665:
666: L120502 ENT
667: PHD
668: TSC
669: SEC
670: SBC #$00EF
671: TCD
672: ADC #$00E8
673: TCS
674: PEA $0000
675: PEI $FF
676: PEI $FD
677: PEI $FB
678: PEI $F9
679: PEI $F7
680: PEI $F5
681: JSL L12035E
682: TAY
683: TSC
684: CLC
685: ADC #$000E
686: TCS
687: TYA
688: TSC
689: CLC
690: ADC #$0006
691: TCS
692: PLD
693: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.