|
0
|
1 ********************************************************************
|
|
|
2 * Asm - 6809 Assembler
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 6 Made compliant with 1900-2155 BGP 99/05/11
|
|
|
9
|
|
|
10 nam Asm
|
|
|
11 ttl 6809 Assembler
|
|
|
12
|
|
|
13 * Disassembled 99/04/12 09:16:34 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 6
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 1
|
|
|
27 u0001 rmb 1
|
|
|
28 u0002 rmb 1
|
|
|
29 u0003 rmb 1
|
|
|
30 u0004 rmb 1
|
|
|
31 u0005 rmb 1
|
|
|
32 u0006 rmb 1
|
|
|
33 u0007 rmb 1
|
|
|
34 u0008 rmb 1
|
|
|
35 u0009 rmb 1
|
|
|
36 u000A rmb 1
|
|
|
37 u000B rmb 1
|
|
|
38 u000C rmb 1
|
|
|
39 u000D rmb 1
|
|
|
40 u000E rmb 1
|
|
|
41 u000F rmb 1
|
|
|
42 u0010 rmb 2
|
|
|
43 u0012 rmb 2
|
|
|
44 u0014 rmb 2
|
|
|
45 u0016 rmb 1
|
|
|
46 u0017 rmb 1
|
|
|
47 u0018 rmb 1
|
|
|
48 u0019 rmb 1
|
|
|
49 u001A rmb 1
|
|
|
50 u001B rmb 2
|
|
|
51 u001D rmb 1
|
|
|
52 u001E rmb 1
|
|
|
53 u001F rmb 1
|
|
|
54 u0020 rmb 1
|
|
|
55 u0021 rmb 1
|
|
|
56 u0022 rmb 1
|
|
|
57 u0023 rmb 1
|
|
|
58 u0024 rmb 1
|
|
|
59 u0025 rmb 1
|
|
|
60 u0026 rmb 1
|
|
|
61 u0027 rmb 1
|
|
|
62 u0028 rmb 1
|
|
|
63 u0029 rmb 1
|
|
|
64 u002A rmb 1
|
|
|
65 u002B rmb 1
|
|
|
66 u002C rmb 1
|
|
|
67 u002D rmb 1
|
|
|
68 u002E rmb 1
|
|
|
69 u002F rmb 1
|
|
|
70 u0030 rmb 1
|
|
|
71 u0031 rmb 1
|
|
|
72 u0032 rmb 1
|
|
|
73 u0033 rmb 1
|
|
|
74 u0034 rmb 1
|
|
|
75 u0035 rmb 1
|
|
|
76 u0036 rmb 1
|
|
|
77 u0037 rmb 1
|
|
|
78 u0038 rmb 1
|
|
|
79 u0039 rmb 1
|
|
|
80 u003A rmb 1
|
|
|
81 u003B rmb 1
|
|
|
82 u003C rmb 1
|
|
|
83 u003D rmb 1
|
|
|
84 u003E rmb 1
|
|
|
85 u003F rmb 1
|
|
|
86 u0040 rmb 1
|
|
|
87 u0041 rmb 1
|
|
|
88 u0042 rmb 1
|
|
|
89 u0043 rmb 1
|
|
|
90 u0044 rmb 1
|
|
|
91 u0045 rmb 1
|
|
|
92 u0046 rmb 1
|
|
|
93 u0047 rmb 2
|
|
|
94 u0049 rmb 1
|
|
|
95 u004A rmb 1
|
|
|
96 u004B rmb 1
|
|
|
97 u004C rmb 1
|
|
|
98 u004D rmb 1
|
|
|
99 u004E rmb 1
|
|
|
100 u004F rmb 1
|
|
|
101 u0050 rmb 1
|
|
|
102 u0051 rmb 1
|
|
|
103 u0052 rmb 1
|
|
|
104 u0053 rmb 1
|
|
|
105 u0054 rmb 1
|
|
|
106 u0055 rmb 1
|
|
|
107 u0056 rmb 1
|
|
|
108 u0057 rmb 1
|
|
|
109 u0058 rmb 1
|
|
|
110 u0059 rmb 1
|
|
|
111 u005A rmb 1
|
|
|
112 u005B rmb 1
|
|
|
113 u005C rmb 1
|
|
|
114 u005D rmb 1
|
|
|
115 u005E rmb 1
|
|
|
116 u005F rmb 1
|
|
|
117 u0060 rmb 1
|
|
|
118 u0061 rmb 1
|
|
|
119 u0062 rmb 1
|
|
|
120 u0063 rmb 1
|
|
|
121 u0064 rmb 1
|
|
|
122 u0065 rmb 4
|
|
|
123 u0069 rmb 1
|
|
|
124 u006A rmb 3
|
|
|
125 u006D rmb 2
|
|
|
126 u006F rmb 1
|
|
|
127 u0070 rmb 1
|
|
|
128 u0071 rmb 1
|
|
|
129 u0072 rmb 1
|
|
|
130 u0073 rmb 2
|
|
|
131 u0075 rmb 11
|
|
|
132 u0080 rmb 1
|
|
|
133 u0081 rmb 2
|
|
|
134 u0083 rmb 2
|
|
|
135 u0085 rmb 2
|
|
|
136 u0087 rmb 1
|
|
|
137 u0088 rmb 2
|
|
|
138 u008A rmb 2
|
|
|
139 u008C rmb 1
|
|
|
140 u008D rmb 1
|
|
|
141 u008E rmb 1
|
|
|
142 u008F rmb 8
|
|
|
143 u0097 rmb 15
|
|
|
144 u00A6 rmb 1
|
|
|
145 u00A7 rmb 2
|
|
|
146 u00A9 rmb 6
|
|
|
147 u00AF rmb 7
|
|
|
148 u00B6 rmb 11
|
|
|
149 u00C1 rmb 1
|
|
|
150 u00C2 rmb 1
|
|
|
151 u00C3 rmb 3
|
|
|
152 u00C6 rmb 8
|
|
|
153 u00CE rmb 1
|
|
|
154 u00CF rmb 8
|
|
|
155 u00D7 rmb 10
|
|
|
156 u00E1 rmb 7
|
|
|
157 u00E8 rmb 4
|
|
|
158 u00EC rmb 12
|
|
|
159 u00F8 rmb 3848
|
|
|
160 size equ .
|
|
|
161
|
|
|
162 name fcs /Asm/
|
|
|
163 fcb edition
|
|
|
164
|
|
|
165 start equ *
|
|
|
166 tfr u,d
|
|
|
167 addd #$01C0
|
|
|
168 std <u0014
|
|
|
169 std <u0016
|
|
|
170 addd #$0009
|
|
|
171 std <u0000
|
|
|
172 addd #$0051
|
|
|
173 std <u0002
|
|
|
174 addd #$0085
|
|
|
175 std <u0004
|
|
|
176 addd #$0092
|
|
|
177 std <u0006
|
|
|
178 std <u001F
|
|
|
179 std <u0008
|
|
|
180 addd #$0050
|
|
|
181 std <u000A
|
|
|
182 addd #$0028
|
|
|
183 std <u000E
|
|
|
184 addd #$0100
|
|
|
185 std <u0010
|
|
|
186 addd #$0034
|
|
|
187 std <u001D
|
|
|
188 leau -$01,y
|
|
|
189 stu <u0012
|
|
|
190 lds <u0014
|
|
|
191 clra
|
|
|
192 ldb #$01
|
|
|
193 sta <u0059
|
|
|
194 sta <u005B
|
|
|
195 sta <u005E
|
|
|
196 sta <u005D
|
|
|
197 stb <u005C
|
|
|
198 sta <u0058
|
|
|
199 sta <u005A
|
|
|
200 stb <u005F
|
|
|
201 sta <u0060
|
|
|
202 sta <u003E
|
|
|
203 sta <u0018
|
|
|
204 sta <u0019
|
|
|
205 stb <u001A
|
|
|
206 ldb #$FF
|
|
|
207 stb <u0056
|
|
|
208 sta <u0057
|
|
|
209 ldb #$42
|
|
|
210 stb <u0036
|
|
|
211 ldb #$50
|
|
|
212 stb <u0037
|
|
|
213 lbsr L1696
|
|
|
214 lda <u0056
|
|
|
215 bmi L0081
|
|
|
216 inc <u0057
|
|
|
217 L0081 ldx <u0008
|
|
|
218 clr ,x
|
|
|
219 ldx <u000A
|
|
|
220 clr ,x
|
|
|
221 ldx <u0010
|
|
|
222 L008B clr ,x+
|
|
|
223 cmpx <u0012
|
|
|
224 bls L008B
|
|
|
225 ldb <u005D
|
|
|
226 beq L0099
|
|
|
227 dec <u003E
|
|
|
228 bra L00A0
|
|
|
229 L0099 bsr L00A5
|
|
|
230 lbsr L1607
|
|
|
231 inc <u003E
|
|
|
232 L00A0 bsr L00A5
|
|
|
233 lbra L159F
|
|
|
234 L00A5 bsr L00B1
|
|
|
235 L00A7 lbsr L1537
|
|
|
236 bcc L00AD
|
|
|
237 rts
|
|
|
238 L00AD bsr L00D5
|
|
|
239 bra L00A7
|
|
|
240 L00B1 clra
|
|
|
241 clrb
|
|
|
242 std <u0028
|
|
|
243 std <u0022
|
|
|
244 std <u0026
|
|
|
245 std <u0024
|
|
|
246 std <u0040
|
|
|
247 std <u0042
|
|
|
248 stb <u003F
|
|
|
249 stb <u0055
|
|
|
250 stb <u0054
|
|
|
251 incb
|
|
|
252 std <u003A
|
|
|
253 std <u0038
|
|
|
254 ldd <u000E
|
|
|
255 std <u001B
|
|
|
256 lbsr L1360
|
|
|
257 lbsr L141A
|
|
|
258 rts
|
|
|
259 L00D5 clra
|
|
|
260 clrb
|
|
|
261 std <u004A
|
|
|
262 std <u0061
|
|
|
263 std <u0063
|
|
|
264 sta <u0065
|
|
|
265 sta <u0046
|
|
|
266 sta <u002A
|
|
|
267 sta <u0021
|
|
|
268 sta <u004C
|
|
|
269 sta <u002C
|
|
|
270 sta <u004F
|
|
|
271 sta <u004E
|
|
|
272 sta <u004D
|
|
|
273 lda #$35
|
|
|
274 sta <u002B
|
|
|
275 ldd <u0040
|
|
|
276 std <u0044
|
|
|
277 ldx <u0000
|
|
|
278 lda ,x
|
|
|
279 cmpa #$0D
|
|
|
280 beq L0136
|
|
|
281 cmpa #$2A
|
|
|
282 beq L0136
|
|
|
283 cmpa #$20
|
|
|
284 beq L0125
|
|
|
285 ldb <u002B
|
|
|
286 orb #$08
|
|
|
287 stb <u002B
|
|
|
288 lbsr L0368
|
|
|
289 bcc L0119
|
|
|
290 ldb #$01
|
|
|
291 lbsr L02FA
|
|
|
292 bra L0125
|
|
|
293 L0119 tst <u0054
|
|
|
294 bne L0125
|
|
|
295 lbsr L0F4A
|
|
|
296 bcc L0125
|
|
|
297 lbsr L02FA
|
|
|
298 L0125 lbsr L1164
|
|
|
299 cmpa #$0D
|
|
|
300 bne L0141
|
|
|
301 lda <u002B
|
|
|
302 bita #$08
|
|
|
303 beq L0136
|
|
|
304 lda #$09
|
|
|
305 bra L0138
|
|
|
306 L0136 lda #$80
|
|
|
307 L0138 sta <u002B
|
|
|
308 lda <u0054
|
|
|
309 bne L018E
|
|
|
310 lbra L01F2
|
|
|
311 L0141 stx <u002F
|
|
|
312 L0143 lda ,x+
|
|
|
313 cmpa #$0D
|
|
|
314 beq L0150
|
|
|
315 cmpa #$20
|
|
|
316 bne L0143
|
|
|
317 lbsr L1164
|
|
|
318 L0150 stx <u0031
|
|
|
319 ldx <u002F
|
|
|
320 ldb #$74
|
|
|
321 leay >L03B8,pcr
|
|
|
322 lbsr L0344
|
|
|
323 bcc L0172
|
|
|
324 L015F ldb #$02
|
|
|
325 lbsr L02FA
|
|
|
326 ldb #$03
|
|
|
327 stb <u0046
|
|
|
328 lda <u002B
|
|
|
329 anda #$DF
|
|
|
330 sta <u002B
|
|
|
331 ldx <u0031
|
|
|
332 bra L01C4
|
|
|
333 L0172 lda <u0054
|
|
|
334 beq L0195
|
|
|
335 ldb $01,y
|
|
|
336 andb #$0F
|
|
|
337 cmpb #$0D
|
|
|
338 bne L0181
|
|
|
339 inca
|
|
|
340 bra L018C
|
|
|
341 L0181 cmpb #$0E
|
|
|
342 bne L018E
|
|
|
343 deca
|
|
|
344 beq L0195
|
|
|
345 ldb ,y
|
|
|
346 bne L018E
|
|
|
347 L018C sta <u0054
|
|
|
348 L018E inc <u0039
|
|
|
349 bne L0194
|
|
|
350 inc <u0038
|
|
|
351 L0194 rts
|
|
|
352 L0195 ldd ,y
|
|
|
353 sta <u0062
|
|
|
354 stb <u0047
|
|
|
355 lda #$10
|
|
|
356 bitb #$10
|
|
|
357 bne L01A7
|
|
|
358 lda #$11
|
|
|
359 bitb #$20
|
|
|
360 beq L01AB
|
|
|
361 L01A7 sta <u0061
|
|
|
362 inc <u0046
|
|
|
363 L01AB leay >L0780,pcr
|
|
|
364 andb #$0F
|
|
|
365 lslb
|
|
|
366 ldd b,y
|
|
|
367 jsr d,y
|
|
|
368 lda <u002B
|
|
|
369 bita #$20
|
|
|
370 beq L01C4
|
|
|
371 lda ,x
|
|
|
372 clr ,x+
|
|
|
373 cmpa #$0D
|
|
|
374 beq L01D3
|
|
|
375 L01C4 lbsr L1164
|
|
|
376 cmpa #$0D
|
|
|
377 beq L01D3
|
|
|
378 ldb <u002B
|
|
|
379 beq L01D3
|
|
|
380 orb #$40
|
|
|
381 stb <u002B
|
|
|
382 L01D3 ldb <u005D
|
|
|
383 beq L01DB
|
|
|
384 ldb <u0021
|
|
|
385 bne L01F2
|
|
|
386 L01DB ldd <u0040
|
|
|
387 addb <u0046
|
|
|
388 adca #$00
|
|
|
389 std <u0040
|
|
|
390 bra L01F2
|
|
|
391 L01E5 ldd #$2084
|
|
|
392 ldx <u0004
|
|
|
393 L01EA sta ,x+
|
|
|
394 decb
|
|
|
395 bne L01EA
|
|
|
396 L01EF ldx <u0004
|
|
|
397 rts
|
|
|
398 L01F2 ldb <u003E
|
|
|
399 beq L01EF
|
|
|
400 ldb <u002B
|
|
|
401 beq L01EF
|
|
|
402 bsr L01E5
|
|
|
403 tst <u0060
|
|
|
404 bne L0205
|
|
|
405 ldd <u0038
|
|
|
406 lbsr L1084
|
|
|
407 L0205 ldb <u002B
|
|
|
408 bitb #$80
|
|
|
409 beq L0213
|
|
|
410 ldb #$0D
|
|
|
411 ldy <u0000
|
|
|
412 lbra L02AB
|
|
|
413 L0213 bitb #$01
|
|
|
414 beq L0240
|
|
|
415 lda #$45
|
|
|
416 ldb <u0021
|
|
|
417 bne L022F
|
|
|
418 lda #$44
|
|
|
419 ldb <u002C
|
|
|
420 bne L022F
|
|
|
421 lda #$57
|
|
|
422 ldb <u004F
|
|
|
423 beq L0236
|
|
|
424 inc <u0023
|
|
|
425 bne L022F
|
|
|
426 inc <u0022
|
|
|
427 L022F ldb #$06
|
|
|
428 lbsr L02E2
|
|
|
429 sta ,x
|
|
|
430 L0236 ldb #$08
|
|
|
431 lbsr L02E2
|
|
|
432 ldd <u0044
|
|
|
433 lbsr L1057
|
|
|
434 L0240 ldb <u002B
|
|
|
435 bitb #$04
|
|
|
436 beq L0272
|
|
|
437 ldb <u0046
|
|
|
438 beq L0272
|
|
|
439 ldb #$61
|
|
|
440 tfr dp,a
|
|
|
441 tfr d,u
|
|
|
442 ldb ,u+
|
|
|
443 bne L0256
|
|
|
444 L0254 ldb ,u+
|
|
|
445 L0256 pshs b
|
|
|
446 lbsr L106B
|
|
|
447 puls a
|
|
|
448 ldb <u005D
|
|
|
449 beq L0265
|
|
|
450 ldb <u0021
|
|
|
451 bne L026E
|
|
|
452 L0265 lbsr L130D
|
|
|
453 inc <u0025
|
|
|
454 bne L026E
|
|
|
455 inc <u0024
|
|
|
456 L026E dec <u0046
|
|
|
457 bne L0254
|
|
|
458 L0272 ldy <u0000
|
|
|
459 ldb <u002B
|
|
|
460 bitb #$08
|
|
|
461 beq L0281
|
|
|
462 ldb #$18
|
|
|
463 bsr L02E2
|
|
|
464 bsr L02C9
|
|
|
465 L0281 ldb <u002B
|
|
|
466 bitb #$10
|
|
|
467 beq L028F
|
|
|
468 ldb #$21
|
|
|
469 bsr L02E2
|
|
|
470 bsr L02C9
|
|
|
471 leay $01,y
|
|
|
472 L028F ldb <u002B
|
|
|
473 bitb #$20
|
|
|
474 beq L02A3
|
|
|
475 ldb #$27
|
|
|
476 bsr L02E2
|
|
|
477 ldy <u0031
|
|
|
478 lbsr L11BD
|
|
|
479 lda #$20
|
|
|
480 sta ,x+
|
|
|
481 L02A3 ldb <u002B
|
|
|
482 bitb #$40
|
|
|
483 beq L02B7
|
|
|
484 ldb #$32
|
|
|
485 L02AB bsr L02E2
|
|
|
486 L02AD lda ,y+
|
|
|
487 cmpa #$0D
|
|
|
488 beq L02B7
|
|
|
489 sta ,x+
|
|
|
490 bra L02AD
|
|
|
491 L02B7 ldb <u002B
|
|
|
492 andb #$BF
|
|
|
493 cmpb #$04
|
|
|
494 beq L02C8
|
|
|
495 lbsr L1370
|
|
|
496 inc <u0039
|
|
|
497 bne L02C8
|
|
|
498 inc <u0038
|
|
|
499 L02C8 rts
|
|
|
500 L02C9 lda ,y+
|
|
|
501 cmpa #$20
|
|
|
502 beq L02C9
|
|
|
503 L02CF cmpa #$0D
|
|
|
504 beq L02DF
|
|
|
505 cmpx <u001F
|
|
|
506 bcc L02D9
|
|
|
507 sta ,x+
|
|
|
508 L02D9 lda ,y+
|
|
|
509 cmpa #$20
|
|
|
510 bne L02CF
|
|
|
511 L02DF leay -$01,y
|
|
|
512 rts
|
|
|
513 L02E2 pshs u
|
|
|
514 tst <u0060
|
|
|
515 beq L02EC
|
|
|
516 leax $01,x
|
|
|
517 bra L02F8
|
|
|
518 L02EC ldu <u0004
|
|
|
519 leau b,u
|
|
|
520 pshs u
|
|
|
521 cmpx ,s++
|
|
|
522 bcc L02F8
|
|
|
523 tfr u,x
|
|
|
524 L02F8 puls pc,u
|
|
|
525 L02FA pshs u,y,x,b,a
|
|
|
526 tst <u005C
|
|
|
527 beq L0325
|
|
|
528 leay >L061C,pcr
|
|
|
529 ldx <u0004
|
|
|
530 lbsr L11BD
|
|
|
531 clra
|
|
|
532 decb
|
|
|
533 lslb
|
|
|
534 leay >L062A,pcr
|
|
|
535 ldd d,y
|
|
|
536 leay d,y
|
|
|
537 lbsr L11BD
|
|
|
538 ldb $01,s
|
|
|
539 cmpb #$18
|
|
|
540 bne L0322
|
|
|
541 ldy $02,s
|
|
|
542 bsr L033D
|
|
|
543 L0322 lbsr L1368
|
|
|
544 L0325 inc <u0021
|
|
|
545 inc <u0029
|
|
|
546 bne L032D
|
|
|
547 inc <u0028
|
|
|
548 L032D puls pc,u,y,x,b,a
|
|
|
549 lbsr L01E5
|
|
|
550 ldb #$18
|
|
|
551 bsr L02E2
|
|
|
552 ldy <u0000
|
|
|
553 bra L033D
|
|
|
554 L033B sta ,x+
|
|
|
555 L033D lda ,y+
|
|
|
556 cmpa #$0D
|
|
|
557 bne L033B
|
|
|
558 rts
|
|
|
559 L0344 pshs x,b
|
|
|
560 L0346 lda ,y+
|
|
|
561 bmi L035E
|
|
|
562 eora ,x+
|
|
|
563 anda #$DF
|
|
|
564 beq L0346
|
|
|
565 L0350 lda ,y+
|
|
|
566 bpl L0350
|
|
|
567 L0354 leay $02,y
|
|
|
568 ldx $01,s
|
|
|
569 decb
|
|
|
570 bne L0346
|
|
|
571 comb
|
|
|
572 puls pc,x,b
|
|
|
573 L035E eora ,x+
|
|
|
574 anda #$5F
|
|
|
575 bne L0354
|
|
|
576 leas $03,s
|
|
|
577 clrb
|
|
|
578 rts
|
|
|
579 L0368 lbsr L1164
|
|
|
580 bsr L03A0
|
|
|
581 bcs L03B7
|
|
|
582 pshs u,y
|
|
|
583 ldu <u0016
|
|
|
584 ldb #$08
|
|
|
585 leax $01,x
|
|
|
586 bra L0393
|
|
|
587 L0379 lda ,x+
|
|
|
588 bsr L03A0
|
|
|
589 bcc L0393
|
|
|
590 cmpa #$39
|
|
|
591 bhi L039A
|
|
|
592 cmpa #$30
|
|
|
593 bcc L0393
|
|
|
594 cmpa #$2E
|
|
|
595 beq L0393
|
|
|
596 cmpa #$24
|
|
|
597 beq L0393
|
|
|
598 cmpa #$5F
|
|
|
599 bne L039A
|
|
|
600 L0393 sta ,u+
|
|
|
601 decb
|
|
|
602 bne L0379
|
|
|
603 bra L039C
|
|
|
604 L039A leax -$01,x
|
|
|
605 L039C clr ,u+
|
|
|
606 puls pc,u,y
|
|
|
607 L03A0 cmpa #$41
|
|
|
608 bcs L03B5
|
|
|
609 cmpa #$5A
|
|
|
610 bhi L03AD
|
|
|
611 L03A8 anda #$5F
|
|
|
612 andcc #$FE
|
|
|
613 rts
|
|
|
614 L03AD cmpa #$61
|
|
|
615 bcs L03B5
|
|
|
616 cmpa #$7A
|
|
|
617 bls L03A8
|
|
|
618 L03B5 orcc #$01
|
|
|
619 L03B7 rts
|
|
|
620 L03B8 fcs "ORG"
|
|
|
621 fdb $000C
|
|
|
622 fcs "ENDC"
|
|
|
623 fdb $000E
|
|
|
624 fcs "LBRA"
|
|
|
625 fdb $1600
|
|
|
626 fcs "LBSR"
|
|
|
627 fdb $1700
|
|
|
628 fcs "ORCC"
|
|
|
629 fdb $1A01
|
|
|
630 fcs "ANDCC"
|
|
|
631 fdb $1C01
|
|
|
632 fcs "CWAI"
|
|
|
633 fdb $3C01
|
|
|
634 fcs "ADDD"
|
|
|
635 fdb $C302
|
|
|
636 fcs "SUBD"
|
|
|
637 fdb $8302
|
|
|
638 fcs "LDD"
|
|
|
639 fdb $CC02
|
|
|
640 fcs "LDX"
|
|
|
641 fdb $8E02
|
|
|
642 fcs "LDU"
|
|
|
643 fdb $CE02
|
|
|
644 fcs "CMPX"
|
|
|
645 fdb $8C02
|
|
|
646 fcs "JSR"
|
|
|
647 fdb $8D42
|
|
|
648 fcs "STD"
|
|
|
649 fdb $CD42
|
|
|
650 fcs "STX"
|
|
|
651 fdb $8F42
|
|
|
652 fcs "STU"
|
|
|
653 fdb $CF42
|
|
|
654 fcs "CMPU"
|
|
|
655 fdb $8322
|
|
|
656 fcs "CMPS"
|
|
|
657 fdb $8C22
|
|
|
658 fcs "CMPD"
|
|
|
659 fdb $8312
|
|
|
660 fcs "CMPY"
|
|
|
661 fdb $8C12
|
|
|
662 fcs "LDY"
|
|
|
663 fdb $8E12
|
|
|
664 fcs "LDS"
|
|
|
665 fdb $CE12
|
|
|
666 fcs "STY"
|
|
|
667 fdb $8F52
|
|
|
668 fcs "STS"
|
|
|
669 fdb $CF52
|
|
|
670 fcs "ADD"
|
|
|
671 fdb $8B03
|
|
|
672 fcs "CMP"
|
|
|
673 fdb $8103
|
|
|
674 fcs "SUB"
|
|
|
675 fdb $8003
|
|
|
676 fcs "SBC"
|
|
|
677 fdb $8203
|
|
|
678 fcs "AND"
|
|
|
679 fdb $8403
|
|
|
680 fcs "BIT"
|
|
|
681 fdb $8503
|
|
|
682 fcs "LD"
|
|
|
683 fdb $8603
|
|
|
684 fcs "ST"
|
|
|
685 fdb $8743
|
|
|
686 fcs "EOR"
|
|
|
687 fdb $8803
|
|
|
688 fcs "ADC"
|
|
|
689 fdb $8903
|
|
|
690 fcs "OR"
|
|
|
691 fdb $8A03
|
|
|
692 fcs "NEG"
|
|
|
693 fdb $0004
|
|
|
694 fcs "COM"
|
|
|
695 fdb $0304
|
|
|
696 fcs "LSR"
|
|
|
697 fdb $0404
|
|
|
698 fcs "ROR"
|
|
|
699 fdb $0604
|
|
|
700 fcs "ASR"
|
|
|
701 fdb $0704
|
|
|
702 fcs "LSL"
|
|
|
703 fdb $0804
|
|
|
704 fcs "ASL"
|
|
|
705 fdb $0804
|
|
|
706 fcs "ROL"
|
|
|
707 fdb $0904
|
|
|
708 fcs "DEC"
|
|
|
709 fdb $0A04
|
|
|
710 fcs "INC"
|
|
|
711 fdb $0C04
|
|
|
712 fcs "TST"
|
|
|
713 fdb $0D04
|
|
|
714 fcs "JMP"
|
|
|
715 fdb $0E44
|
|
|
716 fcs "CLR"
|
|
|
717 fdb $0F04
|
|
|
718 fcs "RTS"
|
|
|
719 fdb $3905
|
|
|
720 fcs "MUL"
|
|
|
721 fdb $3D05
|
|
|
722 fcs "NOP"
|
|
|
723 fdb $1205
|
|
|
724 fcs "SYNC"
|
|
|
725 fdb $1305
|
|
|
726 fcs "DAA"
|
|
|
727 fdb $1905
|
|
|
728 fcs "SEX"
|
|
|
729 fdb $1D05
|
|
|
730 fcs "ABX"
|
|
|
731 fdb $3A05
|
|
|
732 fcs "RTI"
|
|
|
733 fdb $3B05
|
|
|
734 fcs "SWI2"
|
|
|
735 fdb $3F15
|
|
|
736 fcs "SWI3"
|
|
|
737 fdb $3F25
|
|
|
738 fcs "SWI"
|
|
|
739 fdb $3F05
|
|
|
740 fcs "LEAX"
|
|
|
741 fdb $3006
|
|
|
742 fcs "LEAY"
|
|
|
743 fdb $3106
|
|
|
744 fcs "LEAS"
|
|
|
745 fdb $3206
|
|
|
746 fcs "LEAU"
|
|
|
747 fdb $3306
|
|
|
748 fcs "TFR"
|
|
|
749 fdb $1F07
|
|
|
750 fcs "EXG"
|
|
|
751 fdb $1E07
|
|
|
752 fcs "PSHS"
|
|
|
753 fdb $3408
|
|
|
754 fcs "PULS"
|
|
|
755 fdb $3508
|
|
|
756 fcs "PSHU"
|
|
|
757 fdb $3608
|
|
|
758 fcs "PULU"
|
|
|
759 fdb $3708
|
|
|
760 fcs "LB"
|
|
|
761 fdb $0019
|
|
|
762 L0530 fcs "BSR"
|
|
|
763 fdb $8D0A
|
|
|
764 fcs "BRA"
|
|
|
765 fdb $200A
|
|
|
766 fcs "BRN"
|
|
|
767 fdb $210A
|
|
|
768 fcs "BHI"
|
|
|
769 fdb $220A
|
|
|
770 fcs "BLS"
|
|
|
771 fdb $230A
|
|
|
772 fcs "BHS"
|
|
|
773 fdb $240A
|
|
|
774 fcs "BCC"
|
|
|
775 fdb $240A
|
|
|
776 fcs "BLO"
|
|
|
777 fdb $250A
|
|
|
778 fcs "BCS"
|
|
|
779 fdb $250A
|
|
|
780 fcs "BNE"
|
|
|
781 fdb $260A
|
|
|
782 fcs "BEQ"
|
|
|
783 fdb $270A
|
|
|
784 fcs "BVC"
|
|
|
785 fdb $280A
|
|
|
786 fcs "BVS"
|
|
|
787 fdb $290A
|
|
|
788 fcs "BPL"
|
|
|
789 fdb $2A0A
|
|
|
790 fcs "BMI"
|
|
|
791 fdb $2B0A
|
|
|
792 fcs "BGE"
|
|
|
793 fdb $2C0A
|
|
|
794 fcs "BLT"
|
|
|
795 fdb $2D0A
|
|
|
796 fcs "BGT"
|
|
|
797 fdb $2E0A
|
|
|
798 fcs "BLE"
|
|
|
799 fdb $2F0A
|
|
|
800 fcs "RMB"
|
|
|
801 fdb $000B
|
|
|
802 fcs "FCC"
|
|
|
803 fdb $010B
|
|
|
804 fcs "FDB"
|
|
|
805 fdb $020B
|
|
|
806 fcs "FCS"
|
|
|
807 fdb $030B
|
|
|
808 fcs "FCB"
|
|
|
809 fdb $040B
|
|
|
810 fcs "EQU"
|
|
|
811 fdb $050B
|
|
|
812 fcs "MOD"
|
|
|
813 fdb $060B
|
|
|
814 fcs "EMOD"
|
|
|
815 fdb $070B
|
|
|
816 fcs "SETDP"
|
|
|
817 fdb $070C
|
|
|
818 fcs "SET"
|
|
|
819 fdb $080B
|
|
|
820 fcs "OS9"
|
|
|
821 fdb $090B
|
|
|
822 fcs "END"
|
|
|
823 fdb $010C
|
|
|
824 fcs "NAM"
|
|
|
825 fdb $020C
|
|
|
826 fcs "OPT"
|
|
|
827 fdb $030C
|
|
|
828 fcs "TTL"
|
|
|
829 fdb $040C
|
|
|
830 fcs "PAG"
|
|
|
831 fdb $050C
|
|
|
832 fcs "SPC"
|
|
|
833 fdb $060C
|
|
|
834 fcs "USE"
|
|
|
835 fdb $080C
|
|
|
836 fcs "IFEQ"
|
|
|
837 fdb $000D
|
|
|
838 fcs "IFNE"
|
|
|
839 fdb $010D
|
|
|
840 fcs "IFLT"
|
|
|
841 fdb $020D
|
|
|
842 fcs "IFLE"
|
|
|
843 fdb $030D
|
|
|
844 fcs "IFGE"
|
|
|
845 fdb $040D
|
|
|
846 fcs "IFGT"
|
|
|
847 fdb $050D
|
|
|
848 fcs "IFP1"
|
|
|
849 fdb $060D
|
|
|
850 fcs "ELSE"
|
|
|
851 fdb $010E
|
|
|
852 L061C fcc "***** Error: "
|
|
|
853 fcb $00
|
|
|
854 L062A fdb $0035
|
|
|
855 fdb $003F
|
|
|
856 fdb $0049
|
|
|
857 fdb $0053
|
|
|
858 fdb $005C
|
|
|
859 fdb $005E
|
|
|
860 fdb $006A
|
|
|
861 fdb $0071
|
|
|
862 fdb $0080
|
|
|
863 fdb $008f
|
|
|
864 fdb $0097
|
|
|
865 fdb $00A9
|
|
|
866 fdb $00B6
|
|
|
867 fdb $00C3
|
|
|
868 fdb $00CE
|
|
|
869 fdb $00D7
|
|
|
870 fdb $00E1
|
|
|
871 fdb $00EC
|
|
|
872 fdb $00F8
|
|
|
873 fdb $0102
|
|
|
874 fdb $010C
|
|
|
875 fdb $0118
|
|
|
876 fdb $0121
|
|
|
877 fdb $012B
|
|
|
878 fdb $0137
|
|
|
879 fdb $0149
|
|
|
880 fcb $00
|
|
|
881 L065F fcc "bad label"
|
|
|
882 fcb $00
|
|
|
883 L0667 fcc "bad instr"
|
|
|
884 fcb $00
|
|
|
885 L0673 fcc "in number"
|
|
|
886 fcb $00
|
|
|
887 L067C fcc "div by 0"
|
|
|
888 fcb $00
|
|
|
889 L0686 fcc " "
|
|
|
890 fcb $00
|
|
|
891 L0688 fcc "expr syntax"
|
|
|
892 fcb $00
|
|
|
893 L0693 fcc "parens"
|
|
|
894 fcb $00
|
|
|
895 L069B fcc "redefined name"
|
|
|
896 fcb $00
|
|
|
897 L06A9 fcc "undefined name"
|
|
|
898 fcb $00
|
|
|
899 L06B8 fcc "phasing"
|
|
|
900 fcb $00
|
|
|
901 L06C1 fcc "symbol table full"
|
|
|
902 fcb $00
|
|
|
903 L06D2 fcc "address mode"
|
|
|
904 fcb $00
|
|
|
905 L06E0 fcc "out of range"
|
|
|
906 fcb $00
|
|
|
907 L06EC fcc "result>255"
|
|
|
908 fcb $00
|
|
|
909 L06F7 fcc "reg name"
|
|
|
910 fcb $00
|
|
|
911 L0701 fcc "reg sizes"
|
|
|
912 fcb $00
|
|
|
913 L070A fcc "input path"
|
|
|
914 fcb $00
|
|
|
915 L0715 fcc "object path"
|
|
|
916 fcb $00
|
|
|
917 L0722 fcc "index reg"
|
|
|
918 fcb $00
|
|
|
919 L072C fcc "] missing"
|
|
|
920 fcb $00
|
|
|
921 L0736 fcc "needs label"
|
|
|
922 fcb $00
|
|
|
923 L0742 fcc "opt list"
|
|
|
924 fcb $00
|
|
|
925 L074B fcc "const def"
|
|
|
926 fcb $00
|
|
|
927 L0755 fcc "can't open "
|
|
|
928 fcb $00
|
|
|
929 L0761 fcc "label not allowed"
|
|
|
930 fcb $00
|
|
|
931 L0773 fcc "cond nesting"
|
|
|
932 fcb $00
|
|
|
933
|
|
|
934 L0780 fdb $001E
|
|
|
935 fdb $0025
|
|
|
936 fdb $0039
|
|
|
937 fdb $004E
|
|
|
938 fdb $0073
|
|
|
939 fdb $00A6
|
|
|
940 fdb $00AF
|
|
|
941 fdb $00C6
|
|
|
942 fdb $0104
|
|
|
943 fdb $011D
|
|
|
944 fdb $013A
|
|
|
945 fdb $015C
|
|
|
946 fdb $0161
|
|
|
947 fdb $0179
|
|
|
948
|
|
|
949 L079C fdb $07A9
|
|
|
950 lda #$03
|
|
|
951 sta <u0046
|
|
|
952 lbra L0951
|
|
|
953 lbsr L0932
|
|
|
954 bcc L07AF
|
|
|
955 ldb #$0C
|
|
|
956 lbsr L02FA
|
|
|
957 L07AF lbsr L12F7
|
|
|
958 stb <u0063
|
|
|
959 lda #$02
|
|
|
960 sta <u0046
|
|
|
961 rts
|
|
|
962 inc <u0046
|
|
|
963 lbsr L0932
|
|
|
964 lbcs L09C6
|
|
|
965 lbsr L12F1
|
|
|
966 std <u0063
|
|
|
967 inc <u0046
|
|
|
968 inc <u0046
|
|
|
969 lbra L0941
|
|
|
970 inc <u0046
|
|
|
971 lda ,x+
|
|
|
972 anda #$5F
|
|
|
973 cmpa #$41
|
|
|
974 L07D6 beq L07E7
|
|
|
975 cmpa #$42
|
|
|
976 beq L07E1
|
|
|
977 leas $02,s
|
|
|
978 lbra L015F
|
|
|
979 L07E1 ldb #$40
|
|
|
980 orb <u0062
|
|
|
981 stb <u0062
|
|
|
982 L07E7 lbsr L0932
|
|
|
983 lbcs L09C6
|
|
|
984 lbsr L0941
|
|
|
985 bra L07AF
|
|
|
986 inc <u0046
|
|
|
987 lda <u0062
|
|
|
988 cmpa #$0E
|
|
|
989 beq L080B
|
|
|
990 lda ,x
|
|
|
991 anda #$5F
|
|
|
992 ldb #$40
|
|
|
993 cmpa #$41
|
|
|
994 beq L0819
|
|
|
995 ldb #$50
|
|
|
996 cmpa #$42
|
|
|
997 beq L0819
|
|
|
998 L080B lbsr L09C6
|
|
|
999 ldb <u0062
|
|
|
1000 bitb #$F0
|
|
|
1001 beq L0825
|
|
|
1002 orb #$40
|
|
|
1003 stb <u0062
|
|
|
1004 rts
|
|
|
1005 L0819 orb <u0062
|
|
|
1006 stb <u0062
|
|
|
1007 leax $01,x
|
|
|
1008 ldb #$DF
|
|
|
1009 andb <u002B
|
|
|
1010 stb <u002B
|
|
|
1011 L0825 rts
|
|
|
1012 inc <u0046
|
|
|
1013 ldb <u002B
|
|
|
1014 andb #$DF
|
|
|
1015 stb <u002B
|
|
|
1016 rts
|
|
|
1017 inc <u0046
|
|
|
1018 lbsr L09C6
|
|
|
1019 lda <u004E
|
|
|
1020 bne L0825
|
|
|
1021 ldd #$1212
|
|
|
1022 std <u0062
|
|
|
1023 ldb #$02
|
|
|
1024 stb <u0046
|
|
|
1025 ldb #$0C
|
|
|
1026 lbra L02FA
|
|
|
1027 ldb #$02
|
|
|
1028 stb <u0046
|
|
|
1029 lbsr L1164
|
|
|
1030 lbsr L096B
|
|
|
1031 bcc L0857
|
|
|
1032 L0852 ldb #$0F
|
|
|
1033 lbra L02FA
|
|
|
1034 L0857 lda ,x+
|
|
|
1035 cmpa #$2C
|
|
|
1036 bne L0852
|
|
|
1037 pshs b
|
|
|
1038 lbsr L096B
|
|
|
1039 puls a
|
|
|
1040 bcs L0852
|
|
|
1041 pshs b,a
|
|
|
1042 anda #$08
|
|
|
1043 andb #$08
|
|
|
1044 pshs b
|
|
|
1045 eora ,s+
|
|
|
1046 beq L0879
|
|
|
1047 ldb #$10
|
|
|
1048 leas $02,s
|
|
|
1049 lbra L02FA
|
|
|
1050 L0879 puls a
|
|
|
1051 lsla
|
|
|
1052 lsla
|
|
|
1053 lsla
|
|
|
1054 lsla
|
|
|
1055 ora ,s+
|
|
|
1056 sta <u0063
|
|
|
1057 rts
|
|
|
1058 ldb #$02
|
|
|
1059 stb <u0046
|
|
|
1060 lbsr L1164
|
|
|
1061 L088B lbsr L096B
|
|
|
1062 bcs L0852
|
|
|
1063 ora <u0063
|
|
|
1064 sta <u0063
|
|
|
1065 lda ,x+
|
|
|
1066 cmpa #$2C
|
|
|
1067 beq L088B
|
|
|
1068 leax -$01,x
|
|
|
1069 rts
|
|
|
1070 lda #$04
|
|
|
1071 sta <u0046
|
|
|
1072 leax -$01,x
|
|
|
1073 ldb #$13
|
|
|
1074 leay >L0530,pcr
|
|
|
1075 lbsr L0344
|
|
|
1076 bcc L08B3
|
|
|
1077 leas $02,s
|
|
|
1078 lbra L015F
|
|
|
1079 L08B3 lda ,y
|
|
|
1080 sta <u0062
|
|
|
1081 lbra L0951
|
|
|
1082 lda #$02
|
|
|
1083 sta <u0046
|
|
|
1084 lbsr L12F1
|
|
|
1085 subd <u0040
|
|
|
1086 subd #$0002
|
|
|
1087 cmpd #$007F
|
|
|
1088 bgt L08D2
|
|
|
1089 cmpd #$FF80
|
|
|
1090 bge L08D9
|
|
|
1091 L08D2 ldb #$0D
|
|
|
1092 lbsr L02FA
|
|
|
1093 ldb #$FE
|
|
|
1094 L08D9 stb <u0063
|
|
|
1095 rts
|
|
|
1096 leau <L08FE,pcr
|
|
|
1097 bra L08EF
|
|
|
1098 ldb <u002B
|
|
|
1099 bitb #$08
|
|
|
1100 beq L08EC
|
|
|
1101 ldb #$19
|
|
|
1102 lbsr L02FA
|
|
|
1103 L08EC leau <L0912,pcr
|
|
|
1104 L08EF lbsr L1164
|
|
|
1105 ldb <u0062
|
|
|
1106 lslb
|
|
|
1107 ldd b,u
|
|
|
1108 jmp d,u
|
|
|
1109 leau <L0924,pcr
|
|
|
1110 bra L08EF
|
|
|
1111 L08FE fdb $02A8
|
|
|
1112 fdb $0349
|
|
|
1113 fdb $03C1
|
|
|
1114 fdb $036D
|
|
|
1115 fdb $03AF
|
|
|
1116 fdb $0329
|
|
|
1117 fdb $0462
|
|
|
1118 fdb $0442
|
|
|
1119 fdb $032D
|
|
|
1120 fdb $0453
|
|
|
1121 L0912 fdb $04A7
|
|
|
1122 fdb $04AF
|
|
|
1123 fdb $04C2
|
|
|
1124 fdb $051A
|
|
|
1125 fdb $04EB
|
|
|
1126 fdb $04F1
|
|
|
1127 fdb $04F7
|
|
|
1128 fdb $05A1
|
|
|
1129 fdb $05B2
|
|
|
1130 L0924 fdb $05BF
|
|
|
1131 fdb $05C4
|
|
|
1132 fdb $05C9
|
|
|
1133 fdb $05CE
|
|
|
1134 fdb $05D3
|
|
|
1135 fdb $05D8
|
|
|
1136 fdb $05DD
|
|
|
1137 L0932 fcb $17,$08,$2f,$81,$23,$26,$05,$30,$01
|
|
|
1138 andcc #$FE
|
|
|
1139 rts
|
|
|
1140 L093E orcc #$01
|
|
|
1141 rts
|
|
|
1142 L0941 ldb <u0047
|
|
|
1143 bitb #$40
|
|
|
1144 bne L0948
|
|
|
1145 rts
|
|
|
1146 L0948 ldb #$03
|
|
|
1147 stb <u0046
|
|
|
1148 ldb #$0C
|
|
|
1149 lbra L02FA
|
|
|
1150 L0951 lbsr L12F1
|
|
|
1151 subd <u0040
|
|
|
1152 subb <u0046
|
|
|
1153 sbca #$00
|
|
|
1154 std <u0063
|
|
|
1155 cmpd #$007F
|
|
|
1156 bgt L096A
|
|
|
1157 cmpd #$FF80
|
|
|
1158 blt L096A
|
|
|
1159 inc <u004F
|
|
|
1160 L096A rts
|
|
|
1161 L096B leay >L09A2,pcr
|
|
|
1162 pshs x
|
|
|
1163 ldb #$0C
|
|
|
1164 L0973 lda ,y
|
|
|
1165 beq L098F
|
|
|
1166 cmpa ,x+
|
|
|
1167 beq L0981
|
|
|
1168 adda #$20
|
|
|
1169 cmpa -$01,x
|
|
|
1170 bne L098F
|
|
|
1171 L0981 lda $01,y
|
|
|
1172 beq L099A
|
|
|
1173 cmpa ,x+
|
|
|
1174 beq L099A
|
|
|
1175 adda #$20
|
|
|
1176 cmpa -$01,x
|
|
|
1177 beq L099A
|
|
|
1178 L098F ldx ,s
|
|
|
1179 leay $03,y
|
|
|
1180 decb
|
|
|
1181 bne L0973
|
|
|
1182 orcc #$01
|
|
|
1183 puls pc,x
|
|
|
1184 L099A decb
|
|
|
1185 leas $02,s
|
|
|
1186 lda $02,y
|
|
|
1187 andcc #$FE
|
|
|
1188 rts
|
|
|
1189 L09A2 lsra
|
|
|
1190 negb
|
|
|
1191 lsl <u0043
|
|
|
1192 coma
|
|
|
1193 oim #$42,<u0000
|
|
|
1194 lsr <u0041
|
|
|
1195 neg <u0002
|
|
|
1196 neg <u0000
|
|
|
1197 neg <u0000
|
|
|
1198 neg <u0000
|
|
|
1199 negb
|
|
|
1200 coma
|
|
|
1201 suba #$53
|
|
|
1202 neg <u0040
|
|
|
1203 fcb $55 U
|
|
|
1204 neg <u0040
|
|
|
1205 rolb
|
|
|
1206 neg <u0020
|
|
|
1207 lslb
|
|
|
1208 neg <u0010
|
|
|
1209 lsra
|
|
|
1210 neg <u0006
|
|
|
1211 L09C6 lbsr L1164
|
|
|
1212 bsr L0A14
|
|
|
1213 cmpa #$5B
|
|
|
1214 bne L09D7
|
|
|
1215 inc <u004D
|
|
|
1216 leax $01,x
|
|
|
1217 lda ,x
|
|
|
1218 bsr L0A14
|
|
|
1219 L09D7 cmpa #$2C
|
|
|
1220 lbeq L0A64
|
|
|
1221 ldb $01,x
|
|
|
1222 cmpb #$2C
|
|
|
1223 bne L09F1
|
|
|
1224 anda #$DF
|
|
|
1225 cmpa #$41
|
|
|
1226 beq L0A27
|
|
|
1227 cmpa #$42
|
|
|
1228 beq L0A2B
|
|
|
1229 cmpa #$44
|
|
|
1230 beq L0A2F
|
|
|
1231 L09F1 lbsr L12F1
|
|
|
1232 bcc L09F8
|
|
|
1233 clra
|
|
|
1234 clrb
|
|
|
1235 L09F8 std <u004A
|
|
|
1236 lda ,x
|
|
|
1237 cmpa #$2C
|
|
|
1238 lbeq L0B18
|
|
|
1239 ldb <u004D
|
|
|
1240 bne L0A35
|
|
|
1241 ldb <u004C
|
|
|
1242 bmi L0A35
|
|
|
1243 bne L0A53
|
|
|
1244 lda <u004A
|
|
|
1245 cmpa <u003F
|
|
|
1246 beq L0A53
|
|
|
1247 bra L0A35
|
|
|
1248 L0A14 ldb #$FF
|
|
|
1249 cmpa #$3E
|
|
|
1250 beq L0A20
|
|
|
1251 cmpa #$3C
|
|
|
1252 bne L0A26
|
|
|
1253 ldb #$01
|
|
|
1254 L0A20 stb <u004C
|
|
|
1255 leax $01,x
|
|
|
1256 lda ,x
|
|
|
1257 L0A26 rts
|
|
|
1258 L0A27 ldb #$86
|
|
|
1259 bra L0A31
|
|
|
1260 L0A2B ldb #$85
|
|
|
1261 bra L0A31
|
|
|
1262 L0A2F ldb #$8B
|
|
|
1263 L0A31 leax $01,x
|
|
|
1264 bra L0A97
|
|
|
1265 L0A35 ldd <u004A
|
|
|
1266 inc <u0046
|
|
|
1267 inc <u0046
|
|
|
1268 inc <u004F
|
|
|
1269 tst <u004D
|
|
|
1270 bne L0A4A
|
|
|
1271 std <u0063
|
|
|
1272 ldb #$30
|
|
|
1273 orb <u0062
|
|
|
1274 stb <u0062
|
|
|
1275 rts
|
|
|
1276 L0A4A std <u0064
|
|
|
1277 ldb #$9F
|
|
|
1278 stb <u0063
|
|
|
1279 lbra L0AEA
|
|
|
1280 L0A53 inc <u0046
|
|
|
1281 ldb <u004B
|
|
|
1282 stb <u0063
|
|
|
1283 ldb <u0062
|
|
|
1284 bitb #$F0
|
|
|
1285 beq L0A63
|
|
|
1286 orb #$10
|
|
|
1287 stb <u0062
|
|
|
1288 L0A63 rts
|
|
|
1289 L0A64 leax $01,x
|
|
|
1290 clr <u004A
|
|
|
1291 clr <u004B
|
|
|
1292 ldd ,x
|
|
|
1293 cmpd #$2D2D
|
|
|
1294 beq L0A8D
|
|
|
1295 cmpa #$2D
|
|
|
1296 beq L0A93
|
|
|
1297 bsr L0AC7
|
|
|
1298 lbcs L0B68
|
|
|
1299 stb <u0063
|
|
|
1300 ldd ,x
|
|
|
1301 cmpd #$2B2B
|
|
|
1302 beq L0AAB
|
|
|
1303 cmpa #$2B
|
|
|
1304 beq L0AB1
|
|
|
1305 lbra L0B22
|
|
|
1306 L0A8D leax $01,x
|
|
|
1307 ldb #$83
|
|
|
1308 bra L0A97
|
|
|
1309 L0A93 bsr L0ABD
|
|
|
1310 ldb #$82
|
|
|
1311 L0A97 stb <u0063
|
|
|
1312 leax $01,x
|
|
|
1313 bsr L0AC7
|
|
|
1314 bcc L0AA5
|
|
|
1315 L0A9F ldb #$13
|
|
|
1316 lbsr L02FA
|
|
|
1317 clrb
|
|
|
1318 L0AA5 orb <u0063
|
|
|
1319 stb <u0063
|
|
|
1320 bra L0AEA
|
|
|
1321 L0AAB ldb #$81
|
|
|
1322 leax $01,x
|
|
|
1323 bra L0AB5
|
|
|
1324 L0AB1 bsr L0ABD
|
|
|
1325 ldb #$80
|
|
|
1326 L0AB5 leax $01,x
|
|
|
1327 orb <u0063
|
|
|
1328 stb <u0063
|
|
|
1329 bra L0AEA
|
|
|
1330 L0ABD tst <u004D
|
|
|
1331 beq L0AC6
|
|
|
1332 ldb #$0C
|
|
|
1333 lbsr L02FA
|
|
|
1334 L0AC6 rts
|
|
|
1335 L0AC7 lda ,x+
|
|
|
1336 anda #$5F
|
|
|
1337 clrb
|
|
|
1338 cmpa #$58
|
|
|
1339 beq L0AE2
|
|
|
1340 ldb #$20
|
|
|
1341 cmpa #$59
|
|
|
1342 beq L0AE2
|
|
|
1343 ldb #$40
|
|
|
1344 cmpa #$55
|
|
|
1345 beq L0AE2
|
|
|
1346 ldb #$60
|
|
|
1347 cmpa #$53
|
|
|
1348 bne L0AE5
|
|
|
1349 L0AE2 andcc #$FE
|
|
|
1350 rts
|
|
|
1351 L0AE5 leax -$01,x
|
|
|
1352 orcc #$01
|
|
|
1353 rts
|
|
|
1354 L0AEA ldb #$20
|
|
|
1355 orb <u0062
|
|
|
1356 stb <u0062
|
|
|
1357 inc <u0046
|
|
|
1358 inc <u004E
|
|
|
1359 tst <u004D
|
|
|
1360 beq L0B08
|
|
|
1361 ldb #$10
|
|
|
1362 orb <u0063
|
|
|
1363 stb <u0063
|
|
|
1364 lda ,x+
|
|
|
1365 cmpa #$5D
|
|
|
1366 beq L0B08
|
|
|
1367 ldb #$14
|
|
|
1368 bra L0B14
|
|
|
1369 L0B08 lda ,x
|
|
|
1370 cmpa #$20
|
|
|
1371 beq L0B17
|
|
|
1372 cmpa #$0D
|
|
|
1373 beq L0B17
|
|
|
1374 ldb #$0C
|
|
|
1375 L0B14 lbsr L02FA
|
|
|
1376 L0B17 rts
|
|
|
1377 L0B18 leax $01,x
|
|
|
1378 bsr L0AC7
|
|
|
1379 bcs L0B68
|
|
|
1380 orb <u0063
|
|
|
1381 stb <u0063
|
|
|
1382 L0B22 ldd <u004A
|
|
|
1383 tst <u004C
|
|
|
1384 bmi L0B5A
|
|
|
1385 bne L0B52
|
|
|
1386 ldd <u004A
|
|
|
1387 bne L0B32
|
|
|
1388 ldb #$84
|
|
|
1389 bra L0B62
|
|
|
1390 L0B32 tst <u004D
|
|
|
1391 bne L0B46
|
|
|
1392 cmpd #$000F
|
|
|
1393 bgt L0B46
|
|
|
1394 cmpd #$FFF0
|
|
|
1395 blt L0B46
|
|
|
1396 andb #$1F
|
|
|
1397 bra L0B62
|
|
|
1398 L0B46 cmpd #$007F
|
|
|
1399 bgt L0B5A
|
|
|
1400 cmpd #$FF80
|
|
|
1401 blt L0B5A
|
|
|
1402 L0B52 stb <u0064
|
|
|
1403 inc <u0046
|
|
|
1404 ldb #$88
|
|
|
1405 bra L0B62
|
|
|
1406 L0B5A std <u0064
|
|
|
1407 inc <u0046
|
|
|
1408 inc <u0046
|
|
|
1409 ldb #$89
|
|
|
1410 L0B62 orb <u0063
|
|
|
1411 stb <u0063
|
|
|
1412 bra L0AEA
|
|
|
1413 L0B68 ldd ,x
|
|
|
1414 anda #$5F
|
|
|
1415 andb #$5F
|
|
|
1416 cmpd #$5043
|
|
|
1417 lbne L0A9F
|
|
|
1418 leax $02,x
|
|
|
1419 lda ,x
|
|
|
1420 anda #$5F
|
|
|
1421 cmpa #$52
|
|
|
1422 bne L0B82
|
|
|
1423 leax $01,x
|
|
|
1424 L0B82 inc <u0046
|
|
|
1425 ldd <u004A
|
|
|
1426 subd <u0040
|
|
|
1427 subb <u0046
|
|
|
1428 sbca #$00
|
|
|
1429 subd #$0001
|
|
|
1430 tst <u004C
|
|
|
1431 bmi L0B9B
|
|
|
1432 beq L0B9B
|
|
|
1433 stb <u0064
|
|
|
1434 ldb #$8C
|
|
|
1435 bra L0B62
|
|
|
1436 L0B9B subd #$0001
|
|
|
1437 inc <u0046
|
|
|
1438 std <u0064
|
|
|
1439 ldb #$8D
|
|
|
1440 bra L0B62
|
|
|
1441 bsr L0BE4
|
|
|
1442 pshs b,a
|
|
|
1443 addd <u0026
|
|
|
1444 std <u0026
|
|
|
1445 bsr L0BEF
|
|
|
1446 beq L0BB6
|
|
|
1447 lda #$04
|
|
|
1448 bsr L0BF7
|
|
|
1449 L0BB6 bsr L0BD8
|
|
|
1450 bsr L0BEF
|
|
|
1451 beq L0BBE
|
|
|
1452 bsr L0C0A
|
|
|
1453 L0BBE addd ,s++
|
|
|
1454 L0BC0 pshs a
|
|
|
1455 lda <u002B
|
|
|
1456 anda #$08
|
|
|
1457 ora #$31
|
|
|
1458 sta <u002B
|
|
|
1459 puls a
|
|
|
1460 tst <u005A
|
|
|
1461 beq L0BD3
|
|
|
1462 std <u0040
|
|
|
1463 rts
|
|
|
1464 L0BD3 std <u0042
|
|
|
1465 inc <u002C
|
|
|
1466 rts
|
|
|
1467 L0BD8 tst <u005A
|
|
|
1468 beq L0BDF
|
|
|
1469 ldd <u0040
|
|
|
1470 rts
|
|
|
1471 L0BDF ldd <u0042
|
|
|
1472 std <u0044
|
|
|
1473 rts
|
|
|
1474 L0BE4 lbsr L11C2
|
|
|
1475 bcc L0BEE
|
|
|
1476 lbsr L02FA
|
|
|
1477 clra
|
|
|
1478 clrb
|
|
|
1479 L0BEE rts
|
|
|
1480 L0BEF pshs a
|
|
|
1481 lda <u002B
|
|
|
1482 bita #$08
|
|
|
1483 puls pc,a
|
|
|
1484 L0BF7 ldu <u002D
|
|
|
1485 ldb u0008,u
|
|
|
1486 bmi L0C09
|
|
|
1487 cmpb #$02
|
|
|
1488 bne L0C07
|
|
|
1489 cmpa #$02
|
|
|
1490 beq L0C07
|
|
|
1491 ora #$80
|
|
|
1492 L0C07 sta u0008,u
|
|
|
1493 L0C09 rts
|
|
|
1494 L0C0A tst <u003E
|
|
|
1495 ble L0C24
|
|
|
1496 cmpd u0009,u
|
|
|
1497 beq L0C26
|
|
|
1498 pshs b,a
|
|
|
1499 lda u0008,u
|
|
|
1500 bmi L0C22
|
|
|
1501 cmpa #$02
|
|
|
1502 beq L0C22
|
|
|
1503 ldb #$0A
|
|
|
1504 lbsr L02FA
|
|
|
1505 L0C22 puls b,a
|
|
|
1506 L0C24 std u0009,u
|
|
|
1507 L0C26 rts
|
|
|
1508 lda #$03
|
|
|
1509 bra L0C2D
|
|
|
1510 lda #$02
|
|
|
1511 L0C2D bsr L0BEF
|
|
|
1512 bne L0C38
|
|
|
1513 ldb #$15
|
|
|
1514 lbsr L02FA
|
|
|
1515 bra L0C46
|
|
|
1516 L0C38 bsr L0BF7
|
|
|
1517 bsr L0BE4
|
|
|
1518 ldu <u002D
|
|
|
1519 bsr L0C0A
|
|
|
1520 std <u0044
|
|
|
1521 ldb #$39
|
|
|
1522 stb <u002B
|
|
|
1523 L0C46 rts
|
|
|
1524 lda ,x+
|
|
|
1525 pshs a
|
|
|
1526 cmpa #$0D
|
|
|
1527 beq L0C64
|
|
|
1528 cmpa #$2F
|
|
|
1529 bhi L0C64
|
|
|
1530 bsr L0C8D
|
|
|
1531 L0C55 lda ,x+
|
|
|
1532 cmpa ,s
|
|
|
1533 beq L0C69
|
|
|
1534 cmpa #$0D
|
|
|
1535 beq L0C64
|
|
|
1536 lbsr L0CEC
|
|
|
1537 bra L0C55
|
|
|
1538 L0C64 ldb #$17
|
|
|
1539 lbsr L02FA
|
|
|
1540 L0C69 puls pc,a
|
|
|
1541 lda ,x+
|
|
|
1542 pshs a
|
|
|
1543 cmpa #$0D
|
|
|
1544 beq L0C64
|
|
|
1545 cmpa #$2F
|
|
|
1546 bhi L0C64
|
|
|
1547 bsr L0C8D
|
|
|
1548 L0C79 ldd ,x+
|
|
|
1549 cmpa #$0D
|
|
|
1550 beq L0C64
|
|
|
1551 cmpa ,s
|
|
|
1552 beq L0C69
|
|
|
1553 cmpb ,s
|
|
|
1554 bne L0C89
|
|
|
1555 ora #$80
|
|
|
1556 L0C89 bsr L0CEC
|
|
|
1557 bra L0C79
|
|
|
1558 L0C8D pshs x,a
|
|
|
1559 leax -$01,x
|
|
|
1560 L0C91 leax $01,x
|
|
|
1561 lda ,x
|
|
|
1562 cmpa #$0D
|
|
|
1563 beq L0CA1
|
|
|
1564 cmpa ,s
|
|
|
1565 bne L0C91
|
|
|
1566 leax $01,x
|
|
|
1567 lda ,x
|
|
|
1568 L0CA1 clr ,x+
|
|
|
1569 stx <u0033
|
|
|
1570 cmpa #$0D
|
|
|
1571 bne L0CAB
|
|
|
1572 sta ,x
|
|
|
1573 L0CAB puls pc,x,a
|
|
|
1574 bsr L0CD5
|
|
|
1575 L0CAF lbsr L12F7
|
|
|
1576 tfr b,a
|
|
|
1577 bsr L0CEC
|
|
|
1578 lda ,x+
|
|
|
1579 cmpa #$2C
|
|
|
1580 beq L0CAF
|
|
|
1581 leax -$01,x
|
|
|
1582 rts
|
|
|
1583 bsr L0CD5
|
|
|
1584 L0CC1 lbsr L12F1
|
|
|
1585 pshs b
|
|
|
1586 bsr L0CEC
|
|
|
1587 puls a
|
|
|
1588 bsr L0CEC
|
|
|
1589 lda ,x+
|
|
|
1590 cmpa #$2C
|
|
|
1591 beq L0CC1
|
|
|
1592 leax -$01,x
|
|
|
1593 rts
|
|
|
1594 L0CD5 pshs x
|
|
|
1595 L0CD7 lbsr L12F1
|
|
|
1596 lda ,x+
|
|
|
1597 cmpa #$2C
|
|
|
1598 beq L0CD7
|
|
|
1599 clr -$01,x
|
|
|
1600 stx <u0033
|
|
|
1601 cmpa #$0D
|
|
|
1602 bne L0CEA
|
|
|
1603 sta ,x
|
|
|
1604 L0CEA puls pc,x
|
|
|
1605 L0CEC ldb <u0046
|
|
|
1606 cmpb #$04
|
|
|
1607 bcs L0CF4
|
|
|
1608 bsr L0D03
|
|
|
1609 L0CF4 pshs b,a
|
|
|
1610 tfr dp,a
|
|
|
1611 ldb #$62
|
|
|
1612 tfr d,u
|
|
|
1613 puls b,a
|
|
|
1614 sta b,u
|
|
|
1615 inc <u0046
|
|
|
1616 rts
|
|
|
1617 L0D03 pshs x,b,a
|
|
|
1618 ldb <u002A
|
|
|
1619 bne L0D14
|
|
|
1620 ldx <u0033
|
|
|
1621 lbsr L01C4
|
|
|
1622 tst <u005B
|
|
|
1623 beq L0D27
|
|
|
1624 bra L0D30
|
|
|
1625 L0D14 tst <u005B
|
|
|
1626 bne L0D2D
|
|
|
1627 lda <u0056
|
|
|
1628 pshs a
|
|
|
1629 clr <u0056
|
|
|
1630 com <u0056
|
|
|
1631 lbsr L01D3
|
|
|
1632 puls a
|
|
|
1633 sta <u0056
|
|
|
1634 L0D27 ldb #$04
|
|
|
1635 stb <u002B
|
|
|
1636 bra L0D34
|
|
|
1637 L0D2D lbsr L01D3
|
|
|
1638 L0D30 ldb #$05
|
|
|
1639 stb <u002B
|
|
|
1640 L0D34 ldd <u0040
|
|
|
1641 std <u0044
|
|
|
1642 clr <u0046
|
|
|
1643 inc <u002A
|
|
|
1644 clr $01,s
|
|
|
1645 puls pc,x,b,a
|
|
|
1646 ldd <u0051
|
|
|
1647 coma
|
|
|
1648 comb
|
|
|
1649 std <u0062
|
|
|
1650 ldb <u0053
|
|
|
1651 comb
|
|
|
1652 lda <u002B
|
|
|
1653 anda #$DF
|
|
|
1654 sta <u002B
|
|
|
1655 bra L0D59
|
|
|
1656 ldd #$103F
|
|
|
1657 std <u0062
|
|
|
1658 lbsr L12F7
|
|
|
1659 L0D59 stb <u0064
|
|
|
1660 ldb #$03
|
|
|
1661 stb <u0046
|
|
|
1662 rts
|
|
|
1663 clra
|
|
|
1664 clrb
|
|
|
1665 stb <u0050
|
|
|
1666 std <u0040
|
|
|
1667 std <u0044
|
|
|
1668 std <u0042
|
|
|
1669 lbsr L1360
|
|
|
1670 lbsr L0CD5
|
|
|
1671 ldd #$87CD
|
|
|
1672 bsr L0D93
|
|
|
1673 bsr L0D90
|
|
|
1674 bsr L0D8E
|
|
|
1675 bsr L0DA9
|
|
|
1676 bsr L0DA4
|
|
|
1677 bsr L0DA9
|
|
|
1678 bsr L0DA4
|
|
|
1679 lda <u0050
|
|
|
1680 coma
|
|
|
1681 bsr L0DA1
|
|
|
1682 lda ,x
|
|
|
1683 cmpa #$2C
|
|
|
1684 bne L0DB8
|
|
|
1685 bsr L0D8E
|
|
|
1686 L0D8E bsr L0DA9
|
|
|
1687 L0D90 lbsr L12F1
|
|
|
1688 L0D93 pshs b
|
|
|
1689 tfr a,b
|
|
|
1690 bsr L0D9B
|
|
|
1691 puls b
|
|
|
1692 L0D9B tfr b,a
|
|
|
1693 eorb <u0050
|
|
|
1694 stb <u0050
|
|
|
1695 L0DA1 lbra L0CEC
|
|
|
1696 L0DA4 lbsr L12F7
|
|
|
1697 bra L0D9B
|
|
|
1698 L0DA9 lda ,x+
|
|
|
1699 cmpa #$2C
|
|
|
1700 beq L0DB8
|
|
|
1701 leax -$01,x
|
|
|
1702 ldb #$17
|
|
|
1703 lbsr L02FA
|
|
|
1704 leas $02,s
|
|
|
1705 L0DB8 rts
|
|
|
1706 lbsr L0BE4
|
|
|
1707 std <u0044
|
|
|
1708 lbra L0BC0
|
|
|
1709 ldb <u002B
|
|
|
1710 andb #$08
|
|
|
1711 orb #$10
|
|
|
1712 stb <u002B
|
|
|
1713 lbsr L01F2
|
|
|
1714 lbsr L156C
|
|
|
1715 bcc L0DD3
|
|
|
1716 leas $04,s
|
|
|
1717 L0DD3 rts
|
|
|
1718 ldb #$27
|
|
|
1719 ldu <u000A
|
|
|
1720 L0DD8 lbsr L1164
|
|
|
1721 lda <u003E
|
|
|
1722 bne L0DE3
|
|
|
1723 lda ,u
|
|
|
1724 bne L0DFC
|
|
|
1725 L0DE3 lda ,x+
|
|
|
1726 cmpa #$0D
|
|
|
1727 beq L0DF4
|
|
|
1728 sta ,u+
|
|
|
1729 decb
|
|
|
1730 bne L0DE3
|
|
|
1731 lda #$0D
|
|
|
1732 L0DF0 cmpa ,x+
|
|
|
1733 bne L0DF0
|
|
|
1734 L0DF4 clr ,u
|
|
|
1735 leax -$01,x
|
|
|
1736 ldb #$30
|
|
|
1737 stb <u002B
|
|
|
1738 L0DFC rts
|
|
|
1739 ldb #$4F
|
|
|
1740 ldu <u0008
|
|
|
1741 bra L0DD8
|
|
|
1742 lbsr L1408
|
|
|
1743 L0E06 leas $02,s
|
|
|
1744 rts
|
|
|
1745 bsr L0E21
|
|
|
1746 bcc L0E12
|
|
|
1747 ldb #$30
|
|
|
1748 stb <u002B
|
|
|
1749 rts
|
|
|
1750 L0E12 stb ,-s
|
|
|
1751 beq L0E1D
|
|
|
1752 L0E16 lbsr L149A
|
|
|
1753 dec ,s
|
|
|
1754 bne L0E16
|
|
|
1755 L0E1D leas $01,s
|
|
|
1756 bra L0E06
|
|
|
1757 L0E21 lbsr L10B4
|
|
|
1758 bcc L0E2B
|
|
|
1759 lbsr L02FA
|
|
|
1760 orcc #$01
|
|
|
1761 L0E2B rts
|
|
|
1762 L0E2C ldb #$30
|
|
|
1763 stb <u002B
|
|
|
1764 lbsr L1164
|
|
|
1765 L0E33 clr ,-s
|
|
|
1766 lda ,x+
|
|
|
1767 cmpa #$2D
|
|
|
1768 bne L0E3F
|
|
|
1769 com ,s
|
|
|
1770 lda ,x+
|
|
|
1771 L0E3F leau <L0EA3,pcr
|
|
|
1772 ldb #$08
|
|
|
1773 cmpa #$61
|
|
|
1774 bcs L0E4A
|
|
|
1775 suba #$20
|
|
|
1776 L0E4A cmpa ,u++
|
|
|
1777 beq L0E68
|
|
|
1778 decb
|
|
|
1779 bne L0E4A
|
|
|
1780 puls b
|
|
|
1781 cmpa #$44
|
|
|
1782 beq L0E88
|
|
|
1783 cmpa #$57
|
|
|
1784 beq L0E80
|
|
|
1785 cmpa #$4C
|
|
|
1786 beq L0E90
|
|
|
1787 cmpa #$4E
|
|
|
1788 beq L0E9B
|
|
|
1789 L0E63 ldb #$16
|
|
|
1790 lbra L02FA
|
|
|
1791 L0E68 ldb -u0001,u
|
|
|
1792 tfr dp,a
|
|
|
1793 tfr d,u
|
|
|
1794 puls a
|
|
|
1795 coma
|
|
|
1796 sta ,u
|
|
|
1797 L0E73 lda ,x+
|
|
|
1798 cmpa #$2C
|
|
|
1799 beq L0E33
|
|
|
1800 cmpa #$20
|
|
|
1801 beq L0E2C
|
|
|
1802 leax -$01,x
|
|
|
1803 rts
|
|
|
1804 L0E80 bsr L0E21
|
|
|
1805 bcs L0E63
|
|
|
1806 stb <u0037
|
|
|
1807 bra L0E73
|
|
|
1808 L0E88 bsr L0E21
|
|
|
1809 bcs L0E63
|
|
|
1810 stb <u0036
|
|
|
1811 bra L0E73
|
|
|
1812 L0E90 tstb
|
|
|
1813 beq L0E97
|
|
|
1814 dec <u0056
|
|
|
1815 bra L0E73
|
|
|
1816 L0E97 inc <u0056
|
|
|
1817 bra L0E73
|
|
|
1818 L0E9B inc <u0060
|
|
|
1819 lda #$1F
|
|
|
1820 sta <u0037
|
|
|
1821 bra L0E97
|
|
|
1822 L0EA3 coma
|
|
|
1823 clrb
|
|
|
1824 rora
|
|
|
1825 rolb
|
|
|
1826 tsta
|
|
|
1827 decb
|
|
|
1828 asra
|
|
|
1829 fcb $5B [
|
|
|
1830 fcb $45 E
|
|
|
1831 incb
|
|
|
1832 comb
|
|
|
1833 fcb $5E ^
|
|
|
1834 rola
|
|
|
1835 tstb
|
|
|
1836 clra
|
|
|
1837 lslb
|
|
|
1838 lbsr L12F7
|
|
|
1839 bcs L0EBA
|
|
|
1840 stb <u003F
|
|
|
1841 L0EBA clra
|
|
|
1842 std <u0044
|
|
|
1843 ldb #$31
|
|
|
1844 stb <u002B
|
|
|
1845 inc <u002C
|
|
|
1846 rts
|
|
|
1847 lbsr L1164
|
|
|
1848 lbsr L15FB
|
|
|
1849 bra L0ECE
|
|
|
1850 L0ECC leax -$01,x
|
|
|
1851 L0ECE ldb -$01,x
|
|
|
1852 cmpb #$20
|
|
|
1853 beq L0ECC
|
|
|
1854 ldu <u001F
|
|
|
1855 ldb <u0018
|
|
|
1856 pshu b
|
|
|
1857 stu <u001F
|
|
|
1858 sta <u0018
|
|
|
1859 ldb #$30
|
|
|
1860 stb <u002B
|
|
|
1861 rts
|
|
|
1862 bsr L0F0F
|
|
|
1863 bne L0F0C
|
|
|
1864 rts
|
|
|
1865 bsr L0F0F
|
|
|
1866 beq L0F0C
|
|
|
1867 rts
|
|
|
1868 bsr L0F0F
|
|
|
1869 bge L0F0C
|
|
|
1870 rts
|
|
|
1871 bsr L0F0F
|
|
|
1872 bgt L0F0C
|
|
|
1873 rts
|
|
|
1874 bsr L0F0F
|
|
|
1875 blt L0F0C
|
|
|
1876 rts
|
|
|
1877 bsr L0F0F
|
|
|
1878 ble L0F0C
|
|
|
1879 rts
|
|
|
1880 inc <u0055
|
|
|
1881 ldb #$10
|
|
|
1882 bsr L0F21
|
|
|
1883 lda <u003E
|
|
|
1884 bne L0F0C
|
|
|
1885 rts
|
|
|
1886 L0F0C inc <u0054
|
|
|
1887 rts
|
|
|
1888 L0F0F inc <u0055
|
|
|
1889 ldb #$30
|
|
|
1890 bsr L0F21
|
|
|
1891 lbsr L12F1
|
|
|
1892 bcc L0F1C
|
|
|
1893 puls pc,b,a
|
|
|
1894 L0F1C cmpd #$0000
|
|
|
1895 rts
|
|
|
1896 L0F21 tst <u005F
|
|
|
1897 bne L0F26
|
|
|
1898 clrb
|
|
|
1899 L0F26 stb <u002B
|
|
|
1900 rts
|
|
|
1901 ldb #$10
|
|
|
1902 bsr L0F21
|
|
|
1903 lda <u0055
|
|
|
1904 beq L0F42
|
|
|
1905 lda <u0062
|
|
|
1906 bne L0F3B
|
|
|
1907 dec <u0055
|
|
|
1908 lda <u0054
|
|
|
1909 beq L0F41
|
|
|
1910 L0F3B lda <u0054
|
|
|
1911 beq L0F0C
|
|
|
1912 dec <u0054
|
|
|
1913 L0F41 rts
|
|
|
1914 L0F42 ldb #$1A
|
|
|
1915 lbsr L02FA
|
|
|
1916 clr <u0054
|
|
|
1917 rts
|
|
|
1918 L0F4A pshs u,y,x
|
|
|
1919 bsr L0FC3
|
|
|
1920 stx <u002D
|
|
|
1921 ldb <u003E
|
|
|
1922 bgt L0F7D
|
|
|
1923 bcc L0F63
|
|
|
1924 lda #$01
|
|
|
1925 ldu <u0040
|
|
|
1926 lbsr L100B
|
|
|
1927 stx <u002D
|
|
|
1928 bcc L0F9E
|
|
|
1929 bra L0F9A
|
|
|
1930 L0F63 cmpa #$00
|
|
|
1931 bne L0F71
|
|
|
1932 lda #$01
|
|
|
1933 ldu <u0040
|
|
|
1934 sta $08,x
|
|
|
1935 stu $09,x
|
|
|
1936 bra L0F9E
|
|
|
1937 L0F71 cmpa #$02
|
|
|
1938 beq L0F9E
|
|
|
1939 ora #$80
|
|
|
1940 sta $08,x
|
|
|
1941 L0F79 ldb #$08
|
|
|
1942 bra L0F9A
|
|
|
1943 L0F7D bcc L0F83
|
|
|
1944 L0F7F ldb #$09
|
|
|
1945 bra L0F9A
|
|
|
1946 L0F83 cmpa #$00
|
|
|
1947 beq L0F7F
|
|
|
1948 bita #$80
|
|
|
1949 bne L0F79
|
|
|
1950 cmpa #$01
|
|
|
1951 bne L0F9E
|
|
|
1952 ldd <u0040
|
|
|
1953 cmpd $09,x
|
|
|
1954 beq L0F9E
|
|
|
1955 std $09,x
|
|
|
1956 ldb #$0A
|
|
|
1957 L0F9A orcc #$01
|
|
|
1958 puls pc,u,y,x
|
|
|
1959 L0F9E andcc #$FE
|
|
|
1960 puls pc,u,y,x
|
|
|
1961 L0FA2 pshs u,y,x
|
|
|
1962 bsr L0FC3
|
|
|
1963 ldb <u003E
|
|
|
1964 bne L0FBB
|
|
|
1965 bcc L0FB7
|
|
|
1966 lda #$00
|
|
|
1967 ldu #$0000
|
|
|
1968 bsr L100B
|
|
|
1969 bcs L0F9A
|
|
|
1970 bra L0F9E
|
|
|
1971 L0FB7 ldd $09,x
|
|
|
1972 bra L0F9E
|
|
|
1973 L0FBB lda $08,x
|
|
|
1974 cmpa #$00
|
|
|
1975 bne L0FB7
|
|
|
1976 bra L0F7F
|
|
|
1977 L0FC3 bsr L0FFA
|
|
|
1978 ldx ,x
|
|
|
1979 bne L0FCD
|
|
|
1980 leay ,x
|
|
|
1981 bra L0FF7
|
|
|
1982 L0FCD pshs x
|
|
|
1983 ldy <u0016
|
|
|
1984 ldb #$08
|
|
|
1985 L0FD4 lda ,y+
|
|
|
1986 beq L0FE5
|
|
|
1987 cmpa ,x+
|
|
|
1988 bne L0FE9
|
|
|
1989 decb
|
|
|
1990 bne L0FD4
|
|
|
1991 L0FDF puls x
|
|
|
1992 lda $08,x
|
|
|
1993 clrb
|
|
|
1994 rts
|
|
|
1995 L0FE5 cmpa ,x+
|
|
|
1996 beq L0FDF
|
|
|
1997 L0FE9 puls y
|
|
|
1998 bhi L0FF3
|
|
|
1999 ldx $0B,y
|
|
|
2000 bne L0FCD
|
|
|
2001 bra L0FF7
|
|
|
2002 L0FF3 ldx $0D,y
|
|
|
2003 bne L0FCD
|
|
|
2004 L0FF7 orcc #$01
|
|
|
2005 rts
|
|
|
2006 L0FFA ldx <u0016
|
|
|
2007 ldb ,x
|
|
|
2008 ldx <u0010
|
|
|
2009 subb #$41
|
|
|
2010 cmpb #$20
|
|
|
2011 bcs L1008
|
|
|
2012 subb #$06
|
|
|
2013 L1008 lslb
|
|
|
2014 abx
|
|
|
2015 rts
|
|
|
2016 L100B ldx <u001D
|
|
|
2017 pshs x,a
|
|
|
2018 leax $0F,x
|
|
|
2019 cmpx <u0012
|
|
|
2020 bcs L1023
|
|
|
2021 ldb #$0B
|
|
|
2022 L1017 clr <u0056
|
|
|
2023 lda #$01
|
|
|
2024 sta <u003E
|
|
|
2025 lbsr L02FA
|
|
|
2026 lbra L15E9
|
|
|
2027 L1023 stx <u001D
|
|
|
2028 sty ,--s
|
|
|
2029 bne L1032
|
|
|
2030 leas $02,s
|
|
|
2031 bsr L0FFA
|
|
|
2032 leay -$0B,x
|
|
|
2033 bra L1040
|
|
|
2034 L1032 ldx <u0016
|
|
|
2035 L1034 lda ,x+
|
|
|
2036 cmpa ,y+
|
|
|
2037 beq L1034
|
|
|
2038 puls y
|
|
|
2039 bcs L1040
|
|
|
2040 leay $02,y
|
|
|
2041 L1040 ldx $01,s
|
|
|
2042 stx $0B,y
|
|
|
2043 ldy <u0016
|
|
|
2044 lda ,y+
|
|
|
2045 L1049 sta ,x+
|
|
|
2046 lda ,y+
|
|
|
2047 bne L1049
|
|
|
2048 puls x,a
|
|
|
2049 sta $08,x
|
|
|
2050 stu $09,x
|
|
|
2051 clrb
|
|
|
2052 rts
|
|
|
2053 L1057 bsr L1065
|
|
|
2054 bra L105D
|
|
|
2055 bsr L106B
|
|
|
2056 L105D pshs a
|
|
|
2057 lda #$20
|
|
|
2058 sta ,x+
|
|
|
2059 puls pc,a
|
|
|
2060 L1065 exg a,b
|
|
|
2061 bsr L106B
|
|
|
2062 tfr a,b
|
|
|
2063 L106B pshs b
|
|
|
2064 andb #$F0
|
|
|
2065 lsrb
|
|
|
2066 lsrb
|
|
|
2067 lsrb
|
|
|
2068 lsrb
|
|
|
2069 bsr L1079
|
|
|
2070 puls b
|
|
|
2071 andb #$0F
|
|
|
2072 L1079 cmpb #$09
|
|
|
2073 bls L107F
|
|
|
2074 addb #$07
|
|
|
2075 L107F addb #$30
|
|
|
2076 stb ,x+
|
|
|
2077 rts
|
|
|
2078 L1084 pshs u,y,b
|
|
|
2079 leau >L10AA,pcr
|
|
|
2080 ldy #$0005
|
|
|
2081 L108E clr ,s
|
|
|
2082 L1090 subd ,u
|
|
|
2083 bcs L1098
|
|
|
2084 inc ,s
|
|
|
2085 bra L1090
|
|
|
2086 L1098 addd ,u++
|
|
|
2087 pshs b
|
|
|
2088 ldb $01,s
|
|
|
2089 addb #$30
|
|
|
2090 stb ,x+
|
|
|
2091 puls b
|
|
|
2092 leay -$01,y
|
|
|
2093 bne L108E
|
|
|
2094 puls pc,u,y,b
|
|
|
2095 L10AA fdb $2710
|
|
|
2096 fdb $03E8
|
|
|
2097 fdb $0064
|
|
|
2098 fdb $000A
|
|
|
2099 fdb $0001
|
|
|
2100 L10B4 lbsr L1164
|
|
|
2101 leax $01,x
|
|
|
2102 cmpa #$25
|
|
|
2103 beq L111D
|
|
|
2104 cmpa #$24
|
|
|
2105 beq L10C5
|
|
|
2106 leax -$01,x
|
|
|
2107 bra L10F7
|
|
|
2108 L10C5 leas -$04,s
|
|
|
2109 bsr L1134
|
|
|
2110 L10C9 bsr L113B
|
|
|
2111 bcc L10DD
|
|
|
2112 cmpb #$61
|
|
|
2113 bcs L10D3
|
|
|
2114 subb #$20
|
|
|
2115 L10D3 cmpb #$41
|
|
|
2116 bcs L114D
|
|
|
2117 cmpb #$46
|
|
|
2118 bhi L114D
|
|
|
2119 subb #$37
|
|
|
2120 L10DD stb ,s
|
|
|
2121 ldd $02,s
|
|
|
2122 bita #$F0
|
|
|
2123 bne L1160
|
|
|
2124 lslb
|
|
|
2125 rola
|
|
|
2126 lslb
|
|
|
2127 rola
|
|
|
2128 lslb
|
|
|
2129 rola
|
|
|
2130 lslb
|
|
|
2131 rola
|
|
|
2132 addb ,s
|
|
|
2133 adca #$00
|
|
|
2134 std $02,s
|
|
|
2135 inc $01,s
|
|
|
2136 bra L10C9
|
|
|
2137 L10F7 leas -$04,s
|
|
|
2138 bsr L1134
|
|
|
2139 L10FB bsr L113B
|
|
|
2140 bcs L114D
|
|
|
2141 stb ,s
|
|
|
2142 ldd $02,s
|
|
|
2143 lslb
|
|
|
2144 rola
|
|
|
2145 std $02,s
|
|
|
2146 lslb
|
|
|
2147 rola
|
|
|
2148 lslb
|
|
|
2149 rola
|
|
|
2150 bcs L1160
|
|
|
2151 addd $02,s
|
|
|
2152 bcs L1160
|
|
|
2153 addb ,s
|
|
|
2154 adca #$00
|
|
|
2155 bcs L1160
|
|
|
2156 std $02,s
|
|
|
2157 inc $01,s
|
|
|
2158 bra L10FB
|
|
|
2159 L111D leas -$04,s
|
|
|
2160 bsr L1134
|
|
|
2161 L1121 ldb ,x+
|
|
|
2162 subb #$30
|
|
|
2163 bcs L114D
|
|
|
2164 lsrb
|
|
|
2165 bne L114D
|
|
|
2166 rol $03,s
|
|
|
2167 rol $02,s
|
|
|
2168 bcs L1160
|
|
|
2169 inc $01,s
|
|
|
2170 bra L1121
|
|
|
2171 L1134 clra
|
|
|
2172 clrb
|
|
|
2173 std $02,s
|
|
|
2174 std $04,s
|
|
|
2175 rts
|
|
|
2176 L113B ldb ,x+
|
|
|
2177 cmpb #$30
|
|
|
2178 bcs L1145
|
|
|
2179 cmpb #$39
|
|
|
2180 bls L1148
|
|
|
2181 L1145 orcc #$01
|
|
|
2182 rts
|
|
|
2183 L1148 subb #$30
|
|
|
2184 andcc #$FE
|
|
|
2185 rts
|
|
|
2186 L114D leax -$01,x
|
|
|
2187 tst $01,s
|
|
|
2188 beq L1159
|
|
|
2189 ldd $02,s
|
|
|
2190 andcc #$FE
|
|
|
2191 bra L115D
|
|
|
2192 L1159 orcc #$04
|
|
|
2193 L115B orcc #$01
|
|
|
2194 L115D leas $04,s
|
|
|
2195 rts
|
|
|
2196 L1160 andcc #$FB
|
|
|
2197 bra L115B
|
|
|
2198 L1164 lda ,x+
|
|
|
2199 cmpa #$20
|
|
|
2200 beq L1164
|
|
|
2201 leax -$01,x
|
|
|
2202 rts
|
|
|
2203 L116D pshs x,b,a
|
|
|
2204 lda $03,s
|
|
|
2205 mul
|
|
|
2206 pshs b,a
|
|
|
2207 lda $02,s
|
|
|
2208 ldb $05,s
|
|
|
2209 mul
|
|
|
2210 addb ,s
|
|
|
2211 stb ,s
|
|
|
2212 lda $03,s
|
|
|
2213 ldb $04,s
|
|
|
2214 mul
|
|
|
2215 addb ,s
|
|
|
2216 stb ,s
|
|
|
2217 ldd ,s
|
|
|
2218 ldx #$0000
|
|
|
2219 leas $06,s
|
|
|
2220 rts
|
|
|
2221 L118E pshs y,x,b,a
|
|
|
2222 ldd ,s
|
|
|
2223 bne L1198
|
|
|
2224 orcc #$01
|
|
|
2225 bra L11B8
|
|
|
2226 L1198 ldd #$0010
|
|
|
2227 stb $04,s
|
|
|
2228 clrb
|
|
|
2229 L119E lsl $03,s
|
|
|
2230 rol $02,s
|
|
|
2231 rolb
|
|
|
2232 rola
|
|
|
2233 subd ,s
|
|
|
2234 bmi L11AC
|
|
|
2235 inc $03,s
|
|
|
2236 bra L11AE
|
|
|
2237 L11AC addd ,s
|
|
|
2238 L11AE dec $04,s
|
|
|
2239 bne L119E
|
|
|
2240 tfr d,x
|
|
|
2241 ldd $02,s
|
|
|
2242 andcc #$FE
|
|
|
2243 L11B8 leas $06,s
|
|
|
2244 rts
|
|
|
2245 L11BB sta ,x+
|
|
|
2246 L11BD lda ,y+
|
|
|
2247 bne L11BB
|
|
|
2248 rts
|
|
|
2249 L11C2 pshs u,y
|
|
|
2250 leau ,s
|
|
|
2251 bsr L1164
|
|
|
2252 bsr L11D0
|
|
|
2253 andcc #$FE
|
|
|
2254 puls pc,u,y
|
|
|
2255 L11CE leax $01,x
|
|
|
2256 L11D0 bsr L1211
|
|
|
2257 pshs b,a
|
|
|
2258 L11D4 lda ,x
|
|
|
2259 cmpa #$2D
|
|
|
2260 bne L11E2
|
|
|
2261 bsr L120F
|
|
|
2262 nega
|
|
|
2263 negb
|
|
|
2264 sbca #$00
|
|
|
2265 bra L11E8
|
|
|
2266 L11E2 cmpa #$2B
|
|
|
2267 bne L11EE
|
|
|
2268 bsr L120F
|
|
|
2269 L11E8 addd ,s
|
|
|
2270 std ,s
|
|
|
2271 bra L11D4
|
|
|
2272 L11EE tsta
|
|
|
2273 beq L120D
|
|
|
2274 cmpa #$0D
|
|
|
2275 beq L120D
|
|
|
2276 cmpa #$20
|
|
|
2277 beq L120D
|
|
|
2278 cmpa #$2C
|
|
|
2279 beq L120D
|
|
|
2280 cmpa #$29
|
|
|
2281 beq L120D
|
|
|
2282 cmpa #$5D
|
|
|
2283 beq L120D
|
|
|
2284 L1205 ldb #$06
|
|
|
2285 L1207 leas ,u
|
|
|
2286 orcc #$01
|
|
|
2287 puls pc,u,y
|
|
|
2288 L120D puls pc,b,a
|
|
|
2289 L120F leax $01,x
|
|
|
2290 L1211 bsr L123F
|
|
|
2291 pshs b,a
|
|
|
2292 L1215 lda ,x
|
|
|
2293 cmpa #$2F
|
|
|
2294 bne L122A
|
|
|
2295 bsr L123D
|
|
|
2296 pshs x
|
|
|
2297 ldx $02,s
|
|
|
2298 lbsr L118E
|
|
|
2299 bcc L1237
|
|
|
2300 ldb #$04
|
|
|
2301 bra L1207
|
|
|
2302 L122A cmpa #$2A
|
|
|
2303 bne L120D
|
|
|
2304 bsr L123D
|
|
|
2305 pshs x
|
|
|
2306 ldx $02,s
|
|
|
2307 lbsr L116D
|
|
|
2308 L1237 puls x
|
|
|
2309 std ,s
|
|
|
2310 bra L1215
|
|
|
2311 L123D leax $01,x
|
|
|
2312 L123F bsr L126D
|
|
|
2313 pshs b,a
|
|
|
2314 L1243 lda ,x
|
|
|
2315 cmpa #$26
|
|
|
2316 bne L1251
|
|
|
2317 bsr L126B
|
|
|
2318 andb $01,s
|
|
|
2319 anda ,s
|
|
|
2320 bra L1267
|
|
|
2321 L1251 cmpa #$21
|
|
|
2322 bne L125D
|
|
|
2323 bsr L126B
|
|
|
2324 orb $01,s
|
|
|
2325 ora ,s
|
|
|
2326 bra L1267
|
|
|
2327 L125D cmpa #$3F
|
|
|
2328 bne L120D
|
|
|
2329 bsr L126B
|
|
|
2330 eorb $01,s
|
|
|
2331 eora ,s
|
|
|
2332 L1267 std ,s
|
|
|
2333 bra L1243
|
|
|
2334 L126B leax $01,x
|
|
|
2335 L126D lda ,x
|
|
|
2336 cmpa #$5E
|
|
|
2337 bne L1279
|
|
|
2338 bsr L1284
|
|
|
2339 comb
|
|
|
2340 coma
|
|
|
2341 bra L1283
|
|
|
2342 L1279 cmpa #$2D
|
|
|
2343 bne L1286
|
|
|
2344 bsr L1284
|
|
|
2345 nega
|
|
|
2346 negb
|
|
|
2347 sbca #$00
|
|
|
2348 L1283 rts
|
|
|
2349 L1284 leax $01,x
|
|
|
2350 L1286 lda ,x
|
|
|
2351 cmpa #$28
|
|
|
2352 bne L12A2
|
|
|
2353 lbsr L11CE
|
|
|
2354 pshs b,a
|
|
|
2355 lda ,x
|
|
|
2356 cmpa #$29
|
|
|
2357 puls b,a
|
|
|
2358 beq L12B6
|
|
|
2359 ldb <u0007
|
|
|
2360 bra L129D
|
|
|
2361 L129D leas $02,s
|
|
|
2362 L129F lbra L1207
|
|
|
2363 L12A2 cmpa #$2A
|
|
|
2364 bne L12AA
|
|
|
2365 ldd <u0040
|
|
|
2366 bra L12B6
|
|
|
2367 L12AA tst <u005A
|
|
|
2368 bne L12B9
|
|
|
2369 cmpa #$2E
|
|
|
2370 bne L12B9
|
|
|
2371 ldd <u0042
|
|
|
2372 inc <u002C
|
|
|
2373 L12B6 leax $01,x
|
|
|
2374 rts
|
|
|
2375 L12B9 cmpa #$27
|
|
|
2376 bne L12C5
|
|
|
2377 ldd ,x++
|
|
|
2378 cmpb #$0D
|
|
|
2379 beq L12D6
|
|
|
2380 clra
|
|
|
2381 rts
|
|
|
2382 L12C5 cmpa #$22
|
|
|
2383 bne L12D9
|
|
|
2384 leax $01,x
|
|
|
2385 ldd ,x++
|
|
|
2386 cmpa #$0D
|
|
|
2387 beq L12D6
|
|
|
2388 cmpb #$0D
|
|
|
2389 beq L12D6
|
|
|
2390 rts
|
|
|
2391 L12D6 lbra L1205
|
|
|
2392 L12D9 lbsr L10B4
|
|
|
2393 bcc L12EE
|
|
|
2394 beq L12E4
|
|
|
2395 ldb #$03
|
|
|
2396 bra L129F
|
|
|
2397 L12E4 lbsr L0368
|
|
|
2398 bcs L12D6
|
|
|
2399 lbsr L0FA2
|
|
|
2400 bcs L129F
|
|
|
2401 L12EE andcc #$FE
|
|
|
2402 rts
|
|
|
2403 L12F1 lbsr L11C2
|
|
|
2404 bcs L1304
|
|
|
2405 L12F6 rts
|
|
|
2406 L12F7 lbsr L11C2
|
|
|
2407 bcs L1304
|
|
|
2408 tsta
|
|
|
2409 beq L12F6
|
|
|
2410 inca
|
|
|
2411 beq L12F6
|
|
|
2412 ldb #$0E
|
|
|
2413 L1304 lbsr L02FA
|
|
|
2414 ldd #$FFFF
|
|
|
2415 orcc #$01
|
|
|
2416 rts
|
|
|
2417 L130D bsr L134D
|
|
|
2418 pshs x,b,a
|
|
|
2419 ldx <u001B
|
|
|
2420 sta ,x+
|
|
|
2421 stx <u001B
|
|
|
2422 cmpx <u0010
|
|
|
2423 bcs L1321
|
|
|
2424 bsr L1323
|
|
|
2425 ldx <u000E
|
|
|
2426 stx <u001B
|
|
|
2427 L1321 puls pc,x,b,a
|
|
|
2428 L1323 pshs y,x,b,a
|
|
|
2429 lda <u0058
|
|
|
2430 beq L1340
|
|
|
2431 lda <u003E
|
|
|
2432 beq L1340
|
|
|
2433 ldd <u001B
|
|
|
2434 subd <u000E
|
|
|
2435 beq L1340
|
|
|
2436 tfr d,y
|
|
|
2437 ldx <u000E
|
|
|
2438 lda <u0019
|
|
|
2439 beq L1340
|
|
|
2440 os9 I$Write
|
|
|
2441 bcs L1342
|
|
|
2442 L1340 puls pc,y,x,b,a
|
|
|
2443 L1342 os9 F$PErr
|
|
|
2444 ldb #$12
|
|
|
2445 lbsr L02FA
|
|
|
2446 lbra L15A2
|
|
|
2447 L134D pshs u,y,x,b,a
|
|
|
2448 leax ,s
|
|
|
2449 ldy #$0001
|
|
|
2450 tfr dp,a
|
|
|
2451 ldb #$51
|
|
|
2452 tfr d,u
|
|
|
2453 os9 F$CRC
|
|
|
2454 puls pc,u,y,x,b,a
|
|
|
2455 L1360 ldd #$FFFF
|
|
|
2456 std <u0051
|
|
|
2457 stb <u0053
|
|
|
2458 rts
|
|
|
2459 L1368 lda <u0057
|
|
|
2460 beq L139A
|
|
|
2461 lda <u0056
|
|
|
2462 bmi L139A
|
|
|
2463 L1370 lda <u0035
|
|
|
2464 bne L137B
|
|
|
2465 pshs x
|
|
|
2466 lbsr L1408
|
|
|
2467 puls x
|
|
|
2468 L137B bsr L138A
|
|
|
2469 lda <u003E
|
|
|
2470 beq L1387
|
|
|
2471 lda <u0056
|
|
|
2472 bmi L1387
|
|
|
2473 dec <u0035
|
|
|
2474 L1387 ldx <u0004
|
|
|
2475 rts
|
|
|
2476 L138A lda <u0057
|
|
|
2477 beq L1392
|
|
|
2478 lda <u0056
|
|
|
2479 bpl L139A
|
|
|
2480 L1392 lda <u005C
|
|
|
2481 beq L1387
|
|
|
2482 lda <u0021
|
|
|
2483 beq L1387
|
|
|
2484 L139A lda <u003E
|
|
|
2485 beq L1387
|
|
|
2486 pshs y,a
|
|
|
2487 bsr L13B8
|
|
|
2488 clra
|
|
|
2489 ldb <u0037
|
|
|
2490 ldx <u0004
|
|
|
2491 leax d,x
|
|
|
2492 bsr L13B8
|
|
|
2493 ldx <u0004
|
|
|
2494 ldy #$0085
|
|
|
2495 lda <u001A
|
|
|
2496 os9 I$WritLn
|
|
|
2497 puls pc,y,a
|
|
|
2498 L13B8 lda #$0D
|
|
|
2499 sta ,x+
|
|
|
2500 rts
|
|
|
2501 L13BD leas -$06,s
|
|
|
2502 pshs x
|
|
|
2503 leax $02,s
|
|
|
2504 os9 F$Time
|
|
|
2505 puls x
|
|
|
2506 bcs L13F0
|
|
|
2507 lda $01,s
|
|
|
2508 bsr L13F7
|
|
|
2509 ldb #$2F
|
|
|
2510 stb ,x+
|
|
|
2511 lda $02,s
|
|
|
2512 bsr L13F7
|
|
|
2513 stb ,x+
|
|
|
2514 lda ,s
|
|
|
2515 * 1900-2155 fix
|
|
|
2516 cmpa #100
|
|
|
2517 blo L1900
|
|
|
2518 suba #100
|
|
|
2519 cmpa #100
|
|
|
2520 blo L2000
|
|
|
2521 L2100 suba #100
|
|
|
2522 pshs a
|
|
|
2523 lda #21
|
|
|
2524 bra PrtCty
|
|
|
2525 L2000 pshs a
|
|
|
2526 lda #20
|
|
|
2527 bra PrtCty
|
|
|
2528 L1900 pshs a
|
|
|
2529 lda #19
|
|
|
2530 PrtCty bsr L13F7
|
|
|
2531 puls a
|
|
|
2532 bsr L13F7
|
|
|
2533 bsr L13F2
|
|
|
2534 lda $03,s
|
|
|
2535 bsr L13F7
|
|
|
2536 ldb #$3A
|
|
|
2537 stb ,x+
|
|
|
2538 lda $04,s minute
|
|
|
2539 bsr L13F7
|
|
|
2540 stb ,x+
|
|
|
2541 lda $05,s
|
|
|
2542 bsr L13F7
|
|
|
2543 L13F0 leas $06,s
|
|
|
2544 L13F2 lda #$20
|
|
|
2545 sta ,x+
|
|
|
2546 rts
|
|
|
2547 L13F7 pshs b
|
|
|
2548 ldb #$2F
|
|
|
2549 L13FB incb
|
|
|
2550 suba #$0A
|
|
|
2551 bcc L13FB
|
|
|
2552 stb ,x+
|
|
|
2553 adda #$3A
|
|
|
2554 sta ,x+
|
|
|
2555 puls pc,b
|
|
|
2556 L1408 lda <u0056
|
|
|
2557 bmi L1476
|
|
|
2558 lda <u0059
|
|
|
2559 beq L1414
|
|
|
2560 bsr L147D
|
|
|
2561 bra L141A
|
|
|
2562 L1414 ldb <u0035
|
|
|
2563 addb #$03
|
|
|
2564 bsr L1471
|
|
|
2565 L141A ldx <u0004
|
|
|
2566 pshs x
|
|
|
2567 ldx <u0002
|
|
|
2568 stx <u0004
|
|
|
2569 ldb <u0036
|
|
|
2570 subb #$04
|
|
|
2571 stb <u0035
|
|
|
2572 lbsr L01E5
|
|
|
2573 leay <L14A5,pcr
|
|
|
2574 lbsr L11BD
|
|
|
2575 lbsr L13BD
|
|
|
2576 ldx <u0004
|
|
|
2577 clra
|
|
|
2578 ldb <u0037
|
|
|
2579 subb #$06
|
|
|
2580 leax d,x
|
|
|
2581 ldd <u003A
|
|
|
2582 lbsr L1084
|
|
|
2583 inc <u003B
|
|
|
2584 bne L1447
|
|
|
2585 inc <u003A
|
|
|
2586 L1447 leax -$08,x
|
|
|
2587 leay <L149F,pcr
|
|
|
2588 lbsr L11BD
|
|
|
2589 leax $03,x
|
|
|
2590 lbsr L1370
|
|
|
2591 ldy <u000A
|
|
|
2592 lbsr L11BD
|
|
|
2593 bsr L13F2
|
|
|
2594 lda #$2D
|
|
|
2595 sta ,x+
|
|
|
2596 bsr L13F2
|
|
|
2597 ldy <u0008
|
|
|
2598 lbsr L11BD
|
|
|
2599 lbsr L1370
|
|
|
2600 puls x
|
|
|
2601 stx <u0004
|
|
|
2602 ldb #$01
|
|
|
2603 L1471 bsr L1479
|
|
|
2604 decb
|
|
|
2605 bne L1471
|
|
|
2606 L1476 ldx <u0004
|
|
|
2607 rts
|
|
|
2608 L1479 lda #$0D
|
|
|
2609 bra L147F
|
|
|
2610 L147D lda #$0C
|
|
|
2611 L147F pshs y,x,b,a
|
|
|
2612 lda <u003E
|
|
|
2613 beq L1498
|
|
|
2614 lda <u0057
|
|
|
2615 beq L1498
|
|
|
2616 lda <u0056
|
|
|
2617 bmi L1498
|
|
|
2618 lda <u001A
|
|
|
2619 tfr s,x
|
|
|
2620 ldy #$0001
|
|
|
2621 os9 I$WritLn
|
|
|
2622 L1498 puls pc,y,x,b,a
|
|
|
2623 L149A ldx <u0004
|
|
|
2624 lbra L1370
|
|
|
2625 L149F fcc "Page "
|
|
|
2626 fcb $00
|
|
|
2627 L14A5 fcc "Microware OS-9 Assembler RS Version 01.00.00 "
|
|
|
2628 fcb $00
|
|
|
2629 L14D6 fcc " error(s)"
|
|
|
2630 fcb $00
|
|
|
2631 L14E0 fcc " warning(s)"
|
|
|
2632 fcb $00
|
|
|
2633 L14EC fcc " program bytes generated"
|
|
|
2634 fcb $00
|
|
|
2635 L1505 fcc " data bytes allocated"
|
|
|
2636 fcb $00
|
|
|
2637 L151B fcc " bytes used for symbols"
|
|
|
2638 fcb $00
|
|
|
2639 L1533 fcc "ASM:"
|
|
|
2640 L1537 pshs u,y,x,b,a
|
|
|
2641 lda <u005D
|
|
|
2642 beq L1549
|
|
|
2643 leax <L1533,pcr
|
|
|
2644 ldy #$0004
|
|
|
2645 lda <u001A
|
|
|
2646 os9 I$Write
|
|
|
2647 L1549 ldx <u0000
|
|
|
2648 ldy #$0078
|
|
|
2649 lda <u0018
|
|
|
2650 L1551 os9 I$ReadLn
|
|
|
2651 bcc L156A
|
|
|
2652 cmpb #$D3
|
|
|
2653 bne L1560
|
|
|
2654 bsr L156C
|
|
|
2655 bcc L1549
|
|
|
2656 L155E bra L156A
|
|
|
2657 L1560 os9 F$PErr
|
|
|
2658 ldb #$11
|
|
|
2659 lbsr L02FA
|
|
|
2660 bsr L156C
|
|
|
2661 L156A puls pc,u,y,x,b,a
|
|
|
2662 L156C ldu <u001F
|
|
|
2663 L156E cmpu <u0006
|
|
|
2664 bne L1576
|
|
|
2665 orcc #$01
|
|
|
2666 rts
|
|
|
2667 L1576 lda <u0018
|
|
|
2668 pulu b
|
|
|
2669 stu <u001F
|
|
|
2670 stb <u0018
|
|
|
2671 os9 I$Close
|
|
|
2672 bcc L1586
|
|
|
2673 os9 F$PErr
|
|
|
2674 L1586 rts
|
|
|
2675 L1587 pshs b,a
|
|
|
2676 lda #$24
|
|
|
2677 sta ,x+
|
|
|
2678 ldd ,s
|
|
|
2679 lbsr L1057
|
|
|
2680 puls b,a
|
|
|
2681 L1594 lbsr L1084
|
|
|
2682 tfr u,y
|
|
|
2683 lbsr L11BD
|
|
|
2684 lbra L1368
|
|
|
2685 L159F lbsr L1323
|
|
|
2686 L15A2 lbsr L149A
|
|
|
2687 ldd <u0028
|
|
|
2688 leau >L14D6,pcr
|
|
|
2689 bsr L1594
|
|
|
2690 ldd <u0022
|
|
|
2691 leau >L14E0,pcr
|
|
|
2692 bsr L1594
|
|
|
2693 ldd <u0024
|
|
|
2694 leau >L14EC,pcr
|
|
|
2695 bsr L1587
|
|
|
2696 ldd <u0026
|
|
|
2697 leau >L1505,pcr
|
|
|
2698 bsr L1587
|
|
|
2699 ldd <u001D
|
|
|
2700 subd <u0010
|
|
|
2701 leau >L151B,pcr
|
|
|
2702 bsr L1587
|
|
|
2703 lda <u005E
|
|
|
2704 beq L15D5
|
|
|
2705 bsr L1612
|
|
|
2706 L15D5 lda <u005D
|
|
|
2707 bne L15E9
|
|
|
2708 lda <u0059
|
|
|
2709 beq L15E2
|
|
|
2710 lbsr L147D
|
|
|
2711 bra L15E9
|
|
|
2712 L15E2 ldb <u0035
|
|
|
2713 addb #$03
|
|
|
2714 lbsr L1471
|
|
|
2715 L15E9 ldu <u001F
|
|
|
2716 L15EB cmpu <u0006
|
|
|
2717 beq L15F7
|
|
|
2718 pulu a
|
|
|
2719 os9 I$Close
|
|
|
2720 bra L15EB
|
|
|
2721 L15F7 clrb
|
|
|
2722 os9 F$Exit
|
|
|
2723 L15FB lda #$01
|
|
|
2724 os9 I$Open
|
|
|
2725 ldb #$18
|
|
|
2726 lbcs L1017
|
|
|
2727 rts
|
|
|
2728 L1607 lda <u0018
|
|
|
2729 ldu #$0000
|
|
|
2730 tfr u,x
|
|
|
2731 os9 I$Seek
|
|
|
2732 rts
|
|
|
2733 L1612 ldb <u0037
|
|
|
2734 clra
|
|
|
2735 tfr d,x
|
|
|
2736 ldb #$10
|
|
|
2737 lbsr L118E
|
|
|
2738 stb <u003D
|
|
|
2739 stb <u003C
|
|
|
2740 lbsr L149A
|
|
|
2741 ldu <u0010
|
|
|
2742 ldb #$1A
|
|
|
2743 pshs b
|
|
|
2744 L1629 ldy ,u++
|
|
|
2745 beq L1656
|
|
|
2746 L162E pshs u,y
|
|
|
2747 bra L1644
|
|
|
2748 L1632 leau ,y
|
|
|
2749 tfr d,y
|
|
|
2750 L1636 ldd $0B,y
|
|
|
2751 bne L1632
|
|
|
2752 bsr L165F
|
|
|
2753 ldy $0D,y
|
|
|
2754 sty u000B,u
|
|
|
2755 bne L1636
|
|
|
2756 L1644 ldu ,s
|
|
|
2757 ldy u000B,u
|
|
|
2758 bne L1636
|
|
|
2759 leay ,u
|
|
|
2760 bsr L165F
|
|
|
2761 puls u,y
|
|
|
2762 ldy $0D,y
|
|
|
2763 bne L162E
|
|
|
2764 L1656 dec ,s
|
|
|
2765 bne L1629
|
|
|
2766 leas $01,s
|
|
|
2767 lbra L1370
|
|
|
2768 L165F pshs u,y
|
|
|
2769 ldd $09,y
|
|
|
2770 lbsr L1057
|
|
|
2771 lda $08,y
|
|
|
2772 leau <L1691,pcr
|
|
|
2773 lda a,u
|
|
|
2774 ldb #$20
|
|
|
2775 std ,x++
|
|
|
2776 ldb #$08
|
|
|
2777 L1673 lda ,y+
|
|
|
2778 bne L1679
|
|
|
2779 lda #$20
|
|
|
2780 L1679 sta ,x+
|
|
|
2781 decb
|
|
|
2782 bne L1673
|
|
|
2783 dec <u003C
|
|
|
2784 beq L1688
|
|
|
2785 lda #$20
|
|
|
2786 sta ,x+
|
|
|
2787 bra L168F
|
|
|
2788 L1688 lbsr L1370
|
|
|
2789 ldb <u003D
|
|
|
2790 stb <u003C
|
|
|
2791 L168F puls pc,u,y
|
|
|
2792 L1691 fcb $55 U
|
|
|
2793 inca
|
|
|
2794 comb
|
|
|
2795 fcb $45 E
|
|
|
2796 lsra
|
|
|
2797 L1696 pshs y,x
|
|
|
2798 lbsr L15FB
|
|
|
2799 sta <u0018
|
|
|
2800 L169D lbsr L1164
|
|
|
2801 cmpa #$0D
|
|
|
2802 beq L16CF
|
|
|
2803 lbsr L0E33
|
|
|
2804 lda <u0058
|
|
|
2805 beq L16CF
|
|
|
2806 lda -$01,x
|
|
|
2807 anda #$5F
|
|
|
2808 cmpa #$0D
|
|
|
2809 beq L16C7
|
|
|
2810 ldb ,x
|
|
|
2811 cmpd #$4F3D
|
|
|
2812 bne L16C7
|
|
|
2813 ldb #$16
|
|
|
2814 lda <u0019
|
|
|
2815 bne L16D1
|
|
|
2816 leax $01,x
|
|
|
2817 bsr L16D4
|
|
|
2818 bra L169D
|
|
|
2819 L16C7 lda <u0019
|
|
|
2820 bne L16CF
|
|
|
2821 ldx ,s
|
|
|
2822 bsr L16D4
|
|
|
2823 L16CF puls pc,y,x
|
|
|
2824 L16D1 lbra L1017
|
|
|
2825 L16D4 lda #$06
|
|
|
2826 ldb #$2F
|
|
|
2827 os9 I$Create
|
|
|
2828 ldb #$18
|
|
|
2829 bcs L16D1
|
|
|
2830 sta <u0019
|
|
|
2831 rts
|
|
|
2832
|
|
|
2833 emod
|
|
|
2834 eom equ *
|
|
|
2835 end
|
|
|
2836
|
