![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to bncopy.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 bncopy.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 bncopy.L
12: lst off
13:
14: *-----------
15:
16: use bncopy.X
17:
18: *-----------
19:
20: L0D0000 ENT
21: PHD
22: TSC
23: SEC
24: SBC #$00F9
25: TCD
26: ADC #$00F0
27: TCS
28: LDA $FF
29: STA L030033
30: LDA $FF
31: ASL
32: ASL
33: ASL
34: ASL
35: STA L030035
36: LDA $FF
37: ASL
38: ASL
39: ASL
40: ASL
41: ASL
42: ASL
43: ASL
44: ASL
45: STA L030037
46: LDA #$000C
47: PHA
48: LDA $FF
49: CLC
50: JSL L2D082F
51: PLA
52: STA L030039
53: STZ $F2
54: BRL L0D009B
55: L0D003A LDA $F2
56: AND #$000F
57: CMP $FF
58: BNE L0D0048
59: LDA #$000F
60: BRA L0D004B
61: L0D0048 LDA #$0000
62: L0D004B PHA
63: LDA $F2
64: LDX #$0000
65: PHX
66: PHA
67: LDA #L040429
68: LDX #^L040429
69: JSL L2D0000
70: PLA
71: PLX
72: STA $F4
73: STX $F6
74: PLA
75: SEP #$20
76: STA [$F4]
77: REP #$20
78: LDA $F2
79: AND #$00F0
80: CMP L030035
81: BNE L0D0099
82: LDA $F2
83: LDX #$0000
84: PHX
85: PHA
86: LDA #L040429
87: LDX #^L040429
88: JSL L2D0000
89: PLA
90: PLX
91: STA $F4
92: STX $F6
93: LDA [$F4]
94: AND #$00FF
95: ORA #$00F0
96: SEP #$20
97: STA [$F4]
98: REP #$20
99: L0D0099 INC $F2
100: L0D009B LDA $F2
101: CMP #$0100
102: BNE L0D003A
103: TSC
104: CLC
105: ADC #$0008
106: TCS
107: PLD
108: RTL
109:
110: L0D00AA STA $00
111: STX $02
112: XBA
113: SEP #$30
114: TAX
115: LDAL L040429,X
116: XBA
117: LDX $00
118: LDAL L040429,X
119: REP #$30
120: TAX
121: AND $02
122: STA $02
123: TXA
124: EOR #$FFFF
125: AND $00
126: ORA $02
127: RTL
128:
129: L0D00CD XBA
130: TAX
131: LSR
132: LSR
133: LSR
134: LSR
135: AND #$0F0F
136: STA $00
137: TXA
138: ASL
139: ASL
140: ASL
141: ASL
142: AND #$F0F0
143: ORA $00
144: RTL
145:
146: L0D00E3 ENT
147: PHD
148: TSC
149: SEC
150: SBC #$00F1
151: TCD
152: ADC #$00E8
153: TCS
154: LDA $FF
155: ASL
156: TAX
157: LDAL L0434EC,X
158: STA $FF
159: PHB
160: PHK
161: PLB
162: PER L0D0113+1
163: PLA
164: STA $EA
165: SEP #$20
166: LDA $F9
167: XBA
168: LDA $FD
169: REP #$20
170: STA ($EA)
171: LDX $F7
172: LDY $FB
173: LDA $FF
174: DEC
175: L0D0113 MVN $010000,$000000
176: PLB
177: TSC
178: CLC
179: ADC #$0008
180: TCS
181: PLD
182: RTL
183:
184: L0D011F ENT
185: PHD
186: TSC
187: SEC
188: SBC #$00F1
189: TCD
190: ADC #$00E8
191: TCS
192: PHB
193: PHK
194: PLB
195: PER L0D0145+1
196: PLA
197: STA $EA
198: SEP #$20
199: LDA $F9
200: XBA
201: LDA $FD
202: REP #$20
203: STA ($EA)
204: LDX $F7
205: LDY $FB
206: LDA $FF
207: DEC
208: L0D0145 MVN $010000,$000000
209: PLB
210: TSC
211: CLC
212: ADC #$0008
213: TCS
214: PLD
215: RTL
216:
217: L0D0151 ENT
218: PHD
219: TSC
220: SEC
221: SBC #$00F1
222: TCD
223: ADC #$00EA
224: TCS
225: LDX $FD
226: L0D015E SEP #$20
227: LDA $FF
228: LDY $FB
229: DEY
230: L0D0165 STA [$F7],Y
231: DEY
232: BPL L0D0165
233: CLC
234: REP #$20
235: LDA $F7
236: ADC #$00A0
237: STA $F7
238: DEX
239: BNE L0D015E
240: TSC
241: CLC
242: ADC #$0006
243: TCS
244: PLD
245: RTL
246:
247: L0D017F ENT
248: PHD
249: TSC
250: SEC
251: SBC #$00F5
252: TCD
253: ADC #$00E8
254: TCS
255: LDA $FF
256: ASL
257: ASL
258: ASL
259: ASL
260: STA $EC
261: LDX #$0012
262: L0D0195 LDY #$0007
263: SEP #$20
264: L0D019A LDA [$FB],Y
265: STA $EE
266: AND #$0F
267: BEQ L0D01A4
268: LDA $FF
269: L0D01A4 STA $EA
270: LDA $EE
271: AND #$F0
272: BEQ L0D01AE
273: LDA $EC
274: L0D01AE ORA $EA
275: STA [$FB],Y
276: DEY
277: BPL L0D019A
278: REP #$20
279: LDA $FB
280: CLC
281: ADC #$0200
282: STA $FB
283: DEX
284: BNE L0D0195
285: TSC
286: CLC
287: ADC #$000C
288: TCS
289: PLD
290: RTL
291:
292: L0D01CA ENT
293: PHD
294: TSC
295: SEC
296: SBC #$00EF
297: TCD
298: ADC #$00E4
299: TCS
300: LDA $FF
301: LSR
302: DEC
303: STA $FF
304: LDA #$00A0
305: SEC
306: SBC $FF
307: DEC
308: STA $E6
309: PHB
310: PHK
311: PLB
312: PER L0D01FE+1
313: PLA
314: STA $E8
315: SEP #$20
316: LDA $F7
317: XBA
318: LDA $FB
319: REP #$20
320: STA ($E8)
321: LDX $F5
322: LDY $F9
323: L0D01FC LDA $FF
324: L0D01FE MVN $000000,$000000
325: TYA
326: CLC
327: ADC $E6
328: TAY
329: DEC $FD
330: BNE L0D01FC
331: PLB
332: TSC
333: CLC
334: ADC #$000A
335: TCS
336: PLD
337: RTL
338:
339: L0D0213 ENT
340: PHD
341: TSC
342: SEC
343: SBC #$00EF
344: TCD
345: ADC #$00E4
346: TCS
347: LDA $FF
348: LSR
349: DEC
350: STA $FF
351: LDA #$00A0
352: SEC
353: SBC $FF
354: DEC
355: STA $E6
356: PHB
357: PHK
358: PLB
359: PER L0D0247+1
360: PLA
361: STA $E8
362: SEP #$20
363: LDA $F7
364: XBA
365: LDA $FB
366: REP #$20
367: STA ($E8)
368: LDX $F5
369: LDY $F9
370: L0D0245 LDA $FF
371: L0D0247 MVN $000000,$000000
372: TXA
373: CLC
374: ADC $E6
375: TAX
376: DEC $FD
377: BNE L0D0245
378: PLB
379: TSC
380: CLC
381: ADC #$000A
382: TCS
383: PLD
384: RTL
385:
386: L0D025C ENT
387: PHD
388: TSC
389: SEC
390: SBC #$00EF
391: TCD
392: ADC #$00E4
393: TCS
394: LDA $FF
395: LSR
396: DEC
397: STA $FF
398: LDA #$00A0
399: SEC
400: SBC $FF
401: DEC
402: STA $E6
403: PHB
404: PHK
405: PLB
406: PER L0D0290+1
407: PLA
408: STA $E8
409: SEP #$20
410: LDA $F7
411: XBA
412: LDA $FB
413: REP #$20
414: STA ($E8)
415: LDX $F5
416: LDY $F9
417: L0D028E LDA $FF
418: L0D0290 MVN $000000,$000000
419: TYA
420: CLC
421: ADC $E6
422: TAY
423: TXA
424: CLC
425: ADC $E6
426: TAX
427: DEC $FD
428: BNE L0D028E
429: PLB
430: TSC
431: CLC
432: ADC #$000A
433: TCS
434: PLD
435: RTL
436:
437: L0D02AA ENT
438: PHD
439: TSC
440: SEC
441: SBC #$00F3
442: TCD
443: ADC #$00E6
444: TCS
445: LDA #$006F
446: STA $EA
447: LDA #$0026
448: STA $E8
449: PHB
450: PHK
451: PLB
452: PER L0D02D9+1
453: PLA
454: STA $EC
455: SEP #$20
456: LDA $FB
457: XBA
458: LDA $FF
459: REP #$20
460: STA ($EC)
461: LDX $F9
462: LDY $FD
463: L0D02D7 LDA $EA
464: L0D02D9 MVN $000000,$000000
465: TYA
466: CLC
467: ADC #$0030
468: TAY
469: TXA
470: CLC
471: ADC #$0190
472: TAX
473: DEC $E8
474: BNE L0D02D7
475: PLB
476: TSC
477: CLC
478: ADC #$000C
479: TCS
480: PLD
481: RTL
482:
483: L0D02F5 ENT
484: PHD
485: TSC
486: SEC
487: SBC #$00F3
488: TCD
489: ADC #$00E6
490: TCS
491: LDA #$0007
492: STA $EA
493: LDA #$0012
494: STA $E8
495: PHB
496: PHK
497: PLB
498: PER L0D0324+1
499: PLA
500: STA $EC
501: SEP #$20
502: LDA $FB
503: XBA
504: LDA $FF
505: REP #$20
506: STA ($EC)
507: LDX $F9
508: LDY $FD
509: L0D0322 LDA $EA
510: L0D0324 MVN $000000,$000000
511: TYA
512: CLC
513: ADC #$0098
514: TAY
515: TXA
516: CLC
517: ADC #$01F8
518: TAX
519: DEC $E8
520: BNE L0D0322
521: PLB
522: TSC
523: CLC
524: ADC #$000C
525: TCS
526: PLD
527: RTL
528:
529: L0D0340 ENT
530: PHD
531: TSC
532: SEC
533: SBC #$00EF
534: TCD
535: ADC #$00E8
536: TCS
537: LDA $FF
538: LSR
539: LSR
540: DEC
541: ASL
542: STA $FF
543: L0D0353 LDY $FF
544: L0D0355 LDA [$F9],Y
545: TAX
546: LDA [$F5],Y
547: JSL L0D00AA
548: STA [$F9],Y
549: DEY
550: DEY
551: BPL L0D0355
552: LDA $F9
553: CLC
554: ADC #$00A0
555: STA $F9
556: LDA $F5
557: ADC $FF
558: ADC #$0002
559: STA $F5
560: DEC $FD
561: BNE L0D0353
562: TSC
563: CLC
564: ADC #$0006
565: TCS
566: PLD
567: RTL
568:
569: L0D0381 ENT
570: PHD
571: TSC
572: SEC
573: SBC #$00EF
574: TCD
575: ADC #$00E8
576: TCS
577: LDA $FF
578: LSR
579: LSR
580: DEC
581: ASL
582: STA $FF
583: L0D0394 LDY $FF
584: L0D0396 LDA [$F5],Y
585: STY L03016D
586: JSL L0D00CD
587: TAX
588: LDA $FF
589: SEC
590: SBC L03016D
591: TAY
592: TXA
593: STA [$F9],Y
594: LDY L03016D
595: DEY
596: DEY
597: BPL L0D0396
598: CLC
599: LDA $F9
600: ADC $FF
601: ADC #$0002
602: STA $F9
603: LDA $F5
604: ADC $FF
605: ADC #$0002
606: STA $F5
607: DEC $FD
608: BNE L0D0394
609: TSC
610: CLC
611: ADC #$0006
612: TCS
613: PLD
614: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.