![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gpla.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 gpla.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 gpla.L
12: lst off
13:
14: *-----------
15:
16: use gpla.X
17:
18: *-----------
19:
20: use 4/Misc.Macs
21: use 4/Util.Macs
22:
23: *-----------
24:
25: L170000 ENT
26: PHD
27: TSC
28: SEC
29: SBC #$00FB
30: TCD
31: ADC #$00F2
32: TCS
33: LDX L030179
34: LDA L030177
35: PHX
36: PHA
37: PEA ^L04970D
38: PEA L04970D
39: PEA ^L04984D
40: PEA L04984D
41: JSL L120502
42: TAY
43: TSC
44: CLC
45: ADC #$000C
46: TCS
47: TYA
48: PEA $0000
49: PEA $0120
50: PEA $0098
51: PEA $00C7
52: _ClampMouse
53: BCS L170043
54: LDA #$0000
55: L170043 STAL L030169
56: LDA L0300A1
57: BNE L170064
58: PEA $0006
59: JSL L15032D
60: PLY
61: PEA $0007
62: JSL L15032D
63: PLY
64: PEA $0008
65: JSL L15032D
66: PLY
67: L170064 TSC
68: CLC
69: ADC #$0008
70: TCS
71: PLD
72: RTL
73:
74: L17006C ENT
75: PHD
76: TSC
77: SEC
78: SBC #$00FB
79: TCD
80: ADC #$00F4
81: TCS
82: JSL L0B01EC
83: LDA L03015D
84: CMP #$0006
85: BNE L170086
86: BRL L17014A
87: L170086 LDX L030181
88: LDA L03017F
89: PHX
90: PHA
91: PEA $0001
92: JSL L0B014E
93: PLY
94: PLY
95: PLY
96: PEA $008C
97: LDX L03018D
98: LDA L03018B
99: CLC
100: ADC #$0960
101: PHA
102: TXA
103: ADC #$0000
104: TAX
105: PLA
106: PHX
107: PHA
108: LDX L030181
109: LDA L03017F
110: CLC
111: ADC #$0980
112: PHA
113: TXA
114: ADC #$0000
115: TAX
116: PLA
117: PHX
118: PHA
119: JSL L0D00E3
120: PLY
121: PLY
122: PLY
123: PLY
124: PLY
125: PEA $0020
126: PEA $0014
127: LDA #L043364
128: LDX #^L043364
129: STA $F6
130: STX $F8
131: LDY #$0002
132: LDA [$F6],Y
133: LDX #$0000
134: PHX
135: PHA
136: LDX L03018D
137: LDA L03018B
138: JSL L2D0000
139: LDX L030195
140: LDA L030193
141: PHX
142: PHA
143: JSL L0D0340
144: TAY
145: TSC
146: CLC
147: ADC #$000C
148: TCS
149: TYA
150: PEA $0020
151: PEA $0014
152: LDA #L0433D4
153: LDX #^L0433D4
154: STA $F6
155: STX $F8
156: LDY #$0002
157: LDA [$F6],Y
158: LDX #$0000
159: PHX
160: PHA
161: LDX L03018D
162: LDA L03018B
163: JSL L2D0000
164: LDX L030195
165: LDA L030193
166: PHX
167: PHA
168: JSL L0D0340
169: TAY
170: TSC
171: CLC
172: ADC #$000C
173: TCS
174: TYA
175: PEA $0168
176: PEA $008C
177: PEA $0960
178: JSL L1E0000
179: PLY
180: PLY
181: PLY
182: L17014A TSC
183: CLC
184: ADC #$0006
185: TCS
186: PLD
187: RTL
188:
189: L170152 ENT
190: PHD
191: TSC
192: SEC
193: SBC #$00FB
194: TCD
195: ADC #$00F4
196: TCS
197: JSL L0B01EC
198: JSL L1901CE
199: PEA ^L042E64
200: PEA L042E64
201: PEA $0001
202: JSL L0B014E
203: PLY
204: PLY
205: PLY
206: LDA #$FFFF
207: STA L03015F
208: STZ L03015D
209: TSC
210: CLC
211: ADC #$0006
212: TCS
213: PLD
214: RTL
215:
216: L170186 ENT
217: PHD
218: TSC
219: SEC
220: SBC #$00FB
221: TCD
222: ADC #$00F4
223: TCS
224: LDA #$009F
225: STA L0300A3
226: LDA L03015B
227: CMP #$0001
228: BEQ L1701AF
229: LDA L03015B
230: CMP #$0002
231: BEQ L1701AF
232: LDA #$0001
233: STA L03015D
234: BRA L1701C5
235: L1701AF LDA L03015B
236: CMP #$0001
237: BNE L1701BF
238: LDA #$0002
239: STA L03015B
240: BRA L1701C5
241: L1701BF LDA #$0001
242: STA L03015B
243: L1701C5 TAY
244: TSC
245: CLC
246: ADC #$0006
247: TCS
248: TYA
249: PLD
250: RTL
251:
252: L1701CF ENT
253: PHD
254: TSC
255: SEC
256: SBC #$00FB
257: TCD
258: ADC #$00F4
259: TCS
260: LDX L030179
261: LDA L030177
262: PHX
263: PHA
264: PEA ^L04970D
265: PEA L04970D
266: PEA ^L049845
267: PEA L049845
268: JSL L120502
269: TAY
270: TSC
271: CLC
272: ADC #$000C
273: TCS
274: TYA
275: PEA $0000
276: PEA $0120
277: PEA $0098
278: PEA $00C7
279: _ClampMouse
280: BCS L170212
281: LDA #$0000
282: L170212 STAL L030169
283: PEA $0003
284: JSL L15032D
285: PLY
286: PEA $0008
287: JSL L15032D
288: PLY
289: JSL L220000
290: TSC
291: CLC
292: ADC #$0006
293: TCS
294: PLD
295: RTL
296:
297: L170232 ENT
298: PHD
299: TSC
300: SEC
301: SBC #$00FB
302: TCD
303: ADC #$00F4
304: TCS
305: LDA L03015D
306: CMP #$0000
307: BEQ L170249
308: JSL L0B01EC
309: L170249 JSL L220274
310: TSC
311: CLC
312: ADC #$0006
313: TCS
314: PLD
315: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.