Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/config.asm @ 1891:5f8822fb42e0
shortened H6309L2 code to fit within $1D0 bytes
author | robert |
---|---|
date | Fri, 14 Oct 2005 01:53:05 +0000 (2005-10-14) |
parents | 04b3b0436d6b |
children | 1e312b144f4d |
rev | line source |
---|---|
303 | 1 ******************************************************************** |
2 * Config - Boot configurator | |
3 * | |
4 * $Id$ | |
5 * | |
1351
04b3b0436d6b
Fixed line-ending issue in help.asm, added new style header
boisy
parents:
314
diff
changeset
|
6 * Edt/Rev YYYY/MM/DD Modified by |
04b3b0436d6b
Fixed line-ending issue in help.asm, added new style header
boisy
parents:
314
diff
changeset
|
7 * Comment |
303 | 8 * ------------------------------------------------------------------ |
1351
04b3b0436d6b
Fixed line-ending issue in help.asm, added new style header
boisy
parents:
314
diff
changeset
|
9 * 4 ????/??/?? ??? |
04b3b0436d6b
Fixed line-ending issue in help.asm, added new style header
boisy
parents:
314
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
04b3b0436d6b
Fixed line-ending issue in help.asm, added new style header
boisy
parents:
314
diff
changeset
|
11 * |
04b3b0436d6b
Fixed line-ending issue in help.asm, added new style header
boisy
parents:
314
diff
changeset
|
12 * 5 ????/??/?/ ??? |
04b3b0436d6b
Fixed line-ending issue in help.asm, added new style header
boisy
parents:
314
diff
changeset
|
13 * Changed /D0 references to /DD |
303 | 14 |
15 nam Config | |
16 ttl Boot configurator | |
17 | |
18 * Disassembled 02/07/22 07:36:55 by Disasm v1.6 (C) 1988 by RML | |
19 | |
20 ifp1 | |
21 use defsfile | |
22 endc | |
23 | |
24 tylg set Prgrm+Objct | |
25 atrv set ReEnt+rev | |
26 rev set $01 | |
313 | 27 edition set 5 |
303 | 28 |
314 | 29 L0000 mod eom,name,tylg,atrv,start,size |
303 | 30 |
31 u0000 rmb 1 | |
32 u0001 rmb 1 | |
33 u0002 rmb 1 | |
34 u0003 rmb 1 | |
35 u0004 rmb 1 | |
36 u0005 rmb 2 | |
37 u0007 rmb 2 | |
38 u0009 rmb 1 | |
39 u000A rmb 3 | |
40 u000D rmb 2 | |
41 u000F rmb 2 | |
42 u0011 rmb 14 | |
43 u001F rmb 1 | |
44 u0020 rmb 1 | |
45 u0021 rmb 2 | |
46 u0023 rmb 6 | |
47 u0029 rmb 2 | |
48 u002B rmb 2 | |
49 u002D rmb 1 | |
50 u002E rmb 1 | |
51 u002F rmb 2 | |
52 u0031 rmb 1 | |
53 u0032 rmb 1 | |
54 u0033 rmb 1 | |
55 u0034 rmb 1 | |
56 u0035 rmb 2 | |
57 u0037 rmb 2 | |
58 u0039 rmb 2 | |
59 u003B rmb 2 | |
60 u003D rmb 2 | |
61 u003F rmb 2 | |
62 u0041 rmb 1 | |
63 u0042 rmb 1 | |
64 u0043 rmb 1 | |
65 u0044 rmb 1 | |
66 u0045 rmb 2 | |
67 u0047 rmb 1 | |
68 u0048 rmb 1 | |
69 u0049 rmb 2 | |
70 u004B rmb 2 | |
71 u004D rmb 2 | |
72 u004F rmb 1 | |
73 u0050 rmb 1 | |
74 u0051 rmb 1 | |
75 u0052 rmb 1 | |
76 u0053 rmb 1 | |
77 u0054 rmb 3 | |
78 u0057 rmb 4 | |
79 u005B rmb 8 | |
80 u0063 rmb 1 | |
81 u0064 rmb 11 | |
82 u006F rmb 4 | |
83 u0073 rmb 25 | |
84 u008C rmb 2 | |
85 u008E rmb 86 | |
86 u00E4 rmb 21 | |
87 u00F9 rmb 1168 | |
88 u0589 rmb 1084 | |
89 size equ . | |
90 | |
91 name fcs /config/ | |
92 fcb edition | |
93 | |
313 | 94 L0014 lda ,y+ |
95 sta ,u+ | |
96 leax -$01,x | |
97 bne L0014 | |
98 rts | |
99 | |
100 start pshs y | |
303 | 101 pshs u |
102 clra | |
103 clrb | |
104 L0023 sta ,u+ | |
105 decb | |
106 bne L0023 | |
107 ldx ,s | |
108 leau ,x | |
109 leax >$0645,x | |
110 pshs x | |
111 leay >L2918,pcr | |
112 ldx ,y++ | |
113 beq L003E | |
114 bsr L0014 | |
115 ldu $02,s | |
116 L003E leau >u008E,u | |
117 ldx ,y++ | |
118 beq L0049 | |
119 bsr L0014 | |
120 clra | |
121 L0049 cmpu ,s | |
122 beq L0052 | |
123 sta ,u+ | |
124 bra L0049 | |
125 L0052 ldu $02,s | |
126 ldd ,y++ | |
127 beq L005F | |
128 leax >L0000,pcr | |
129 lbsr L0151 | |
130 L005F ldd ,y++ | |
131 beq L0068 | |
132 leax ,u | |
133 lbsr L0151 | |
134 L0068 leas $04,s | |
135 puls x | |
136 stx >u0589,u | |
137 pshs y | |
138 ldy #$0001 | |
139 leax $02,s | |
140 L0078 lda ,x+ | |
141 cmpa #$0D | |
142 beq L00BC | |
143 cmpa #$20 | |
144 beq L0078 | |
145 cmpa #$2C | |
146 beq L0078 | |
147 cmpa #$22 | |
148 beq L00A6 | |
149 cmpa #$27 | |
150 beq L00A6 | |
151 leax -$01,x | |
152 pshs x | |
153 leay $01,y | |
154 L0094 lda ,x+ | |
155 beq L00B6 | |
156 cmpa #$0D | |
157 beq L00B6 | |
158 cmpa #$20 | |
159 beq L00B6 | |
160 cmpa #$2C | |
161 beq L00B6 | |
162 bra L0094 | |
163 L00A6 pshs x,a | |
164 leay $01,y | |
165 L00AA lda ,x+ | |
166 cmpa #$0D | |
167 beq L00B4 | |
168 cmpa ,s | |
169 bne L00AA | |
170 L00B4 puls b | |
171 L00B6 clr -$01,x | |
172 cmpa #$0D | |
173 bne L0078 | |
174 L00BC tfr y,d | |
175 leax ,s | |
176 pshs x,b,a | |
177 lslb | |
178 rola | |
179 leay d,x | |
180 pshs u | |
181 bra L00D2 | |
182 L00CA ldd ,x | |
183 ldu ,y | |
184 std ,y | |
185 stu ,x++ | |
186 L00D2 leay -$02,y | |
187 pshs y | |
188 cmpx ,s++ | |
189 bcs L00CA | |
190 puls y | |
191 bsr L00E8 | |
192 puls b,a | |
193 lbsr L018D | |
194 clra | |
195 clrb | |
196 lbsr L2844 | |
197 L00E8 leax >$0645,y | |
198 stx >$0593,y | |
199 sts >$0587,y | |
200 sts >$0595,y | |
201 ldd #$FF82 | |
202 L00FD leax d,s | |
203 cmpx >$0595,y | |
204 bcc L010F | |
205 cmpx >$0593,y | |
206 bcs L0129 | |
207 stx >$0595,y | |
208 L010F rts | |
209 L0110 fcc "**** STACK OVERFLOW ****" | |
210 fcb C$CR | |
211 L0129 leax <L0110,pcr | |
212 ldb #$CF | |
213 pshs b | |
214 lda #$02 | |
215 ldy #$0064 | |
216 L0136 os9 I$WritLn | |
217 clra | |
218 puls b | |
219 L013C lbsr L284E | |
220 ldd >$0587,y | |
221 subd >$0595,y | |
222 rts | |
223 ldd >$0595,y | |
224 subd >$0593,y | |
225 rts | |
226 L0151 pshs x | |
227 leax d,y | |
228 leax d,x | |
229 pshs x | |
230 L0159 ldd ,y++ | |
231 leax d,u | |
232 ldd ,x | |
233 addd $02,s | |
234 std ,x | |
235 cmpy ,s | |
236 bne L0159 | |
237 leas $04,s | |
238 rts | |
239 L016B pshs u,b,a | |
240 ldd #$FFBA | |
241 lbsr L00FD | |
242 ldd ,s | |
243 cmpd #$0002 | |
244 bne L0189 | |
245 lbsr L12C9 | |
246 lbsr L0258 | |
247 lbsr L197A | |
248 ldd ,s | |
249 lbsr L2844 | |
250 L0189 leas $02,s | |
251 puls pc,u | |
252 L018D pshs u | |
253 ldd #$FFBC | |
254 lbsr L00FD | |
255 bsr L01B9 | |
256 lbsr L07BB | |
257 lbsr L071D | |
258 lbsr L02D1 | |
259 lbsr L03F9 | |
260 lbsr L1709 | |
261 lbsr L19FB | |
262 lbsr L1B13 | |
263 lbsr L12C9 | |
264 lbsr L0258 | |
265 clra | |
266 clrb | |
267 lbsr L2844 | |
268 puls pc,u | |
269 L01B9 pshs u | |
270 ldd #$FFB4 | |
271 lbsr L00FD | |
272 leas -$04,s | |
273 leax >$05BB,y | |
274 stx $02,s | |
275 leax >$0599,y | |
276 pshs x | |
277 clra | |
278 clrb | |
279 pshs b,a | |
280 lbsr L2574 | |
281 leas $04,s | |
282 ldd $02,s | |
283 pshs b,a | |
284 clra | |
285 clrb | |
286 pshs b,a | |
287 lbsr L2574 | |
288 leas $04,s | |
289 clra | |
290 clrb | |
291 ldx $02,s | |
292 stb $05,x | |
293 stb $04,x | |
294 pshs x,b,a | |
295 lbsr L25AE | |
296 leas $04,s | |
297 leax >L016B,pcr | |
298 tfr x,d | |
299 lbsr L281A | |
300 bsr L0244 | |
301 std ,s | |
302 ldx ,s | |
303 bra L021A | |
304 L0205 ldd #$0018 | |
305 std <u004B | |
306 ldd #$0012 | |
307 bra L0216 | |
308 L020F clra | |
309 clrb | |
310 std <u004B | |
311 ldd #$000A | |
312 L0216 std <u004D | |
313 bra L0227 | |
314 L021A cmpx #$0050 | |
315 beq L0205 | |
316 cmpx #$0020 | |
317 beq L020F | |
318 lbra L020F | |
319 L0227 lbsr L12C9 | |
320 clra | |
321 clrb | |
322 lbsr L12A0 | |
323 lbsr L0C28 | |
324 bsr L026A | |
325 std <u0047 | |
326 lbsr L12C9 | |
327 ldd #$0005 | |
328 std <u003D | |
329 lbsr L0DC6 | |
330 lbra L02CD | |
331 L0244 pshs y | |
332 lda #$01 | |
333 ldb #$26 | |
334 os9 I$GetStt | |
335 bcc L0254 | |
336 ldd #$0020 | |
337 bra L0256 | |
338 L0254 tfr x,d | |
339 L0256 puls pc,y | |
340 L0258 pshs u | |
341 ldd #$FFBC | |
342 lbsr L00FD | |
343 bsr L02AA | |
344 ldd #$0001 | |
345 lbsr L12A0 | |
346 puls pc,u | |
347 L026A pshs u | |
348 ldd #$FFB8 | |
349 lbsr L00FD | |
350 lbsr L10C8 | |
351 L0275 ldd #$0001 | |
352 pshs b,a | |
353 leax >$004F,y | |
354 pshs x | |
355 clra | |
356 clrb | |
357 lbsr L2659 | |
358 leas $04,s | |
359 ldb <u004F | |
360 sex | |
361 tfr d,x | |
362 bra L029C | |
363 L028E ldd #$0001 | |
364 puls pc,u | |
365 L0293 clra | |
366 clrb | |
367 puls pc,u | |
368 L0297 lbsr L1334 | |
369 bra L0275 | |
370 L029C cmpx #$0031 | |
371 beq L028E | |
372 cmpx #$0032 | |
373 beq L0293 | |
374 bra L0297 | |
375 puls pc,u | |
376 L02AA pshs u | |
377 ldd #$FFB8 | |
378 lbsr L00FD | |
379 leax >$0599,y | |
380 bra L02C4 | |
381 L02B8 pshs u | |
382 ldd #$FFB8 | |
383 lbsr L00FD | |
384 leax >$05BB,y | |
385 L02C4 pshs x | |
386 clra | |
387 clrb | |
388 pshs b,a | |
389 lbsr L25AE | |
390 L02CD leas $04,s | |
391 puls pc,u | |
392 L02D1 pshs u | |
393 ldd #$FFB6 | |
394 lbsr L00FD | |
395 leas -$02,s | |
396 leax >$008E,y | |
397 tfr x,d | |
398 lbsr L2715 | |
399 ldd <u0041 | |
400 beq L02EC | |
401 ldd <u0037 | |
402 bra L0300 | |
403 L02EC ldd <u0045 | |
404 beq L02FE | |
405 ldd <u002B | |
406 std <u002D | |
407 ldd <u0039 | |
408 std ,s | |
409 ldd <u003B | |
410 std <u0039 | |
411 bra L0302 | |
412 L02FE ldd <u0029 | |
413 L0300 std <u002D | |
414 L0302 ldd #$0001 | |
415 std <u0049 | |
416 lbsr L12C9 | |
417 lbsr L0D27 | |
418 L030D ldu #$0000 | |
419 lbsr L04A5 | |
420 L0313 ldd #$0001 | |
421 pshs b,a | |
422 leax >$004F,y | |
423 pshs x | |
424 clra | |
425 clrb | |
426 lbsr L2659 | |
427 leas $04,s | |
428 ldb <u004F | |
429 sex | |
430 tfr d,x | |
431 bra L0356 | |
432 L032C lbsr L05D5 | |
433 lbra L03B7 | |
434 L0332 lbsr L06A8 | |
435 lbra L03B7 | |
436 L0338 lbsr L0661 | |
437 lbra L03B7 | |
438 L033E lbsr L0680 | |
439 lbra L03B7 | |
440 L0344 lbsr L0542 | |
441 lbra L03B7 | |
442 L034A ldu #$0001 | |
443 lbra L03B7 | |
444 L0350 lbsr L1334 | |
445 lbra L03B7 | |
446 L0356 cmpx #$0073 | |
447 beq L032C | |
448 cmpx #$0053 | |
449 lbeq L032C | |
450 cmpx #$0068 | |
451 beq L0332 | |
452 cmpx #$0048 | |
453 lbeq L0332 | |
454 cmpx #$000C | |
455 beq L0338 | |
456 cmpx #$000A | |
457 beq L033E | |
458 cmpx #$0064 | |
459 beq L038E | |
460 cmpx #$0044 | |
461 beq L038E | |
462 cmpx #$0008 | |
463 beq L0344 | |
464 cmpx #$0009 | |
465 beq L034A | |
466 bra L0350 | |
467 L038E lbsr L12FD | |
468 ldd <u0049 | |
469 addd <u004D | |
470 addd #$FFFF | |
471 cmpd <u0039 | |
472 bge L03A6 | |
473 lbsr L040F | |
474 std -$02,s | |
475 bne L03AD | |
476 bra L03B1 | |
477 L03A6 lbsr L043A | |
478 std -$02,s | |
479 beq L03B1 | |
480 L03AD leax $02,s | |
481 bra L03E0 | |
482 L03B1 lbsr L12FD | |
483 lbsr L0D27 | |
484 L03B7 stu -$02,s | |
485 lbeq L0313 | |
486 ldd <u0049 | |
487 addd <u004D | |
488 cmpd <u0039 | |
489 ble L03CB | |
490 lbsr L1334 | |
491 bra L03D5 | |
492 L03CB ldd <u0049 | |
493 addd <u004D | |
494 std <u0049 | |
495 ldd <u002F | |
496 std <u002D | |
497 L03D5 ldd <u0049 | |
498 cmpd <u0039 | |
499 lble L030D | |
500 bra L03E2 | |
501 L03E0 leas -$02,x | |
502 L03E2 ldd <u0045 | |
503 beq L03ED | |
504 ldd ,s | |
505 std <u0039 | |
506 lbsr L070D | |
507 L03ED leax >$00B6,y | |
508 tfr x,d | |
509 lbsr L2715 | |
510 lbra L07A2 | |
511 L03F9 pshs u | |
512 ldd #$FFBC | |
513 lbsr L00FD | |
514 ldd #$0001 | |
515 std <u0045 | |
516 lbsr L02D1 | |
517 clra | |
518 clrb | |
519 std <u0045 | |
520 puls pc,u | |
521 L040F pshs u | |
522 ldd #$FFB8 | |
523 lbsr L00FD | |
524 clra | |
525 clrb | |
526 pshs b,a | |
527 ldd #$0006 | |
528 lbsr L1248 | |
529 leas $02,s | |
530 ldd #$0014 | |
531 pshs b,a | |
532 leax >$00B9,y | |
533 pshs x | |
534 ldd #$0001 | |
535 lbsr L2681 | |
536 leas $04,s | |
537 bsr L043A | |
538 puls pc,u | |
539 L043A pshs u | |
540 ldd #$FFB8 | |
541 lbsr L00FD | |
542 ldd #$0001 | |
543 pshs b,a | |
544 ldd #$0006 | |
545 lbsr L1248 | |
546 leas $02,s | |
547 ldd #$0014 | |
548 pshs b,a | |
549 leax >$00CE,y | |
550 pshs x | |
551 ldd #$0001 | |
552 lbsr L2681 | |
553 leas $04,s | |
554 L0462 ldd #$0001 | |
555 pshs b,a | |
556 leax >$004F,y | |
557 pshs x | |
558 clra | |
559 clrb | |
560 lbsr L2659 | |
561 leas $04,s | |
562 ldb <u004F | |
563 sex | |
564 tfr d,x | |
565 bra L0489 | |
566 L047B ldd #$0001 | |
567 puls pc,u | |
568 L0480 clra | |
569 clrb | |
570 puls pc,u | |
571 L0484 lbsr L1334 | |
572 bra L0462 | |
573 L0489 cmpx #$0059 | |
574 beq L047B | |
575 cmpx #$0079 | |
576 lbeq L047B | |
577 cmpx #$004E | |
578 beq L0480 | |
579 cmpx #$006E | |
580 lbeq L0480 | |
581 bra L0484 | |
582 puls pc,u | |
583 L04A5 pshs u | |
584 ldd #$FFB4 | |
585 lbsr L00FD | |
586 leas -$04,s | |
587 lbsr L12D6 | |
588 ldd #$0005 | |
589 std <u008C | |
590 ldu <u002D | |
591 std <u003D | |
592 ldd #$0001 | |
593 lbra L052B | |
594 L04C1 stu -$02,s | |
595 lbeq L0536 | |
596 ldd <u003D | |
597 pshs b,a | |
598 ldd #$0008 | |
599 lbsr L1248 | |
600 leas $02,s | |
601 ldd <u0041 | |
602 beq L04EE | |
603 pshs u | |
604 ldd #$0002 | |
605 addd ,s++ | |
606 lbsr L240A | |
607 pshs b,a | |
608 pshs u | |
609 ldd #$0002 | |
610 addd ,s++ | |
611 pshs b,a | |
612 bra L04FD | |
613 L04EE tfr u,d | |
614 lbsr L058C | |
615 std ,s | |
616 pshs b,a | |
617 leax >$006F,y | |
618 pshs x | |
619 L04FD ldd #$0001 | |
620 lbsr L2681 | |
621 leas $04,s | |
622 ldd ,u | |
623 beq L050F | |
624 ldd #$0001 | |
625 lbsr L127C | |
626 L050F ldd <u008C | |
627 addd #$0001 | |
628 std <u008C | |
629 ldd <u003D | |
630 addd #$0001 | |
631 std <u003D | |
632 ldu <u0023,u | |
633 tfr u,d | |
634 std <u002F | |
635 bra L0526 | |
636 L0526 ldd $02,s | |
637 addd #$0001 | |
638 L052B std $02,s | |
639 ldd $02,s | |
640 cmpd <u004D | |
641 lble L04C1 | |
642 L0536 ldd #$0005 | |
643 std <u003D | |
644 lbsr L1351 | |
645 leas $04,s | |
646 puls pc,u | |
647 L0542 pshs u | |
648 ldd #$FFBA | |
649 lbsr L00FD | |
650 leas -$02,s | |
651 ldd <u0049 | |
652 cmpd #$0001 | |
653 lbeq L0707 | |
654 ldd <u0049 | |
655 subd <u004D | |
656 std <u0049 | |
657 ldd <u0041 | |
658 beq L0564 | |
659 ldu <u0037 | |
660 bra L056E | |
661 L0564 ldd <u0045 | |
662 beq L056C | |
663 ldu <u002B | |
664 bra L056E | |
665 L056C ldu <u0029 | |
666 L056E ldd #$0001 | |
667 bra L057B | |
668 L0573 ldu <u0023,u | |
669 ldd ,s | |
670 addd #$0001 | |
671 L057B std ,s | |
672 ldd ,s | |
673 cmpd <u0049 | |
674 blt L0573 | |
675 stu <u002D | |
676 lbsr L04A5 | |
677 lbra L07A2 | |
678 L058C pshs u,b,a | |
679 ldd #$FFBA | |
680 lbsr L00FD | |
681 leas -$04,s | |
682 leau >$006F,y | |
683 ldd $04,s | |
684 addd #$0002 | |
685 std $02,s | |
686 clra | |
687 clrb | |
688 bra L05AA | |
689 L05A5 ldd ,s | |
690 addd #$0001 | |
691 L05AA std ,s | |
692 ldx $02,s | |
693 leax $01,x | |
694 stx $02,s | |
695 ldb -$01,x | |
696 stb ,u+ | |
697 cmpb #$2E | |
698 bne L05A5 | |
699 clra | |
700 clrb | |
701 stb ,-u | |
702 ldd ,s | |
703 leas $06,s | |
704 puls pc,u | |
705 L05C4 pshs u | |
706 ldd #$FFC0 | |
707 lbsr L00FD | |
708 ldd <u003D | |
709 addd #$FFFB | |
710 addd <u0049 | |
711 puls pc,u | |
712 L05D5 pshs u | |
713 ldd #$FFB8 | |
714 lbsr L00FD | |
715 leas -$02,s | |
716 bsr L05C4 | |
717 std ,s | |
718 ldd <u0041 | |
719 beq L05EB | |
720 ldu <u0037 | |
721 bra L0621 | |
722 L05EB ldu <u002D | |
723 bra L0621 | |
724 L05EF ldd ,s | |
725 cmpd <u001F,u | |
726 bne L061E | |
727 ldd ,u | |
728 bne L0600 | |
729 ldd #$0001 | |
730 bra L0602 | |
731 L0600 clra | |
732 clrb | |
733 L0602 std ,u | |
734 ldd <u0041 | |
735 bne L0616 | |
736 ldd <u0045 | |
737 bne L0616 | |
738 ldd ,u | |
739 pshs b,a | |
740 tfr u,d | |
741 bsr L0628 | |
742 leas $02,s | |
743 L0616 ldd ,u | |
744 lbsr L127C | |
745 lbra L07A2 | |
746 L061E ldu <u0023,u | |
747 L0621 stu -$02,s | |
748 bne L05EF | |
749 lbra L0707 | |
750 L0628 pshs u | |
751 tfr d,u | |
752 ldd #$FFC0 | |
753 lbsr L00FD | |
754 ldd $04,s | |
755 beq L064A | |
756 ldd [<u0021,u] | |
757 addd #$0001 | |
758 std [<u0021,u] | |
759 ldx <u0021,u | |
760 ldd [<$21,x] | |
761 addd #$0001 | |
762 bra L065C | |
763 L064A ldd [<u0021,u] | |
764 addd #$FFFF | |
765 std [<u0021,u] | |
766 ldx <u0021,u | |
767 ldd [<$21,x] | |
768 addd #$FFFF | |
769 L065C std [<$21,x] | |
770 puls pc,u | |
771 L0661 pshs u | |
772 ldd #$FFBC | |
773 lbsr L00FD | |
774 ldd <u003D | |
775 cmpd #$0005 | |
776 ble L06A3 | |
777 lbsr L1370 | |
778 ldd <u003D | |
779 addd #$FFFF | |
780 std <u003D | |
781 lbsr L1351 | |
782 bra L06A6 | |
783 L0680 pshs u | |
784 ldd #$FFBC | |
785 lbsr L00FD | |
786 ldd <u008C | |
787 addd #$FFFF | |
788 cmpd <u003D | |
789 ble L06A3 | |
790 ldd <u003D | |
791 lbsr L1370 | |
792 ldd <u003D | |
793 addd #$0001 | |
794 std <u003D | |
795 lbsr L1351 | |
796 bra L06A6 | |
797 L06A3 lbsr L1334 | |
798 L06A6 puls pc,u | |
799 L06A8 pshs u | |
800 ldd #$FFB8 | |
801 lbsr L00FD | |
802 leas -$02,s | |
803 lbsr L05C4 | |
804 std ,s | |
805 ldd <u0041 | |
806 beq L06BF | |
807 ldu <u0037 | |
808 bra L0703 | |
809 L06BF ldu <u002D | |
810 bra L0703 | |
811 L06C3 ldd ,s | |
812 cmpd <u001F,u | |
813 bne L0700 | |
814 ldd <u0041 | |
815 bne L06EF | |
816 tfr u,d | |
817 lbsr L058C | |
818 leax >$00B2,y | |
819 pshs x | |
820 leax >$006F,y | |
821 tfr x,d | |
822 lbsr L2435 | |
823 leas $02,s | |
824 clra | |
825 clrb | |
826 pshs b,a | |
827 leax >$006F,y | |
828 bra L06F8 | |
829 L06EF ldd <u001F,u | |
830 pshs b,a | |
831 leax >L07A6,pcr | |
832 L06F8 tfr x,d | |
833 lbsr L1398 | |
834 lbra L0769 | |
835 L0700 ldu <u0023,u | |
836 L0703 stu -$02,s | |
837 bne L06C3 | |
838 L0707 lbsr L1334 | |
839 lbra L07A2 | |
840 L070D pshs u | |
841 ldd #$FFBC | |
842 lbsr L00FD | |
843 lbsr L12C9 | |
844 lbsr L0DEA | |
845 puls pc,u | |
846 L071D pshs u | |
847 ldd #$FFBC | |
848 lbsr L00FD | |
849 leax >L07AE,pcr | |
850 tfr x,d | |
851 bsr L073F | |
852 leax >L07B1,pcr | |
853 tfr x,d | |
854 bsr L073F | |
855 leax >L07B6,pcr | |
856 tfr x,d | |
857 bsr L0776 | |
858 puls pc,u | |
859 L073F pshs u,b,a | |
860 ldd #$FFB6 | |
861 lbsr L00FD | |
862 ldu <u0029 | |
863 bra L0770 | |
864 L074B ldd ,s | |
865 pshs b,a | |
866 pshs u | |
867 ldd #$0002 | |
868 addd ,s++ | |
869 lbsr L0B5E | |
870 std ,s++ | |
871 beq L076D | |
872 ldd #$0001 | |
873 std ,u | |
874 pshs b,a | |
875 tfr u,d | |
876 lbsr L0628 | |
877 L0769 leas $02,s | |
878 bra L07A2 | |
879 L076D ldu <u0023,u | |
880 L0770 stu -$02,s | |
881 bne L074B | |
882 bra L07A2 | |
883 L0776 pshs u,b,a | |
884 ldd #$FFB6 | |
885 lbsr L00FD | |
886 ldu <u002B | |
887 bra L079E | |
888 L0782 ldd ,s | |
889 pshs b,a | |
890 pshs u | |
891 ldd #$0002 | |
892 addd ,s++ | |
893 lbsr L0B5E | |
894 std ,s++ | |
895 beq L079B | |
896 ldd #$0001 | |
897 std ,u | |
898 bra L07A2 | |
899 L079B ldu <u0023,u | |
900 L079E stu -$02,s | |
901 bne L0782 | |
902 L07A2 leas $02,s | |
903 puls pc,u | |
904 L07A6 fcc "cmds.hp" | |
905 fcb $00 | |
313 | 906 L07AE fcc "DD" |
303 | 907 fcb $00 |
908 L07B1 fcc "TERM" | |
909 fcb $00 | |
910 L07B6 fcc "CO32" | |
911 fcb $00 | |
912 L07BB fcb $34,$40 | |
913 ldd #$FF92 | |
914 lbsr L00FD | |
915 leas <-$24,s | |
916 ldd #$0081 | |
917 pshs b,a | |
918 leax >$008E,y | |
919 tfr x,d | |
920 lbsr L25E1 | |
921 leas $02,s | |
922 std <$20,s | |
923 cmpd #$FFFF | |
924 bne L07EF | |
925 ldd #$001B | |
926 pshs b,a | |
927 leax >L0BC3,pcr | |
928 tfr x,d | |
929 lbsr L168D | |
930 leas $02,s | |
931 L07EF clra | |
932 clrb | |
933 pshs b,a | |
934 ldd #$0040 | |
935 pshs b,a | |
936 clra | |
937 clrb | |
938 pshs b,a | |
939 ldd <$26,s | |
940 lbsr L26AA | |
941 leas $06,s | |
942 ldd $02,x | |
943 pshs b,a | |
944 ldd ,x | |
945 pshs b,a | |
946 bsr L0812 | |
947 fdb $FFFF,$FFFF | |
948 L0812 fdb $3510 | |
949 L0814 lbsr L2888 | |
950 lbne L08B0 | |
951 ldd #$001B | |
952 pshs b,a | |
953 leax >L0BDF,pcr | |
954 tfr x,d | |
955 lbsr L168D | |
956 leas $02,s | |
957 lbra L08B0 | |
958 L082E ldb ,s | |
959 lbeq L08B0 | |
960 leax ,s | |
961 pshs x | |
962 leax >$006F,y | |
963 tfr x,d | |
964 lbsr L2553 | |
965 leas $02,s | |
966 leax >$006F,y | |
967 tfr x,d | |
968 lbsr L0AD5 | |
969 std -$02,s | |
970 beq L0880 | |
971 ldd <u0029 | |
972 bne L0869 | |
973 clra | |
974 clrb | |
975 pshs b,a | |
976 leax >$006F,y | |
977 tfr x,d | |
978 lbsr L08D2 | |
979 leas $02,s | |
980 std <u0029 | |
981 tfr d,u | |
982 bra L08B0 | |
983 L0869 clra | |
984 clrb | |
985 pshs b,a | |
986 leax >$006F,y | |
987 tfr x,d | |
988 lbsr L08D2 | |
989 leas $02,s | |
990 std <u0023,u | |
991 ldu <u0023,u | |
992 bra L08B0 | |
993 L0880 leax >$006F,y | |
994 tfr x,d | |
995 lbsr L0B02 | |
996 std -$02,s | |
997 beq L08B0 | |
998 ldd <u002B | |
999 bne L089E | |
1000 leax >$006F,y | |
1001 tfr x,d | |
1002 lbsr L094E | |
1003 std <u002B | |
1004 bra L08AD | |
1005 L089E leax >$006F,y | |
1006 tfr x,d | |
1007 lbsr L094E | |
1008 ldx <$22,s | |
1009 std <$23,x | |
1010 L08AD std <$22,s | |
1011 L08B0 ldd #$0020 | |
1012 pshs b,a | |
1013 leax $02,s | |
1014 pshs x | |
1015 ldd <$24,s | |
1016 lbsr L2659 | |
1017 leas $04,s | |
1018 std -$02,s | |
1019 lbgt L082E | |
1020 ldd <$20,s | |
1021 lbsr L25EE | |
1022 leas <$24,s | |
1023 puls pc,u | |
1024 L08D2 pshs u,b,a | |
1025 ldd #$FFB6 | |
1026 lbsr L00FD | |
1027 leas -$02,s | |
1028 ldd $08,s | |
1029 pshs b,a | |
1030 ldd $04,s | |
1031 lbsr L0A9C | |
1032 leas $02,s | |
1033 tfr d,u | |
1034 ldd <u0039 | |
1035 addd #$0001 | |
1036 std <u0039 | |
1037 std <u001F,u | |
1038 leax >$008E,y | |
1039 tfr x,d | |
1040 lbsr L2715 | |
1041 ldd #$0001 | |
1042 pshs b,a | |
1043 ldd $04,s | |
1044 lbsr L25E1 | |
1045 leas $02,s | |
1046 std ,s | |
1047 cmpd #$FFFF | |
1048 beq L092A | |
1049 ldd ,s | |
1050 lbsr L0970 | |
1051 std <u0021,u | |
1052 ldd ,s | |
1053 lbsr L09D7 | |
1054 ldx <u0021,u | |
1055 std <$21,x | |
1056 ldd ,s | |
1057 lbsr L25EE | |
1058 bra L0940 | |
1059 L092A ldd #$001E | |
1060 pshs b,a | |
1061 leax >L0BFB,pcr | |
1062 tfr x,d | |
1063 lbsr L1661 | |
1064 leas $02,s | |
1065 lbsr L12FD | |
1066 lbsr L0DC6 | |
1067 L0940 leax >$00B6,y | |
1068 tfr x,d | |
1069 lbsr L2715 | |
1070 tfr u,d | |
1071 lbra L0B5A | |
1072 L094E pshs u,b,a | |
1073 ldd #$FFB8 | |
1074 lbsr L00FD | |
1075 clra | |
1076 clrb | |
1077 pshs b,a | |
1078 ldd $02,s | |
1079 lbsr L0A9C | |
1080 leas $02,s | |
1081 tfr d,u | |
1082 ldd <u003B | |
1083 addd #$0001 | |
1084 std <u003B | |
1085 std <u001F,u | |
1086 lbra L0AD0 | |
1087 L0970 pshs u,b,a | |
1088 ldd #$FFB4 | |
1089 lbsr L00FD | |
1090 clra | |
1091 clrb | |
1092 pshs b,a | |
1093 ldd #$000B | |
1094 pshs b,a | |
1095 clra | |
1096 clrb | |
1097 pshs b,a | |
1098 ldd $06,s | |
1099 lbsr L26AA | |
1100 leas $06,s | |
1101 ldd ,s | |
1102 lbsr L0A3D | |
1103 leax >$00AA,y | |
1104 pshs x | |
1105 leax >$0052,y | |
1106 tfr x,d | |
1107 lbsr L2435 | |
1108 leas $02,s | |
1109 ldu <u0033 | |
1110 bra L09BF | |
1111 L09A6 leax >$0052,y | |
1112 pshs x | |
1113 pshs u | |
1114 ldd #$0002 | |
1115 addd ,s++ | |
1116 lbsr L2462 | |
1117 std ,s++ | |
1118 lbeq L0AD0 | |
1119 ldu <u0023,u | |
1120 L09BF stu -$02,s | |
1121 bne L09A6 | |
1122 ldd <u0033 | |
1123 pshs b,a | |
1124 leax >$0052,y | |
1125 tfr x,d | |
1126 lbsr L0A9C | |
1127 leas $02,s | |
1128 std <u0033 | |
1129 lbra L0BBF | |
1130 L09D7 pshs u,b,a | |
1131 ldd #$FFB4 | |
1132 lbsr L00FD | |
1133 clra | |
1134 clrb | |
1135 pshs b,a | |
1136 ldd #$0009 | |
1137 pshs b,a | |
1138 clra | |
1139 clrb | |
1140 pshs b,a | |
1141 ldd $06,s | |
1142 lbsr L26AA | |
1143 leas $06,s | |
1144 ldd ,s | |
1145 bsr L0A3D | |
1146 leax >$00AE,y | |
1147 pshs x | |
1148 leax >$0052,y | |
1149 tfr x,d | |
1150 lbsr L2435 | |
1151 leas $02,s | |
1152 ldu <u0031 | |
1153 bra L0A25 | |
1154 L0A0C leax >$0052,y | |
1155 pshs x | |
1156 pshs u | |
1157 ldd #$0002 | |
1158 addd ,s++ | |
1159 lbsr L2462 | |
1160 std ,s++ | |
1161 lbeq L0AD0 | |
1162 ldu <u0023,u | |
1163 L0A25 stu -$02,s | |
1164 bne L0A0C | |
1165 ldd <u0031 | |
1166 pshs b,a | |
1167 leax >$0052,y | |
1168 tfr x,d | |
1169 lbsr L0A9C | |
1170 leas $02,s | |
1171 std <u0031 | |
1172 lbra L0BBF | |
1173 L0A3D pshs u,b,a | |
1174 ldd #$FFB1 | |
1175 lbsr L00FD | |
1176 leas -$03,s | |
1177 ldd #$0002 | |
1178 pshs b,a | |
1179 leax $02,s | |
1180 pshs x | |
1181 ldd $07,s | |
1182 lbsr L2659 | |
1183 leas $04,s | |
1184 clra | |
1185 clrb | |
1186 pshs b,a | |
1187 ldd $02,s | |
1188 lbsr L28AC | |
1189 ldd $02,x | |
1190 pshs b,a | |
1191 ldd ,x | |
1192 pshs b,a | |
1193 ldd $09,s | |
1194 lbsr L26AA | |
1195 leas $06,s | |
1196 leau >$0052,y | |
1197 bra L0A79 | |
1198 L0A75 ldb $02,s | |
1199 stb ,u+ | |
1200 L0A79 ldd #$0001 | |
1201 pshs b,a | |
1202 leax $04,s | |
1203 pshs x | |
1204 ldd $07,s | |
1205 lbsr L2659 | |
1206 leas $04,s | |
1207 ldb $02,s | |
1208 cmpb #$7F | |
1209 bls L0A75 | |
1210 clra | |
1211 andb #$7F | |
1212 stb ,u+ | |
1213 clra | |
1214 clrb | |
1215 stb ,u | |
1216 leas $05,s | |
1217 puls pc,u | |
1218 L0A9C pshs u,b,a | |
1219 ldd #$FFB6 | |
1220 lbsr L00FD | |
1221 ldu <u0035 | |
1222 beq L0AAF | |
1223 ldd <u0023,u | |
1224 std <u0035 | |
1225 bra L0AB7 | |
1226 L0AAF ldd #$0025 | |
1227 lbsr L0B31 | |
1228 tfr d,u | |
1229 L0AB7 ldd ,s | |
1230 pshs b,a | |
1231 pshs u | |
1232 ldd #$0002 | |
1233 addd ,s++ | |
1234 lbsr L241D | |
1235 leas $02,s | |
1236 clra | |
1237 clrb | |
1238 std ,u | |
1239 ldd $06,s | |
1240 std <u0023,u | |
1241 L0AD0 tfr u,d | |
1242 lbra L0BBF | |
1243 L0AD5 pshs u | |
1244 tfr d,u | |
1245 ldd #$FFBA | |
1246 lbsr L00FD | |
1247 leax >$009A,y | |
1248 pshs x | |
1249 tfr u,d | |
1250 lbsr L0B5E | |
1251 std ,s++ | |
1252 bne L0AFD | |
1253 leax >$009E,y | |
1254 pshs x | |
1255 tfr u,d | |
1256 lbsr L0B5E | |
1257 std ,s++ | |
1258 beq L0B2D | |
1259 L0AFD ldd #$0001 | |
1260 bra L0B2F | |
1261 L0B02 pshs u | |
1262 tfr d,u | |
1263 ldd #$FFBA | |
1264 lbsr L00FD | |
1265 leax >$00A2,y | |
1266 pshs x | |
1267 tfr u,d | |
1268 bsr L0B5E | |
1269 std ,s++ | |
1270 bne L0B28 | |
1271 leax >$00A6,y | |
1272 pshs x | |
1273 tfr u,d | |
1274 bsr L0B5E | |
1275 std ,s++ | |
1276 beq L0B2D | |
1277 L0B28 ldd #$0001 | |
1278 bra L0B2F | |
1279 L0B2D clra | |
1280 clrb | |
1281 L0B2F puls pc,u | |
1282 L0B31 pshs u,b,a | |
1283 ldd #$FFB6 | |
1284 lbsr L00FD | |
1285 leas -$02,s | |
1286 ldd $02,s | |
1287 lbsr L2725 | |
1288 std ,s | |
1289 cmpd #$FFFF | |
1290 bne L0B58 | |
1291 ldd #$000D | |
1292 pshs b,a | |
1293 leax >L0C1A,pcr | |
1294 tfr x,d | |
1295 lbsr L168D | |
1296 leas $02,s | |
1297 L0B58 ldd ,s | |
1298 L0B5A leas $04,s | |
1299 puls pc,u | |
1300 L0B5E pshs u | |
1301 tfr d,u | |
1302 ldd #$FFB8 | |
1303 lbsr L00FD | |
1304 leas -$02,s | |
1305 ldd #$0001 | |
1306 std ,s | |
1307 addd #$FFFF | |
1308 leau d,u | |
1309 bra L0B8F | |
1310 L0B76 ldd $06,s | |
1311 pshs b,a | |
1312 tfr u,d | |
1313 leau u0001,u | |
1314 bsr L0B95 | |
1315 std ,s++ | |
1316 beq L0B88 | |
1317 ldd ,s | |
1318 bra L0BBF | |
1319 L0B88 ldd ,s | |
1320 addd #$0001 | |
1321 std ,s | |
1322 L0B8F ldb ,u | |
1323 bne L0B76 | |
1324 bra L0BB4 | |
1325 L0B95 pshs u,b,a | |
1326 ldd #$FFBC | |
1327 lbsr L00FD | |
1328 ldu $06,s | |
1329 bra L0BB8 | |
1330 L0BA1 ldx ,s | |
1331 leax $01,x | |
1332 stx ,s | |
1333 ldb -$01,x | |
1334 sex | |
1335 pshs b,a | |
1336 ldb ,u+ | |
1337 sex | |
1338 cmpd ,s++ | |
1339 beq L0BB8 | |
1340 L0BB4 clra | |
1341 clrb | |
1342 bra L0BBF | |
1343 L0BB8 ldb ,u | |
1344 bne L0BA1 | |
1345 ldd #$0001 | |
1346 L0BBF leas $02,s | |
1347 puls pc,u | |
1348 | |
1349 L0BC3 fcc "Can't open module directory" | |
1350 fcb $00 | |
1351 L0BDF fcc "Error seeking past . and .." | |
1352 fcb $00 | |
1353 L0BFB fcc "Can't open the descriptor file" | |
1354 fcb $00 | |
1355 L0C1A fcc "Out of memory" | |
1356 fcb $00 | |
1357 | |
1358 L0C28 fcb $34,$40 | |
1359 ldd #$FFB8 | |
1360 lbsr L00FD | |
1361 lbsr L0CE6 | |
1362 ldd #$0001 | |
1363 pshs b,a | |
1364 ldd #$0006 | |
1365 lbsr L1248 | |
1366 leas $02,s | |
1367 ldd #$0013 | |
1368 pshs b,a | |
1369 leax >$0428,y | |
1370 pshs x | |
1371 ldd #$0001 | |
1372 lbsr L2681 | |
1373 leas $04,s | |
1374 ldd #$0002 | |
1375 L0C56 pshs b,a | |
1376 ldd #$0007 | |
1377 lbsr L1248 | |
1378 leas $02,s | |
1379 ldd #$0011 | |
1380 pshs b,a | |
1381 leax >$043C,y | |
1382 pshs x | |
1383 ldd #$0001 | |
1384 lbsr L2681 | |
1385 leas $04,s | |
1386 ldd #$0003 | |
1387 pshs b,a | |
1388 ldd #$0005 | |
1389 L0C7B lbsr L1248 | |
1390 leas $02,s | |
1391 ldd #$0017 | |
1392 pshs b,a | |
1393 leax >$044E,y | |
1394 pshs x | |
1395 ldd #$0001 | |
1396 lbsr L2681 | |
1397 leas $04,s | |
1398 ldd #$0004 | |
1399 pshs b,a | |
1400 lbsr L1248 | |
1401 leas $02,s | |
1402 ldd #$0018 | |
1403 pshs b,a | |
1404 leax >$0466,y | |
1405 pshs x | |
1406 ldd #$0001 | |
1407 lbsr L2681 | |
1408 leas $04,s | |
1409 ldd #$0005 | |
1410 pshs b,a | |
1411 ldd #$0009 | |
1412 lbsr L1248 | |
1413 leas $02,s | |
1414 ldd #$000E | |
1415 pshs b,a | |
1416 leax >$047F,y | |
1417 pshs x | |
1418 ldd #$0001 | |
1419 lbsr L2681 | |
1420 leas $04,s | |
1421 ldd #$0006 | |
1422 pshs b,a | |
1423 lbsr L1248 | |
1424 leas $02,s | |
1425 ldd #$0013 | |
1426 pshs b,a | |
1427 leax >$048E,y | |
1428 lbra L138D | |
1429 L0CE6 pshs u | |
1430 ldd #$FFB8 | |
1431 lbsr L00FD | |
1432 clra | |
1433 clrb | |
1434 pshs b,a | |
1435 ldd #$000D | |
1436 lbsr L1248 | |
1437 leas $02,s | |
1438 ldd #$0006 | |
1439 pshs b,a | |
1440 leax >$00E3,y | |
1441 lbra L138D | |
1442 L0D06 pshs u | |
1443 ldd #$FFB8 | |
1444 lbsr L00FD | |
1445 ldd #$0003 | |
1446 pshs b,a | |
1447 ldd #$0008 | |
1448 lbsr L1248 | |
1449 leas $02,s | |
1450 ldd #$0010 | |
1451 pshs b,a | |
1452 leax >$01CC,y | |
1453 lbra L138D | |
1454 L0D27 pshs u | |
1455 ldd #$FFB8 | |
1456 lbsr L00FD | |
1457 bsr L0CE6 | |
1458 ldd #$0001 | |
1459 pshs b,a | |
1460 ldd #$0003 | |
1461 lbsr L1248 | |
1462 leas $02,s | |
1463 ldd #$001A | |
1464 pshs b,a | |
1465 leax >$00EA,y | |
1466 pshs x | |
1467 ldd #$0001 | |
1468 lbsr L2681 | |
1469 leas $04,s | |
1470 ldd #$0002 | |
1471 pshs b,a | |
1472 clra | |
1473 clrb | |
1474 lbsr L1248 | |
1475 leas $02,s | |
1476 ldd #$001F | |
1477 pshs b,a | |
1478 leax >$0105,y | |
1479 pshs x | |
1480 ldd #$0001 | |
1481 lbsr L2681 | |
1482 leas $04,s | |
1483 ldd #$0003 | |
1484 pshs b,a | |
1485 ldd #$0007 | |
1486 lbsr L1248 | |
1487 leas $02,s | |
1488 ldd <u0041 | |
1489 beq L0D8C | |
1490 ldd #$0013 | |
1491 pshs b,a | |
1492 leax >$0139,y | |
1493 bra L0DA4 | |
1494 L0D8C ldd <u0045 | |
1495 beq L0D9B | |
1496 ldd #$0013 | |
1497 pshs b,a | |
1498 leax >$014D,y | |
1499 bra L0DA4 | |
1500 L0D9B ldd #$0013 | |
1501 pshs b,a | |
1502 leax >$0125,y | |
1503 L0DA4 pshs x | |
1504 ldd #$0001 | |
1505 lbsr L2681 | |
1506 leas $04,s | |
1507 ldd #$0004 | |
1508 pshs b,a | |
1509 clra | |
1510 clrb | |
1511 lbsr L1248 | |
1512 leas $02,s | |
1513 ldd #$001F | |
1514 pshs b,a | |
1515 leax >$0161,y | |
1516 lbra L138D | |
1517 L0DC6 pshs u | |
1518 ldd #$FFB8 | |
1519 lbsr L00FD | |
1520 lbsr L0CE6 | |
1521 ldd #$0002 | |
1522 pshs b,a | |
1523 ldd #$0004 | |
1524 lbsr L1248 | |
1525 leas $02,s | |
1526 ldd #$0018 | |
1527 pshs b,a | |
1528 leax >$01B3,y | |
1529 lbra L0FC2 | |
1530 L0DEA pshs u | |
1531 ldd #$FFB8 | |
1532 lbsr L00FD | |
1533 lbsr L0CE6 | |
1534 ldd #$0002 | |
1535 pshs b,a | |
1536 ldd #$0006 | |
1537 lbsr L1248 | |
1538 leas $02,s | |
1539 ldd #$0012 | |
1540 pshs b,a | |
1541 leax >$01DD,y | |
1542 lbra L0FC2 | |
1543 L0E0E pshs u | |
1544 ldd #$FFB8 | |
1545 lbsr L00FD | |
1546 lbsr L0CE6 | |
1547 ldd #$0002 | |
1548 pshs b,a | |
1549 ldd #$0005 | |
1550 lbsr L1248 | |
1551 leas $02,s | |
1552 ldd #$0016 | |
1553 pshs b,a | |
1554 leax >$0206,y | |
1555 pshs x | |
1556 ldd #$0001 | |
1557 lbsr L2681 | |
1558 leas $04,s | |
1559 ldd #$0003 | |
1560 pshs b,a | |
1561 ldd #$0007 | |
1562 lbsr L1248 | |
1563 leas $02,s | |
1564 ldd #$0011 | |
1565 pshs b,a | |
1566 leax >$021D,y | |
1567 pshs x | |
1568 ldd #$0001 | |
1569 lbsr L2681 | |
1570 leas $04,s | |
1571 ldd #$0004 | |
1572 pshs b,a | |
1573 lbsr L1248 | |
1574 leas $02,s | |
1575 ldd #$0018 | |
1576 pshs b,a | |
1577 leax >$019A,y | |
1578 lbra L138D | |
1579 L0E6F pshs u | |
1580 ldd #$FFB8 | |
1581 lbsr L00FD | |
1582 ldd <u0047 | |
1583 beq L0E83 | |
1584 lbsr L11D0 | |
1585 lbsr L11F7 | |
1586 puls pc,u | |
1587 L0E83 lbsr L12C9 | |
1588 lbsr L0CE6 | |
1589 ldd #$0002 | |
1590 pshs b,a | |
1591 ldd #$0005 | |
1592 lbsr L1248 | |
1593 leas $02,s | |
1594 ldd #$0015 | |
1595 pshs b,a | |
1596 leax >$01F0,y | |
1597 pshs x | |
1598 ldd #$0001 | |
1599 lbsr L2681 | |
1600 leas $04,s | |
1601 lbsr L0D06 | |
1602 ldd #$0007 | |
1603 pshs b,a | |
1604 clra | |
1605 clrb | |
1606 lbsr L1248 | |
1607 leas $02,s | |
1608 puls pc,u | |
1609 L0EBA pshs u | |
1610 ldd #$FFB8 | |
1611 lbsr L00FD | |
1612 lbsr L12C9 | |
1613 lbsr L0CE6 | |
1614 ldd #$0002 | |
1615 pshs b,a | |
1616 ldd #$0009 | |
1617 lbsr L1248 | |
1618 leas $02,s | |
1619 ldd #$0012 | |
1620 pshs b,a | |
1621 leax >$022F,y | |
1622 pshs x | |
1623 ldd #$0001 | |
1624 lbsr L2681 | |
1625 leas $04,s | |
1626 ldd #$0003 | |
1627 pshs b,a | |
1628 ldd #$0005 | |
1629 lbsr L1248 | |
1630 leas $02,s | |
1631 ldd #$0017 | |
1632 pshs b,a | |
1633 leax >$0242,y | |
1634 pshs x | |
1635 ldd #$0001 | |
1636 lbsr L2681 | |
1637 leas $04,s | |
1638 ldd #$0004 | |
1639 pshs b,a | |
1640 ldd #$0005 | |
1641 lbsr L1248 | |
1642 leas $02,s | |
1643 ldd #$0013 | |
1644 pshs b,a | |
1645 leax >$025A,y | |
1646 pshs x | |
1647 ldd #$0001 | |
1648 lbsr L2681 | |
1649 leas $04,s | |
1650 ldd #$0005 | |
1651 pshs b,a | |
1652 lbsr L1248 | |
1653 leas $02,s | |
1654 ldd #$0012 | |
1655 pshs b,a | |
1656 leax >$026E,y | |
1657 pshs x | |
1658 ldd #$0001 | |
1659 lbsr L2681 | |
1660 leas $04,s | |
1661 ldd #$0006 | |
1662 pshs b,a | |
1663 ldd #$0005 | |
1664 lbsr L1248 | |
1665 leas $02,s | |
1666 ldd #$0016 | |
1667 pshs b,a | |
1668 leax >$0281,y | |
1669 pshs x | |
1670 ldd #$0001 | |
1671 lbsr L2681 | |
1672 leas $04,s | |
1673 ldd #$0007 | |
1674 pshs b,a | |
1675 ldd #$0005 | |
1676 lbsr L1248 | |
1677 leas $02,s | |
1678 ldd #$0010 | |
1679 pshs b,a | |
1680 leax >$0298,y | |
1681 pshs x | |
1682 ldd #$0001 | |
1683 lbsr L2681 | |
1684 leas $04,s | |
1685 ldd #$0008 | |
1686 pshs b,a | |
1687 ldd #$0007 | |
1688 lbsr L1248 | |
1689 leas $02,s | |
1690 ldd #$0015 | |
1691 pshs b,a | |
1692 leax >$02A9,y | |
1693 lbra L138D | |
1694 L0F9E pshs u | |
1695 ldd #$FFB8 | |
1696 lbsr L00FD | |
1697 lbsr L12C9 | |
1698 lbsr L0CE6 | |
1699 ldd #$0002 | |
1700 pshs b,a | |
1701 ldd #$0004 | |
1702 lbsr L1248 | |
1703 leas $02,s | |
1704 ldd #$0018 | |
1705 pshs b,a | |
1706 leax >$0377,y | |
1707 L0FC2 pshs x | |
1708 ldd #$0001 | |
1709 lbsr L2681 | |
1710 leas $04,s | |
1711 lbsr L0D06 | |
1712 puls pc,u | |
1713 L0FD1 pshs u | |
1714 ldd #$FFB8 | |
1715 lbsr L00FD | |
1716 lbsr L12C9 | |
1717 lbsr L0CE6 | |
1718 ldd #$0002 | |
1719 pshs b,a | |
1720 ldd #$0005 | |
1721 lbsr L1248 | |
1722 leas $02,s | |
1723 ldd #$0016 | |
1724 pshs b,a | |
1725 leax >$02BF,y | |
1726 pshs x | |
1727 ldd #$0001 | |
1728 lbsr L2681 | |
1729 leas $04,s | |
1730 ldd #$0003 | |
1731 pshs b,a | |
1732 ldd #$0008 | |
1733 lbsr L1248 | |
1734 leas $02,s | |
1735 ldd #$0011 | |
1736 pshs b,a | |
1737 leax >$02D6,y | |
1738 pshs x | |
1739 ldd #$0001 | |
1740 lbsr L2681 | |
1741 leas $04,s | |
1742 ldd #$0004 | |
1743 pshs b,a | |
1744 lbsr L1248 | |
1745 leas $02,s | |
1746 ldd #$0018 | |
1747 pshs b,a | |
1748 leax >$019A,y | |
1749 pshs x | |
1750 ldd #$0001 | |
1751 lbsr L2681 | |
1752 leas $04,s | |
1753 ldd #$0001 | |
1754 pshs b,a | |
1755 leax >$004F,y | |
1756 pshs x | |
1757 clra | |
1758 clrb | |
1759 lbsr L2659 | |
1760 leas $04,s | |
1761 ldd <u0047 | |
1762 beq L1058 | |
1763 lbsr L11D0 | |
1764 lbsr L1216 | |
1765 L1058 puls pc,u | |
1766 L105A pshs u | |
1767 ldd #$FFB8 | |
1768 lbsr L00FD | |
1769 lbsr L12C9 | |
1770 lbsr L0CE6 | |
1771 ldd #$0002 | |
1772 pshs b,a | |
1773 lbsr L1248 | |
1774 leas $02,s | |
1775 ldd #$001C | |
1776 pshs b,a | |
1777 leax >$03D5,y | |
1778 pshs x | |
1779 ldd #$0001 | |
1780 lbsr L2681 | |
1781 leas $04,s | |
1782 ldd #$0003 | |
1783 pshs b,a | |
1784 lbsr L1248 | |
1785 leas $02,s | |
1786 ldd #$001A | |
1787 pshs b,a | |
1788 leax >$03F2,y | |
1789 pshs x | |
1790 ldd #$0001 | |
1791 lbsr L2681 | |
1792 leas $04,s | |
1793 ldd #$0004 | |
1794 pshs b,a | |
1795 ldd #$0003 | |
1796 lbsr L1248 | |
1797 leas $02,s | |
1798 ldd #$001A | |
1799 pshs b,a | |
1800 leax >$040D,y | |
1801 pshs x | |
1802 ldd #$0001 | |
1803 lbsr L2681 | |
1804 leas $04,s | |
1805 ldd #$0005 | |
1806 lbra L1133 | |
1807 L10C8 pshs u | |
1808 ldd #$FFB8 | |
1809 lbsr L00FD | |
1810 ldd #$0008 | |
1811 pshs b,a | |
1812 ldd #$0004 | |
1813 lbsr L1248 | |
1814 leas $02,s | |
1815 ldd #$001C | |
1816 pshs b,a | |
1817 leax >$02E8,y | |
1818 pshs x | |
1819 ldd #$0001 | |
1820 lbsr L2681 | |
1821 leas $04,s | |
1822 ldd #$0009 | |
1823 pshs b,a | |
1824 ldd #$0005 | |
1825 lbsr L1248 | |
1826 leas $02,s | |
1827 ldd #$0012 | |
1828 pshs b,a | |
1829 leax >$0305,y | |
1830 pshs x | |
1831 ldd #$0001 | |
1832 lbsr L2681 | |
1833 leas $04,s | |
1834 ldd #$000A | |
1835 pshs b,a | |
1836 ldd #$0005 | |
1837 lbsr L1248 | |
1838 leas $02,s | |
1839 ldd #$0016 | |
1840 pshs b,a | |
1841 leax >$0318,y | |
1842 pshs x | |
1843 ldd #$0001 | |
1844 lbsr L2681 | |
1845 leas $04,s | |
1846 ldd #$000B | |
1847 L1133 pshs b,a | |
1848 ldd #$0008 | |
1849 lbsr L1248 | |
1850 leas $02,s | |
1851 ldd #$0010 | |
1852 pshs b,a | |
1853 leax >$032F,y | |
1854 lbra L138D | |
1855 L1149 pshs u | |
1856 ldd #$FFB8 | |
1857 lbsr L00FD | |
1858 lbsr L12C9 | |
1859 lbsr L0CE6 | |
1860 ldd #$0002 | |
1861 pshs b,a | |
1862 ldd #$0003 | |
1863 lbsr L1248 | |
1864 leas $02,s | |
1865 ldd #$0019 | |
1866 pshs b,a | |
1867 leax >$0340,y | |
1868 bra L1193 | |
1869 L116F pshs u | |
1870 ldd #$FFB8 | |
1871 lbsr L00FD | |
1872 lbsr L12C9 | |
1873 lbsr L0CE6 | |
1874 ldd #$0002 | |
1875 pshs b,a | |
1876 ldd #$0003 | |
1877 lbsr L1248 | |
1878 leas $02,s | |
1879 ldd #$0019 | |
1880 pshs b,a | |
1881 leax >$035A,y | |
1882 L1193 pshs x | |
1883 ldd #$0001 | |
1884 lbsr L2681 | |
1885 leas $04,s | |
1886 ldd #$0003 | |
1887 pshs b,a | |
1888 ldd #$0004 | |
1889 lbsr L1248 | |
1890 leas $02,s | |
1891 ldd #$0018 | |
1892 pshs b,a | |
1893 leax >$019A,y | |
1894 pshs x | |
1895 ldd #$0001 | |
1896 lbsr L2681 | |
1897 leas $04,s | |
1898 ldd #$0001 | |
1899 pshs b,a | |
1900 leax >$004F,y | |
1901 pshs x | |
1902 clra | |
1903 clrb | |
1904 lbsr L2659 | |
1905 lbra L165D | |
1906 L11D0 pshs u | |
1907 ldd #$FFB8 | |
1908 lbsr L00FD | |
1909 lbsr L12C9 | |
1910 lbsr L0CE6 | |
1911 ldd #$0002 | |
1912 pshs b,a | |
1913 ldd #$0005 | |
1914 lbsr L1248 | |
1915 leas $02,s | |
1916 ldd #$0016 | |
1917 pshs b,a | |
1918 leax >$0390,y | |
1919 lbra L138D | |
1920 L11F7 pshs u | |
1921 ldd #$FFB8 | |
1922 lbsr L00FD | |
1923 ldd #$0003 | |
1924 pshs b,a | |
1925 ldd #$0006 | |
1926 bsr L1248 | |
1927 leas $02,s | |
1928 ldd #$0014 | |
1929 pshs b,a | |
1930 leax >$03A7,y | |
1931 bra L1233 | |
1932 L1216 pshs u | |
1933 ldd #$FFB8 | |
1934 lbsr L00FD | |
1935 ldd #$0003 | |
1936 pshs b,a | |
1937 ldd #$0004 | |
1938 bsr L1248 | |
1939 leas $02,s | |
1940 ldd #$0018 | |
1941 pshs b,a | |
1942 leax >$03BC,y | |
1943 L1233 pshs x | |
1944 ldd #$0001 | |
1945 lbsr L2681 | |
1946 leas $04,s | |
1947 ldd #$0005 | |
1948 pshs b,a | |
1949 clra | |
1950 clrb | |
1951 bsr L1248 | |
1952 bra L1278 | |
1953 L1248 pshs u,b,a | |
1954 ldd #$FFB6 | |
1955 lbsr L00FD | |
1956 ldd #$0002 | |
1957 stb <u004F | |
1958 ldd ,s | |
1959 addd #$0020 | |
1960 addd <u004B | |
1961 stb <u0050 | |
1962 ldd $06,s | |
1963 addd #$0020 | |
1964 stb <u0051 | |
1965 ldd #$0003 | |
1966 pshs b,a | |
1967 leax >$004F,y | |
1968 pshs x | |
1969 ldd #$0001 | |
1970 lbsr L2681 | |
1971 leas $04,s | |
1972 L1278 leas $02,s | |
1973 puls pc,u | |
1974 L127C pshs u | |
1975 tfr d,u | |
1976 ldd #$FFB8 | |
1977 lbsr L00FD | |
1978 ldd <u003D | |
1979 pshs b,a | |
1980 ldd #$0018 | |
1981 bsr L1248 | |
1982 leas $02,s | |
1983 stu -$02,s | |
1984 beq L129B | |
1985 ldd #$0058 | |
1986 lbra L12ED | |
1987 L129B ldd #$0020 | |
1988 bra L12ED | |
1989 L12A0 pshs u | |
1990 tfr d,u | |
1991 ldd #$FFB8 | |
1992 lbsr L00FD | |
1993 ldd #$0005 | |
1994 stb <u004F | |
1995 stu -$02,s | |
1996 bne L12B8 | |
1997 ldd #$0020 | |
1998 bra L12BB | |
1999 L12B8 ldd #$0021 | |
2000 L12BB stb <u0050 | |
2001 ldd #$0002 | |
2002 pshs b,a | |
2003 leax >$004F,y | |
2004 lbra L138D | |
2005 L12C9 pshs u | |
2006 ldd #$FFB8 | |
2007 lbsr L00FD | |
2008 ldd #$000C | |
2009 bra L12ED | |
2010 L12D6 pshs u | |
2011 ldd #$FFB8 | |
2012 lbsr L00FD | |
2013 ldd #$0005 | |
2014 pshs b,a | |
2015 clra | |
2016 clrb | |
2017 lbsr L1248 | |
2018 leas $02,s | |
2019 ldd #$000B | |
2020 L12ED stb <u004F | |
2021 ldd #$0001 | |
2022 pshs b,a | |
2023 leax >$004F,y | |
2024 pshs x | |
2025 lbra L1392 | |
2026 L12FD pshs u | |
2027 ldd #$FFB7 | |
2028 lbsr L00FD | |
2029 leas -$01,s | |
2030 ldd #$0004 | |
2031 stb ,s | |
2032 ldu #$0000 | |
2033 bra L132A | |
2034 L1311 pshs u | |
2035 clra | |
2036 clrb | |
2037 lbsr L1248 | |
2038 leas $02,s | |
2039 ldd #$0001 | |
2040 pshs b,a | |
2041 leax $02,s | |
2042 pshs x | |
2043 lbsr L2681 | |
2044 leas $04,s | |
2045 leau u0001,u | |
2046 L132A cmpu #$0003 | |
2047 ble L1311 | |
2048 leas $01,s | |
2049 puls pc,u | |
2050 L1334 pshs u | |
2051 ldd #$FFB8 | |
2052 lbsr L00FD | |
2053 ldd #$0007 | |
2054 stb <u004F | |
2055 ldd #$0001 | |
2056 pshs b,a | |
2057 leax >$004F,y | |
2058 pshs x | |
2059 ldd #$0002 | |
2060 bra L1392 | |
2061 L1351 pshs u | |
2062 tfr d,u | |
2063 ldd #$FFB8 | |
2064 lbsr L00FD | |
2065 pshs u | |
2066 ldd #$0003 | |
2067 lbsr L1248 | |
2068 leas $02,s | |
2069 ldd #$0002 | |
2070 pshs b,a | |
2071 leax >$0001,y | |
2072 bra L138D | |
2073 L1370 pshs u | |
2074 tfr d,u | |
2075 ldd #$FFB8 | |
2076 lbsr L00FD | |
2077 pshs u | |
2078 ldd #$0003 | |
2079 lbsr L1248 | |
2080 leas $02,s | |
2081 ldd #$0002 | |
2082 pshs b,a | |
2083 leax >$0004,y | |
2084 L138D pshs x | |
2085 ldd #$0001 | |
2086 L1392 lbsr L2681 | |
2087 lbra L165D | |
2088 L1398 pshs u,b,a | |
2089 ldd #$FF67 | |
2090 lbsr L00FD | |
2091 leas <-$4D,s | |
2092 ldd #$0001 | |
2093 pshs b,a | |
2094 ldd <$4F,s | |
2095 lbsr L25E1 | |
2096 leas $02,s | |
2097 std <$49,s | |
2098 cmpd #$FFFF | |
2099 bne L13CC | |
2100 ldd #$0014 | |
2101 pshs b,a | |
2102 leax >L16D3,pcr | |
2103 tfr x,d | |
2104 lbsr L1661 | |
2105 leas $02,s | |
2106 lbra L1596 | |
2107 L13CC lbsr L12FD | |
2108 clra | |
2109 clrb | |
2110 std <$47,s | |
2111 std <$45,s | |
2112 pshs b,a | |
2113 lbsr L1248 | |
2114 leas $02,s | |
2115 ldd <u0041 | |
2116 lbeq L154F | |
2117 ldd <$53,s | |
2118 addd #$FFFF | |
2119 pshs b,a | |
2120 ldd #$0064 | |
2121 lbsr L28C5 | |
2122 std <$41,s | |
2123 clra | |
2124 clrb | |
2125 pshs b,a | |
2126 ldd <$43,s | |
2127 lbsr L28AC | |
2128 ldd $02,x | |
2129 pshs b,a | |
2130 ldd ,x | |
2131 pshs b,a | |
2132 ldd <$4F,s | |
2133 lbsr L26AA | |
2134 leas $06,s | |
2135 ldd #$0001 | |
2136 pshs b,a | |
2137 ldd #$0023 | |
2138 pshs b,a | |
2139 clra | |
2140 clrb | |
2141 pshs b,a | |
2142 ldd <$4F,s | |
2143 lbsr L26AA | |
2144 leas $06,s | |
2145 ldd #$0041 | |
2146 pshs b,a | |
2147 leax $02,s | |
2148 pshs x | |
2149 ldd <$4D,s | |
2150 lbsr L266F | |
2151 leas $04,s | |
2152 leax ,s | |
2153 tfr x,d | |
2154 lbsr L240A | |
2155 pshs b,a | |
2156 leax $02,s | |
2157 pshs x | |
2158 ldd #$0001 | |
2159 lbsr L2696 | |
2160 leas $04,s | |
2161 bra L1455 | |
2162 L144D leas <-$4F,x | |
2163 L1450 ldb <$4C,s | |
2164 bne L145B | |
2165 L1455 lbsr L161C | |
2166 lbra L1505 | |
2167 L145B ldb <$4C,s | |
2168 cmpb #$0D | |
2169 bne L14B9 | |
2170 ldd <$47,s | |
2171 addd #$0001 | |
2172 std <$47,s | |
2173 cmpd #$0002 | |
2174 ble L14AA | |
2175 ldd #$0001 | |
2176 pshs b,a | |
2177 leax <$4E,s | |
2178 pshs x | |
2179 ldd <$4D,s | |
2180 lbsr L2659 | |
2181 leas $04,s | |
2182 std <$41,s | |
2183 lble L152F | |
2184 lbsr L15A1 | |
2185 std <$41,s | |
2186 cmpd #$0002 | |
2187 lbeq L1505 | |
2188 clra | |
2189 clrb | |
2190 std <$47,s | |
2191 pshs b,a | |
2192 std <$47,s | |
2193 lbsr L1248 | |
2194 leas $02,s | |
2195 lbra L1529 | |
2196 L14AA pshs b,a | |
2197 clra | |
2198 clrb | |
2199 std <$47,s | |
2200 lbsr L1248 | |
2201 leas $02,s | |
2202 lbra L154F | |
2203 L14B9 ldd <$45,s | |
2204 addd #$0001 | |
2205 std <$45,s | |
2206 subd #$0001 | |
2207 cmpd #$0020 | |
2208 lble L1540 | |
2209 ldd <$47,s | |
2210 addd #$0001 | |
2211 std <$47,s | |
2212 cmpd #$0002 | |
2213 ble L1534 | |
2214 ldb <$4C,s | |
2215 stb <$4B,s | |
2216 ldd #$0001 | |
2217 pshs b,a | |
2218 leax <$4E,s | |
2219 pshs x | |
2220 ldd <$4D,s | |
2221 lbsr L2659 | |
2222 leas $04,s | |
2223 std <$41,s | |
2224 ble L152F | |
2225 lbsr L15A1 | |
2226 std <$41,s | |
2227 cmpd #$0002 | |
2228 bne L150B | |
2229 L1505 leax <$4F,s | |
2230 lbra L158D | |
2231 L150B clra | |
2232 clrb | |
2233 std <$47,s | |
2234 pshs b,a | |
2235 std <$47,s | |
2236 lbsr L1248 | |
2237 leas $02,s | |
2238 ldd #$0001 | |
2239 pshs b,a | |
2240 leax <$4D,s | |
2241 pshs x | |
2242 lbsr L2681 | |
2243 leas $04,s | |
2244 L1529 leax <$4F,s | |
2245 lbra L144D | |
2246 L152F leax <$4F,s | |
2247 bra L1585 | |
2248 L1534 pshs b,a | |
2249 clra | |
2250 clrb | |
2251 std <$47,s | |
2252 lbsr L1248 | |
2253 leas $02,s | |
2254 L1540 ldd #$0001 | |
2255 pshs b,a | |
2256 leax <$4E,s | |
2257 pshs x | |
2258 lbsr L2681 | |
2259 leas $04,s | |
2260 L154F ldd #$0001 | |
2261 pshs b,a | |
2262 leax <$4E,s | |
2263 pshs x | |
2264 ldd <$4D,s | |
2265 lbsr L2659 | |
2266 leas $04,s | |
2267 std <$41,s | |
2268 lbgt L1450 | |
2269 ldd <$41,s | |
2270 beq L1588 | |
2271 ldd #$0017 | |
2272 pshs b,a | |
2273 leax >L16E8,pcr | |
2274 tfr x,d | |
2275 lbsr L1661 | |
2276 leas $02,s | |
2277 lbsr L12FD | |
2278 lbsr L0D27 | |
2279 bra L1588 | |
2280 L1585 leas <-$4F,x | |
2281 L1588 lbsr L161C | |
2282 bra L1590 | |
2283 L158D leas <-$4F,x | |
2284 L1590 ldd <$49,s | |
2285 lbsr L25EE | |
2286 L1596 lbsr L12FD | |
2287 lbsr L0D27 | |
2288 leas <$4F,s | |
2289 puls pc,u | |
2290 L15A1 pshs u | |
2291 ldd #$FFB8 | |
2292 lbsr L00FD | |
2293 ldd <u0043 | |
2294 beq L15B2 | |
2295 ldd #$000F | |
2296 bra L15B5 | |
2297 L15B2 ldd #$0003 | |
2298 L15B5 pshs b,a | |
2299 ldd #$0004 | |
2300 lbsr L1248 | |
2301 leas $02,s | |
2302 ldd #$0018 | |
2303 pshs b,a | |
2304 leax >$0181,y | |
2305 pshs x | |
2306 ldd #$0001 | |
2307 lbsr L2681 | |
2308 leas $04,s | |
2309 L15D2 ldd #$0001 | |
2310 pshs b,a | |
2311 leax >$004F,y | |
2312 pshs x | |
2313 clra | |
2314 clrb | |
2315 lbsr L2659 | |
2316 leas $04,s | |
2317 ldb <u004F | |
2318 sex | |
2319 tfr d,x | |
2320 bra L1600 | |
2321 L15EB lbsr L12FD | |
2322 ldd #$0001 | |
2323 puls pc,u | |
2324 L15F3 lbsr L12FD | |
2325 ldd #$0002 | |
2326 puls pc,u | |
2327 L15FB lbsr L1334 | |
2328 bra L15D2 | |
2329 L1600 cmpx #$004D | |
2330 beq L15EB | |
2331 cmpx #$006D | |
2332 lbeq L15EB | |
2333 cmpx #$0043 | |
2334 beq L15F3 | |
2335 cmpx #$0063 | |
2336 lbeq L15F3 | |
2337 bra L15FB | |
2338 puls pc,u | |
2339 L161C pshs u | |
2340 ldd #$FFB8 | |
2341 lbsr L00FD | |
2342 ldd <u0043 | |
2343 beq L162D | |
2344 ldd #$000F | |
2345 bra L1630 | |
2346 L162D ldd #$0003 | |
2347 L1630 pshs b,a | |
2348 ldd #$0004 | |
2349 lbsr L1248 | |
2350 leas $02,s | |
2351 ldd #$0018 | |
2352 pshs b,a | |
2353 leax >$019A,y | |
2354 pshs x | |
2355 ldd #$0001 | |
2356 lbsr L2681 | |
2357 leas $04,s | |
2358 ldd #$0001 | |
2359 pshs b,a | |
2360 leax >$004F,y | |
2361 pshs x | |
2362 clra | |
2363 clrb | |
2364 lbsr L2659 | |
2365 L165D leas $04,s | |
2366 puls pc,u | |
2367 L1661 pshs u | |
2368 tfr d,u | |
2369 ldd #$FFB8 | |
2370 lbsr L00FD | |
2371 lbsr L1334 | |
2372 lbsr L12FD | |
2373 clra | |
2374 clrb | |
2375 pshs b,a | |
2376 lbsr L1248 | |
2377 leas $02,s | |
2378 ldd $04,s | |
2379 pshs b,a | |
2380 pshs u | |
2381 ldd #$0002 | |
2382 lbsr L2681 | |
2383 leas $04,s | |
2384 lbsr L161C | |
2385 puls pc,u | |
2386 L168D pshs u | |
2387 tfr d,u | |
2388 ldd #$FFB8 | |
2389 lbsr L00FD | |
2390 lbsr L1334 | |
2391 lbsr L12C9 | |
2392 clra | |
2393 clrb | |
2394 pshs b,a | |
2395 lbsr L1248 | |
2396 leas $02,s | |
2397 ldd #$0008 | |
2398 pshs b,a | |
2399 leax >L1700,pcr | |
2400 pshs x | |
2401 ldd #$0002 | |
2402 lbsr L2681 | |
2403 leas $04,s | |
2404 ldd $04,s | |
2405 pshs b,a | |
2406 pshs u | |
2407 ldd #$0002 | |
2408 lbsr L2681 | |
2409 leas $04,s | |
2410 lbsr L0258 | |
2411 ldd >$0597,y | |
2412 lbsr L2844 | |
2413 puls pc,u | |
2414 | |
2415 L16D3 fcc "Can't open help file" | |
2416 fcb $00 | |
2417 L16E8 fcc "Error reading help file" | |
2418 fcb $00 | |
2419 L1700 fcc "CONFIG: " | |
2420 fcb $00 | |
2421 | |
2422 L1709 pshs u | |
2423 ldd #$FFBA | |
2424 lbsr L00FD | |
2425 lbsr L197A | |
2426 ldd #$0003 | |
2427 pshs b,a | |
2428 leax >$0007,y | |
2429 tfr x,d | |
2430 lbsr L2600 | |
2431 leas $02,s | |
2432 std <u003F | |
2433 cmpd #$FFFF | |
2434 bne L173C | |
2435 ldd #$0018 | |
2436 pshs b,a | |
2437 leax >L19B0,pcr | |
2438 tfr x,d | |
2439 lbsr L168D | |
2440 leas $02,s | |
2441 L173C lbsr L1871 | |
2442 bsr L1754 | |
2443 bsr L1762 | |
2444 bsr L1770 | |
2445 lbsr L17DA | |
2446 lbsr L187F | |
2447 ldd <u003F | |
2448 lbsr L25EE | |
2449 bsr L1782 | |
2450 puls pc,u | |
2451 L1754 pshs u | |
2452 ldd #$FFBC | |
2453 lbsr L00FD | |
2454 leax >$0010,y | |
2455 bra L177C | |
2456 L1762 pshs u | |
2457 ldd #$FFBC | |
2458 lbsr L00FD | |
2459 leax >$0017,y | |
2460 bra L177C | |
2461 L1770 pshs u | |
2462 ldd #$FFBC | |
2463 lbsr L00FD | |
2464 leax >$001E,y | |
2465 L177C tfr x,d | |
2466 bsr L17A7 | |
2467 puls pc,u | |
2468 L1782 pshs u | |
2469 ldd #$FFBC | |
2470 lbsr L00FD | |
2471 leax >$0029,y | |
2472 tfr x,d | |
2473 lbsr L1950 | |
2474 leax >$0033,y | |
2475 tfr x,d | |
2476 lbsr L1950 | |
2477 leax >$0031,y | |
2478 tfr x,d | |
2479 lbsr L1950 | |
2480 puls pc,u | |
2481 L17A7 pshs u,b,a | |
2482 ldd #$FFB6 | |
2483 lbsr L00FD | |
2484 ldu <u0031 | |
2485 bra L17D3 | |
2486 L17B3 ldd ,s | |
2487 pshs b,a | |
2488 pshs u | |
2489 ldd #$0002 | |
2490 addd ,s++ | |
2491 lbsr L0B5E | |
2492 std ,s++ | |
2493 beq L17D0 | |
2494 ldd ,u | |
2495 beq L17D0 | |
2496 tfr u,d | |
2497 bsr L17F7 | |
2498 lbra L194C | |
2499 L17D0 ldu <u0023,u | |
2500 L17D3 stu -$02,s | |
2501 bne L17B3 | |
2502 lbra L194C | |
2503 L17DA pshs u | |
2504 ldd #$FFBC | |
2505 lbsr L00FD | |
2506 ldu <u0031 | |
2507 bra L17F1 | |
2508 L17E6 ldd ,u | |
2509 beq L17EE | |
2510 tfr u,d | |
2511 bsr L17F7 | |
2512 L17EE ldu <u0023,u | |
2513 L17F1 stu -$02,s | |
2514 bne L17E6 | |
2515 puls pc,u | |
2516 L17F7 pshs u,b,a | |
2517 ldd #$FFB6 | |
2518 lbsr L00FD | |
2519 leas -$02,s | |
2520 ldd $02,s | |
2521 addd #$0002 | |
2522 lbsr L191E | |
2523 clra | |
2524 clrb | |
2525 std [<$02,s] | |
2526 ldd <u0033 | |
2527 lbra L1866 | |
2528 L1813 ldx ,s | |
2529 ldd <$21,x | |
2530 cmpd $02,s | |
2531 bne L1861 | |
2532 ldd ,x | |
2533 beq L1861 | |
2534 tfr x,d | |
2535 addd #$0002 | |
2536 lbsr L191E | |
2537 ldd ,s | |
2538 addd #$0002 | |
2539 lbsr L189D | |
2540 std -$02,s | |
2541 beq L1838 | |
2542 lbsr L198D | |
2543 L1838 clra | |
2544 clrb | |
2545 std [,s] | |
2546 ldu <u0029 | |
2547 bra L185D | |
2548 L1840 ldd <u0021,u | |
2549 cmpd ,s | |
2550 bne L185A | |
2551 ldd ,u | |
2552 beq L185A | |
2553 pshs u | |
2554 ldd #$0002 | |
2555 addd ,s++ | |
2556 lbsr L191E | |
2557 clra | |
2558 clrb | |
2559 std ,u | |
2560 L185A ldu <u0023,u | |
2561 L185D stu -$02,s | |
2562 bne L1840 | |
2563 L1861 ldx ,s | |
2564 ldd <$23,x | |
2565 L1866 std ,s | |
2566 ldd ,s | |
2567 lbne L1813 | |
2568 lbra L1976 | |
2569 L1871 pshs u | |
2570 ldd #$FFBC | |
2571 lbsr L00FD | |
2572 leax >L19C9,pcr | |
2573 bra L1896 | |
2574 L187F pshs u | |
2575 ldd #$FFBC | |
2576 lbsr L00FD | |
2577 bsr L18CE | |
2578 leax >L19CF,pcr | |
2579 tfr x,d | |
2580 lbsr L191E | |
2581 leax >L19D5,pcr | |
2582 L1896 tfr x,d | |
2583 lbsr L191E | |
2584 puls pc,u | |
2585 L189D pshs u,b,a | |
2586 ldd #$FFB8 | |
2587 lbsr L00FD | |
2588 leax >L19DB,pcr | |
2589 pshs x | |
2590 ldd $02,s | |
2591 lbsr L0B5E | |
2592 std ,s++ | |
2593 bne L18C3 | |
2594 leax >L19E0,pcr | |
2595 pshs x | |
2596 ldd $02,s | |
2597 lbsr L0B5E | |
2598 std ,s++ | |
2599 beq L18C9 | |
2600 L18C3 ldd #$0001 | |
2601 lbra L194C | |
2602 L18C9 clra | |
2603 clrb | |
2604 lbra L194C | |
2605 L18CE pshs u | |
2606 ldd #$FFB7 | |
2607 lbsr L00FD | |
2608 leas -$01,s | |
2609 lbsr L105A | |
2610 L18DB ldd #$0001 | |
2611 pshs b,a | |
2612 leax $02,s | |
2613 pshs x | |
2614 clra | |
2615 clrb | |
2616 lbsr L2659 | |
2617 leas $04,s | |
2618 ldb ,s | |
2619 sex | |
2620 tfr d,x | |
2621 bra L1907 | |
2622 L18F2 leax >L19E5,pcr | |
2623 bra L18FC | |
2624 L18F8 leax >L19F0,pcr | |
2625 L18FC tfr x,d | |
2626 bsr L191E | |
2627 bra L191A | |
2628 L1902 lbsr L1334 | |
2629 bra L18DB | |
2630 L1907 cmpx #$000D | |
2631 beq L18F2 | |
2632 cmpx #$0031 | |
2633 lbeq L18F2 | |
2634 cmpx #$0032 | |
2635 beq L18F8 | |
2636 bra L1902 | |
2637 L191A leas $01,s | |
2638 puls pc,u | |
2639 L191E pshs u | |
2640 tfr d,u | |
2641 ldd #$FFB6 | |
2642 lbsr L00FD | |
2643 leas -$02,s | |
2644 stu ,s | |
2645 bra L1935 | |
2646 L192E ldd ,s | |
2647 addd #$0001 | |
2648 std ,s | |
2649 L1935 ldb [,s] | |
2650 bne L192E | |
2651 ldd #$000D | |
2652 stb [,s] | |
2653 ldd #$001D | |
2654 pshs b,a | |
2655 pshs u | |
2656 ldd <u003F | |
2657 lbsr L2696 | |
2658 leas $04,s | |
2659 L194C leas $02,s | |
2660 puls pc,u | |
2661 L1950 pshs u,b,a | |
2662 ldd #$FFBC | |
2663 lbsr L00FD | |
2664 leas -$02,s | |
2665 ldu [<$02,s] | |
2666 bra L196D | |
2667 L195F ldd <u0023,u | |
2668 std ,s | |
2669 ldd <u0035 | |
2670 std <u0023,u | |
2671 stu <u0035 | |
2672 ldu ,s | |
2673 L196D stu -$02,s | |
2674 bne L195F | |
2675 clra | |
2676 clrb | |
2677 std [<$02,s] | |
2678 L1976 leas $04,s | |
2679 puls pc,u | |
2680 L197A pshs u | |
2681 ldd #$FFBC | |
2682 lbsr L00FD | |
2683 leax >$0007,y | |
2684 tfr x,d | |
2685 lbsr L2646 | |
2686 puls pc,u | |
2687 L198D pshs u | |
2688 ldd #$FFBA | |
2689 lbsr L00FD | |
2690 ldu <u002B | |
2691 bra L19AA | |
2692 L1999 ldd ,u | |
2693 beq L19A7 | |
2694 pshs u | |
2695 ldd #$0002 | |
2696 addd ,s++ | |
2697 lbsr L191E | |
2698 L19A7 ldu <u0023,u | |
2699 L19AA stu -$02,s | |
2700 bne L1999 | |
2701 puls pc,u | |
2702 L19B0 fcc "Can't open bootlist file" | |
2703 fcb $00 | |
2704 L19C9 fcc "IOMan" | |
2705 fcb $00 | |
2706 L19CF fcc "SysGo" | |
2707 fcb $00 | |
2708 L19D5 fcc "Shell" | |
2709 fcb $00 | |
2710 L19DB fcc "CCIO" | |
2711 fcb $00 | |
2712 L19E0 fcc "ccio" | |
2713 fcb $00 | |
2714 L19E5 fcc "Clock.60hz" | |
2715 fcb $00 | |
2716 L19F0 fcc "Clock.50hz" | |
2717 fcb $00 | |
2718 L19FB fcb $34,$40 | |
2719 ldd #$FFAE | |
2720 lbsr L00FD | |
2721 leas -$04,s | |
2722 lbsr L12C9 | |
2723 ldd <u0047 | |
2724 bne L1A23 | |
2725 lbsr L0E0E | |
2726 ldd #$0001 | |
2727 pshs b,a | |
2728 leax >$004F,y | |
2729 pshs x | |
2730 clra | |
2731 clrb | |
2732 lbsr L2659 | |
2733 leas $04,s | |
2734 bra L1A26 | |
2735 L1A23 lbsr L02AA | |
2736 L1A26 lbsr L0E6F | |
2737 leax >$008E,y | |
2738 tfr x,d | |
2739 lbsr L2715 | |
2740 ldd <u0047 | |
2741 beq L1A6C | |
2742 clra | |
2743 clrb | |
2744 pshs b,a | |
2745 ldd #$0001 | |
2746 pshs b,a | |
2747 pshs b,a | |
2748 leax >$04C2,y | |
2749 pshs x | |
2750 tfr x,d | |
2751 lbsr L240A | |
2752 pshs b,a | |
2753 leax >L1AD1,pcr | |
2754 tfr x,d | |
2755 lbsr L27FE | |
2756 leas $0A,s | |
2757 std $02,s | |
2758 cmpd #$FFFF | |
2759 bne L1AA7 | |
2760 ldd #$0019 | |
2761 pshs b,a | |
2762 leax >L1AD7,pcr | |
2763 bra L1AA0 | |
2764 L1A6C clra | |
2765 clrb | |
2766 pshs b,a | |
2767 ldd #$0001 | |
2768 pshs b,a | |
2769 pshs b,a | |
2770 leax >$04A2,y | |
2771 pshs x | |
2772 tfr x,d | |
2773 lbsr L240A | |
2774 pshs b,a | |
2775 leax >L1AF0,pcr | |
2776 tfr x,d | |
2777 lbsr L27FE | |
2778 leas $0A,s | |
2779 std $02,s | |
2780 cmpd #$FFFF | |
2781 bne L1AA7 | |
2782 ldd #$0019 | |
2783 pshs b,a | |
2784 leax >L1AF6,pcr | |
2785 L1AA0 tfr x,d | |
2786 lbsr L168D | |
2787 leas $02,s | |
2788 L1AA7 leax ,s | |
2789 tfr x,d | |
2790 lbsr L27C0 | |
2791 ldd ,s | |
2792 beq L1ABA | |
2793 lbsr L0258 | |
2794 ldd ,s | |
2795 lbsr L2844 | |
2796 L1ABA ldd <u0047 | |
2797 beq L1AC4 | |
2798 lbsr L02B8 | |
2799 lbsr L116F | |
2800 L1AC4 leax >L1B0F,pcr | |
2801 tfr x,d | |
2802 lbsr L2715 | |
2803 leas $04,s | |
2804 puls pc,u | |
2805 | |
2806 L1AD1 fcc "Shell" | |
2807 fcb $00 | |
2808 L1AD7 fcc "Can't execute the OS9Gen" | |
2809 fcb $00 | |
2810 L1AF0 fcc "Shell" | |
2811 fcb $00 | |
2812 L1AF6 fcc "Can't execute the OS9gen" | |
2813 fcb $00 | |
2814 | |
313 | 2815 L1B0F fcc "/dd" |
303 | 2816 fcb $00 |
2817 | |
2818 L1B13 pshs u | |
2819 ldd #$FFB5 | |
2820 lbsr L00FD | |
2821 leas -$03,s | |
2822 ldd #$0001 | |
2823 pshs b,a | |
2824 pshs b,a | |
2825 leax >L21D2,pcr | |
2826 tfr x,d | |
2827 lbsr L286B | |
2828 leas $04,s | |
2829 std ,s | |
2830 leax >$008E,y | |
2831 tfr x,d | |
2832 lbsr L2715 | |
2833 lbsr L0EBA | |
2834 L1B3D ldd #$0001 | |
2835 pshs b,a | |
2836 leax $04,s | |
2837 pshs x | |
2838 clra | |
2839 clrb | |
2840 lbsr L2659 | |
2841 leas $04,s | |
2842 ldb $02,s | |
2843 sex | |
2844 tfr d,x | |
2845 bra L1B73 | |
2846 L1B54 ldd #$0001 | |
2847 bra L1B5B | |
2848 L1B59 clra | |
2849 clrb | |
2850 L1B5B lbsr L1BBF | |
2851 bra L1BBB | |
2852 L1B60 lbsr L1BFE | |
2853 bra L1BBB | |
2854 L1B65 lbsr L1C74 | |
2855 lbsr L0EBA | |
2856 bra L1B3D | |
2857 L1B6D lbsr L1334 | |
2858 lbra L1B3D | |
2859 L1B73 cmpx #$004E | |
2860 beq L1BBB | |
2861 cmpx #$006E | |
2862 beq L1BBB | |
2863 cmpx #$0042 | |
2864 beq L1B54 | |
2865 cmpx #$0062 | |
2866 lbeq L1B54 | |
2867 cmpx #$0046 | |
2868 beq L1B59 | |
2869 cmpx #$0066 | |
2870 lbeq L1B59 | |
2871 cmpx #$0049 | |
2872 beq L1B60 | |
2873 cmpx #$0069 | |
2874 lbeq L1B60 | |
2875 cmpx #$003F | |
2876 beq L1B65 | |
2877 bra L1B6D | |
2878 ldd <u0047 | |
2879 beq L1BB2 | |
2880 lbsr L02B8 | |
2881 lbsr L116F | |
2882 L1BB2 leax >L21D7,pcr | |
2883 tfr x,d | |
2884 lbsr L2715 | |
2885 L1BBB leas $03,s | |
2886 puls pc,u | |
2887 L1BBF pshs u,b,a | |
2888 ldd #$FFBA | |
2889 lbsr L00FD | |
2890 ldd ,s | |
2891 lbsr L1E28 | |
2892 ldu <u0037 | |
2893 bra L1BD8 | |
2894 L1BD0 ldd #$0001 | |
2895 std ,u | |
2896 ldu <u0023,u | |
2897 L1BD8 stu -$02,s | |
2898 bne L1BD0 | |
2899 ldd <u0047 | |
2900 bne L1BE6 | |
2901 lbsr L0FD1 | |
2902 lbsr L0F9E | |
2903 L1BE6 lbsr L1E0B | |
2904 lbsr L1D1F | |
2905 lbsr L1F79 | |
2906 ldd ,s | |
2907 lbne L1D78 | |
2908 lbsr L1D7C | |
2909 lbsr L202A | |
2910 lbra L1D78 | |
2911 L1BFE pshs u | |
2912 ldd #$FFBC | |
2913 lbsr L00FD | |
2914 ldd #$0001 | |
2915 std <u0041 | |
2916 clra | |
2917 clrb | |
2918 lbsr L1E28 | |
2919 lbsr L02D1 | |
2920 ldd <u0047 | |
2921 bne L1C1D | |
2922 lbsr L0FD1 | |
2923 lbsr L0F9E | |
2924 L1C1D lbsr L1E0B | |
2925 lbsr L1D1F | |
2926 bsr L1C34 | |
2927 std -$02,s | |
2928 beq L1C2C | |
2929 lbsr L1D7C | |
2930 L1C2C lbsr L1F79 | |
2931 lbsr L202A | |
2932 puls pc,u | |
2933 L1C34 pshs u | |
2934 ldd #$FFB8 | |
2935 lbsr L00FD | |
2936 ldu <u0037 | |
2937 bra L1C6E | |
2938 L1C40 pshs u | |
2939 ldd #$0002 | |
2940 addd ,s++ | |
2941 lbsr L21B4 | |
2942 leax >L21DB,pcr | |
2943 pshs x | |
2944 pshs u | |
2945 ldd #$0002 | |
2946 addd ,s++ | |
2947 lbsr L2462 | |
2948 std ,s++ | |
2949 bne L1C6B | |
2950 ldd ,u | |
2951 beq L1C67 | |
2952 ldd #$0001 | |
2953 puls pc,u | |
2954 L1C67 clra | |
2955 clrb | |
2956 puls pc,u | |
2957 L1C6B ldu <u0023,u | |
2958 L1C6E stu -$02,s | |
2959 bne L1C40 | |
2960 puls pc,u | |
2961 L1C74 pshs u | |
2962 ldd #$FF96 | |
2963 lbsr L00FD | |
2964 leas <-$22,s | |
2965 ldd #$0001 | |
2966 std <u0043 | |
2967 pshs b,a | |
2968 leax >$04FC,y | |
2969 tfr x,d | |
2970 lbsr L25E1 | |
2971 leas $02,s | |
2972 std <$20,s | |
2973 cmpd #$FFFF | |
2974 bne L1CB3 | |
2975 ldd #$0014 | |
2976 pshs b,a | |
2977 leax >L21DF,pcr | |
2978 tfr x,d | |
2979 lbsr L1661 | |
2980 leas $02,s | |
2981 lbsr L12FD | |
2982 lbsr L0D27 | |
2983 lbra L1D1A | |
2984 L1CB3 lbsr L12C9 | |
2985 ldu #$0000 | |
2986 bra L1CF1 | |
2987 L1CBB ldd #$0020 | |
2988 pshs b,a | |
2989 leax $02,s | |
2990 pshs x | |
2991 ldd <$24,s | |
2992 lbsr L266F | |
2993 leas $04,s | |
2994 std -$02,s | |
2995 bne L1CD5 | |
2996 leax <$22,s | |
2997 bra L1D05 | |
2998 L1CD5 pshs u | |
2999 clra | |
3000 clrb | |
3001 lbsr L1248 | |
3002 leas $02,s | |
3003 ldd #$0020 | |
3004 pshs b,a | |
3005 leax $02,s | |
3006 pshs x | |
3007 ldd #$0001 | |
3008 lbsr L2696 | |
3009 leas $04,s | |
3010 leau u0001,u | |
3011 L1CF1 cmpu #$000E | |
3012 ble L1CBB | |
3013 lbsr L15A1 | |
3014 cmpd #$0002 | |
3015 bne L1CB3 | |
3016 leax <$22,s | |
3017 bra L1D0D | |
3018 L1D05 leas <-$22,x | |
3019 lbsr L161C | |
3020 bra L1D10 | |
3021 L1D0D leas <-$22,x | |
3022 L1D10 ldd <$20,s | |
3023 lbsr L25EE | |
3024 clra | |
3025 clrb | |
3026 std <u0043 | |
3027 L1D1A leas <$22,s | |
3028 puls pc,u | |
3029 L1D1F pshs u | |
3030 ldd #$FFBA | |
3031 lbsr L00FD | |
3032 ldd <u0047 | |
3033 beq L1D2E | |
3034 lbsr L1149 | |
3035 L1D2E ldd #$007F | |
3036 pshs b,a | |
3037 leax >$04E6,y | |
3038 tfr x,d | |
3039 lbsr L25F6 | |
3040 leas $02,s | |
3041 tfr d,u | |
3042 stu -$02,s | |
3043 beq L1D54 | |
3044 ldd #$001B | |
3045 pshs b,a | |
3046 leax >L21F4,pcr | |
3047 tfr x,d | |
3048 lbsr L168D | |
3049 leas $02,s | |
3050 L1D54 ldd #$007F | |
3051 pshs b,a | |
3052 leax >$04EB,y | |
3053 tfr x,d | |
3054 lbsr L25F6 | |
3055 leas $02,s | |
3056 tfr d,u | |
3057 stu -$02,s | |
3058 beq L1D7A | |
3059 ldd #$001A | |
3060 pshs b,a | |
3061 leax >L2210,pcr | |
3062 tfr x,d | |
3063 lbsr L168D | |
3064 L1D78 leas $02,s | |
3065 L1D7A puls pc,u | |
3066 L1D7C pshs u | |
3067 ldd #$FFBA | |
3068 lbsr L00FD | |
3069 ldd <u0047 | |
3070 beq L1D8B | |
3071 lbsr L1149 | |
3072 L1D8B ldd #$007F | |
3073 pshs b,a | |
3074 leax >$04EF,y | |
3075 tfr x,d | |
3076 lbsr L25F6 | |
3077 leas $02,s | |
3078 tfr d,u | |
3079 stu -$02,s | |
3080 beq L1DB1 | |
3081 ldd #$001B | |
3082 pshs b,a | |
3083 leax >L222B,pcr | |
3084 tfr x,d | |
3085 lbsr L168D | |
3086 leas $02,s | |
3087 L1DB1 leax >$04EF,y | |
3088 tfr x,d | |
3089 lbsr L2715 | |
3090 leax >L2258,pcr | |
3091 pshs x | |
3092 leax >L2247,pcr | |
3093 tfr x,d | |
3094 lbsr L2066 | |
3095 leas $02,s | |
3096 leax >L2271,pcr | |
3097 pshs x | |
3098 leax >L2260,pcr | |
3099 tfr x,d | |
3100 lbsr L2066 | |
3101 leas $02,s | |
3102 leax >L228A,pcr | |
3103 pshs x | |
3104 leax >L2279,pcr | |
3105 tfr x,d | |
3106 lbsr L2066 | |
3107 leas $02,s | |
3108 leax >L22A3,pcr | |
3109 pshs x | |
3110 leax >L2292,pcr | |
3111 tfr x,d | |
3112 lbsr L2066 | |
3113 leas $02,s | |
3114 leax >L22BD,pcr | |
3115 pshs x | |
3116 leax >L22AB,pcr | |
3117 lbra L2055 | |
3118 L1E0B pshs u | |
3119 ldd #$FFBC | |
3120 lbsr L00FD | |
3121 ldd <u0047 | |
3122 beq L1E21 | |
3123 lbsr L02AA | |
3124 leax >L22C6,pcr | |
3125 lbra L205F | |
3126 L1E21 leax >L22CA,pcr | |
3127 lbra L205F | |
3128 L1E28 pshs u,b,a | |
3129 ldd #$FFB0 | |
3130 lbsr L00FD | |
3131 leas -$06,s | |
3132 ldd #$0001 | |
3133 pshs b,a | |
3134 leax >$04F4,y | |
3135 tfr x,d | |
3136 lbsr L25E1 | |
3137 leas $02,s | |
3138 std $04,s | |
3139 cmpd #$FFFF | |
3140 bne L1E5A | |
3141 ldd #$0018 | |
3142 pshs b,a | |
3143 leax >L22CE,pcr | |
3144 tfr x,d | |
3145 lbsr L168D | |
3146 leas $02,s | |
3147 L1E5A clra | |
3148 clrb | |
3149 std <u0039 | |
3150 L1E5E ldd #$0064 | |
3151 pshs b,a | |
3152 ldd >$04E4,y | |
3153 pshs b,a | |
3154 ldd $08,s | |
3155 lbsr L2659 | |
3156 leas $04,s | |
3157 std $02,s | |
3158 bgt L1E84 | |
3159 ldd #$001B | |
3160 pshs b,a | |
3161 leax >L22E7,pcr | |
3162 tfr x,d | |
3163 lbsr L168D | |
3164 leas $02,s | |
3165 L1E84 ldd $06,s | |
3166 beq L1EB4 | |
3167 ldx >$04E4,y | |
3168 ldd $0A,x | |
3169 beq L1EB2 | |
3170 clra | |
3171 clrb | |
3172 pshs b,a | |
3173 tfr x,d | |
3174 lbsr L0A9C | |
3175 leas $02,s | |
3176 std <u0037 | |
3177 ldd #$0001 | |
3178 std [>$0037,y] | |
3179 ldd <u0039 | |
3180 addd #$0001 | |
3181 std <u0039 | |
3182 ldx <u0037 | |
3183 std <$1F,x | |
3184 bra L1EDE | |
3185 L1EB2 bra L1E5E | |
3186 L1EB4 clra | |
3187 clrb | |
3188 pshs b,a | |
3189 ldd >$04E4,y | |
3190 lbsr L0A9C | |
3191 leas $02,s | |
3192 std <u0037 | |
3193 ldd <u0039 | |
3194 addd #$0001 | |
3195 std <u0039 | |
3196 ldx <u0037 | |
3197 std <$1F,x | |
3198 ldx >$04E4,y | |
3199 ldd $0A,x | |
3200 beq L1EDE | |
3201 ldd #$0001 | |
3202 std [>$0037,y] | |
3203 L1EDE ldd <u0037 | |
3204 std ,s | |
3205 lbra L1F45 | |
3206 L1EE5 ldd $06,s | |
3207 beq L1F18 | |
3208 ldx >$04E4,y | |
3209 ldd $0A,x | |
3210 lbeq L1F45 | |
3211 clra | |
3212 clrb | |
3213 pshs b,a | |
3214 tfr x,d | |
3215 lbsr L0A9C | |
3216 leas $02,s | |
3217 ldx ,s | |
3218 std <$23,x | |
3219 std ,s | |
3220 ldd <u0039 | |
3221 addd #$0001 | |
3222 std <u0039 | |
3223 ldx ,s | |
3224 std <$1F,x | |
3225 ldd #$0001 | |
3226 std ,x | |
3227 bra L1F45 | |
3228 L1F18 clra | |
3229 clrb | |
3230 pshs b,a | |
3231 ldd >$04E4,y | |
3232 lbsr L0A9C | |
3233 leas $02,s | |
3234 ldx ,s | |
3235 std <$23,x | |
3236 std ,s | |
3237 ldd <u0039 | |
3238 addd #$0001 | |
3239 std <u0039 | |
3240 ldx ,s | |
3241 std <$1F,x | |
3242 ldx >$04E4,y | |
3243 ldd $0A,x | |
3244 beq L1F45 | |
3245 ldd #$0001 | |
3246 std [,s] | |
3247 L1F45 ldd #$0064 | |
3248 pshs b,a | |
3249 ldd >$04E4,y | |
3250 pshs b,a | |
3251 ldd $08,s | |
3252 lbsr L2659 | |
3253 leas $04,s | |
3254 std $02,s | |
3255 lbgt L1EE5 | |
3256 ldd $02,s | |
3257 cmpd #$FFFF | |
3258 bne L1F75 | |
3259 ldd #$001B | |
3260 pshs b,a | |
3261 leax >L2303,pcr | |
3262 tfr x,d | |
3263 lbsr L168D | |
3264 leas $02,s | |
3265 L1F75 leas $08,s | |
3266 puls pc,u | |
3267 L1F79 pshs u | |
3268 ldd #$FF84 | |
3269 lbsr L00FD | |
3270 leas <-$36,s | |
3271 leax >L232B,pcr | |
3272 pshs x | |
3273 leax >L231F,pcr | |
3274 tfr x,d | |
3275 lbsr L2066 | |
3276 leas $02,s | |
3277 leax >$04E6,y | |
3278 tfr x,d | |
3279 lbsr L2715 | |
3280 ldu <u0037 | |
3281 bra L1FF6 | |
3282 L1FA2 ldd ,u | |
3283 beq L1FF3 | |
3284 pshs u | |
3285 ldd #$0002 | |
3286 addd ,s++ | |
3287 lbsr L21B4 | |
3288 leax >L2333,pcr | |
3289 pshs x | |
3290 leax <$1A,s | |
3291 tfr x,d | |
3292 lbsr L241D | |
3293 leas $02,s | |
3294 pshs u | |
3295 ldd #$0002 | |
3296 addd ,s++ | |
3297 pshs b,a | |
3298 leax <$1A,s | |
3299 tfr x,d | |
3300 lbsr L2435 | |
3301 leas $02,s | |
3302 pshs u | |
3303 ldd #$0002 | |
3304 addd ,s++ | |
3305 pshs b,a | |
3306 leax $06,s | |
3307 tfr x,d | |
3308 lbsr L241D | |
3309 leas $02,s | |
3310 leax $04,s | |
3311 pshs x | |
3312 leax <$1A,s | |
3313 tfr x,d | |
3314 lbsr L2066 | |
3315 leas $02,s | |
3316 L1FF3 ldu <u0023,u | |
3317 L1FF6 stu -$02,s | |
3318 bne L1FA2 | |
3319 leax >$00B6,y | |
3320 tfr x,d | |
3321 lbsr L2715 | |
3322 leax >$04EB,y | |
3323 tfr x,d | |
3324 lbsr L2715 | |
3325 leax >L234C,pcr | |
3326 pshs x | |
3327 leax >L233D,pcr | |
3328 tfr x,d | |
3329 bsr L2066 | |
3330 leas $02,s | |
3331 leax >$00B6,y | |
3332 tfr x,d | |
3333 lbsr L2715 | |
3334 leas <$36,s | |
3335 puls pc,u | |
3336 L202A pshs u | |
3337 ldd #$FFBA | |
3338 lbsr L00FD | |
3339 leax >$04EB,y | |
3340 tfr x,d | |
3341 lbsr L2715 | |
3342 leax >L2364,pcr | |
3343 pshs x | |
3344 leax >L2353,pcr | |
3345 tfr x,d | |
3346 bsr L2066 | |
3347 leas $02,s | |
3348 leax >L237A,pcr | |
3349 pshs x | |
3350 leax >L236D,pcr | |
3351 L2055 tfr x,d | |
3352 bsr L2066 | |
3353 leas $02,s | |
3354 leax >$00B6,y | |
3355 L205F tfr x,d | |
3356 lbsr L2715 | |
3357 puls pc,u | |
3358 L2066 pshs u | |
3359 tfr d,u | |
3360 ldd #$FF72 | |
3361 lbsr L00FD | |
3362 leas <-$40,s | |
3363 ldd <u0047 | |
3364 lbeq L20E9 | |
3365 lbsr L0FD1 | |
3366 pshs u | |
3367 leax $02,s | |
3368 tfr x,d | |
3369 lbsr L241D | |
3370 leas $02,s | |
3371 leax >L237F,pcr | |
3372 pshs x | |
3373 leax $02,s | |
3374 tfr x,d | |
3375 lbsr L2435 | |
3376 leas $02,s | |
3377 pshs u | |
3378 leax $02,s | |
3379 tfr x,d | |
3380 lbsr L2435 | |
3381 leas $02,s | |
3382 leax >L2382,pcr | |
3383 pshs x | |
3384 leax $02,s | |
3385 tfr x,d | |
3386 lbsr L2435 | |
3387 leas $02,s | |
3388 ldd #$003C | |
3389 pshs b,a | |
3390 ldd #$0001 | |
3391 pshs b,a | |
3392 pshs b,a | |
3393 leax $06,s | |
3394 pshs x | |
3395 tfr x,d | |
3396 lbsr L240A | |
3397 pshs b,a | |
3398 leax >L2387,pcr | |
3399 tfr x,d | |
3400 lbsr L27FE | |
3401 leas $0A,s | |
3402 std <$3E,s | |
3403 cmpd #$FFFF | |
3404 lbne L215B | |
3405 ldd #$000A | |
3406 pshs b,a | |
3407 leax >L238C,pcr | |
3408 lbra L2154 | |
3409 L20E9 pshs u | |
3410 leax $02,s | |
3411 tfr x,d | |
3412 lbsr L241D | |
3413 leas $02,s | |
3414 leax >L23A0,pcr | |
3415 pshs x | |
3416 leax $02,s | |
3417 tfr x,d | |
3418 lbsr L2435 | |
3419 leas $02,s | |
3420 ldd <$44,s | |
3421 pshs b,a | |
3422 leax $02,s | |
3423 tfr x,d | |
3424 lbsr L2435 | |
3425 leas $02,s | |
3426 leax >L23A3,pcr | |
3427 pshs x | |
3428 leax $02,s | |
3429 tfr x,d | |
3430 lbsr L2435 | |
3431 leas $02,s | |
3432 ldd #$003C | |
3433 pshs b,a | |
3434 ldd #$0001 | |
3435 pshs b,a | |
3436 pshs b,a | |
3437 leax $06,s | |
3438 pshs x | |
3439 tfr x,d | |
3440 lbsr L240A | |
3441 pshs b,a | |
3442 leax >L23A5,pcr | |
3443 tfr x,d | |
3444 lbsr L27FE | |
3445 leas $0A,s | |
3446 std <$3E,s | |
3447 cmpd #$FFFF | |
3448 bne L215B | |
3449 ldd #$0013 | |
3450 pshs b,a | |
3451 leax >L23AA,pcr | |
3452 L2154 tfr x,d | |
3453 lbsr L168D | |
3454 leas $02,s | |
3455 L215B leax <$3C,s | |
3456 tfr x,d | |
3457 lbsr L27C0 | |
3458 ldd <$3C,s | |
3459 beq L21AF | |
3460 lbsr L1334 | |
3461 ldd #$0002 | |
3462 pshs b,a | |
3463 leax >L23BE,pcr | |
3464 pshs x | |
3465 lbsr L2681 | |
3466 leas $04,s | |
3467 ldd #$0010 | |
3468 pshs b,a | |
3469 leax >L23C1,pcr | |
3470 pshs x | |
3471 ldd #$0002 | |
3472 lbsr L2681 | |
3473 leas $04,s | |
3474 tfr u,d | |
3475 lbsr L240A | |
3476 pshs b,a | |
3477 pshs u | |
3478 ldd #$0002 | |
3479 lbsr L2681 | |
3480 leas $04,s | |
3481 ldd #$0002 | |
3482 pshs b,a | |
3483 leax >L23D2,pcr | |
3484 pshs x | |
3485 lbsr L2681 | |
3486 leas $04,s | |
3487 L21AF leas <$40,s | |
3488 puls pc,u | |
3489 L21B4 pshs u,b,a | |
3490 ldd #$FFBA | |
3491 lbsr L00FD | |
3492 ldu ,s | |
3493 bra L21CA | |
3494 L21C0 ldb ,u | |
3495 sex | |
3496 lbsr L23ED | |
3497 stb ,u | |
3498 leau u0001,u | |
3499 L21CA ldb ,u | |
3500 bne L21C0 | |
3501 leas $02,s | |
3502 puls pc,u | |
3503 | |
3504 L21D2 fcc "copy" | |
3505 fcb $00 | |
313 | 3506 L21D7 fcc "/dd" |
303 | 3507 fcb $00 |
3508 L21DB fcc "asm" | |
3509 fcb $00 | |
3510 L21DF fcc "Can't open help file" | |
3511 fcb $00 | |
3512 L21f4 fcc "Can't create CMDS directory" | |
3513 fcb $00 | |
3514 L2210 fcc "Can't create SYS directory" | |
3515 fcb $00 | |
3516 L222B fcc "Can't create DEFS directory" | |
3517 fcb $00 | |
313 | 3518 L2247 fcc "/dd/DEFS/OS9Defs" |
303 | 3519 fcb $00 |
3520 L2258 fcc "OS9Defs" | |
3521 fcb $00 | |
313 | 3522 L2260 fcc "/dd/DEFS/RBFDefs" |
303 | 3523 fcb $00 |
3524 L2271 fcc "RBFDefs" | |
3525 fcb $00 | |
313 | 3526 L2279 fcc "/dd/DEFS/SCFDefs" |
303 | 3527 fcb $00 |
3528 L228A fcc "SCFDefs" | |
3529 fcb $00 | |
313 | 3530 L2292 fcc "/dd/DEFS/SysType" |
303 | 3531 fcb $00 |
3532 L22A3 fcc "SysType" | |
3533 fcb $00 | |
313 | 3534 L22AB fcc "/dd/DEFS/defsfile" |
303 | 3535 fcb $00 |
3536 L22BD fcc "defsfile" | |
3537 fcb $00 | |
313 | 3538 L22C6 fcc "/dd" |
303 | 3539 fcb $00 |
3540 L22CA fcc "/d1" | |
3541 fcb $00 | |
3542 L22CE fcc "Can't open commands file" | |
3543 fcb $00 | |
3544 L22E7 fcc "Error reading commands file" | |
3545 fcb $00 | |
3546 L2303 fcc "Error reading commands file" | |
3547 fcb $00 | |
313 | 3548 L231F fcc "/dd/startup" |
303 | 3549 fcb $00 |
3550 L232B fcc "startup" | |
3551 fcb $00 | |
313 | 3552 L2333 fcc "/dd/CMDS/" |
303 | 3553 fcb $00 |
313 | 3554 L233D fcc "/dd/SYS/errmsg" |
303 | 3555 fcb $00 |
3556 L234C fcc "errmsg" | |
3557 fcb $00 | |
313 | 3558 L2353 fcc "/dd/SYS/password" |
303 | 3559 fcb $00 |
3560 L2364 fcc "password" | |
3561 fcb $00 | |
313 | 3562 L236D fcc "/dd/SYS/motd" |
303 | 3563 fcb $00 |
3564 L237A fcc "motd" | |
3565 fcb $00 | |
3566 L237F fcc " " | |
3567 fcb $00 | |
3568 L2382 fcc " -s" | |
3569 fcb C$CR,$00 | |
3570 L2387 fcc "copy" | |
3571 fcb $00 | |
3572 L238C fcc "Can't fork the copy" | |
3573 fcb $00 | |
3574 L23A0 fcc " " | |
3575 fcb $00 | |
3576 L23A3 fcb C$CR | |
3577 fcb $00 | |
3578 L23A5 fcc "copy" | |
3579 fcb $00 | |
3580 L23AA fcc "Can't fork the copy" | |
3581 fcb $00 | |
3582 L23BE fcb C$CR,C$LF,$00 | |
3583 L23C1 fcc "Error copying : " | |
3584 fcb $00 | |
3585 L23D2 fcb C$CR,C$LF,$00 | |
3586 | |
3587 fcb $34,$46 | |
3588 ldd ,s | |
3589 leax >$0507,y | |
3590 leax d,x | |
3591 ldb ,x | |
3592 clra | |
3593 andb #$04 | |
3594 beq L2404 | |
3595 ldd ,s | |
3596 clra | |
3597 andb #$DF | |
3598 bra L2406 | |
3599 L23ED pshs u,b,a | |
3600 ldd ,s | |
3601 leax >$0507,y | |
3602 leax d,x | |
3603 ldb ,x | |
3604 clra | |
3605 andb #$02 | |
3606 beq L2404 | |
3607 ldd ,s | |
3608 orb #$20 | |
3609 bra L2406 | |
3610 L2404 ldd ,s | |
3611 L2406 leas $02,s | |
3612 puls pc,u | |
3613 L240A pshs u,b,a | |
3614 ldu ,s | |
3615 L240E ldb ,u+ | |
3616 bne L240E | |
3617 tfr u,d | |
3618 subd ,s | |
3619 addd #$FFFF | |
3620 leas $02,s | |
3621 puls pc,u | |
3622 L241D pshs u,b,a | |
3623 ldu $06,s | |
3624 leas -$02,s | |
3625 ldd $02,s | |
3626 std ,s | |
3627 L2427 ldb ,u+ | |
3628 ldx ,s | |
3629 L242B leax $01,x | |
3630 stx ,s | |
3631 stb -$01,x | |
3632 bne L2427 | |
3633 bra L245C | |
3634 L2435 pshs u,b,a | |
3635 ldu $06,s | |
3636 leas -$02,s | |
3637 ldd $02,s | |
3638 std ,s | |
3639 L243F ldx ,s | |
3640 leax $01,x | |
3641 stx ,s | |
3642 ldb -$01,x | |
3643 bne L243F | |
3644 ldd ,s | |
3645 addd #$FFFF | |
3646 std ,s | |
3647 L2450 ldb ,u+ | |
3648 ldx ,s | |
3649 leax $01,x | |
3650 stx ,s | |
3651 stb -$01,x | |
3652 bne L2450 | |
3653 L245C ldd $02,s | |
3654 leas $04,s | |
3655 puls pc,u | |
3656 L2462 pshs u | |
3657 tfr d,u | |
3658 bra L2478 | |
3659 L2468 ldx $04,s | |
3660 leax $01,x | |
3661 stx $04,s | |
3662 ldb -$01,x | |
3663 bne L2476 | |
3664 clra | |
3665 clrb | |
3666 puls pc,u | |
3667 L2476 leau u0001,u | |
3668 L2478 ldb ,u | |
3669 sex | |
3670 pshs b,a | |
3671 ldb [<$06,s] | |
3672 sex | |
3673 cmpd ,s++ | |
3674 beq L2468 | |
3675 sex | |
3676 pshs b,a | |
3677 ldb ,u | |
3678 sex | |
3679 subd ,s++ | |
3680 puls pc,u | |
3681 pshs u,b,a | |
3682 ldu $06,s | |
3683 leas -$02,s | |
3684 ldd $02,s | |
3685 std ,s | |
3686 L249A ldd $0A,s | |
3687 addd #$FFFF | |
3688 std $0A,s | |
3689 subd #$FFFF | |
3690 ble L24BE | |
3691 ldb ,u+ | |
3692 ldx ,s | |
3693 leax $01,x | |
3694 stx ,s | |
3695 stb -$01,x | |
3696 bne L249A | |
3697 bra L24BE | |
3698 L24B4 clra | |
3699 clrb | |
3700 ldx ,s | |
3701 leax $01,x | |
3702 stx ,s | |
3703 stb -$01,x | |
3704 L24BE ldd $0A,s | |
3705 addd #$FFFF | |
3706 std $0A,s | |
3707 subd #$FFFF | |
3708 bgt L24B4 | |
3709 lbra L254D | |
3710 pshs u | |
3711 tfr d,u | |
3712 bra L24E3 | |
3713 L24D3 ldx $04,s | |
3714 leax $01,x | |
3715 stx $04,s | |
3716 ldb -$01,x | |
3717 bne L24E1 | |
3718 clra | |
3719 clrb | |
3720 puls pc,u | |
3721 L24E1 leau u0001,u | |
3722 L24E3 ldd $06,s | |
3723 addd #$FFFF | |
3724 std $06,s | |
3725 subd #$FFFF | |
3726 ble L24FD | |
3727 ldb ,u | |
3728 sex | |
3729 pshs b,a | |
3730 ldb [<$06,s] | |
3731 sex | |
3732 cmpd ,s++ | |
3733 beq L24D3 | |
3734 L24FD ldd $06,s | |
3735 bge L2505 | |
3736 clra | |
3737 clrb | |
3738 bra L2510 | |
3739 L2505 ldb [<$04,s] | |
3740 sex | |
3741 pshs b,a | |
3742 ldb ,u | |
3743 sex | |
3744 subd ,s++ | |
3745 L2510 puls pc,u | |
3746 pshs u,b,a | |
3747 ldu $06,s | |
3748 leas -$02,s | |
3749 ldd $02,s | |
3750 std ,s | |
3751 L251C ldx ,s | |
3752 leax $01,x | |
3753 stx ,s | |
3754 ldb -$01,x | |
3755 bne L251C | |
3756 ldd ,s | |
3757 addd #$FFFF | |
3758 std ,s | |
3759 L252D ldd $0A,s | |
3760 addd #$FFFF | |
3761 std $0A,s | |
3762 subd #$FFFF | |
3763 ble L2545 | |
3764 ldb ,u+ | |
3765 ldx ,s | |
3766 leax $01,x | |
3767 stx ,s | |
3768 stb -$01,x | |
3769 bne L252D | |
3770 L2545 ldd $0A,s | |
3771 bge L254D | |
3772 clra | |
3773 clrb | |
3774 stb [,s] | |
3775 L254D ldd $02,s | |
3776 leas $04,s | |
3777 puls pc,u | |
3778 L2553 pshs u,b,a | |
3779 ldu ,s | |
3780 L2557 ldx $06,s | |
3781 leax $01,x | |
3782 stx $06,s | |
3783 ldb -$01,x | |
3784 stb ,u+ | |
3785 bgt L2557 | |
3786 ldb -u0001,u | |
3787 clra | |
3788 andb #$7F | |
3789 stb -u0001,u | |
3790 clra | |
3791 clrb | |
3792 stb ,u | |
3793 ldd ,s | |
3794 leas $02,s | |
3795 puls pc,u | |
3796 L2574 lda $03,s | |
3797 tstb | |
3798 beq L25A6 | |
3799 cmpb #$01 | |
3800 beq L25A8 | |
3801 cmpb #$06 | |
3802 beq L25A8 | |
3803 cmpb #$02 | |
3804 beq L258E | |
3805 cmpb #$05 | |
3806 beq L258E | |
3807 ldb #$D0 | |
3808 lbra L2836 | |
3809 L258E pshs u | |
3810 os9 I$GetStt | |
3811 bcc L259A | |
3812 puls u | |
3813 lbra L2836 | |
3814 L259A stx [<$06,s] | |
3815 ldx $06,s | |
3816 stu $02,x | |
3817 puls u | |
3818 clra | |
3819 clrb | |
3820 rts | |
3821 L25A6 ldx $04,s | |
3822 L25A8 os9 I$GetStt | |
3823 lbra L283F | |
3824 L25AE lda $03,s | |
3825 tstb | |
3826 beq L25BC | |
3827 cmpb #$02 | |
3828 beq L25C4 | |
3829 ldb #$D0 | |
3830 lbra L2836 | |
3831 L25BC ldx $04,s | |
3832 os9 I$SetStt | |
3833 lbra L283F | |
3834 L25C4 pshs u | |
3835 ldx $06,s | |
3836 ldu $08,s | |
3837 os9 I$SetStt | |
3838 puls u | |
3839 lbra L283F | |
3840 tfr d,x | |
3841 lda $03,s | |
3842 os9 I$Open | |
3843 bcs L25DE | |
3844 os9 I$Close | |
3845 L25DE lbra L283F | |
3846 L25E1 tfr d,x | |
3847 lda $03,s | |
3848 os9 I$Open | |
3849 bcs L2643 | |
3850 tfr a,b | |
3851 clra | |
3852 rts | |
3853 L25EE tfr b,a | |
3854 os9 I$Close | |
3855 lbra L283F | |
3856 L25F6 tfr d,x | |
3857 ldb $03,s | |
3858 os9 I$MakDir | |
3859 lbra L283F | |
3860 L2600 pshs b,a | |
3861 ldx ,s | |
3862 lda $05,s | |
3863 tfr a,b | |
3864 andb #$24 | |
3865 orb #$0B | |
3866 os9 I$Create | |
3867 bcs L2617 | |
3868 L2611 leas $02,s | |
3869 tfr a,b | |
3870 clra | |
3871 rts | |
3872 L2617 cmpb #$DA | |
3873 bne L2641 | |
3874 lda $05,s | |
3875 bita #$80 | |
3876 bne L2641 | |
3877 anda #$07 | |
3878 ldx ,s | |
3879 os9 I$Open | |
3880 bcs L2641 | |
3881 pshs u,a | |
3882 ldx #$0000 | |
3883 leau ,x | |
3884 ldb #$02 | |
3885 os9 I$SetStt | |
3886 puls u,a | |
3887 bcc L2611 | |
3888 pshs b | |
3889 os9 I$Close | |
3890 puls b | |
3891 L2641 leas $02,s | |
3892 L2643 lbra L2836 | |
3893 L2646 tfr d,x | |
3894 os9 I$Delete | |
3895 lbra L283F | |
3896 tfr b,a | |
3897 os9 I$Dup | |
3898 bcs L2643 | |
3899 tfr a,b | |
3900 clra | |
3901 rts | |
3902 L2659 pshs y | |
3903 tfr b,a | |
3904 ldx $04,s | |
3905 ldy $06,s | |
3906 os9 I$Read | |
3907 bcc L267D | |
3908 L2667 cmpb #$D3 | |
3909 bne L2691 | |
3910 clra | |
3911 clrb | |
3912 puls pc,y | |
3913 L266F pshs y | |
3914 tfr b,a | |
3915 ldx $04,s | |
3916 ldy $06,s | |
3917 os9 I$ReadLn | |
3918 bcs L2667 | |
3919 L267D tfr y,d | |
3920 puls pc,y | |
3921 L2681 pshs y | |
3922 ldy $06,s | |
3923 beq L26A6 | |
3924 tfr b,a | |
3925 ldx $04,s | |
3926 os9 I$Write | |
3927 bcc L26A6 | |
3928 L2691 puls y | |
3929 lbra L2836 | |
3930 L2696 pshs y | |
3931 ldy $06,s | |
3932 beq L26A6 | |
3933 tfr b,a | |
3934 ldx $04,s | |
3935 os9 I$WritLn | |
3936 bcs L2691 | |
3937 L26A6 tfr y,d | |
3938 puls pc,y | |
3939 L26AA pshs u,b,a | |
3940 ldd $0A,s | |
3941 bne L26B8 | |
3942 ldu #$0000 | |
3943 ldx #$0000 | |
3944 bra L26EE | |
3945 L26B8 cmpd #$0001 | |
3946 beq L26E5 | |
3947 cmpd #$0002 | |
3948 beq L26DA | |
3949 ldb #$F7 | |
3950 L26C6 clra | |
3951 std >$0597,y | |
3952 ldd #$FFFF | |
3953 leax >$058B,y | |
3954 std ,x | |
3955 std $02,x | |
3956 leas $02,s | |
3957 puls pc,u | |
3958 L26DA lda $01,s | |
3959 ldb #$02 | |
3960 os9 I$GetStt | |
3961 bcs L26C6 | |
3962 bra L26EE | |
3963 L26E5 lda $01,s | |
3964 ldb #$05 | |
3965 os9 I$GetStt | |
3966 bcs L26C6 | |
3967 L26EE tfr u,d | |
3968 addd $08,s | |
3969 tfr d,u | |
3970 tfr x,d | |
3971 adcb $07,s | |
3972 adca $06,s | |
3973 bmi L26C6 | |
3974 tfr d,x | |
3975 stx >$058B,y | |
3976 stu >$058D,y | |
3977 lda $01,s | |
3978 os9 I$Seek | |
3979 bcs L26C6 | |
3980 leax >$058B,y | |
3981 leas $02,s | |
3982 puls pc,u | |
3983 L2715 tfr d,x | |
3984 lda #$01 | |
3985 L2719 os9 I$ChgDir | |
3986 lbra L283F | |
3987 tfr d,x | |
3988 lda #$04 | |
3989 bra L2719 | |
3990 L2725 pshs y,b,a | |
3991 cmpd >$0641,y | |
3992 bls L275C | |
3993 subd >$0641,y | |
3994 addd >$0589,y | |
3995 subd $02,s | |
3996 os9 F$Mem | |
3997 tfr y,d | |
3998 ldy $02,s | |
3999 bcc L2748 | |
4000 ldd #$FFFF | |
4001 leas $04,s | |
4002 rts | |
4003 L2748 ldx >$0589,y | |
4004 std >$0589,y | |
4005 pshs x | |
4006 subd ,s++ | |
4007 addd >$0641,y | |
4008 std >$0641,y | |
4009 L275C ldd >$0589,y | |
4010 subd >$0641,y | |
4011 tfr d,x | |
4012 ldd >$0641,y | |
4013 subd ,s | |
4014 std >$0641,y | |
4015 ldd ,s | |
4016 stx ,s | |
4017 bitb #$01 | |
4018 beq L277B | |
4019 clr ,x+ | |
4020 decb | |
4021 L277B tfr d,y | |
4022 leay ,y | |
4023 beq L2789 | |
4024 clra | |
4025 clrb | |
4026 L2783 std ,x++ | |
4027 leay -$02,y | |
4028 bne L2783 | |
4029 L2789 puls pc,y,b,a | |
4030 addd >$0593,y | |
4031 bcs L27B2 | |
4032 cmpd >$0595,y | |
4033 bcc L27B2 | |
4034 pshs b,a | |
4035 ldx >$0593,y | |
4036 clra | |
4037 bra L27A3 | |
4038 L27A1 sta ,x+ | |
4039 L27A3 cmpx ,s | |
4040 bcs L27A1 | |
4041 ldd >$0593,y | |
4042 puls x | |
4043 stx >$0593,y | |
4044 rts | |
4045 L27B2 ldd #$FFFF | |
4046 rts | |
4047 tfr b,a | |
4048 ldb $03,s | |
4049 os9 F$Send | |
4050 lbra L283F | |
4051 L27C0 tfr d,x | |
4052 clra | |
4053 clrb | |
4054 os9 F$Wait | |
4055 lbcs L2836 | |
4056 stx -$02,s | |
4057 beq L27D3 | |
4058 stb $01,x | |
4059 clr ,x | |
4060 L27D3 tfr a,b | |
4061 clra | |
4062 rts | |
4063 tfr b,a | |
4064 ldb $03,s | |
4065 os9 F$SPrior | |
4066 lbra L283F | |
4067 leau $02,s | |
4068 leas >$00FF,y | |
4069 tfr d,x | |
4070 ldy ,u | |
4071 lda u0005,u | |
4072 lsla | |
4073 lsla | |
4074 lsla | |
4075 lsla | |
4076 ora u0007,u | |
4077 ldb u0009,u | |
4078 ldu u0002,u | |
4079 os9 F$Chain | |
4080 os9 F$Exit | |
4081 L27FE pshs u,y | |
4082 tfr d,x | |
4083 ldy $06,s | |
4084 ldu $08,s | |
4085 lda $0B,s | |
4086 ora $0D,s | |
4087 ldb $0F,s | |
4088 os9 F$Fork | |
4089 puls u,y | |
4090 lbcs L2836 | |
4091 tfr a,b | |
4092 clra | |
4093 rts | |
4094 L281A pshs u | |
4095 tfr y,u | |
4096 std >$0643,y | |
4097 leax >L282E,pcr | |
4098 os9 F$Icpt | |
4099 puls u | |
4100 lbra L283F | |
4101 L282E tfr u,y | |
4102 clra | |
4103 jsr [>$0643,y] | |
4104 rti | |
4105 L2836 clra | |
4106 std >$0597,y | |
4107 ldd #$FFFF | |
4108 rts | |
4109 L283F bcs L2836 | |
4110 clra | |
4111 clrb | |
4112 rts | |
4113 L2844 pshs b,a | |
4114 lbsr L2851 | |
4115 lbsr L2852 | |
4116 puls b,a | |
4117 L284E os9 F$Exit | |
4118 L2851 rts | |
4119 L2852 rts | |
4120 pshs u,y | |
4121 tfr d,x | |
4122 lda $07,s | |
4123 lsla | |
4124 lsla | |
4125 lsla | |
4126 lsla | |
4127 ora $09,s | |
4128 os9 F$Link | |
4129 L2862 tfr u,d | |
4130 puls u,y | |
4131 lbcs L2836 | |
4132 rts | |
4133 L286B pshs u,y | |
4134 tfr d,x | |
4135 lda $07,s | |
4136 lsla | |
4137 lsla | |
4138 lsla | |
4139 lsla | |
4140 ora $09,s | |
4141 os9 F$Load | |
4142 bra L2862 | |
4143 pshs u | |
4144 tfr d,u | |
4145 os9 F$UnLink | |
4146 puls u | |
4147 lbra L283F | |
4148 L2888 ldd $02,s | |
4149 cmpd ,x | |
4150 bne L28A1 | |
4151 ldd $04,s | |
4152 cmpd $02,x | |
4153 beq L28A1 | |
4154 bcs L289E | |
4155 lda #$01 | |
4156 andcc #$FE | |
4157 bra L28A1 | |
4158 L289E clra | |
4159 cmpa #$01 | |
4160 L28A1 pshs cc | |
4161 ldd $01,s | |
4162 std $05,s | |
4163 puls cc | |
4164 leas $04,s | |
4165 rts | |
4166 L28AC leax >$058B,y | |
4167 std $02,x | |
4168 tfr a,b | |
4169 sex | |
4170 tfr a,b | |
4171 std ,x | |
4172 rts | |
4173 leax >$058B,y | |
4174 std $02,x | |
4175 clr ,x | |
4176 clr $01,x | |
4177 rts | |
4178 L28C5 tsta | |
4179 bne L28DA | |
4180 tst $02,s | |
4181 bne L28DA | |
4182 lda $03,s | |
4183 mul | |
4184 ldx ,s | |
4185 stx $02,s | |
4186 ldx #$0000 | |
4187 std ,s | |
4188 puls pc,b,a | |
4189 L28DA pshs b,a | |
4190 ldd #$0000 | |
4191 pshs b,a | |
4192 pshs b,a | |
4193 lda $05,s | |
4194 ldb $09,s | |
4195 mul | |
4196 std $02,s | |
4197 lda $05,s | |
4198 ldb $08,s | |
4199 mul | |
4200 addd $01,s | |
4201 std $01,s | |
4202 bcc L28F7 | |
4203 inc ,s | |
4204 L28F7 lda $04,s | |
4205 ldb $09,s | |
4206 mul | |
4207 addd $01,s | |
4208 std $01,s | |
4209 bcc L2904 | |
4210 inc ,s | |
4211 L2904 lda $04,s | |
4212 ldb $08,s | |
4213 mul | |
4214 addd ,s | |
4215 std ,s | |
4216 ldx $06,s | |
4217 stx $08,s | |
4218 ldx ,s | |
4219 ldd $02,s | |
4220 leas $08,s | |
4221 rts | |
313 | 4222 |
303 | 4223 L2918 fcb $00 |
4224 fcc ")" | |
4225 fcb $00 | |
4226 fcc "->" | |
4227 fcb $00 | |
4228 fcc " " | |
4229 fcb $00 | |
4230 L2921 fcc "bootlist" | |
4231 fcb $00 | |
4232 | |
4233 fcc "RBF.mn" | |
4234 fcb $00 | |
4235 fcc "SCF.mn" | |
4236 fcb $00 | |
4237 fcc "PIPEMAN.mn" | |
4238 fcb $00 | |
4239 fcb $04 | |
4240 fcs "y" | |
313 | 4241 fcc "/DD/MODULES" |
303 | 4242 fcb $00 |
4243 fcc ".dd" | |
4244 fcb $00 | |
4245 fcc ".DD" | |
4246 fcb $00 | |
4247 fcc ".io" | |
4248 fcb $00 | |
4249 fcc ".IO" | |
4250 fcb $00 | |
4251 fcc ".dr" | |
4252 fcb $00 | |
4253 fcc ".mn" | |
4254 fcb $00 | |
4255 fcc ".hp" | |
4256 fcb $00 | |
4257 fcc ".." | |
4258 fcb $00 | |
4259 fcc "THERE ARE STILL MORE" | |
4260 fcb $00 | |
4261 fcc "ARE YOU SURE (Y/N) ?" | |
4262 fcb $00 | |
4263 fcc "CONFIG" | |
4264 fcb $00 | |
4265 fcc "ARROWS - UP/DOWN/MORE/BACK" | |
4266 fcb $00 | |
4267 fcc "S - SEL/UNSEL H - HELP D - DONE" | |
4268 fcb $00 | |
4269 fcc "DEVICE NAME SEL" | |
4270 fcb $00 | |
4271 fcc "COMMAND NAME SEL" | |
4272 fcb $00 | |
4273 fcc "I/O SUBROUTINE SEL" | |
4274 fcb $00 | |
4275 fcc " ------------------------------" | |
4276 fcb $00 | |
4277 fcc "M - MORE C - CONTINUE" | |
4278 fcb $00 | |
4279 fcc " HIT ANY KEY TO CONTINUE" | |
4280 fcb $00 | |
4281 fcc "BUILDING DESCRIPTOR LIST" | |
4282 fcb $00 | |
4283 fcc ".... PLEASE WAIT" | |
4284 fcb $00 | |
4285 fcc "BUILDING BOOT LIST" | |
4286 fcb $00 | |
4287 fcc "GENERATING A NEW BOOT" | |
4288 fcb $00 | |
4289 fcc "PLACE A FORMATTED DISK" | |
4290 fcb $00 | |
4291 fcc "IN DRIVE NUMBER 1" | |
4292 fcb $00 | |
4293 fcc "DO YOU WISH TO ADD" | |
4294 fcb $00 | |
4295 fcc "[N]O COMMANDS, STOP NOW" | |
4296 fcb $00 | |
4297 fcc "[B]ASIC COMMAND SET" | |
4298 fcb $00 | |
4299 fcc "[F]ULL COMMAND SET" | |
4300 fcb $00 | |
4301 fcc "[I]NIDIVIDUALLY SELECT" | |
4302 fcb $00 | |
4303 fcc "[?] RECIEVE HELP" | |
4304 fcb $00 | |
4305 fcc "SELECTION [N,B,F,I,?]" | |
4306 fcb $00 | |
4307 fcc "PLACE YOUR SYSTEM DISK" | |
4308 fcb $00 | |
4309 fcc "IN DRIVE NUMBER 0" | |
4310 fcb $00 | |
4311 fcc "HOW MANY DRIVES DO YOU HAVE:" | |
4312 fcb $00 | |
4313 fcc "1 - ONE DRIVE ONLY" | |
4314 fcb $00 | |
4315 fcc "2 - TWO OR MORE DRIVES" | |
4316 fcb $00 | |
4317 fcc "SELECTION [1,2] " | |
4318 fcb $00 | |
313 | 4319 fcc "PLACE NEW DISK IN /DD NOW" |
303 | 4320 fcb $00 |
313 | 4321 fcc "PLACE CONFIG DISK IN /DD NOW" |
303 | 4322 fcb $00 |
4323 fcc "CREATING NEW SYSTEM DISK" | |
4324 fcb $00 | |
4325 fcc "DESTINATION = NEW DISK" | |
4326 fcb $00 | |
4327 fcc "SOURCE = CONFIG DISK" | |
4328 fcb $00 | |
4329 fcc "SOURCE = OS9 SYSTEM DISK" | |
4330 fcb $00 | |
4331 fcc "WHAT CLOCK MODULE IS NEEDED:" | |
4332 fcb $00 | |
4333 fcc "1 - 60 HZ (AMERICAN POWER)" | |
4334 fcb $00 | |
4335 fcc "2 - 50 HZ (EUROPEAN POWER)" | |
4336 fcb $00 | |
4337 fcc "RS VERSION 01.00.00" | |
4338 fcb $00 | |
4339 fcc "COPYRIGHT 1985 BY" | |
4340 fcb $00 | |
4341 fcc "MICROWARE SYSTEMS CORP." | |
4342 fcb $00 | |
4343 fcc "REPRODUCED UNDER LICENSE" | |
4344 fcb $00 | |
4345 fcc "TO TANDY CORP." | |
4346 fcb $00 | |
4347 fcc "ALL RIGHTS RESERVED" | |
4348 fcb $00 | |
313 | 4349 fcc "os9gen /d1 #15k </dd/bootlist" |
303 | 4350 fcb C$CR,$00 |
313 | 4351 fcc "os9gen /dd -s #15k </dd/bootlist" |
303 | 4352 fcb C$CR,$00,$05,$dd |
4353 fcc "CMDS" | |
4354 fcb $00 | |
4355 fcc "SYS" | |
4356 fcb $00 | |
4357 fcc "DEFS" | |
4358 fcb $00 | |
4359 fcc "cmds.hp" | |
4360 fcb $00 | |
4361 fcc "config.hp" | |
4362 | |
4363 fdb $0000,$0101 | |
4364 fdb $0101,$0101,$0101,$0111,$1101,$1111,$0101,$0101 | |
4365 fdb $0101,$0101,$0101,$0101,$0101,$0101,$0101,$3020 | |
4366 fdb $2020,$2020,$2020,$2020,$2020,$2020,$2020,$4848 | |
4367 fdb $4848,$4848,$4848,$4848,$2020,$2020,$2020,$2042 | |
4368 fdb $4242,$4242,$4202,$0202,$0202,$0202,$0202,$0202 | |
4369 fdb $0202,$0202,$0202,$0202,$0220,$2020,$2020,$2044 | |
4370 fdb $4444,$4444,$4404,$0404,$0404,$0404,$0404,$0404 | |
4371 fdb $0404,$0404,$0404,$0404,$0420,$2020,$2001,$0000 | |
4372 fdb $0001,$04e4,$636f,$6e66,$6967 | |
4373 fcb $00 | |
4374 | |
4375 emod | |
4376 eom equ * | |
4377 end |