Mercurial > hg > Members > kono > nitros9-code

annotate level2/cmds/shell_21.asm @ 1500:b00cf13c9f61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Major changes for new NitrOS-9 manual
author boisy
date Mon, 05 Jan 2004 00:51:19 +0000
parents 64a0273a846a
children
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 line 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 *
1255
bf6f854a4299 Changed revisions to 0
boisy
parents: 949
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
bf6f854a4299 Changed revisions to 0
boisy
parents: 949
diff changeset
7 * Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1255
bf6f854a4299 Changed revisions to 0
boisy
parents: 949
diff changeset
9 * 21 ????/??/??
bf6f854a4299 Changed revisions to 0
boisy
parents: 949
diff changeset
10 * Original Tandy/Microware version.
bf6f854a4299 Changed revisions to 0
boisy
parents: 949
diff changeset
11 *
bf6f854a4299 Changed revisions to 0
boisy
parents: 949
diff changeset
12 * 21/2 2003/01/22 Boisy Pitre
bf6f854a4299 Changed revisions to 0
boisy
parents: 949
diff changeset
13 * CHD no longer sets WRITE. permission.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 nam Shell
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 ttl OS-9 command line interpreter
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 * Disassembled 99/04/18 22:59:49 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 atrv set ReEnt+rev
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
26 rev set $02
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 edition set 21
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
31 org 0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0001 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u0003 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u0004 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u0005 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u0006 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 u0008 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u0009 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u000A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u000B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 u000C rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 u000D rmb 1
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
44 kbdsignl rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 u000F rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 u0010 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 u0011 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 u0012 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 u0013 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 u0014 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 u0015 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 u0016 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 u0017 rmb 22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 u002D rmb 3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 u0030 rmb 14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 u003E rmb 32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 u005E rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 u0060 rmb 16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 u0070 rmb 58
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 u00AA rmb 85
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 u00FF rmb 513
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 name equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 L000D fcs /Shell/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 L0013 fcb $13
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 fcs "PascalS"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 fcb $25 %
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 fcs "RunC"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 fcb $22 "
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 fcs "RunB"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 fcb $00
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
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
83 Intro fcb C$LF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 fcc "Shell"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 fcb C$CR
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
86 DefPrmpt fcb C$LF
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
87 OS9Prmpt fcc "OS9:"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
88 OS9PrmL equ *-OS9Prmpt
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
89 DefPrmL equ *-DefPrmpt
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
90
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
91 IcptRtn stb <kbdsignl
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
92 rti
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 start leas -$05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 ldb #$6F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 lbsr L0175
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
98 leax <IcptRtn,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 os9 F$Icpt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 puls x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 beq L005B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 lbsr L017B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 bcs L00C2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 tst <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 bne L00C1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 L005B lds ,s++
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
108 L005E leax <Intro,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 tst <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 bne L0076
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
111 bsr WriteLin
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
112 bcs Exit
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
113 L0069 leax <DefPrmpt,pcr
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
114 ldy #DefPrmL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 L0070 tst <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 bne L0076
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
117 bsr WritLin2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 L0076 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 leax <u0070,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 ldy #$00C8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 os9 I$ReadLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 bcc L0094
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
123 cmpb #E$EOF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 beq L00B8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 L0087 tst <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 bne L008F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 tst <u0014
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 bne L00C2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 L008F os9 F$PErr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 bra L0069
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 L0094 cmpy #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 bhi L00A4
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
133 leax >OS9Prmpt,pcr
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
134 ldy #OS9PrmL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 bra L0070
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 L00A4 tst <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 beq L00AA
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
138 bsr WriteLin
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 L00AA lbsr L017B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 bcc L0069
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 bne L0087
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 bra L0069
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
144
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
145 eofmsg fcc "eof"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 fcb C$CR
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
147
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148 L00B8 tst <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 bne L00C1
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
150 leax <eofmsg,pcr
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
151 bsr WriteLin
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 L00C1 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 L00C2 lda <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 lbne L0331
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
155 Exit os9 F$Exit
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
156
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
157 WriteLin ldy #80
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
158 WritLin2 lda #$02 stderr
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
159 os9 I$WritLn write line
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
161
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
162 * I=...
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
163 Immortal lbsr L03B3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 lbcs L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 pshs x
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
166 ldb #SS.DevNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 leax <u0016,u
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
168 lda #PDELIM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 sta ,x+
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
170 clra stdin
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
171 os9 I$GetStt get device name
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 puls x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 lbcs L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 inc <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 inc <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 lbsr L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 clr <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
179
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
180 L00FB fdb Comment-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
181 fcs "*"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
182 fdb Wait-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
183 fcs "W"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
184 fdb Chd-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 fcs "CHD"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
186 fdb Chx-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 fcs "CHX"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
188 fdb Ex-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 fcs "EX"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
190 fdb Kill-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 fcs "KILL"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
192 fdb X-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
193 fcs "X"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
194 fdb NOX-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
195 fcs "-X"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
196 fdb Prompt-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
197 fcs "P"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
198 fdb NoPrompt-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 fcs "-P"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
200 fdb Echo-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 fcs "T"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
202 fdb NoEcho-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 fcs "-T"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
204 fdb SetPr-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 fcs "SETPR"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
206 fdb Immortal-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 fcs "I="
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
208 fdb NextCmd-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 fcs ";"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
210 fdb $0000
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
211 L013A fdb Pipe-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
212 fcs "!"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
213 fdb NextCmd2-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
214 fcs ";"
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
215 fdb Backgrnd-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 fcs "&"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
217 fdb Return-*
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
218 fcb $8D
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
219 L0146 fdb AllRedir-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 fcs "<>>>"
1264
64a0273a846a Case fixes, etc.
boisy
parents: 1255
diff changeset
221 fdb IERedir-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 fcs "<>>"
1264
64a0273a846a Case fixes, etc.
boisy
parents: 1255
diff changeset
223 fdb IORedir-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 fcs "<>"
1264
64a0273a846a Case fixes, etc.
boisy
parents: 1255
diff changeset
225 fdb OERedir-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 fcs ">>>"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
227 fdb ErrRedir-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 fcs ">>"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
229 fdb InRedir-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 fcs "<"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
231 fdb OutRedir-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 fcs ">"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
233 fdb StkSize-*
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 fcs "#"
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
235 fdb $0000
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
236
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 L0169 fcb $0d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 fcc "()"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 fcb $ff
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 L016D fcb $0d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 fcc "!#&;<>"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 fcb $ff
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 L0175 clr b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 bpl L0175
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 L017B ldb #$0E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 bsr L0175
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 L017F clr <u0003
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
251 clr <kbdsignl
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 leay >L00FB,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 lbsr L020F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 bcs L01DE
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
255 cmpa #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 beq L01DE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 sta <u000C
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
258 cmpa #'(
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 bne L01BA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 leay >L000D,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 sty <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 stx <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 L01A1 inc <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 L01A3 leay <L0169,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 bsr L0227
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
267 cmpa #'(
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 beq L01A1
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
269 cmpa #')
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 bne L01D6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 dec <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
272 bne L01A3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 lda #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 sta -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
275 bra L01BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
276 L01BA bsr L01E1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 bcs L01DE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 L01BE leay <L016D,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 bsr L0227
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
280 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 subd <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
283 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 leay >L013A,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 bsr L020F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 bcs L01DE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 ldy <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
288 L01D6 lbne L0326
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
289 cmpa #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
290 bne L017F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 L01DE lbra L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 L01E1 stx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 bsr L01F4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 bcs L01F3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 L01E7 bsr L01F4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 bcc L01E7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 leay >L0146,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 bsr L020F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 stx <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 L01F3 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
301 L01F4 os9 F$PrsNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 bcc L0205
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
303 lda ,x+
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
304 cmpa #C$PERD
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
305 bne L0209
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
306 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 beq L0207
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
308 leay -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 L0205 leax ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 L0207 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 L0209 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 leax -$01,x
1264
64a0273a846a Case fixes, etc.
boisy
parents: 1255
diff changeset
314 ldb #E$BPNam
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 L020F bsr L0241
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 bsr L0264
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 bcs L0220
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
320 ldd ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
321 jsr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 puls y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 bcc L020F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 L0220 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
327 puls pc,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
328 L0225 puls y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
329 L0227 pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
330 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
331 L022B tst ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
332 bmi L0225
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
333 cmpa #$22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
334 bne L023B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
335 L0233 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 cmpa #$22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
337 bne L0233
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 L023B cmpa ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
340 bne L022B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 puls pc,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
342 L0241 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
343 lda ,x+
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
344 cmpa #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
345 beq L0257
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
346 cmpa #C$COMA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
347 beq L0257
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
348 leax >L016D,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
349 L0251 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
350 bhi L0251
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
351 puls pc,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
352 L0257 leas $02,s
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
353 lda #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
354 L025B cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
355 beq L025B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
356 leax -$01,x
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
357 NextCmd andcc #^Carry
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
358 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
359 L0264 pshs y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
360 leay $02,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
361 L0268 ldx ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
362 L026A lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
363 cmpa #$61
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
364 bcs L0272
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
365 suba #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
366 L0272 eora ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
367 lsla
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
368 bne L0286
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
369 bcc L026A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
370 lda -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
371 cmpa #$C1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
372 bcs L0283
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
373 bsr L0241
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
374 bcs L0286
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375 L0283 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
376 puls pc,y,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 L0286 leay -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
378 L0288 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379 bpl L0288
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 sty $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 ldd ,y++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
382 bne L0268
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
384 puls pc,y,x
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
385
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
386 Ex lbsr L01E1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
387 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 bsr L02B8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
389 bsr L02B7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 bsr L02B7
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
391 bsr Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
393 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
394 subd <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
395 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 leas >u00FF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
397 lbsr L0497
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
398 os9 F$Chain
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
399 lbra L00C2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 L02B7 inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
401 L02B8 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
402 bra L0313
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
403
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
404 Chx lda #DIR.+EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
405 bra L02C2
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
406 *Chd lda #DIR.+UPDAT. note write mode!!
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
407 * Removed WRITE. requirement above (some devices are read only)
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
408 Chd lda #DIR.+READ. note write mode!!
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 L02C2 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
411
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
412 Prompt clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 bra L02CB
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
414
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
415 NoPrompt lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
416 L02CB sta <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
417 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
418
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
419 Echo lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
420 bra L02D3
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
421 NoEcho clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
422 L02D3 sta <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
423 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
424
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
425 X lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
426 bra L02DB
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
427
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
428 NOX clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
429 L02DB sta <u0014
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
430 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
431 Comment lda #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 L02E0 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
433 bne L02E0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 cmpa ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
435 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 L02E7 pshs b,a,cc
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
437
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
438 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
439 bra L02F1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 L02ED pshs b,a,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
441 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
442 L02F1 sta <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
443 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
444 L02F4 bsr L02FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
445 inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
446 cmpa <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 bls L02F4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
448 ror ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
449 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
450 L02FF pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
451 tst <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
452 bmi L031B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
453 bne L0313
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
454 tst a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
455 beq L031E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 lda a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
458 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
459 L0313 ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
460 lda b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
461 beq L031E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
462 clr b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
463 L031B os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
464 L031E puls pc,a
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
465
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
466 L0320 fcc "WHAT?"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
467 fcb C$CR
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
468
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
469 L0326 bsr L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
470 leax <L0320,pcr
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
471 lbsr WriteLin
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
472 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
473 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
474 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
475
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
476 L0331 inc <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
477 bsr L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
478 lda #$FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
479 sta <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
480 bsr L02E7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
481 leax <u0016,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
482 bsr L03BC
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
483 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
484 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
485 bsr L02FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
486 lbsr L03DC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
487 clr <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
488 lbra L005E
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
489 InRedir ldd #$0001
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
490 bra L036E
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
491 ErrRedir ldd #$020D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
492 stb -$02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
493 bra L035E
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
494
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
495 OutRedir lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
496 L035E ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
497 bra L036E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
498 L0362 tst a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
499 bne L0326
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
500 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
501 tst <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
502 bmi L0386
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
503 bra L0378
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
504 L036E tst a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
505 bne L0326
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
506 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
507 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
508 stb -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
509 L0378 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
510 bcs L03A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
511 ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
512 sta b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
513 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
514 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
515 L0386 lda $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
516 bmi L0391
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
517 ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
518 bsr L03E1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
519 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
520 bpl L0398
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 L0391 anda #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
523 bra L03A6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
524 L0398 bita #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
525 bne L03A1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
526 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
527 bra L03A6
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
528 L03A1 ldb #PREAD.+READ.+WRITE.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
529 os9 I$Create
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
530 L03A6 stb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
531 L03A8 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
532 L03AA clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
533 L03AB ldb #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
534 bra L0362
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
535
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
536 AllRedir lda #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
537 L03B1 sta -$04,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
538 L03B3 bsr L03BC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
539 bcc L03DC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
540 L03B7 rts
1264
64a0273a846a Case fixes, etc.
boisy
parents: 1255
diff changeset
541 IORedir lda #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
542 sta -$02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
543 L03BC bsr L03AA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
544 bcs L03B7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
545 ldd #$0180
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
546 bra L0362
1264
64a0273a846a Case fixes, etc.
boisy
parents: 1255
diff changeset
547 IERedir lda #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
548 sta -$03,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
549 bsr L03AA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
550 bcs L03B7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
551 ldd #$0280
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
552 bra L0362
1264
64a0273a846a Case fixes, etc.
boisy
parents: 1255
diff changeset
553 OERedir lda #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
554 sta -$03,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
555 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
556 bsr L03AB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
557 bcs L03B7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
558 L03DC ldd #$0281
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
559 bra L0362
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
560 L03E1 pshs x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
561 ldd ,x++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
562 cmpd #$2F30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
563 bcs L040D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
564 cmpd #$2F32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
565 bhi L040D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
566 pshs x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
567 lbsr L0241
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
568 puls x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
569 bcs L040D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
570 andb #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
571 cmpb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
572 bne L0404
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
573 ldb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
574 ldb b,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
575 L0404 orb #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
576 stb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
577 puls b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
578 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
579 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
580 L040D puls pc,x,b,a
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
581
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
582 StkSize ldb #$0D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
583 stb -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
584 ldb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
585 lbne L0326
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
586 lbsr ASC2Int
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
587 eora #'K
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
588 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
589 bne L042C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
590 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
591 lda #$04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
592 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
593 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
594 lbne L0326
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
595 L042C stb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
596 lbra L0241
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
597
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
598 Return leax -$01,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
599 lbsr L04CA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
600 bra L043B
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
601
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
602 NextCmd2 lbsr L04C6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
603 L043B bcs L044E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
604 lbsr L02ED
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
605 bsr L045F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
606 L0442 bcs L044E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
607 lbsr L0241
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
608 cmpa #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
609 bne L044D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
610 leas $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
611 L044D clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
612 L044E lbra L02ED
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
613
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
614 Backgrnd bsr L04C6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
615 bcs L044E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
616 bsr L044E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
617 ldb #$26
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
618 lbsr L0597
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
619 bra L0442
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
620
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
621 Wait clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
622 L045F pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
623 L0461 os9 F$Wait
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
624 tst <kbdsignl
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
625 beq L0479
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
626 ldb <kbdsignl
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
627 cmpb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
628 bne L0491
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
629 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
630 beq L0491
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
631 os9 F$Send
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
632 clr ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
633 bra L0461
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
634 L0479 bcs L0495
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
635 cmpa ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
636 beq L0491
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
637 tst ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
638 beq L0486
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
639 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
640 beq L0461
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
641 L0486 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
642 bsr L044E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
643 ldb #$2D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
644 lbsr L0597
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
645 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
646 L0491 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
647 beq L0495
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
648 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
649 L0495 puls pc,a
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
650 L0497 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
651 ldb <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
652 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
653 ldy <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
654 ldu <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
655 rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
656 L04A3 lda #EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
657 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
658 bcs L0500
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
659 leax <u005E,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
660 ldy #$000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
661 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
662 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
663 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
664 puls b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
665 lbcs L0561
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
666 lda $06,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
667 ldy $0B,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
668 bra L04D9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
669 L04C6 lda #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
670 sta -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
671 L04CA pshs u,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
672 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
673 ldx <u0004
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
674 IFGT Level-1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
675 os9 F$NMLink
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
676 ELSE
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
677 os9 F$Link
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
678 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
679 bcs L04A3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
680 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
681 os9 F$UnLoad
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
682 L04D9 cmpa #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
683 beq L0527
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
684 sty <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
685 leax >L0013,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
686 L04E4 tst ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
687 beq L055F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
688 cmpa ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
689 beq L04F2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
690 L04EC tst ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
691 bpl L04EC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
692 bra L04E4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
693 L04F2 ldd <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
694 subd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
695 addd <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
696 std <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
697 ldd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
698 std <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
699 bra L0525
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
700 L0500 ldx <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
701 leax $05,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
702 stx <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
703 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
704 ldu $04,s
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
705 lbsr InRedir
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
706 bcs L0561
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
707 ldu <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
708 ldd #$5820
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
709 std ,--u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
710 ldd #$5020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
711 std ,--u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
712 ldb #$2D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
713 stb ,-u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
714 stu <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
715 leax >L000D,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
716 L0525 stx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
717 L0527 ldx <u0004
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
718 lda #Prgrm+Objct
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
719 IFGT Level-1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
720 os9 F$NMLink
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
721 ELSE
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
722 os9 F$Link
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
723 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
724 bcc L0535
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
725 IFGT Level-1
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
726 os9 F$NMLoad
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
727 ELSE
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
728 os9 F$Load
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
729 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
730 bcs L0561
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
731 L0535 tst <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
732 bne L0542
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
733 tfr y,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
734 addd <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
735 addd #$00FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
736 sta <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
737 L0542 lbsr L0497
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
738 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
739 pshs b,a,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
740 bcs L0552
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
741 ldx #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
742 os9 F$Sleep
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
743 L0552 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
744 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
745 clr <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
746 clr <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
747 os9 F$UnLoad
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
748 puls pc,u,y,x,b,a,cc
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
749
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
750 L055F ldb #E$NEMod
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
751 L0561 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
752 puls pc,u,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
753
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
754 PipeName fcc "/pipe"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
755 fcb C$CR
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
756
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
757 Pipe pshs x
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
758 leax <PipeName,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
759 ldd #$0103
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
760 lbsr L0362
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
761 puls x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
762 bcs L05CB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
763 lbsr L04C6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
764 bcs L05CB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
765 lda ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
766 bne L0589
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
767 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
768 bcs L05CB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
769 sta ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
770 L0589 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
771 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
772 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
773 os9 I$Dup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
774 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
775 lbra L02FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
776 L0597 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
777 pshs y,x,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
778 leax $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
779 ldb #$2F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
780 L059F incb
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
781 suba #100
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
782 bcc L059F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
783 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
784 ldb #$3A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
785 L05A8 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
786 adda #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
787 bcc L05A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
788 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
789 adda #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
790 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
791 std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
792 leax ,s
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
793 lbsr WriteLin
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
794 leas $05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
795 puls pc,y,x,b,a
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
796
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
797 * Kill a process
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
798 Kill bsr ASC2Int
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
799 cmpb #$02 compare against first user process ID
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
800 bls L05E7 if lower or same,
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
801 tfr b,a transfer process ID to A
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
802 ldb #S$Kill load B with kill signal
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
803 os9 F$Send and send to process in A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
804 L05CB rts
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
805
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
806 * Entry: X = ASCII representation of number
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
807 * Exit : B = decimal value of ASCII number
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
808 ASC2Int clrb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
809 L05CD lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
810 suba #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
811 cmpa #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
812 bhi L05DE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
813 pshs a
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
814 lda #10
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
815 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
816 addb ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
817 bcc L05CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
818 L05DE lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
819 bcs L05E5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
820 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
821 bne L05CB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
822 L05E5 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
823 L05E7 lbra L0326
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
824
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
825 SetPr bsr ASC2Int
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
826 stb <u0015
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
827 lbsr L0241
949
cd215e8dce44 Added comments and fixed jump tables, added code for possible integration
boisy
parents: 510
diff changeset
828 bsr ASC2Int
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
829 lda <u0015
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
830 os9 F$SPrior
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
831 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
832
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
833 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
834 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
835 end