|
0
|
1 nam VDGInt
|
|
|
2 ttl CoCo 3 VDG I/O module
|
|
|
3
|
|
|
4 * Disassembled 98/09/31 12:15:57 by Disasm v1.6 (C) 1988 by RML
|
|
|
5
|
|
|
6 ifp1
|
|
|
7 use defsfile
|
|
|
8 endc
|
|
|
9
|
|
|
10 tylg set Systm+Objct
|
|
|
11 atrv set ReEnt+rev
|
|
|
12 rev set $01
|
|
|
13 edition set 3
|
|
|
14
|
|
|
15 mod eom,name,tylg,atrv,start,size
|
|
|
16
|
|
|
17 u0000 rmb 0
|
|
|
18 size equ .
|
|
|
19
|
|
|
20 fcb $07
|
|
|
21
|
|
|
22 name fcs /VDGInt/
|
|
|
23 fcb edition
|
|
|
24
|
|
|
25 start lbra L0076
|
|
|
26 lbra L016A
|
|
|
27 lbra L045F
|
|
|
28 lbra L0522
|
|
|
29 lbra L004A
|
|
|
30 cmpa #$00
|
|
|
31 bne L0035
|
|
|
32 ldb <$37,u
|
|
|
33 lbne L066E
|
|
|
34 ldd <$44,u
|
|
|
35 lbra L0396
|
|
|
36 L0035 cmpa #$01
|
|
|
37 beq L003B
|
|
|
38 clrb
|
|
|
39 rts
|
|
|
40 L003B ldx <$00A5
|
|
|
41 leax <$54,x
|
|
|
42 ldd ,x
|
|
|
43 std $04,x
|
|
|
44 ldd $02,x
|
|
|
45 std $06,x
|
|
|
46 clrb
|
|
|
47 rts
|
|
|
48 L004A pshs u,y,x
|
|
|
49 ldb #$03
|
|
|
50 L004E pshs b
|
|
|
51 lbsr L063B
|
|
|
52 lbsr L065B
|
|
|
53 puls b
|
|
|
54 decb
|
|
|
55 bne L004E
|
|
|
56 clr <$1E,u
|
|
|
57 ldd #$0200
|
|
|
58 ldu <$38,u
|
|
|
59 beq L0069
|
|
|
60 os9 F$SRtMem
|
|
|
61 L0069 ldb #$E1
|
|
|
62 leax <$1F,u
|
|
|
63 clra
|
|
|
64 L006F sta ,x+
|
|
|
65 decb
|
|
|
66 bne L006F
|
|
|
67 bra L00D5
|
|
|
68
|
|
|
69 L0076 pshs u,y,x
|
|
|
70 bsr L00D8
|
|
|
71 lda #$AF
|
|
|
72 sta <$41,u
|
|
|
73 pshs u
|
|
|
74 ldd #768
|
|
|
75 os9 F$SRqMem
|
|
|
76 tfr u,d
|
|
|
77 tfr u,x
|
|
|
78 bita #$01
|
|
|
79 beq L0095
|
|
|
80 leax >$0100,x
|
|
|
81 bra L0099
|
|
|
82 L0095 leau >$0200,u
|
|
|
83 L0099 ldd #256
|
|
|
84 os9 F$SRtMem
|
|
|
85 puls u
|
|
|
86 stx <$38,u
|
|
|
87 stx <$3C,u
|
|
|
88 leax >$0200,x
|
|
|
89 stx <$3A,u
|
|
|
90 lda #$60
|
|
|
91 sta <$3E,u
|
|
|
92 sta <$40,u
|
|
|
93 lbsr L02E6
|
|
|
94 inc <$1E,u
|
|
|
95 ldd <$1F,u
|
|
|
96 lbsr L054C
|
|
|
97 leax <$7C,u
|
|
|
98 stx <$2F,u
|
|
|
99 stx <$31,u
|
|
|
100 ldu <$00A5
|
|
|
101 ldb <$24,u
|
|
|
102 orb #$02
|
|
|
103 stb <$24,u
|
|
|
104 L00D5 clrb
|
|
|
105 puls pc,u,y,x
|
|
|
106 L00D8 pshs u,y,x,b,a
|
|
|
107 lda #$08
|
|
|
108 sta <$7B,u
|
|
|
109 leax >L011A,pcr
|
|
|
110 leay <$6B,u
|
|
|
111 L00E6 leau >L00F8,pcr
|
|
|
112 L00EA pshs u
|
|
|
113 leau >L012A,pcr
|
|
|
114 ldb #$10
|
|
|
115 L00F2 lda ,x+
|
|
|
116 jmp [,s]
|
|
|
117 L00F6 lda a,u
|
|
|
118 L00F8 sta ,y+
|
|
|
119 decb
|
|
|
120 bne L00F2
|
|
|
121 leas $02,s
|
|
|
122 L00FF puls pc,u,y,x,b,a
|
|
|
123 L0101 pshs u,y,x,b,a
|
|
|
124 lda >$100A
|
|
|
125 beq L00FF
|
|
|
126 leax <$6B,u
|
|
|
127 ldy #$FFB0
|
|
|
128 lda >$1009
|
|
|
129 bne L00E6
|
|
|
130 leau >L00F6,pcr
|
|
|
131 bra L00EA
|
|
|
132 L011A fdb $1236,$0924,$3f1b
|
|
|
133 fdb $2d26,$0012,$003f,$0012,$0026
|
|
|
134 L012A fdb $000c,$020e,$0709
|
|
|
135 fdb $0510,$1c2c,$0d1d,$0b1b,$0a2b,$2211,$1221,$0301
|
|
|
136 fdb $1332,$1e2d,$1f2e,$0f3c,$2f3d,$1708,$1506,$2716
|
|
|
137 fdb $2636,$192a,$1a3a,$1829,$2838,$1404
|
|
|
138 fcb $23
|
|
|
139 L015D leau $05,y
|
|
|
140 puls y,b
|
|
|
141 pshs y
|
|
|
142 rti
|
|
|
143 leay -$02,y
|
|
|
144 pulu y,x,dp,cc
|
|
|
145 swi
|
|
|
146 fcb $30 0
|
|
|
147 L016A cmpa #$0E
|
|
|
148 bls L01CF
|
|
|
149 cmpa #$1B
|
|
|
150 lbeq L01FA
|
|
|
151 cmpa #$1F
|
|
|
152 lbls L01CD
|
|
|
153 tsta
|
|
|
154 bmi L01BA
|
|
|
155 ldb <$35,u
|
|
|
156 beq L019A
|
|
|
157 cmpa #$5E
|
|
|
158 bne L018A
|
|
|
159 lda #$00
|
|
|
160 bra L01BA
|
|
|
161 L018A cmpa #$5F
|
|
|
162 bne L0192
|
|
|
163 lda #$1F
|
|
|
164 bra L01BA
|
|
|
165 L0192 cmpa #$60
|
|
|
166 bne L01AA
|
|
|
167 lda #$67
|
|
|
168 bra L01BA
|
|
|
169 L019A cmpa #$7C
|
|
|
170 bne L01A2
|
|
|
171 lda #$21
|
|
|
172 bra L01BA
|
|
|
173 L01A2 cmpa #$7E
|
|
|
174 bne L01AA
|
|
|
175 lda #$2D
|
|
|
176 bra L01BA
|
|
|
177 L01AA cmpa #$60
|
|
|
178 bcs L01B2
|
|
|
179 suba #$60
|
|
|
180 bra L01BA
|
|
|
181 L01B2 cmpa #$40
|
|
|
182 bcs L01B8
|
|
|
183 suba #$40
|
|
|
184 L01B8 eora #$40
|
|
|
185 L01BA ldx <$3C,u
|
|
|
186 sta ,x+
|
|
|
187 stx <$3C,u
|
|
|
188 cmpx <$3A,u
|
|
|
189 bcs L01CA
|
|
|
190 lbsr L0273
|
|
|
191 L01CA lbsr L029C
|
|
|
192 L01CD clrb
|
|
|
193 rts
|
|
|
194 L01CF leax >L01D8,pcr
|
|
|
195 lsla
|
|
|
196 ldd a,x
|
|
|
197 jmp d,x
|
|
|
198 L01D8 fdb $fff5,$011b,$0160,$0199
|
|
|
199 fdb $018b,$012f,$00fc,$fff5,$00ee,$01ab,$00d5,$010a
|
|
|
200 fdb $010e,$00bb,$01bc,$53c6,$f539
|
|
|
201 L01FA ldx <$2F,u
|
|
|
202 lda ,x
|
|
|
203 cmpa #$30
|
|
|
204 bne L0209
|
|
|
205 lbsr L00D8
|
|
|
206 lbra L026E
|
|
|
207 L0209 cmpa #$31
|
|
|
208 lbeq L0258
|
|
|
209 cmpa #$21
|
|
|
210 lbne L01CD
|
|
|
211 ldx $06,y
|
|
|
212 lda $01,x
|
|
|
213 ldx <$0050
|
|
|
214 cmpa >$00AC,x
|
|
|
215 beq L0249
|
|
|
216 ldb >$00AC,x
|
|
|
217 sta >$00AC,x
|
|
|
218 pshs y
|
|
|
219 bsr L024A
|
|
|
220 ldy $02,y
|
|
|
221 ldx <$00A5
|
|
|
222 cmpy <$20,x
|
|
|
223 puls y
|
|
|
224 bne L0248
|
|
|
225 inc <$23,u
|
|
|
226 ldy <$20,x
|
|
|
227 sty <$22,x
|
|
|
228 stu <$20,x
|
|
|
229 L0248 clrb
|
|
|
230 L0249 rts
|
|
|
231 L024A leax <$30,x
|
|
|
232 lda b,x
|
|
|
233 ldx <$0088
|
|
|
234 os9 F$Find64
|
|
|
235 ldy $03,y
|
|
|
236 rts
|
|
|
237 L0258 leax <L0260,pcr
|
|
|
238 ldb #$02
|
|
|
239 lbra L0457
|
|
|
240 L0260 ldx <$2F,u
|
|
|
241 ldd ,x
|
|
|
242 anda #$0F
|
|
|
243 andb #$3F
|
|
|
244 leax <$6B,u
|
|
|
245 stb a,x
|
|
|
246 L026E inc <$23,u
|
|
|
247 clrb
|
|
|
248 rts
|
|
|
249 L0273 ldx <$38,u
|
|
|
250 leax <$20,x
|
|
|
251 L0279 ldd ,x++
|
|
|
252 std <-$22,x
|
|
|
253 cmpx <$3A,u
|
|
|
254 bcs L0279
|
|
|
255 leax <-$20,x
|
|
|
256 stx <$3C,u
|
|
|
257 lda #$20
|
|
|
258 ldb #$60
|
|
|
259 L028D stb ,x+
|
|
|
260 deca
|
|
|
261 bne L028D
|
|
|
262 rts
|
|
|
263 L0293 bsr L02FD
|
|
|
264 tfr x,d
|
|
|
265 andb #$E0
|
|
|
266 stb <$3D,u
|
|
|
267 L029C ldx <$3C,u
|
|
|
268 lda ,x
|
|
|
269 sta <$3E,u
|
|
|
270 lda <$41,u
|
|
|
271 beq L02AB
|
|
|
272 L02A9 sta ,x
|
|
|
273 L02AB clrb
|
|
|
274 rts
|
|
|
275 bsr L02FD
|
|
|
276 leax <$20,x
|
|
|
277 cmpx <$3A,u
|
|
|
278 bcs L02C1
|
|
|
279 leax <-$20,x
|
|
|
280 pshs x
|
|
|
281 lbsr L0273
|
|
|
282 puls x
|
|
|
283 L02C1 stx <$3C,u
|
|
|
284 bra L029C
|
|
|
285 bsr L02FD
|
|
|
286 cmpx <$38,u
|
|
|
287 bls L02D2
|
|
|
288 leax -$01,x
|
|
|
289 stx <$3C,u
|
|
|
290 L02D2 bra L029C
|
|
|
291 bsr L02FD
|
|
|
292 leax $01,x
|
|
|
293 cmpx <$3A,u
|
|
|
294 bcc L02E0
|
|
|
295 stx <$3C,u
|
|
|
296 L02E0 bra L029C
|
|
|
297 bsr L02FD
|
|
|
298 bra L02E8
|
|
|
299 L02E6 bsr L02F3
|
|
|
300 L02E8 lda #$60
|
|
|
301 L02EA sta ,x+
|
|
|
302 cmpx <$3A,u
|
|
|
303 bcs L02EA
|
|
|
304 bra L029C
|
|
|
305 L02F3 bsr L02FD
|
|
|
306 ldx <$38,u
|
|
|
307 stx <$3C,u
|
|
|
308 bra L029C
|
|
|
309 L02FD ldx <$3C,u
|
|
|
310 lda <$3E,u
|
|
|
311 sta ,x
|
|
|
312 clrb
|
|
|
313 rts
|
|
|
314 lda <$7C,u
|
|
|
315 suba #$20
|
|
|
316 bne L0313
|
|
|
317 sta <$41,u
|
|
|
318 bra L02FD
|
|
|
319 L0313 cmpa #$0B
|
|
|
320 bge L02AB
|
|
|
321 cmpa #$01
|
|
|
322 bgt L031F
|
|
|
323 lda #$AF
|
|
|
324 bra L032F
|
|
|
325 L031F cmpa #$02
|
|
|
326 bgt L0327
|
|
|
327 lda #$A0
|
|
|
328 bra L032F
|
|
|
329 L0327 subb #$03
|
|
|
330 lsla
|
|
|
331 lsla
|
|
|
332 lsla
|
|
|
333 lsla
|
|
|
334 ora #$8F
|
|
|
335 L032F sta <$41,u
|
|
|
336 ldx <$3C,u
|
|
|
337 lbra L02A9
|
|
|
338 ldb #$02
|
|
|
339 leax <L0340,pcr
|
|
|
340 lbra L0457
|
|
|
341 L0340 bsr L02FD
|
|
|
342 ldb <$7D,u
|
|
|
343 subb #$20
|
|
|
344 lda #$20
|
|
|
345 mul
|
|
|
346 addb <$7C,u
|
|
|
347 adca #$00
|
|
|
348 subd #$0020
|
|
|
349 addd <$38,u
|
|
|
350 cmpd <$3A,u
|
|
|
351 lbcc L02AB
|
|
|
352 std <$3C,u
|
|
|
353 lbra L029C
|
|
|
354 bsr L02FD
|
|
|
355 tfr x,d
|
|
|
356 andb #$1F
|
|
|
357 pshs b
|
|
|
358 ldb #$20
|
|
|
359 subb ,s+
|
|
|
360 bra L0376
|
|
|
361 lbsr L0293
|
|
|
362 ldb #$20
|
|
|
363 L0376 lda #$60
|
|
|
364 ldx <$3C,u
|
|
|
365 L037B sta ,x+
|
|
|
366 decb
|
|
|
367 bne L037B
|
|
|
368 lbra L029C
|
|
|
369 lbsr L02FD
|
|
|
370 leax <-$20,x
|
|
|
371 cmpx <$38,u
|
|
|
372 bcs L0391
|
|
|
373 stx <$3C,u
|
|
|
374 L0391 lbra L029C
|
|
|
375 clra
|
|
|
376 clrb
|
|
|
377 L0396 pshs x,a
|
|
|
378 stb <$45,u
|
|
|
379 clr <$37,u
|
|
|
380 lda >PIA1Base+2
|
|
|
381 anda #$07
|
|
|
382 ora ,s+
|
|
|
383 tstb
|
|
|
384 bne L03AD
|
|
|
385 anda #$EF
|
|
|
386 ora <$35,u
|
|
|
387 L03AD sta <$44,u
|
|
|
388 tst >$100A
|
|
|
389 lbeq L0440
|
|
|
390 sta >PIA1Base+2
|
|
|
391 tstb
|
|
|
392 bne L03CB
|
|
|
393 stb >$FFC0
|
|
|
394 stb >$FFC2
|
|
|
395 stb >$FFC4
|
|
|
396 lda <$38,u
|
|
|
397 bra L03D7
|
|
|
398 L03CB stb >$FFC0
|
|
|
399 stb >$FFC3
|
|
|
400 stb >$FFC5
|
|
|
401 lda <$47,u
|
|
|
402 L03D7 lbsr L0101
|
|
|
403 ldb <$0090
|
|
|
404 orb #$80
|
|
|
405 stb <$0090
|
|
|
406 stb >$FF90
|
|
|
407 ldb <$0098
|
|
|
408 andb #$78
|
|
|
409 stb >$FF98
|
|
|
410 stb <$0098
|
|
|
411 clrb
|
|
|
412 stb >$FF99
|
|
|
413 stb <$0099
|
|
|
414 stb >BordReg
|
|
|
415 stb <$009A
|
|
|
416 tfr a,b
|
|
|
417 andb #$1F
|
|
|
418 pshs b
|
|
|
419 anda #$E0
|
|
|
420 lsra
|
|
|
421 lsra
|
|
|
422 lsra
|
|
|
423 lsra
|
|
|
424 ldx <$004C
|
|
|
425 leax a,x
|
|
|
426 ldb $01,x
|
|
|
427 pshs b
|
|
|
428 andb #$38
|
|
|
429 lslb
|
|
|
430 lslb
|
|
|
431 stb <$009D
|
|
|
432 stb >$FF9D
|
|
|
433 clrb
|
|
|
434 stb <$009E
|
|
|
435 stb >$FF9E
|
|
|
436 ldb #$0F
|
|
|
437 stb <$009C
|
|
|
438 stb >$FF9C
|
|
|
439 puls a
|
|
|
440 lsla
|
|
|
441 lsla
|
|
|
442 lsla
|
|
|
443 lsla
|
|
|
444 lsla
|
|
|
445 ora ,s+
|
|
|
446 ldb #$07
|
|
|
447 ldx #$FFC6
|
|
|
448 lsra
|
|
|
449 L0430 lsra
|
|
|
450 bcs L0439
|
|
|
451 sta ,x+
|
|
|
452 leax $01,x
|
|
|
453 bra L043D
|
|
|
454 L0439 leax $01,x
|
|
|
455 sta ,x+
|
|
|
456 L043D decb
|
|
|
457 bne L0430
|
|
|
458 L0440 clrb
|
|
|
459 puls pc,x
|
|
|
460 pshs x,b,a
|
|
|
461 clra
|
|
|
462 ldb $02,s
|
|
|
463 ldx <$004E
|
|
|
464 leax d,x
|
|
|
465 puls b,a
|
|
|
466 L044E sta ,x+
|
|
|
467 decb
|
|
|
468 bne L044E
|
|
|
469 puls pc,x
|
|
|
470 ldb #$01
|
|
|
471 L0457 stb <$2C,u
|
|
|
472 stx <$2D,u
|
|
|
473 clrb
|
|
|
474 rts
|
|
|
475 L045F ldx $06,y
|
|
|
476 cmpa #$1C
|
|
|
477 beq L049B
|
|
|
478 cmpa #$26
|
|
|
479 beq L0477
|
|
|
480 cmpa #$25
|
|
|
481 beq L04C7
|
|
|
482 cmpa #$91
|
|
|
483 lbeq L0484
|
|
|
484 comb
|
|
|
485 ldb #$D0
|
|
|
486 rts
|
|
|
487 L0477 clra
|
|
|
488 ldb <$42,u
|
|
|
489 std $04,x
|
|
|
490 ldb <$43,u
|
|
|
491 std $06,x
|
|
|
492 clrb
|
|
|
493 rts
|
|
|
494 L0484 pshs u,y,x
|
|
|
495 leay <$6B,u
|
|
|
496 ldu $04,x
|
|
|
497 ldx <$0050
|
|
|
498 ldb $06,x
|
|
|
499 clra
|
|
|
500 tfr y,x
|
|
|
501 ldy #$0010
|
|
|
502 os9 F$Move
|
|
|
503 puls pc,u,y,x
|
|
|
504 L049B ldd <$38,u
|
|
|
505 anda #$E0
|
|
|
506 lsra
|
|
|
507 lsra
|
|
|
508 lsra
|
|
|
509 lsra
|
|
|
510 ldy <$004C
|
|
|
511 ldd a,y
|
|
|
512 lbsr L06E1
|
|
|
513 bcs L0521
|
|
|
514 pshs b,a
|
|
|
515 ldd <$38,u
|
|
|
516 anda #$1F
|
|
|
517 addd ,s
|
|
|
518 std $04,x
|
|
|
519 ldd <$3C,u
|
|
|
520 anda #$1F
|
|
|
521 addd ,s++
|
|
|
522 std $06,x
|
|
|
523 lda <$21,u
|
|
|
524 bra L051E
|
|
|
525 L04C7 ldd <$3C,u
|
|
|
526 subd <$38,u
|
|
|
527 pshs b,a
|
|
|
528 clra
|
|
|
529 andb #$1F
|
|
|
530 addb #$20
|
|
|
531 std $04,x
|
|
|
532 puls b,a
|
|
|
533 lsra
|
|
|
534 rolb
|
|
|
535 rolb
|
|
|
536 rolb
|
|
|
537 rolb
|
|
|
538 clra
|
|
|
539 andb #$0F
|
|
|
540 addb #$20
|
|
|
541 std $06,x
|
|
|
542 ldb <$35,u
|
|
|
543 lda <$3E,u
|
|
|
544 bmi L051E
|
|
|
545 cmpa #$60
|
|
|
546 bcc L0509
|
|
|
547 cmpa #$20
|
|
|
548 bcc L050D
|
|
|
549 tstb
|
|
|
550 beq L0507
|
|
|
551 cmpa #$00
|
|
|
552 bne L04FF
|
|
|
553 lda #$5E
|
|
|
554 bra L051E
|
|
|
555 L04FF cmpa #$1F
|
|
|
556 bne L0507
|
|
|
557 lda #$5F
|
|
|
558 bra L051E
|
|
|
559 L0507 ora #$20
|
|
|
560 L0509 eora #$40
|
|
|
561 bra L051E
|
|
|
562 L050D tstb
|
|
|
563 bne L051E
|
|
|
564 cmpa #$21
|
|
|
565 bne L0518
|
|
|
566 lda #$7C
|
|
|
567 bra L051E
|
|
|
568 L0518 cmpa #$2D
|
|
|
569 bne L051E
|
|
|
570 lda #$7E
|
|
|
571 L051E sta $01,x
|
|
|
572 clrb
|
|
|
573 L0521 rts
|
|
|
574 L0522 ldx $06,y
|
|
|
575 cmpa #$28
|
|
|
576 beq L054A
|
|
|
577 cmpa #$8F
|
|
|
578 lbeq L05B9
|
|
|
579 cmpa #$8C
|
|
|
580 lbeq L062F
|
|
|
581 cmpa #$8E
|
|
|
582 lbeq L05F3
|
|
|
583 cmpa #$8B
|
|
|
584 lbeq L056A
|
|
|
585 cmpa #$8D
|
|
|
586 lbeq L0647
|
|
|
587 comb
|
|
|
588 ldb #$D0
|
|
|
589 rts
|
|
|
590 L054A ldd $06,x
|
|
|
591 L054C ldb #$10
|
|
|
592 bita #$01
|
|
|
593 bne L0553
|
|
|
594 clrb
|
|
|
595 L0553 stb <$35,u
|
|
|
596 ldd #$2010
|
|
|
597 inc <$23,u
|
|
|
598 std <$42,u
|
|
|
599 rts
|
|
|
600 L0560 fdb $1402,$1502,$1602
|
|
|
601 fdb $1d04,$1e04
|
|
|
602 L056A ldb $05,x
|
|
|
603 cmpb #$04
|
|
|
604 bhi L05B5
|
|
|
605 lda #$03
|
|
|
606 pshs y,x,b,a
|
|
|
607 lda #$03
|
|
|
608 ldb #$03
|
|
|
609 leay <$4D,u
|
|
|
610 lbsr L06C7
|
|
|
611 bcs L05AF
|
|
|
612 sta ,s
|
|
|
613 ldb $01,s
|
|
|
614 stb $02,y
|
|
|
615 leax >L0560,pcr
|
|
|
616 lslb
|
|
|
617 leax b,x
|
|
|
618 ldb $01,x
|
|
|
619 stb $01,y
|
|
|
620 lbsr L06DD
|
|
|
621 bcs L05AF
|
|
|
622 stb ,y
|
|
|
623 lda $01,x
|
|
|
624 ldy $02,s
|
|
|
625 tst $04,y
|
|
|
626 bne L05A6
|
|
|
627 lbsr L06E3
|
|
|
628 bcs L05AF
|
|
|
629 L05A6 ldx $02,s
|
|
|
630 std $04,x
|
|
|
631 ldb ,s
|
|
|
632 clra
|
|
|
633 std $06,x
|
|
|
634 L05AF leas $02,s
|
|
|
635 puls pc,y,x
|
|
|
636 L05B3 leas $02,s
|
|
|
637 L05B5 comb
|
|
|
638 ldb #$BB
|
|
|
639 rts
|
|
|
640 L05B9 pshs x
|
|
|
641 ldb $06,x
|
|
|
642 bmi L05C8
|
|
|
643 bsr L05DE
|
|
|
644 bcs L05DC
|
|
|
645 lbsr L06FF
|
|
|
646 bcs L05DC
|
|
|
647 L05C8 ldx ,s
|
|
|
648 ldb $07,x
|
|
|
649 bmi L05DB
|
|
|
650 bsr L05DE
|
|
|
651 bcs L05DC
|
|
|
652 lbsr L06E3
|
|
|
653 bcs L05DC
|
|
|
654 ldx ,s
|
|
|
655 std $04,x
|
|
|
656 L05DB clrb
|
|
|
657 L05DC puls pc,x
|
|
|
658 L05DE beq L05F1
|
|
|
659 cmpb #$03
|
|
|
660 bhi L05F1
|
|
|
661 bsr L063B
|
|
|
662 beq L05F1
|
|
|
663 ldb ,x
|
|
|
664 beq L05F1
|
|
|
665 lda $01,x
|
|
|
666 andcc #^Carry
|
|
|
667 rts
|
|
|
668 L05F1 bra L05B5
|
|
|
669 L05F3 ldd $04,x
|
|
|
670 pshs b,a
|
|
|
671 cmpd #$0004
|
|
|
672 bhi L05B3
|
|
|
673 leax >L0560,pcr
|
|
|
674 lslb
|
|
|
675 incb
|
|
|
676 lda b,x
|
|
|
677 sta ,s
|
|
|
678 ldx $06,y
|
|
|
679 bsr L061B
|
|
|
680 bcs L05B3
|
|
|
681 lda ,s
|
|
|
682 cmpa $01,x
|
|
|
683 bhi L05B3
|
|
|
684 lda $01,s
|
|
|
685 sta $02,x
|
|
|
686 leas $02,s
|
|
|
687 bra L0633
|
|
|
688 L061B ldd $06,x
|
|
|
689 bmi L05B5
|
|
|
690 beq L0633
|
|
|
691 cmpd #$0003
|
|
|
692 bgt L05B5
|
|
|
693 bsr L063B
|
|
|
694 lda ,x
|
|
|
695 beq L05B5
|
|
|
696 clra
|
|
|
697 rts
|
|
|
698 L062F bsr L061B
|
|
|
699 bcs L063A
|
|
|
700 L0633 stb <$37,u
|
|
|
701 inc <$23,u
|
|
|
702 clrb
|
|
|
703 L063A rts
|
|
|
704 L063B pshs b,a
|
|
|
705 leax <$4A,u
|
|
|
706 lda #$03
|
|
|
707 mul
|
|
|
708 leax b,x
|
|
|
709 puls pc,b,a
|
|
|
710 L0647 tst $06,x
|
|
|
711 bne L05F1
|
|
|
712 ldb $07,x
|
|
|
713 cmpb <$37,u
|
|
|
714 beq L05F1
|
|
|
715 tstb
|
|
|
716 lbsr L05DE
|
|
|
717 bcs L05F1
|
|
|
718 lbsr L06FF
|
|
|
719 L065B lda $01,x
|
|
|
720 ldb ,x
|
|
|
721 beq L066D
|
|
|
722 pshs a
|
|
|
723 clra
|
|
|
724 sta ,x
|
|
|
725 tfr d,x
|
|
|
726 puls b
|
|
|
727 os9 F$DelRAM
|
|
|
728 L066D rts
|
|
|
729 L066E cmpb #$03
|
|
|
730 bhi L06C6
|
|
|
731 bsr L063B
|
|
|
732 ldb ,x
|
|
|
733 beq L06C6
|
|
|
734 ldb $02,x
|
|
|
735 cmpb #$04
|
|
|
736 bhi L06C6
|
|
|
737 lslb
|
|
|
738 pshs x
|
|
|
739 leax >L0560,pcr
|
|
|
740 ldb b,x
|
|
|
741 puls x
|
|
|
742 stb >$FF99
|
|
|
743 stb >$0099
|
|
|
744 lda >$0090
|
|
|
745 anda #$7F
|
|
|
746 sta >$0090
|
|
|
747 sta >$FF90
|
|
|
748 lda >$0098
|
|
|
749 ora #$80
|
|
|
750 anda #$F8
|
|
|
751 sta >$0098
|
|
|
752 sta >$FF98
|
|
|
753 clr >$009A
|
|
|
754 clr >BordReg
|
|
|
755 lda ,x
|
|
|
756 lsla
|
|
|
757 lsla
|
|
|
758 sta >$009D
|
|
|
759 sta >$FF9D
|
|
|
760 clr >$009E
|
|
|
761 clr >$FF9E
|
|
|
762 clr >$009C
|
|
|
763 clr >$FF9C
|
|
|
764 lbsr L0101
|
|
|
765 L06C6 rts
|
|
|
766 L06C7 clr ,-s
|
|
|
767 inc ,s
|
|
|
768 L06CB tst ,y
|
|
|
769 beq L06D9
|
|
|
770 leay b,y
|
|
|
771 inc ,s
|
|
|
772 deca
|
|
|
773 bne L06CB
|
|
|
774 comb
|
|
|
775 ldb #$CB
|
|
|
776 L06D9 puls pc,a
|
|
|
777 ldb #$01
|
|
|
778 L06DD os9 F$AlHRAM
|
|
|
779 rts
|
|
|
780 L06E1 lda #$01
|
|
|
781 L06E3 pshs u,x,b,a
|
|
|
782 bsr L0710
|
|
|
783 bcc L06F9
|
|
|
784 clra
|
|
|
785 ldb $01,s
|
|
|
786 tfr d,x
|
|
|
787 ldb ,s
|
|
|
788 os9 F$MapBlk
|
|
|
789 stb $01,s
|
|
|
790 tfr u,d
|
|
|
791 bcs L06FD
|
|
|
792 L06F9 leas $02,s
|
|
|
793 puls pc,u,x
|
|
|
794 L06FD puls pc,u,x,b,a
|
|
|
795 L06FF pshs y,x,a
|
|
|
796 bsr L0710
|
|
|
797 bcs L070E
|
|
|
798 ldd #$333E
|
|
|
799 L0708 std ,x++
|
|
|
800 dec ,s
|
|
|
801 bne L0708
|
|
|
802 L070E puls pc,y,x,a
|
|
|
803 L0710 pshs b,a
|
|
|
804 lda #$08
|
|
|
805 sta $01,s
|
|
|
806 ldx <$0050
|
|
|
807 leax <$50,x
|
|
|
808 clra
|
|
|
809 addb ,s
|
|
|
810 decb
|
|
|
811 L071F cmpd ,--x
|
|
|
812 beq L072A
|
|
|
813 dec $01,s
|
|
|
814 bne L071F
|
|
|
815 bra L0743
|
|
|
816 L072A dec $01,s
|
|
|
817 dec ,s
|
|
|
818 beq L0738
|
|
|
819 decb
|
|
|
820 cmpd ,--x
|
|
|
821 beq L072A
|
|
|
822 bra L0743
|
|
|
823 L0738 lda $01,s
|
|
|
824 lsla
|
|
|
825 lsla
|
|
|
826 lsla
|
|
|
827 lsla
|
|
|
828 lsla
|
|
|
829 clrb
|
|
|
830 leas $02,s
|
|
|
831 rts
|
|
|
832 L0743 puls b,a
|
|
|
833 comb
|
|
|
834 ldb #E$BPAddr
|
|
|
835 rts
|
|
|
836
|
|
|
837 emod
|
|
|
838 eom equ *
|
|
|
839 end
|
