![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to photo.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 photo.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 photo.L
12: lst off
13:
14: *-----------
15:
16: use photo.X
17:
18: *-----------
19:
20: L270000 ENT
21: PHD
22: TSC
23: SEC
24: SBC #$00FB
25: TCD
26: ADC #$00F2
27: TCS
28: LDA L030227
29: CMP #$0006
30: BCS L270019
31: LDA #$0006
32: STA L030227
33: L270019 LDA L030227
34: PHA
35: JSL L1301BA
36: PLY
37: STZ $F4
38: BRA L270059
39: L270026 JSL L2301DE
40: LDA L030227
41: CMP #$0004
42: BEQ L27003E
43: BCC L27003E
44: LDA L030227
45: SEC
46: SBC #$0002
47: STA L030227
48: L27003E LDA L030227
49: PHA
50: JSL L1301BA
51: PLY
52: JSL L240229
53: PEA $0000
54: JSL L260826
55: PLY
56: JSL L230000
57: INC $F4
58: L270059 LDA $F4
59: CMP #$0014
60: BNE L270026
61: LDA #$0005
62: STA L030227
63: JSL L130194
64: JSL L240229
65: JSL L270115
66: JSL L2302BF
67: TSC
68: CLC
69: ADC #$0008
70: TCS
71: PLD
72: RTL
73:
74: PHD
75: TSC
76: SEC
77: SBC #$00F7
78: TCD
79: ADC #$00E6
80: TCS
81: STZ $E8
82: LDA $FD
83: ASL
84: ASL
85: LDX #$0000
86: PHX
87: PHA
88: LDA #L049648
89: LDX #^L049648
90: JSL L2D0000
91: PLA
92: PLX
93: STA $F2
94: STX $F4
95: LDY #$0002
96: LDA [$F2],Y
97: TAX
98: LDA [$F2]
99: STX $F0
100: STA $EE
101: LDAL L04966A
102: TAX
103: LDAL L049668
104: STX $EC
105: STA $EA
106: LDA $FF
107: AND #$000F
108: PHA
109: LDA #$0010
110: PLX
111: STX $F6
112: SEC
113: SBC $F6
114: STA $FF
115: LDY #$01FF
116: L2700D1 SEP #$20
117: LDA [$EE],Y
118: STA $E8
119: REP #$20
120: LDA $E8
121: SEC
122: SBC L03022B
123: BCS L2700E6
124: LDA L03022B
125: BRA L270104
126: L2700E6 ASL
127: ASL
128: ASL
129: TAX
130: LDA $FF
131: PHY
132: JSL L0B0000
133: STA $E8
134: JSL L0C0017
135: AND #$001F
136: ADC $E8
137: LSR
138: LSR
139: LSR
140: CLC
141: ADC L03022B
142: PLY
143: L270104 SEP #$20
144: STA [$EA],Y
145: REP #$20
146: DEY
147: BPL L2700D1
148: TSC
149: CLC
150: ADC #$0010
151: TCS
152: PLD
153: RTL
154:
155: L270115 PHD
156: TSC
157: SEC
158: SBC #$00FB
159: TCD
160: ADC #$00DA
161: TCS
162: STZ $F2
163: LDA L030225
164: STA $DE
165: STZ $DC
166: STZ $F0
167: BRL L27022C
168: L27012E LDA $F2
169: AND #$000F
170: PHA
171: LDA #$000F
172: PLX
173: STX $FA
174: SEC
175: SBC $FA
176: ASL
177: ASL
178: PHA
179: LDA $DE
180: PLX
181: STX $FA
182: SEC
183: SBC $FA
184: STA L030225
185: LDA L03020B
186: SEC
187: SBC $DC
188: STA L03020B
189: JSL L0C0017
190: AND #$0007
191: SEC
192: SBC #$0003
193: STA $DC
194: LDA L03020B
195: CLC
196: ADC $DC
197: STA L03020B
198: LDA $F2
199: ASL
200: LDX #$0000
201: PHX
202: PHA
203: LDA #L047E42
204: LDX #^L047E42
205: JSL L2D0000
206: PLA
207: PLX
208: STA $F6
209: STX $F8
210: LDA [$F6]
211: STA L0300D5
212: LDA #$8000
213: STA $EC
214: LDX L030223
215: L27018F SEP #$20
216: LDA $ED
217: STAL L0492A8,X
218: REP #$20
219: LDA $EC
220: CLC
221: ADC L0300D5
222: BPL L2701A3
223: STA $EC
224: L2701A3 INX
225: CPX #$0080
226: BMI L27018F
227: LDA #$8000
228: STA $EC
229: LDX L030223
230: L2701B1 SEP #$20
231: LDA $ED
232: STAL L0492A8,X
233: REP #$20
234: LDA $EC
235: SEC
236: SBC L0300D5
237: BMI L2701C5
238: STA $EC
239: L2701C5 DEX
240: BPL L2701B1
241: LDX L03022B
242: SEP #$20
243: LDAL L0492A8,X
244: L2701D1 STAL L0492A8,X
245: DEX
246: BPL L2701D1
247: REP #$20
248: LDA $F2
249: ASL
250: LDX #$0000
251: PHX
252: PHA
253: LDA #L047D42
254: LDX #^L047D42
255: JSL L2D0000
256: PLA
257: PLX
258: STA $F6
259: STX $F8
260: LDA [$F6]
261: STA L0300D5
262: LDA $F0
263: LSR
264: LSR
265: LSR
266: LSR
267: STA L0300DB
268: LDA $F2
269: AND #$0040
270: CMP #$0000
271: BNE L270215
272: LDA L0300DB
273: PHA
274: JSL L250000
275: PLY
276: BRA L27021E
277: L270215 LDA L0300DB
278: PHA
279: JSL L24047A
280: PLY
281: L27021E JSL L230000
282: LDA $F2
283: CLC
284: ADC #$0001
285: STA $F2
286: INC $F0
287: L27022C LDA $F0
288: CMP #$0080
289: BEQ L270236
290: BRL L27012E
291: L270236 TSC
292: CLC
293: ADC #$0020
294: TCS
295: PLD
296: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.