![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gs.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 gs.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 gs.L
12: lst off
13:
14: *-----------
15:
16: use gs.X
17:
18: *-----------
19:
20: use 4/Misc.Macs
21: use 4/Util.Macs
22:
23: *-----------
24:
25: L180000 ENT
26: PHD
27: TSC
28: SEC
29: SBC #$00FB
30: TCD
31: ADC #$00F4
32: TCS
33: JSL L270000
34: JSL L160507
35: JSL L1800B7
36: STZ L03015F
37: LDA #$0006
38: STA L03015B
39: STZ L030077
40: JSL L160179
41: TAY
42: BEQ L180036
43: LDA #$0004
44: STA L03015D
45: LDA #$0001
46: BRL L1800AD
47: L180036 LDA #L1E0118
48: LDX #^L1E0118
49: STX L030002
50: STA L030000
51: LDA L030209
52: CMP #$FFFF
53: BEQ L18005A
54: PEA $0000
55: JSL L15032D
56: PLY
57: PEA $0000
58: JSL L150216
59: PLY
60: L18005A JSL L1D0676
61: JSL L160179
62: TAY
63: BEQ L180088
64: LDA L030209
65: CMP #$FFFF
66: BEQ L180075
67: PEA $0000
68: JSL L1503A0
69: PLY
70: L180075 STZ L030000
71: STZ L030002
72: LDA #$0004
73: STA L03015D
74: LDA #$0001
75: BRA L1800AD
76: BRA L1800AD
77: L180088 LDA L030209
78: CMP #$FFFF
79: BEQ L180098
80: PEA $0000
81: JSL L1503A0
82: PLY
83: L180098 LDA #L1E0118
84: LDX #^L1E0118
85: STX L030002
86: STA L030000
87: LDA #$0006
88: STA L03015D
89: LDA #$0001
90: L1800AD TAY
91: TSC
92: CLC
93: ADC #$0006
94: TCS
95: TYA
96: PLD
97: RTL
98:
99: L1800B7 ENT
100: PHD
101: TSC
102: SEC
103: SBC #$00FB
104: TCD
105: ADC #$00F4
106: TCS
107: PEA $0000
108: PEA $0120
109: PEA $0098
110: PEA $00C7
111: _ClampMouse
112: BCS L1800DA
113: LDA #$0000
114: L1800DA STAL L030169
115: JSL L130194
116: TSC
117: CLC
118: ADC #$0006
119: TCS
120: PLD
121: RTL
122:
123: L1800EA ENT
124: PHD
125: TSC
126: SEC
127: SBC #$00FB
128: TCD
129: ADC #$00F2
130: TCS
131: STZ L030000
132: STZ L030002
133: LDX L03018D
134: LDA L03018B
135: PHX
136: PHA
137: PEA $000B
138: PEA $0093
139: PEA $0121
140: PEA $0011
141: PEA $001F
142: JSL L07018E
143: TAY
144: TSC
145: CLC
146: ADC #$000E
147: TCS
148: TYA
149: LDX L03018D
150: LDA L03018B
151: PHX
152: PHA
153: PEA $000D
154: PEA $0094
155: PEA $0122
156: PEA $0010
157: PEA $001E
158: JSL L07018E
159: TAY
160: TSC
161: CLC
162: ADC #$000E
163: TCS
164: TYA
165: LDX L03018D
166: LDA L03018B
167: PHX
168: PHA
169: PEA $000B
170: PEA $0095
171: PEA $0123
172: PEA $000F
173: PEA $001D
174: JSL L07018E
175: TAY
176: TSC
177: CLC
178: ADC #$000E
179: TCS
180: TYA
181: PEA ^L048088
182: PEA L048088
183: PEA $0000
184: JSL L0B0114
185: PLY
186: PLY
187: PLY
188: PEA ^L048088
189: PEA L048088
190: PEA $0001
191: JSL L0B0114
192: PLY
193: PLY
194: PLY
195: JSL L2301DE
196: PEA $00B9
197: LDAL L04350A
198: LDX #$0000
199: PHX
200: PHA
201: LDX #$00E1
202: LDA #$2000
203: JSL L2D0000
204: LDAL L04350A
205: LDX #$0000
206: PHX
207: PHA
208: LDX L03018D
209: LDA L03018B
210: JSL L2D0000
211: JSL L0D00E3
212: PLY
213: PLY
214: PLY
215: PLY
216: PLY
217: L1801BA JSL L120000
218: TAY
219: BEQ L1801C3
220: BRA L1801BA
221: L1801C3 JSL L1300C1
222: JSL L26017B
223: JSL L0C0017
224: AND #$001F
225: CLC
226: ADC #$0010
227: STA L03022B
228: JSL L26009E
229: JSL L260123
230: PEA $00A0
231: PEA $0072
232: _PosMouse
233: BCS L1801F3
234: LDA #$0000
235: L1801F3 STAL L030169
236: PEA $002A
237: PEA $010E
238: PEA $0033
239: PEA $00A4
240: _ClampMouse
241: BCS L18020F
242: LDA #$0000
243: L18020F STAL L030169
244: TSC
245: CLC
246: ADC #$0008
247: TCS
248: PLD
249: RTL
250:
251: L18021B ENT
252: PHD
253: TSC
254: SEC
255: SBC #$00FB
256: TCD
257: ADC #$00F4
258: TCS
259: LDA #$FFFF
260: STA L03015F
261: LDA #$0007
262: STA L03015D
263: LDX L030179
264: LDA L030177
265: PHX
266: PHA
267: PEA ^L04970D
268: PEA L04970D
269: PEA ^L049831
270: PEA L049831
271: JSL L120502
272: TAY
273: TSC
274: CLC
275: ADC #$000C
276: TCS
277: TYA
278: TSC
279: CLC
280: ADC #$0006
281: TCS
282: PLD
283: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.