![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dial.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 dial.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 dial.L
12: lst off
13:
14: *-----------
15:
16: use dial.X
17:
18: *-----------
19:
20: use 4/Event.Macs
21: use 4/Qd.Macs
22: use 4/Util.Macs
23:
24: *-----------
25:
26: L090000 PHD
27: TSC
28: SEC
29: SBC #$00FB
30: TCD
31: ADC #$00F4
32: TCS
33: LDX L03001D
34: LDA L03001B
35: CLC
36: ADC #$0014
37: PHA
38: TXA
39: ADC #$0000
40: TAX
41: PLA
42: PHX
43: PHA
44: PHX
45: PHA
46: _TickCount
47: BCS L09002C
48: LDA #$0000
49: L09002C STAL L030169
50: PLA
51: PLX
52: JSL L2D03FD
53: BCS L090054
54: PHX
55: PHA
56: _TickCount
57: BCS L090046
58: LDA #$0000
59: L090046 STAL L030169
60: PLA
61: PLX
62: STX L03001D
63: STA L03001B
64: BRA L090057
65: L090054 BRL L0900D6
66: L090057 PEA $0001
67: PEA $FFFF
68: _Move
69: BCS L090069
70: LDA #$0000
71: L090069 STAL L030169
72: LDA L030019
73: BEQ L090087
74: PEA $000D
75: _SetSolidPenPat
76: BCS L090081
77: LDA #$0000
78: L090081 STAL L030169
79: BRA L09009A
80: L090087 PEA $0000
81: _SetSolidPenPat
82: BCS L090096
83: LDA #$0000
84: L090096 STAL L030169
85: L09009A PEA $0000
86: PEA $FFFA
87: _Line
88: BCS L0900AC
89: LDA #$0000
90: L0900AC STAL L030169
91: PEA $FFFF
92: PEA $0007
93: _Move
94: BCS L0900C2
95: LDA #$0000
96: L0900C2 STAL L030169
97: LDA L030019
98: BEQ L0900D0
99: LDA #$0000
100: BRA L0900D3
101: L0900D0 LDA #$0001
102: L0900D3 STA L030019
103: L0900D6 TAY
104: TSC
105: CLC
106: ADC #$0006
107: TCS
108: TYA
109: PLD
110: RTL
111:
112: L0900E0 ENT
113: PHD
114: TSC
115: SEC
116: SBC #$00FB
117: TCD
118: ADC #$00F2
119: TCS
120: L0900EB PHA
121: PEA $0008
122: PEA ^L0400D5
123: PEA L0400D5
124: _GetNextEvent
125: BCS L090101
126: LDA #$0000
127: L090101 STAL L030169
128: PLA
129: TAY
130: BNE L09010B
131: BRA L0900EB
132: L09010B LDAL L0400D9
133: TAX
134: LDAL L0400D7
135: AND #$00FF
136: PHA
137: TXA
138: AND #$0000
139: TAX
140: PLA
141: STA $F4
142: LDA $F4
143: TAY
144: TSC
145: CLC
146: ADC #$0008
147: TCS
148: TYA
149: PLD
150: RTL
151:
152: L09012C PHD
153: TSC
154: SEC
155: SBC #$00F5
156: TCD
157: ADC #$00E7
158: TCS
159: STZ $ED
160: STZ $EB
161: STZ $E9
162: BRA L090161
163: L09013F LDA $E9
164: LDX #$0000
165: PHX
166: PHA
167: LDA #L0400ED
168: LDX #^L0400ED
169: JSL L2D0000
170: PLA
171: PLX
172: STA $F0
173: STX $F2
174: LDA #$0000
175: SEP #$20
176: STA [$F0]
177: REP #$20
178: INC $E9
179: L090161 LDA $E9
180: CMP #$0064
181: BNE L09013F
182: PEI $FB
183: PEI $FD
184: _MoveTo
185: BCS L090178
186: LDA #$0000
187: L090178 STAL L030169
188: L09017C PHA
189: PEA $0008
190: PEA ^L0400D5
191: PEA L0400D5
192: _GetNextEvent
193: BCS L090192
194: LDA #$0000
195: L090192 STAL L030169
196: PLA
197: TAY
198: BNE L0901A0
199: JSL L090000
200: BRA L09017C
201: L0901A0 LDAL L0400D9
202: TAX
203: LDAL L0400D7
204: AND #$00FF
205: PHA
206: TXA
207: AND #$0000
208: TAX
209: PLA
210: SEP #$20
211: STA $EF
212: REP #$20
213: LDA $EF
214: AND #$00FF
215: CMP #$007F
216: BNE L0901EC
217: LDA $ED
218: BEQ L0901EC
219: DEC $ED
220: LDA $ED
221: LDX #$0000
222: PHX
223: PHA
224: LDA #L0400ED
225: LDX #^L0400ED
226: JSL L2D0000
227: PLA
228: PLX
229: STA $F0
230: STX $F2
231: LDA #$0000
232: SEP #$20
233: STA [$F0]
234: REP #$20
235: BRL L090256
236: L0901EC LDA $EF
237: AND #$00FF
238: SEC
239: SBC #$001F
240: BEQ L090247
241: BVS L0901FC
242: EOR #$8000
243: L0901FC BPL L090247
244: LDA $ED
245: CMP $FF
246: BCS L090247
247: LDA $ED
248: INC $ED
249: LDX #$0000
250: PHX
251: PHA
252: LDA #L0400ED
253: LDX #^L0400ED
254: JSL L2D0000
255: PLA
256: PLX
257: STA $F0
258: STX $F2
259: LDA $EF
260: SEP #$20
261: STA [$F0]
262: REP #$20
263: LDA $ED
264: LDX #$0000
265: PHX
266: PHA
267: LDA #L0400ED
268: LDX #^L0400ED
269: JSL L2D0000
270: PLA
271: PLX
272: STA $F0
273: STX $F2
274: LDA #$0000
275: SEP #$20
276: STA [$F0]
277: REP #$20
278: BRA L090256
279: L090247 LDA $EF
280: AND #$00FF
281: CMP #$000D
282: BNE L090256
283: LDA #$0001
284: STA $EB
285: L090256 PEI $FB
286: PEI $FD
287: _MoveTo
288: BCS L090266
289: LDA #$0000
290: L090266 STAL L030169
291: PEA ^L0400ED
292: PEA L0400ED
293: _DrawCString
294: BCS L09027C
295: LDA #$0000
296: L09027C STAL L030169
297: PEA ^L0400D1
298: PEA L0400D1
299: _DrawCString
300: BCS L090292
301: LDA #$0000
302: L090292 STAL L030169
303: PEI $FB
304: PEI $FD
305: _MoveTo
306: BCS L0902A6
307: LDA #$0000
308: L0902A6 STAL L030169
309: PEA ^L0400ED
310: PEA L0400ED
311: _DrawCString
312: BCS L0902BC
313: LDA #$0000
314: L0902BC STAL L030169
315: LDA $EB
316: BNE L0902C7
317: BRL L09017C
318: L0902C7 LDA #L0400ED
319: LDX #^L0400ED
320: TAY
321: TSC
322: CLC
323: ADC #$000D
324: TCS
325: TYA
326: PLD
327: RTL
328:
329: L0902D7 ENT
330: PHD
331: TSC
332: SEC
333: SBC #$00EF
334: TCD
335: ADC #$00E4
336: TCS
337: PEA $0000
338: PEA $000D
339: JSL L070534
340: PLY
341: PLY
342: PEI $FF
343: PEI $FD
344: PEA $000D
345: LDA $F7
346: CLC
347: ADC #$000E
348: PHA
349: LDA $F5
350: CLC
351: ADC $F9
352: CLC
353: ADC #$0003
354: PHA
355: PEI $F7
356: LDA $F5
357: SEC
358: SBC #$0003
359: PHA
360: JSL L07018E
361: TAY
362: TSC
363: CLC
364: ADC #$000E
365: TCS
366: TYA
367: PEI $FB
368: LDA $F7
369: CLC
370: ADC #$000A
371: PHA
372: PEI $F5
373: JSL L09012C
374: PLY
375: PLY
376: PLY
377: STX $E8
378: STA $E6
379: PEA $0000
380: PEA $000C
381: JSL L070534
382: PLY
383: PLY
384: LDX $E8
385: LDA $E6
386: TAY
387: TSC
388: CLC
389: ADC #$000A
390: TCS
391: TYA
392: PLD
393: RTL
394:
395: L09034B ENT
396: PHD
397: TSC
398: SEC
399: SBC #$00E7
400: TCD
401: ADC #$00E0
402: TCS
403: PEI $FF
404: PEI $FD
405: JSL L07008D
406: PLY
407: PLY
408: PEI $FF
409: PEI $FD
410: PEA $0000
411: LDA $EF
412: CLC
413: ADC $F3
414: CLC
415: ADC #$0002
416: PHA
417: LDA $ED
418: CLC
419: ADC $F1
420: CLC
421: ADC #$0002
422: PHA
423: LDA $EF
424: CLC
425: ADC #$0002
426: PHA
427: LDA $ED
428: CLC
429: ADC #$0002
430: PHA
431: JSL L070205
432: TAY
433: TSC
434: CLC
435: ADC #$000E
436: TCS
437: TYA
438: PEI $FF
439: PEI $FD
440: PEA $000B
441: LDA $EF
442: CLC
443: ADC $F3
444: SEC
445: SBC #$0002
446: PHA
447: LDA $ED
448: CLC
449: ADC $F1
450: SEC
451: SBC #$0002
452: PHA
453: LDA $EF
454: CLC
455: ADC #$0002
456: PHA
457: LDA $ED
458: CLC
459: ADC #$0002
460: PHA
461: JSL L07018E
462: TAY
463: TSC
464: CLC
465: ADC #$000E
466: TCS
467: TYA
468: PEI $FF
469: PEI $FD
470: PEA $000D
471: LDA $EF
472: CLC
473: ADC $F3
474: SEC
475: SBC #$0001
476: PHA
477: LDA $ED
478: CLC
479: ADC $F1
480: SEC
481: SBC #$0001
482: PHA
483: LDA $EF
484: CLC
485: ADC #$0001
486: PHA
487: LDA $ED
488: CLC
489: ADC #$0001
490: PHA
491: JSL L07018E
492: TAY
493: TSC
494: CLC
495: ADC #$000E
496: TCS
497: TYA
498: PEI $FF
499: PEI $FD
500: PEA $000B
501: LDA $EF
502: CLC
503: ADC $F3
504: PHA
505: LDA $ED
506: CLC
507: ADC $F1
508: PHA
509: PEI $EF
510: PEI $ED
511: JSL L07018E
512: TAY
513: TSC
514: CLC
515: ADC #$000E
516: TCS
517: TYA
518: LDA $ED
519: CLC
520: ADC #$0008
521: PHA
522: LDA $EF
523: CLC
524: ADC #$0010
525: PHA
526: _MoveTo
527: BCS L09043C
528: LDA #$0000
529: L09043C STAL L030169
530: LDA $F5
531: LDX $F7
532: JSL L2D08A1
533: LDA $ED
534: CLC
535: ADC #$0008
536: PHA
537: LDA $EF
538: CLC
539: ADC #$001A
540: PHA
541: _MoveTo
542: BCS L090462
543: LDA #$0000
544: L090462 STAL L030169
545: LDA $F9
546: LDX $FB
547: JSL L2D08A1
548: TSC
549: CLC
550: ADC #$0006
551: TCS
552: PLD
553: RTL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.