Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/tmode.asm @ 1652:558cab468052

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RG fixed a bug in the Vavasour emulator clock2 module. clock2 is now of type Sbrtn instead of Systm. clock.asm has been modified to link to this type.
author boisy
date Sat, 17 Jul 2004 12:20:31 +0000
parents 84ea83668304
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
1 ********************************************************************
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
2 * Tmode - Change terminal parameters
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
3 *
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
4 * $Id$
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
5 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1166
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1166
diff changeset
7 * Comment
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1166
diff changeset
9 * 12 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1166
diff changeset
10 * From Tandy OS-9 Level Two VR 02.00.01.
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
11
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
12 nam Tmode
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
13 ttl Change terminal parameters
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
15 * Disassembled 98/09/11 18:35:13 by Disasm v1.6 (C) 1988 by RML
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ifp1
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
18 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 endc
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
20
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 atrv set ReEnt+rev
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1166
diff changeset
23 rev set $00
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
24 edition set 12
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
25
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 mod eom,name,tylg,atrv,start,size
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
27
924
c155aac72190 Made cosmetic changes
boisy
parents: 200
diff changeset
28 org 0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u0001 rmb 1
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
31 u0002 rmb 1
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
32 u0003 rmb 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0005 rmb 1
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
34 u0006 rmb 1
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
35 u0007 rmb 32
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
36 u0027 rmb 10
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
37 u0031 rmb 526
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 size equ .
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
39
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
40 name fcs /Tmode/
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
41 fcb edition
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
42
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
43 fdb $0017 Number of options in table
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
44 OptTable fcb $FF $FF = boolean, $00 = value
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
45 fcb $01 default value
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
46 fcb PD.UPC-PD.OPT offset into path descriptor
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 fcb $01
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
48 fcs "upc"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
49
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 fcb $01
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
52 fcb PD.BSO-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 fcb $01
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
54 fcs "bsb"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
55
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 fcb $00
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
58 fcb PD.DLO-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
60 fcs "bsl"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
61
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 fcb $01
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
64 fcb PD.EKO-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 fcb $01
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
66 fcs "echo"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
67
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 fcb $01
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
70 fcb PD.ALF-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 fcb $01
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
72 fcs "lf"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
73
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 fcb $00
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
76 fcb PD.NUL-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
78 fcs "null"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
79
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 fcb $01
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
82 fcb PD.PAU-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 fcb $01
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
84 fcs "pause"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
85
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 fcb $18
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
88 fcb PD.PAG-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
90 fcs "pag"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
91
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 fcb $08
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
94 fcb PD.BSP-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
96 fcs "bsp"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
97
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 fcb $18
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
100 fcb PD.DEL-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
102 fcs "del"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
103
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 fcb $0D
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
106 fcb PD.EOR-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
108 fcs "eor"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
109
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 fcb $1B
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
112 fcb PD.EOF-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
114 fcs "eof"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
115
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 fcb $04
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
118 fcb PD.RPR-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
120 fcs "reprint"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
121
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 fcb $01
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
124 fcb PD.DUP-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
126 fcs "dup"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
127
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 fcb $17
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
130 fcb PD.PSC-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
132 fcs "psc"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
133
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 fcb $03
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
136 fcb PD.INT-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
138 fcs "abort"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
139
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 fcb $05
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
142 fcb PD.QUT-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
144 fcs "quit"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
145
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 fcb $08
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
148 fcb PD.BSE-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
150 fcs "bse"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
151
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 fcb $07
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
154 fcb PD.OVF-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
156 fcs "bell"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
157
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 fcb $15
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
160 fcb PD.PAR-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
162 fcs "type"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
163
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
164 fcb $01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 fcb $02
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
166 fcb PD.BAU-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
168 fcs "baud"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
169
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 fcb $11
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
172 fcb PD.XON-PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
174 fcs "xon"
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
175
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 fcb $13
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
178 fcb PD.XOFF-PD.OPT
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
179 fcb $00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
180 fcs "xoff"
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
181
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
182 start lda #$32
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
183 sta <u0002
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
184 pshs y,x,b,a
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
185 lda #$01
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
186 ldb #SS.ScSiz
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
187 os9 I$GetStt
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
188 bcc L00DB
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
189 cmpb #E$UnkSvc
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
190 beq L00E4
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
191 puls y,x,b,a
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
192 bra L0120
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
193 L00DB cmpx #55
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
194 bge L00E4
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
195 lda #$16
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
196 sta <u0002
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
197 L00E4 puls y,x,b,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 leay ,x
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
199 bsr L0123
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 clra
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
201 cmpb #C$PERD
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
202 bne L00FB
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
203 leay 1,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 suba #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 cmpa #$10
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
207 lbcc L0181
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
208 L00FB sta <u0000
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
209 ldb #SS.Opt
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
210 leax u0007,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 os9 I$GetStt
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
212 bcs L0120
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
213 bsr L0123
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
214 cmpb #C$CR
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
215 lbeq L01F0
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
216 L010E bsr L0134
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
217 bcs L0181
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
218 cmpb #C$CR
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
219 bne L010E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 lda <u0000
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
221 ldb #SS.Opt
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 os9 I$SetStt
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
223 bcs L0120
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 clrb
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
225 L0120 os9 F$Exit
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
226 L0123 ldb ,y+
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
227 cmpb #C$COMA
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
228 bne L012B
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
229 L0129 ldb ,y+
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
230 L012B cmpb #C$SPAC
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
231 beq L0129
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 leay -$01,y
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 190
diff changeset
233 andcc #^Carry
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 rts
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
235 L0134 clr <u0001
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 lda ,y
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
237 cmpa #'-
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
238 bne L0140
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 inc <u0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 leay $01,y
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
241 L0140 sty <u0003
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
242 leax >OptTable,pcr
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
243 lbsr L02D1
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
244 bcs L0181
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 lda ,x
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
246 bpl L015C
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
247 L0150 ldb $01,x
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
248 L0152 lda $02,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 eorb <u0001
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
250 leax u0007,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 stb a,x
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
252 bra L0123
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
253 L015C tst <u0001
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
254 bne L0181
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 ldb ,y
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
256 cmpb #'=
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
257 bne L0150
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 leay $01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 tsta
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
260 bne L01AA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 clrb
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
262 L016C lda ,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 suba #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 cmpa #$09
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
265 bhi L01C1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
267 leay $01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 lda #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 addb ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 adca #$00
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
272 beq L016C
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
273 L0181 leax <L0192,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 ldy #$000E
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
275 bsr L01A4
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
276 ldx <u0003
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
277 bsr L01A0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 os9 F$Exit
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
280
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
281 L0192 fcc "SYNTAX Error: "
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
282
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
283 L01A0 ldy #80
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
284 L01A4 lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 rts
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
287 L01AA bsr L01D1
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
288 bcs L0181
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289 pshs b
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
290 bsr L01D1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 puls a
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
292 bcc L01B9
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 exg a,b
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
295 L01B9 lsla
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 lsla
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 lsla
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 lsla
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 addb ,s+
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
301 L01C1 lda ,y
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
302 cmpa #C$SPAC
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
303 beq L0152
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
304 cmpa #C$CR
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
305 beq L0152
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
306 cmpa #C$COMA
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
307 beq L0152
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
308 bra L0181
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
309 L01D1 ldb ,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 subb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 cmpb #$09
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
312 bls L01E9
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 cmpb #$31
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
314 bcs L01DF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 subb #$20
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
316 L01DF subb #$07
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 cmpb #$0F
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
318 bhi L01EE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 cmpb #$0A
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
320 bcs L01EE
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
321 L01E9 andcc #^Carry
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 leay $01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 rts
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
324 L01EE comb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 rts
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
326 L01F0 clr <u0005
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
327 lda #'/
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
328 lbsr L02AF
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
329 leax <u0031,u
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
330 lda <u0000
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
331 ldb #SS.DevNm
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
332 os9 I$GetStt
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
333 bsr L024A
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
334 lda #C$CR
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
335 lbsr L02AF
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 924
diff changeset
336 leax >OptTable,pcr
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
337 leay u0007,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 clrb
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
339 L020F lda b,y
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
340 bsr L0221
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 incb
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
342 cmpb #C$SPAC
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
343 bcs L020F
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
344 lda #C$CR
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
345 lbsr L02AF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
346 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
347 os9 F$Exit
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
348 L0221 pshs u,y,x,b,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
349 ldy -$02,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
350 L0226 cmpb $02,x
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
351 beq L0236
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
352 leax $04,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
353 L022C lda ,x+
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
354 bpl L022C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
355 leay -$01,y
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
356 bne L0226
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
357 puls pc,u,y,x,b,a
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
358 L0236 bsr L02AD
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
359 tst ,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
360 bpl L025E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
361 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
362 cmpa $03,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
363 beq L0246
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
364 lda #'-
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
365 bsr L02AF
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
366 L0246 bsr L024E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
367 puls pc,u,y,x,b,a
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
368 L024A pshs x
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
369 bra L0252
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
370 L024E pshs x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
371 leax $04,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
372 L0252 lda ,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
373 anda #$7F
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
374 bsr L02AF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375 lda ,x+
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
376 bpl L0252
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 puls pc,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
378 L025E bsr L024E
111
592143a102ee Added more labels
boisy
parents: 110
diff changeset
379 lda #'=
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
380 bsr L02AF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 tst ,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
382 bne L0291
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 ldb ,s
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
384 lda #'/
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
385 clr <u0006
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
386 L026E inca
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
387 subb #$64
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
388 bcc L026E
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
389 bsr L0286
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 lda #$3A
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
391 L0277 deca
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 addb #$0A
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
393 bcc L0277
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
394 bsr L0286
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
395 tfr b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 adda #$30
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
397 bsr L02AF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
398 puls pc,u,y,x,b,a
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
399 L0286 inc <u0006
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 cmpa #$30
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
401 bne L02AF
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
402 dec <u0006
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
403 bne L02AF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
404 rts
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
405 L0291 lda ,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
406 anda #$F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
407 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
408 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 lsra
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
411 bsr L02A3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
412 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 anda #$0F
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
414 bsr L02A3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
415 puls pc,u,y,x,b,a
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
416 L02A3 adda #$30
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
417 cmpa #$39
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
418 bls L02AF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
419 adda #$07
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
420 bra L02AF
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
421 L02AD lda #C$SPAC
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
422 L02AF pshs y,x,b,a
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
423 leax <u0027,u
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
424 ldb <u0005
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
425 sta b,x
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
426 cmpa #C$CR
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
427 beq L02C9
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
428 incb
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
429 cmpb <u0002
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
430 bcs L02CD
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
431 cmpa #C$SPAC
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
432 bne L02CD
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
433 lda #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 sta b,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
435 L02C9 lbsr L01A0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 clrb
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
437 L02CD stb <u0005
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
438 puls pc,y,x,b,a
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
439 L02D1 pshs u,y,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 ldu -$02,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
441 L02D5 ldy $02,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
442 stx ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
443 leax $04,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
444 L02DC lda ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
445 eora ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
446 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 lsla
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
448 bne L02ED
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
449 bcc L02DC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
450 sty $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
451 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
452 puls pc,u,y,x
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
453 L02ED leax -$01,x
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
454 L02EF lda ,x+
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
455 bpl L02EF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 leau -u0001,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 cmpu #$0000
190
d54ad501558d Migrated over OS_9 Level Two version
boisy
parents: 111
diff changeset
458 bne L02D5
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
459 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
460 puls pc,u,y,x
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
461
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
462 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
463 eom equ *
110
4e2459c8bf98 Updated sources to edition 11, original Tandy version
boisy
parents: 109
diff changeset
464 end