Mercurial > hg > Members > kono > nitros9-code

annotate level2/cmds/shell_21.asm @ 1099:b77631456f91

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