69
|
1 *
|
|
2 * GAME09 interpreter
|
|
3 *
|
|
4
|
70
|
5 ifp1
|
|
6 use defsfile
|
|
7 endc
|
69
|
8
|
70
|
9 nam Game09
|
|
10 ttl Game09
|
|
11 tylg set Prgrm+Objct
|
|
12 atrv set ReEnt+rev
|
|
13 rev set $01
|
|
14 edition set 5
|
69
|
15
|
70
|
16 mod eom,name,tylg,atrv,start,size
|
69
|
17
|
70
|
18 name fcs "Game09"
|
|
19 fcb edition
|
|
20
|
|
21 org 0
|
|
22 dpage rmb $96
|
69
|
23
|
70
|
24 DP00 equ $00
|
|
25 DP42 equ $42
|
|
26 DP46 equ $46
|
|
27 DP4A equ $4A
|
|
28 DP4B equ $4B
|
|
29 DP4E equ $4E
|
|
30 DP4F equ $4F
|
|
31 DP50 equ $50
|
|
32 DP52 equ $52
|
|
33 DP58 equ $58
|
|
34 DP7E equ $7E
|
|
35 DP82 equ $82
|
|
36 DP83 equ $83
|
|
37 DP84 equ $84
|
|
38 DP86 equ $86
|
|
39 DP88 equ $88
|
|
40 DP8A equ $8A
|
|
41 DP8C equ $8C
|
|
42 DP8D equ $8D
|
|
43 DP8E equ $8E
|
|
44 DP94 equ $94
|
|
45 DPWORK rmb 2
|
|
46 DPSTK rmb 2
|
69
|
47
|
70
|
48 linebuf rmb 256
|
|
49 program rmb 20000
|
|
50 size equ .
|
69
|
51
|
70
|
52 start
|
|
53 LC000 BRA LC005
|
|
54 LC002 NOP
|
|
55 LC003 BRA LC014
|
|
56 LC005 TFR U,D
|
69
|
57 TFR A,DP
|
70
|
58 STU <DPWORK
|
|
59 STS <DPSTK
|
|
60 LEAX program,U
|
69
|
61 STX <$7E
|
|
62 STX <$50
|
|
63 LDA #$FF
|
|
64 STA ,X
|
70
|
65 LC014 LBSR LCD00
|
|
66 LDU <DPWORK
|
|
67 LEAX size,U
|
69
|
68 STX <$58
|
70
|
69 LC020 LDA #$FF
|
69
|
70 STA <$8C
|
70
|
71 LC024 LDS <DPSTK
|
|
72 LDU <DPWORK
|
|
73 LEAU linebuf,U
|
69
|
74 LEAX >LC63F,PCR
|
|
75 LBSR LC165
|
70
|
76 LC032 LBSR LC370
|
69
|
77 BCS LC06D
|
|
78 STX <$42
|
|
79 LBSR LC1D3
|
|
80 BEQ LC024
|
70
|
81 LC03E BSR LC09C
|
|
82 LC040 BMI LC024
|
69
|
83 STX <$42
|
70
|
84 LC044 LEAX +$02,X
|
69
|
85 LDA ,X+
|
|
86 CMPA #$20
|
|
87 BNE LC05B
|
|
88 LBSR LC1D3
|
|
89 BNE LC05F
|
|
90 LEAX +$01,X
|
|
91 TST ,X
|
|
92 BRA LC040
|
70
|
93 LC057 LDS <DPSTK
|
|
94 LC05B BSR LC0A8
|
69
|
95 BRA LC040
|
70
|
96 LC05F LDX <$42
|
69
|
97 STX <$84
|
|
98 BSR LC0A0
|
|
99 BMI LC024
|
|
100 CMPX <$84
|
|
101 BEQ LC03E
|
|
102 BRA LC044
|
70
|
103 LC06D STX <$86
|
69
|
104 STD <$4A
|
|
105 LDB ,X
|
|
106 CMPB #$2F
|
|
107 BNE LC0B1
|
70
|
108 LC077 BSR LC09C
|
|
109 LC079 LBSR LC397
|
69
|
110 TST ,X
|
|
111 BMI LC024
|
|
112 BSR LC087
|
|
113 LBSR LC173
|
|
114 BRA LC079
|
70
|
115 LC087 LDD ,X++
|
69
|
116 PSHS X
|
|
117 LBSR LC443
|
|
118 PULS X
|
|
119 LBRA LC165
|
70
|
120 LC093 LDX <$42
|
69
|
121 LEAX +$02,X
|
70
|
122 LC097 TST ,X+
|
69
|
123 BNE LC097
|
|
124 RTS
|
70
|
125 LC09C LDX <$7E
|
|
126 LC09E STX <$42
|
|
127 LC0A0 LDD ,X
|
69
|
128 BMI LC0B0
|
|
129 SUBD <$4A
|
|
130 BCC LC0AF
|
70
|
131 LC0A8 LBSR LC173
|
69
|
132 BSR LC093
|
|
133 BRA LC09E
|
70
|
134 LC0AF CLRA
|
|
135 LC0B0 RTS
|
|
136 LC0B1 LDX <$4A
|
69
|
137 BEQ LC077
|
|
138 BMI LC117
|
|
139 LDX <$50
|
|
140 LDA ,X
|
|
141 INCA
|
|
142 BNE LC117
|
|
143 BSR LC09C
|
|
144 BMI LC0DE
|
|
145 LDX ,X
|
|
146 CMPX <$4A
|
|
147 BNE LC0DE
|
|
148 BSR LC093
|
|
149 LDY <$42
|
70
|
150 LC0CD LDA ,X
|
69
|
151 STA ,Y
|
|
152 CMPX <$50
|
|
153 BEQ LC0DB
|
|
154 LEAX +$01,X
|
|
155 LEAY +$01,Y
|
|
156 BRA LC0CD
|
70
|
157 LC0DB STY <$50
|
|
158 LC0DE LDX <$86
|
69
|
159 LDB #$03
|
|
160 TST ,X+
|
|
161 BEQ LC114
|
70
|
162 LC0E6 INCB
|
69
|
163 TST ,X+
|
|
164 BNE LC0E6
|
|
165 CLRA
|
|
166 ADDD <$50
|
|
167 TFR D,Y
|
|
168 SUBD <$58
|
|
169 BCC LC117
|
|
170 LDX <$50
|
|
171 STY <$50
|
|
172 LEAX +$01,X
|
|
173 LEAY +$01,Y
|
70
|
174 LC0FD LDB ,-X
|
69
|
175 STB ,-Y
|
|
176 CMPX <$42
|
|
177 BNE LC0FD
|
|
178 LDY <$4A
|
|
179 STY ,X++
|
|
180 LDY <$86
|
70
|
181 LC10E LDB ,Y+
|
69
|
182 STB ,X+
|
|
183 BNE LC10E
|
70
|
184 LC114 LBRA LC032
|
|
185 LC117 LBRA LC024
|
|
186 LC11A LDX #LFB8F
|
69
|
187 TST <$8C
|
|
188 BNE LC124
|
|
189 LDX #LFB95
|
70
|
190 LC124 LEAY <LC159,PCR
|
|
191 LC127 PSHS X
|
69
|
192 LDX ,Y++
|
|
193 PSHU X
|
|
194 LBSR LC335
|
|
195 PULU X
|
|
196 PULS X
|
|
197 PSHS A
|
|
198 LDA <$83
|
|
199 ADDA #$30
|
|
200 STA ,X+
|
|
201 PULS A
|
|
202 TST +$01,Y
|
|
203 BNE LC127
|
|
204 CLR ,X
|
|
205 COM ,-X
|
|
206 PSHS X
|
|
207 LEAX -$05,X
|
|
208 CLRA
|
70
|
209 LC14B LEAX +$01,X
|
69
|
210 INCA
|
|
211 LDB ,X
|
|
212 CMPB #$30
|
|
213 BEQ LC14B
|
|
214 COM [,S++]
|
|
215 SUBA #$06
|
70
|
216 LC158 RTS
|
|
217 LC159 FDB 10000
|
69
|
218 FDB 1000
|
|
219 FDB 100
|
|
220 FDB 10
|
|
221 FDB 1
|
|
222 FDB 0
|
70
|
223 LC165 CLRA
|
|
224 LC166 STA <$94
|
|
225 LC168 LDB ,X+
|
69
|
226 CMPB <$94
|
|
227 BEQ LC158
|
|
228 LBSR LC412
|
|
229 BRA LC168
|
70
|
230 LC173 LBSR LC650
|
69
|
231 LBCS LC024
|
|
232 RTS
|
70
|
233 LC17B CMPA #$20
|
69
|
234 BEQ LC1D1
|
|
235 CLR <$4A
|
|
236 CLR <$4B
|
|
237 LDB +$01,X
|
|
238 BITB #$DF
|
|
239 BNE LC1A6
|
|
240 CMPA #$5D
|
|
241 BNE LC195
|
|
242 PULU X,B,A
|
|
243 STD <$46
|
|
244 STX <$42
|
|
245 BRA LC1C6
|
70
|
246 LC195 CMPA #$40
|
69
|
247 BNE LC1A6
|
|
248 LEAX +$01,X
|
|
249 STX <$46
|
|
250 CLRA
|
|
251 CLRB
|
|
252 LDY <$42
|
|
253 PSHU Y,X,B,A
|
|
254 BRA LC1D3
|
70
|
255 LC1A6 CMPA #$22
|
69
|
256 BNE LC1CA
|
|
257 LEAX +$01,X
|
|
258 BSR LC166
|
|
259 BRA LC1D3
|
70
|
260 LC1B0 CMPA #$5C
|
69
|
261 BNE LC1B9
|
|
262 LBSR LC676
|
|
263 BRA LC1D3
|
70
|
264 LC1B9 STX <$84
|
69
|
265 BSR LC1EC
|
|
266 LBSR LC39F
|
|
267 BSR LC173
|
|
268 LDX <$4A
|
|
269 BNE LC1D7
|
70
|
270 LC1C6 LDX <$46
|
69
|
271 BRA LC1D3
|
70
|
272 LC1CA CMPA #$2F
|
69
|
273 BNE LC1B0
|
|
274 LBSR LC397
|
70
|
275 LC1D1 LEAX +$01,X
|
|
276 LC1D3 LDA ,X
|
69
|
277 BNE LC17B
|
70
|
278 LC1D7 RTS
|
|
279 LC1D8 PSHS A
|
69
|
280 LEAX +$01,X
|
|
281 BSR LC1F6
|
|
282 LDX <$46
|
70
|
283 LC1E0 LDY <$42
|
69
|
284 PSHU Y,X,B,A
|
|
285 PULS PC,B,A
|
70
|
286 LC1E7 LDA #$3D
|
69
|
287 LBRA LC4F9
|
70
|
288 LC1EC LDA ,X+
|
69
|
289 BITA #$DF
|
|
290 BEQ LC1E7
|
|
291 CMPA #$3D
|
|
292 BNE LC1EC
|
70
|
293 LC1F6 LBSR LC521
|
|
294 LC1F9 PSHS B
|
69
|
295 LDB ,X
|
|
296 BITB #$DF
|
|
297 BEQ LC210
|
|
298 CMPB #$29
|
|
299 BEQ LC214
|
|
300 CMPB #$2C
|
|
301 BEQ LC1D8
|
|
302 PULS B
|
|
303 LBSR LC29C
|
|
304 BRA LC1F9
|
70
|
305 LC210 STX <$46
|
69
|
306 PULS PC,B
|
70
|
307 LC214 LEAX +$01,X
|
69
|
308 PULS PC,B
|
70
|
309 LC218 CMPB #$3F
|
69
|
310 BNE LC22E
|
|
311 PSHS X
|
|
312 STB <$8C
|
|
313 LBSR LC5D8
|
|
314 BSR LC1F6
|
|
315 PULS X
|
|
316 LEAX +$01,X
|
|
317 RTS
|
|
318 LEAX +$01,X
|
|
319 BRA LC1F6
|
70
|
320 LC22E BSR LC287
|
69
|
321 CMPA #$3A
|
|
322 BEQ LC239
|
|
323 BSR LC26E
|
70
|
324 LC236 LDD ,Y
|
69
|
325 RTS
|
70
|
326 LC239 BSR LC269
|
69
|
327 CLRA
|
70
|
328 LC23C LDB ,Y
|
|
329 LC23E RTS
|
|
330 LC23F CMPB #$22
|
69
|
331 BCS LC218
|
|
332 CMPB #$2D
|
|
333 BHI LC218
|
|
334 SUBB #$22
|
|
335 LSLB
|
|
336 LEAY <LC251,PCR
|
|
337 LDD B,Y
|
|
338 JMP D,Y
|
68
|
339
|
70
|
340 LC251 fdb LC6EC-* 049b
|
69
|
341 fdb LC535-* 02e2
|
|
342 fdb LC5A1-* 034c
|
|
343 fdb LC545-* 02ee
|
|
344 fdb LC236-* ffdd
|
|
345 fdb LC54E-* 02f3
|
|
346 fdb LC236-* ffd9
|
|
347 fdb LC23C-* ffdd
|
|
348 fdb LC23E-* ffdd
|
|
349 fdb LC53F-* 02dc
|
|
350 fdb LC23F-* ffdd
|
|
351 fdb LC53F-* 02d8
|
68
|
352
|
70
|
353 LC269 BSR LC279
|
69
|
354 LEAY D,Y
|
|
355 RTS
|
70
|
356 LC26E CMPA #$28
|
69
|
357 BNE LC292
|
|
358 BSR LC279
|
|
359 LSLB
|
|
360 ROLA
|
|
361 LEAY D,Y
|
|
362 RTS
|
70
|
363 LC279 BSR LC292
|
69
|
364 LDY ,Y
|
|
365 PSHS Y
|
|
366 LEAX +$01,X
|
|
367 LBSR LC1F6
|
|
368 PULS PC,Y
|
70
|
369 LC287 LDB ,X+
|
|
370 LC289 LDA ,X+
|
69
|
371 CMPA #$41
|
|
372 BPL LC289
|
|
373 LEAX -$01,X
|
|
374 RTS
|
68
|
375
|
70
|
376 LC292 ANDB #$3F
|
69
|
377 CLRA
|
|
378 LSLB
|
|
379 ADDD #LFB04
|
|
380 TFR D,Y
|
|
381 RTS
|
70
|
382 LC29C PSHU B,A
|
69
|
383 LDD ,X+
|
|
384 PSHS B,A
|
|
385 SUBB #$3D
|
|
386 BEQ LC2A9
|
|
387 DECB
|
|
388 BNE LC2AB
|
70
|
389 LC2A9 LEAX +$01,X
|
|
390 LC2AB LBSR LC521
|
69
|
391 PULU Y
|
|
392 EXG D,Y
|
|
393 PSHU Y,B,A
|
|
394 PULS B,A
|
|
395 CMPA #$3D
|
|
396 BNE LC2C4
|
|
397 PULU B,A
|
|
398 SUBD ,U++
|
|
399 BNE LC2E4
|
70
|
400 LC2C0 CLRA
|
69
|
401 LDB #$01
|
|
402 RTS
|
70
|
403 LC2C4 CMPA #$3C
|
69
|
404 BNE LC2E7
|
|
405 CMPB #$3D
|
|
406 BEQ LC2D7
|
|
407 CMPB #$3E
|
|
408 PULU B,A
|
|
409 BNE LC2E0
|
|
410 SUBD ,U++
|
|
411 BNE LC2C0
|
|
412 RTS
|
70
|
413 LC2D7 PULU B,A
|
69
|
414 SUBD ,U++
|
|
415 BLE LC2C0
|
|
416 CLRA
|
|
417 CLRB
|
|
418 RTS
|
70
|
419 LC2E0 SUBD ,U++
|
69
|
420 BLT LC2C0
|
70
|
421 LC2E4 CLRA
|
69
|
422 CLRB
|
|
423 RTS
|
70
|
424 LC2E7 CMPA #$3E
|
69
|
425 BNE LC2FF
|
|
426 CMPB #$3D
|
|
427 PULU B,A
|
|
428 BNE LC2F8
|
|
429 SUBD ,U++
|
|
430 BGE LC2C0
|
|
431 CLRA
|
|
432 CLRB
|
|
433 RTS
|
70
|
434 LC2F8 SUBD ,U++
|
69
|
435 BGT LC2C0
|
|
436 CLRA
|
|
437 CLRB
|
|
438 RTS
|
70
|
439 LC2FF CMPA #$2B
|
69
|
440 BNE LC308
|
|
441 PULU B,A
|
|
442 ADDD ,U++
|
|
443 RTS
|
70
|
444 LC308 CMPA #$2D
|
69
|
445 BNE LC311
|
|
446 PULU B,A
|
|
447 SUBD ,U++
|
|
448 RTS
|
70
|
449 LC311 CMPA #$2A
|
69
|
450 LBNE LC653
|
|
451 PULU B,A
|
70
|
452 LC319 EXG A,B
|
69
|
453 PSHU B,A
|
|
454 LDB +$03,U
|
|
455 MUL
|
|
456 STD <$82
|
|
457 BSR LC32B
|
|
458 BSR LC32B
|
|
459 LDD <$82
|
|
460 LEAU +$02,U
|
|
461 RTS
|
70
|
462 LC32B PULU A
|
69
|
463 LDB +$01,U
|
|
464 MUL
|
|
465 ADDB <$82
|
|
466 STB <$82
|
|
467 RTS
|
70
|
468 LC335 CLR ,-S
|
|
469 LC337 INC ,S
|
69
|
470 LSL +$01,U
|
|
471 ROL ,U
|
|
472 BCC LC337
|
|
473 ROR ,U
|
|
474 ROR +$01,U
|
|
475 CLR <$82
|
|
476 CLR <$83
|
70
|
477 LC347 SUBD ,U
|
69
|
478 BCC LC351
|
|
479 ADDD ,U
|
|
480 ANDCC #$FE
|
|
481 BRA LC353
|
70
|
482 LC351 ORCC #$01
|
|
483 LC353 ROR <$83
|
69
|
484 ROR <$82
|
|
485 DEC ,S
|
|
486 BEQ LC361
|
|
487 LSR ,U
|
|
488 ROR +$01,U
|
|
489 BRA LC347
|
70
|
490 LC361 LEAS +$01,S
|
69
|
491 RTS
|
70
|
492 LC364 LDB ,X
|
69
|
493 CMPB #$30
|
|
494 BCS LC36D
|
|
495 CMPB #$3A
|
|
496 RTS
|
70
|
497 LC36D ANDCC #$FE
|
69
|
498 RTS
|
70
|
499 LC370 LBSR LC5D8
|
|
500 LC373 BSR LC364
|
69
|
501 BCC LC396
|
|
502 CLRA
|
|
503 CLRB
|
70
|
504 LC379 ADDB ,X+
|
69
|
505 ADCA #$00
|
|
506 SUBD #$030
|
|
507 PSHU B,A
|
|
508 BSR LC364
|
|
509 LDD ,U
|
|
510 BCC LC392
|
|
511 LSLB
|
|
512 ROLA
|
|
513 LSLB
|
|
514 ROLA
|
|
515 ADDD ,U++
|
|
516 LSLB
|
|
517 ROLA
|
|
518 BRA LC379
|
70
|
519 LC392 PULU B,A
|
69
|
520 ORCC #$01
|
70
|
521 LC396 RTS
|
|
522 LC397 LDB #$0D
|
69
|
523 BSR LC39D
|
70
|
524 LC39B LDB #$0A
|
|
525 LC39D BRA LC412
|
|
526 LC39F PSHS B,A
|
69
|
527 LDA #$01
|
|
528 STA <$8C
|
|
529 LDX <$84
|
|
530 LDB ,X
|
|
531 CMPB #$2E
|
|
532 BNE LC3BA
|
|
533 PULS A
|
|
534 LDA ,S+
|
70
|
535 LC3B1 BEQ LC3C4
|
69
|
536 LDB #$20
|
|
537 BSR LC412
|
|
538 DECA
|
|
539 BRA LC3B1
|
70
|
540 LC3BA CMPB #$3B
|
69
|
541 BNE LC3C5
|
|
542 LDD ,S++
|
|
543 LBEQ LC057
|
70
|
544 LC3C4 RTS
|
|
545 LC3C5 CMPB #$40
|
69
|
546 BNE LC3E4
|
|
547 LDB +$02,X
|
|
548 LBSR LC292
|
|
549 PULS B,A
|
|
550 STD ,Y
|
|
551 PULU B,A
|
|
552 SUBD ,Y
|
|
553 BLT LC3E1
|
|
554 PULU X,B,A
|
|
555 STD <$46
|
|
556 STX <$42
|
|
557 LEAU -$06,U
|
|
558 RTS
|
70
|
559 LC3E1 LEAU +$04,U
|
69
|
560 RTS
|
70
|
561 LC3E4 CMPB #$26
|
69
|
562 BNE LC3FA
|
70
|
563 LC3E8 LDB +$01,X
|
69
|
564 CMPB #$3D
|
|
565 BNE LC3FA
|
|
566 LDD ,S++
|
|
567 BNE LC3F9
|
|
568 LDX <$7E
|
|
569 STX <$50
|
|
570 DECA
|
|
571 STA ,X
|
70
|
572 LC3F9 RTS
|
|
573 LC3FA CMPB #$21
|
69
|
574 BNE LC40C
|
|
575 PULS B,A
|
|
576 STD <$4A
|
|
577 BEQ LC40B
|
|
578 LDY <$42
|
|
579 LDX <$46
|
|
580 PSHU Y,X
|
70
|
581 LC40B RTS
|
|
582 LC40C CMPB #$24
|
69
|
583 BNE LC415
|
|
584 PULS B,A
|
70
|
585 LC412 LBRA LC64A
|
|
586 LC415 CMPB #$3F
|
69
|
587 BNE LC449
|
|
588 LDB +$01,X
|
|
589 CMPB #$28
|
|
590 LBNE LC56E
|
|
591 LBSR LC51F
|
70
|
592 LC424 STB <$8E
|
69
|
593 PULS B,A
|
|
594 BSR LC433
|
|
595 ADDA <$8E
|
|
596 BMI LC430
|
|
597 BSR LC3B1
|
70
|
598 LC430 LBRA LC165
|
|
599 LC433 TSTA
|
69
|
600 LBPL LC11A
|
|
601 LBSR LC4F3
|
|
602 LBSR LC11A
|
|
603 LDB #$2D
|
|
604 STB ,-X
|
|
605 RTS
|
70
|
606 LC443 PSHS B,A
|
69
|
607 LDB #$05
|
|
608 BRA LC424
|
70
|
609 LC449 CMPB #$3D
|
69
|
610 BNE LC460
|
|
611 PULS B,A
|
|
612 STD <$7E
|
|
613 LDX #LFFFF
|
|
614 STX <$4A
|
|
615 LBSR LC09C
|
|
616 STX <$50
|
|
617 LBRA LC024
|
70
|
618 LC45E PULS PC,B,A
|
|
619 LC460 CMPB #$3E
|
69
|
620 BNE LC46C
|
|
621 LDD ,S
|
|
622 BEQ LC45E
|
|
623 JSR [,S++]
|
|
624 PSHS B,A
|
70
|
625 LC46C LDX <$84
|
69
|
626 LBSR LC287
|
|
627 CMPA #$3A
|
|
628 BNE LC47D
|
|
629 LBSR LC269
|
|
630 PULS B,A
|
|
631 STB ,Y
|
|
632 RTS
|
70
|
633 LC47D LBSR LC26E
|
69
|
634 PULS B,A
|
|
635 STD ,Y
|
|
636 RTS
|
|
637 LDA +$01,X
|
|
638 CMPA #$4E
|
|
639 BEQ LC48E
|
|
640 LBRA LC7D7
|
70
|
641 LC48E TST +$02,X
|
69
|
642 BNE LC494
|
|
643 CLR +$03,X
|
70
|
644 LC494 LEAX +$03,X
|
69
|
645 CLR <$8C
|
|
646 LBSR LC373
|
|
647 BCS LC4A0
|
|
648 LDD #LC3E8
|
70
|
649 LC4A0 STD <$88
|
69
|
650 LDB ,X
|
|
651 CMPB #$2C
|
|
652 BNE LC4AF
|
|
653 LEAX +$01,X
|
|
654 LBSR LC373
|
|
655 BCS LC4B2
|
70
|
656 LC4AF LDD #$00A
|
|
657 LC4B2 STD <$8A
|
69
|
658 RTS
|
70
|
659 LC4B5 CMPA #$2F
|
69
|
660 BNE LC4F9
|
|
661 CLR <$8D
|
|
662 LDD +$02,U
|
|
663 BEQ LC4F9
|
|
664 BMI LC4D4
|
|
665 CMPD #LC002
|
|
666 BNE LC4DE
|
|
667 PULU B,A
|
|
668 CLR <$4E
|
|
669 CLR <$4F
|
|
670 ASRA
|
|
671 RORB
|
|
672 ROR <$4F
|
|
673 LEAU +$02,U
|
|
674 RTS
|
70
|
675 LC4D4 INC <$8D
|
69
|
676 NEG +$03,U
|
|
677 BNE LC4DC
|
|
678 DEC +$02,U
|
70
|
679 LC4DC COM +$02,U
|
|
680 LC4DE LDD ,U++
|
69
|
681 BPL LC4E6
|
|
682 DEC <$8D
|
|
683 BSR LC4F3
|
70
|
684 LC4E6 LBSR LC335
|
69
|
685 LEAU +$02,U
|
|
686 STD <$4E
|
|
687 LDD <$82
|
|
688 TST <$8D
|
|
689 BEQ LC4F8
|
70
|
690 LC4F3 NEGB
|
69
|
691 BNE LC4F7
|
|
692 DECA
|
70
|
693 LC4F7 COMA
|
|
694 LC4F8 RTS
|
|
695 LC4F9 LBSR LC397
|
69
|
696 LDB #$3F
|
|
697 STB <$8C
|
|
698 LBSR LC412
|
|
699 TFR A,B
|
|
700 LBSR LC412
|
|
701 LDB #$20
|
|
702 LBSR LC412
|
|
703 LDX <$42
|
|
704 CMPX #LFB95
|
|
705 BNE LC519
|
|
706 LBSR LC165
|
|
707 BRA LC51C
|
70
|
708 LC519 LBSR LC087
|
|
709 LC51C LBRA LC024
|
|
710 LC51F LEAX +$01,X
|
|
711 LC521 LBSR LC373
|
69
|
712 BCS LC532
|
|
713 LBRA LC23F
|
|
714 BSR LC51F
|
|
715 BRA LC4F3
|
|
716 BSR LC51F
|
|
717 TSTA
|
|
718 BMI LC4F3
|
70
|
719 LC532 RTS
|
69
|
720 BSR LC51F
|
70
|
721 LC535 PSHS B,A
|
69
|
722 LDD ,S++
|
|
723 LBNE LC2E4
|
|
724 INCB
|
|
725 RTS
|
70
|
726 LC53F BSR LC51F
|
69
|
727 LDD <$4E
|
|
728 RTS
|
|
729 LC545
|
|
730 BSR LC51F
|
|
731 PSHU B,A
|
|
732 LDD <$52
|
|
733 PSHU B,A
|
|
734 LC54E
|
|
735 LDD #L3D09
|
|
736 LBSR LC319
|
|
737 ADDD #1
|
|
738 STD <$52
|
|
739 TFR A,B
|
|
740 CLRA
|
|
741 LBSR LC319
|
|
742 TFR A,B
|
|
743 CLRA
|
|
744 ADDD #1
|
|
745 RTS
|
|
746 LC564
|
|
747 NEG <$00
|
|
748 NEG <$00
|
|
749 LC568
|
|
750 CLRA
|
|
751 LDB +$01,X
|
|
752 LEAX +$03,X
|
|
753 RTS
|
70
|
754 LC56E CMPB #$3F
|
69
|
755 BEQ LC57E
|
|
756 CMPB #$24
|
|
757 BEQ LC582
|
|
758 PULS B,A
|
|
759 LBSR LC433
|
|
760 LBRA LC165
|
70
|
761 LC57E LDB ,S
|
69
|
762 BSR LC584
|
70
|
763 LC582 PULS B,A
|
|
764 LC584 TFR B,A
|
69
|
765 BSR LC58E
|
|
766 TFR A,B
|
|
767 ANDB #$0F
|
|
768 BRA LC592
|
70
|
769 LC58E LSRB
|
69
|
770 LSRB
|
|
771 LSRB
|
|
772 LSRB
|
70
|
773 LC592 CMPB #$0A
|
69
|
774 BMI LC598
|
|
775 ADDB #$07
|
70
|
776 LC598 ADDB #$30
|
69
|
777 LBRA LC412
|
|
778 CLRA
|
|
779 BSR LC5BD
|
|
780 LC5A1
|
|
781 LBCC LC64D
|
70
|
782 LC5A4 PSHS B
|
69
|
783 BSR LC5BD
|
|
784 PSHU B
|
|
785 PULS B
|
|
786 BCC LC5BA
|
|
787 LSLB
|
|
788 ROLA
|
|
789 LSLB
|
|
790 ROLA
|
|
791 LSLB
|
|
792 ROLA
|
|
793 LSLB
|
|
794 ROLA
|
|
795 ADDB ,U+
|
|
796 BRA LC5A4
|
70
|
797 LC5BA LEAU +$01,U
|
69
|
798 RTS
|
70
|
799 LC5BD LEAX +$01,X
|
69
|
800 LDB ,X
|
|
801 SUBB #$30
|
|
802 BCS LC5D2
|
|
803 CMPB #$0A
|
|
804 BCS LC5D1
|
|
805 SUBB #$07
|
|
806 CMPB #$0A
|
|
807 BCS LC5D2
|
|
808 CMPB #$10
|
70
|
809 LC5D1 RTS
|
|
810 LC5D2 ANDCC #$FE
|
69
|
811 RTS
|
70
|
812 LC5D5 LBSR LC397
|
|
813 LC5D8 LDB #$3A
|
69
|
814 BSR LC64A
|
|
815 LDX #LFB95
|
|
816 TST <$8C
|
|
817 BNE LC5F2
|
|
818 LDD <$88
|
|
819 LBMI LC020
|
|
820 LBSR LC443
|
|
821 LDB #$20
|
|
822 STB -$01,X
|
|
823 BSR LC64A
|
70
|
824 LC5F2 BSR LC64D
|
69
|
825 CMPB #$08
|
|
826 BEQ LC634
|
|
827 CMPB #$0D
|
|
828 BCS LC5F2
|
|
829 BEQ LC611
|
|
830 CMPB #$18
|
|
831 BEQ LC5D5
|
|
832 STB ,X+
|
|
833 CMPX #LFBDF
|
|
834 BNE LC5F2
|
|
835 LEAX -$01,X
|
|
836 LDB #$08
|
|
837 BSR LC64A
|
|
838 BRA LC5F2
|
70
|
839 LC611 TST <$8C
|
69
|
840 BNE LC626
|
|
841 CMPX #LFB9B
|
|
842 BEQ LC61F
|
|
843 CMPX #LFB9A
|
|
844 BCC LC626
|
70
|
845 LC61F COM <$8C
|
69
|
846 LBSR LC39B
|
|
847 BRA LC5D8
|
70
|
848 LC626 LDD <$88
|
69
|
849 ADDD <$8A
|
|
850 STD <$88
|
|
851 CLR ,X
|
|
852 LDX #LFB95
|
|
853 LBRA LC39B
|
70
|
854 LC634 LEAX -$01,X
|
69
|
855 CMPX #LFB94
|
|
856 BNE LC5F2
|
|
857 STB <$8C
|
|
858 BRA LC5D8
|
|
859 LC63F
|
|
860 FCB $D,$A
|
|
861 FCS "*READY"
|
|
862 FCB $D,$A,0
|
68
|
863
|
70
|
864 LC64A LBRA OUTCH
|
|
865 LC64D LBRA LC6FC GETCH
|
|
866 LC650 LBRA LC720 SENSE
|
|
867
|
|
868 LC653 CMPA #$2E EXBOP
|
69
|
869 BNE LC65E
|
|
870 PULU B,A
|
|
871 ORA ,U+
|
|
872 ORB ,U+
|
|
873 RTS
|
70
|
874 LC65E CMPA #$26
|
69
|
875 BNE LC669
|
|
876 PULU B,A
|
|
877 ANDA ,U+
|
|
878 ANDB ,U+
|
|
879 RTS
|
70
|
880 LC669 CMPA #$21
|
69
|
881 LBNE LC4B5
|
|
882 PULU B,A
|
|
883 EORA ,U+
|
|
884 EORB ,U+
|
|
885 RTS
|
70
|
886 LC676 LDD +$01,X EXTEND
|
69
|
887 LEAX +$03,X
|
|
888 PSHS U,X,B,A
|
|
889 LEAY >OPCMD,PCR
|
70
|
890 LC680 LDX ,Y
|
69
|
891 BMI LC6E7
|
|
892 CMPX ,S
|
|
893 BEQ LC68C
|
|
894 LEAY +$05,Y
|
|
895 BRA LC680
|
70
|
896 LC68C LEAY +$03,Y
|
69
|
897 LEAS +$02,S
|
|
898 LDX ,S
|
|
899 LDA -$01,Y
|
|
900 BEQ LC6C3
|
|
901 PSHS Y,A
|
|
902 LDA #$20
|
70
|
903 LC69A CMPA ,X+
|
69
|
904 BEQ LC69A
|
|
905 LDA ,-X
|
|
906 STX +$03,S
|
70
|
907 LC6A2 BITA #$DF
|
69
|
908 BEQ LC6B0
|
|
909 CMPA #$2C
|
|
910 BEQ LC6AE
|
|
911 BSR LC6C9
|
|
912 BRA LC6B3
|
70
|
913 LC6AE LEAX +$01,X
|
|
914 LC6B0 LDD #LFFFF
|
|
915 LC6B3 PSHU B,A
|
69
|
916 LDA ,X
|
|
917 DEC ,S
|
|
918 BNE LC6A2
|
|
919 LDD +$03,S
|
|
920 STX +$03,S
|
|
921 TFR D,X
|
|
922 PULS Y,A
|
70
|
923 LC6C3 LDD ,Y
|
69
|
924 JSR D,Y
|
|
925 PULS PC,U,X
|
70
|
926 LC6C9 LBSR LC521
|
|
927 LC6CC PSHS B
|
69
|
928 LDB ,X
|
|
929 BITB #$DF
|
|
930 BEQ LC6E5
|
|
931 CMPB #$2C
|
|
932 BEQ LC6E3
|
|
933 CMPB #$29
|
|
934 BEQ LC6E3
|
|
935 PULS B
|
|
936 LBSR LC29C
|
|
937 BRA LC6CC
|
70
|
938 LC6E3 LEAX +$01,X
|
|
939 LC6E5 PULS PC,B
|
|
940 LC6E7 PULS U,X,B,A
|
69
|
941 LBRA LC4F9
|
70
|
942 LC6EC LEAX +$01,X
|
69
|
943 LDB ,X+
|
70
|
944 LC6F0 LDA ,X+
|
69
|
945 BEQ LC6F8
|
|
946 CMPA #$22
|
|
947 BNE LC6F0
|
70
|
948 LC6F8 CLRA
|
69
|
949 RTS
|
|
950
|
70
|
951 GETCH LDA #0
|
|
952 PSHS A
|
|
953 LEAX ,S
|
|
954 LDY #1
|
|
955 OS9 I$Read
|
|
956 PULS A
|
|
957 BCS GETCH
|
|
958 OUTCH PSHS A
|
|
959 LEAX ,S
|
|
960 LDA #1
|
|
961 LDY #1
|
|
962 OS9 I$Write
|
|
963 PULS A,PC
|
|
964 SENSE LDA #0
|
|
965 LDB #SS.Ready
|
|
966 OS9 i$GetStt
|
|
967 RTS
|
|
968
|
69
|
969
|
68
|
970
|
69
|
971 * COMMAND TABLE CONSIST....
|
|
972 * COMMAND NAME (2 BYTE)
|
|
973 * PARAMETER COUNT (1 BYTE)
|
|
974 * OFSET TO SUBROUTIE FROM HERE (1 WORD)
|
|
975 **************************
|
|
976 OPCMD FCB 'A','T',2 START LINE,STEP
|
|
977 FDB CAUTO-*
|
|
978 FCB 'R','N',3 RENUM first line no,inc,renum start
|
|
979 FDB RENUM-*
|
|
980 * FCB 'R','D',3 DISK READ address,track,sector
|
|
981 * FDB GETDK-*
|
|
982 * FCB 'W','R',3 DISK WRITE
|
|
983 * FDB PUTDK-*
|
|
984 FCB 'S','Y',0 TO SYSTEM
|
|
985 FDB SYSTEM-*
|
|
986 FDB -1,-1,-1,-1,-1,-1
|
|
987 *************************
|
|
988 RENUM
|
|
989 LDD ,U++
|
|
990 BPL LC762
|
|
991 CLRA
|
|
992 CLRB
|
70
|
993 LC762 STD <$4A
|
69
|
994 LBSR LC09C
|
|
995 BMI LC789
|
|
996 LDD ,U++
|
|
997 BPL LC770
|
|
998 LDD #$00A
|
70
|
999 LC770 LDY ,U++
|
69
|
1000 BPL LC779
|
|
1001 LDY #LC3E8
|
70
|
1002 LC779 STY ,X++
|
69
|
1003 LBSR LC173
|
|
1004 LEAY D,Y
|
70
|
1005 LC781 TST ,X+
|
69
|
1006 BNE LC781
|
|
1007 TST ,X
|
|
1008 BPL LC779
|
70
|
1009 LC789 RTS
|
69
|
1010 CAUTO
|
|
1011 LDD ,U++
|
|
1012 BPL LC791
|
|
1013 LDD #$00A
|
70
|
1014 LC791 STD <$8A
|
69
|
1015 LDD ,U
|
|
1016 BEQ LC79E
|
|
1017 BPL LC79C
|
|
1018 LDD #LC3E8
|
70
|
1019 LC79C STD <$88
|
|
1020 LC79E CLR <$8C
|
69
|
1021 RTS
|
|
1022 BSR LC7B6
|
|
1023 LBSR LCD09
|
|
1024 BNE LC7B1
|
|
1025 RTS
|
|
1026 BSR LC7B6
|
|
1027 LBSR LCD0C
|
|
1028 BNE LC7B1
|
|
1029 RTS
|
70
|
1030 LC7B1 LDA #$44
|
69
|
1031 LBRA LC4F9
|
70
|
1032 LC7B6 LDX +$04,U
|
69
|
1033 LDA +$03,U
|
|
1034 LDB +$01,U
|
|
1035 RTS
|
70
|
1036 SYSTEM clrb
|
|
1037 os9 F$Exit
|
|
1038 rts
|
|
1039 eom
|
|
1040 emod
|
|
1041 end
|