![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to start.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 start.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 start.L
12: lst off
13:
14: *-----------
15:
16: use start.E
17: use start.X
18:
19: *-----------
20:
21: use 4/Ctl.Macs
22: use 4/Desk.Macs
23: use 4/Dialog.Macs
24: use 4/Event.Macs
25: use 4/Line.Macs
26: use 4/Locator.Macs
27: use 4/Mem.Macs
28: use 4/Menu.Macs
29: use 4/Misc.Macs
30: use 4/QD.Macs
31: use 4/Sound.Macs
32: use 4/Util.Macs
33: use 4/Window.Macs
34:
35: *-----------
36:
37: BRA L020005
38: NOP
39: NOP
40: NOP
41: L020005 STAL L030167
42: JMPL L02000D
43:
44: L02000D PHD
45: TSC
46: SEC
47: SBC #$00FB
48: TCD
49: ADC #$00F0
50: TCS
51: SEP #$20
52: LDA #^L030017
53: PHA
54: PLB
55: REP #$20
56: LDX #$0000
57: LDA #$C036
58: STA $F6
59: STX $F8
60: LDA [$F6]
61: AND #$00FF
62: AND #$0080
63: SEP #$20
64: STA L030016
65: REP #$20
66: LDX #$0000
67: LDA #$C036
68: STA $F6
69: STX $F8
70: LDA [$F6]
71: AND #$00FF
72: ORA #$0080
73: SEP #$20
74: STA [$F6]
75: REP #$20
76: PHX
77: PHA
78: PEA $0000
79: PEA $1500
80: LDA L030167
81: PHA
82: PEA $C011
83: PEA $0000
84: PEA $0000
85: _NewHandle
86: BCS L020072
87: LDA #$0000
88: L020072 STAL L030169
89: PLA
90: PLX
91: STX $F4
92: STA $F2
93: LDY #$0002
94: LDA [$F2],Y
95: TAX
96: LDA [$F2]
97: STX L030012
98: STA L030010
99: LDA L030010
100: CLC
101: ADC #$1500
102: TCS
103: _TLStartUp
104: BCS L02009E
105: LDA #$0000
106: L02009E STAL L030169
107: PHA
108: _MMStartUp
109: BCS L0200AF
110: LDA #$0000
111: L0200AF STAL L030169
112: PLA
113: STA L03016B
114: _MTStartUp
115: BCS L0200C3
116: LDA #$0000
117: L0200C3 STAL L030169
118: PEA ^L043254
119: PEA L043254
120: _LoadTools
121: BCS L0200D9
122: LDA #$0000
123: L0200D9 STAL L030169
124: LDX L030012
125: LDA L030010
126: CLC
127: ADC #$0300
128: PHA
129: TXA
130: ADC #$0000
131: TAX
132: PEA $0001
133: PEA $0000
134: PEA $0120
135: PEA $0060
136: PEA $00C4
137: LDA L03016B
138: PHA
139: _EMStartUp
140: BCS L02010C
141: LDA #$0000
142: L02010C STAL L030169
143: LDX L030012
144: LDA L030010
145: CLC
146: ADC #$0400
147: PHA
148: TXA
149: ADC #$0000
150: TAX
151: _SoundStartUp
152: BCS L02012C
153: LDA #$0000
154: L02012C STAL L030169
155: LDX L030012
156: LDA L030010
157: PHA
158: PEA $0000
159: PEA $00A0
160: LDA L03016B
161: PHA
162: _QDStartUp
163: BCS L02014D
164: LDA #$0000
165: L02014D STAL L030169
166: _DeskStartUp
167: BCS L02015D
168: LDA #$0000
169: L02015D STAL L030169
170: LDX #$0000
171: LDA #$C034
172: STA $F6
173: STX $F8
174: LDA #$0000
175: SEP #$20
176: STA [$F6]
177: REP #$20
178: PEA ^L0202EB
179: PEA L0202EB
180: _SetHeartBeat
181: BCS L020186
182: LDA #$0000
183: L020186 STAL L030169
184: JSL L20024E
185: JSL L020212
186: TSC
187: CLC
188: ADC #$000A
189: TCS
190: PLD
191: RTL
192:
193: L02019A ENT
194: PHD
195: TSC
196: SEC
197: SBC #$00FB
198: TCD
199: ADC #$00F4
200: TCS
201: LDX #$0000
202: LDA #$C034
203: STA $F6
204: STX $F8
205: LDA #$0000
206: SEP #$20
207: STA [$F6]
208: REP #$20
209: TSC
210: CLC
211: ADC #$0006
212: TCS
213: PLD
214: RTL
215:
216: L0201C0 ENT
217: PHD
218: TSC
219: SEC
220: SBC #$00FB
221: TCD
222: ADC #$00F4
223: TCS
224: PEA ^L0202EB
225: PEA L0202EB
226: _SetHeartBeat
227: BCS L0201DD
228: LDA #$0000
229: L0201DD STAL L030169
230: TSC
231: CLC
232: ADC #$0006
233: TCS
234: PLD
235: RTL
236:
237: L0201E9 ENT
238: PHD
239: TSC
240: SEC
241: SBC #$00FB
242: TCD
243: ADC #$00F4
244: TCS
245: PEA ^L0202EB
246: PEA L0202EB
247: _DelHeartBeat
248: BCS L020206
249: LDA #$0000
250: L020206 STAL L030169
251: TSC
252: CLC
253: ADC #$0006
254: TCS
255: PLD
256: RTL
257:
258: L020212 ENT
259: PHD
260: TSC
261: SEC
262: SBC #$00FB
263: TCD
264: ADC #$00F4
265: TCS
266: PEA ^L0202EB
267: PEA L0202EB
268: _DelHeartBeat
269: BCS L02022F
270: LDA #$0000
271: L02022F STAL L030169
272: LDA L030016
273: AND #$00FF
274: PHA
275: LDX #$0000
276: LDA #$C036
277: STA $F6
278: STX $F8
279: LDA [$F6]
280: AND #$00FF
281: AND #$007F
282: PLX
283: STX $FA
284: ORA $FA
285: PHA
286: LDX #$0000
287: LDA #$C036
288: STA $F6
289: STX $F8
290: PLA
291: SEP #$20
292: STA [$F6]
293: REP #$20
294: _GrafOff
295: BCS L02026F
296: LDA #$0000
297: L02026F STAL L030169
298: _DeskShutDown
299: BCS L02027F
300: LDA #$0000
301: L02027F STAL L030169
302: _EMShutDown
303: BCS L02028F
304: LDA #$0000
305: L02028F STAL L030169
306: _QDShutDown
307: BCS L02029F
308: LDA #$0000
309: L02029F STAL L030169
310: _MTShutDown
311: BCS L0202AF
312: LDA #$0000
313: L0202AF STAL L030169
314: LDA L03016B
315: PHA
316: _MMShutDown
317: BCS L0202C3
318: LDA #$0000
319: L0202C3 STAL L030169
320: _TLShutDown
321: BCS L0202D3
322: LDA #$0000
323: L0202D3 STAL L030169
324: JSL GSOS
325: DW $0029 ; Quit
326: ADRL L040000
327: BRK $00
328: TSC
329: CLC
330: ADC #$0006
331: TCS
332: PLD
333: RTL
334:
335: L0202EB ADRL $00000000
336: DW $0002
337: DW $A55A
338: PHP
339: LDX #$EA04
340: LDA #$EA02
341: STAL L0202EB,X
342: STAL L030141
343: PHB
344: REP #$20
345: LDA #^L03013B
346: SEP #$30
347: PHA
348: PLB
349: INC L0301F9
350:
351: * What works in ROM 01 but not in ROM 3
352:
353: * LDAL $00047C
354: * STA L03013B
355: * LDAL $00057C
356: * STA L03013C
357: * LDAL $0004FC
358: * STA L03013D
359: * LDAL $0005FC
360: * STA L03013E
361:
362: REP #$30
363:
364: *--- New code
365:
366: pha
367: pha
368: pha
369: _ReadMouse
370: pla
371: pla
372: sta L03013D
373: pla
374: sta L03013B
375:
376: *--- End of new code
377:
378: LDA L0301F3
379: SEC
380: SBC L0301FB
381: NOP
382: NOP
383: BRL L02038A
384: CLC
385: CMP #$0014
386: BPL L020356
387: LDA L0301F5
388: AND #$0008
389: BEQ L02034A
390: BRL L02038A
391: L02034A LDA L030006
392: INC
393: AND L030008
394: STA L030006
395: BRA L020364
396: L020356 LDA L030006
397: INC
398: AND L030008
399: STA L030006
400: CLC
401: ADC #$0008
402: L020364 NOP
403: ASL
404: TAX
405: LDA L03013B
406: CLC
407: ADCL L040008,X
408: BPL L020374
409: LDA #$0000
410: L020374 STA L03013B
411: LDA L03013D
412: CLC
413: ADCL L040028,X
414: CMP #$00C8
415: BMI L020387
416: LDA #$00C7
417: L020387 STA L03013D
418: L02038A SEP #$30
419: LDA L030002
420: BEQ L02039E
421: PHK
422: PER L02039D
423: PHA
424: REP #$30
425: LDA L030000
426: DEC
427: PHA
428: L02039D RTL
429:
430: L02039E REP #$30
431: LDA L030004
432: INC
433: CMP #$0019
434: BPL L0203AE
435: STA L030004
436: BRA L0203CC
437: L0203AE STZ L030004
438: LDA L0301F5
439: INC
440: CMP #$003C
441: BMI L0203C0
442: INC L0301F3
443: LDA #$0000
444: L0203C0 STA L0301F5
445: LDA L0301F7
446: BEQ L0203CC
447: JSL L1B0B88
448: L0203CC REP #$30
449: SEP #$30
450: PLB
451: PLP
452: RTL
453:
454: MX %00
455: PHD
456: TSC
457: SEC
458: SBC #$00FB
459: TCD
460: ADC #$00F4
461: TCS
462: STZ L0301F9
463: TSC
464: CLC
465: ADC #$0006
466: TCS
467: PLD
468: RTL
469:
470: PHD
471: TSC
472: SEC
473: SBC #$00F9
474: TCD
475: ADC #$00F2
476: TCS
477: L0203F4 LDA L0301F9
478: CMP $FF
479: BCC L0203F4
480: TSC
481: CLC
482: ADC #$0006
483: TCS
484: PLD
485: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.