Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/tmode.asm @ 286:326238550911

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