|
|
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 BScroll.L
12: lst off
13:
14: *-----------
15:
16: use BScroll.X
17:
18: *-----------
19:
20: use 4/Event.Macs
21: use 4/Util.Macs
22:
23: *-----------
24:
25: L280000 ENT
26: PHD
27: TSC
28: SEC
29: SBC #$00FB
30: TCD
31: ADC #$00F4
32: TCS
33: PEA $0000
34: PEA $00D0
35: JSL L0702E3
36: PLY
37: PLY
38: STX L0300FD
39: STA L0300FB
40: TSC
41: CLC
42: ADC #$0006
43: TCS
44: PLD
45: RTL
46:
47: L280025 ENT
48: PHD
49: TSC
50: SEC
51: SBC #$00FB
52: TCD
53: ADC #$00F4
54: TCS
55: LDA #$0040
56: STA L0300FF
57: LDA L0300FF
58: LSR
59: PHA
60: LDAL L043668
61: PLX
62: STX $FA
63: CLC
64: ADC $FA
65: STA L030101
66: PEA $0030
67: PEA $0008
68: LDX L0300FD
69: LDA L0300FB
70: PHX
71: PHA
72: LDA L030101
73: LDX #$0000
74: PHX
75: PHA
76: LDX L03018D
77: LDA L03018B
78: JSL L2D0000
79: JSL L0D0213
80: TAY
81: TSC
82: CLC
83: ADC #$000C
84: TCS
85: TYA
86: PEA $0088
87: PEA $0008
88: PEA $0018
89: LDA L030101
90: LDX #$0000
91: PHX
92: PHA
93: LDX L03018D
94: LDA L03018B
95: JSL L2D0000
96: JSL L0D0151
97: PLY
98: PLY
99: PLY
100: PLY
101: PLY
102: TSC
103: CLC
104: ADC #$0006
105: TCS
106: PLD
107: RTL
108:
109: L2800A0 ENT
110: PHD
111: TSC
112: SEC
113: SBC #$00FB
114: TCD
115: ADC #$00F4
116: TCS
117: PEA $0030
118: PEA $0008
119: LDA L030101
120: LDX #$0000
121: PHX
122: PHA
123: LDX L03018D
124: LDA L03018B
125: JSL L2D0000
126: LDX L0300FD
127: LDA L0300FB
128: PHX
129: PHA
130: JSL L0D01CA
131: TAY
132: TSC
133: CLC
134: ADC #$000C
135: TCS
136: TYA
137: TSC
138: CLC
139: ADC #$0006
140: TCS
141: PLD
142: RTL
143:
144: L2800DF PHD
145: TSC
146: SEC
147: SBC #$00F9
148: TCD
149: ADC #$00F2
150: TCS
151: LDA #$0040
152: CLC
153: ADC $FF
154: STA L0300FF
155: PEA $0030
156: PEA $0008
157: LDA L030101
158: LDX #$0000
159: PHX
160: PHA
161: LDX L03018D
162: LDA L03018B
163: JSL L2D0000
164: LDX L0300FD
165: LDA L0300FB
166: PHX
167: PHA
168: JSL L0D01CA
169: TAY
170: TSC
171: CLC
172: ADC #$000C
173: TCS
174: TYA
175: LDA L0300FF
176: LSR
177: PHA
178: LDAL L043668
179: PLX
180: STX $F8
181: CLC
182: ADC $F8
183: STA L030101
184: PEA $0030
185: PEA $0008
186: LDX L0300FD
187: LDA L0300FB
188: PHX
189: PHA
190: LDA L030101
191: LDX #$0000
192: PHX
193: PHA
194: LDX L03018D
195: LDA L03018B
196: JSL L2D0000
197: JSL L0D0213
198: TAY
199: TSC
200: CLC
201: ADC #$000C
202: TCS
203: TYA
204: PEA $0088
205: PEA $0008
206: PEA $0018
207: LDA L030101
208: LDX #$0000
209: PHX
210: PHA
211: LDX L03018D
212: LDA L03018B
213: JSL L2D0000
214: JSL L0D0151
215: PLY
216: PLY
217: PLY
218: PLY
219: PLY
220: PEA $00C0
221: PEA $0008
222: PEA $76E0
223: JSL L1E0000
224: PLY
225: PLY
226: PLY
227: TSC
228: CLC
229: ADC #$0006
230: TCS
231: PLD
232: RTL
233:
234: L280199 PHD
235: TSC
236: SEC
237: SBC #$00F9
238: TCD
239: ADC #$00F2
240: TCS
241: LDA #$0040
242: CLC
243: ADC $FF
244: STA L0300FF
245: PEA $0030
246: PEA $0008
247: LDA L030101
248: LDX #$0000
249: PHX
250: PHA
251: LDX L03018D
252: LDA L03018B
253: JSL L2D0000
254: LDX L0300FD
255: LDA L0300FB
256: PHX
257: PHA
258: JSL L0D01CA
259: TAY
260: TSC
261: CLC
262: ADC #$000C
263: TCS
264: TYA
265: LDA L0300FF
266: LSR
267: PHA
268: LDAL L043668
269: PLX
270: STX $F8
271: CLC
272: ADC $F8
273: STA L030101
274: PEA $0030
275: PEA $0008
276: LDX L0300FD
277: LDA L0300FB
278: PHX
279: PHA
280: LDA L030101
281: LDX #$0000
282: PHX
283: PHA
284: LDX L03018D
285: LDA L03018B
286: JSL L2D0000
287: JSL L0D0213
288: TAY
289: TSC
290: CLC
291: ADC #$000C
292: TCS
293: TYA
294: PEA $0088
295: PEA $0008
296: PEA $0018
297: LDA L030101
298: LDX #$0000
299: PHX
300: PHA
301: LDX L03018D
302: LDA L03018B
303: JSL L2D0000
304: JSL L0D0151
305: PLY
306: PLY
307: PLY
308: PLY
309: PLY
310: TSC
311: CLC
312: ADC #$0006
313: TCS
314: PLD
315: RTL
316:
317: L280243 ENT
318: PHD
319: TSC
320: SEC
321: SBC #$00FB
322: TCD
323: ADC #$00F2
324: TCS
325: L28024E PHA
326: PEA $0000
327: _Button
328: BCS L28025E
329: LDA #$0000
330: L28025E STAL L030169
331: PLA
332: TAY
333: BNE L280269
334: BRL L28030B
335: L280269 LDA L03013D
336: CMP #$00B4
337: BNE L280274
338: BRL L28030B
339: L280274 BCS L280279
340: BRL L28030B
341: L280279 LDA L03013B
342: SEC
343: SBC #$0058
344: STA $F4
345: LDA L03013B
346: CMP #$0058
347: BCS L28028C
348: STZ $F4
349: L28028C LDA $F4
350: CMP #$0090
351: BEQ L28029A
352: BCC L28029A
353: LDA #$0090
354: STA $F4
355: L28029A PEI $F4
356: JSL L280199
357: PLY
358: LDA $F4
359: STA L0300DF
360: LDA #$0009
361: PHA
362: LDA L0300DF
363: PHA
364: LDA #$002E
365: CLC
366: JSL L2D018C
367: PLA
368: CLC
369: JSL L2D000B
370: PLY
371: PHA
372: LDA #$0010
373: PLX
374: STX $FA
375: CLC
376: ADC $FA
377: STA L0301DF
378: LDX L03018D
379: LDA L03018B
380: CLC
381: ADC #$55B8
382: PHA
383: TXA
384: ADC #$0000
385: TAX
386: PLA
387: PHX
388: PHA
389: LDA L0301DF
390: LSR
391: LDX #$0000
392: PHX
393: PHA
394: LDX L0301A1
395: LDA L03019F
396: JSL L2D0000
397: JSL L0D02AA
398: PLY
399: PLY
400: PLY
401: PLY
402: PEA $00E0
403: PEA $003D
404: PEA $55B8
405: JSL L1E0000
406: PLY
407: PLY
408: PLY
409: BRL L28024E
410: L28030B TSC
411: CLC
412: ADC #$0008
413: TCS
414: PLD
415: RTL
416:
417: L280313 ENT
418: PHD
419: TSC
420: SEC
421: SBC #$00FB
422: TCD
423: ADC #$00F2
424: TCS
425: LDA L0301DF
426: CMP #$0013
427: BNE L280329
428: BRL L280387
429: L280329 BCS L28032E
430: BRL L280387
431: L28032E LDA L0301DF
432: SEC
433: SBC #$0002
434: STA L0301DF
435: LDX L03018D
436: LDA L03018B
437: CLC
438: ADC #$55B8
439: PHA
440: TXA
441: ADC #$0000
442: TAX
443: PLA
444: PHX
445: PHA
446: LDA L0301DF
447: LSR
448: LDX #$0000
449: PHX
450: PHA
451: LDX L0301A1
452: LDA L03019F
453: JSL L2D0000
454: JSL L0D02AA
455: PLY
456: PLY
457: PLY
458: PLY
459: PEA $00E1
460: PEA $75B8
461: LDA L0301DF
462: LSR
463: LDX #$0000
464: PHX
465: PHA
466: LDX L0301A1
467: LDA L03019F
468: JSL L2D0000
469: JSL L0D02AA
470: PLY
471: PLY
472: PLY
473: PLY
474: L280387 LDA #$002E
475: PHA
476: LDA L0301DF
477: SEC
478: SBC #$0010
479: PHA
480: LDA #$0009
481: CLC
482: JSL L2D018C
483: PLA
484: CLC
485: JSL L2D000B
486: PLY
487: STA $F4
488: LDA $F4
489: LSR
490: PHA
491: LDA L0300DF
492: LSR
493: PLX
494: STX $F6
495: CMP $F6
496: BEQ L2803BA
497: PEI $F4
498: JSL L2800DF
499: PLY
500: L2803BA LDA $F4
501: STA L0300DF
502: TSC
503: CLC
504: ADC #$0008
505: TCS
506: PLD
507: RTL
508:
509: L2803C7 ENT
510: PHD
511: TSC
512: SEC
513: SBC #$00FB
514: TCD
515: ADC #$00F2
516: TCS
517: LDA L0301DF
518: CMP #$02ED
519: BCC L2803DD
520: BRL L280436
521: L2803DD LDA L0301DF
522: CLC
523: ADC #$0002
524: STA L0301DF
525: LDX L03018D
526: LDA L03018B
527: CLC
528: ADC #$55B8
529: PHA
530: TXA
531: ADC #$0000
532: TAX
533: PLA
534: PHX
535: PHA
536: LDA L0301DF
537: LSR
538: LDX #$0000
539: PHX
540: PHA
541: LDX L0301A1
542: LDA L03019F
543: JSL L2D0000
544: JSL L0D02AA
545: PLY
546: PLY
547: PLY
548: PLY
549: PEA $00E1
550: PEA $75B8
551: LDA L0301DF
552: LSR
553: LDX #$0000
554: PHX
555: PHA
556: LDX L0301A1
557: LDA L03019F
558: JSL L2D0000
559: JSL L0D02AA
560: PLY
561: PLY
562: PLY
563: PLY
564: L280436 LDA #$002E
565: PHA
566: LDA L0301DF
567: SEC
568: SBC #$0010
569: PHA
570: LDA #$0009
571: CLC
572: JSL L2D018C
573: PLA
574: CLC
575: JSL L2D000B
576: PLY
577: STA $F4
578: LDA $F4
579: LSR
580: PHA
581: LDA L0300DF
582: LSR
583: PLX
584: STX $F6
585: CMP $F6
586: BEQ L280469
587: PEI $F4
588: JSL L2800DF
589: PLY
590: L280469 LDA $F4
591: STA L0300DF
592: TSC
593: CLC
594: ADC #$0008
595: TCS
596: PLD
597: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.