Browse code

Improved window tests

neauoire authored on 24/02/2021 04:32:28
Showing 2 changed files
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