1 | 1 |
new file mode 100644 |
... | ... |
@@ -0,0 +1,815 @@ |
1 |
+( blank ) |
|
2 |
+ |
|
3 |
+:dev/r fff8 ( std read port ) |
|
4 |
+:dev/w fff9 ( std write port ) |
|
5 |
+ |
|
6 |
+;i 2 |
|
7 |
+ |
|
8 |
+|0100 @RESET |
|
9 |
+ |
|
10 |
+ #01 =dev/r ( read screen for size ) |
|
11 |
+ #02 =dev/w ( write to sprite ) |
|
12 |
+ |
|
13 |
+ ,paint-background JSR |
|
14 |
+ |
|
15 |
+ |
|
16 |
+BRK |
|
17 |
+ |
|
18 |
+@paint-background ( nil ) |
|
19 |
+ |
|
20 |
+ #01 =dev/r ( read screen for size ) |
|
21 |
+ #02 =dev/w ( write to sprite ) |
|
22 |
+ |
|
23 |
+ #0000 |
|
24 |
+ @paint-background-loop-hor |
|
25 |
+ #0000 |
|
26 |
+ @paint-background-loop |
|
27 |
+ ( draw ) OVR2 IOW2 DUP2 IOW2 ,image ~i ADD2 IOW2 #01 IOW |
|
28 |
+ ( incr ) #0008 ADD2 DUP2 |
|
29 |
+ ( incr ) ~i #0008 ADD2 =i |
|
30 |
+ #00 IOR2 LTH2 ,paint-background-loop ROT JMP? POP2 |
|
31 |
+ POP2 |
|
32 |
+ ( incr ) #0008 ADD2 DUP2 |
|
33 |
+ #02 IOR2 LTH2 ,paint-background-loop-hor ROT JMP? POP2 |
|
34 |
+ POP2 |
|
35 |
+ |
|
36 |
+RTS |
|
37 |
+ |
|
38 |
+@image [ |
|
39 |
+ |
|
40 |
+0000 0802 1001 0410 |
|
41 |
+0095 0055 0024 0154 |
|
42 |
+114a 2114 a209 5005 |
|
43 |
+2552 09a5 540a a114 |
|
44 |
+5548 2651 aa4a 25a8 |
|
45 |
+5592 4955 aa44 2aa9 |
|
46 |
+5555 554a aaaa 5555 |
|
47 |
+556d abaa b5d6 555b |
|
48 |
+b65b 6aad b6d5 5b6c |
|
49 |
+db6d b6d5 bb56 bbd5 |
|
50 |
+6db6 db6d b6db 6ab7 |
|
51 |
+b6db 6db6 db6a af74 |
|
52 |
+db6d b6db 6db6 dbad |
|
53 |
+6db6 db6d b6db 6cb5 |
|
54 |
+bbd7 6e9f bf7e fcf8 |
|
55 |
+ff7c f0e0 8080 0000 |
|
56 |
+0000 0101 0101 0301 |
|
57 |
+f0e0 e0e1 c2d2 c385 |
|
58 |
+375a ef55 faaf 55fa |
|
59 |
+77da 6fb5 da6f b5da |
|
60 |
+77da 6fb5 da6f b5da |
|
61 |
+77da 6eb5 db6d b6db |
|
62 |
+bbd6 edb6 5bed b7ba |
|
63 |
+deb5 dbb6 dd6d b7db |
|
64 |
+dfbe 7cf8 f0e1 e4c1 |
|
65 |
+070a 1d36 5b6d b66d |
|
66 |
+77da b7dd 6bbd ebb6 |
|
67 |
+77da b76d b66d b6db |
|
68 |
+77da 6fb5 dab7 dd6b |
|
69 |
+77da 6fb5 da6f b56e |
|
70 |
+77da 6db6 db6d b6db |
|
71 |
+76da adf6 5bad f75a |
|
72 |
+0002 1000 0421 0004 |
|
73 |
+0190 0540 1500 5401 |
|
74 |
+500a 4114 4210 8a21 |
|
75 |
+a214 4229 9442 9520 |
|
76 |
+924a a924 9255 49a5 |
|
77 |
+9549 55a4 552a 4955 |
|
78 |
+5555 2aaa 55aa 5555 |
|
79 |
+6aad abad 6aab b556 |
|
80 |
+ab55 6e55 da6d 56ab |
|
81 |
+6eb5 aeb5 db6d b6ab |
|
82 |
+da6d b6db 6d56 fb4d |
|
83 |
+dbad d67b add6 7baa |
|
84 |
+f65b adea 5ae5 57be |
|
85 |
+ab6f aa9f f6bf eaf9 |
|
86 |
+e35e fff6 dfa8 57ba |
|
87 |
+fadd f7be ef10 efb5 |
|
88 |
+0383 ebbb f75f a75b |
|
89 |
+8a8f 8916 910a 5538 |
|
90 |
+af55 f6ab 5dea 5f6a |
|
91 |
+6fb5 da6f b5da 6db7 |
|
92 |
+6fb5 da6f b5d6 6db7 |
|
93 |
+6db7 da6d b6db 6db6 |
|
94 |
+57fa adb6 db6d b6db |
|
95 |
+6fdf bede 7cf8 f8f0 |
|
96 |
+8203 0d0b 162d 365b |
|
97 |
+db6d b66f dab7 da6f |
|
98 |
+5bed b65b ed76 adf6 |
|
99 |
+6db7 dd6b bdeb b6db |
|
100 |
+bd6b b66d b66d db6d |
|
101 |
+b56f dab5 dfb5 6db6 |
|
102 |
+6db6 db6d b65b edb6 |
|
103 |
+adf6 5bad f65b adf6 |
|
104 |
+1000 0520 0210 0124 |
|
105 |
+9441 1401 5401 4812 |
|
106 |
+1442 1442 114a 208a |
|
107 |
+9522 9442 1449 9224 |
|
108 |
+14aa 45a9 144a a42a |
|
109 |
+aa55 4a2a aaaa aa55 |
|
110 |
+aa55 ab55 aaab ad55 |
|
111 |
+da55 566a ad56 6aad |
|
112 |
+da55 b7da 55af d56a |
|
113 |
+dd6a 5bed 566b bdd6 |
|
114 |
+b6db 6db6 db6d b6da |
|
115 |
+ac73 af9b 7e6b bff4 |
|
116 |
+dbff 54fd d2cd 36aa |
|
117 |
+a69b 6aad b6db aadb |
|
118 |
+d55b ed56 db6d b556 |
|
119 |
+55ba 57ea 5d6b b6db |
|
120 |
+b6d7 76ae de6e b65c |
|
121 |
+0e23 3c2b 2d36 2b35 |
|
122 |
+5b2d b65b aacd 6bb5 |
|
123 |
+da6d b7da adf7 2add |
|
124 |
+da6d b7da 6db7 aadd |
|
125 |
+db6d b6db 6db6 db6d |
|
126 |
+6db7 d77f afdf 7fbf |
|
127 |
+e0e8 e181 c285 9305 |
|
128 |
+adf6 5bad d268 934e |
|
129 |
+b5dd 6bad bfe9 965b |
|
130 |
+5b44 ffbd 4751 ef5a |
|
131 |
+6db6 cbfd 774d 74db |
|
132 |
+b6db 6d36 d5fd b75f |
|
133 |
+db6d b6db 6d56 e9bf |
|
134 |
+5bed b65b edb6 55aa |
|
135 |
+5bad f655 bbd6 5baa |
|
136 |
+0012 4002 0821 0009 |
|
137 |
+802a 0148 2500 5402 |
|
138 |
+4429 4491 2492 4492 |
|
139 |
+8924 9225 914a a412 |
|
140 |
+49a5 2a52 29a5 9555 |
|
141 |
+4a55 aa55 5555 5555 |
|
142 |
+aa55 ab55 5a55 566a |
|
143 |
+b556 5a6a abad b5aa |
|
144 |
+adab d5ad 556b 55ad |
|
145 |
+5bad 75ae 6bb5 5eab |
|
146 |
+6db5 5aeb 5bea b156 |
|
147 |
+bae5 abd5 2e55 b5ae |
|
148 |
+db6d 55b6 db55 b6db |
|
149 |
+6d56 b5db 556e b5db |
|
150 |
+ebbd 55aa 77a8 d450 |
|
151 |
+556d b4c0 0000 0000 |
|
152 |
+ac0e 0c0c 0c0c 0c04 |
|
153 |
+0e02 0201 0000 0000 |
|
154 |
+d6ab f555 db69 5d69 |
|
155 |
+b66b bd56 eb5d 6ab7 |
|
156 |
+b76a bdd7 6abd d76a |
|
157 |
+b6db 6db6 da6d b6db |
|
158 |
+ff7d 5fde 9e9e 9c0e |
|
159 |
+0e4a 141b 223d 2b5d |
|
160 |
+33cd 36db b5de 6bb5 |
|
161 |
+ad76 db6d b6da 6880 |
|
162 |
+b7da 6fb5 da4b 0000 |
|
163 |
+6db6 db6d b6db 6d16 |
|
164 |
+a1fe 55bb d66d b6db |
|
165 |
+7eab aa76 dbad f65b |
|
166 |
+fffb afd5 6abd d66b |
|
167 |
+fdef 7ddf 6da7 d96e |
|
168 |
+2002 0821 0410 4208 |
|
169 |
+2984 2214 4229 8452 |
|
170 |
+2492 4992 4924 924a |
|
171 |
+aa52 4a29 a555 9552 |
|
172 |
+a9a5 5555 2955 55aa |
|
173 |
+552a 5556 5a55 55aa |
|
174 |
+55ad 55d5 ad55 6aad |
|
175 |
+55b6 555a ab6d aab5 |
|
176 |
+b5aa 55aa 6bb5 aedb |
|
177 |
+75ae dbb5 6eb6 d96f |
|
178 |
+e5aa 55ae f5d5 adb6 |
|
179 |
+6ab5 add6 5a6b adb5 |
|
180 |
+aa6d b6ab da6d 4535 |
|
181 |
+6dab dd6a adb5 5000 |
|
182 |
+4050 b4db 6daa 2d02 |
|
183 |
+0000 0000 c0a0 b8d4 |
|
184 |
+0c0c 080c 0808 0808 |
|
185 |
+0000 0000 0000 0000 |
|
186 |
+2d29 1d15 1516 050a |
|
187 |
+5aef 55ba 6fd5 bad7 |
|
188 |
+dd6b bdd7 6abd d66b |
|
189 |
+6db4 5aec b5ac ec59 |
|
190 |
+3c0c 7c5c 6cac f554 |
|
191 |
+6a37 ad76 ad76 5868 |
|
192 |
+de68 a0c0 0000 0000 |
|
193 |
+0000 0000 0000 0000 |
|
194 |
+0000 0000 0000 0000 |
|
195 |
+0b00 0000 0000 0000 |
|
196 |
+6db6 5b15 0601 0000 |
|
197 |
+d5be d56f b55b 6d16 |
|
198 |
+bdd6 6bbd 6ab7 5aed |
|
199 |
+b5df 69b6 db6d b6db |
|
200 |
+0251 0410 4200 1401 |
|
201 |
+0954 2289 2492 4914 |
|
202 |
+2592 544a a52a 5295 |
|
203 |
+4aaa aa95 55aa 5555 |
|
204 |
+a5aa aa55 5aab 556a |
|
205 |
+55aa b655 ab6d 55aa |
|
206 |
+b6aa db55 6d56 b5ab |
|
207 |
+d6ab 6d5a afd5 765b |
|
208 |
+b55d abf6 5a6f b5d6 |
|
209 |
+b756 ee9d fd3a 75f6 |
|
210 |
+55b5 d65a aaa9 6ca4 |
|
211 |
+55aa a0c4 a000 8000 |
|
212 |
+48a0 4000 0209 2650 |
|
213 |
+0000 04b2 4abf dd03 |
|
214 |
+0200 8050 aa54 eaf5 |
|
215 |
+aada 552d 160a 0b05 |
|
216 |
+0808 0808 8888 4848 |
|
217 |
+0000 0000 0001 0102 |
|
218 |
+1f12 3b55 b65b adf6 |
|
219 |
+6db6 db6d b6db 55de |
|
220 |
+bdd6 6bb5 de6b adb6 |
|
221 |
+b9d9 53ba b375 a5e6 |
|
222 |
+b66c b6d6 6e56 fea7 |
|
223 |
+50a0 6040 6020 a020 |
|
224 |
+0000 0000 0000 0000 |
|
225 |
+0000 0000 0000 0001 |
|
226 |
+0000 0002 0d36 db6d |
|
227 |
+0000 2fd5 bbd5 7eab |
|
228 |
+0000 fe55 6eb5 da6f |
|
229 |
+0502 a1dc b7da ad77 |
|
230 |
+b6db 6d56 bbd5 6eb5 |
|
231 |
+ad76 abdd 6ab7 da6d |
|
232 |
+4802 1005 4015 0054 |
|
233 |
+4295 4924 520a a94a |
|
234 |
+554a 2aa9 aaaa 2aaa |
|
235 |
+55aa aa55 abad aaaa |
|
236 |
+55ab d55a 5556 b5d5 |
|
237 |
+6d56 6bad b5aa 6db6 |
|
238 |
+6db5 566b b5de 53dd |
|
239 |
+6aad db6d b6ab 7dab |
|
240 |
+bbab 76af ef5e bf7e |
|
241 |
+f5e9 ecd4 d4ab a9a8 |
|
242 |
+5050 a020 0800 00a0 |
|
243 |
+0101 040a 132a 1656 |
|
244 |
+0040 8504 1008 1408 |
|
245 |
+0000 6804 0804 040a |
|
246 |
+ba7e 3b3f 1f3b 3f3f |
|
247 |
+8542 4241 a1c0 60d0 |
|
248 |
+88e8 8868 a8a0 d8a0 |
|
249 |
+0506 0b15 2e2a 5bad |
|
250 |
+55ae 75ad d6bb 55dd |
|
251 |
+6ab7 da6d b6aa 6db7 |
|
252 |
+db6d b5db adeb 5dab |
|
253 |
+6b6d 4a5b 565b 556e |
|
254 |
+5bef b75b eb5b b7db |
|
255 |
+2020 40a0 2080 2020 |
|
256 |
+0000 0000 0000 0001 |
|
257 |
+0305 0c13 354a 9440 |
|
258 |
+565b ad6a b680 0000 |
|
259 |
+da6f b5da ab00 0000 |
|
260 |
+d57d aadf 6956 0b00 |
|
261 |
+aadd b76a bdd7 6abb |
|
262 |
+db6d b6db 6a5d eb5d |
|
263 |
+b65b ed55 db6d b65b |
|
264 |
+0228 0251 0422 1442 |
|
265 |
+a412 aa24 924a a915 |
|
266 |
+aaa5 9aa5 aaaa 2a55 |
|
267 |
+b555 ab55 aaad aa55 |
|
268 |
+565a 6b55 aa6d aa56 |
|
269 |
+abd5 5b6d aab6 dbaa |
|
270 |
+6a57 6db5 dbad 76ab |
|
271 |
+dd6a b75b b76e df5f |
|
272 |
+7bfd faee b4f6 d9ac |
|
273 |
+2854 54aa aa28 8040 |
|
274 |
+0000 0001 8001 0001 |
|
275 |
+5eae 5f7b bf7d efff |
|
276 |
+0a05 00c0 d0ff 76ff |
|
277 |
+5440 0103 1ffd efba |
|
278 |
+77fd bff7 7efb dfb7 |
|
279 |
+e8e0 b0f0 f0d2 eac5 |
|
280 |
+524a 452a abca ad56 |
|
281 |
+d5bb d5ae 6ab5 afd5 |
|
282 |
+6a57 baab da6d 56b5 |
|
283 |
+da55 dd6a aeb5 da6d |
|
284 |
+dd6a b6db aab6 da6b |
|
285 |
+35db 566b 5daa 6d57 |
|
286 |
+6eb6 de6c acec 58b8 |
|
287 |
+20a0 3050 516d b6db |
|
288 |
+0003 057a 4cb0 d050 |
|
289 |
+4000 0002 0a17 5b5f |
|
290 |
+0015 aaaf f8a0 e080 |
|
291 |
+0055 fadf 0700 0090 |
|
292 |
+0000 a0d0 eafc 7f1b |
|
293 |
+5516 0b01 0000 4000 |
|
294 |
+abf5 5b4d 72ab 5509 |
|
295 |
+ed56 6bbd d556 6b5d |
|
296 |
+114a 0154 0229 0452 |
|
297 |
+4955 2495 524a aa25 |
|
298 |
+552a aa55 aaa5 5555 |
|
299 |
+56aa b555 aa56 5a6a |
|
300 |
+b5d6 555a abd5 add5 |
|
301 |
+6db6 abda 576a b75a |
|
302 |
+ddb6 6abd d56b b7af |
|
303 |
+bdff f6dd fef5 f6ab |
|
304 |
+d569 adb2 aa65 aa4a |
|
305 |
+b450 55a0 ad50 aeb2 |
|
306 |
+0002 0000 00a0 08a5 |
|
307 |
+dbff fdaa 0000 026d |
|
308 |
+b7f8 8000 022d d556 |
|
309 |
+c000 0015 d65a 6aab |
|
310 |
+0000 00bf c9b5 a040 |
|
311 |
+150a 0dd5 165a 2b2d |
|
312 |
+95db 2aad b6ab 555a |
|
313 |
+6a5d d66b b55a add7 |
|
314 |
+db6d aab7 5aeb 5a6d |
|
315 |
+ab6d b65b ea5b add5 |
|
316 |
+ad75 ae6a b7da 556e |
|
317 |
+6a5d abf6 5aad d7ba |
|
318 |
+d971 b1a1 e243 62c5 |
|
319 |
+5576 ad56 fa4a f44a |
|
320 |
+4081 8102 0503 0507 |
|
321 |
+be77 ffde fffa bfff |
|
322 |
+820a 0808 140c 0505 |
|
323 |
+4804 0201 0002 056a |
|
324 |
+1f0f 8607 8707 0587 |
|
325 |
+d0a0 d8e8 f4fa bafd |
|
326 |
+0d05 0000 0000 8000 |
|
327 |
+aa17 3a4d 162a 0b15 |
|
328 |
+0944 2215 4015 4a21 |
|
329 |
+5492 4a2a a94a 2a49 |
|
330 |
+aa95 aa52 55aa aa55 |
|
331 |
+ab55 adb5 55aa ad56 |
|
332 |
+5a6b 55ad 56eb 5aad |
|
333 |
+aa6d b65b ea5d abb6 |
|
334 |
+dfbf bd7f feee fdfd |
|
335 |
+f5ad b5aa d5ac 55b4 |
|
336 |
+55aa 2a55 55aa 55aa |
|
337 |
+55aa d556 55aa 55aa |
|
338 |
+55aa b6aa 55aa 56b5 |
|
339 |
+55aa b6d5 55ab ad55 |
|
340 |
+6aad d556 6a55 5b6a |
|
341 |
+adb4 50a0 956a 55ad |
|
342 |
+0000 022a a9aa 54aa |
|
343 |
+34ab 555d 66b5 9aeb |
|
344 |
+ad6b ad55 b6aa b65a |
|
345 |
+6a5b ad6a b6d5 add6 |
|
346 |
+b655 b6db aa6d aab6 |
|
347 |
+bb55 db6d aab6 aadb |
|
348 |
+b556 6bb5 add6 ba55 |
|
349 |
+55ee 556b b5d9 a9b1 |
|
350 |
+83c5 8682 8685 8586 |
|
351 |
+60a0 b8d6 aa8b 0180 |
|
352 |
+0203 0328 d45b 6daa |
|
353 |
+f7ff bdf7 3f8f 45f1 |
|
354 |
+01c0 e0b0 fcff b7ff |
|
355 |
+aa00 0000 05ff fff7 |
|
356 |
+0f1e 377f fdef bffd |
|
357 |
+f6df fffd dfff 76ff |
|
358 |
+8040 40a0 a8d0 d0e8 |
|
359 |
+0a00 0100 0300 0000 |
|
360 |
+4a12 4904 5209 5402 |
|
361 |
+a52a 548a 524a aa12 |
|
362 |
+2aaa aaaa a5aa 55aa |
|
363 |
+b5aa aaad 55b6 55aa |
|
364 |
+b5d6 ab6d b5aa 5bd5 |
|
365 |
+57ef 5d5f b7bf 7e7b |
|
366 |
+daf6 faaa eab5 d6aa |
|
367 |
+a9a5 d5a5 aa44 95aa |
|
368 |
+5555 5555 aa95 55aa |
|
369 |
+5555 5555 aa55 55aa |
|
370 |
+55aa 5556 aa55 55aa |
|
371 |
+6aaa adaa ab55 55aa |
|
372 |
+aaad 55ab 6d55 55aa |
|
373 |
+d55a 6b55 555a 6baa |
|
374 |
+6a8a 5536 5552 59a2 |
|
375 |
+2dd5 55b6 5ad5 56aa |
|
376 |
+6baa 55b6 d55b aad5 |
|
377 |
+6ab5 aeaa 555b 8a45 |
|
378 |
+d55b add5 6a5b adb5 |
|
379 |
+556d 56b5 d65a 55ad |
|
380 |
+ae72 adab b5d6 5aab |
|
381 |
+d3a9 51a1 7181 e151 |
|
382 |
+8285 8682 8583 c582 |
|
383 |
+c040 a0d0 685e abb5 |
|
384 |
+5b2d 0b05 0201 4050 |
|
385 |
+5c55 6bb5 ae6a b655 |
|
386 |
+6e1f 45a1 b8d6 aab6 |
|
387 |
+deff ffb6 7f0d 83a0 |
|
388 |
+f7ff bff7 fffd b77f |
|
389 |
+ffdb 7fff f6bf ffed |
|
390 |
+ea74 f4da f9f5 baf4 |
|
391 |
+0000 0000 0000 8000 |
|
392 |
+5402 5409 520a 4529 |
|
393 |
+ca29 aa55 9552 4a2a |
|
394 |
+aa55 aa55 55aa aaab |
|
395 |
+b556 aa55 55aa d62a |
|
396 |
+5aad d55b 67af addf |
|
397 |
+ffef fefe b5fe fab5 |
|
398 |
+b555 aad4 55a8 a255 |
|
399 |
+2a55 4aa9 2aaa a554 |
|
400 |
+aa55 aa55 aa92 55aa |
|
401 |
+aa55 aa55 aaaa 55aa |
|
402 |
+b555 aa55 aaaa 55aa |
|
403 |
+565a aa55 aaaa 55aa |
|
404 |
+dbaa aa55 aaad 55aa |
|
405 |
+54b5 d554 aa52 aab2 |
|
406 |
+a151 4181 8181 8182 |
|
407 |
+6d55 566a 555a 55ab |
|
408 |
+5b6d aaab b5aa 566a |
|
409 |
+4502 8141 0080 8080 |
|
410 |
+55da 565a aa55 6d2a |
|
411 |
+6aad d5b6 d555 adb5 |
|
412 |
+b55b aad6 5a6b ad55 |
|
413 |
+4361 82c2 a344 4642 |
|
414 |
+c282 c2c2 e1e2 e1e2 |
|
415 |
+daad d6b5 56db 6aad |
|
416 |
+d65a eb55 b65b d55a |
|
417 |
+5aad 564b ea35 d65b |
|
418 |
+da6b ad6a b7aa db6d |
|
419 |
+d054 6bb5 5bd5 5b6c |
|
420 |
+0e01 2048 5368 adb6 |
|
421 |
+ff77 0400 0075 02a8 |
|
422 |
+f040 0000 027a 954a |
|
423 |
+0000 0000 80a0 7897 |
|
424 |
+0452 1542 294a 114a |
|
425 |
+aaa9 4a29 55a5 2a92 |
|
426 |
+aa55 5555 5555 aa55 |
|
427 |
+d52a 6d55 5556 aa55 |
|
428 |
+5bbf af7d 7fef fdbf |
|
429 |
+faea 6aea dad5 aaaa |
|
430 |
+a5a9 8aa5 942a 492a |
|
431 |
+2a52 aa2a a595 54aa |
|
432 |
+aa95 55aa 5552 aaaa |
|
433 |
+554a 55aa 55aa a595 |
|
434 |
+55aa 55aa 554a 5555 |
|
435 |
+55aa 55aa 55aa 5555 |
|
436 |
+55aa 6daa 55aa 5555 |
|
437 |
+55aa 55aa 55aa 555a |
|
438 |
+0182 0202 0585 0a8a |
|
439 |
+55b6 aaaa 555b aaaa |
|
440 |
+55ad b5d5 5555 aab5 |
|
441 |
+0000 8000 0080 0080 |
|
442 |
+2b15 160a 0b05 0a05 |
|
443 |
+566a add5 565a aa6a |
|
444 |
+b5d6 5aaa b5d6 aab5 |
|
445 |
+95a6 8aa5 4aa5 9625 |
|
446 |
+e2e2 e262 f262 b263 |
|
447 |
+d5b6 aadb aab5 d65a |
|
448 |
+adb5 d65a abb5 d5ad |
|
449 |
+aa6d b5d6 556b ad55 |
|
450 |
+aa56 b5db 555a 6aad |
|
451 |
+abd5 6d56 b5ab da6b |
|
452 |
+55b6 55da 566a ad6a |
|
453 |
+6bad b5d5 aab6 abb5 |
|
454 |
+106e a956 b5d6 5a6a |
|
455 |
+ea2a 5baa b5ad d6aa |
|
456 |
+2412 4924 1249 2412 |
|
457 |
+55aa 2495 aa49 a52a |
|
458 |
+4aa9 aa2a aa55 25aa |
|
459 |
+ab5a aba7 b74f 5d9f |
|
460 |
+f7ff ddfe 76de 7dfa |
|
461 |
+5454 a9a9 a2a9 45a9 |
|
462 |
+a5aa 5229 954a 2955 |
|
463 |
+25aa 524a 5452 4a2a |
|
464 |
+554a a9a5 95aa a554 |
|
465 |
+55aa 552a 52aa 2aa4 |
|
466 |
+54aa 4a55 aaa9 aa95 |
|
467 |
+aaaa aa55 9555 aa55 |
|
468 |
+aaaa aa55 5555 aa55 |
|
469 |
+aaaa aa55 5555 aa55 |
|
470 |
+95d5 aa55 5555 aa55 |
|
471 |
+556a ab55 5555 aa55 |
|
472 |
+56aa 556a 5556 aa55 |
|
473 |
+80c0 20d0 50a8 a856 |
|
474 |
+0a05 0a05 0a05 0a0b |
|
475 |
+ad55 d65a aa55 d65a |
|
476 |
+56aa b5ad aa6b adaa |
|
477 |
+aaab 25aa 2556 25aa |
|
478 |
+b252 52a5 92d5 52a5 |
|
479 |
+aaab d55b aab5 ad55 |
|
480 |
+b556 6a55 b6aa 5a6b |
|
481 |
+b6aa b5ad b5d5 aa56 |
|
482 |
+abb5 aa5b ad6a abd5 |
|
483 |
+555a d65a 6baa 556d |
|
484 |
+adb5 d6aa 5baa 6daa |
|
485 |
+ad55 daab 55b5 56da |
|
486 |
+ab55 ad6a 555a d5ab |
|
487 |
+5a6b 55aa b6aa 556d |
|
488 |
+4912 4412 4914 4215 |
|
489 |
+548a 52a9 15a4 522a |
|
490 |
+aa95 5255 5594 aa55 |
|
491 |
+b75e bf7a 6ffd fddd |
|
492 |
+6dfa fad5 f5b4 eaea |
|
493 |
+4495 8924 2a92 4925 |
|
494 |
+9249 2aa9 a554 2552 |
|
495 |
+a94a 5552 29a5 5592 |
|
496 |
+4aaa 29a5 2a55 24aa |
|
497 |
+aa95 5452 4a55 aa94 |
|
498 |
+aa52 aa95 a955 95a5 |
|
499 |
+49aa aa55 2955 4a55 |
|
500 |
+2aaa aa55 552a a555 |
|
501 |
+aaaa aa55 55aa 552a |
|
502 |
+aaaa aa55 55aa 55aa |
|
503 |
+aaaa aa55 55aa 55aa |
|
504 |
+aaaa aa55 55aa 55aa |
|
505 |
+a9ad d555 55aa 55aa |
|
506 |
+144b 5555 55aa 55aa |
|
507 |
+aa55 5555 56aa 55aa |
|
508 |
+b555 55aa adaa 55aa |
|
509 |
+25aa 55aa 56aa 55da |
|
510 |
+55a5 aaaa a5a2 55a5 |
|
511 |
+6aad aaab 55b5 565a |
|
512 |
+aaad b555 566a abad |
|
513 |
+b556 aa75 96ea 2b5a |
|
514 |
+5aab d55a add5 55b6 |
|
515 |
+aa56 b5ab 5aaa 56b5 |
|
516 |
+b5d6 5555 b6d5 aa56 |
|
517 |
+55aa 6dab ad55 b5d6 |
|
518 |
+5ad5 565a 6a55 55aa |
|
519 |
+aa55 aadb aa55 aab6 |
|
520 |
+4015 0944 1224 0944 |
|
521 |
+9249 2a92 49a5 14aa |
|
522 |
+a52b ab4a 574b ae4f |
|
523 |
+f77b daf3 f6a3 ede5 |
|
524 |
+55e8 a554 d451 a84a |
|
525 |
+544a 2592 5548 a512 |
|
526 |
+9453 4954 2594 524a |
|
527 |
+4a55 24aa 49a5 548a |
|
528 |
+524a a94a 5425 94aa |
|
529 |
+52aa 5592 aa49 a555 |
|
530 |
+aa55 49aa 5549 2a55 |
|
531 |
+5452 2aaa 492a aa52 |
|
532 |
+aa95 aaa4 2aaa a554 |
|
533 |
+aa55 a995 aaa5 2aa9 |
|
534 |
+aa55 2a55 aa52 4a55 |
|
535 |
+aa55 aa55 aa55 aa52 |
|
536 |
+aa55 aa55 aa55 aa55 |
|
537 |
+aa55 aa55 aa55 aa55 |
|
538 |
+aa55 aa55 aa55 aa55 |
|
539 |
+b555 aa55 aa55 aa55 |
|
540 |
+5556 aa55 aa55 aa55 |
|
541 |
+55aa ab55 aa55 aa5a |
|
542 |
+52a5 5552 a555 a5aa |
|
543 |
+aa55 aab5 5555 55aa |
|
544 |
+b255 aaad 5555 55aa |
|
545 |
+aaaa b556 5555 55aa |
|
546 |
+aaaa b5aa 565a 6aaa |
|
547 |
+d5aa 56aa d5aa adb5 |
|
548 |
+b5aa adb5 55d5 5556 |
|
549 |
+55aa 55ad 5555 6aaa |
|
550 |
+6daa 55aa 565a aad5 |
|
551 |
+55aa 55da aaab aa55 |
|
552 |
+1221 0a44 1104 5104 |
|
553 |
+2249 2a90 4a25 520a |
|
554 |
+ad1f ad9f bb2f bd77 |
|
555 |
+add5 c555 a985 24a5 |
|
556 |
+5141 5220 4521 8442 |
|
557 |
+5524 9249 5522 9449 |
|
558 |
+2994 4a51 2a89 544a |
|
559 |
+52a9 4a24 aa25 a994 |
|
560 |
+4955 92a9 4534 4aa4 |
|
561 |
+4a29 a42a 5592 a994 |
|
562 |
+a42a a5aa 5229 9552 |
|
563 |
+9555 5295 5452 2aa5 |
|
564 |
+522a aa49 aa95 402d |
|
565 |
+a595 aa55 492a 04f0 |
|
566 |
+5552 aa2a 5295 a00a |
|
567 |
+2aaa a995 5554 02d8 |
|
568 |
+aa95 5255 55aa 95a9 |
|
569 |
+aa55 aa55 2aa5 5555 |
|
570 |
+aa55 aa55 4a55 5455 |
|
571 |
+aa55 aa55 aa55 aa55 |
|
572 |
+aa55 aa55 aa55 aa55 |
|
573 |
+aa55 aa55 aa55 aa55 |
|
574 |
+a555 a54a aa4a aa4a |
|
575 |
+5556 55aa aaaa abaa |
|
576 |
+55aa 56aa b5aa 55aa |
|
577 |
+55b6 d5aa 55aa 55aa |
|
578 |
+55aa 55aa 55b6 55aa |
|
579 |
+55aa 55aa 55ab 55aa |
|
580 |
+55b5 55aa 556a 56aa |
|
581 |
+555a 55aa 55d5 aaaa |
|
582 |
+55aa 55ab 55aa aaaa |
|
583 |
+6aaa 5555 56aa b5aa |
|
584 |
+2208 4510 0452 0128 |
|
585 |
+a94a 2592 4825 4a21 |
|
586 |
+5f7d 76de fabd ecba |
|
587 |
+244a 45a2 4924 8aa5 |
|
588 |
+8144 0249 0284 010a |
|
589 |
+2592 492a 904a 2548 |
|
590 |
+2154 2a85 a855 02b4 |
|
591 |
+425a 8452 5512 a885 |
|
592 |
+528a a94a 2492 5549 |
|
593 |
+a552 2a92 a944 2a52 |
|
594 |
+4aa9 5492 4aa9 4aa5 |
|
595 |
+9452 a992 4556 a50a |
|
596 |
+6ab7 aadd 6aaa 8000 |
|
597 |
+af5a edb6 dbaa 1501 |
|
598 |
+edb7 5aff 55aa 6a10 |
|
599 |
+6eb5 db7e abd5 2d02 |
|
600 |
+558a 65a4 d279 acd6 |
|
601 |
+55aa 25aa a955 9552 |
|
602 |
+55aa 25aa 552a 52aa |
|
603 |
+4aa9 5555 4aaa a955 |
|
604 |
+aa55 2a55 aaa4 552a |
|
605 |
+aa55 aa55 aaaa 55aa |
|
606 |
+a54a aa4a a58a 55aa |
|
607 |
+55aa aaaa 55aa 55aa |
|
608 |
+55aa aaaa 55aa 55aa |
|
609 |
+55aa aaaa 55aa 55aa |
|
610 |
+55aa aaaa 55aa 55aa |
|
611 |
+55aa adaa 55aa 55aa |
|
612 |
+55aa 55aa 55aa 55aa |
|
613 |
+55aa 55aa 55aa 55aa |
|
614 |
+55aa 55aa 55aa 55aa |
|
615 |
+55aa 55aa 55aa 55aa |
|
616 |
+0550 0520 0a40 1500 |
|
617 |
+4a29 452b 8356 13a6 |
|
618 |
+f9da f259 f2d5 f2a5 |
|
619 |
+4885 5409 9248 1224 |
|
620 |
+810a 010a 0108 0510 |
|
621 |
+2548 2249 14a2 09a4 |
|
622 |
+09a4 5209 a429 4422 |
|
623 |
+5522 9449 2452 8954 |
|
624 |
+2492 4a29 a492 2984 |
|
625 |
+8954 a512 a994 4529 |
|
626 |
+14aa 4552 2994 4a25 |
|
627 |
+9b54 28b4 50d0 a040 |
|
628 |
+0000 0010 0000 0000 |
|
629 |
+0000 0000 4200 0000 |
|
630 |
+0000 0041 0000 0000 |
|
631 |
+0000 4002 0000 0000 |
|
632 |
+ba55 2f15 0b0a 0502 |
|
633 |
+4a35 8a54 4aa5 d2a5 |
|
634 |
+4a55 aa92 aa55 4955 |
|
635 |
+aa49 55aa aa49 2a55 |
|
636 |
+aa55 52aa 9555 aa49 |
|
637 |
+9554 aa55 524a aa55 |
|
638 |
+55aa a955 aa95 5255 |
|
639 |
+24aa 5555 aa49 aa55 |
|
640 |
+95aa 5452 aa55 9552 |
|
641 |
+55aa aaa5 9555 55aa |
|
642 |
+55aa aa55 552a 54a5 |
|
643 |
+55aa aa55 54aa a555 |
|
644 |
+55aa aa55 aaa4 5555 |
|
645 |
+55aa aa55 a495 5555 |
|
646 |
+55aa aa55 aa52 4a2a |
|
647 |
+54a9 ab52 aa46 aca8 |
|
648 |
+5500 2a00 4a01 2802 |
|
649 |
+1745 9746 2b47 0da7 |
|
650 |
+e8a5 62c8 ca45 908a |
|
651 |
+9208 2490 0a20 5408 |
|
652 |
+0409 0211 0412 000a |
|
653 |
+114a 214a 208a 5184 |
|
654 |
+5402 5422 914a 218a |
|
655 |
+8254 8952 0950 2548 |
|
656 |
+528a 2550 0aa5 10aa |
|
657 |
+a452 09aa 4528 9249 |
|
658 |
+9255 4a25 5595 4a2a |
|
659 |
+c040 8000 0000 0001 |
|
660 |
+0000 0001 154b 5a20 |
|
661 |
+0000 0055 6d5a 2c00 |
|
662 |
+0000 0120 a8de 6b00 |
|
663 |
+0002 0000 0090 403a |
|
664 |
+0221 0100 0000 0000 |
|
665 |
+d269 5aa8 b65a 2b55 |
|
666 |
+aa24 95aa a552 2a49 |
|
667 |
+a995 524a 55a9 4a2a |
|
668 |
+2a55 aa49 552a a495 |
|
669 |
+4a55 a955 25aa a94a |
|
670 |
+aa55 2955 4aa9 2aa5 |
|
671 |
+9452 4a2a aa54 9255 |
|
672 |
+aaaa 95a9 a595 aa55 |
|
673 |
+55a9 4a2a 5554 aa49 |
|
674 |
+552a a9a5 5595 aa54 |
|
675 |
+55aa 492a 5555 aa92 |
|
676 |
+55a5 2aa9 552a a594 |
|
677 |
+542a aa52 4aaa 2aa5 |
|
678 |
+aaa9 a5aa 54a5 9455 |
|
679 |
+9850 30a0 61c1 c285 |
|
680 |
+4802 2802 2108 4208 |
|
681 |
+169b 571d 572b ae2b |
|
682 |
+918a 4014 4210 8805 |
|
683 |
+5004 5088 2090 4820 |
|
684 |
+0015 000a 0114 0208 |
|
685 |
+2842 11a4 0944 2194 |
|
686 |
+2194 2248 0550 0aa1 |
|
687 |
+1244 9249 1288 5204 |
|
688 |
+05a8 4429 04a9 4492 |
|
689 |
+2492 4924 9224 9224 |
|
690 |
+9456 2894 54a8 50a8 |
|
691 |
+4102 0000 0000 0000 |
|
692 |
+0000 0000 0000 0000 |
|
693 |
+0000 0000 0000 0000 |
|
694 |
+0000 0000 0000 0000 |
|
695 |
+0c00 0000 0000 0000 |
|
696 |
+0004 8040 4020 0000 |
|
697 |
+2d15 160b 150a 0505 |
|
698 |
+554a a855 4aa5 a954 |
|
699 |
+52aa 924a 5524 5295 |
|
700 |
+52aa 9552 4aa9 5549 |
|
701 |
+aa49 2aa5 544a 2955 |
|
702 |
+5452 9554 a555 4925 |
|
703 |
+aa92 4aaa 5229 4a2a |
|
704 |
+a94a a995 544a a955 |
|
705 |
+2aaa 522a a495 5552 |
|
706 |
+a555 aa92 aa52 2a94 |
|
707 |
+5455 4aa9 5492 aa95 |
|
708 |
+aa55 a42a a594 aa52 |
|
709 |
+aa55 92aa 49aa 9552 |
|
710 |
+5356 974c 5cb0 3061 |
|
711 |
+820a 1509 252a 5522 |
|
712 |
+2104 2108 2200 2500 |
|
713 |
+366e 2b6e 6a6e 6ab6 |
|
714 |
+a011 0882 2881 1082 |
|
715 |
+4810 a008 a010 8050 |
|
716 |
+0211 0805 1002 0802 |
|
717 |
+4210 4a01 5402 a804 |
|
718 |
+1481 5402 5108 a510 |
|
719 |
+5108 a510 4510 4a20 |
|
720 |
+0852 09a4 1144 9249 |
|
721 |
+9249 2288 2548 2249 |
|
722 |
+5050 4184 4000 2400 |
|
723 |
+2400 1100 4400 1082 |
|
724 |
+a500 1044 a84a 1240 |
|
725 |
+5200 0980 2682 0982 |
|
726 |
+4009 2004 a194 552a |
|
727 |
+0000 2008 2200 49a0 |
|
728 |
+0000 0000 4000 2004 |
|
729 |
+0502 0201 0101 0000 |
|
730 |
+a5a9 aa64 525a a5b4 |
|
731 |
+4925 9452 9549 2492 |
|
732 |
+2455 9249 5524 9552 |
|
733 |
+924a 5549 24aa 2495 |
|
734 |
+aa52 492a a495 a42a |
|
735 |
+a552 2994 a552 9549 |
|
736 |
+24aa 2592 5549 2a52 |
|
737 |
+944a 524a 542a 9249 |
|
738 |
+a594 52aa 924a a955 |
|
739 |
+52a9 954a a452 4a2a |
|
740 |
+4a55 2492 aa55 9249 |
|
741 |
+a84b a957 865c 1870 |
|
742 |
+c284 8805 1029 49a2 |
|
743 |
+5592 4a29 a554 12aa |
|
744 |
+2400 2401 2401 1105 |
|
745 |
+daee b56a eeb5 6ab6 |
|
746 |
+1184 0124 0208 2281 |
|
747 |
+0050 00a8 00a0 1040 |
|
748 |
+1004 0210 0500 1200 |
|
749 |
+a210 8a41 1441 1481 |
|
750 |
+8550 0a40 2a00 5500 |
|
751 |
+4a01 aa01 aa00 5402 |
|
752 |
+2248 1244 1188 4492 |
|
753 |
+12a4 11a4 09a2 1481 |
|
754 |
+02a0 0049 0050 8420 |
|
755 |
+0024 0002 2004 8011 |
|
756 |
+0210 8004 2001 4400 |
|
757 |
+2004 8010 4200 0820 |
|
758 |
+0188 2100 4400 9100 |
|
759 |
+2a49 0411 4004 0120 |
|
760 |
+4009 8054 0154 0104 |
|
761 |
+0000 0040 0800 4420 |
|
762 |
+525a 542a 2914 158a |
|
763 |
+5592 49a4 12a9 0aa0 |
|
764 |
+4954 2592 a924 9249 |
|
765 |
+5249 2a92 4924 aa25 |
|
766 |
+924a 5294 4a25 a825 |
|
767 |
+a554 92aa 4924 9552 |
|
768 |
+29a5 9452 49a4 15a4 |
|
769 |
+5524 92aa 49a5 14aa |
|
770 |
+2492 aa49 2554 9249 |
|
771 |
+a594 524a 29a5 944a |
|
772 |
+55aa 914b 5224 9448 |
|
773 |
+62c1 0a84 122a 4924 |
|
774 |
+510a a1a5 5284 49a5 |
|
775 |
+4925 5425 9255 4825 |
|
776 |
+2105 1101 0521 0000 |
|
777 |
+6dd6 75b6 d576 0000 |
|
778 |
+0802 0805 1005 0000 |
|
779 |
+2088 4020 1040 0000 |
|
780 |
+0401 0802 0800 0000 |
|
781 |
+2409 4014 8025 0000 |
|
782 |
+5500 2580 2a00 0000 |
|
783 |
+500a 4015 4092 0000 |
|
784 |
+208a 2015 802a 0000 |
|
785 |
+5482 2904 a902 0000 |
|
786 |
+4a10 4010 4000 0000 |
|
787 |
+0000 1200 0000 0000 |
|
788 |
+0820 0104 2000 0000 |
|
789 |
+8200 0801 2000 0000 |
|
790 |
+0440 1002 0048 0000 |
|
791 |
+8400 2200 4400 0000 |
|
792 |
+2082 0800 4108 0000 |
|
793 |
+8800 2400 1201 0000 |
|
794 |
+0402 900a 500a 0000 |
|
795 |
+558a 4095 4992 0000 |
|
796 |
+2492 4924 5209 0000 |
|
797 |
+904a 2492 4924 0000 |
|
798 |
+92a4 4992 2492 0000 |
|
799 |
+2885 5229 8452 0000 |
|
800 |
+924a 2944 9249 0000 |
|
801 |
+a254 12a9 442a 0000 |
|
802 |
+a495 5229 8455 0000 |
|
803 |
+219a 442a a412 0000 |
|
804 |
+1081 4182 0500 0000 |
|
805 |
+aa25 512a 44aa 0000 |
|
806 |
+0254 0992 4984 0000 |
|
807 |
+9452 4925 5289 0000 |
|
808 |
+ |
|
809 |
+] |
|
810 |
+ |
|
811 |
+|c000 @FRAME BRK |
|
812 |
+|d000 @ERROR BRK |
|
813 |
+ |
|
814 |
+|FFF0 [ 0ffc 0f0b 0f03 ] ( palette ) |
|
815 |
+|FFFA .RESET .FRAME .ERROR |
... | ... |
@@ -12,12 +12,15 @@ |
12 | 12 |
;icon Icon |
13 | 13 |
|
14 | 14 |
( window ) ;wx1 2 ;wy1 2 ;wx2 2 ;wy2 2 |
15 |
-( drawing ) ;color 1 ;x1 2 ;x2 2 ;y1 2 ;y2 2 |
|
15 |
+( drawing ) ;color 1 ;x1 2 ;x2 2 ;y1 2 ;y2 2 ;i 2 |
|
16 | 16 |
( mouse ) ;state 1 ;wname 2 |
17 | 17 |
|
18 | 18 |
|0100 @RESET |
19 | 19 |
|
20 |
- ,paint-background JSR |
|
20 |
+ #01 =dev/r ( read screen for size ) |
|
21 |
+ #02 =dev/w ( write to sprite ) |
|
22 |
+ |
|
23 |
+ ,paint-image JSR |
|
21 | 24 |
|
22 | 25 |
#01 =dev/r ( set read screen ) |
23 | 26 |
|
... | ... |
@@ -27,47 +30,49 @@ |
27 | 30 |
|
28 | 31 |
#02 =dev/w ( set dev/write sprite ) |
29 | 32 |
|
30 |
- ,window_name1 #0020 #0020 #00d0 #0080 ,paint-window JSR |
|
31 |
- ,window_name2 #0040 #0040 #00f0 #0070 ,paint-window JSR |
|
32 |
- ,window_name3 #0060 #004c #00c0 #007a ,paint-window JSR |
|
33 |
+ ,window_name1 #0010 #0058 #0080 #0070 ,paint-window JSR |
|
34 |
+ ( ,window_name2 #0040 #0040 #00f0 #0070 ,paint-window JSR ) |
|
35 |
+ ( ,window_name3 #0060 #004c #00c0 #007a ,paint-window JSR ) |
|
33 | 36 |
|
34 | 37 |
#05 =dev/r ( set dev/read mouse ) |
35 | 38 |
|
36 | 39 |
BRK |
37 | 40 |
|
38 |
-|c000 @FRAME |
|
39 |
- |
|
40 |
- ( clear last cursor ) |
|
41 |
- #10 ,clear_icn ~mouse.x ~mouse.y ,draw-sprite JSR |
|
42 |
- ( record mouse positions ) |
|
43 |
- #00 IOR2 =mouse.x #02 IOR2 =mouse.y |
|
44 |
- ( record mouse state ) |
|
45 |
- #04 IOR #11 ADD =state |
|
41 |
+@paint-image ( nil ) |
|
46 | 42 |
|
47 |
- #04 IOR #01 NEQ ,no-touch ROT JMP? POP2 |
|
48 |
- ,on-touch JSR |
|
49 |
- @no-touch |
|
43 |
+ #01 =dev/r ( read screen for size ) |
|
44 |
+ #02 =dev/w ( write to sprite ) |
|
50 | 45 |
|
51 |
- ( draw mouse ) |
|
52 |
- ~state ,cursor_icn ~mouse.x ~mouse.y ,draw-sprite JSR |
|
46 |
+ #0000 |
|
47 |
+ @paint-image-loop-hor |
|
48 |
+ #0000 |
|
49 |
+ @paint-image-loop |
|
50 |
+ ( draw ) OVR2 IOW2 DUP2 IOW2 ,image ~i ADD2 IOW2 #01 IOW |
|
51 |
+ ( incr ) #0008 ADD2 DUP2 |
|
52 |
+ ( incr ) ~i #0008 ADD2 =i |
|
53 |
+ #00 IOR2 LTH2 ,paint-image-loop ROT JMP? POP2 |
|
54 |
+ POP2 |
|
55 |
+ ( incr ) #0008 ADD2 DUP2 |
|
56 |
+ #02 IOR2 LTH2 ,paint-image-loop-hor ROT JMP? POP2 |
|
57 |
+ POP2 |
|
53 | 58 |
|
54 |
-BRK |
|
59 |
+RTS |
|
55 | 60 |
|
56 |
-@paint-background ( nil ) |
|
61 |
+@paint-pattern ( nil ) |
|
57 | 62 |
|
58 | 63 |
#01 =dev/r ( read screen for size ) |
59 | 64 |
#02 =dev/w ( write to sprite ) |
60 | 65 |
|
61 | 66 |
#0000 |
62 |
- @paint-background-loop-hor |
|
67 |
+ @paint-pattern-loop-hor |
|
63 | 68 |
#0000 |
64 |
- @paint-background-loop |
|
69 |
+ @paint-pattern-loop |
|
65 | 70 |
( draw ) OVR2 IOW2 DUP2 IOW2 ,texture IOW2 #01 IOW |
66 | 71 |
( incr ) #0008 ADD2 DUP2 |
67 |
- #00 IOR2 LTH2 ,paint-background-loop ROT JMP? POP2 |
|
72 |
+ #00 IOR2 LTH2 ,paint-pattern-loop ROT JMP? POP2 |
|
68 | 73 |
POP2 |
69 | 74 |
( incr ) #0008 ADD2 DUP2 |
70 |
- #02 IOR2 LTH2 ,paint-background-loop-hor ROT JMP? POP2 |
|
75 |
+ #02 IOR2 LTH2 ,paint-pattern-loop-hor ROT JMP? POP2 |
|
71 | 76 |
POP2 |
72 | 77 |
|
73 | 78 |
RTS |
... | ... |
@@ -80,18 +85,18 @@ RTS |
80 | 85 |
#01 =dev/w ( write to screen ) |
81 | 86 |
|
82 | 87 |
( Draw background ) |
83 |
- #01 =color |
|
88 |
+ #00 =color |
|
84 | 89 |
~wx1 #0003 ADD2 ~wy1 #0003 ADD2 ~wx2 #0003 ADD2 ~wy2 #0003 ADD2 ,fill-rect JSR |
85 | 90 |
#02 =color |
86 | 91 |
~wx1 ~wy1 ~wx2 ~wy2 ,fill-rect JSR |
87 | 92 |
( draw outline ) |
88 |
- #01 =color |
|
93 |
+ #00 =color |
|
89 | 94 |
~wx1 ~wy1 ~wx2 ~wy2 ,line-rect JSR |
90 |
- #01 =color |
|
95 |
+ #00 =color |
|
91 | 96 |
~wx1 #0002 ADD2 ~wy1 #0002 ADD2 ~wx2 #0002 SUB2 ~wy2 #0002 SUB2 ,line-rect JSR |
92 | 97 |
|
93 | 98 |
#02 =dev/w |
94 |
- #09 =color |
|
99 |
+ #0b =color |
|
95 | 100 |
~wname ~wx1 #0008 ADD2 ~wy1 #0008 ADD2 ,draw-label JSR |
96 | 101 |
|
97 | 102 |
RTS |
... | ... |
@@ -102,7 +107,7 @@ RTS |
102 | 107 |
|
103 | 108 |
#01 =dev/w ( write to screen ) |
104 | 109 |
#02 =dev/w ( write to sprite ) |
105 |
- |
|
110 |
+ |
|
106 | 111 |
#01 =color |
107 | 112 |
~icon.text ~icon.x #0008 ADD2 ~icon.y #0020 ADD2 ,draw-label JSR |
108 | 113 |
#07 ~icon.sprite ~icon.x #0018 ADD2 ~icon.y #0008 ADD2 |
... | ... |
@@ -234,6 +239,797 @@ RTS |
234 | 239 |
3e7c f8f0 e4ca 8400 |
235 | 240 |
] |
236 | 241 |
|
242 |
+@image [ |
|
243 |
+ |
|
244 |
+0000 0802 1001 0410 |
|
245 |
+0095 0055 0024 0154 |
|
246 |
+114a 2114 a209 5005 |
|
247 |
+2552 09a5 540a a114 |
|
248 |
+5548 2651 aa4a 25a8 |
|
249 |
+5592 4955 aa44 2aa9 |
|
250 |
+5555 554a aaaa 5555 |
|
251 |
+556d abaa b5d6 555b |
|
252 |
+b65b 6aad b6d5 5b6c |
|
253 |
+db6d b6d5 bb56 bbd5 |
|
254 |
+6db6 db6d b6db 6ab7 |
|
255 |
+b6db 6db6 db6a af74 |
|
256 |
+db6d b6db 6db6 dbad |
|
257 |
+6db6 db6d b6db 6cb5 |
|
258 |
+bbd7 6e9f bf7e fcf8 |
|
259 |
+ff7c f0e0 8080 0000 |
|
260 |
+0000 0101 0101 0301 |
|
261 |
+f0e0 e0e1 c2d2 c385 |
|
262 |
+375a ef55 faaf 55fa |
|
263 |
+77da 6fb5 da6f b5da |
|
264 |
+77da 6fb5 da6f b5da |
|
265 |
+77da 6eb5 db6d b6db |
|
266 |
+bbd6 edb6 5bed b7ba |
|
267 |
+deb5 dbb6 dd6d b7db |
|
268 |
+dfbe 7cf8 f0e1 e4c1 |
|
269 |
+070a 1d36 5b6d b66d |
|
270 |
+77da b7dd 6bbd ebb6 |
|
271 |
+77da b76d b66d b6db |
|
272 |
+77da 6fb5 dab7 dd6b |
|
273 |
+77da 6fb5 da6f b56e |
|
274 |
+77da 6db6 db6d b6db |
|
275 |
+76da adf6 5bad f75a |
|
276 |
+0002 1000 0421 0004 |
|
277 |
+0190 0540 1500 5401 |
|
278 |
+500a 4114 4210 8a21 |
|
279 |
+a214 4229 9442 9520 |
|
280 |
+924a a924 9255 49a5 |
|
281 |
+9549 55a4 552a 4955 |
|
282 |
+5555 2aaa 55aa 5555 |
|
283 |
+6aad abad 6aab b556 |
|
284 |
+ab55 6e55 da6d 56ab |
|
285 |
+6eb5 aeb5 db6d b6ab |
|
286 |
+da6d b6db 6d56 fb4d |
|
287 |
+dbad d67b add6 7baa |
|
288 |
+f65b adea 5ae5 57be |
|
289 |
+ab6f aa9f f6bf eaf9 |
|
290 |
+e35e fff6 dfa8 57ba |
|
291 |
+fadd f7be ef10 efb5 |
|
292 |
+0383 ebbb f75f a75b |
|
293 |
+8a8f 8916 910a 5538 |
|
294 |
+af55 f6ab 5dea 5f6a |
|
295 |
+6fb5 da6f b5da 6db7 |
|
296 |
+6fb5 da6f b5d6 6db7 |
|
297 |
+6db7 da6d b6db 6db6 |
|
298 |
+57fa adb6 db6d b6db |
|
299 |
+6fdf bede 7cf8 f8f0 |
|
300 |
+8203 0d0b 162d 365b |
|
301 |
+db6d b66f dab7 da6f |
|
302 |
+5bed b65b ed76 adf6 |
|
303 |
+6db7 dd6b bdeb b6db |
|
304 |
+bd6b b66d b66d db6d |
|
305 |
+b56f dab5 dfb5 6db6 |
|
306 |
+6db6 db6d b65b edb6 |
|
307 |
+adf6 5bad f65b adf6 |
|
308 |
+1000 0520 0210 0124 |
|
309 |
+9441 1401 5401 4812 |
|
310 |
+1442 1442 114a 208a |
|
311 |
+9522 9442 1449 9224 |
|
312 |
+14aa 45a9 144a a42a |
|
313 |
+aa55 4a2a aaaa aa55 |
|
314 |
+aa55 ab55 aaab ad55 |
|
315 |
+da55 566a ad56 6aad |
|
316 |
+da55 b7da 55af d56a |
|
317 |
+dd6a 5bed 566b bdd6 |
|
318 |
+b6db 6db6 db6d b6da |
|
319 |
+ac73 af9b 7e6b bff4 |
|
320 |
+dbff 54fd d2cd 36aa |
|
321 |
+a69b 6aad b6db aadb |
|
322 |
+d55b ed56 db6d b556 |
|
323 |
+55ba 57ea 5d6b b6db |
|
324 |
+b6d7 76ae de6e b65c |
|
325 |
+0e23 3c2b 2d36 2b35 |
|
326 |
+5b2d b65b aacd 6bb5 |
|
327 |
+da6d b7da adf7 2add |
|
328 |
+da6d b7da 6db7 aadd |
|
329 |
+db6d b6db 6db6 db6d |
|
330 |
+6db7 d77f afdf 7fbf |
|
331 |
+e0e8 e181 c285 9305 |
|
332 |
+adf6 5bad d268 934e |
|
333 |
+b5dd 6bad bfe9 965b |
|
334 |
+5b44 ffbd 4751 ef5a |
|
335 |
+6db6 cbfd 774d 74db |
|
336 |
+b6db 6d36 d5fd b75f |
|
337 |
+db6d b6db 6d56 e9bf |
|
338 |
+5bed b65b edb6 55aa |
|
339 |
+5bad f655 bbd6 5baa |
|
340 |
+0012 4002 0821 0009 |
|
341 |
+802a 0148 2500 5402 |
|
342 |
+4429 4491 2492 4492 |
|
343 |
+8924 9225 914a a412 |
|
344 |
+49a5 2a52 29a5 9555 |
|
345 |
+4a55 aa55 5555 5555 |
|
346 |
+aa55 ab55 5a55 566a |
|
347 |
+b556 5a6a abad b5aa |
|
348 |
+adab d5ad 556b 55ad |
|
349 |
+5bad 75ae 6bb5 5eab |
|
350 |
+6db5 5aeb 5bea b156 |
|
351 |
+bae5 abd5 2e55 b5ae |
|
352 |
+db6d 55b6 db55 b6db |
|
353 |
+6d56 b5db 556e b5db |
|
354 |
+ebbd 55aa 77a8 d450 |
|
355 |
+556d b4c0 0000 0000 |
|
356 |
+ac0e 0c0c 0c0c 0c04 |
|
357 |
+0e02 0201 0000 0000 |
|
358 |
+d6ab f555 db69 5d69 |
|
359 |
+b66b bd56 eb5d 6ab7 |
|
360 |
+b76a bdd7 6abd d76a |
|
361 |
+b6db 6db6 da6d b6db |
|
362 |
+ff7d 5fde 9e9e 9c0e |
|
363 |
+0e4a 141b 223d 2b5d |
|
364 |
+33cd 36db b5de 6bb5 |
|
365 |
+ad76 db6d b6da 6880 |
|
366 |
+b7da 6fb5 da4b 0000 |
|
367 |
+6db6 db6d b6db 6d16 |
|
368 |
+a1fe 55bb d66d b6db |
|
369 |
+7eab aa76 dbad f65b |
|
370 |
+fffb afd5 6abd d66b |
|
371 |
+fdef 7ddf 6da7 d96e |
|
372 |
+2002 0821 0410 4208 |
|
373 |
+2984 2214 4229 8452 |
|
374 |
+2492 4992 4924 924a |
|
375 |
+aa52 4a29 a555 9552 |
|
376 |
+a9a5 5555 2955 55aa |
|
377 |
+552a 5556 5a55 55aa |
|
378 |
+55ad 55d5 ad55 6aad |
|
379 |
+55b6 555a ab6d aab5 |
|
380 |
+b5aa 55aa 6bb5 aedb |
|
381 |
+75ae dbb5 6eb6 d96f |
|
382 |
+e5aa 55ae f5d5 adb6 |
|
383 |
+6ab5 add6 5a6b adb5 |
|
384 |
+aa6d b6ab da6d 4535 |
|
385 |
+6dab dd6a adb5 5000 |
|
386 |
+4050 b4db 6daa 2d02 |
|
387 |
+0000 0000 c0a0 b8d4 |
|
388 |
+0c0c 080c 0808 0808 |
|
389 |
+0000 0000 0000 0000 |
|
390 |
+2d29 1d15 1516 050a |
|
391 |
+5aef 55ba 6fd5 bad7 |
|
392 |
+dd6b bdd7 6abd d66b |
|
393 |
+6db4 5aec b5ac ec59 |
|
394 |
+3c0c 7c5c 6cac f554 |
|
395 |
+6a37 ad76 ad76 5868 |
|
396 |
+de68 a0c0 0000 0000 |
|
397 |
+0000 0000 0000 0000 |
|
398 |
+0000 0000 0000 0000 |
|
399 |
+0b00 0000 0000 0000 |
|
400 |
+6db6 5b15 0601 0000 |
|
401 |
+d5be d56f b55b 6d16 |
|
402 |
+bdd6 6bbd 6ab7 5aed |
|
403 |
+b5df 69b6 db6d b6db |
|
404 |
+0251 0410 4200 1401 |
|
405 |
+0954 2289 2492 4914 |
|
406 |
+2592 544a a52a 5295 |
|
407 |
+4aaa aa95 55aa 5555 |
|
408 |
+a5aa aa55 5aab 556a |
|
409 |
+55aa b655 ab6d 55aa |
|
410 |
+b6aa db55 6d56 b5ab |
|
411 |
+d6ab 6d5a afd5 765b |
|
412 |
+b55d abf6 5a6f b5d6 |
|
413 |
+b756 ee9d fd3a 75f6 |
|
414 |
+55b5 d65a aaa9 6ca4 |
|
415 |
+55aa a0c4 a000 8000 |
|
416 |
+48a0 4000 0209 2650 |
|
417 |
+0000 04b2 4abf dd03 |
|
418 |
+0200 8050 aa54 eaf5 |
|
419 |
+aada 552d 160a 0b05 |
|
420 |
+0808 0808 8888 4848 |
|
421 |
+0000 0000 0001 0102 |
|
422 |
+1f12 3b55 b65b adf6 |
|
423 |
+6db6 db6d b6db 55de |
|
424 |
+bdd6 6bb5 de6b adb6 |
|
425 |
+b9d9 53ba b375 a5e6 |
|
426 |
+b66c b6d6 6e56 fea7 |
|
427 |
+50a0 6040 6020 a020 |
|
428 |
+0000 0000 0000 0000 |
|
429 |
+0000 0000 0000 0001 |
|
430 |
+0000 0002 0d36 db6d |
|
431 |
+0000 2fd5 bbd5 7eab |
|
432 |
+0000 fe55 6eb5 da6f |
|
433 |
+0502 a1dc b7da ad77 |
|
434 |
+b6db 6d56 bbd5 6eb5 |
|
435 |
+ad76 abdd 6ab7 da6d |
|
436 |
+4802 1005 4015 0054 |
|
437 |
+4295 4924 520a a94a |
|
438 |
+554a 2aa9 aaaa 2aaa |
|
439 |
+55aa aa55 abad aaaa |
|
440 |
+55ab d55a 5556 b5d5 |
|
441 |
+6d56 6bad b5aa 6db6 |
|
442 |
+6db5 566b b5de 53dd |
|
443 |
+6aad db6d b6ab 7dab |
|
444 |
+bbab 76af ef5e bf7e |
|
445 |
+f5e9 ecd4 d4ab a9a8 |
|
446 |
+5050 a020 0800 00a0 |
|
447 |
+0101 040a 132a 1656 |
|
448 |
+0040 8504 1008 1408 |
|
449 |
+0000 6804 0804 040a |
|
450 |
+ba7e 3b3f 1f3b 3f3f |
|
451 |
+8542 4241 a1c0 60d0 |
|
452 |
+88e8 8868 a8a0 d8a0 |
|
453 |
+0506 0b15 2e2a 5bad |
|
454 |
+55ae 75ad d6bb 55dd |
|
455 |
+6ab7 da6d b6aa 6db7 |
|
456 |
+db6d b5db adeb 5dab |
|
457 |
+6b6d 4a5b 565b 556e |
|
458 |
+5bef b75b eb5b b7db |
|
459 |
+2020 40a0 2080 2020 |
|
460 |
+0000 0000 0000 0001 |
|
461 |
+0305 0c13 354a 9440 |
|
462 |
+565b ad6a b680 0000 |
|
463 |
+da6f b5da ab00 0000 |
|
464 |
+d57d aadf 6956 0b00 |
|
465 |
+aadd b76a bdd7 6abb |
|
466 |
+db6d b6db 6a5d eb5d |
|
467 |
+b65b ed55 db6d b65b |
|
468 |
+0228 0251 0422 1442 |
|
469 |
+a412 aa24 924a a915 |
|
470 |
+aaa5 9aa5 aaaa 2a55 |
|
471 |
+b555 ab55 aaad aa55 |
|
472 |
+565a 6b55 aa6d aa56 |
|
473 |
+abd5 5b6d aab6 dbaa |
|
474 |
+6a57 6db5 dbad 76ab |
|
475 |
+dd6a b75b b76e df5f |
|
476 |
+7bfd faee b4f6 d9ac |
|
477 |
+2854 54aa aa28 8040 |
|
478 |
+0000 0001 8001 0001 |
|
479 |
+5eae 5f7b bf7d efff |
|
480 |
+0a05 00c0 d0ff 76ff |
|
481 |
+5440 0103 1ffd efba |
|
482 |
+77fd bff7 7efb dfb7 |
|
483 |
+e8e0 b0f0 f0d2 eac5 |
|
484 |
+524a 452a abca ad56 |
|
485 |
+d5bb d5ae 6ab5 afd5 |
|
486 |
+6a57 baab da6d 56b5 |
|
487 |
+da55 dd6a aeb5 da6d |
|
488 |
+dd6a b6db aab6 da6b |
|
489 |
+35db 566b 5daa 6d57 |
|
490 |
+6eb6 de6c acec 58b8 |
|
491 |
+20a0 3050 516d b6db |
|
492 |
+0003 057a 4cb0 d050 |
|
493 |
+4000 0002 0a17 5b5f |
|
494 |
+0015 aaaf f8a0 e080 |
|
495 |
+0055 fadf 0700 0090 |
|
496 |
+0000 a0d0 eafc 7f1b |
|
497 |
+5516 0b01 0000 4000 |
|
498 |
+abf5 5b4d 72ab 5509 |
|
499 |
+ed56 6bbd d556 6b5d |
|
500 |
+114a 0154 0229 0452 |
|
501 |
+4955 2495 524a aa25 |
|
502 |
+552a aa55 aaa5 5555 |
|
503 |
+56aa b555 aa56 5a6a |
|
504 |
+b5d6 555a abd5 add5 |
|
505 |
+6db6 abda 576a b75a |
|
506 |
+ddb6 6abd d56b b7af |
|
507 |
+bdff f6dd fef5 f6ab |
|
508 |
+d569 adb2 aa65 aa4a |
|
509 |
+b450 55a0 ad50 aeb2 |
|
510 |
+0002 0000 00a0 08a5 |
|
511 |
+dbff fdaa 0000 026d |
|
512 |
+b7f8 8000 022d d556 |
|
513 |
+c000 0015 d65a 6aab |
|
514 |
+0000 00bf c9b5 a040 |
|
515 |
+150a 0dd5 165a 2b2d |
|
516 |
+95db 2aad b6ab 555a |
|
517 |
+6a5d d66b b55a add7 |
|
518 |
+db6d aab7 5aeb 5a6d |
|
519 |
+ab6d b65b ea5b add5 |
|
520 |
+ad75 ae6a b7da 556e |
|
521 |
+6a5d abf6 5aad d7ba |
|
522 |
+d971 b1a1 e243 62c5 |
|
523 |
+5576 ad56 fa4a f44a |
|
524 |
+4081 8102 0503 0507 |
|
525 |
+be77 ffde fffa bfff |
|
526 |
+820a 0808 140c 0505 |
|
527 |
+4804 0201 0002 056a |
|
528 |
+1f0f 8607 8707 0587 |
|
529 |
+d0a0 d8e8 f4fa bafd |
|
530 |
+0d05 0000 0000 8000 |
|
531 |
+aa17 3a4d 162a 0b15 |
|
532 |
+0944 2215 4015 4a21 |
|
533 |
+5492 4a2a a94a 2a49 |
|
534 |
+aa95 aa52 55aa aa55 |
|
535 |
+ab55 adb5 55aa ad56 |
|
536 |
+5a6b 55ad 56eb 5aad |
|
537 |
+aa6d b65b ea5d abb6 |
|
538 |
+dfbf bd7f feee fdfd |
|
539 |
+f5ad b5aa d5ac 55b4 |
|
540 |
+55aa 2a55 55aa 55aa |
|
541 |
+55aa d556 55aa 55aa |
|
542 |
+55aa b6aa 55aa 56b5 |
|
543 |
+55aa b6d5 55ab ad55 |
|
544 |
+6aad d556 6a55 5b6a |
|
545 |
+adb4 50a0 956a 55ad |
|
546 |
+0000 022a a9aa 54aa |
|
547 |
+34ab 555d 66b5 9aeb |
|
548 |
+ad6b ad55 b6aa b65a |
|
549 |
+6a5b ad6a b6d5 add6 |
|
550 |
+b655 b6db aa6d aab6 |
|
551 |
+bb55 db6d aab6 aadb |
|
552 |
+b556 6bb5 add6 ba55 |
|
553 |
+55ee 556b b5d9 a9b1 |
|
554 |
+83c5 8682 8685 8586 |
|
555 |
+60a0 b8d6 aa8b 0180 |
|
556 |
+0203 0328 d45b 6daa |
|
557 |
+f7ff bdf7 3f8f 45f1 |
|
558 |
+01c0 e0b0 fcff b7ff |
|
559 |
+aa00 0000 05ff fff7 |
|
560 |
+0f1e 377f fdef bffd |
|
561 |
+f6df fffd dfff 76ff |
|
562 |
+8040 40a0 a8d0 d0e8 |
|
563 |
+0a00 0100 0300 0000 |
|
564 |
+4a12 4904 5209 5402 |
|
565 |
+a52a 548a 524a aa12 |
|
566 |
+2aaa aaaa a5aa 55aa |
|
567 |
+b5aa aaad 55b6 55aa |
|
568 |
+b5d6 ab6d b5aa 5bd5 |
|
569 |
+57ef 5d5f b7bf 7e7b |
|
570 |
+daf6 faaa eab5 d6aa |
|
571 |
+a9a5 d5a5 aa44 95aa |
|
572 |
+5555 5555 aa95 55aa |
|
573 |
+5555 5555 aa55 55aa |
|
574 |
+55aa 5556 aa55 55aa |
|
575 |
+6aaa adaa ab55 55aa |
|
576 |
+aaad 55ab 6d55 55aa |
|
577 |
+d55a 6b55 555a 6baa |
|
578 |
+6a8a 5536 5552 59a2 |
|
579 |
+2dd5 55b6 5ad5 56aa |
|
580 |
+6baa 55b6 d55b aad5 |
|
581 |
+6ab5 aeaa 555b 8a45 |
|
582 |
+d55b add5 6a5b adb5 |
|
583 |
+556d 56b5 d65a 55ad |
|
584 |
+ae72 adab b5d6 5aab |
|
585 |
+d3a9 51a1 7181 e151 |
|
586 |
+8285 8682 8583 c582 |
|
587 |
+c040 a0d0 685e abb5 |
|
588 |
+5b2d 0b05 0201 4050 |
|
589 |
+5c55 6bb5 ae6a b655 |
|
590 |
+6e1f 45a1 b8d6 aab6 |
|
591 |
+deff ffb6 7f0d 83a0 |
|
592 |
+f7ff bff7 fffd b77f |
|
593 |
+ffdb 7fff f6bf ffed |
|
594 |
+ea74 f4da f9f5 baf4 |
|
595 |
+0000 0000 0000 8000 |
|
596 |
+5402 5409 520a 4529 |
|
597 |
+ca29 aa55 9552 4a2a |
|
598 |
+aa55 aa55 55aa aaab |
|
599 |
+b556 aa55 55aa d62a |
|
600 |
+5aad d55b 67af addf |
|
601 |
+ffef fefe b5fe fab5 |
|
602 |
+b555 aad4 55a8 a255 |
|
603 |
+2a55 4aa9 2aaa a554 |
|
604 |
+aa55 aa55 aa92 55aa |
|
605 |
+aa55 aa55 aaaa 55aa |
|
606 |
+b555 aa55 aaaa 55aa |
|
607 |
+565a aa55 aaaa 55aa |
|
608 |
+dbaa aa55 aaad 55aa |
|
609 |
+54b5 d554 aa52 aab2 |
|
610 |
+a151 4181 8181 8182 |
|
611 |
+6d55 566a 555a 55ab |
|
612 |
+5b6d aaab b5aa 566a |
|
613 |
+4502 8141 0080 8080 |
|
614 |
+55da 565a aa55 6d2a |
|
615 |
+6aad d5b6 d555 adb5 |
|
616 |
+b55b aad6 5a6b ad55 |
|
617 |
+4361 82c2 a344 4642 |
|
618 |
+c282 c2c2 e1e2 e1e2 |
|
619 |
+daad d6b5 56db 6aad |
|
620 |
+d65a eb55 b65b d55a |
|
621 |
+5aad 564b ea35 d65b |
|
622 |
+da6b ad6a b7aa db6d |
|
623 |
+d054 6bb5 5bd5 5b6c |
|
624 |
+0e01 2048 5368 adb6 |
|
625 |
+ff77 0400 0075 02a8 |
|
626 |
+f040 0000 027a 954a |
|
627 |
+0000 0000 80a0 7897 |
|
628 |
+0452 1542 294a 114a |
|
629 |
+aaa9 4a29 55a5 2a92 |
|
630 |
+aa55 5555 5555 aa55 |
|
631 |
+d52a 6d55 5556 aa55 |
|
632 |
+5bbf af7d 7fef fdbf |
|
633 |
+faea 6aea dad5 aaaa |
|
634 |
+a5a9 8aa5 942a 492a |
|
635 |
+2a52 aa2a a595 54aa |
|
636 |
+aa95 55aa 5552 aaaa |
|
637 |
+554a 55aa 55aa a595 |
|
638 |
+55aa 55aa 554a 5555 |
|
639 |
+55aa 55aa 55aa 5555 |
|
640 |
+55aa 6daa 55aa 5555 |
|
641 |
+55aa 55aa 55aa 555a |
|
642 |
+0182 0202 0585 0a8a |
|
643 |
+55b6 aaaa 555b aaaa |
|
644 |
+55ad b5d5 5555 aab5 |
|
645 |
+0000 8000 0080 0080 |
|
646 |
+2b15 160a 0b05 0a05 |
|
647 |
+566a add5 565a aa6a |
|
648 |
+b5d6 5aaa b5d6 aab5 |
|
649 |
+95a6 8aa5 4aa5 9625 |
|
650 |
+e2e2 e262 f262 b263 |
|
651 |
+d5b6 aadb aab5 d65a |
|
652 |
+adb5 d65a abb5 d5ad |
|
653 |
+aa6d b5d6 556b ad55 |
|
654 |
+aa56 b5db 555a 6aad |
|
655 |
+abd5 6d56 b5ab da6b |
|
656 |
+55b6 55da 566a ad6a |
|
657 |
+6bad b5d5 aab6 abb5 |
|
658 |
+106e a956 b5d6 5a6a |
|
659 |
+ea2a 5baa b5ad d6aa |
|
660 |
+2412 4924 1249 2412 |
|
661 |
+55aa 2495 aa49 a52a |
|
662 |
+4aa9 aa2a aa55 25aa |
|
663 |
+ab5a aba7 b74f 5d9f |
|
664 |
+f7ff ddfe 76de 7dfa |
|
665 |
+5454 a9a9 a2a9 45a9 |
|
666 |
+a5aa 5229 954a 2955 |
|
667 |
+25aa 524a 5452 4a2a |
|
668 |
+554a a9a5 95aa a554 |
|
669 |
+55aa 552a 52aa 2aa4 |
|
670 |
+54aa 4a55 aaa9 aa95 |
|
671 |
+aaaa aa55 9555 aa55 |
|
672 |
+aaaa aa55 5555 aa55 |
|
673 |
+aaaa aa55 5555 aa55 |
|
674 |
+95d5 aa55 5555 aa55 |
|
675 |
+556a ab55 5555 aa55 |
|
676 |
+56aa 556a 5556 aa55 |
|
677 |
+80c0 20d0 50a8 a856 |
|
678 |
+0a05 0a05 0a05 0a0b |
|
679 |
+ad55 d65a aa55 d65a |
|
680 |
+56aa b5ad aa6b adaa |
|
681 |
+aaab 25aa 2556 25aa |
|
682 |
+b252 52a5 92d5 52a5 |
|
683 |
+aaab d55b aab5 ad55 |
|
684 |
+b556 6a55 b6aa 5a6b |
|
685 |
+b6aa b5ad b5d5 aa56 |
|
686 |
+abb5 aa5b ad6a abd5 |
|
687 |
+555a d65a 6baa 556d |
|
688 |
+adb5 d6aa 5baa 6daa |
|
689 |
+ad55 daab 55b5 56da |
|
690 |
+ab55 ad6a 555a d5ab |
|
691 |
+5a6b 55aa b6aa 556d |
|
692 |
+4912 4412 4914 4215 |
|
693 |
+548a 52a9 15a4 522a |
|
694 |
+aa95 5255 5594 aa55 |
|
695 |
+b75e bf7a 6ffd fddd |
|
696 |
+6dfa fad5 f5b4 eaea |
|
697 |
+4495 8924 2a92 4925 |
|
698 |
+9249 2aa9 a554 2552 |
|
699 |
+a94a 5552 29a5 5592 |
|
700 |
+4aaa 29a5 2a55 24aa |
|
701 |
+aa95 5452 4a55 aa94 |
|
702 |
+aa52 aa95 a955 95a5 |
|
703 |
+49aa aa55 2955 4a55 |
|
704 |
+2aaa aa55 552a a555 |
|
705 |
+aaaa aa55 55aa 552a |
|
706 |
+aaaa aa55 55aa 55aa |
|
707 |
+aaaa aa55 55aa 55aa |
|
708 |
+aaaa aa55 55aa 55aa |
|
709 |
+a9ad d555 55aa 55aa |
|
710 |
+144b 5555 55aa 55aa |
|
711 |
+aa55 5555 56aa 55aa |
|
712 |
+b555 55aa adaa 55aa |
|
713 |
+25aa 55aa 56aa 55da |
|
714 |
+55a5 aaaa a5a2 55a5 |
|
715 |
+6aad aaab 55b5 565a |
|
716 |
+aaad b555 566a abad |
|
717 |
+b556 aa75 96ea 2b5a |
|
718 |
+5aab d55a add5 55b6 |
|
719 |
+aa56 b5ab 5aaa 56b5 |
|
720 |
+b5d6 5555 b6d5 aa56 |
|
721 |
+55aa 6dab ad55 b5d6 |
|
722 |
+5ad5 565a 6a55 55aa |
|
723 |
+aa55 aadb aa55 aab6 |
|
724 |
+4015 0944 1224 0944 |
|
725 |
+9249 2a92 49a5 14aa |
|
726 |
+a52b ab4a 574b ae4f |
|
727 |
+f77b daf3 f6a3 ede5 |
|
728 |
+55e8 a554 d451 a84a |
|
729 |
+544a 2592 5548 a512 |
|
730 |
+9453 4954 2594 524a |
|
731 |
+4a55 24aa 49a5 548a |
|
732 |
+524a a94a 5425 94aa |
|
733 |
+52aa 5592 aa49 a555 |
|
734 |
+aa55 49aa 5549 2a55 |
|
735 |
+5452 2aaa 492a aa52 |
|
736 |
+aa95 aaa4 2aaa a554 |
|
737 |
+aa55 a995 aaa5 2aa9 |
|
738 |
+aa55 2a55 aa52 4a55 |
|
739 |
+aa55 aa55 aa55 aa52 |
|
740 |
+aa55 aa55 aa55 aa55 |
|
741 |
+aa55 aa55 aa55 aa55 |
|
742 |
+aa55 aa55 aa55 aa55 |
|
743 |
+b555 aa55 aa55 aa55 |
|
744 |
+5556 aa55 aa55 aa55 |
|
745 |
+55aa ab55 aa55 aa5a |
|
746 |
+52a5 5552 a555 a5aa |
|
747 |
+aa55 aab5 5555 55aa |
|
748 |
+b255 aaad 5555 55aa |
|
749 |
+aaaa b556 5555 55aa |
|
750 |
+aaaa b5aa 565a 6aaa |
|
751 |
+d5aa 56aa d5aa adb5 |
|
752 |
+b5aa adb5 55d5 5556 |
|
753 |
+55aa 55ad 5555 6aaa |
|
754 |
+6daa 55aa 565a aad5 |
|
755 |
+55aa 55da aaab aa55 |
|
756 |
+1221 0a44 1104 5104 |
|
757 |
+2249 2a90 4a25 520a |
|
758 |
+ad1f ad9f bb2f bd77 |
|
759 |
+add5 c555 a985 24a5 |
|
760 |
+5141 5220 4521 8442 |
|
761 |
+5524 9249 5522 9449 |
|
762 |
+2994 4a51 2a89 544a |
|
763 |
+52a9 4a24 aa25 a994 |
|
764 |
+4955 92a9 4534 4aa4 |
|
765 |
+4a29 a42a 5592 a994 |
|
766 |
+a42a a5aa 5229 9552 |
|
767 |
+9555 5295 5452 2aa5 |
|
768 |
+522a aa49 aa95 402d |
|
769 |
+a595 aa55 492a 04f0 |
|
770 |
+5552 aa2a 5295 a00a |
|
771 |
+2aaa a995 5554 02d8 |
|
772 |
+aa95 5255 55aa 95a9 |
|
773 |
+aa55 aa55 2aa5 5555 |
|
774 |
+aa55 aa55 4a55 5455 |
|
775 |
+aa55 aa55 aa55 aa55 |
|
776 |
+aa55 aa55 aa55 aa55 |
|
777 |
+aa55 aa55 aa55 aa55 |
|
778 |
+a555 a54a aa4a aa4a |
|
779 |
+5556 55aa aaaa abaa |
|
780 |
+55aa 56aa b5aa 55aa |
|
781 |
+55b6 d5aa 55aa 55aa |
|
782 |
+55aa 55aa 55b6 55aa |
|
783 |
+55aa 55aa 55ab 55aa |
|
784 |
+55b5 55aa 556a 56aa |
|
785 |
+555a 55aa 55d5 aaaa |
|
786 |
+55aa 55ab 55aa aaaa |
|
787 |
+6aaa 5555 56aa b5aa |
|
788 |
+2208 4510 0452 0128 |
|
789 |
+a94a 2592 4825 4a21 |
|
790 |
+5f7d 76de fabd ecba |
|
791 |
+244a 45a2 4924 8aa5 |
|
792 |
+8144 0249 0284 010a |
|
793 |
+2592 492a 904a 2548 |
|
794 |
+2154 2a85 a855 02b4 |
|
795 |
+425a 8452 5512 a885 |
|
796 |
+528a a94a 2492 5549 |
|
797 |
+a552 2a92 a944 2a52 |
|
798 |
+4aa9 5492 4aa9 4aa5 |
|
799 |
+9452 a992 4556 a50a |
|
800 |
+6ab7 aadd 6aaa 8000 |
|
801 |
+af5a edb6 dbaa 1501 |
|
802 |
+edb7 5aff 55aa 6a10 |
|
803 |
+6eb5 db7e abd5 2d02 |
|
804 |
+558a 65a4 d279 acd6 |
|
805 |
+55aa 25aa a955 9552 |
|
806 |
+55aa 25aa 552a 52aa |
|
807 |
+4aa9 5555 4aaa a955 |
|
808 |
+aa55 2a55 aaa4 552a |
|
809 |
+aa55 aa55 aaaa 55aa |
|
810 |
+a54a aa4a a58a 55aa |
|
811 |
+55aa aaaa 55aa 55aa |
|
812 |
+55aa aaaa 55aa 55aa |
|
813 |
+55aa aaaa 55aa 55aa |
|
814 |
+55aa aaaa 55aa 55aa |
|
815 |
+55aa adaa 55aa 55aa |
|
816 |
+55aa 55aa 55aa 55aa |
|
817 |
+55aa 55aa 55aa 55aa |
|
818 |
+55aa 55aa 55aa 55aa |
|
819 |
+55aa 55aa 55aa 55aa |
|
820 |
+0550 0520 0a40 1500 |
|
821 |
+4a29 452b 8356 13a6 |
|
822 |
+f9da f259 f2d5 f2a5 |
|
823 |
+4885 5409 9248 1224 |
|
824 |
+810a 010a 0108 0510 |
|
825 |
+2548 2249 14a2 09a4 |
|
826 |
+09a4 5209 a429 4422 |
|
827 |
+5522 9449 2452 8954 |
|
828 |
+2492 4a29 a492 2984 |
|
829 |
+8954 a512 a994 4529 |
|
830 |
+14aa 4552 2994 4a25 |
|
831 |
+9b54 28b4 50d0 a040 |
|
832 |
+0000 0010 0000 0000 |
|
833 |
+0000 0000 4200 0000 |
|
834 |
+0000 0041 0000 0000 |
|
835 |
+0000 4002 0000 0000 |
|
836 |
+ba55 2f15 0b0a 0502 |
|
837 |
+4a35 8a54 4aa5 d2a5 |
|
838 |
+4a55 aa92 aa55 4955 |
|
839 |
+aa49 55aa aa49 2a55 |
|
840 |
+aa55 52aa 9555 aa49 |
|
841 |
+9554 aa55 524a aa55 |
|
842 |
+55aa a955 aa95 5255 |
|
843 |
+24aa 5555 aa49 aa55 |
|
844 |
+95aa 5452 aa55 9552 |
|
845 |
+55aa aaa5 9555 55aa |
|
846 |
+55aa aa55 552a 54a5 |
|
847 |
+55aa aa55 54aa a555 |
|
848 |
+55aa aa55 aaa4 5555 |
|
849 |
+55aa aa55 a495 5555 |
|
850 |
+55aa aa55 aa52 4a2a |
|
851 |
+54a9 ab52 aa46 aca8 |
|
852 |
+5500 2a00 4a01 2802 |
|
853 |
+1745 9746 2b47 0da7 |
|
854 |
+e8a5 62c8 ca45 908a |
|
855 |
+9208 2490 0a20 5408 |
|
856 |
+0409 0211 0412 000a |
|
857 |
+114a 214a 208a 5184 |
|
858 |
+5402 5422 914a 218a |
|
859 |
+8254 8952 0950 2548 |
|
860 |
+528a 2550 0aa5 10aa |
|
861 |
+a452 09aa 4528 9249 |
|
862 |
+9255 4a25 5595 4a2a |
|
863 |
+c040 8000 0000 0001 |
|
864 |
+0000 0001 154b 5a20 |
|
865 |
+0000 0055 6d5a 2c00 |
|
866 |
+0000 0120 a8de 6b00 |
|
867 |
+0002 0000 0090 403a |
|
868 |
+0221 0100 0000 0000 |
|
869 |
+d269 5aa8 b65a 2b55 |
|
870 |
+aa24 95aa a552 2a49 |
|
871 |
+a995 524a 55a9 4a2a |
|
872 |
+2a55 aa49 552a a495 |
|
873 |
+4a55 a955 25aa a94a |
|
874 |
+aa55 2955 4aa9 2aa5 |
|
875 |
+9452 4a2a aa54 9255 |
|
876 |
+aaaa 95a9 a595 aa55 |
|
877 |
+55a9 4a2a 5554 aa49 |
|
878 |
+552a a9a5 5595 aa54 |
|
879 |
+55aa 492a 5555 aa92 |
|
880 |
+55a5 2aa9 552a a594 |
|
881 |
+542a aa52 4aaa 2aa5 |
|
882 |
+aaa9 a5aa 54a5 9455 |
|
883 |
+9850 30a0 61c1 c285 |
|
884 |
+4802 2802 2108 4208 |
|
885 |
+169b 571d 572b ae2b |
|
886 |
+918a 4014 4210 8805 |
|
887 |
+5004 5088 2090 4820 |
|
888 |
+0015 000a 0114 0208 |
|
889 |
+2842 11a4 0944 2194 |
|
890 |
+2194 2248 0550 0aa1 |
|
891 |
+1244 9249 1288 5204 |
|
892 |
+05a8 4429 04a9 4492 |
|
893 |
+2492 4924 9224 9224 |
|
894 |
+9456 2894 54a8 50a8 |
|
895 |
+4102 0000 0000 0000 |
|
896 |
+0000 0000 0000 0000 |
|
897 |
+0000 0000 0000 0000 |
|
898 |
+0000 0000 0000 0000 |
|
899 |
+0c00 0000 0000 0000 |
|
900 |
+0004 8040 4020 0000 |
|
901 |
+2d15 160b 150a 0505 |
|
902 |
+554a a855 4aa5 a954 |
|
903 |
+52aa 924a 5524 5295 |
|
904 |
+52aa 9552 4aa9 5549 |
|
905 |
+aa49 2aa5 544a 2955 |
|
906 |
+5452 9554 a555 4925 |
|
907 |
+aa92 4aaa 5229 4a2a |
|
908 |
+a94a a995 544a a955 |
|
909 |
+2aaa 522a a495 5552 |
|
910 |
+a555 aa92 aa52 2a94 |
|
911 |
+5455 4aa9 5492 aa95 |
|
912 |
+aa55 a42a a594 aa52 |
|
913 |
+aa55 92aa 49aa 9552 |
|
914 |
+5356 974c 5cb0 3061 |
|
915 |
+820a 1509 252a 5522 |
|
916 |
+2104 2108 2200 2500 |
|
917 |
+366e 2b6e 6a6e 6ab6 |
|
918 |
+a011 0882 2881 1082 |
|
919 |
+4810 a008 a010 8050 |
|
920 |
+0211 0805 1002 0802 |
|
921 |
+4210 4a01 5402 a804 |
|
922 |
+1481 5402 5108 a510 |
|
923 |
+5108 a510 4510 4a20 |
|
924 |
+0852 09a4 1144 9249 |
|
925 |
+9249 2288 2548 2249 |
|
926 |
+5050 4184 4000 2400 |
|
927 |
+2400 1100 4400 1082 |
|
928 |
+a500 1044 a84a 1240 |
|
929 |
+5200 0980 2682 0982 |
|
930 |
+4009 2004 a194 552a |
|
931 |
+0000 2008 2200 49a0 |
|
932 |
+0000 0000 4000 2004 |
|
933 |
+0502 0201 0101 0000 |
|
934 |
+a5a9 aa64 525a a5b4 |
|
935 |
+4925 9452 9549 2492 |
|
936 |
+2455 9249 5524 9552 |
|
937 |
+924a 5549 24aa 2495 |
|
938 |
+aa52 492a a495 a42a |
|
939 |
+a552 2994 a552 9549 |
|
940 |
+24aa 2592 5549 2a52 |
|
941 |
+944a 524a 542a 9249 |
|
942 |
+a594 52aa 924a a955 |
|
943 |
+52a9 954a a452 4a2a |
|
944 |
+4a55 2492 aa55 9249 |
|
945 |
+a84b a957 865c 1870 |
|
946 |
+c284 8805 1029 49a2 |
|
947 |
+5592 4a29 a554 12aa |
|
948 |
+2400 2401 2401 1105 |
|
949 |
+daee b56a eeb5 6ab6 |
|
950 |
+1184 0124 0208 2281 |
|
951 |
+0050 00a8 00a0 1040 |
|
952 |
+1004 0210 0500 1200 |
|
953 |
+a210 8a41 1441 1481 |
|
954 |
+8550 0a40 2a00 5500 |
|
955 |
+4a01 aa01 aa00 5402 |
|
956 |
+2248 1244 1188 4492 |
|
957 |
+12a4 11a4 09a2 1481 |
|
958 |
+02a0 0049 0050 8420 |
|
959 |
+0024 0002 2004 8011 |
|
960 |
+0210 8004 2001 4400 |
|
961 |
+2004 8010 4200 0820 |
|
962 |
+0188 2100 4400 9100 |
|
963 |
+2a49 0411 4004 0120 |
|
964 |
+4009 8054 0154 0104 |
|
965 |
+0000 0040 0800 4420 |
|
966 |
+525a 542a 2914 158a |
|
967 |
+5592 49a4 12a9 0aa0 |
|
968 |
+4954 2592 a924 9249 |
|
969 |
+5249 2a92 4924 aa25 |
|
970 |
+924a 5294 4a25 a825 |
|
971 |
+a554 92aa 4924 9552 |
|
972 |
+29a5 9452 49a4 15a4 |
|
973 |
+5524 92aa 49a5 14aa |
|
974 |
+2492 aa49 2554 9249 |
|
975 |
+a594 524a 29a5 944a |
|
976 |
+55aa 914b 5224 9448 |
|
977 |
+62c1 0a84 122a 4924 |
|
978 |
+510a a1a5 5284 49a5 |
|
979 |
+4925 5425 9255 4825 |
|
980 |
+2105 1101 0521 0000 |
|
981 |
+6dd6 75b6 d576 0000 |
|
982 |
+0802 0805 1005 0000 |
|
983 |
+2088 4020 1040 0000 |
|
984 |
+0401 0802 0800 0000 |
|
985 |
+2409 4014 8025 0000 |
|
986 |
+5500 2580 2a00 0000 |
|
987 |
+500a 4015 4092 0000 |
|
988 |
+208a 2015 802a 0000 |
|
989 |
+5482 2904 a902 0000 |
|
990 |
+4a10 4010 4000 0000 |
|
991 |
+0000 1200 0000 0000 |
|
992 |
+0820 0104 2000 0000 |
|
993 |
+8200 0801 2000 0000 |
|
994 |
+0440 1002 0048 0000 |
|
995 |
+8400 2200 4400 0000 |
|
996 |
+2082 0800 4108 0000 |
|
997 |
+8800 2400 1201 0000 |
|
998 |
+0402 900a 500a 0000 |
|
999 |
+558a 4095 4992 0000 |
|
1000 |
+2492 4924 5209 0000 |
|
1001 |
+904a 2492 4924 0000 |
|
1002 |
+92a4 4992 2492 0000 |
|
1003 |
+2885 5229 8452 0000 |
|
1004 |
+924a 2944 9249 0000 |
|
1005 |
+a254 12a9 442a 0000 |
|
1006 |
+a495 5229 8455 0000 |
|
1007 |
+219a 442a a412 0000 |
|
1008 |
+1081 4182 0500 0000 |
|
1009 |
+aa25 512a 44aa 0000 |
|
1010 |
+0254 0992 4984 0000 |
|
1011 |
+9452 4925 5289 0000 |
|
1012 |
+ |
|
1013 |
+] |
|
1014 |
+ |
|
1015 |
+|c000 @FRAME |
|
1016 |
+ |
|
1017 |
+ ( clear last cursor ) |
|
1018 |
+ #10 ,clear_icn ~mouse.x ~mouse.y ,draw-sprite JSR |
|
1019 |
+ ( record mouse positions ) |
|
1020 |
+ #00 IOR2 =mouse.x #02 IOR2 =mouse.y |
|
1021 |
+ ( record mouse state ) |
|
1022 |
+ #04 IOR #11 ADD =state |
|
1023 |
+ |
|
1024 |
+ #04 IOR #01 NEQ ,no-touch ROT JMP? POP2 |
|
1025 |
+ ,on-touch JSR |
|
1026 |
+ @no-touch |
|
1027 |
+ |
|
1028 |
+ ( draw mouse ) |
|
1029 |
+ ~state ,cursor_icn ~mouse.x ~mouse.y ,draw-sprite JSR |
|
1030 |
+ |
|
1031 |
+BRK |
|
1032 |
+ |
|
237 | 1033 |
|d000 @ERROR BRK |
238 |
-|FFF0 [ 31fd e1f3 b1f2 ] ( palette ) |
|
1034 |
+|FFF0 [ 13fd 1ef3 1bf2 ] ( palette ) |
|
239 | 1035 |
|FFFA .RESET .FRAME .ERROR |