Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/shell_21.asm @ 193:c30930f8f3f8

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