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