Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/shell_21.asm @ 12:42fbf11d282b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improved commenting
author boisy
date Fri, 05 Apr 2002 16:59:01 +0000
parents 25d626c770e9
children 0912ac5dc2ff
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Shell - OS-9 Command Interpreter
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * 20 Original Microware distribution version
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Shell
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl OS-9 Command Interpreter
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 02/04/03 22:01:32 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
16 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
18
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
22
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 mod eom,name,tylg,atrv,start,size
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
24
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 u0001 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 u0003 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 u0004 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 u0005 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u0006 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0008 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u000A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u000B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u000C rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u000D rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u000E rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u000F rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 u0010 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u0011 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u0012 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u0013 rmb 4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 u0017 rmb 14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 u0025 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 u0026 rmb 7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 u002D rmb 17
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 u003E rmb 5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 u0043 rmb 8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 u004B rmb 19
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 u005E rmb 46
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 u008C rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 u008D rmb 25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 u00A6 rmb 4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 u00AA rmb 17
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 u00BB rmb 25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 u00D4 rmb 3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 u00D7 rmb 40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 u00FF rmb 438
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 size equ .
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
59
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
60 name fcs /Shell/
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 fcb $14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 L0013 fcb $13
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 fcb $50 P
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 fcb $61 a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 fcb $73 s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 fcb $63 c
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 fcb $61 a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 fcb $6C l
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 fcb $D3 S
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 fcb $25 %
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 fcb $52 R
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 fcb $75 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 fcb $6E n
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 fcb $C3 C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 fcb $22 "
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 fcb $52 R
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 fcb $75 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 fcb $6E n
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 fcb $C2 B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 fcb $00
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
89 L002E fcb C$LF
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
90 fcc "Shell"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
91 fcb C$CR
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
92 L0035 fcb C$LF
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
93 L0036 fcc "OS9:"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
94
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
95 L003A stb <u000E
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
96 rti
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
97
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
98 start leas -$05,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 ldb #$24
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 lbsr L00C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 leax <L003A,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 os9 F$Icpt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 puls x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 beq L005B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 lbsr L0131
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 bcs L00BC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 tst <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 bne L00BB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 L005B lds ,s++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 leax <L002E,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 tst <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 bne L0074
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 bsr L00BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 L0067 leax <L0035,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 ldy #$0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 L006E tst <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 bne L0074
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 bsr L00C3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 L0074 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 leax <u0025,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 ldy #$00C8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 os9 I$ReadLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 bcc L008E
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
126 cmpb #E$EOF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 beq L00B2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 L0085 tst <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 bne L00BC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 os9 F$PErr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 bra L0067
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 L008E cmpy #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 bhi L009E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 leax >L0036,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 ldy #$0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 bra L006E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 L009E tst <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 beq L00A4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 bsr L00BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 L00A4 lbsr L0131
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 bcc L0067
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 bne L0085
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 bra L0067
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
145 L00AE fcc "eof"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
146 fcb C$CR
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
147 L00B2 tst <u000F
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
148 bne L00BB
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
149 leax <L00AE,pcr
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
150 bsr L00BF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
151 L00BB clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 L00BC os9 F$Exit
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
153 L00BF ldy #80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 L00C3 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 L00C9 clr b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 L00CB decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 bpl L00C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 rts
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
161 L00CF fdb Comment-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
162 fcs "*"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
163 fdb Wait-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
164 fcs "W"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
165 fdb Chd-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
166 fcs "CHD"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
167 fdb Chx-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
168 fcs "CHX"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
169 fdb Ex-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
170 fcs "EX"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
171 fdb Kill-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
172 fcs "KILL"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
173 fdb X-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
174 fcs "X"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
175 fdb NOX-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
176 fcs "-X"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
177 fdb Prompt-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
178 fcs "P"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
179 fdb NoPrompt-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
180 fcs "-P"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
181 fdb Echo-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
182 fcs "T"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
183 fdb NoEcho-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
184 fcs "-T"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
185 fdb SetPr-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
186 fcs "SETPR"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
187 fdb NextCmd-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
188 fcs ";"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
189 fdb $0000
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
190 L010A fdb Pipe-*
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
191 fcs "!"
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
192 fdb NextCmd2-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
193 fcs ";"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
194 fdb Backgrnd-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
195 fcs "&"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
196 fdb Return-*
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
197 fcb $80+C$CR
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
198 L0116 fdb ErrRedir-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
199 fcs ">>"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
200 fdb InRedir-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
201 fcs "<"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
202 fdb OutRedir-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
203 fcs ">"
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
204 fdb StkSiz-*
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
205 fcs "#"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
206 fdb $0000
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
207 L0125 fcb $0d
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
208 fcc "()"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
209 fcb $FF
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
210 L0129 fcb $0D
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
211 fcb $21,$23,$26,$3b,$3c,$3e,$ff
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
212 L0131 fcb $c6,$0E,$8d,$94
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 L0135 clr <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 clr <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 leay <L00CF,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 lbsr L01C3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 bcs L0192
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
218 cmpa #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 beq L0192
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 sta <u000C
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
221 cmpa #'(
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 bne L016F
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
223 leay >name,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 sty <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 stx <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 L0156 inc <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 L0158 leay <L0125,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 bsr L01DB
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
230 cmpa #'(
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 beq L0156
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
232 cmpa #')
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 bne L018A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 dec <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 bne L0158
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 lda #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 sta -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 bra L0173
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 L016F bsr L0195
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 bcs L0192
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 L0173 leay <L0129,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 bsr L01DB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 subd <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 leay <L010A,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 bsr L01C3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 bcs L0192
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 ldy <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 L018A lbne L02BE
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
252 cmpa #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 bne L0135
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 L0192 lbra L028F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 L0195 stx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 bsr L01A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 bcs L01A7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 L019B bsr L01A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 bcc L019B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 leay >L0116,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 bsr L01C3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 stx <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 L01A7 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 L01A8 os9 F$PrsNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 bcc L01B9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 lda ,x+
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
267 cmpa #C$PERD
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 bne L01BD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 beq L01BB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 leay -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
272 L01B9 leax ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 L01BB clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
275 L01BD comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
276 leax -$01,x
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
277 ldb #E$BPNAM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 L01C3 bsr L01E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
280 pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 bsr L020C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 bcs L01D4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
283 ldd ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 jsr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 puls y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 bcc L01C3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
288 L01D4 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
290 puls pc,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 L01D9 puls y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 L01DB pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 L01DF tst ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 bmi L01D9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 cmpa ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 bne L01DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 puls pc,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 L01E9 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 lda ,x+
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
301 cmpa #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 beq L01FF
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
303 cmpa #C$COMA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
304 beq L01FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
305 leax >L0129,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
306 L01F9 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 bhi L01F9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
308 puls pc,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 L01FF leas $02,s
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
310 lda #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 L0203 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 beq L0203
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 leax -$01,x
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
314 NextCmd andcc #^Carry
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 L020C pshs y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 leay $02,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 L0210 ldx ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 L0212 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
320 cmpa #$61
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
321 bcs L021A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 suba #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 L021A eora ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 lsla
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 bne L022E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 bcc L0212
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
327 lda -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
328 cmpa #$C1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
329 bcs L022B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
330 bsr L01E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
331 bcs L022E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
332 L022B clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
333 puls pc,y,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
334 L022E leay -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
335 L0230 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 bpl L0230
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
337 sty $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 ldd ,y++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 bne L0210
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
340 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 puls pc,y,x
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
342
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
343 Ex lbsr L0195
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
344 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
345 bsr L0260
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
346 bsr L025F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
347 bsr L025F
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
348 bsr Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
349 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
350 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
351 subd <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
352 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
353 leas >u00FF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
354 lbsr L0394
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
355 os9 F$Chain
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
356 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
357 L025F inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
358 L0260 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
359 bra L02AB
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
360
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
361 Chx lda #DIR.+EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
362 bra L026A
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
363 Chd lda #DIR.+UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
364 L026A os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
365 rts
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
366 Prompt clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
367 bra L0273
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
368 NoPrompt lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
369 L0273 sta <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
370 rts
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
371 Echo lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
372 bra L027B
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
373 NoEcho clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
374 L027B sta <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375 rts
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
376 X lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 bra L0283
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
378
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
379 NOX clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 L0283 sta <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 rts
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
382 Comment lda #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 L0288 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
384 bne L0288
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
385 cmpa ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
386 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
387 L028F pshs b,a,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
389 L0292 bsr L029D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
391 cmpa #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 bls L0292
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
393 ror ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
394 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
395 L029D pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 tst a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
397 beq L02B6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
398 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
399 lda a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
401 L02AB ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
402 lda b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
403 beq L02B6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
404 clr b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
405 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
406 L02B6 puls pc,a
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
407 L02B8 fcc "WHAT?"
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
408 fcb C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 L02BE bsr L028F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 leax <L02B8,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
411 lbsr L00BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
412 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
414 rts
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
415 InRedir ldd #$0001
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
416 bra L02E3
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
417 ErrRedir ldd #$020D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
418 stb -$02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
419 bra L02D7
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
420
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
421 OutRedir lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
422 L02D7 ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
423 bra L02E3
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
424 L02DB tst a,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
425 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
426 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
427 bra L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
428 L02E3 tst a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
429 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
430 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
431 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 stb -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
433 L02ED os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 bcs L030D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
435 ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 sta b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
437 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
438 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
439 lda $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 bita #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
441 bne L0306
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
442 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
443 bra L030B
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
444 L0306 ldb #PREAD.+READ.+WRITE.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
445 os9 I$Create
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
446 L030B stb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 L030D puls pc,b,a
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
448
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
449 StkSiz ldb #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
450 stb -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
451 ldb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
452 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
453 lbsr L04CA
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
454 eora #'K
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
455 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 bne L0328
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
458 lda #$04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
459 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
460 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
461 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
462 L0328 stb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
463 lbra L01E9
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
464 Return leax -$01,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
465 lbsr L03C7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
466 bra L0337
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
467 NextCmd2 lbsr L03C3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
468 L0337 bcs L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
469 lbsr L028F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
470 bsr L035C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
471 L033E bcs L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
472 lbsr L01E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
473 cmpa #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
474 bne L0349
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
475 leas $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
476 L0349 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
477 L034A lbra L028F
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
478 Backgrnd lbsr L03C3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
479 bcs L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
480 bsr L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
481 ldb #$26
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
482 lbsr L0495
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
483 bra L033E
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
484 Wait clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
485 L035C pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
486 L035E os9 F$Wait
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
487 tst <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
488 beq L0376
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
489 ldb <u000E
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
490 cmpb #S$Abort
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
491 bne L038E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
492 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
493 beq L038E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
494 os9 F$Send
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
495 clr ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
496 bra L035E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
497 L0376 bcs L0392
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
498 cmpa ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
499 beq L038E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
500 tst ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
501 beq L0383
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
502 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
503 beq L035E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
504 L0383 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
505 bsr L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
506 ldb #$2D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
507 lbsr L0495
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
508 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
509 L038E tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
510 beq L0392
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
511 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
512 L0392 puls pc,a
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
513 L0394 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
514 ldb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
515 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
516 ldy <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
517 ldu <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
518 rts
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
519 L03A0 lda #EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
520 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 bcs L03FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 leax <u0013,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
523 ldy #$000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
524 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
525 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
526 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
527 puls b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
528 lbcs L045F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
529 lda $06,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
530 ldy $0B,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
531 bra L03D7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
532 L03C3 lda #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
533 sta -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
534 L03C7 pshs u,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
535 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
536 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
537 os9 F$Link
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
538 bcs L03A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
539 ldy u000B,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
540 os9 F$UnLink
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
541 L03D7 cmpa #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
542 beq L0425
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
543 sty <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
544 leax >L0013,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
545 L03E2 tst ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
546 beq L045D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
547 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
548 beq L03F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
549 L03EA tst ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
550 bpl L03EA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
551 bra L03E2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
552 L03F0 ldd <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
553 subd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
554 addd <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
555 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
556 ldd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
557 std <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
558 bra L0423
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
559 L03FE ldx <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
560 leax $05,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
561 stx <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
562 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
563 ldu $04,s
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
564 lbsr InRedir
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
565 bcs L045F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
566 ldu <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
567 ldd #$5820
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
568 std ,--u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
569 ldd #$5020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
570 std ,--u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
571 ldb #$2D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
572 stb ,-u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
573 stu <u0008
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
574 leax >name,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
575 L0423 stx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
576 L0425 ldx <u0004
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
577 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
578 os9 F$Link
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
579 bcc L0433
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
580 os9 F$Load
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
581 bcs L045F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
582 L0433 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
583 tst <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
584 bne L0442
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
585 ldd u000B,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
586 addd <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
587 addd #$00FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
588 sta <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
589 L0442 lbsr L0394
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
590 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
591 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
592 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
593 bcs L0454
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
594 ldx #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
595 os9 F$Sleep
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
596 L0454 clr <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
597 clr <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
598 os9 F$UnLink
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
599 puls pc,u,y,x,b,cc
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
600
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
601 L045D ldb #E$NEMod
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
602 L045F coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
603 puls pc,u,y,x
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
604
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
605 L0462 fcc "/pipe"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
606 fcb C$CR
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
607 Pipe pshs x
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
608 leax <L0462,pcr
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
609 ldd #$0103
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
610 lbsr L02DB
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
611 puls x
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
612 bcs L04C9
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
613 lbsr L03C3
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
614 bcs L04C9
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
615 lda ,u
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
616 bne L0487
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
617 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
618 bcs L04C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
619 sta ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
620 L0487 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
621 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
622 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
623 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
624 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
625 lbra L029D
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
626
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
627 L0495 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
628 pshs y,x,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
629 leax $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
630 ldb #$2F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
631 L049D incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
632 suba #$64
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
633 bcc L049D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
634 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
635 ldb #$3A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
636 L04A6 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
637 adda #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
638 bcc L04A6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
639 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
640 adda #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
641 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
642 std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
643 leax ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
644 lbsr L00BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
645 leas $05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
646 puls pc,y,x,b,a
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
647
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
648 Kill bsr L04CA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
649 cmpb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
650 bcs L04E5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
651 tfr b,a
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
652 ldb #S$Kill
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
653 os9 F$Send
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
654 L04C9 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
655 L04CA clrb
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
656
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
657 L04CB lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
658 suba #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
659 cmpa #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
660 bhi L04DC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
661 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
662 lda #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
663 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
664 addb ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
665 bcc L04CB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
666 L04DC lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
667 bcs L04E3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
668 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
669 bne L04C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
670 L04E3 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
671 L04E5 lbra L02BE
12
42fbf11d282b Improved commenting
boisy
parents: 10
diff changeset
672 SetPr bsr L04CA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
673 stb <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
674 lbsr L01E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
675 bsr L04CA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
676 lda <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
677 os9 F$SPrior
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
678 rts
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
679
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
680 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
681 eom equ *
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
682 end