![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sonspe.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 sonspe.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 sonspe.L
12: lst off
13:
14: *-----------
15:
16: use sonspe.X
17:
18: *-----------
19:
20: use 4/Sound.Macs
21: use 4/Util.Macs
22:
23: *-----------
24:
25: L130000 ENT
26: PHD
27: TSC
28: SEC
29: SBC #$00FB
30: TCD
31: ADC #$00F4
32: TCS
33: PEA ^L0415C9
34: PEA L0415C9
35: JSL L080262
36: PLY
37: PLY
38: STX L03004D
39: STA L03004B
40: PEA ^L0415DD
41: PEA L0415DD
42: JSL L080262
43: PLY
44: PLY
45: STX L030051
46: STA L03004F
47: LDX #$0000
48: LDA #$0100
49: PHX
50: PHA
51: LDX L030051
52: LDA L03004F
53: PHX
54: PHA
55: JSL L0703AC
56: PLY
57: PLY
58: SEC
59: JSL L2D0090
60: PLY
61: PLY
62: STA L030055
63: LDX L03004D
64: LDA L03004B
65: PHX
66: PHA
67: JSL L0703AC
68: PLY
69: PLY
70: STA L030053
71: TSC
72: CLC
73: ADC #$0006
74: TCS
75: PLD
76: RTL
77:
78: L130068 ENT
79: PHD
80: TSC
81: SEC
82: SBC #$00FB
83: TCD
84: ADC #$00F4
85: TCS
86: PEA $0080
87: LDA L030053
88: PHA
89: LDX L03004D
90: LDA L03004B
91: PHX
92: PHA
93: PEA $0010
94: PEA $0000
95: JSL L120035
96: TAY
97: TSC
98: CLC
99: ADC #$000C
100: TCS
101: TYA
102: LDA #L0415F0
103: LDX #^L0415F0
104: PHX
105: PHA
106: LDA #L0415F0
107: LDX #^L0415F0
108: STA $F6
109: STX $F8
110: PLA
111: PLX
112: LDY #$000E
113: PHA
114: TXA
115: STA [$F6],Y
116: PLA
117: LDY #$000C
118: STA [$F6],Y
119: JSL L1201D4
120: TSC
121: CLC
122: ADC #$0006
123: TCS
124: PLD
125: RTL
126:
127: L1300C1 ENT
128: PHD
129: TSC
130: SEC
131: SBC #$00FB
132: TCD
133: ADC #$00F0
134: TCS
135: LDX L030051
136: LDA L03004F
137: STX $F4
138: STA $F2
139: LDX $F4
140: LDA $F2
141: PHA
142: TXA
143: STAL L0415F2
144: PLA
145: STAL L0415F0
146: LDA #L0415F0
147: LDX #^L0415F0
148: STA $F6
149: STX $F8
150: LDA L030055
151: LDY #$0004
152: STA [$F6],Y
153: LDA #L0415F0
154: LDX #^L0415F0
155: STA $F6
156: STX $F8
157: LDA #$0010
158: LDY #$0006
159: STA [$F6],Y
160: LDA #L0415F0
161: LDX #^L0415F0
162: STA $F6
163: STX $F8
164: LDA #$0000
165: LDY #$0008
166: STA [$F6],Y
167: LDA #L0415F0
168: LDX #^L0415F0
169: STA $F6
170: STX $F8
171: LDA #$0000
172: LDY #$000A
173: STA [$F6],Y
174: LDA #L0415F0
175: LDX #^L0415F0
176: PHX
177: PHA
178: LDA #L0415F0
179: LDX #^L0415F0
180: STA $F6
181: STX $F8
182: PLA
183: PLX
184: LDY #$000E
185: PHA
186: TXA
187: STA [$F6],Y
188: PLA
189: LDY #$000C
190: STA [$F6],Y
191: LDA #L0415F0
192: LDX #^L0415F0
193: STA $F6
194: STX $F8
195: LDA #$008C
196: LDY #$0010
197: STA [$F6],Y
198: PEA $0001
199: _FFStopSound
200: BCS L13016F
201: LDA #$0000
202: L13016F STAL L030169
203: PEA $0001
204: PEA ^L0415F0
205: PEA L0415F0
206: _FFStartSound
207: BCS L130188
208: LDA #$0000
209: L130188 STAL L030169
210: TSC
211: CLC
212: ADC #$000A
213: TCS
214: PLD
215: RTL
216:
217: L130194 ENT
218: PHD
219: TSC
220: SEC
221: SBC #$00FB
222: TCD
223: ADC #$00F4
224: TCS
225: PEA $0001
226: _FFStopSound
227: BCS L1301AE
228: LDA #$0000
229: L1301AE STAL L030169
230: TSC
231: CLC
232: ADC #$0006
233: TCS
234: PLD
235: RTL
236:
237: L1301BA ENT
238: PHD
239: TSC
240: SEC
241: SBC #$00F9
242: TCD
243: ADC #$00F2
244: TCS
245: LDA $FF
246: BNE L1301EF
247: LDA #L0415F0
248: LDX #^L0415F0
249: STA $F4
250: STX $F6
251: LDA #$0000
252: LDY #$0010
253: STA [$F4],Y
254: LDA #L0415F0
255: LDX #^L0415F0
256: STA $F4
257: STX $F6
258: LDA #$0010
259: LDY #$0006
260: STA [$F4],Y
261: BRA L13021C
262: L1301EF LDA $FF
263: ASL
264: ASL
265: ASL
266: ASL
267: CLC
268: ADC #$0010
269: PHA
270: LDA #L0415F0
271: LDX #^L0415F0
272: STA $F4
273: STX $F6
274: PLA
275: LDY #$0006
276: STA [$F4],Y
277: LDA #L0415F0
278: LDX #^L0415F0
279: STA $F4
280: STX $F6
281: LDA #$008C
282: LDY #$0010
283: STA [$F4],Y
284: L13021C TSC
285: CLC
286: ADC #$0006
287: TCS
288: PLD
289: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.