|
0
|
1 ********************************************************************
|
|
|
2 * Shell - OS-9 command line interpreter
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 21 Original Tandy/Microware version
|
|
|
9
|
|
|
10 nam Shell
|
|
|
11 ttl OS-9 command line interpreter
|
|
|
12
|
|
|
13 * Disassembled 99/04/18 22:59:49 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 21
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 1
|
|
|
27 u0001 rmb 2
|
|
|
28 u0003 rmb 1
|
|
|
29 u0004 rmb 1
|
|
|
30 u0005 rmb 1
|
|
|
31 u0006 rmb 2
|
|
|
32 u0008 rmb 1
|
|
|
33 u0009 rmb 1
|
|
|
34 u000A rmb 1
|
|
|
35 u000B rmb 1
|
|
|
36 u000C rmb 1
|
|
|
37 u000D rmb 1
|
|
|
38 u000E rmb 1
|
|
|
39 u000F rmb 1
|
|
|
40 u0010 rmb 1
|
|
|
41 u0011 rmb 1
|
|
|
42 u0012 rmb 1
|
|
|
43 u0013 rmb 1
|
|
|
44 u0014 rmb 1
|
|
|
45 u0015 rmb 1
|
|
|
46 u0016 rmb 1
|
|
|
47 u0017 rmb 22
|
|
|
48 u002D rmb 3
|
|
|
49 u0030 rmb 14
|
|
|
50 u003E rmb 32
|
|
|
51 u005E rmb 2
|
|
|
52 u0060 rmb 16
|
|
|
53 u0070 rmb 58
|
|
|
54 u00AA rmb 85
|
|
|
55 u00FF rmb 513
|
|
|
56 size equ .
|
|
|
57 name equ *
|
|
|
58
|
|
|
59 L000D fcs /Shell/
|
|
|
60 fcb edition
|
|
|
61
|
|
|
62 L0013 fcb $13
|
|
|
63 fcs "PascalS"
|
|
|
64 fcb $25 %
|
|
|
65 fcs "RunC"
|
|
|
66 fcb $22 "
|
|
|
67 fcs "RunB"
|
|
|
68 fcb $00
|
|
|
69 fcb $00
|
|
|
70 fcb $00
|
|
|
71 fcb $00
|
|
|
72 fcb $00
|
|
|
73 fcb $00
|
|
|
74 fcb $00
|
|
|
75 fcb $00
|
|
|
76 fcb $00
|
|
|
77 L002E fcb C$LF
|
|
|
78 fcc "Shell"
|
|
|
79 fcb C$CR
|
|
|
80 L0035 fcb C$LF
|
|
|
81 L0036 fcc "OS9:"
|
|
|
82 L003A fcs "W"
|
|
|
83 fcb $0E
|
|
|
84 fcc ";"
|
|
|
85
|
|
|
86 start leas -$05,s
|
|
|
87 pshs y,x,b,a
|
|
|
88 ldb #$6F
|
|
|
89 lbsr L0175
|
|
|
90 leax <L003A,pcr
|
|
|
91 os9 F$Icpt
|
|
|
92 puls x,b,a
|
|
|
93 std <u0006
|
|
|
94 beq L005B
|
|
|
95 lbsr L017B
|
|
|
96 bcs L00C2
|
|
|
97 tst <u000C
|
|
|
98 bne L00C1
|
|
|
99 L005B lds ,s++
|
|
|
100 L005E leax <L002E,pcr
|
|
|
101 tst <u0012
|
|
|
102 bne L0076
|
|
|
103 bsr L00CB
|
|
|
104 bcs L00C8
|
|
|
105 L0069 leax <L0035,pcr
|
|
|
106 ldy #$0005
|
|
|
107 L0070 tst <u0012
|
|
|
108 bne L0076
|
|
|
109 bsr L00CF
|
|
|
110 L0076 clra
|
|
|
111 leax <u0070,u
|
|
|
112 ldy #$00C8
|
|
|
113 os9 I$ReadLn
|
|
|
114 bcc L0094
|
|
|
115 cmpb #$D3
|
|
|
116 beq L00B8
|
|
|
117 L0087 tst <u000F
|
|
|
118 bne L008F
|
|
|
119 tst <u0014
|
|
|
120 bne L00C2
|
|
|
121 L008F os9 F$PErr
|
|
|
122 bra L0069
|
|
|
123 L0094 cmpy #$0001
|
|
|
124 bhi L00A4
|
|
|
125 leax >L0036,pcr
|
|
|
126 ldy #$0004
|
|
|
127 bra L0070
|
|
|
128 L00A4 tst <u0013
|
|
|
129 beq L00AA
|
|
|
130 bsr L00CB
|
|
|
131 L00AA lbsr L017B
|
|
|
132 bcc L0069
|
|
|
133 tstb
|
|
|
134 bne L0087
|
|
|
135 bra L0069
|
|
|
136 L00B4 fcc "eof"
|
|
|
137 fcb C$CR
|
|
|
138 L00B8 tst <u0012
|
|
|
139 bne L00C1
|
|
|
140 leax <L00B4,pcr
|
|
|
141 bsr L00CB
|
|
|
142 L00C1 clrb
|
|
|
143 L00C2 lda <u000F
|
|
|
144 lbne L0331
|
|
|
145 L00C8 os9 F$Exit
|
|
|
146 L00CB ldy #$0050
|
|
|
147 L00CF lda #$02
|
|
|
148 os9 I$WritLn
|
|
|
149 rts
|
|
|
150 lbsr L03B3
|
|
|
151 lbcs L02ED
|
|
|
152 pshs x
|
|
|
153 ldb #$0E
|
|
|
154 leax <u0016,u
|
|
|
155 lda #$2F
|
|
|
156 sta ,x+
|
|
|
157 clra
|
|
|
158 os9 I$GetStt
|
|
|
159 puls x
|
|
|
160 lbcs L02ED
|
|
|
161 inc <u000F
|
|
|
162 inc <u0010
|
|
|
163 lbsr L02ED
|
|
|
164 clr <u0010
|
|
|
165 rts
|
|
|
166 L00FB fcb $01,$e3,$aa,$03,$60
|
|
|
167 L0100 fcs "W"
|
|
|
168 fcb $01,$BF
|
|
|
169 fcs "CHD"
|
|
|
170 fcb $01,$B6
|
|
|
171 fcs "CHX"
|
|
|
172 fcb $01,$8B
|
|
|
173 fcs "EX"
|
|
|
174 fcb $04,$AF
|
|
|
175 fcs "KILL"
|
|
|
176 fcb $01,$C1
|
|
|
177 fcb $d8,$01,$c2,$2d,$d8,$01,$aa,$d0,$01
|
|
|
178 fcb $aa
|
|
|
179 fcs "-P"
|
|
|
180 fcb $01,$ab
|
|
|
181 fcs "T"
|
|
|
182 fcb $01,$ac
|
|
|
183 fcs "-T"
|
|
|
184 fcb $04,$c0
|
|
|
185 fcs "SETPR"
|
|
|
186 fcb $FF,$a4
|
|
|
187 fcs "I="
|
|
|
188 fcb $01,$2c
|
|
|
189 fcs ";"
|
|
|
190 fcb $00,$00
|
|
|
191 L013A fcb $04,$30,$a1,$02,$fb,$bb,$03,$11
|
|
|
192 fcs "&"
|
|
|
193 fcb $02,$ee,$8d
|
|
|
194 L0146 fcb $02,$69
|
|
|
195 fcs "<>>>"
|
|
|
196 fcb $02,$79
|
|
|
197 fcs "<>>"
|
|
|
198 fcb $02,$67
|
|
|
199 fcs "<>"
|
|
|
200 fcb $02,$7d
|
|
|
201 fcs ">>>"
|
|
|
202 fcb $01,$fb
|
|
|
203 fcs ">>"
|
|
|
204 fcb $01,$f2
|
|
|
205 fcs "<"
|
|
|
206 fcb $01,$fb
|
|
|
207 fcs ">"
|
|
|
208 fcb $02,$ab
|
|
|
209 fcs "#"
|
|
|
210 fcb $00,$00
|
|
|
211 L0169 fcb $0d
|
|
|
212 fcc "()"
|
|
|
213 fcb $ff
|
|
|
214 L016D fcb $0d
|
|
|
215 fcc "!#&;<>"
|
|
|
216 fcb $ff
|
|
|
217
|
|
|
218 L0175 clr b,u
|
|
|
219 decb
|
|
|
220 bpl L0175
|
|
|
221 rts
|
|
|
222 L017B ldb #$0E
|
|
|
223 bsr L0175
|
|
|
224 L017F clr <u0003
|
|
|
225 clr <u000E
|
|
|
226 leay >L00FB,pcr
|
|
|
227 lbsr L020F
|
|
|
228 bcs L01DE
|
|
|
229 cmpa #$0D
|
|
|
230 beq L01DE
|
|
|
231 sta <u000C
|
|
|
232 cmpa #$28
|
|
|
233 bne L01BA
|
|
|
234 leay >L000D,pcr
|
|
|
235 sty <u0004
|
|
|
236 leax $01,x
|
|
|
237 stx <u0008
|
|
|
238 L01A1 inc <u000D
|
|
|
239 L01A3 leay <L0169,pcr
|
|
|
240 bsr L0227
|
|
|
241 cmpa #$28
|
|
|
242 beq L01A1
|
|
|
243 cmpa #$29
|
|
|
244 bne L01D6
|
|
|
245 dec <u000D
|
|
|
246 bne L01A3
|
|
|
247 lda #$0D
|
|
|
248 sta -$01,x
|
|
|
249 bra L01BE
|
|
|
250 L01BA bsr L01E1
|
|
|
251 bcs L01DE
|
|
|
252 L01BE leay <L016D,pcr
|
|
|
253 bsr L0227
|
|
|
254 tfr x,d
|
|
|
255 subd <u0008
|
|
|
256 std <u0006
|
|
|
257 leax -$01,x
|
|
|
258 leay >L013A,pcr
|
|
|
259 bsr L020F
|
|
|
260 bcs L01DE
|
|
|
261 ldy <u0004
|
|
|
262 L01D6 lbne L0326
|
|
|
263 cmpa #$0D
|
|
|
264 bne L017F
|
|
|
265 L01DE lbra L02ED
|
|
|
266 L01E1 stx <u0004
|
|
|
267 bsr L01F4
|
|
|
268 bcs L01F3
|
|
|
269 L01E7 bsr L01F4
|
|
|
270 bcc L01E7
|
|
|
271 leay >L0146,pcr
|
|
|
272 bsr L020F
|
|
|
273 stx <u0008
|
|
|
274 L01F3 rts
|
|
|
275 L01F4 os9 F$PrsNam
|
|
|
276 bcc L0205
|
|
|
277 lda ,x+
|
|
|
278 cmpa #$2E
|
|
|
279 bne L0209
|
|
|
280 cmpa ,x+
|
|
|
281 beq L0207
|
|
|
282 leay -$01,x
|
|
|
283 L0205 leax ,y
|
|
|
284 L0207 clra
|
|
|
285 rts
|
|
|
286 L0209 comb
|
|
|
287 leax -$01,x
|
|
|
288 ldb #$D7
|
|
|
289 rts
|
|
|
290 L020F bsr L0241
|
|
|
291 pshs y
|
|
|
292 bsr L0264
|
|
|
293 bcs L0220
|
|
|
294 ldd ,y
|
|
|
295 jsr d,y
|
|
|
296 puls y
|
|
|
297 bcc L020F
|
|
|
298 rts
|
|
|
299 L0220 clra
|
|
|
300 lda ,x
|
|
|
301 puls pc,y
|
|
|
302 L0225 puls y
|
|
|
303 L0227 pshs y
|
|
|
304 lda ,x+
|
|
|
305 L022B tst ,y
|
|
|
306 bmi L0225
|
|
|
307 cmpa #$22
|
|
|
308 bne L023B
|
|
|
309 L0233 lda ,x+
|
|
|
310 cmpa #$22
|
|
|
311 bne L0233
|
|
|
312 lda ,x+
|
|
|
313 L023B cmpa ,y+
|
|
|
314 bne L022B
|
|
|
315 puls pc,y
|
|
|
316 L0241 pshs x
|
|
|
317 lda ,x+
|
|
|
318 cmpa #$20
|
|
|
319 beq L0257
|
|
|
320 cmpa #$2C
|
|
|
321 beq L0257
|
|
|
322 leax >L016D,pcr
|
|
|
323 L0251 cmpa ,x+
|
|
|
324 bhi L0251
|
|
|
325 puls pc,x
|
|
|
326 L0257 leas $02,s
|
|
|
327 lda #$20
|
|
|
328 L025B cmpa ,x+
|
|
|
329 beq L025B
|
|
|
330 leax -$01,x
|
|
510
|
331 andcc #^Carry
|
|
0
|
332 rts
|
|
|
333 L0264 pshs y,x
|
|
|
334 leay $02,y
|
|
|
335 L0268 ldx ,s
|
|
|
336 L026A lda ,x+
|
|
|
337 cmpa #$61
|
|
|
338 bcs L0272
|
|
|
339 suba #$20
|
|
|
340 L0272 eora ,y+
|
|
|
341 lsla
|
|
|
342 bne L0286
|
|
|
343 bcc L026A
|
|
|
344 lda -$01,y
|
|
|
345 cmpa #$C1
|
|
|
346 bcs L0283
|
|
|
347 bsr L0241
|
|
|
348 bcs L0286
|
|
|
349 L0283 clra
|
|
|
350 puls pc,y,b,a
|
|
|
351 L0286 leay -$01,y
|
|
|
352 L0288 lda ,y+
|
|
|
353 bpl L0288
|
|
|
354 sty $02,s
|
|
|
355 ldd ,y++
|
|
|
356 bne L0268
|
|
|
357 comb
|
|
|
358 puls pc,y,x
|
|
|
359 lbsr L01E1
|
|
|
360 clra
|
|
|
361 bsr L02B8
|
|
|
362 bsr L02B7
|
|
|
363 bsr L02B7
|
|
|
364 bsr L02DE
|
|
|
365 leax $01,x
|
|
|
366 tfr x,d
|
|
|
367 subd <u0008
|
|
|
368 std <u0006
|
|
|
369 leas >u00FF,u
|
|
|
370 lbsr L0497
|
|
|
371 os9 F$Chain
|
|
|
372 lbra L00C2
|
|
|
373 L02B7 inca
|
|
|
374 L02B8 pshs a
|
|
|
375 bra L0313
|
|
|
376 lda #$84
|
|
|
377 bra L02C2
|
|
|
378 lda #$83
|
|
|
379 L02C2 os9 I$ChgDir
|
|
|
380 rts
|
|
|
381 clra
|
|
|
382 bra L02CB
|
|
|
383 lda #$01
|
|
|
384 L02CB sta <u0012
|
|
|
385 rts
|
|
|
386 lda #$01
|
|
|
387 bra L02D3
|
|
|
388 clra
|
|
|
389 L02D3 sta <u0013
|
|
|
390 rts
|
|
|
391 lda #$01
|
|
|
392 bra L02DB
|
|
|
393 clra
|
|
|
394 L02DB sta <u0014
|
|
|
395 rts
|
|
|
396 L02DE lda #$0D
|
|
|
397 L02E0 cmpa ,x+
|
|
|
398 bne L02E0
|
|
|
399 cmpa ,-x
|
|
|
400 rts
|
|
|
401 L02E7 pshs b,a,cc
|
|
|
402 lda #$01
|
|
|
403 bra L02F1
|
|
|
404 L02ED pshs b,a,cc
|
|
|
405 lda #$02
|
|
|
406 L02F1 sta <u0011
|
|
|
407 clra
|
|
|
408 L02F4 bsr L02FF
|
|
|
409 inca
|
|
|
410 cmpa <u0011
|
|
|
411 bls L02F4
|
|
|
412 ror ,s+
|
|
|
413 puls pc,b,a
|
|
|
414 L02FF pshs a
|
|
|
415 tst <u0010
|
|
|
416 bmi L031B
|
|
|
417 bne L0313
|
|
|
418 tst a,u
|
|
|
419 beq L031E
|
|
|
420 os9 I$Close
|
|
|
421 lda a,u
|
|
|
422 os9 I$Dup
|
|
|
423 L0313 ldb ,s
|
|
|
424 lda b,u
|
|
|
425 beq L031E
|
|
|
426 clr b,u
|
|
|
427 L031B os9 I$Close
|
|
|
428 L031E puls pc,a
|
|
|
429 L0320 fcc "WHAT?"
|
|
|
430 fcb C$CR
|
|
|
431 L0326 bsr L02ED
|
|
|
432 leax <L0320,pcr
|
|
|
433 lbsr L00CB
|
|
|
434 clrb
|
|
|
435 coma
|
|
|
436 rts
|
|
|
437 L0331 inc <u0010
|
|
|
438 bsr L02ED
|
|
|
439 lda #$FF
|
|
|
440 sta <u0010
|
|
|
441 bsr L02E7
|
|
|
442 leax <u0016,u
|
|
|
443 bsr L03BC
|
|
|
444 lbcs L00C8
|
|
|
445 lda #$02
|
|
|
446 bsr L02FF
|
|
|
447 lbsr L03DC
|
|
|
448 clr <u0010
|
|
|
449 lbra L005E
|
|
|
450 L0350 ldd #$0001
|
|
|
451 bra L036E
|
|
|
452 ldd #$020D
|
|
|
453 stb -$02,x
|
|
|
454 bra L035E
|
|
|
455 lda #$01
|
|
|
456 L035E ldb #$02
|
|
|
457 bra L036E
|
|
|
458 L0362 tst a,u
|
|
|
459 bne L0326
|
|
|
460 pshs b,a
|
|
|
461 tst <u0010
|
|
|
462 bmi L0386
|
|
|
463 bra L0378
|
|
|
464 L036E tst a,u
|
|
|
465 bne L0326
|
|
|
466 pshs b,a
|
|
|
467 ldb #$0D
|
|
|
468 stb -$01,x
|
|
|
469 L0378 os9 I$Dup
|
|
|
470 bcs L03A8
|
|
|
471 ldb ,s
|
|
|
472 sta b,u
|
|
|
473 lda ,s
|
|
|
474 os9 I$Close
|
|
|
475 L0386 lda $01,s
|
|
|
476 bmi L0391
|
|
|
477 ldb ,s
|
|
|
478 bsr L03E1
|
|
|
479 tsta
|
|
|
480 bpl L0398
|
|
|
481 L0391 anda #$0F
|
|
|
482 os9 I$Dup
|
|
|
483 bra L03A6
|
|
|
484 L0398 bita #$02
|
|
|
485 bne L03A1
|
|
|
486 os9 I$Open
|
|
|
487 bra L03A6
|
|
|
488 L03A1 ldb #$0B
|
|
|
489 os9 I$Create
|
|
|
490 L03A6 stb $01,s
|
|
|
491 L03A8 puls pc,b,a
|
|
|
492 L03AA clra
|
|
|
493 L03AB ldb #$03
|
|
|
494 bra L0362
|
|
|
495 lda #$0D
|
|
|
496 L03B1 sta -$04,x
|
|
|
497 L03B3 bsr L03BC
|
|
|
498 bcc L03DC
|
|
|
499 L03B7 rts
|
|
|
500 lda #$0D
|
|
|
501 sta -$02,x
|
|
|
502 L03BC bsr L03AA
|
|
|
503 bcs L03B7
|
|
|
504 ldd #$0180
|
|
|
505 bra L0362
|
|
|
506 lda #$0D
|
|
|
507 sta -$03,x
|
|
|
508 bsr L03AA
|
|
|
509 bcs L03B7
|
|
|
510 ldd #$0280
|
|
|
511 bra L0362
|
|
|
512 lda #$0D
|
|
|
513 sta -$03,x
|
|
|
514 lda #$01
|
|
|
515 bsr L03AB
|
|
|
516 bcs L03B7
|
|
|
517 L03DC ldd #$0281
|
|
|
518 bra L0362
|
|
|
519 L03E1 pshs x,b,a
|
|
|
520 ldd ,x++
|
|
|
521 cmpd #$2F30
|
|
|
522 bcs L040D
|
|
|
523 cmpd #$2F32
|
|
|
524 bhi L040D
|
|
|
525 pshs x,b,a
|
|
|
526 lbsr L0241
|
|
|
527 puls x,b,a
|
|
|
528 bcs L040D
|
|
|
529 andb #$03
|
|
|
530 cmpb $01,s
|
|
|
531 bne L0404
|
|
|
532 ldb $01,s
|
|
|
533 ldb b,u
|
|
|
534 L0404 orb #$80
|
|
|
535 stb ,s
|
|
|
536 puls b,a
|
|
|
537 leas $02,s
|
|
|
538 rts
|
|
|
539 L040D puls pc,x,b,a
|
|
|
540 ldb #$0D
|
|
|
541 stb -$01,x
|
|
|
542 ldb <u0003
|
|
|
543 lbne L0326
|
|
|
544 lbsr L05CC
|
|
|
545 eora #$4B
|
|
|
546 anda #$DF
|
|
|
547 bne L042C
|
|
|
548 leax $01,x
|
|
|
549 lda #$04
|
|
|
550 mul
|
|
|
551 tsta
|
|
|
552 lbne L0326
|
|
|
553 L042C stb <u0003
|
|
|
554 lbra L0241
|
|
|
555 leax -$01,x
|
|
|
556 lbsr L04CA
|
|
|
557 bra L043B
|
|
|
558 lbsr L04C6
|
|
|
559 L043B bcs L044E
|
|
|
560 lbsr L02ED
|
|
|
561 bsr L045F
|
|
|
562 L0442 bcs L044E
|
|
|
563 lbsr L0241
|
|
|
564 cmpa #$0D
|
|
|
565 bne L044D
|
|
|
566 leas $04,s
|
|
|
567 L044D clrb
|
|
|
568 L044E lbra L02ED
|
|
|
569 bsr L04C6
|
|
|
570 bcs L044E
|
|
|
571 bsr L044E
|
|
|
572 ldb #$26
|
|
|
573 lbsr L0597
|
|
|
574 bra L0442
|
|
|
575 clra
|
|
|
576 L045F pshs a
|
|
|
577 L0461 os9 F$Wait
|
|
|
578 tst <u000E
|
|
|
579 beq L0479
|
|
|
580 ldb <u000E
|
|
|
581 cmpb #$02
|
|
|
582 bne L0491
|
|
|
583 lda ,s
|
|
|
584 beq L0491
|
|
|
585 os9 F$Send
|
|
|
586 clr ,s
|
|
|
587 bra L0461
|
|
|
588 L0479 bcs L0495
|
|
|
589 cmpa ,s
|
|
|
590 beq L0491
|
|
|
591 tst ,s
|
|
|
592 beq L0486
|
|
|
593 tstb
|
|
|
594 beq L0461
|
|
|
595 L0486 pshs b
|
|
|
596 bsr L044E
|
|
|
597 ldb #$2D
|
|
|
598 lbsr L0597
|
|
|
599 puls b
|
|
|
600 L0491 tstb
|
|
|
601 beq L0495
|
|
|
602 coma
|
|
|
603 L0495 puls pc,a
|
|
|
604 L0497 lda #$11
|
|
|
605 ldb <u0003
|
|
|
606 ldx <u0004
|
|
|
607 ldy <u0006
|
|
|
608 ldu <u0008
|
|
|
609 rts
|
|
|
610 L04A3 lda #$04
|
|
|
611 os9 I$Open
|
|
|
612 bcs L0500
|
|
|
613 leax <u005E,u
|
|
|
614 ldy #$000D
|
|
|
615 os9 I$Read
|
|
|
616 pshs b,cc
|
|
|
617 os9 I$Close
|
|
|
618 puls b,cc
|
|
|
619 lbcs L0561
|
|
|
620 lda $06,x
|
|
|
621 ldy $0B,x
|
|
|
622 bra L04D9
|
|
|
623 L04C6 lda #$0D
|
|
|
624 sta -$01,x
|
|
|
625 L04CA pshs u,y,x
|
|
|
626 clra
|
|
|
627 ldx <u0004
|
|
|
628 os9 F$NMLink
|
|
|
629 bcs L04A3
|
|
|
630 ldx <u0004
|
|
|
631 os9 F$UnLoad
|
|
|
632 L04D9 cmpa #$11
|
|
|
633 beq L0527
|
|
|
634 sty <u000A
|
|
|
635 leax >L0013,pcr
|
|
|
636 L04E4 tst ,x
|
|
|
637 beq L055F
|
|
|
638 cmpa ,x+
|
|
|
639 beq L04F2
|
|
|
640 L04EC tst ,x+
|
|
|
641 bpl L04EC
|
|
|
642 bra L04E4
|
|
|
643 L04F2 ldd <u0008
|
|
|
644 subd <u0004
|
|
|
645 addd <u0006
|
|
|
646 std <u0006
|
|
|
647 ldd <u0004
|
|
|
648 std <u0008
|
|
|
649 bra L0525
|
|
|
650 L0500 ldx <u0006
|
|
|
651 leax $05,x
|
|
|
652 stx <u0006
|
|
|
653 ldx <u0004
|
|
|
654 ldu $04,s
|
|
|
655 lbsr L0350
|
|
|
656 bcs L0561
|
|
|
657 ldu <u0008
|
|
|
658 ldd #$5820
|
|
|
659 std ,--u
|
|
|
660 ldd #$5020
|
|
|
661 std ,--u
|
|
|
662 ldb #$2D
|
|
|
663 stb ,-u
|
|
|
664 stu <u0008
|
|
|
665 leax >L000D,pcr
|
|
|
666 L0525 stx <u0004
|
|
|
667 L0527 ldx <u0004
|
|
|
668 lda #$11
|
|
|
669 os9 F$NMLink
|
|
|
670 bcc L0535
|
|
|
671 os9 F$NMLoad
|
|
|
672 bcs L0561
|
|
|
673 L0535 tst <u0003
|
|
|
674 bne L0542
|
|
|
675 tfr y,d
|
|
|
676 addd <u000A
|
|
|
677 addd #$00FF
|
|
|
678 sta <u0003
|
|
|
679 L0542 lbsr L0497
|
|
|
680 os9 F$Fork
|
|
|
681 pshs b,a,cc
|
|
|
682 bcs L0552
|
|
|
683 ldx #$0001
|
|
|
684 os9 F$Sleep
|
|
|
685 L0552 lda #$11
|
|
|
686 ldx <u0004
|
|
|
687 clr <u0004
|
|
|
688 clr <u0005
|
|
|
689 os9 F$UnLoad
|
|
|
690 puls pc,u,y,x,b,a,cc
|
|
|
691 L055F ldb #$EA
|
|
|
692 L0561 coma
|
|
|
693 puls pc,u,y,x
|
|
|
694
|
|
|
695 L0564 fcc "/pipe"
|
|
|
696 fcb C$CR
|
|
|
697 L0569 pshs x
|
|
|
698 leax <L0564,pcr
|
|
|
699 ldd #$0103
|
|
|
700 lbsr L0362
|
|
|
701 puls x
|
|
|
702 bcs L05CB
|
|
|
703 lbsr L04C6
|
|
|
704 bcs L05CB
|
|
|
705 lda ,u
|
|
|
706 bne L0589
|
|
|
707 os9 I$Dup
|
|
|
708 bcs L05CB
|
|
|
709 sta ,u
|
|
|
710 L0589 clra
|
|
|
711 os9 I$Close
|
|
|
712 lda #$01
|
|
|
713 os9 I$Dup
|
|
|
714 lda #$01
|
|
|
715 lbra L02FF
|
|
|
716 L0597 pshs y,x,b,a
|
|
|
717 pshs y,x,b
|
|
|
718 leax $01,s
|
|
|
719 ldb #$2F
|
|
|
720 L059F incb
|
|
|
721 suba #$64
|
|
|
722 bcc L059F
|
|
|
723 stb ,x+
|
|
|
724 ldb #$3A
|
|
|
725 L05A8 decb
|
|
|
726 adda #$0A
|
|
|
727 bcc L05A8
|
|
|
728 stb ,x+
|
|
|
729 adda #$30
|
|
|
730 ldb #$0D
|
|
|
731 std ,x
|
|
|
732 leax ,s
|
|
|
733 lbsr L00CB
|
|
|
734 leas $05,s
|
|
|
735 puls pc,y,x,b,a
|
|
|
736 bsr L05CC
|
|
|
737 cmpb #$02
|
|
|
738 bls L05E7
|
|
|
739 tfr b,a
|
|
|
740 ldb #$00
|
|
|
741 os9 F$Send
|
|
|
742 L05CB rts
|
|
|
743 L05CC clrb
|
|
|
744 L05CD lda ,x+
|
|
|
745 suba #$30
|
|
|
746 cmpa #$09
|
|
|
747 bhi L05DE
|
|
|
748 pshs a
|
|
|
749 lda #$0A
|
|
|
750 mul
|
|
|
751 addb ,s+
|
|
|
752 bcc L05CD
|
|
|
753 L05DE lda ,-x
|
|
|
754 bcs L05E5
|
|
|
755 tstb
|
|
|
756 bne L05CB
|
|
|
757 L05E5 leas $02,s
|
|
|
758 L05E7 lbra L0326
|
|
|
759 bsr L05CC
|
|
|
760 stb <u0015
|
|
|
761 lbsr L0241
|
|
|
762 bsr L05CC
|
|
|
763 lda <u0015
|
|
|
764 os9 F$SPrior
|
|
|
765 rts
|
|
|
766
|
|
|
767 emod
|
|
|
768 eom equ *
|
|
|
769 end
|
