Dariaceli's Git
Browse code

Added selection to launcher

Devine Lu Linvega authored on 07/11/2021 20:55:26
Showing 2 changed files
projects/assets/mascot0cx0c.tal
History View file @ 9cc303d
... ... 
@@ -1,5 +1,5 @@
1 1 
 @mascot-icn
2 
-    0000 0000 0000 0000 0000 0000 0000 0000
2 
+0000 0000 0000 0000 0000 0000 0000 0000
3 3 
 0000 0000 0000 0000 0000 0000 0000 0000
4 4 
 0000 0000 0304 0808 0000 0000 0080 8080
5 5 
 0000 0000 0000 0000 0000 0000 0000 0000
... ... 
@@ -18,13 +18,13 @@
18 18 
 0202 0202 0202 0202 0000 0000 0000 0000
19 19 
 0000 0000 0000 0006 0000 0000 0000 0000
20 20 
 0000 0000 0000 0000 0000 0000 0000 0000
21 
-4140 2020 1008 0407 20b0 9080 0844 4420
21 
+4140 2020 1008 0406 20a0 9088 0844 4420
22 22 
 8040 2010 0000 0000 0020 0000 0000 0000
23 23 
 0000 0000 0000 0000 2020 1010 0800 0000
24 24 
 0202 0204 0406 0af1 0000 0003 0418 6000
25 25 
 1161 8000 0001 0102 0000 8080 8000 0000
26 26 
 0000 0000 0000 0000 0000 0000 0000 0000
27 
-0808 0808 0008 0808 8000 0000 0000 0000
27 
+0908 0808 0008 0808 8000 0000 0000 0000
28 28 
 0000 0000 0000 0400 0000 0000 0000 0000
29 29 
 0000 0000 0000 0000 0000 0000 0000 0002
30 30 
 0100 0000 0000 0000 0080 805f 4020 2020
... ... 
@@ -50,13 +50,229 @@ fafa 9204 f800 0000 1010 2020 2020 2020
50 50 
 0000 0000 0000 0000 0202 0202 0201 0101
51 51 
 0100 0000 0000 0000 0000 0000 0000 0000
52 52 
 0000 0000 0000 0000 0000 0000 0000 0000
53 
-0000 0000 0000 001f 0000 0000 0000 00f0
53 
+0000 0000 0000 0710 0000 0000 0000 c010
54 
+0204 0408 1020 0040 0000 0000 0000 0000
55 
+0000 0000 0000 0000 0000 0000 0000 0000
56 
+0000 0000 0000 0000 0100 0000 0000 0000
57 
+0080 4024 0810 1020 0000 0000 0000 80e0
58 
+0000 0000 0000 0008 0001 0204 0840 6040
59 
+8000 0000 0000 0106 0005 0608 1060 c040
60 
+8000 0000 0000 0000 0000 0000 0000 0000
61 
+0000 0000 0000 0000 0000 0000 0000 0000
62 
+0000 0000 0000 0000 0000 0000 0000 0000
63 
+504d 4189 99a9 ca04 9c03 0202 0302 0202
64 
+0888 7808 e80f 48d8 4041 3e20 20a0 2020
65 
+7c84 0402 0202 0202 2020 6090 1090 c8a8
66 
+0000 0000 0000 0000 0000 0000 0000 0000
67 
+0000 0000 0000 0000 0000 0000 0000 0000
68 
+0000 0000 0000 0000 0000 0000 0000 0000
69 
+0000 0000 0000 0000 0101 0000 0000 0000
70 
+292a 0a04 0000 0000 20a0 6000 0000 0000
71 
+0101 0000 0000 0000 9800 0000 0000 0000
72 
+0000 0000 0000 0000 0000 0000 0000 0000
73 
+0000 0000 0000 0000 0000 0000 0000 0000
74 
+0000 0000 0000 0000 0000 0000 0000 0000
75 
+0000 0000 0000 0000 0000 0000 0000 0000
76 
+0000 0000 0304 0808 0000 0000 0080 8080
77 
+0000 0000 0000 0000 0000 0000 0000 0000
78 
+0000 0000 0000 0030 0000 0000 0000 0000
79 
+0000 0000 0000 0000 0000 0000 0000 0000
80 
+0000 0000 0000 0000 0000 0001 0102 0202
81 
+0070 8808 0804 0404 0000 0000 0000 0000
82 
+1010 1020 2040 4040 4040 4020 2020 2020
83 
+0000 0000 0000 0000 0000 0001 0202 0404
84 
+4888 8404 0402 0202 0000 0000 0000 0000
85 
+0000 0000 0000 0000 0000 0000 0000 0000
86 
+0000 0000 0000 0000 0202 0202 0101 0101
87 
+0404 0202 0302 0202 0000 0000 0002 8cb0
88 
+4080 8080 8000 0080 2020 1f10 1010 1010
89 
+0000 f807 0000 0000 0808 1890 7020 2020
90 
+0202 0202 0202 0202 0000 0000 0000 0000
91 
+0000 0000 0000 0611 0000 0000 0000 0000
92 
+0000 0000 0000 0000 0000 0000 0000 0000
93 
+8281 4141 2010 0806 4040 2010 0884 4420
94 
+8040 2010 0000 0000 0020 0000 0000 0000
95 
+0000 0000 0000 0000 2020 1010 0800 0000
96 
+0202 0204 0406 0af1 0000 0304 1820 4000
97 
+6180 0000 0101 0204 0080 8080 0000 0000
98 
+0000 0000 0000 0000 0000 0000 0000 0000
99 
+0908 0808 0008 0808 8000 0000 0000 0000
100 
+0000 0000 0000 0400 0000 0000 0000 0000
101 
+0000 0000 0000 0000 0000 0000 0000 0002
102 
+0100 0000 0000 0000 0080 835c 4020 2020
103 
+1860 8000 0000 0000 0000 0000 0000 0000
104 
+0000 0000 0000 0000 0000 0000 0000 0000
105 
+0808 0808 0808 0808 0000 0001 0000 0f09
106 
+0000 00f0 0000 fe12 0000 0000 0000 0000
107 
+0000 0000 0000 0000 0000 0000 0100 0704
108 
+0000 0000 f800 fe92 2010 1010 1010 1010
109 
+0000 0000 0000 0000 0000 0000 0000 0000
110 
+0000 0000 0000 0000 0000 0004 0a0a 1404
111 
+0804 0404 0404 0404 0b0b 0907 0001 0000
112 
+fafb 12fc 00d0 0000 00ff 0000 0000 0000
113 
+00ff 0000 0000 0000 05fd 0700 0100 0000
114 
+fafa fe00 7800 0000 1010 2020 2020 2020
115 
+0000 0000 0000 0000 0000 0000 0000 0000
116 
+0000 0000 0000 0000 2422 0232 0118 0002
117 
+0404 1c62 0202 0000 0000 0000 0000 0000
118 
+0000 0000 0000 0000 0000 0000 0000 0000
119 
+0000 0000 0000 0000 0000 0000 0000 0000
120 
+0000 0000 0000 0102 4040 4040 8080 0000
121 
+0000 0000 0000 0000 0000 0000 0000 0000
122 
+0000 0000 0000 0000 0202 0202 0201 0101
123 
+0100 0000 0000 0000 0000 0000 0000 0000
124 
+0000 0000 0000 0000 0000 0000 0000 0000
125 
+0000 0000 0000 0710 0000 0000 0000 c010
126 
+0204 0408 1020 0040 0000 0000 0000 0000
127 
+0000 0000 0000 0000 0000 0000 0000 0000
128 
+0000 0000 0000 0000 0100 0000 0000 0000
129 
+0080 4024 0810 1020 0000 0000 0000 80e0
130 
+0000 0000 0000 0008 0001 0204 0840 6040
131 
+8000 0000 0000 0106 0005 0608 1060 c040
132 
+8000 0000 0000 0000 0000 0000 0000 0000
133 
+0000 0000 0000 0000 0000 0000 0000 0000
134 
+0000 0000 0000 0000 0000 0000 0000 0000
135 
+504d 4189 99a9 ca04 9c03 0202 0302 0202
136 
+0888 7808 e80f 48d8 4041 3e20 20a0 2020
137 
+7c84 0402 0202 0202 2020 6090 1090 c8a8
138 
+0000 0000 0000 0000 0000 0000 0000 0000
139 
+0000 0000 0000 0000 0000 0000 0000 0000
140 
+0000 0000 0000 0000 0000 0000 0000 0000
141 
+0000 0000 0000 0000 0101 0000 0000 0000
142 
+292a 0a04 0000 0000 20a0 6000 0000 0000
143 
+0101 0000 0000 0000 9800 0000 0000 0000
144 
+0000 0000 0000 0000 0000 0000 0000 0000
145 
+0000 0000 0000 0000 0000 0000 0000 0000
146 
+0000 0000 0000 0000 0000 0000 0000 0000
147 
+0000 0000 0000 0000 0000 0000 0000 0000
148 
+0000 0000 0304 0808 0000 0000 0080 8080
149 
+0000 0000 0000 0000 0000 0000 0000 0000
150 
+0000 0000 0000 0030 0000 0000 0000 0000
151 
+0000 0000 0000 0000 0000 0000 0000 0000
152 
+0000 0000 0000 0000 0000 0000 0001 0101
153 
+0038 4484 8402 0202 0000 0000 0000 0000
154 
+1010 1020 2040 4040 4040 4020 2020 2020
155 
+0000 0000 0000 0000 0000 0001 0202 0404
156 
+4888 8404 0402 0202 0000 0000 0000 0000
157 
+0000 0000 0000 0000 0000 0000 0000 0000
158 
+0000 0000 0000 0000 0101 0101 0000 0000
159 
+0202 0101 8181 8181 0000 0000 8002 4c70
160 
+4080 8080 8000 0080 2020 1f10 1010 1010
161 
+0000 f807 0000 0000 0808 1890 7020 2020
162 
+0202 0202 0202 0202 0000 0000 0000 0000
163 
+0000 0000 0000 0006 0000 0000 0000 0000
164 
+0000 0000 0000 0000 0000 0000 0000 0000
165 
+4140 2020 1008 0406 20a0 9088 0844 4420
166 
+8040 2010 0000 0000 0020 0000 0000 0000
167 
+0000 0000 0000 0000 2020 1010 0800 0000
168 
+0202 0204 0406 0af1 0000 0003 0418 6000
169 
+1161 8000 0001 0102 0000 8080 8000 0000
170 
+0000 0000 0000 0000 0000 0000 0000 0000
171 
+0908 0808 0008 0808 8000 0000 0000 0000
172 
+0000 0000 0000 0400 0000 0000 0000 0000
173 
+0000 0000 0000 0000 0000 0000 0000 0002
174 
+0100 0000 0000 0000 0080 805f 4020 2020
175 
+0418 e000 0000 0000 0000 0000 0000 0000
176 
+0000 0000 0000 0000 0000 0000 0000 0000
177 
+0808 0808 0808 0808 0000 0001 0000 0000
178 
+0000 00f0 0000 0000 0000 0000 0000 0000
179 
+0000 0000 0000 0000 0000 0000 0100 0000
180 
+0000 0000 f800 0000 2010 1010 1010 1010
181 
+0000 0000 0000 0000 0000 0000 0000 0000
182 
+0000 0000 0000 0000 0000 0001 0205 0902
183 
+0804 0404 8404 0404 0008 0700 0001 0000
184 
+0001 fe00 00d0 0000 00ff 0000 0000 0000
185 
+00ff 0000 0000 0000 00f8 0300 0100 0000
186 
+0002 fc00 7800 0000 1010 2020 2020 2020
187 
+0000 0000 0000 0000 0000 0000 0000 0000
188 
+0000 0000 0000 0000 1212 0119 010c 0002
189 
+0404 1c62 0202 0000 0000 0000 0000 0000
190 
+0000 0000 0000 0000 0000 0000 0000 0000
191 
+0000 0000 0000 0000 0000 0000 0000 0000
192 
+0000 0000 0000 0102 4040 4040 8080 0000
193 
+0000 0000 0000 0000 0000 0000 0000 0000
194 
+0000 0000 0000 0000 0202 0202 0201 0101
195 
+0100 0000 0000 0000 0000 0000 0000 0000
196 
+0000 0000 0000 0000 0000 0000 0000 0000
197 
+0000 0000 0000 0710 0000 0000 0000 c010
198 
+0204 0408 1020 0040 0000 0000 0000 0000
199 
+0000 0000 0000 0000 0000 0000 0000 0000
200 
+0000 0000 0000 0000 0100 0000 0000 0000
201 
+0080 4024 0810 1020 0000 0000 0000 80e0
202 
+0000 0000 0000 0008 0001 0204 0840 6040
203 
+8000 0000 0000 0106 0005 0608 1060 c040
204 
+8000 0000 0000 0000 0000 0000 0000 0000
205 
+0000 0000 0000 0000 0000 0000 0000 0000
206 
+0000 0000 0000 0000 0000 0000 0000 0000
207 
+504d 4189 99a9 ca04 9c03 0202 0302 0202
208 
+0888 7808 e80f 48d8 4041 3e20 20a0 2020
209 
+7c84 0402 0202 0202 2020 6090 1090 c8a8
210 
+0000 0000 0000 0000 0000 0000 0000 0000
211 
+0000 0000 0000 0000 0000 0000 0000 0000
212 
+0000 0000 0000 0000 0000 0000 0000 0000
213 
+0000 0000 0000 0000 0101 0000 0000 0000
214 
+292a 0a04 0000 0000 20a0 6000 0000 0000
215 
+0101 0000 0000 0000 9800 0000 0000 0000
216 
+0000 0000 0000 0000 0000 0000 0000 0000
217 
+0000 0000 0000 0000 0000 0000 0000 0000
218 
+0000 0000 0000 0000 0000 0000 0000 0000
219 
+0000 0000 0000 0000 0000 0000 0000 0000
220 
+0000 0000 0304 0808 0000 0000 0080 8080
221 
+0000 0000 0000 0000 0000 0000 0000 0000
222 
+0000 0000 0000 0030 0000 0000 0000 0000
223 
+0000 0000 0000 0000 0000 0000 0000 0000
224 
+0000 0000 0000 0000 0000 0000 0001 0101
225 
+0038 4484 8402 0202 0000 0000 0000 0000
226 
+1010 1020 2040 4040 4040 4020 2020 2020
227 
+0000 0000 0000 0000 0000 0001 0202 0404
228 
+4888 8404 0402 0202 0000 0000 0000 0000
229 
+0000 0000 0000 0000 0000 0000 0000 0000
230 
+0000 0000 0000 0000 0101 0101 0000 0000
231 
+0202 0101 8181 8181 0000 0000 8002 4c70
232 
+4080 8080 8000 0080 2020 1f10 1010 1010
233 
+0000 f807 0000 0000 0808 1890 7020 2020
234 
+0202 0202 0202 0202 0000 0000 0000 0000
235 
+0000 0000 0000 0006 0000 0000 0000 0000
236 
+0000 0000 0000 0000 0000 0000 0000 0000
237 
+4140 2020 1008 0406 20a0 9088 0844 4420
238 
+8040 2010 0000 0000 0020 0000 0000 0000
239 
+0000 0000 0000 0000 2020 1010 0800 0000
240 
+0202 0204 0406 0af1 0000 0003 0418 6000
241 
+1161 8000 0001 0102 0000 8080 8000 0000
242 
+0000 0000 0000 0000 0000 0000 0000 0000
243 
+0908 0808 0008 0808 8000 0000 0000 0000
244 
+0000 0000 0000 0400 0000 0000 0000 0000
245 
+0000 0000 0000 0000 0000 0000 0000 0002
246 
+0100 0000 0000 0000 0080 805f 4020 2020
247 
+0418 e000 0000 0000 0000 0000 0000 0000
248 
+0000 0000 0000 0000 0000 0000 0000 0000
249 
+0808 0808 0808 0808 0000 0001 0204 0809
250 
+0000 00f0 0804 0212 0000 0000 0000 0000
251 
+0000 0000 0000 0000 0000 0000 0102 0004
252 
+0000 0000 f804 0292 2010 1010 1010 1010
253 
+0000 0000 0000 0000 0000 0000 0000 0000
254 
+0000 0000 0000 0000 0000 0004 0a0a 1204
255 
+0804 0404 0404 0404 0b0b 0904 0201 0000
256 
+fafb 1204 08f0 0000 00ff 0000 0000 0000
257 
+00ff 0000 0000 0000 05fd 0402 0100 0000
258 
+fafa 9204 f800 0000 1010 2020 2020 2020
259 
+0000 0000 0000 0000 0000 0000 0000 0000
260 
+0000 0000 0000 0000 2424 0232 0118 0002
261 
+0404 1c62 0202 0000 0000 0000 0000 0000
262 
+0000 0000 0000 0000 0000 0000 0000 0000
263 
+0000 0000 0000 0000 0000 0000 0000 0000
264 
+0000 0000 0000 0102 4040 4040 8080 0000
265 
+0000 0000 0000 0000 0000 0000 0000 0000
266 
+0000 0000 0000 0000 0202 0202 0201 0101
267 
+0100 0000 0000 0000 0000 0000 0000 0000
268 
+0000 0000 0000 0000 0000 0000 0000 0000
269 
+0000 0000 0000 0710 0000 0000 0000 c010
54 270 
 0204 0408 1020 0040 0000 0000 0000 0000
55 271 
 0000 0000 0000 0000 0000 0000 0000 0000
56 272 
 0000 0000 0000 0000 0100 0000 0000 0000
57 273 
 0080 4024 0810 1020 0000 0000 0000 80e0
58 274 
 0000 0000 0000 0008 0001 0204 0840 6040
59 
-8000 0000 0000 0106 0005 060c 1060 c040
275 
+8000 0000 0000 0106 0005 0608 1060 c040
60 276 
 8000 0000 0000 0000 0000 0000 0000 0000
61 277 
 0000 0000 0000 0000 0000 0000 0000 0000
62 278 
 0000 0000 0000 0000 0000 0000 0000 0000
projects/software/launcher.tal
History View file @ 9cc303d
... ... 
@@ -11,21 +11,23 @@
11 11 
 %++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
12 12 
 %<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
13 13
14 
+%MOD { DIVk MUL SUB }
15 
+%DEC { #01 - }
14 16 
 %RTN { JMP2r }
15 17 
 %TOS { #00 SWP }
18 
+%SWP? { #01 JCN SWP }
16 19 
 %BRK? { #01 JCN BRK }
17 20 
 %RTN? { #01 JCN RTN }
18 21
19 22 
 %DEBUG  { ;print-hex/byte JSR2 #0a .Console/write DEO }
20 23 
 %DEBUG2 { ;print-hex/short JSR2 #0a .Console/write DEO }
21 24
22 
-%HEX-CHAR { DUP #09 GTH #04 JCN #30 + RTN #57 + }
23 
-
24 25 
 ( devices )
25 26
26 27 
 |00 @System     &vector $2 &wst      $1 &rst    $1 &pad   $4 &r      $2 &g      $2 &b    $2 &debug  $1 &halt $1 ]
27 28 
 |10 @Console    &vector $2 &read     $1 &pad    $5 &write $1 &error  $1 ]
28 29 
 |20 @Screen     &vector $2 &width   $2 &height $2 &auto $1 &pad $1 &x      $2 &y      $2 &addr $2 &pixel $1 &sprite $1
30 
+|30 @Audio0     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
29 31 
 |80 @Controller &vector $2 &button $1 &key    $1 ]
30 32 
 |90 @Mouse      &vector $2 &x        $2 &y      $2 &state $1 &wheel  $1 ]
31 33 
 |a0 @File       &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
... ... 
@@ -35,12 +37,11 @@
35 37
36 38 
 |0000
37 39
38 
-@input $30
39 40 
 @second $1
40 41 
 @pointer
41 42 
 	&x  $2 &y  $2
42 43 
 @browser
43 
-	&x $2 &y $2
44 
+	&x $2 &y $2 &sel $1
44 45
45 46 
 ( init )
46 47
... ... 
@@ -56,6 +57,12 @@
56 57 
 	;on-button .Controller/vector DEO2
57 58 
 	;on-mouse .Mouse/vector DEO2
58 59
60 
+	( setup synth )
61 
+	#0110 .Audio0/adsr DEO2
62 
+	;sin-pcm .Audio0/addr DEO2
63 
+	#0100 .Audio0/length DEO2
64 
+	#dd .Audio0/volume DEO ( TODO: turn ON )
65 
+
59 66 
 	( place )
60 67 
 	#0080 .browser/x STZ2
61 68 
 	#0010 .browser/y STZ2
... ... 
@@ -63,12 +70,7 @@
63 70 
 	( draw mascot )
64 71 
 	#0010 #0010 #0060 #0060 ;mascot-icn #01 ;draw-icn JSR2
65 72
66 
-	( load directory )
67 
-	;dir/path .File/name DEO2
68 
-	#1000 .File/length DEO2
69 
-	;dir/data .File/load DEO2
70 
-
71 
-	;dir/data #07 ;draw-browser JSR2
73 
+	;read-dir JSR2
72 74
73 75 
 	( theme support )
74 76 
 	;load-theme JSR2
... ... 
@@ -104,10 +106,47 @@ BRK
104 106
105 107 
 @on-button ( -> )
106 108
107 
-	.Controller/key DEI BRK?
109 
+	.Controller/button DEI
110 
+	DUP #10 ! ,&no-up JCN
111 
+		#01 .browser/sel LDZ GTHk SWP? POP DEC ;select-file JSR2
112 
+		&no-up
113 
+	DUP #20 ! ,&no-down JCN
114 
+		.browser/sel LDZ ;dir/lines LDA LTHk SWP? POP INC ;select-file JSR2
115 
+		&no-down
116 
+	POP
108 117
109 118 
 BRK
110 119
120 
+@read-dir ( -- )
121 
+
122 
+	;dir/path .File/name DEO2
123 
+	#1000 .File/length DEO2
124 
+	;dir/data .File/read DEO2
125 
+
126 
+	( count lines )
127 
+	LITr 00
128 
+	;dir/data
129 
+	&while
130 
+		LDAk #0a ! ,&no-lb JCN
131 
+			INCr
132 
+			&no-lb
133 
+		INC2 LDAk ,&while JCN
134 
+	POP2
135 
+	STHr #02 - ;dir/lines STA
136 
+
137 
+	;draw-browser JSR2
138 
+
139 
+RTN
140 
+
141 
+@select-file ( id -- )
142 
+
143 
+	DUP
144 
+		.browser/sel STZ
145 
+		#40 + .Audio0/pitch DEO
146 
+	;draw-browser JSR2
147 
+
148 
+RTN
149 
+
111 150 
 @redraw ( -- )
112 151
113 152 
 	RTN
... ... 
@@ -119,23 +158,24 @@ BRK
119 158
120 159 
 RTN
121 160
122 
-@draw-browser ( x* y* addr* color -- )
161 
+@draw-browser ( -- )
123 162
124 
-	STH STH2
163 
+	( line counter ) #00 STH
125 164 
 	.browser/x LDZ2 .Screen/x DEO2
126 165 
 	.browser/y LDZ2 .Screen/y DEO2
127 
-	STH2r
166 
+	;dir/data
128 167 
 	&loop
129 168 
 		LDAk #0a ! ,&no-lb JCN
130 169 
 			#0080 .Screen/x DEO2
131 170 
 			.Screen/y DEI2 #0010 ++ .Screen/y DEO2
171 
+			( incr line counter ) INCr
132 172 
 			,&skip JMP
133 173 
 			&no-lb
134 174 
 		( top-addr ) LDAk #20 - TOS #0010 MUL2 ;font ++ .Screen/addr DEO2
135 
-		( top-draw ) STHkr .Screen/sprite DEO
175 
+		( top-draw ) #01 [ .browser/sel LDZ STHkr = #0c * + ] .Screen/sprite DEO
136 176 
 		( bottom-addr ) .Screen/addr DEI2 #0008 ++ .Screen/addr DEO2
137 177 
 		( next-y ) .Screen/y DEI2 #0008 ++ .Screen/y DEO2
138 
-		( bottom-draw ) STHkr .Screen/sprite DEO
178 
+		( bottom-draw ) #01 [ .browser/sel LDZ STHkr = #0c * + ] .Screen/sprite DEO
139 179 
 		( prev-y ) .Screen/y DEI2 #0008 -- .Screen/y DEO2
140 180 
 		( move ) .Screen/x DEI2 #0008 ++ .Screen/x DEO2
141 181 
 		&skip
... ... 
@@ -177,17 +217,7 @@ RTN
177 217
178 218 
 @hex-char ( hex -- char )
179 219
180 
-	HEX-CHAR
181 
-
182 
-RTN
183 
-
184 
-@draw-cursor ( color -- )
185 
-
186 
-	STH
187 
-	;cursor-icn .Screen/addr DEO2
188 
-	STHkr .Screen/sprite DEO
189 
-	.Screen/y DEI2 #0008 ++ .Screen/y DEO2
190 
-	STHr .Screen/sprite DEO
220 
+	DUP #09 GTH #04 JCN #30 + RTN #57 +
191 221
192 222 
 RTN
193 223
... ... 
@@ -285,6 +315,24 @@ RTN
285 315 
 @cursor-icn
286 316 
 	ffff ffff ffff ffff
287 317
318 
+@sin-pcm
319 
+	8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad
320 
+	b0b3 b6b9 bbbe c1c3 c6c9 cbce d0d2 d5d7
321 
+	d9db dee0 e2e4 e6e7 e9eb ecee f0f1 f2f4
322 
+	f5f6 f7f8 f9fa fbfb fcfd fdfe fefe fefe
323 
+	fffe fefe fefe fdfd fcfb fbfa f9f8 f7f6
324 
+	f5f4 f2f1 f0ee eceb e9e7 e6e4 e2e0 dedb
325 
+	d9d7 d5d2 d0ce cbc9 c6c3 c1be bbb9 b6b3
326 
+	b0ad aaa7 a4a1 9e9b 9895 928f 8c89 8683
327 
+	807d 7a77 7471 6e6b 6865 625f 5c59 5653
328 
+	504d 4a47 4542 3f3d 3a37 3532 302e 2b29
329 
+	2725 2220 1e1c 1a19 1715 1412 100f 0e0c
330 
+	0b0a 0908 0706 0505 0403 0302 0202 0202
331 
+	0102 0202 0202 0303 0405 0506 0708 090a
332 
+	0b0c 0e0f 1012 1415 1719 1a1c 1e20 2225
333 
+	2729 2b2e 3032 3537 3a3d 3f42 4547 4a4d
334 
+	5053 5659 5c5f 6265 686b 6e71 7477 7a7d
335 
+
288 336 
 include projects/library/load-rom.tal
289 337
290 338 
 include projects/assets/logo05x05.tal
... ... 
@@ -293,4 +341,5 @@ include projects/assets/msx01x02.tal
293 341
294 342 
 @dir
295 343 
 	&path ". $1
344 
+	&lines $1
296 345 
 	&data