322
|
1 ********************************************************************
|
|
2 * help - Show help for commands
|
|
3 *
|
|
4 * $Id$
|
|
5 *
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
7 * ------------------------------------------------------------------
|
|
8 * 5 From Tandy OS-9 Level Two Vr. 2.00.01
|
|
9
|
|
10 nam help
|
|
11 ttl Show help for commands
|
|
12
|
|
13 * Disassembled 02/07/23 22:09:55 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 5
|
|
23
|
|
24 L0000 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 2
|
|
33 u0008 rmb 2
|
|
34 u000A rmb 1
|
|
35 u000B rmb 2
|
|
36 u000D rmb 4
|
|
37 u0011 rmb 15
|
|
38 u0020 rmb 14
|
|
39 u002E rmb 1
|
|
40 u002F rmb 38
|
|
41 u0055 rmb 14
|
|
42 u0063 rmb 5
|
|
43 u0068 rmb 10
|
|
44 u0072 rmb 123
|
|
45 u00ED rmb 2
|
|
46 u00EF rmb 2
|
|
47 u00F1 rmb 2
|
|
48 u00F3 rmb 2
|
|
49 u00F5 rmb 2
|
|
50 u00F7 rmb 2
|
|
51 u00F9 rmb 2
|
|
52 u00FB rmb 2
|
|
53 u00FD rmb 2
|
|
54 u00FF rmb 337
|
|
55 u0250 rmb 2
|
|
56 u0252 rmb 58
|
|
57 u028C rmb 1
|
|
58 u028D rmb 3
|
|
59 u0290 rmb 6036
|
|
60 size equ .
|
|
61
|
|
62 name fcs /help/
|
|
63 fcb edition
|
|
64
|
|
65 L0012 fcb $A6 &
|
|
66 fcb $A0
|
|
67 fcb $A7 '
|
|
68 fcb $C0 @
|
|
69 fcb $30 0
|
|
70 fcb $1F
|
|
71 fcb $26 &
|
|
72 fcb $F8 x
|
|
73 fcb $39 9
|
|
74 start equ *
|
|
75 pshs y
|
|
76 pshs u
|
|
77 clra
|
|
78 clrb
|
|
79 L0021 sta ,u+
|
|
80 decb
|
|
81 bne L0021
|
|
82 ldx ,s
|
|
83 leau ,x
|
|
84 leax >$02A4,x
|
|
85 pshs x
|
|
86 leay >L15AA,pcr
|
|
87 ldx ,y++
|
|
88 beq L003C
|
|
89 bsr L0012
|
|
90 ldu $02,s
|
|
91 L003C leau >u00FF,u
|
|
92 ldx ,y++
|
|
93 beq L0047
|
|
94 bsr L0012
|
|
95 clra
|
|
96 L0047 cmpu ,s
|
|
97 beq L0050
|
|
98 sta ,u+
|
|
99 bra L0047
|
|
100 L0050 ldu $02,s
|
|
101 ldd ,y++
|
|
102 beq L005D
|
|
103 leax >L0000,pcr
|
|
104 lbsr L0160
|
|
105 L005D ldd ,y++
|
|
106 beq L0066
|
|
107 leax ,u
|
|
108 lbsr L0160
|
|
109 L0066 leas $04,s
|
|
110 puls x
|
|
111 stx >u0290,u
|
|
112 sty >u0250,u
|
|
113 ldd #$0001
|
|
114 std >u028C,u
|
|
115 leay >u0252,u
|
|
116 leax ,s
|
|
117 lda ,x+
|
|
118 L0082 ldb >u028D,u
|
|
119 cmpb #$1D
|
|
120 beq L00DE
|
|
121 L008A cmpa #$0D
|
|
122 beq L00DE
|
|
123 cmpa #$20
|
|
124 beq L0096
|
|
125 cmpa #$2C
|
|
126 bne L009A
|
|
127 L0096 lda ,x+
|
|
128 bra L008A
|
|
129 L009A cmpa #$22
|
|
130 beq L00A2
|
|
131 cmpa #$27
|
|
132 bne L00C0
|
|
133 L00A2 stx ,y++
|
|
134 inc >u028D,u
|
|
135 pshs a
|
|
136 L00AA lda ,x+
|
|
137 cmpa #$0D
|
|
138 beq L00B4
|
|
139 cmpa ,s
|
|
140 bne L00AA
|
|
141 L00B4 puls b
|
|
142 clr -$01,x
|
|
143 cmpa #$0D
|
|
144 beq L00DE
|
|
145 lda ,x+
|
|
146 bra L0082
|
|
147 L00C0 leax -$01,x
|
|
148 stx ,y++
|
|
149 leax $01,x
|
|
150 inc >u028D,u
|
|
151 L00CA cmpa #$0D
|
|
152 beq L00DA
|
|
153 cmpa #$20
|
|
154 beq L00DA
|
|
155 cmpa #$2C
|
|
156 beq L00DA
|
|
157 lda ,x+
|
|
158 bra L00CA
|
|
159 L00DA clr -$01,x
|
|
160 bra L0082
|
|
161 L00DE leax >u0250,u
|
|
162 pshs x
|
|
163 ldd >u028C,u
|
|
164 pshs b,a
|
|
165 leay ,u
|
|
166 bsr L00F8
|
|
167 lbsr L018C
|
|
168 clr ,-s
|
|
169 clr ,-s
|
|
170 lbsr L159E
|
|
171 L00F8 leax >$02A4,y
|
|
172 stx >$029A,y
|
|
173 sts >$028E,y
|
|
174 sts >$029C,y
|
|
175 ldd #$FF82
|
|
176 L010D leax d,s
|
|
177 cmpx >$029C,y
|
|
178 bcc L011F
|
|
179 cmpx >$029A,y
|
|
180 bcs L0139
|
|
181 stx >$029C,y
|
|
182 L011F rts
|
|
183 L0120 fcc "**** STACK OVERFLOW ****"
|
|
184 fcb C$CR
|
|
185
|
|
186 L0139 leax <L0120,pcr
|
|
187 ldb #$CF
|
|
188 pshs b
|
|
189 lda #$02
|
|
190 ldy #$0064
|
|
191 L0146 os9 I$WritLn
|
|
192 clr ,-s
|
|
193 lbsr L15A4
|
|
194 L014E ldd >$028E,y
|
|
195 subd >$029C,y
|
|
196 rts
|
|
197 ldd >$029C,y
|
|
198 subd >$029A,y
|
|
199 L015F rts
|
|
200 L0160 pshs x
|
|
201 leax d,y
|
|
202 leax d,x
|
|
203 pshs x
|
|
204 L0168 ldd ,y++
|
|
205 leax d,u
|
|
206 ldd ,x
|
|
207 addd $02,s
|
|
208 std ,x
|
|
209 cmpy ,s
|
|
210 bne L0168
|
|
211 leas $04,s
|
|
212 L0179 rts
|
|
213 L017A pshs u
|
|
214 ldd #$FFBA
|
|
215 lbsr L010D
|
|
216 clra
|
|
217 clrb
|
|
218 pshs b,a
|
|
219 lbsr L159E
|
|
220 lbra L0719
|
|
221 L018C pshs u
|
|
222 ldd #$FFB6
|
|
223 lbsr L010D
|
|
224 leas -$02,s
|
|
225 leax >L017A,pcr
|
|
226 pshs x
|
|
227 lbsr L156E
|
|
228 leas $02,s
|
|
229 ldd #$0080
|
|
230 pshs b,a
|
|
231 ldd #$0001
|
|
232 pshs b,a
|
|
233 lbsr L0884
|
|
234 leas $04,s
|
|
235 leax >L077F,pcr
|
|
236 pshs x
|
|
237 leax >L076F,pcr
|
|
238 pshs x
|
|
239 lbsr L09E6
|
|
240 leas $04,s
|
|
241 std <u0001
|
|
242 bne L01D0
|
|
243 leax >L0781,pcr
|
|
244 pshs x
|
|
245 lbsr L04B7
|
|
246 leas $02,s
|
|
247 L01D0 ldd #$1000
|
|
248 ldx <u0001
|
|
249 std $0B,x
|
|
250 clra
|
|
251 clrb
|
|
252 std <u00FD
|
|
253 ldd $06,s
|
|
254 cmpd #$0001
|
|
255 lbne L02D5
|
|
256 clra
|
|
257 clrb
|
|
258 std <u00F3
|
|
259 leax >$010C,y
|
|
260 pshs x
|
|
261 leax >L079C,pcr
|
|
262 pshs x
|
|
263 lbsr L0A38
|
|
264 leas $04,s
|
|
265 L01FA clra
|
|
266 clrb
|
|
267 std <u00FB
|
|
268 std <u00FD
|
|
269 leax >$010C,y
|
|
270 pshs x
|
|
271 leax >L07AE,pcr
|
|
272 pshs x
|
|
273 lbsr L0A5A
|
|
274 leas $04,s
|
|
275 leax >$0005,y
|
|
276 pshs x
|
|
277 lbsr L0A7A
|
|
278 std ,s++
|
|
279 lbeq L028C
|
|
280 leax >$0005,y
|
|
281 stx ,s
|
|
282 leau ,x
|
|
283 ldb ,u
|
|
284 cmpb #$3F
|
|
285 beq L0232
|
|
286 ldb ,u
|
|
287 bne L0238
|
|
288 L0232 lbsr L0502
|
|
289 lbra L0293
|
|
290 L0238 ldb ,u
|
|
291 cmpb #$20
|
|
292 lbeq L0293
|
|
293 bra L0286
|
|
294 L0242 leau u0001,u
|
|
295 L0244 ldb ,u
|
|
296 cmpb #$20
|
|
297 beq L024E
|
|
298 ldb ,u
|
|
299 bne L0242
|
|
300 L024E ldb ,u
|
|
301 cmpb #$20
|
|
302 bne L0273
|
|
303 ldd <u00FD
|
|
304 addd #$0001
|
|
305 std <u00FD
|
|
306 clra
|
|
307 clrb
|
|
308 stb ,u
|
|
309 ldd ,s
|
|
310 pshs b,a
|
|
311 lbsr L02E8
|
|
312 leas $02,s
|
|
313 lbsr L04E9
|
|
314 leau u0001,u
|
|
315 tfr u,d
|
|
316 std ,s
|
|
317 bra L0286
|
|
318 L0273 ldd ,s
|
|
319 pshs b,a
|
|
320 lbsr L02E8
|
|
321 leas $02,s
|
|
322 lbsr L04E9
|
|
323 ldd <u00FB
|
|
324 addd #$0001
|
|
325 std <u00FB
|
|
326 L0286 ldd <u00FB
|
|
327 beq L0244
|
|
328 bra L0293
|
|
329 L028C ldd <u00F3
|
|
330 addd #$0001
|
|
331 std <u00F3
|
|
332 L0293 ldd <u00F3
|
|
333 lbeq L01FA
|
|
334 bra L02DE
|
|
335 L029B ldd $06,s
|
|
336 cmpd #$0001
|
|
337 ble L02AA
|
|
338 ldd <u00FD
|
|
339 addd #$0001
|
|
340 std <u00FD
|
|
341 L02AA ldx $08,s
|
|
342 leax $02,x
|
|
343 stx $08,s
|
|
344 ldb [,x]
|
|
345 cmpb #$2D
|
|
346 bne L02CC
|
|
347 ldx [<$08,s]
|
|
348 ldb $01,x
|
|
349 cmpb #$3F
|
|
350 bne L02C4
|
|
351 lbsr L0502
|
|
352 bra L02D5
|
|
353 L02C4 leax >L07C0,pcr
|
|
354 pshs x
|
|
355 bra L02D1
|
|
356 L02CC ldd [<$08,s]
|
|
357 pshs b,a
|
|
358 L02D1 bsr L02E8
|
|
359 leas $02,s
|
|
360 L02D5 ldd $06,s
|
|
361 addd #$FFFF
|
|
362 std $06,s
|
|
363 bne L029B
|
|
364 L02DE ldd <u0001
|
|
365 pshs b,a
|
|
366 lbsr L0DF5
|
|
367 lbra L04B0
|
|
368 L02E8 pshs u
|
|
369 ldd #$FFB2
|
|
370 lbsr L010D
|
|
371 leas -$02,s
|
|
372 leax >L07C5,pcr
|
|
373 pshs x
|
|
374 leax >$00A5,y
|
|
375 pshs x
|
|
376 lbsr L1143
|
|
377 leas $04,s
|
|
378 ldd $06,s
|
|
379 pshs b,a
|
|
380 leax >$00A5,y
|
|
381 pshs x
|
|
382 lbsr L115B
|
|
383 leas $04,s
|
|
384 leax >L07CE,pcr
|
|
385 pshs x
|
|
386 leax >$00A5,y
|
|
387 pshs x
|
|
388 lbsr L115B
|
|
389 leas $04,s
|
|
390 leax >L07D2,pcr
|
|
391 pshs x
|
|
392 leax >$00A5,y
|
|
393 pshs x
|
|
394 lbsr L09E6
|
|
395 leas $04,s
|
|
396 std <u0003
|
|
397 beq L0347
|
|
398 lbsr L0731
|
|
399 ldd <u0003
|
|
400 pshs b,a
|
|
401 lbsr L13BA
|
|
402 leas $02,s
|
|
403 lbra L0719
|
|
404 L0347 clra
|
|
405 clrb
|
|
406 std <u00F9
|
|
407 clra
|
|
408 clrb
|
|
409 pshs b,a
|
|
410 clra
|
|
411 clrb
|
|
412 pshs b,a
|
|
413 pshs b,a
|
|
414 ldd <u0001
|
|
415 pshs b,a
|
|
416 lbsr L0B44
|
|
417 leas $08,s
|
|
418 cmpd #$FFFF
|
|
419 lbne L0463
|
|
420 leax >L07D4,pcr
|
|
421 lbra L045C
|
|
422 L036D ldu $06,s
|
|
423 leax >$0055,y
|
|
424 stx ,s
|
|
425 clra
|
|
426 clrb
|
|
427 std <u00F5
|
|
428 ldd #$0040
|
|
429 ldx ,s
|
|
430 leax $01,x
|
|
431 stx ,s
|
|
432 stb -$01,x
|
|
433 lbeq L0463
|
|
434 bra L03B0
|
|
435 L038A ldb ,u+
|
|
436 sex
|
|
437 pshs b,a
|
|
438 lbsr L0F1B
|
|
439 std ,s
|
|
440 ldx $02,s
|
|
441 leax $01,x
|
|
442 stx $02,s
|
|
443 ldb -$01,x
|
|
444 sex
|
|
445 pshs b,a
|
|
446 lbsr L0F1B
|
|
447 leas $02,s
|
|
448 cmpd ,s++
|
|
449 beq L03B0
|
|
450 ldd <u00F5
|
|
451 addd #$0001
|
|
452 std <u00F5
|
|
453 L03B0 ldb ,u
|
|
454 beq L03B8
|
|
455 ldd <u00F5
|
|
456 beq L038A
|
|
457 L03B8 ldb [,s]
|
|
458 cmpb #$0D
|
|
459 beq L03C5
|
|
460 ldd <u00F5
|
|
461 addd #$0001
|
|
462 std <u00F5
|
|
463 L03C5 ldd <u00F5
|
|
464 lbne L0463
|
|
465 ldd <u00F9
|
|
466 addd #$0001
|
|
467 std <u00F9
|
|
468 clra
|
|
469 clrb
|
|
470 std <u00F7
|
|
471 ldd <u00FD
|
|
472 beq L042F
|
|
473 ldu $06,s
|
|
474 bra L03F5
|
|
475 L03DE leax >$010C,y
|
|
476 pshs x
|
|
477 ldb ,u
|
|
478 sex
|
|
479 pshs b,a
|
|
480 lbsr L0F1B
|
|
481 std ,s
|
|
482 lbsr L0D04
|
|
483 leas $04,s
|
|
484 leau u0001,u
|
|
485 L03F5 ldb ,u
|
|
486 bne L03DE
|
|
487 leax >$010C,y
|
|
488 pshs x
|
|
489 leax >L07EA,pcr
|
|
490 pshs x
|
|
491 lbsr L0A5A
|
|
492 leas $04,s
|
|
493 lbsr L04E9
|
|
494 bra L042F
|
|
495 L040F ldb <u0055
|
|
496 cmpb #$40
|
|
497 beq L0428
|
|
498 leax >$010C,y
|
|
499 pshs x
|
|
500 leax >$0055,y
|
|
501 pshs x
|
|
502 lbsr L0A5A
|
|
503 leas $04,s
|
|
504 bra L042F
|
|
505 L0428 ldd <u00F7
|
|
506 addd #$0001
|
|
507 std <u00F7
|
|
508 L042F ldd <u0001
|
|
509 pshs b,a
|
|
510 ldd #$0050
|
|
511 pshs b,a
|
|
512 leax >$0055,y
|
|
513 pshs x
|
|
514 lbsr L0AB5
|
|
515 leas $06,s
|
|
516 std -$02,s
|
|
517 beq L044B
|
|
518 ldd <u00F7
|
|
519 beq L040F
|
|
520 L044B ldd <u00F7
|
|
521 bne L0463
|
|
522 ldx <u0001
|
|
523 ldd $06,x
|
|
524 clra
|
|
525 andb #$20
|
|
526 beq L0463
|
|
527 leax >L07ED,pcr
|
|
528 L045C pshs x
|
|
529 lbsr L04B7
|
|
530 leas $02,s
|
|
531 L0463 ldd <u0001
|
|
532 pshs b,a
|
|
533 ldd #$0050
|
|
534 pshs b,a
|
|
535 leax >$0055,y
|
|
536 pshs x
|
|
537 lbsr L0AB5
|
|
538 leas $06,s
|
|
539 std -$02,s
|
|
540 beq L0481
|
|
541 ldd <u00F9
|
|
542 lbeq L036D
|
|
543 L0481 ldd <u00F9
|
|
544 bne L04B2
|
|
545 ldx <u0001
|
|
546 ldd $06,x
|
|
547 clra
|
|
548 andb #$20
|
|
549 beq L0498
|
|
550 leax >L0805,pcr
|
|
551 pshs x
|
|
552 bsr L04B7
|
|
553 leas $02,s
|
|
554 L0498 leax >$010C,y
|
|
555 pshs x
|
|
556 ldd $08,s
|
|
557 pshs b,a
|
|
558 lbsr L0A5A
|
|
559 leas $04,s
|
|
560 leax >L081D,pcr
|
|
561 pshs x
|
|
562 lbsr L0A38
|
|
563 L04B0 leas $02,s
|
|
564 L04B2 bsr L04E9
|
|
565 lbra L0719
|
|
566 L04B7 pshs u
|
|
567 ldd #$FFB8
|
|
568 lbsr L010D
|
|
569 leax >$0119,y
|
|
570 pshs x
|
|
571 leax >L0831,pcr
|
|
572 pshs x
|
|
573 lbsr L0A5A
|
|
574 leas $04,s
|
|
575 leax >$0119,y
|
|
576 pshs x
|
|
577 ldd $06,s
|
|
578 pshs b,a
|
|
579 lbsr L0A5A
|
|
580 leas $04,s
|
|
581 clra
|
|
582 clrb
|
|
583 pshs b,a
|
|
584 lbsr L159E
|
|
585 lbra L0719
|
|
586 L04E9 pshs u
|
|
587 ldd #$FFB8
|
|
588 lbsr L010D
|
|
589 leax >$010C,y
|
|
590 pshs x
|
|
591 ldd #$000D
|
|
592 pshs b,a
|
|
593 lbsr L0D04
|
|
594 lbra L06BA
|
|
595 L0502 pshs u
|
|
596 ldd #$FFB0
|
|
597 lbsr L010D
|
|
598 leas -$04,s
|
|
599 leax >L0838,pcr
|
|
600 pshs x
|
|
601 lbsr L0A38
|
|
602 leas $02,s
|
|
603 lbsr L071D
|
|
604 std <u00EF
|
|
605 ldd <u00EF
|
|
606 pshs b,a
|
|
607 ldd #$000A
|
|
608 lbsr L1294
|
|
609 std <u00EF
|
|
610 clra
|
|
611 clrb
|
|
612 pshs b,a
|
|
613 clra
|
|
614 clrb
|
|
615 pshs b,a
|
|
616 pshs b,a
|
|
617 ldd <u0001
|
|
618 pshs b,a
|
|
619 lbsr L0B44
|
|
620 leas $08,s
|
|
621 cmpd #$FFFF
|
|
622 lbne L05CF
|
|
623 leax >L084C,pcr
|
|
624 pshs x
|
|
625 lbsr L04B7
|
|
626 leas $02,s
|
|
627 lbra L05CF
|
|
628 L0551 ldb <u0005
|
|
629 cmpb #$40
|
|
630 lbne L05D3
|
|
631 leau >$0005,y
|
|
632 leax >$00C3,y
|
|
633 stx $02,s
|
|
634 clra
|
|
635 clrb
|
|
636 std <u00ED
|
|
637 bra L057D
|
|
638 L0569 ldb ,u
|
|
639 ldx $02,s
|
|
640 leax $01,x
|
|
641 stx $02,s
|
|
642 stb -$01,x
|
|
643 ldd <u00ED
|
|
644 addd #$0001
|
|
645 std <u00ED
|
|
646 subd #$0001
|
|
647 L057D leau u0001,u
|
|
648 ldb ,u
|
|
649 cmpb #$20
|
|
650 bgt L0569
|
|
651 clra
|
|
652 clrb
|
|
653 stb [<$02,s]
|
|
654 leax >$010C,y
|
|
655 pshs x
|
|
656 leax >$00C3,y
|
|
657 pshs x
|
|
658 lbsr L0A5A
|
|
659 leas $04,s
|
|
660 ldd <u00F1
|
|
661 addd #$0001
|
|
662 std <u00F1
|
|
663 cmpd <u00EF
|
|
664 bge L05CC
|
|
665 ldd <u00ED
|
|
666 bra L05C0
|
|
667 L05AB leax >$010C,y
|
|
668 pshs x
|
|
669 ldd #$0020
|
|
670 pshs b,a
|
|
671 lbsr L0D04
|
|
672 leas $04,s
|
|
673 ldd ,s
|
|
674 addd #$0001
|
|
675 L05C0 std ,s
|
|
676 ldd ,s
|
|
677 cmpd #$000A
|
|
678 blt L05AB
|
|
679 bra L05D3
|
|
680 L05CC lbsr L04E9
|
|
681 L05CF clra
|
|
682 clrb
|
|
683 std <u00F1
|
|
684 L05D3 ldd <u0001
|
|
685 pshs b,a
|
|
686 ldd #$0050
|
|
687 pshs b,a
|
|
688 leax >$0005,y
|
|
689 pshs x
|
|
690 lbsr L0AB5
|
|
691 leas $06,s
|
|
692 std -$02,s
|
|
693 lbne L0551
|
|
694 ldx <u0001
|
|
695 ldd $06,x
|
|
696 clra
|
|
697 andb #$20
|
|
698 beq L0601
|
|
699 leax >L0862,pcr
|
|
700 pshs x
|
|
701 lbsr L04B7
|
|
702 leas $02,s
|
|
703 L0601 leax >L0882,pcr
|
|
704 pshs x
|
|
705 leax >L087A,pcr
|
|
706 pshs x
|
|
707 lbsr L09E6
|
|
708 leas $04,s
|
|
709 std <u0003
|
|
710 lbeq L06B4
|
|
711 lbra L068C
|
|
712 L061B leax >$00CD,y
|
|
713 pshs x
|
|
714 lbsr L06BE
|
|
715 std ,s++
|
|
716 lbeq L068C
|
|
717 leau >$00CD,y
|
|
718 clra
|
|
719 clrb
|
|
720 std <u00ED
|
|
721 bra L0653
|
|
722 L0634 leax >$010C,y
|
|
723 pshs x
|
|
724 ldb ,u+
|
|
725 sex
|
|
726 pshs b,a
|
|
727 lbsr L0F1B
|
|
728 std ,s
|
|
729 lbsr L0D04
|
|
730 leas $04,s
|
|
731 ldd <u00ED
|
|
732 addd #$0001
|
|
733 std <u00ED
|
|
734 subd #$0001
|
|
735 L0653 ldb ,u
|
|
736 cmpb #$2E
|
|
737 bne L0634
|
|
738 ldd <u00F1
|
|
739 cmpd <u00EF
|
|
740 bge L0685
|
|
741 ldd <u00ED
|
|
742 bra L0679
|
|
743 L0664 leax >$010C,y
|
|
744 pshs x
|
|
745 ldd #$0020
|
|
746 pshs b,a
|
|
747 lbsr L0D04
|
|
748 leas $04,s
|
|
749 ldd ,s
|
|
750 addd #$0001
|
|
751 L0679 std ,s
|
|
752 ldd ,s
|
|
753 cmpd #$000A
|
|
754 blt L0664
|
|
755 bra L068C
|
|
756 L0685 lbsr L04E9
|
|
757 clra
|
|
758 clrb
|
|
759 std <u00F1
|
|
760 L068C ldd <u0003
|
|
761 pshs b,a
|
|
762 ldd #$0001
|
|
763 pshs b,a
|
|
764 ldd #$0020
|
|
765 pshs b,a
|
|
766 leax >$00CD,y
|
|
767 pshs x
|
|
768 lbsr L0AFE
|
|
769 leas $08,s
|
|
770 std -$02,s
|
|
771 lbne L061B
|
|
772 ldd <u0003
|
|
773 pshs b,a
|
|
774 lbsr L13BA
|
|
775 leas $02,s
|
|
776 L06B4 lbsr L04E9
|
|
777 lbsr L04E9
|
|
778 L06BA leas $04,s
|
|
779 puls pc,u
|
|
780 L06BE pshs u
|
|
781 ldd #$FFBE
|
|
782 lbsr L010D
|
|
783 leas -$02,s
|
|
784 clra
|
|
785 clrb
|
|
786 std ,s
|
|
787 ldb [<$06,s]
|
|
788 beq L0717
|
|
789 ldu $06,s
|
|
790 bra L06D7
|
|
791 L06D5 leau u0001,u
|
|
792 L06D7 ldb ,u
|
|
793 cmpb #$2E
|
|
794 bne L06D5
|
|
795 ldb ,u
|
|
796 lbeq L06D5
|
|
797 ldb ,u
|
|
798 cmpb #$7E
|
|
799 lbgt L06D5
|
|
800 ldb ,u+
|
|
801 cmpb #$2E
|
|
802 bne L0717
|
|
803 ldb ,u
|
|
804 cmpb #$68
|
|
805 beq L06FD
|
|
806 ldb ,u
|
|
807 cmpb #$48
|
|
808 bne L0717
|
|
809 L06FD leau u0001,u
|
|
810 ldb ,u
|
|
811 clra
|
|
812 andb #$7F
|
|
813 stb ,u
|
|
814 cmpb #$70
|
|
815 beq L0710
|
|
816 ldb ,u
|
|
817 cmpb #$50
|
|
818 bne L0717
|
|
819 L0710 ldd ,s
|
|
820 addd #$0001
|
|
821 std ,s
|
|
822 L0717 ldd ,s
|
|
823 L0719 leas $02,s
|
|
824 puls pc,u
|
|
825 L071D pshs y,x
|
|
826 lda #$01
|
|
827 ldb #$26
|
|
828 os9 I$GetStt
|
|
829 bcc L072D
|
|
830 ldd #$0050
|
|
831 bra L072F
|
|
832 L072D tfr x,d
|
|
833 L072F puls pc,y,x
|
|
834 L0731 pshs u
|
|
835 ldd #$FFB6
|
|
836 lbsr L010D
|
|
837 bra L0752
|
|
838 L073B ldb <u0005
|
|
839 cmpb #$40
|
|
840 beq L0752
|
|
841 leax >$010C,y
|
|
842 pshs x
|
|
843 leax >$0005,y
|
|
844 pshs x
|
|
845 lbsr L0A5A
|
|
846 leas $04,s
|
|
847 L0752 ldd <u0003
|
|
848 pshs b,a
|
|
849 ldd #$0050
|
|
850 pshs b,a
|
|
851 leax >$0005,y
|
|
852 pshs x
|
|
853 lbsr L0AB5
|
|
854 leas $06,s
|
|
855 std -$02,s
|
|
856 bne L073B
|
|
857 lbsr L04E9
|
|
858 puls pc,u
|
|
859
|
|
860 L076F fcc "/dd/sys/helpmsg"
|
|
861 fcb $00
|
|
862 L077F fcc "r"
|
|
863 fcb $00
|
|
864 L0781 fcc "can't open /dd/sys/helpmsg"
|
|
865 fcb $00
|
|
866 L079C fcc "Hit [ESC] to exit"
|
|
867 fcb $00
|
|
868 L07AE fcc "What Subject(s)? "
|
|
869 fcb $00
|
|
870 L07C0 fcc "help"
|
|
871 fcb $00
|
|
872 L07C5 fcc "/dd/sys/"
|
|
873 fcb $00
|
|
874 L07CE fcc ".hp"
|
|
875 fcb $00
|
|
876 L07D2 fcc "r"
|
|
877 fcb $00
|
|
878 L07D4 fcc "can't reset help file"
|
|
879 fcb $00
|
|
880 L07EA fcc " -"
|
|
881 fcb $00
|
|
882 L07ED fcc "error reading help file"
|
|
883 fcb $00
|
|
884 L0805 fcc "error reading help file"
|
|
885 fcb $00
|
|
886 L081D fcc ": no help available"
|
|
887 fcb $00
|
|
888 L0831 fcc "help: "
|
|
889 fcb $00
|
|
890 L0838 fcc "Help available on: "
|
|
891 fcb $00
|
|
892 L084C fcc "can't reset help file"
|
|
893 fcb $00
|
|
894 L0862 fcc "error reading help file"
|
|
895 fcb $00
|
|
896 L087A fcc "/dd/sys"
|
|
897 fcb $00
|
|
898 L0882 fcc "d"
|
|
899 fcb $00
|
|
900 L0884 lda $03,s
|
|
901 ldb #$8A
|
|
902 ldx $04,s
|
|
903 os9 I$SetStt
|
|
904 lbra L1599
|
|
905 L0890 pshs u
|
|
906 leau >$00FF,y
|
|
907 L0896 ldd u0006,u
|
|
908 clra
|
|
909 andb #$03
|
|
910 lbeq L0907
|
|
911 L089F leau u000D,u
|
|
912 pshs u
|
|
913 leax >$01CF,y
|
|
914 cmpx ,s++
|
|
915 bhi L0896
|
|
916 ldd #$00C8
|
|
917 std >$029E,y
|
|
918 lbra L090B
|
|
919 puls pc,u
|
|
920 L08B7 pshs u
|
|
921 ldu $08,s
|
|
922 bne L08C1
|
|
923 bsr L0890
|
|
924 tfr d,u
|
|
925 L08C1 stu -$02,s
|
|
926 beq L090B
|
|
927 ldd $04,s
|
|
928 std u0008,u
|
|
929 ldx $06,s
|
|
930 ldb $01,x
|
|
931 cmpb #$2B
|
|
932 beq L08D9
|
|
933 ldx $06,s
|
|
934 ldb $02,x
|
|
935 cmpb #$2B
|
|
936 bne L08DF
|
|
937 L08D9 ldd u0006,u
|
|
938 L08DB orb #$03
|
|
939 bra L08FD
|
|
940 L08DF ldd u0006,u
|
|
941 pshs b,a
|
|
942 ldb [<$08,s]
|
|
943 cmpb #$72
|
|
944 beq L08F1
|
|
945 ldb [<$08,s]
|
|
946 cmpb #$64
|
|
947 bne L08F6
|
|
948 L08F1 ldd #$0001
|
|
949 bra L08F9
|
|
950 L08F6 ldd #$0002
|
|
951 L08F9 ora ,s+
|
|
952 orb ,s+
|
|
953 L08FD std u0006,u
|
|
954 ldd u0002,u
|
|
955 addd u000B,u
|
|
956 std u0004,u
|
|
957 std ,u
|
|
958 L0907 tfr u,d
|
|
959 puls pc,u
|
|
960 L090B clra
|
|
961 clrb
|
|
962 puls pc,u
|
|
963 L090F pshs u
|
|
964 ldu $04,s
|
|
965 leas -$04,s
|
|
966 clra
|
|
967 clrb
|
|
968 std ,s
|
|
969 ldx $0A,s
|
|
970 ldb $01,x
|
|
971 sex
|
|
972 tfr d,x
|
|
973 bra L0940
|
|
974 L0922 ldx $0A,s
|
|
975 ldb $02,x
|
|
976 cmpb #$2B
|
|
977 bne L092F
|
|
978 ldd #$0007
|
|
979 bra L0937
|
|
980 L092F ldd #$0004
|
|
981 bra L0937
|
|
982 L0934 ldd #$0003
|
|
983 L0937 std ,s
|
|
984 bra L0950
|
|
985 L093B leax $04,s
|
|
986 lbra L09A8
|
|
987 L0940 stx -$02,s
|
|
988 beq L0950
|
|
989 cmpx #$0078
|
|
990 beq L0922
|
|
991 cmpx #$002B
|
|
992 beq L0934
|
|
993 bra L093B
|
|
994 L0950 ldb [<$0A,s]
|
|
995 sex
|
|
996 tfr d,x
|
|
997 lbra L09B5
|
|
998 L0959 ldd ,s
|
|
999 orb #$01
|
|
1000 bra L099B
|
|
1001 L095F ldd ,s
|
|
1002 orb #$02
|
|
1003 pshs b,a
|
|
1004 pshs u
|
|
1005 lbsr L13AB
|
|
1006 leas $04,s
|
|
1007 std $02,s
|
|
1008 cmpd #$FFFF
|
|
1009 beq L098A
|
|
1010 ldd #$0002
|
|
1011 pshs b,a
|
|
1012 clra
|
|
1013 clrb
|
|
1014 pshs b,a
|
|
1015 pshs b,a
|
|
1016 ldd $08,s
|
|
1017 pshs b,a
|
|
1018 lbsr L1481
|
|
1019 leas $08,s
|
|
1020 bra L09CF
|
|
1021 L098A ldd ,s
|
|
1022 orb #$02
|
|
1023 pshs b,a
|
|
1024 pshs u
|
|
1025 lbsr L13CC
|
|
1026 bra L09A2
|
|
1027 L0997 ldd ,s
|
|
1028 orb #$81
|
|
1029 L099B pshs b,a
|
|
1030 pshs u
|
|
1031 lbsr L13AB
|
|
1032 L09A2 leas $04,s
|
|
1033 std $02,s
|
|
1034 bra L09CF
|
|
1035 L09A8 leas -$04,x
|
|
1036 L09AA ldd #$00CB
|
|
1037 std >$029E,y
|
|
1038 clra
|
|
1039 clrb
|
|
1040 bra L09D1
|
|
1041 L09B5 cmpx #$0072
|
|
1042 lbeq L0959
|
|
1043 cmpx #$0061
|
|
1044 lbeq L095F
|
|
1045 cmpx #$0077
|
|
1046 beq L098A
|
|
1047 cmpx #$0064
|
|
1048 beq L0997
|
|
1049 bra L09AA
|
|
1050 L09CF ldd $02,s
|
|
1051 L09D1 leas $04,s
|
|
1052 puls pc,u
|
|
1053 pshs u
|
|
1054 clra
|
|
1055 clrb
|
|
1056 pshs b,a
|
|
1057 ldd $08,s
|
|
1058 pshs b,a
|
|
1059 ldd $08,s
|
|
1060 pshs b,a
|
|
1061 lbra L0A31
|
|
1062 L09E6 pshs u
|
|
1063 ldd $06,s
|
|
1064 pshs b,a
|
|
1065 ldd $06,s
|
|
1066 pshs b,a
|
|
1067 lbsr L090F
|
|
1068 leas $04,s
|
|
1069 tfr d,u
|
|
1070 cmpu #$FFFF
|
|
1071 bne L0A01
|
|
1072 clra
|
|
1073 clrb
|
|
1074 bra L0A36
|
|
1075 L0A01 clra
|
|
1076 clrb
|
|
1077 bra L0A29
|
|
1078 pshs u
|
|
1079 ldd $08,s
|
|
1080 pshs b,a
|
|
1081 lbsr L0DF5
|
|
1082 leas $02,s
|
|
1083 ldd $06,s
|
|
1084 pshs b,a
|
|
1085 ldd $06,s
|
|
1086 pshs b,a
|
|
1087 lbsr L090F
|
|
1088 leas $04,s
|
|
1089 tfr d,u
|
|
1090 stu -$02,s
|
|
1091 bge L0A27
|
|
1092 clra
|
|
1093 clrb
|
|
1094 bra L0A36
|
|
1095 L0A27 ldd $08,s
|
|
1096 L0A29 pshs b,a
|
|
1097 ldd $08,s
|
|
1098 pshs b,a
|
|
1099 pshs u
|
|
1100 L0A31 lbsr L08B7
|
|
1101 leas $06,s
|
|
1102 L0A36 puls pc,u
|
|
1103 L0A38 pshs u
|
|
1104 leax >$010C,y
|
|
1105 pshs x
|
|
1106 ldd $06,s
|
|
1107 pshs b,a
|
|
1108 bsr L0A5A
|
|
1109 leas $04,s
|
|
1110 leax >$010C,y
|
|
1111 pshs x
|
|
1112 ldd #$000D
|
|
1113 pshs b,a
|
|
1114 lbsr L0D04
|
|
1115 leas $04,s
|
|
1116 puls pc,u
|
|
1117 L0A5A pshs u
|
|
1118 ldu $04,s
|
|
1119 leas -$01,s
|
|
1120 bra L0A70
|
|
1121 L0A62 ldd $07,s
|
|
1122 pshs b,a
|
|
1123 ldb $02,s
|
|
1124 sex
|
|
1125 pshs b,a
|
|
1126 lbsr L0D04
|
|
1127 leas $04,s
|
|
1128 L0A70 ldb ,u+
|
|
1129 stb ,s
|
|
1130 bne L0A62
|
|
1131 leas $01,s
|
|
1132 puls pc,u
|
|
1133 L0A7A pshs u,b,a
|
|
1134 ldu $06,s
|
|
1135 bra L0A84
|
|
1136 L0A80 ldd ,s
|
|
1137 stb ,u+
|
|
1138 L0A84 leax >$00FF,y
|
|
1139 pshs x
|
|
1140 lbsr L0F4E
|
|
1141 leas $02,s
|
|
1142 std ,s
|
|
1143 cmpd #$000D
|
|
1144 beq L0A9F
|
|
1145 ldd ,s
|
|
1146 cmpd #$FFFF
|
|
1147 bne L0A80
|
|
1148 L0A9F ldd ,s
|
|
1149 cmpd #$FFFF
|
|
1150 bne L0AAB
|
|
1151 clra
|
|
1152 clrb
|
|
1153 bra L0AB1
|
|
1154 L0AAB clra
|
|
1155 clrb
|
|
1156 stb ,u
|
|
1157 ldd $06,s
|
|
1158 L0AB1 leas $02,s
|
|
1159 puls pc,u
|
|
1160 L0AB5 pshs u
|
|
1161 ldu $06,s
|
|
1162 leas -$04,s
|
|
1163 ldd $08,s
|
|
1164 std ,s
|
|
1165 bra L0ACF
|
|
1166 L0AC1 ldd $02,s
|
|
1167 ldx ,s
|
|
1168 leax $01,x
|
|
1169 stx ,s
|
|
1170 stb -$01,x
|
|
1171 cmpb #$0D
|
|
1172 beq L0AE8
|
|
1173 L0ACF tfr u,d
|
|
1174 leau -u0001,u
|
|
1175 std -$02,s
|
|
1176 ble L0AE8
|
|
1177 ldd $0C,s
|
|
1178 pshs b,a
|
|
1179 lbsr L0F4E
|
|
1180 leas $02,s
|
|
1181 std $02,s
|
|
1182 cmpd #$FFFF
|
|
1183 bne L0AC1
|
|
1184 L0AE8 clra
|
|
1185 clrb
|
|
1186 stb [,s]
|
|
1187 ldd $02,s
|
|
1188 cmpd #$FFFF
|
|
1189 bne L0AF8
|
|
1190 clra
|
|
1191 clrb
|
|
1192 bra L0AFA
|
|
1193 L0AF8 ldd $08,s
|
|
1194 L0AFA leas $04,s
|
|
1195 puls pc,u
|
|
1196 L0AFE pshs u
|
|
1197 ldu $04,s
|
|
1198 leas -$06,s
|
|
1199 clra
|
|
1200 clrb
|
|
1201 bra L0B35
|
|
1202 L0B08 ldd $0C,s
|
|
1203 std $04,s
|
|
1204 bra L0B24
|
|
1205 L0B0E ldd <$10,s
|
|
1206 pshs b,a
|
|
1207 lbsr L0F4E
|
|
1208 leas $02,s
|
|
1209 std ,s
|
|
1210 cmpd #$FFFF
|
|
1211 beq L0B3E
|
|
1212 ldd ,s
|
|
1213 stb ,u+
|
|
1214 L0B24 ldd $04,s
|
|
1215 addd #$FFFF
|
|
1216 std $04,s
|
|
1217 subd #$FFFF
|
|
1218 bgt L0B0E
|
|
1219 ldd $02,s
|
|
1220 addd #$0001
|
|
1221 L0B35 std $02,s
|
|
1222 ldd $02,s
|
|
1223 cmpd $0E,s
|
|
1224 blt L0B08
|
|
1225 L0B3E ldd $02,s
|
|
1226 leas $06,s
|
|
1227 puls pc,u
|
|
1228 L0B44 pshs u
|
|
1229 ldu $04,s
|
|
1230 leas -$06,s
|
|
1231 cmpu #$0000
|
|
1232 beq L0B57
|
|
1233 ldd u0006,u
|
|
1234 clra
|
|
1235 andb #$03
|
|
1236 bne L0B5D
|
|
1237 L0B57 ldd #$FFFF
|
|
1238 lbra L0C80
|
|
1239 L0B5D ldd u0006,u
|
|
1240 anda #$80
|
|
1241 clrb
|
|
1242 std -$02,s
|
|
1243 bne L0B70
|
|
1244 pshs u
|
|
1245 lbsr L10A2
|
|
1246 leas $02,s
|
|
1247 lbra L0C46
|
|
1248 L0B70 ldd u0006,u
|
|
1249 anda #$01
|
|
1250 clrb
|
|
1251 std -$02,s
|
|
1252 beq L0B8F
|
|
1253 pshs u
|
|
1254 lbsr L0E2F
|
|
1255 leas $02,s
|
|
1256 ldd u0006,u
|
|
1257 anda #$FE
|
|
1258 std u0006,u
|
|
1259 ldd u0002,u
|
|
1260 addd u000B,u
|
|
1261 std u0004,u
|
|
1262 lbra L0C44
|
|
1263 L0B8F ldd ,u
|
|
1264 cmpd u0004,u
|
|
1265 lbcc L0C46
|
|
1266 leax $02,s
|
|
1267 pshs x
|
|
1268 leax $0E,s
|
|
1269 lbsr L1247
|
|
1270 ldx <$10,s
|
|
1271 lbra L0C13
|
|
1272 L0BA7 leax $02,s
|
|
1273 pshs x
|
|
1274 ldd $02,x
|
|
1275 pshs b,a
|
|
1276 ldd ,x
|
|
1277 pshs b,a
|
|
1278 pshs u
|
|
1279 lbsr L0C9B
|
|
1280 leas $02,s
|
|
1281 lbsr L11CE
|
|
1282 lbsr L1247
|
|
1283 L0BC0 ldd u000B,u
|
|
1284 lbsr L122E
|
|
1285 ldd $02,x
|
|
1286 pshs b,a
|
|
1287 ldd ,x
|
|
1288 pshs b,a
|
|
1289 leax $06,s
|
|
1290 ldd $02,x
|
|
1291 pshs b,a
|
|
1292 ldd ,x
|
|
1293 pshs b,a
|
|
1294 bsr L0BDD
|
|
1295 neg <u0000
|
|
1296 neg <u0000
|
|
1297 L0BDD puls x
|
|
1298 lbsr L11E3
|
|
1299 bge L0BEB
|
|
1300 leax $06,s
|
|
1301 lbsr L1207
|
|
1302 bra L0BED
|
|
1303 L0BEB leax $06,s
|
|
1304 L0BED lbsr L11E3
|
|
1305 blt L0C20
|
|
1306 ldd $04,s
|
|
1307 addd ,u
|
|
1308 std ,s
|
|
1309 cmpd u0002,u
|
|
1310 bcs L0C20
|
|
1311 ldd ,s
|
|
1312 cmpd u0004,u
|
|
1313 bcc L0C20
|
|
1314 ldd ,s
|
|
1315 std ,u
|
|
1316 ldd u0006,u
|
|
1317 andb #$EF
|
|
1318 std u0006,u
|
|
1319 lbra L0C7E
|
|
1320 bra L0C20
|
|
1321 L0C13 stx -$02,s
|
|
1322 lbeq L0BA7
|
|
1323 cmpx #$0001
|
|
1324 lbeq L0BC0
|
|
1325 L0C20 ldd <$10,s
|
|
1326 cmpd #$0001
|
|
1327 bne L0C42
|
|
1328 leax $0C,s
|
|
1329 pshs x
|
|
1330 ldd $02,x
|
|
1331 pshs b,a
|
|
1332 ldd ,x
|
|
1333 pshs b,a
|
|
1334 ldd u0004,u
|
|
1335 subd ,u
|
|
1336 lbsr L122E
|
|
1337 lbsr L11CE
|
|
1338 lbsr L1247
|
|
1339 L0C42 ldd u0004,u
|
|
1340 L0C44 std ,u
|
|
1341 L0C46 ldd u0006,u
|
|
1342 andb #$EF
|
|
1343 std u0006,u
|
|
1344 ldd <$10,s
|
|
1345 pshs b,a
|
|
1346 leax $0E,s
|
|
1347 ldd $02,x
|
|
1348 pshs b,a
|
|
1349 ldd ,x
|
|
1350 pshs b,a
|
|
1351 ldd u0008,u
|
|
1352 pshs b,a
|
|
1353 lbsr L1481
|
|
1354 leas $08,s
|
|
1355 ldd $02,x
|
|
1356 pshs b,a
|
|
1357 ldd ,x
|
|
1358 pshs b,a
|
|
1359 fcb $8D,$04
|
|
1360 fcb $FF,$FF,$FF
|
|
1361 fcb $FF,$35,$10
|
|
1362 L0C72 lbsr L11E3
|
|
1363 bne L0C7E
|
|
1364 ldd #$FFFF
|
|
1365 bra L0C80
|
|
1366 L0C7E clra
|
|
1367 clrb
|
|
1368 L0C80 leas $06,s
|
|
1369 puls pc,u
|
|
1370 pshs u
|
|
1371 clra
|
|
1372 clrb
|
|
1373 pshs b,a
|
|
1374 clra
|
|
1375 clrb
|
|
1376 pshs b,a
|
|
1377 pshs b,a
|
|
1378 ldd $0A,s
|
|
1379 pshs b,a
|
|
1380 lbsr L0B44
|
|
1381 leas $08,s
|
|
1382 puls pc,u
|
|
1383 L0C9B pshs u
|
|
1384 ldu $04,s
|
|
1385 beq L0CA8
|
|
1386 ldd u0006,u
|
|
1387 clra
|
|
1388 andb #$03
|
|
1389 bne L0CBB
|
|
1390 L0CA8 fdb $8d04
|
|
1391 fcb $FF,$FF
|
|
1392 fdb $FFFF,$3510
|
|
1393 L0CAE leau >$0292,y
|
|
1394 pshs u
|
|
1395 lbsr L1247
|
|
1396 puls pc,u
|
|
1397 L0CBB ldd u0006,u
|
|
1398 anda #$80
|
|
1399 clrb
|
|
1400 std -$02,s
|
|
1401 bne L0CCB
|
|
1402 pshs u
|
|
1403 lbsr L10A2
|
|
1404 leas $02,s
|
|
1405 L0CCB ldd #$0001
|
|
1406 pshs b,a
|
|
1407 clra
|
|
1408 clrb
|
|
1409 pshs b,a
|
|
1410 pshs b,a
|
|
1411 ldd u0008,u
|
|
1412 pshs b,a
|
|
1413 lbsr L1481
|
|
1414 leas $08,s
|
|
1415 ldd $02,x
|
|
1416 pshs b,a
|
|
1417 ldd ,x
|
|
1418 pshs b,a
|
|
1419 ldd u0006,u
|
|
1420 anda #$01
|
|
1421 clrb
|
|
1422 std -$02,s
|
|
1423 beq L0CF4
|
|
1424 ldd u0002,u
|
|
1425 bra L0CF6
|
|
1426 L0CF4 ldd u0004,u
|
|
1427 L0CF6 pshs b,a
|
|
1428 ldd ,u
|
|
1429 subd ,s++
|
|
1430 lbsr L122E
|
|
1431 lbsr L11B9
|
|
1432 puls pc,u
|
|
1433 L0D04 pshs u
|
|
1434 ldu $06,s
|
|
1435 ldd u0006,u
|
|
1436 anda #$80
|
|
1437 andb #$22
|
|
1438 cmpd #$8002
|
|
1439 beq L0D28
|
|
1440 ldd u0006,u
|
|
1441 clra
|
|
1442 andb #$22
|
|
1443 cmpd #$0002
|
|
1444 lbne L0E40
|
|
1445 pshs u
|
|
1446 lbsr L10A2
|
|
1447 leas $02,s
|
|
1448 L0D28 ldd u0006,u
|
|
1449 clra
|
|
1450 andb #$04
|
|
1451 beq L0D64
|
|
1452 ldd #$0001
|
|
1453 pshs b,a
|
|
1454 leax $07,s
|
|
1455 pshs x
|
|
1456 ldd u0008,u
|
|
1457 pshs b,a
|
|
1458 ldd u0006,u
|
|
1459 clra
|
|
1460 andb #$40
|
|
1461 beq L0D49
|
|
1462 leax >L1471,pcr
|
|
1463 bra L0D4D
|
|
1464 L0D49 leax >L1458,pcr
|
|
1465 L0D4D tfr x,d
|
|
1466 tfr d,x
|
|
1467 jsr ,x
|
|
1468 leas $06,s
|
|
1469 cmpd #$FFFF
|
|
1470 bne L0DA5
|
|
1471 ldd u0006,u
|
|
1472 orb #$20
|
|
1473 std u0006,u
|
|
1474 lbra L0E40
|
|
1475 L0D64 ldd u0006,u
|
|
1476 anda #$01
|
|
1477 clrb
|
|
1478 std -$02,s
|
|
1479 bne L0D74
|
|
1480 pshs u
|
|
1481 lbsr L0E5D
|
|
1482 leas $02,s
|
|
1483 L0D74 ldd ,u
|
|
1484 addd #$0001
|
|
1485 std ,u
|
|
1486 subd #$0001
|
|
1487 tfr d,x
|
|
1488 ldd $04,s
|
|
1489 stb ,x
|
|
1490 ldd ,u
|
|
1491 cmpd u0004,u
|
|
1492 bcc L0D9A
|
|
1493 ldd u0006,u
|
|
1494 clra
|
|
1495 andb #$40
|
|
1496 beq L0DA5
|
|
1497 ldd $04,s
|
|
1498 cmpd #$000D
|
|
1499 bne L0DA5
|
|
1500 L0D9A pshs u
|
|
1501 lbsr L0E5D
|
|
1502 std ,s++
|
|
1503 lbne L0E40
|
|
1504 L0DA5 ldd $04,s
|
|
1505 puls pc,u
|
|
1506 pshs u
|
|
1507 ldu $04,s
|
|
1508 ldd $06,s
|
|
1509 pshs b,a
|
|
1510 pshs u
|
|
1511 ldd #$0008
|
|
1512 lbsr L130A
|
|
1513 pshs b,a
|
|
1514 lbsr L0D04
|
|
1515 leas $04,s
|
|
1516 ldd $06,s
|
|
1517 pshs b,a
|
|
1518 pshs u
|
|
1519 lbsr L0D04
|
|
1520 lbra L0F17
|
|
1521 L0DCC pshs u,b,a
|
|
1522 leau >$00FF,y
|
|
1523 clra
|
|
1524 clrb
|
|
1525 std ,s
|
|
1526 bra L0DE2
|
|
1527 L0DD8 tfr u,d
|
|
1528 leau u000D,u
|
|
1529 pshs b,a
|
|
1530 bsr L0DF5
|
|
1531 leas $02,s
|
|
1532 L0DE2 ldd ,s
|
|
1533 addd #$0001
|
|
1534 std ,s
|
|
1535 subd #$0001
|
|
1536 cmpd #$0010
|
|
1537 blt L0DD8
|
|
1538 lbra L0E59
|
|
1539 L0DF5 pshs u
|
|
1540 ldu $04,s
|
|
1541 leas -$02,s
|
|
1542 cmpu #$0000
|
|
1543 beq L0E05
|
|
1544 ldd u0006,u
|
|
1545 bne L0E0B
|
|
1546 L0E05 ldd #$FFFF
|
|
1547 lbra L0E59
|
|
1548 L0E0B ldd u0006,u
|
|
1549 clra
|
|
1550 andb #$02
|
|
1551 beq L0E1A
|
|
1552 pshs u
|
|
1553 bsr L0E2F
|
|
1554 leas $02,s
|
|
1555 bra L0E1C
|
|
1556 L0E1A clra
|
|
1557 clrb
|
|
1558 L0E1C std ,s
|
|
1559 ldd u0008,u
|
|
1560 pshs b,a
|
|
1561 lbsr L13BA
|
|
1562 leas $02,s
|
|
1563 clra
|
|
1564 clrb
|
|
1565 std u0006,u
|
|
1566 ldd ,s
|
|
1567 bra L0E59
|
|
1568 L0E2F pshs u
|
|
1569 ldu $04,s
|
|
1570 beq L0E40
|
|
1571 ldd u0006,u
|
|
1572 clra
|
|
1573 andb #$22
|
|
1574 cmpd #$0002
|
|
1575 beq L0E45
|
|
1576 L0E40 ldd #$FFFF
|
|
1577 puls pc,u
|
|
1578 L0E45 ldd u0006,u
|
|
1579 anda #$80
|
|
1580 clrb
|
|
1581 std -$02,s
|
|
1582 bne L0E55
|
|
1583 pshs u
|
|
1584 lbsr L10A2
|
|
1585 leas $02,s
|
|
1586 L0E55 pshs u
|
|
1587 bsr L0E5D
|
|
1588 L0E59 leas $02,s
|
|
1589 puls pc,u
|
|
1590 L0E5D pshs u
|
|
1591 ldu $04,s
|
|
1592 leas -$04,s
|
|
1593 ldd u0006,u
|
|
1594 anda #$01
|
|
1595 clrb
|
|
1596 std -$02,s
|
|
1597 bne L0E8F
|
|
1598 ldd ,u
|
|
1599 cmpd u0004,u
|
|
1600 beq L0E8F
|
|
1601 clra
|
|
1602 clrb
|
|
1603 pshs b,a
|
|
1604 pshs u
|
|
1605 lbsr L0C9B
|
|
1606 leas $02,s
|
|
1607 ldd $02,x
|
|
1608 pshs b,a
|
|
1609 ldd ,x
|
|
1610 pshs b,a
|
|
1611 ldd u0008,u
|
|
1612 pshs b,a
|
|
1613 lbsr L1481
|
|
1614 leas $08,s
|
|
1615 L0E8F ldd ,u
|
|
1616 subd u0002,u
|
|
1617 std $02,s
|
|
1618 lbeq L0F07
|
|
1619 ldd u0006,u
|
|
1620 anda #$01
|
|
1621 clrb
|
|
1622 std -$02,s
|
|
1623 lbeq L0F07
|
|
1624 ldd u0006,u
|
|
1625 clra
|
|
1626 andb #$40
|
|
1627 beq L0EDE
|
|
1628 ldd u0002,u
|
|
1629 bra L0ED6
|
|
1630 L0EAF ldd $02,s
|
|
1631 pshs b,a
|
|
1632 ldd ,u
|
|
1633 pshs b,a
|
|
1634 ldd u0008,u
|
|
1635 pshs b,a
|
|
1636 lbsr L1471
|
|
1637 leas $06,s
|
|
1638 std ,s
|
|
1639 cmpd #$FFFF
|
|
1640 bne L0ECC
|
|
1641 leax $04,s
|
|
1642 bra L0EF6
|
|
1643 L0ECC ldd $02,s
|
|
1644 subd ,s
|
|
1645 std $02,s
|
|
1646 ldd ,u
|
|
1647 addd ,s
|
|
1648 L0ED6 std ,u
|
|
1649 ldd $02,s
|
|
1650 bne L0EAF
|
|
1651 bra L0F07
|
|
1652 L0EDE ldd $02,s
|
|
1653 pshs b,a
|
|
1654 ldd u0002,u
|
|
1655 pshs b,a
|
|
1656 ldd u0008,u
|
|
1657 pshs b,a
|
|
1658 lbsr L1458
|
|
1659 leas $06,s
|
|
1660 cmpd $02,s
|
|
1661 beq L0F07
|
|
1662 bra L0EF8
|
|
1663 L0EF6 leas -$04,x
|
|
1664 L0EF8 ldd u0006,u
|
|
1665 orb #$20
|
|
1666 std u0006,u
|
|
1667 ldd u0004,u
|
|
1668 std ,u
|
|
1669 ldd #$FFFF
|
|
1670 bra L0F17
|
|
1671 L0F07 ldd u0006,u
|
|
1672 ora #$01
|
|
1673 std u0006,u
|
|
1674 ldd u0002,u
|
|
1675 std ,u
|
|
1676 addd u000B,u
|
|
1677 std u0004,u
|
|
1678 clra
|
|
1679 clrb
|
|
1680 L0F17 leas $04,s
|
|
1681 puls pc,u
|
|
1682 L0F1B pshs u
|
|
1683 ldd $04,s
|
|
1684 leax >$01D0,y
|
|
1685 leax d,x
|
|
1686 ldb ,x
|
|
1687 clra
|
|
1688 andb #$04
|
|
1689 beq L0F4A
|
|
1690 ldd $04,s
|
|
1691 clra
|
|
1692 andb #$DF
|
|
1693 bra L0F4C
|
|
1694 pshs u
|
|
1695 ldd $04,s
|
|
1696 leax >$01D0,y
|
|
1697 leax d,x
|
|
1698 ldb ,x
|
|
1699 clra
|
|
1700 andb #$02
|
|
1701 beq L0F4A
|
|
1702 ldd $04,s
|
|
1703 orb #$20
|
|
1704 bra L0F4C
|
|
1705 L0F4A ldd $04,s
|
|
1706 L0F4C puls pc,u
|
|
1707 L0F4E pshs u
|
|
1708 ldu $04,s
|
|
1709 beq L0F9A
|
|
1710 ldd u0006,u
|
|
1711 anda #$01
|
|
1712 clrb
|
|
1713 std -$02,s
|
|
1714 bne L0F9A
|
|
1715 ldd ,u
|
|
1716 cmpd u0004,u
|
|
1717 bcc L0F76
|
|
1718 ldd ,u
|
|
1719 addd #$0001
|
|
1720 std ,u
|
|
1721 subd #$0001
|
|
1722 tfr d,x
|
|
1723 ldb ,x
|
|
1724 clra
|
|
1725 lbra L10A0
|
|
1726 L0F76 pshs u
|
|
1727 lbsr L0FE9
|
|
1728 lbra L109E
|
|
1729 pshs u
|
|
1730 ldu $06,s
|
|
1731 beq L0F9A
|
|
1732 ldd u0006,u
|
|
1733 clra
|
|
1734 andb #$01
|
|
1735 beq L0F9A
|
|
1736 ldd $04,s
|
|
1737 cmpd #$FFFF
|
|
1738 beq L0F9A
|
|
1739 ldd ,u
|
|
1740 cmpd u0002,u
|
|
1741 bhi L0F9F
|
|
1742 L0F9A ldd #$FFFF
|
|
1743 puls pc,u
|
|
1744 L0F9F ldd ,u
|
|
1745 addd #$FFFF
|
|
1746 std ,u
|
|
1747 tfr d,x
|
|
1748 ldd $04,s
|
|
1749 stb ,x
|
|
1750 ldd $04,s
|
|
1751 puls pc,u
|
|
1752 pshs u
|
|
1753 ldu $04,s
|
|
1754 leas -$04,s
|
|
1755 pshs u
|
|
1756 lbsr L0F4E
|
|
1757 leas $02,s
|
|
1758 std $02,s
|
|
1759 cmpd #$FFFF
|
|
1760 beq L0FD4
|
|
1761 pshs u
|
|
1762 lbsr L0F4E
|
|
1763 leas $02,s
|
|
1764 std ,s
|
|
1765 cmpd #$FFFF
|
|
1766 bne L0FD9
|
|
1767 L0FD4 ldd #$FFFF
|
|
1768 bra L0FE5
|
|
1769 L0FD9 ldd $02,s
|
|
1770 pshs b,a
|
|
1771 ldd #$0008
|
|
1772 lbsr L1321
|
|
1773 addd ,s
|
|
1774 L0FE5 leas $04,s
|
|
1775 puls pc,u
|
|
1776 L0FE9 pshs u
|
|
1777 ldu $04,s
|
|
1778 leas -$02,s
|
|
1779 ldd u0006,u
|
|
1780 anda #$80
|
|
1781 andb #$31
|
|
1782 cmpd #$8001
|
|
1783 beq L100F
|
|
1784 ldd u0006,u
|
|
1785 clra
|
|
1786 andb #$31
|
|
1787 cmpd #$0001
|
|
1788 lbne L1088
|
|
1789 pshs u
|
|
1790 lbsr L10A2
|
|
1791 leas $02,s
|
|
1792 L100F leax >$00FF,y
|
|
1793 pshs x
|
|
1794 cmpu ,s++
|
|
1795 bne L102C
|
|
1796 ldd u0006,u
|
|
1797 clra
|
|
1798 andb #$40
|
|
1799 beq L102C
|
|
1800 leax >$010C,y
|
|
1801 pshs x
|
|
1802 lbsr L0E2F
|
|
1803 leas $02,s
|
|
1804 L102C ldd u0006,u
|
|
1805 clra
|
|
1806 andb #$08
|
|
1807 beq L1058
|
|
1808 ldd u000B,u
|
|
1809 pshs b,a
|
|
1810 ldd u0002,u
|
|
1811 pshs b,a
|
|
1812 ldd u0008,u
|
|
1813 pshs b,a
|
|
1814 ldd u0006,u
|
|
1815 clra
|
|
1816 andb #$40
|
|
1817 beq L104C
|
|
1818 leax >L1448,pcr
|
|
1819 bra L1050
|
|
1820 L104C leax >L1427,pcr
|
|
1821 L1050 tfr x,d
|
|
1822 tfr d,x
|
|
1823 jsr ,x
|
|
1824 bra L106A
|
|
1825 L1058 ldd #$0001
|
|
1826 pshs b,a
|
|
1827 leax u000A,u
|
|
1828 stx u0002,u
|
|
1829 pshs x
|
|
1830 ldd u0008,u
|
|
1831 pshs b,a
|
|
1832 lbsr L1427
|
|
1833 L106A leas $06,s
|
|
1834 std ,s
|
|
1835 ldd ,s
|
|
1836 bgt L108D
|
|
1837 ldd u0006,u
|
|
1838 pshs b,a
|
|
1839 ldd $02,s
|
|
1840 beq L107F
|
|
1841 ldd #$0020
|
|
1842 bra L1082
|
|
1843 L107F ldd #$0010
|
|
1844 L1082 ora ,s+
|
|
1845 orb ,s+
|
|
1846 std u0006,u
|
|
1847 L1088 ldd #$FFFF
|
|
1848 bra L109E
|
|
1849 L108D ldd u0002,u
|
|
1850 addd #$0001
|
|
1851 std ,u
|
|
1852 ldd u0002,u
|
|
1853 addd ,s
|
|
1854 std u0004,u
|
|
1855 ldb [<u0002,u]
|
|
1856 clra
|
|
1857 L109E leas $02,s
|
|
1858 L10A0 puls pc,u
|
|
1859 L10A2 pshs u
|
|
1860 ldu $04,s
|
|
1861 ldd u0006,u
|
|
1862 clra
|
|
1863 andb #$C0
|
|
1864 bne L10DA
|
|
1865 leas <-$20,s
|
|
1866 leax ,s
|
|
1867 pshs x
|
|
1868 ldd u0008,u
|
|
1869 pshs b,a
|
|
1870 clra
|
|
1871 clrb
|
|
1872 pshs b,a
|
|
1873 lbsr L133C
|
|
1874 leas $06,s
|
|
1875 ldd u0006,u
|
|
1876 pshs b,a
|
|
1877 ldb $02,s
|
|
1878 bne L10CE
|
|
1879 ldd #$0040
|
|
1880 bra L10D1
|
|
1881 L10CE ldd #$0080
|
|
1882 L10D1 ora ,s+
|
|
1883 orb ,s+
|
|
1884 std u0006,u
|
|
1885 leas <$20,s
|
|
1886 L10DA ldd u0006,u
|
|
1887 ora #$80
|
|
1888 std u0006,u
|
|
1889 clra
|
|
1890 andb #$0C
|
|
1891 beq L10E7
|
|
1892 puls pc,u
|
|
1893 L10E7 ldd u000B,u
|
|
1894 bne L10FC
|
|
1895 ldd u0006,u
|
|
1896 clra
|
|
1897 andb #$40
|
|
1898 beq L10F7
|
|
1899 ldd #$0080
|
|
1900 bra L10FA
|
|
1901 L10F7 ldd #$0100
|
|
1902 L10FA std u000B,u
|
|
1903 L10FC ldd u0002,u
|
|
1904 bne L1111
|
|
1905 ldd u000B,u
|
|
1906 pshs b,a
|
|
1907 lbsr L1541
|
|
1908 leas $02,s
|
|
1909 std u0002,u
|
|
1910 cmpd #$FFFF
|
|
1911 beq L1119
|
|
1912 L1111 ldd u0006,u
|
|
1913 orb #$08
|
|
1914 std u0006,u
|
|
1915 bra L1128
|
|
1916 L1119 ldd u0006,u
|
|
1917 orb #$04
|
|
1918 std u0006,u
|
|
1919 leax u000A,u
|
|
1920 stx u0002,u
|
|
1921 ldd #$0001
|
|
1922 std u000B,u
|
|
1923 L1128 ldd u0002,u
|
|
1924 addd u000B,u
|
|
1925 std u0004,u
|
|
1926 std ,u
|
|
1927 puls pc,u
|
|
1928 pshs u
|
|
1929 ldu $04,s
|
|
1930 L1136 ldb ,u+
|
|
1931 bne L1136
|
|
1932 tfr u,d
|
|
1933 subd $04,s
|
|
1934 addd #$FFFF
|
|
1935 puls pc,u
|
|
1936 L1143 pshs u
|
|
1937 ldu $06,s
|
|
1938 leas -$02,s
|
|
1939 ldd $06,s
|
|
1940 std ,s
|
|
1941 L114D ldb ,u+
|
|
1942 ldx ,s
|
|
1943 leax $01,x
|
|
1944 stx ,s
|
|
1945 stb -$01,x
|
|
1946 bne L114D
|
|
1947 bra L1182
|
|
1948 L115B pshs u
|
|
1949 ldu $06,s
|
|
1950 leas -$02,s
|
|
1951 ldd $06,s
|
|
1952 std ,s
|
|
1953 L1165 ldx ,s
|
|
1954 leax $01,x
|
|
1955 stx ,s
|
|
1956 ldb -$01,x
|
|
1957 bne L1165
|
|
1958 ldd ,s
|
|
1959 addd #$FFFF
|
|
1960 std ,s
|
|
1961 L1176 ldb ,u+
|
|
1962 ldx ,s
|
|
1963 leax $01,x
|
|
1964 stx ,s
|
|
1965 stb -$01,x
|
|
1966 bne L1176
|
|
1967 L1182 ldd $06,s
|
|
1968 leas $02,s
|
|
1969 puls pc,u
|
|
1970 pshs u
|
|
1971 ldu $04,s
|
|
1972 bra L119E
|
|
1973 L118E ldx $06,s
|
|
1974 leax $01,x
|
|
1975 stx $06,s
|
|
1976 ldb -$01,x
|
|
1977 bne L119C
|
|
1978 clra
|
|
1979 clrb
|
|
1980 puls pc,u
|
|
1981 L119C leau u0001,u
|
|
1982 L119E ldb ,u
|
|
1983 sex
|
|
1984 pshs b,a
|
|
1985 ldb [<$08,s]
|
|
1986 sex
|
|
1987 cmpd ,s++
|
|
1988 beq L118E
|
|
1989 ldb [<$06,s]
|
|
1990 sex
|
|
1991 pshs b,a
|
|
1992 ldb ,u
|
|
1993 sex
|
|
1994 subd ,s++
|
|
1995 puls pc,u
|
|
1996 L11B9 ldd $04,s
|
|
1997 addd $02,x
|
|
1998 std >$0294,y
|
|
1999 ldd $02,s
|
|
2000 adcb $01,x
|
|
2001 adca ,x
|
|
2002 std >$0292,y
|
|
2003 lbra L125D
|
|
2004 L11CE ldd $04,s
|
|
2005 subd $02,x
|
|
2006 std >$0294,y
|
|
2007 ldd $02,s
|
|
2008 sbcb $01,x
|
|
2009 sbca ,x
|
|
2010 std >$0292,y
|
|
2011 lbra L125D
|
|
2012 L11E3 ldd $02,s
|
|
2013 cmpd ,x
|
|
2014 bne L11FC
|
|
2015 ldd $04,s
|
|
2016 cmpd $02,x
|
|
2017 beq L11FC
|
|
2018 bcs L11F9
|
|
2019 lda #$01
|
|
2020 andcc #$FE
|
|
2021 bra L11FC
|
|
2022 L11F9 clra
|
|
2023 cmpa #$01
|
|
2024 L11FC pshs cc
|
|
2025 ldd $01,s
|
|
2026 std $05,s
|
|
2027 puls cc
|
|
2028 leas $04,s
|
|
2029 rts
|
|
2030 L1207 lbsr L126C
|
|
2031 ldd #$0000
|
|
2032 subd $02,x
|
|
2033 std $02,x
|
|
2034 ldd #$0000
|
|
2035 sbcb $01,x
|
|
2036 sbca ,x
|
|
2037 std ,x
|
|
2038 rts
|
|
2039 ldd ,x
|
|
2040 coma
|
|
2041 comb
|
|
2042 std >$0292,y
|
|
2043 ldd $02,x
|
|
2044 coma
|
|
2045 comb
|
|
2046 leax >$0292,y
|
|
2047 std $02,x
|
|
2048 rts
|
|
2049 L122E leax >$0292,y
|
|
2050 std $02,x
|
|
2051 tfr a,b
|
|
2052 sex
|
|
2053 tfr a,b
|
|
2054 std ,x
|
|
2055 rts
|
|
2056 leax >$0292,y
|
|
2057 std $02,x
|
|
2058 clr ,x
|
|
2059 clr $01,x
|
|
2060 rts
|
|
2061 L1247 pshs y
|
|
2062 ldy $04,s
|
|
2063 ldd ,x
|
|
2064 std ,y
|
|
2065 ldd $02,x
|
|
2066 std $02,y
|
|
2067 puls x
|
|
2068 exg y,x
|
|
2069 puls b,a
|
|
2070 std ,s
|
|
2071 rts
|
|
2072 L125D tfr cc,a
|
|
2073 puls x
|
|
2074 stx $02,s
|
|
2075 leas $02,s
|
|
2076 leax >$0292,y
|
|
2077 tfr a,cc
|
|
2078 rts
|
|
2079 L126C ldd ,x
|
|
2080 std >$0292,y
|
|
2081 ldd $02,x
|
|
2082 leax >$0292,y
|
|
2083 std $02,x
|
|
2084 rts
|
|
2085 subd #$0000
|
|
2086 beq L128A
|
|
2087 pshs b,a
|
|
2088 leas -$02,s
|
|
2089 clr ,s
|
|
2090 clr $01,s
|
|
2091 bra L12B8
|
|
2092 L128A puls b,a
|
|
2093 std ,s
|
|
2094 ldd #$002D
|
|
2095 lbra L132D
|
|
2096 L1294 subd #$0000
|
|
2097 beq L128A
|
|
2098 pshs b,a
|
|
2099 leas -$02,s
|
|
2100 clr ,s
|
|
2101 clr $01,s
|
|
2102 tsta
|
|
2103 bpl L12AC
|
|
2104 nega
|
|
2105 negb
|
|
2106 sbca #$00
|
|
2107 inc $01,s
|
|
2108 std $02,s
|
|
2109 L12AC ldd $06,s
|
|
2110 bpl L12B8
|
|
2111 nega
|
|
2112 negb
|
|
2113 sbca #$00
|
|
2114 com $01,s
|
|
2115 std $06,s
|
|
2116 L12B8 lda #$01
|
|
2117 L12BA inca
|
|
2118 lsl $03,s
|
|
2119 rol $02,s
|
|
2120 bpl L12BA
|
|
2121 sta ,s
|
|
2122 ldd $06,s
|
|
2123 clr $06,s
|
|
2124 clr $07,s
|
|
2125 L12C9 subd $02,s
|
|
2126 bcc L12D3
|
|
2127 addd $02,s
|
|
2128 andcc #$FE
|
|
2129 bra L12D5
|
|
2130 L12D3 orcc #$01
|
|
2131 L12D5 rol $07,s
|
|
2132 rol $06,s
|
|
2133 lsr $02,s
|
|
2134 ror $03,s
|
|
2135 dec ,s
|
|
2136 bne L12C9
|
|
2137 std $02,s
|
|
2138 tst $01,s
|
|
2139 beq L12EF
|
|
2140 ldd $06,s
|
|
2141 nega
|
|
2142 negb
|
|
2143 sbca #$00
|
|
2144 std $06,s
|
|
2145 L12EF ldx $04,s
|
|
2146 ldd $06,s
|
|
2147 std $04,s
|
|
2148 stx $06,s
|
|
2149 ldx $02,s
|
|
2150 ldd $04,s
|
|
2151 leas $06,s
|
|
2152 rts
|
|
2153 tstb
|
|
2154 beq L1314
|
|
2155 L1301 asr $02,s
|
|
2156 ror $03,s
|
|
2157 decb
|
|
2158 bne L1301
|
|
2159 bra L1314
|
|
2160 L130A tstb
|
|
2161 beq L1314
|
|
2162 L130D lsr $02,s
|
|
2163 ror $03,s
|
|
2164 decb
|
|
2165 bne L130D
|
|
2166 L1314 ldd $02,s
|
|
2167 pshs b,a
|
|
2168 ldd $02,s
|
|
2169 std $04,s
|
|
2170 ldd ,s
|
|
2171 leas $04,s
|
|
2172 rts
|
|
2173 L1321 tstb
|
|
2174 beq L1314
|
|
2175 L1324 lsl $03,s
|
|
2176 rol $02,s
|
|
2177 decb
|
|
2178 bne L1324
|
|
2179 bra L1314
|
|
2180 L132D std >$029E,y
|
|
2181 pshs y,b
|
|
2182 os9 F$ID
|
|
2183 puls y,b
|
|
2184 os9 F$Send
|
|
2185 rts
|
|
2186 L133C lda $05,s
|
|
2187 ldb $03,s
|
|
2188 beq L136F
|
|
2189 cmpb #$01
|
|
2190 beq L1371
|
|
2191 cmpb #$06
|
|
2192 beq L1371
|
|
2193 cmpb #$02
|
|
2194 beq L1357
|
|
2195 cmpb #$05
|
|
2196 beq L1357
|
|
2197 ldb #$D0
|
|
2198 lbra L1590
|
|
2199 L1357 pshs u
|
|
2200 os9 I$GetStt
|
|
2201 bcc L1363
|
|
2202 puls u
|
|
2203 lbra L1590
|
|
2204 L1363 stx [<$08,s]
|
|
2205 ldx $08,s
|
|
2206 stu $02,x
|
|
2207 puls u
|
|
2208 clra
|
|
2209 clrb
|
|
2210 rts
|
|
2211 L136F ldx $06,s
|
|
2212 L1371 os9 I$GetStt
|
|
2213 lbra L1599
|
|
2214 lda $05,s
|
|
2215 ldb $03,s
|
|
2216 beq L1386
|
|
2217 cmpb #$02
|
|
2218 beq L138E
|
|
2219 ldb #$D0
|
|
2220 lbra L1590
|
|
2221 L1386 ldx $06,s
|
|
2222 os9 I$SetStt
|
|
2223 lbra L1599
|
|
2224 L138E pshs u
|
|
2225 ldx $08,s
|
|
2226 ldu $0A,s
|
|
2227 os9 I$SetStt
|
|
2228 puls u
|
|
2229 lbra L1599
|
|
2230 ldx $02,s
|
|
2231 lda $05,s
|
|
2232 os9 I$Open
|
|
2233 bcs L13A8
|
|
2234 os9 I$Close
|
|
2235 L13A8 lbra L1599
|
|
2236 L13AB ldx $02,s
|
|
2237 lda $05,s
|
|
2238 os9 I$Open
|
|
2239 lbcs L1590
|
|
2240 tfr a,b
|
|
2241 clra
|
|
2242 rts
|
|
2243 L13BA lda $03,s
|
|
2244 os9 I$Close
|
|
2245 lbra L1599
|
|
2246 ldx $02,s
|
|
2247 ldb $05,s
|
|
2248 os9 I$MakDir
|
|
2249 lbra L1599
|
|
2250 L13CC ldx $02,s
|
|
2251 lda $05,s
|
|
2252 tfr a,b
|
|
2253 andb #$24
|
|
2254 orb #$0B
|
|
2255 os9 I$Create
|
|
2256 bcs L13DF
|
|
2257 L13DB tfr a,b
|
|
2258 clra
|
|
2259 rts
|
|
2260 L13DF cmpb #$DA
|
|
2261 lbne L1590
|
|
2262 lda $05,s
|
|
2263 bita #$80
|
|
2264 lbne L1590
|
|
2265 anda #$07
|
|
2266 ldx $02,s
|
|
2267 os9 I$Open
|
|
2268 lbcs L1590
|
|
2269 pshs u,a
|
|
2270 ldx #$0000
|
|
2271 leau ,x
|
|
2272 ldb #$02
|
|
2273 os9 I$SetStt
|
|
2274 puls u,a
|
|
2275 bcc L13DB
|
|
2276 pshs b
|
|
2277 os9 I$Close
|
|
2278 puls b
|
|
2279 lbra L1590
|
|
2280 ldx $02,s
|
|
2281 os9 I$Delete
|
|
2282 lbra L1599
|
|
2283 lda $03,s
|
|
2284 os9 I$Dup
|
|
2285 lbcs L1590
|
|
2286 tfr a,b
|
|
2287 clra
|
|
2288 rts
|
|
2289 L1427 pshs y
|
|
2290 ldx $06,s
|
|
2291 lda $05,s
|
|
2292 ldy $08,s
|
|
2293 pshs y
|
|
2294 os9 I$Read
|
|
2295 L1435 bcc L1444
|
|
2296 cmpb #$D3
|
|
2297 bne L143F
|
|
2298 clra
|
|
2299 clrb
|
|
2300 puls pc,y,x
|
|
2301 L143F puls y,x
|
|
2302 lbra L1590
|
|
2303 L1444 tfr y,d
|
|
2304 puls pc,y,x
|
|
2305 L1448 pshs y
|
|
2306 lda $05,s
|
|
2307 ldx $06,s
|
|
2308 ldy $08,s
|
|
2309 pshs y
|
|
2310 os9 I$ReadLn
|
|
2311 bra L1435
|
|
2312 L1458 pshs y
|
|
2313 ldy $08,s
|
|
2314 beq L146D
|
|
2315 lda $05,s
|
|
2316 ldx $06,s
|
|
2317 os9 I$Write
|
|
2318 L1466 bcc L146D
|
|
2319 puls y
|
|
2320 lbra L1590
|
|
2321 L146D tfr y,d
|
|
2322 puls pc,y
|
|
2323 L1471 pshs y
|
|
2324 ldy $08,s
|
|
2325 beq L146D
|
|
2326 lda $05,s
|
|
2327 ldx $06,s
|
|
2328 os9 I$WritLn
|
|
2329 bra L1466
|
|
2330 L1481 pshs u
|
|
2331 ldd $0A,s
|
|
2332 bne L148F
|
|
2333 ldu #$0000
|
|
2334 ldx #$0000
|
|
2335 bra L14C3
|
|
2336 L148F cmpd #$0001
|
|
2337 beq L14BA
|
|
2338 cmpd #$0002
|
|
2339 beq L14AF
|
|
2340 ldb #$F7
|
|
2341 L149D clra
|
|
2342 std >$029E,y
|
|
2343 ldd #$FFFF
|
|
2344 leax >$0292,y
|
|
2345 std ,x
|
|
2346 std $02,x
|
|
2347 puls pc,u
|
|
2348 L14AF lda $05,s
|
|
2349 ldb #$02
|
|
2350 os9 I$GetStt
|
|
2351 bcs L149D
|
|
2352 bra L14C3
|
|
2353 L14BA lda $05,s
|
|
2354 ldb #$05
|
|
2355 os9 I$GetStt
|
|
2356 bcs L149D
|
|
2357 L14C3 tfr u,d
|
|
2358 addd $08,s
|
|
2359 std >$0294,y
|
|
2360 tfr d,u
|
|
2361 tfr x,d
|
|
2362 adcb $07,s
|
|
2363 adca $06,s
|
|
2364 bmi L149D
|
|
2365 tfr d,x
|
|
2366 std >$0292,y
|
|
2367 lda $05,s
|
|
2368 os9 I$Seek
|
|
2369 bcs L149D
|
|
2370 leax >$0292,y
|
|
2371 puls pc,u
|
|
2372 ldd >$0290,y
|
|
2373 pshs b,a
|
|
2374 ldd $04,s
|
|
2375 cmpd >$02A0,y
|
|
2376 bcs L151E
|
|
2377 addd >$0290,y
|
|
2378 bcs L150A
|
|
2379 pshs y
|
|
2380 subd ,s
|
|
2381 os9 F$Mem
|
|
2382 tfr y,d
|
|
2383 puls y
|
|
2384 bcc L1510
|
|
2385 L150A ldd #$FFFF
|
|
2386 leas $02,s
|
|
2387 rts
|
|
2388 L1510 std >$0290,y
|
|
2389 addd >$02A0,y
|
|
2390 subd ,s
|
|
2391 std >$02A0,y
|
|
2392 L151E leas $02,s
|
|
2393 ldd >$02A0,y
|
|
2394 pshs b,a
|
|
2395 subd $04,s
|
|
2396 std >$02A0,y
|
|
2397 ldd >$0290,y
|
|
2398 subd ,s++
|
|
2399 pshs b,a
|
|
2400 clra
|
|
2401 ldx ,s
|
|
2402 L1537 sta ,x+
|
|
2403 cmpx >$0290,y
|
|
2404 bcs L1537
|
|
2405 puls pc,b,a
|
|
2406 L1541 ldd $02,s
|
|
2407 addd >$029A,y
|
|
2408 bcs L156A
|
|
2409 cmpd >$029C,y
|
|
2410 bcc L156A
|
|
2411 pshs b,a
|
|
2412 ldx >$029A,y
|
|
2413 clra
|
|
2414 L1557 cmpx ,s
|
|
2415 bcc L155F
|
|
2416 sta ,x+
|
|
2417 bra L1557
|
|
2418 L155F ldd >$029A,y
|
|
2419 puls x
|
|
2420 stx >$029A,y
|
|
2421 rts
|
|
2422 L156A ldd #$FFFF
|
|
2423 rts
|
|
2424 L156E pshs u
|
|
2425 tfr y,u
|
|
2426 ldx $04,s
|
|
2427 stx >$02A2,y
|
|
2428 leax >L1584,pcr
|
|
2429 os9 F$Icpt
|
|
2430 puls u
|
|
2431 lbra L1599
|
|
2432 L1584 tfr u,y
|
|
2433 clra
|
|
2434 pshs b,a
|
|
2435 jsr [>$02A2,y]
|
|
2436 leas $02,s
|
|
2437 rti
|
|
2438 L1590 clra
|
|
2439 std >$029E,y
|
|
2440 ldd #$FFFF
|
|
2441 rts
|
|
2442 L1599 bcs L1590
|
|
2443 clra
|
|
2444 clrb
|
|
2445 rts
|
|
2446 L159E lbsr L15A9
|
|
2447 lbsr L0DCC
|
|
2448 L15A4 ldd $02,s
|
|
2449 os9 F$Exit
|
|
2450 L15A9 rts
|
|
2451 L15AA fdb $0001,$0001,$5100
|
|
2452 fdb $0000,$0000,$0000,$0100,$0000,$0000,$0000,$0000
|
|
2453 fdb $0000,$0002,$0001,$0000,$0000,$0000,$0000,$0000
|
|
2454 fdb $4200,$0200,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2455 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2456 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2457 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2458 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2459 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2460 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2461 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2462 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2463 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2464 fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
|
|
2465 fdb $0101,$0101,$0101,$0101,$0111,$1101,$1111,$0101
|
|
2466 fdb $0101,$0101,$0101,$0101,$0101,$0101,$0101,$0101
|
|
2467 fdb $3020,$2020,$2020,$2020,$2020,$2020,$2020,$2020
|
|
2468 fdb $4848,$4848,$4848,$4848,$4848,$2020,$2020,$2020
|
|
2469 fdb $2042,$4242,$4242,$4202,$0202,$0202,$0202,$0202
|
|
2470 fdb $0202,$0202,$0202,$0202,$0202,$0220,$2020,$2020
|
|
2471 fdb $2044,$4444,$4444,$4404,$0404,$0404,$0404,$0404
|
|
2472 fdb $0404,$0404,$0404,$0404,$0404,$0420,$2020,$2001
|
|
2473 fdb $0000,$0000
|
|
2474 fcc "help"
|
|
2475 fcb $00
|
|
2476
|
|
2477 emod
|
|
2478 eom equ *
|
|
2479 end
|