Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/shell_21.asm @ 10:25d626c770e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated shell source
author boisy
date Fri, 05 Apr 2002 13:51:23 +0000
parents d4eb10b30e72
children 42fbf11d282b
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
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
161 L00CF fdb L0286-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
162 fcs "*"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
163 fdb L035B-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
164 fcs "W"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
165 fdb L0268-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
166 fcs "CHD"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
167 fdb L0264-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
168 fcs "CHX"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
169 fdb L023E-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
170 fcs "EX"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
171 fdb L04BC-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
172 fcs "KILL"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
173 fdb L027E-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
174 fcs "X"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
175 fdb L0282-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
176 fcs "-X"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
177 fdb L026E-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
178 fcs "P"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
179 fdb L0271-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
180 fcs "-P"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
181 fdb L0276-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
182 fcs "T"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
183 fdb L027A-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
184 fcs "-T"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
185 fdb L04E8-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
186 fcs "SETPR"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
187 fdb L0209-*
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
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
190 L010A fcb $03
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
191 fcb $5E ^ symbol
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
192 fcb $A1 ! symbol
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
193 fdb L0334-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
194 fcs ";"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
195 fdb L034D-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
196 fcs "&"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
197 fdb L032D-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
198 fcb $8D
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
199 L0116 fdb L02CE-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
200 fcs ">>"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
201 fdb L02C9-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
202 fcs "<"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
203 fdb L02D5-*
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
204 fcs ">"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
205 fdb L030F-*
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
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
315 L0209 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
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
343 L023E 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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
348 bsr L0286
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
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
360 L0264 lda #DIR.+EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
361 bra L026A
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
362 L0268 lda #DIR.+UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
363 L026A os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
364 rts
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
365 L026E clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
366 bra L0273
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
367 L0271 lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
368 L0273 sta <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
369 rts
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
370 L0276 lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
371 bra L027B
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
372 L027A clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
373 L027B sta <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
374 rts
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
375 L027E lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
376 bra L0283
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
377 L0282 clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
378 L0283 sta <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379 rts
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
380 L0286 lda #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 L0288 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
382 bne L0288
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 cmpa ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
384 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
385 L028F pshs b,a,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
386 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
387 L0292 bsr L029D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
389 cmpa #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 bls L0292
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
391 ror ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
393 L029D pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
394 tst a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
395 beq L02B6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
397 lda a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
398 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
399 L02AB ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 lda b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
401 beq L02B6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
402 clr b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
403 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
404 L02B6 puls pc,a
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
405 L02B8 fcc "WHAT?"
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
406 fcb C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
407 L02BE bsr L028F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
408 leax <L02B8,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 lbsr L00BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
411 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
412 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 L02C9 ldd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
414 bra L02E3
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
415 L02CE ldd #$020D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
416 stb -$02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
417 bra L02D7
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
418 L02D5 lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
419 L02D7 ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
420 bra L02E3
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
421 L02DB tst a,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
422 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
423 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
424 bra L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
425 L02E3 tst a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
426 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
427 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
428 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
429 stb -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
430 L02ED os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
431 bcs L030D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
433 sta b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
435 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 lda $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
437 bita #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
438 bne L0306
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
439 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 bra L030B
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
441 L0306 ldb #PREAD.+READ.+WRITE.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
442 os9 I$Create
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
443 L030B stb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
444 L030D puls pc,b,a
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
445 L030F ldb #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
446 stb -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 ldb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
448 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
449 lbsr L04CA
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
450 eora #'K
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
451 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
452 bne L0328
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
453 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
454 lda #$04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
455 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 bne L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
458 L0328 stb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
459 lbra L01E9
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
460 L032D leax -$01,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
461 lbsr L03C7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
462 bra L0337
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
463 L0334 lbsr L03C3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
464 L0337 bcs L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
465 lbsr L028F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
466 bsr L035C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
467 L033E bcs L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
468 lbsr L01E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
469 cmpa #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
470 bne L0349
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
471 leas $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
472 L0349 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
473 L034A lbra L028F
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
474 L034D lbsr L03C3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
475 bcs L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
476 bsr L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
477 ldb #$26
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
478 lbsr L0495
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
479 bra L033E
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
480 L035B clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
481 L035C pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
482 L035E os9 F$Wait
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
483 tst <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
484 beq L0376
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
485 ldb <u000E
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
486 cmpb #S$Abort
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
487 bne L038E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
488 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
489 beq L038E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
490 os9 F$Send
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
491 clr ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
492 bra L035E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
493 L0376 bcs L0392
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
494 cmpa ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
495 beq L038E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
496 tst ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
497 beq L0383
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
498 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
499 beq L035E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
500 L0383 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
501 bsr L034A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
502 ldb #$2D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
503 lbsr L0495
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
504 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
505 L038E tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
506 beq L0392
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
507 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
508 L0392 puls pc,a
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
509 L0394 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
510 ldb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
511 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
512 ldy <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
513 ldu <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
514 rts
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
515 L03A0 lda #EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
516 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
517 bcs L03FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
518 leax <u0013,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
519 ldy #$000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
520 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
523 puls b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
524 lbcs L045F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
525 lda $06,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
526 ldy $0B,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
527 bra L03D7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
528 L03C3 lda #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
529 sta -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
530 L03C7 pshs u,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
531 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
532 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
533 os9 F$Link
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
534 bcs L03A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
535 ldy u000B,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
536 os9 F$UnLink
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
537 L03D7 cmpa #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
538 beq L0425
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
539 sty <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
540 leax >L0013,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
541 L03E2 tst ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
542 beq L045D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
543 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
544 beq L03F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
545 L03EA tst ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
546 bpl L03EA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
547 bra L03E2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
548 L03F0 ldd <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
549 subd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
550 addd <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
551 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
552 ldd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
553 std <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
554 bra L0423
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
555 L03FE ldx <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
556 leax $05,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
557 stx <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
558 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
559 ldu $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
560 lbsr L02C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
561 bcs L045F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
562 ldu <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
563 ldd #$5820
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
564 std ,--u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
565 ldd #$5020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
566 std ,--u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
567 ldb #$2D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
568 stb ,-u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
569 stu <u0008
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
570 leax >name,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
571 L0423 stx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
572 L0425 ldx <u0004
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
573 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
574 os9 F$Link
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
575 bcc L0433
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
576 os9 F$Load
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
577 bcs L045F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
578 L0433 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
579 tst <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
580 bne L0442
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
581 ldd u000B,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
582 addd <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
583 addd #$00FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
584 sta <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
585 L0442 lbsr L0394
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
586 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
587 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
588 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
589 bcs L0454
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
590 ldx #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
591 os9 F$Sleep
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
592 L0454 clr <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
593 clr <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
594 os9 F$UnLink
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
595 puls pc,u,y,x,b,cc
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
596
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
597 L045D ldb #E$NEMod
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
598 L045F coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
599 puls pc,u,y,x
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
600
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
601 L0462 fcc "/pipe"
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
602 fcb C$CR
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
603 L0468 pshs x
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
604 leax <L0462,pcr
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
605 ldd #$0103
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
606 lbsr L02DB
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
607 puls x
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
608 bcs L04C9
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
609 lbsr L03C3
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
610 bcs L04C9
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
611 lda ,u
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
612 bne L0487
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
613 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
614 bcs L04C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
615 sta ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
616 L0487 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
617 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
618 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
619 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
620 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
621 lbra L029D
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
622
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
623 L0495 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
624 pshs y,x,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
625 leax $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
626 ldb #$2F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
627 L049D incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
628 suba #$64
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
629 bcc L049D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
630 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
631 ldb #$3A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
632 L04A6 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
633 adda #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
634 bcc L04A6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
635 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
636 adda #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
637 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
638 std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
639 leax ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
640 lbsr L00BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
641 leas $05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
642 puls pc,y,x,b,a
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
643 L04BC bsr L04CA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
644 cmpb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
645 bcs L04E5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
646 tfr b,a
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
647 ldb #S$Kill
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
648 os9 F$Send
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
649 L04C9 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
650 L04CA clrb
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
651
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
652 L04CB lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
653 suba #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
654 cmpa #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
655 bhi L04DC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
656 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
657 lda #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
658 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
659 addb ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
660 bcc L04CB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
661 L04DC lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
662 bcs L04E3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
663 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
664 bne L04C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
665 L04E3 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
666 L04E5 lbra L02BE
1
d4eb10b30e72 Disassembled and commented shell.asm, removed shell binary
boisy
parents: 0
diff changeset
667 L04E8 bsr L04CA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
668 stb <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
669 lbsr L01E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
670 bsr L04CA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
671 lda <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
672 os9 F$SPrior
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
673 rts
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
674
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
675 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
676 eom equ *
10
25d626c770e9 Updated shell source
boisy
parents: 1
diff changeset
677 end