~rabbits/orca-toy: Added MSX816 font

4 files changed, 480 insertions(+), 172 deletions(-)

A etc/msx816.tal
A etc/vga816.tal
M src/assets.tal
M src/main.tal

A etc/msx816.tal => etc/msx816.tal +226 -0

@@ 0,0 1,226 @@
+@font ( msx816 )
+	0000 0000 0000 0000 0000 0000 0000 0000
+	1818 1818 1818 1010 1010 1000 0010 1010
+	0000 2828 0000 0000 0000 0000 0000 0000
+	2828 282e 38e8 2828 2828 2e38 e828 2828
+	1038 5454 5450 5030 1814 1454 5454 3810
+	42a2 a4a4 4808 1010 1020 244a 4a8a 8400
+	0010 2828 2828 1030 504a 4a44 443a 0000
+	1010 1020 0000 0000 0000 0000 0000 0000
+	0204 0408 0808 0808 0808 0808 0804 0402
+	4020 2010 1010 1010 1010 1010 1020 2040
+	0000 1010 5454 3810 3854 5410 1000 0000
+	0000 0010 1010 107c 1010 1010 0000 0000
+	0000 0000 0000 0000 0000 0000 1010 1020
+	0000 0000 0000 007c 0000 0000 0000 0000
+&marker
+	0000 0000 0000 0000 0000 0000 0020 2000
+	0202 0404 0808 1010 2020 4040 8080 0000
+	0018 2442 4242 4242 4242 4242 4224 1800
+	0008 1828 0808 0808 0808 0808 0808 1c00
+	0018 2442 4202 0202 0408 1020 4040 7e00
+	0018 2442 0202 0438 0402 0202 0204 7800
+	000c 0c14 1414 2424 2444 447e 0404 0e00
+	007e 4040 4040 5864 4202 0202 0204 7800
+	000c 1020 4040 5864 4242 4242 4224 1800
+	007e 4202 0204 0404 0808 0810 1010 1000
+	0018 2442 4242 2418 2442 4242 4224 1800
+	0018 2442 4242 4242 261a 0202 0408 3000
+	0000 0000 0010 1000 0000 0000 1010 0000
+	0000 0000 0010 1000	0000 0000 1010 1020
+	0000 0204 0810 2040	2010 0804 0200 0000
+	0000 0000 0000 7c00	007c 0000 0000 0000
+	0000 4020 1008 0402	0408 1020 4000 0000
+	1824 4242 4204 0408	0810 1010 0010 1010
+	3844 8282 9aaa aaaa	aaaa aa96 8082 4438
+	0010 1028 2844 4444	8282 fe82 8282 0000
+	00f8 4442 4242 4478	4442 4242 44f8 0000
+	003c 4282 8280 8080	8080 8282 423c 0000
+	00f8 4442 4242 4242	4242 4242 44f8 0000
+	00fc 4240 4040 4878 4840 4040 42fc 0000
+	80fe 4240 4040 447c 4440 4040 40e0 0000
+	003a 4682 8080 8e82 8282 8282 463a 0000
+	00ee 4444 4444 447c 4444 4444 44ee 0000
+	0038 1010 1010 1010 1010 1010 1038 0000
+	000e 0404 0404 0404 0404 4444 2810 0000
+	00ee 4448 4850 5060 5050 4848 44ee 0000
+	00e0 4040 4040 4040 4040 4040 42fe 0000
+	0082 c6c6 c6aa aaaa 9292 9282 8282 0000
+	00e2 4262 6262 5252 4a4a 4646 42e2 0000
+	0038 4482 8282 8282 8282 8282 4438 0000
+	00f8 4442 4242 4244 7840 4040 40f0 0000
+	0038 4482 8282 8282 8282 829a 643a 0000
+	00f8 4442 4242 4478 4844 4442 42e2 0000
+	0010 2844 4440 2010 0804 4444 2810 0000
+	00fe 9210 1010 1010 1010 1010 1038 0000
+	00ee 4444 4444 4444 4444 4444 4438 0000
+	0082 8282 8282 8244 4444 2828 1010 0000
+	0082 8292 9292 9292 92ba aa44 4444 0000
+	0042 4242 2424 1818 1824 2442 4242 0000
+	0082 8282 4444 2828 1010 1010 1038 0000
+	007e 4204 0408 0810 1020 2040 427e 0000
+	0e08 0808 0808 0808 0808 0808 0808 080e
+	0082 8282 4444 fe28 10fe 1010 1010 1000
+	7010 1010 1010 1010 1010 1010 1010 1070
+	1028 4400 0000 0000 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0000 0000 00fe
+	1010 1008 0000 0000 0000 0000 0000 0000
+	0000 0000 0030 0808 3848 4848 4834 0000
+	0060 2020 202c 3222 2222 2222 322c 0000
+	0000 0000 001c 2240 4040 4040 221c 0000
+	000c 0404 0434 4c44 4444 4444 4c36 0000
+	0000 0000 0018 2424 3c20 2020 2418 0000
+	000c 1210 1038 1010 1010 1010 1038 0000
+	0000 0000 0034 4a48 4830 4038 4444 4438
+	00c0 4040 4058 6444 4444 4444 44ee 0000
+	0010 0000 0030 1010 1010 1010 1038 0000
+	0008 0000 0018 0808 0808 0808 0808 2810
+	0060 2020 2022 2224 2438 2424 2272 0000
+	0030 1010 1010 1010 1010 1010 1038 0000
+	0000 0000 00a4 da92 9292 9292 9292 0000
+	0000 0000 00d8 6444 4444 4444 44ee 0000
+	0000 0000 0038 4482 8282 8282 4438 0000
+	0000 0000 00d8 6442 4242 4242 6458 40e0
+	0000 0000 0034 4c84 8484 8484 4c34 040e
+	0000 0000 0068 3420 2020 2020 2070 0000
+	0000 0000 0018 2424 1008 0424 2418 0000
+	0010 1010 107c 1010 1010 1010 1408 0000
+	0000 0000 00cc 4444 4444 4444 4c36 0000
+	0000 0000 00ee 4444 4428 2828 1010 0000
+	0000 0000 0092 9292 9292 92aa 4444 0000
+	0000 0000 00ee 4428 1010 1028 44ee 0000
+	0000 0000 00ee 4444 4448 2828 1010 2040
+	0000 0000 007c 4408 0810 2020 447c 0000
+	0204 0404 0404 0408 0804 0404 0404 0402
+	1010 1010 1010 1010 1010 1010 1010 1010
+	4020 2020 2020 2010 1020 2020 2020 2040
+	fe00 0000 0000 0000 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0030 4848 3000
+	001e 1010 1010 1010 0000 0000 0000 0000
+	0000 0000 0000 0000 0808 0808 0808 7800
+	0000 0000 0000 0000 0000 0000 4020 3000
+	0000 0000 0000 183c 3c18 0000 0000 0000
+	0808 087c 1010 2a34 4c94 1424 2020 1c00
+	0000 0000 0010 107c 103c 5652 4a52 2408
+	0000 0000 0000 0040 4442 4242 4250 2000
+	0000 0000 0020 1800 7804 0404 0408 0810
+	0000 0000 0000 1800 3c08 1010 2848 4600
+	0000 0000 0000 1014 3a10 1c32 5252 3400
+	0000 0000 1048 5068 c444 4428 2010 1000
+	0000 0000 0848 485c 6a4a 4a4a 5c08 0810
+	0000 0000 1010 101c 1010 1070 9894 6000
+	0000 0000 0000 0000 1c62 0202 0404 0810
+	0000 0000 0000 0040 3e00 0000 0000 0000
+	0010 1010 7e20 3c66 aaaa 92aa a244 0800
+	0000 8080 8482 8282 8282 a0a0 4040 0000
+	0030 0c00 007c 0202 0202 0202 0408 3000
+	2018 0000 007c 0808 1020 3048 8888 0600
+	0020 2c26 203c e020 2c32 62a2 a262 2400
+	2020 2422 f22a 2a2a 4a48 4848 8898 3000
+	0020 2020 fc10 10fc 0804 7c82 8040 3800
+	0202 0408 0810 2040 2010 1008 0804 0202
+	0004 4444 449e 8484 8484 84a4 4444 0810
+	0000 7c00 0000 0000 0080 8080 403e 0000
+	0010 1010 fc10 0808 047c 8280 8040 3800
+	0040 4040 4040 4040 4040 4040 4244 3800
+	0808 08fe 0808 3848 4858 2808 0810 1020
+	0008 4848 48fe 4848 4848 4858 4040 3c00
+	007e 0408 1020 40fe 0810 1010 1008 0400
+	0000 0000 0000 0000 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0030 4848 3000
+	001e 1010 1010 1010 0000 0000 0000 0000
+	0000 0000 0000 0000 0808 0808 0808 7800
+	0000 0000 0000 0000 0000 0000 4020 3000
+	0000 0000 0000 183c 3c18 0000 0000 0000
+	0000 00fc 0404 047c 0404 0808 1010 2000
+	0000 0000 0000 007e 0214 1810 1020 2040
+	0000 0000 0000 0408 0810 2848 0808 0808
+	0000 0000 0000 1010 7c44 4404 0808 1010
+	0000 0000 0000 0000 0038 1010 1010 7c00
+	0000 0000 0000 0808 7e18 2828 4848 8818
+	0000 0000 0000 2020 3ce4 2820 1010 1010
+	0000 0000 0000 0000 3808 0808 087c 0000
+	0000 0000 0000 003c 0404 3c04 0404 3c00
+	0000 0000 0000 0024 9454 4404 0808 1020
+	0000 0000 0000 0040 3e00 0000 0000 0000
+	0000 00fe 0202 1418 1010 1010 2020 4000
+	0004 0408 0810 1828 4888 0808 0808 0800
+	0000 1010 fe82 8282 0204 0404 0808 1000
+	0000 0000 0000 7c10 1010 1010 1010 fe00
+	0008 0808 08fe 0818 2828 4848 8888 1800
+	0020 2020 fc24 2424 2444 4484 8404 1800
+	0040 2020 3ed0 101e e808 0804 0404 0202
+	0000 2020 3c24 2444 4488 0810 1060 8000
+	0000 2020 203e 4444 4484 0808 1010 2000
+	0000 0000 fe02 0202 0202 0202 fe00 0000
+	0000 0424 2424 fe24 2424 0404 0808 1000
+	0000 2010 0000 8242 0204 0408 1060 8000
+	0000 0078 0808 0808 1010 2828 4482 0000
+	0000 2020 2026 3ae2 2420 2020 201e 0000
+	0000 0202 0242 2222 0404 0808 1020 4000
+	0000 2020 3c24 2444 6498 0810 1060 8000
+	0000 0c70 0808 08fe 0808 0808 1010 2000
+	0000 0022 9252 4202 0404 0808 1020 0000
+	0000 007c 0000 fe08 0808 0810 1020 4000
+	0040 4040 4040 7058 4c46 4040 4040 4000
+	0008 0808 0808 fe08 0808 0810 1020 4000
+	0000 0000 007c 0000 0000 00fe 0000 0000
+	0000 007c 0404 0428 1808 1412 2040 0000
+	1010 0800 7c04 0808 1014 3252 9010 1000
+	0000 0002 0204 0408 0810 1020 20c0 0000
+	0000 0048 4844 4442 4242 8282 8282 0000
+	0000 4040 424c 7040 4040 4040 3c00 0000
+	0000 007e 0202 0202 0404 0808 1020 0000
+	0000 0000 2050 5088 8804 0200 0000 0000
+	0010 1010 10fe 1010 1452 5252 9210 3000
+	0000 0000 fe02 0404 4830 1008 0400 0000
+	0000 3018 0c00 3018 0400 3018 0c00 0000
+	0000 0008 0810 1020 2024 424e f202 0000
+	0000 0202 0444 2810 1028 2440 4080 0000
+	0000 0000 7c20 20ff 2020 2020 1e00 0000
+	0020 2026 3ae2 2428 2010 1010 1010 0000
+	0000 0000 7808 0808 0808 fe00 0000 0000
+	0000 0000 7e02 0202 7e02 0202 7e00 0000
+	0000 003c 0000 fe02 0204 0408 0810 2000
+	0002 2222 2222 2222 2222 0204 0408 1000
+	0000 0000 1010 5050 5252 5454 9890 0000
+	0000 0040 4040 4042 4244 4448 5060 0000
+	0000 0000 007e 4242 4242 4242 7e00 0000
+	0000 00fe 8282 8202 0404 0808 1020 4000
+	0000 0040 2012 0202 0204 0408 30c0 0000
+	0000 3008 6010 0000 0000 0000 0000 0000
+	0000 3048 4830 0000 0000 0000 0000 0000
+	0020 2020 f820 2e40 4040 5050 908e 8000
+	0010 1010 fc20 2020 2c32 4202 0204 3800
+	0000 0000 0834 c202 0202 0204 0418 2000
+	0000 fe04 0810 2040 4040 4020 2010 0c00
+	0000 8040 2022 1c30 4040 8080 8040 3e00
+	2020 2824 f222 4848 4888 8898 2424 1a00
+	0000 405e 8080 8080 8080 9090 d08e 0000
+	0000 0444 443c 6aaa aa92 92a6 aaaa 4400
+	0040 4044 6ad2 5262 6242 4ad6 d24c 4200
+	0000 1824 5292 9292 a2a2 a2a2 a244 0800
+	0004 4444 5e44 8484 8484 848c 9694 4800
+	0000 e028 4844 4684 8484 8484 8448 3000
+	0000 2018 0c00 2020 1412 8a8a ca88 3000
+	0000 0000 2050 5088 8804 0200 0000 0000
+	0000 5e44 445e 8484 8484 848c 94d4 4a00
+	0808 087e 0808 087e 0808 0838 4c4a 3000
+	0078 0808 1012 1234 6ea4 a444 0408 1000
+	3010 1010 f824 2262 a0a0 a262 2222 1c00
+	0008 0888 4858 6cea ba92 aaa2 a444 0800
+	1010 1010 fc20 20fc 2020 2222 2222 1c00
+	0008 0804 805c 62c2 4242 2c20 1010 1000
+	0008 089c aaaa ca8a 8a8a aa9c 0808 1000
+	0010 1010 101e 1010 1010 1070 9894 6000
+	2018 0c00 4040 4080 9ca2 c282 0204 3800
+	0000 4242 4242 4242 4252 2202 0404 1800
+	0000 7e04 0810 207c 62c2 821a 2624 1800
+	2020 2028 f434 2424 2464 64a4 a422 2000
+	0000 3c08 0810 102c 2222 4242 0204 1800
+	0020 2020 e02c 3222 6262 a2a2 2224 2000
+	0008 0808 1010 1020 2030 5252 928c 0000
+	0000 3008 6010 0000 0000 0000 0000 0000
+	0000 3048 4830 0000 0000 0000 0000 0000<
\ No newline at end of file

A etc/vga816.tal => etc/vga816.tal +96 -0

@@ 0,0 1,96 @@
+@font ( vga816 )
+	0000 0000 0000 0000 0000 0000 0000 0000
+	0000 183c 3c3c 1818 1800 1818 0000 0000
+	0066 6666 2400 0000 0000 0000 0000 0000
+	0000 006c 6cfe 6c6c 6cfe 6c6c 0000 0000
+	1818 7cc6 c2c0 7c06 0686 c67c 1818 0000 
+	0000 0000 c2c6 0c18 3060 c686 0000 0000
+	0000 386c 6c38 76dc cccc cc76 0000 0000
+	0030 3030 6000 0000 0000 0000 0000 0000 
+	0000 0c18 3030 3030 3030 180c 0000 0000
+	0000 3018 0c0c 0c0c 0c0c 1830 0000 0000
+	0000 0000 0066 3cff 3c66 0000 0000 0000
+	0000 0000 0018 187e 1818 0000 0000 0000
+	0000 0000 0000 0000 0018 1818 3000 0000 
+	0000 0000 0000 00fe 0000 0000 0000 0000 
+&marker
+	0000 0000 0000 0000 0000 1818 0000 0000 
+	0000 0000 0206 0c18 3060 c080 0000 0000
+	0000 386c c6c6 d6d6 c6c6 6c38 0000 0000
+	0000 1838 7818 1818 1818 187e 0000 0000
+	0000 7cc6 060c 1830 60c0 c6fe 0000 0000
+	0000 7cc6 0606 3c06 0606 c67c 0000 0000
+	0000 0c1c 3c6c ccfe 0c0c 0c1e 0000 0000
+	0000 fec0 c0c0 fc06 0606 c67c 0000 0000
+	0000 3860 c0c0 fcc6 c6c6 c67c 0000 0000
+	0000 fec6 0606 0c18 3030 3030 0000 0000
+	0000 7cc6 c6c6 7cc6 c6c6 c67c 0000 0000
+	0000 7cc6 c6c6 7e06 0606 0c78 0000 0000
+	0000 0000 1818 0000 0018 1800 0000 0000
+	0000 0000 1818 0000 0018 1830 0000 0000
+	0000 0006 0c18 3060 3018 0c06 0000 0000
+	0000 0000 007e 0000 7e00 0000 0000 0000
+	0000 0060 3018 0c06 0c18 3060 0000 0000
+	0000 7cc6 c60c 1818 1800 1818 0000 0000
+	0000 007c c6c6 dede dedc c07c 0000 0000
+	0000 1038 6cc6 c6fe c6c6 c6c6 0000 0000
+	0000 fc66 6666 7c66 6666 66fc 0000 0000
+	0000 3c66 c2c0 c0c0 c0c2 663c 0000 0000
+	0000 f86c 6666 6666 6666 6cf8 0000 0000
+	0000 fe66 6268 7868 6062 66fe 0000 0000
+	0000 fe66 6268 7868 6060 60f0 0000 0000
+	0000 3c66 c2c0 c0de c6c6 663a 0000 0000
+	0000 c6c6 c6c6 fec6 c6c6 c6c6 0000 0000
+	0000 3c18 1818 1818 1818 183c 0000 0000
+	0000 1e0c 0c0c 0c0c cccc cc78 0000 0000
+	0000 e666 666c 7878 6c66 66e6 0000 0000
+	0000 f060 6060 6060 6062 66fe 0000 0000
+	0000 c6ee fefe d6c6 c6c6 c6c6 0000 0000
+	0000 c6e6 f6fe dece c6c6 c6c6 0000 0000
+	0000 7cc6 c6c6 c6c6 c6c6 c67c 0000 0000
+	0000 fc66 6666 7c60 6060 60f0 0000 0000
+	0000 7cc6 c6c6 c6c6 c6d6 de7c 0c0e 0000
+	0000 fc66 6666 7c6c 6666 66e6 0000 0000
+	0000 7cc6 c660 380c 06c6 c67c 0000 0000
+	0000 7e7e 5a18 1818 1818 183c 0000 0000
+	0000 c6c6 c6c6 c6c6 c6c6 c67c 0000 0000
+	0000 c6c6 c6c6 c6c6 c66c 3810 0000 0000
+	0000 c6c6 c6c6 d6d6 d6fe ee6c 0000 0000
+	0000 c6c6 6c7c 3838 7c6c c6c6 0000 0000
+	0000 6666 6666 3c18 1818 183c 0000 0000
+	0000 fec6 860c 1830 60c2 c6fe 0000 0000
+	0000 3c30 3030 3030 3030 303c 0000 0000
+	0000 0080 c0e0 7038 1c0e 0602 0000 0000
+	0000 3c0c 0c0c 0c0c 0c0c 0c3c 0000 0000
+	1038 6cc6 0000 0000 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0000 00ff 0000
+	3030 1800 0000 0000 0000 0000 0000 0000
+	0000 0000 0078 0c7c cccc cc76 0000 0000
+	0000 e060 6078 6c66 6666 667c 0000 0000
+	0000 0000 007c c6c0 c0c0 c67c 0000 0000
+	0000 1c0c 0c3c 6ccc cccc cc76 0000 0000
+	0000 0000 007c c6fe c0c0 c67c 0000 0000
+	0000 386c 6460 f060 6060 60f0 0000 0000
+	0000 0000 0076 cccc cccc cc7c 0ccc 7800
+	0000 e060 606c 7666 6666 66e6 0000 0000
+	0000 1818 0038 1818 1818 183c 0000 0000
+	0000 0606 000e 0606 0606 0606 6666 3c00
+	0000 e060 6066 6c78 786c 66e6 0000 0000
+	0000 3818 1818 1818 1818 183c 0000 0000
+	0000 0000 00ec fed6 d6d6 d6c6 0000 0000
+	0000 0000 00dc 6666 6666 6666 0000 0000
+	0000 0000 007c c6c6 c6c6 c67c 0000 0000
+	0000 0000 00dc 6666 6666 667c 6060 f000
+	0000 0000 0076 cccc cccc cc7c 0c0c 1e00
+	0000 0000 00dc 7666 6060 60f0 0000 0000
+	0000 0000 007c c660 380c c67c 0000 0000
+	0000 1030 30fc 3030 3030 361c 0000 0000
+	0000 0000 00cc cccc cccc cc76 0000 0000
+	0000 0000 0066 6666 6666 3c18 0000 0000
+	0000 0000 00c6 c6d6 d6d6 fe6c 0000 0000
+	0000 0000 00c6 6c38 3838 6cc6 0000 0000
+	0000 0000 00c6 c6c6 c6c6 c67e 060c f800
+	0000 0000 00fe cc18 3060 c6fe 0000 0000
+	0000 0e18 1818 7018 1818 180e 0000 0000
+	0000 1818 1818 0018 1818 1818 0000 0000
+	0000 7018 1818 0e18 1818 1870 0000 0000<
\ No newline at end of file

M src/assets.tal => src/assets.tal +94 -112

@@ 1,117 1,99 @@
-@page437
+@font ( msx816 )
 	0000 0000 0000 0000 0000 0000 0000 0000
-	0000 183c 3c3c 1818 1800 1818 0000 0000
-	0066 6666 2400 0000 0000 0000 0000 0000
-	0000 006c 6cfe 6c6c 6cfe 6c6c 0000 0000
-	1818 7cc6 c2c0 7c06 0686 c67c 1818 0000 
-	0000 0000 c2c6 0c18 3060 c686 0000 0000
-	0000 386c 6c38 76dc cccc cc76 0000 0000
-	0030 3030 6000 0000 0000 0000 0000 0000 
-	0000 0c18 3030 3030 3030 180c 0000 0000
-	0000 3018 0c0c 0c0c 0c0c 1830 0000 0000
-	0000 0000 0066 3cff 3c66 0000 0000 0000
-	0000 0000 0018 187e 1818 0000 0000 0000
-	0000 0000 0000 0000 0018 1818 3000 0000 
-	0000 0000 0000 00fe 0000 0000 0000 0000 
+	1818 1818 1818 1010 1010 1000 0010 1010
+	0000 2828 0000 0000 0000 0000 0000 0000
+	2828 282e 38e8 2828 2828 2e38 e828 2828
+	1038 5454 5450 5030 1814 1454 5454 3810
+	42a2 a4a4 4808 1010 1020 244a 4a8a 8400
+	0010 2828 2828 1030 504a 4a44 443a 0000
+	1010 1020 0000 0000 0000 0000 0000 0000
+	0204 0408 0808 0808 0808 0808 0804 0402
+	4020 2010 1010 1010 1010 1010 1020 2040
+	0000 1010 5454 3810 3854 5410 1000 0000
+	0000 0010 1010 107c 1010 1010 0000 0000
+	0000 0000 0000 0000 0000 0000 1010 1020
+	0000 0000 0000 007c 0000 0000 0000 0000
 &marker
-	0000 0000 0000 0000 0000 1818 0000 0000 
-	0000 0000 0206 0c18 3060 c080 0000 0000
-	0000 386c c6c6 d6d6 c6c6 6c38 0000 0000
-	0000 1838 7818 1818 1818 187e 0000 0000
-	0000 7cc6 060c 1830 60c0 c6fe 0000 0000
-	0000 7cc6 0606 3c06 0606 c67c 0000 0000
-	0000 0c1c 3c6c ccfe 0c0c 0c1e 0000 0000
-	0000 fec0 c0c0 fc06 0606 c67c 0000 0000
-	0000 3860 c0c0 fcc6 c6c6 c67c 0000 0000
-	0000 fec6 0606 0c18 3030 3030 0000 0000
-	0000 7cc6 c6c6 7cc6 c6c6 c67c 0000 0000
-	0000 7cc6 c6c6 7e06 0606 0c78 0000 0000
-	0000 0000 1818 0000 0018 1800 0000 0000
-	0000 0000 1818 0000 0018 1830 0000 0000
-	0000 0006 0c18 3060 3018 0c06 0000 0000
-	0000 0000 007e 0000 7e00 0000 0000 0000
-	0000 0060 3018 0c06 0c18 3060 0000 0000
-	0000 7cc6 c60c 1818 1800 1818 0000 0000
-	0000 007c c6c6 dede dedc c07c 0000 0000
-	0000 1038 6cc6 c6fe c6c6 c6c6 0000 0000
-	0000 fc66 6666 7c66 6666 66fc 0000 0000
-	0000 3c66 c2c0 c0c0 c0c2 663c 0000 0000
-	0000 f86c 6666 6666 6666 6cf8 0000 0000
-	0000 fe66 6268 7868 6062 66fe 0000 0000
-	0000 fe66 6268 7868 6060 60f0 0000 0000
-	0000 3c66 c2c0 c0de c6c6 663a 0000 0000
-	0000 c6c6 c6c6 fec6 c6c6 c6c6 0000 0000
-	0000 3c18 1818 1818 1818 183c 0000 0000
-	0000 1e0c 0c0c 0c0c cccc cc78 0000 0000
-	0000 e666 666c 7878 6c66 66e6 0000 0000
-	0000 f060 6060 6060 6062 66fe 0000 0000
-	0000 c6ee fefe d6c6 c6c6 c6c6 0000 0000
-	0000 c6e6 f6fe dece c6c6 c6c6 0000 0000
-	0000 7cc6 c6c6 c6c6 c6c6 c67c 0000 0000
-	0000 fc66 6666 7c60 6060 60f0 0000 0000
-	0000 7cc6 c6c6 c6c6 c6d6 de7c 0c0e 0000
-	0000 fc66 6666 7c6c 6666 66e6 0000 0000
-	0000 7cc6 c660 380c 06c6 c67c 0000 0000
-	0000 7e7e 5a18 1818 1818 183c 0000 0000
-	0000 c6c6 c6c6 c6c6 c6c6 c67c 0000 0000
-	0000 c6c6 c6c6 c6c6 c66c 3810 0000 0000
-	0000 c6c6 c6c6 d6d6 d6fe ee6c 0000 0000
-	0000 c6c6 6c7c 3838 7c6c c6c6 0000 0000
-	0000 6666 6666 3c18 1818 183c 0000 0000
-	0000 fec6 860c 1830 60c2 c6fe 0000 0000
-	0000 3c30 3030 3030 3030 303c 0000 0000
-	0000 0080 c0e0 7038 1c0e 0602 0000 0000
-	0000 3c0c 0c0c 0c0c 0c0c 0c3c 0000 0000
-	1038 6cc6 0000 0000 0000 0000 0000 0000
-	0000 0000 0000 0000 0000 0000 00ff 0000
-	3030 1800 0000 0000 0000 0000 0000 0000
-	0000 0000 0078 0c7c cccc cc76 0000 0000
-	0000 e060 6078 6c66 6666 667c 0000 0000
-	0000 0000 007c c6c0 c0c0 c67c 0000 0000
-	0000 1c0c 0c3c 6ccc cccc cc76 0000 0000
-	0000 0000 007c c6fe c0c0 c67c 0000 0000
-	0000 386c 6460 f060 6060 60f0 0000 0000
-	0000 0000 0076 cccc cccc cc7c 0ccc 7800
-	0000 e060 606c 7666 6666 66e6 0000 0000
-	0000 1818 0038 1818 1818 183c 0000 0000
-	0000 0606 000e 0606 0606 0606 6666 3c00
-	0000 e060 6066 6c78 786c 66e6 0000 0000
-	0000 3818 1818 1818 1818 183c 0000 0000
-	0000 0000 00ec fed6 d6d6 d6c6 0000 0000
-	0000 0000 00dc 6666 6666 6666 0000 0000
-	0000 0000 007c c6c6 c6c6 c67c 0000 0000
-	0000 0000 00dc 6666 6666 667c 6060 f000
-	0000 0000 0076 cccc cccc cc7c 0c0c 1e00
-	0000 0000 00dc 7666 6060 60f0 0000 0000
-	0000 0000 007c c660 380c c67c 0000 0000
-	0000 1030 30fc 3030 3030 361c 0000 0000
-	0000 0000 00cc cccc cccc cc76 0000 0000
-	0000 0000 0066 6666 6666 3c18 0000 0000
-	0000 0000 00c6 c6d6 d6d6 fe6c 0000 0000
-	0000 0000 00c6 6c38 3838 6cc6 0000 0000
-	0000 0000 00c6 c6c6 c6c6 c67e 060c f800
-	0000 0000 00fe cc18 3060 c6fe 0000 0000
-	0000 0e18 1818 7018 1818 180e 0000 0000
-	0000 1818 1818 0018 1818 1818 0000 0000
-	0000 7018 1818 0e18 1818 1870 0000 0000
-	
-@tri-pcm
-	8082 8486 888a 8c8e 9092 9496 989a 9c9e
-	a0a2 a4a6 a8aa acae b0b2 b4b6 b8ba bcbe
-	c0c2 c4c6 c8ca ccce d0d2 d4d6 d8da dcde
-	e0e2 e4e6 e8ea ecee f0f2 f4f6 f8fa fcfe
-	fffd fbf9 f7f5 f3f1 efed ebe9 e7e5 e3e1
-	dfdd dbd9 d7d5 d3d1 cfcd cbc9 c7c5 c3c1
-	bfbd bbb9 b7b5 b3b1 afad aba9 a7a5 a3a1
-	9f9d 9b99 9795 9391 8f8d 8b89 8785 8381
-	7f7d 7b79 7775 7371 6f6d 6b69 6765 6361
-	5f5d 5b59 5755 5351 4f4d 4b49 4745 4341
-	3f3d 3b39 3735 3331 2f2d 2b29 2725 2321
-	1f1d 1b19 1715 1311 0f0d 0b09 0705 0301
-	0103 0507 090b 0d0f 1113 1517 191b 1d1f
-	2123 2527 292b 2d2f 3133 3537 393b 3d3f
-	4143 4547 494b 4d4f 5153 5557 595b 5d5f
-	6163 6567 696b 6d6f 7173 7577 797b 7d7f
+	0000 0000 0000 0000 0000 0000 0020 2000
+	0202 0404 0808 1010 2020 4040 8080 0000
+	0018 2442 4242 4242 4242 4242 4224 1800
+	0008 1828 0808 0808 0808 0808 0808 1c00
+	0018 2442 4202 0202 0408 1020 4040 7e00
+	0018 2442 0202 0438 0402 0202 0204 7800
+	000c 0c14 1414 2424 2444 447e 0404 0e00
+	007e 4040 4040 5864 4202 0202 0204 7800
+	000c 1020 4040 5864 4242 4242 4224 1800
+	007e 4202 0204 0404 0808 0810 1010 1000
+	0018 2442 4242 2418 2442 4242 4224 1800
+	0018 2442 4242 4242 261a 0202 0408 3000
+	0000 0000 0010 1000 0000 0000 1010 0000
+	0000 0000 0010 1000	0000 0000 1010 1020
+	0000 0204 0810 2040	2010 0804 0200 0000
+	0000 0000 0000 7c00	007c 0000 0000 0000
+	0000 4020 1008 0402	0408 1020 4000 0000
+	1824 4242 4204 0408	0810 1010 0010 1010
+	3844 8282 9aaa aaaa	aaaa aa96 8082 4438
+	0010 1028 2844 4444	8282 fe82 8282 0000
+	00f8 4442 4242 4478	4442 4242 44f8 0000
+	003c 4282 8280 8080	8080 8282 423c 0000
+	00f8 4442 4242 4242	4242 4242 44f8 0000
+	00fc 4240 4040 4878 4840 4040 42fc 0000
+	80fe 4240 4040 447c 4440 4040 40e0 0000
+	003a 4682 8080 8e82 8282 8282 463a 0000
+	00ee 4444 4444 447c 4444 4444 44ee 0000
+	0038 1010 1010 1010 1010 1010 1038 0000
+	000e 0404 0404 0404 0404 4444 2810 0000
+	00ee 4448 4850 5060 5050 4848 44ee 0000
+	00e0 4040 4040 4040 4040 4040 42fe 0000
+	0082 c6c6 c6aa aaaa 9292 9282 8282 0000
+	00e2 4262 6262 5252 4a4a 4646 42e2 0000
+	0038 4482 8282 8282 8282 8282 4438 0000
+	00f8 4442 4242 4244 7840 4040 40f0 0000
+	0038 4482 8282 8282 8282 829a 643a 0000
+	00f8 4442 4242 4478 4844 4442 42e2 0000
+	0010 2844 4440 2010 0804 4444 2810 0000
+	00fe 9210 1010 1010 1010 1010 1038 0000
+	00ee 4444 4444 4444 4444 4444 4438 0000
+	0082 8282 8282 8244 4444 2828 1010 0000
+	0082 8292 9292 9292 92ba aa44 4444 0000
+	0042 4242 2424 1818 1824 2442 4242 0000
+	0082 8282 4444 2828 1010 1010 1038 0000
+	007e 4204 0408 0810 1020 2040 427e 0000
+	0e08 0808 0808 0808 0808 0808 0808 080e
+	0082 8282 4444 fe28 10fe 1010 1010 1000
+	7010 1010 1010 1010 1010 1010 1010 1070
+	1028 4400 0000 0000 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0000 0000 00fe
+	1010 1008 0000 0000 0000 0000 0000 0000
+	0000 0000 0030 0808 3848 4848 4834 0000
+	0060 2020 202c 3222 2222 2222 322c 0000
+	0000 0000 001c 2240 4040 4040 221c 0000
+	000c 0404 0434 4c44 4444 4444 4c36 0000
+	0000 0000 0018 2424 3c20 2020 2418 0000
+	000c 1210 1038 1010 1010 1010 1038 0000
+	0000 0000 0034 4a48 4830 4038 4444 4438
+	00c0 4040 4058 6444 4444 4444 44ee 0000
+	0010 0000 0030 1010 1010 1010 1038 0000
+	0008 0000 0018 0808 0808 0808 0808 2810
+	0060 2020 2022 2224 2438 2424 2272 0000
+	0030 1010 1010 1010 1010 1010 1038 0000
+	0000 0000 00a4 da92 9292 9292 9292 0000
+	0000 0000 00d8 6444 4444 4444 44ee 0000
+	0000 0000 0038 4482 8282 8282 4438 0000
+	0000 0000 00d8 6442 4242 4242 6458 40e0
+	0000 0000 0034 4c84 8484 8484 4c34 040e
+	0000 0000 0068 3420 2020 2020 2070 0000
+	0000 0000 0018 2424 1008 0424 2418 0000
+	0010 1010 107c 1010 1010 1010 1408 0000
+	0000 0000 00cc 4444 4444 4444 4c36 0000
+	0000 0000 00ee 4444 4428 2828 1010 0000
+	0000 0000 0092 9292 9292 92aa 4444 0000
+	0000 0000 00ee 4428 1010 1028 44ee 0000
+	0000 0000 00ee 4444 4448 2828 1010 2040
+	0000 0000 007c 4408 0810 2020 447c 0000
+	0204 0404 0404 0408 0804 0404 0404 0402
+	1010 1010 1010 1010 1010 1010 1010 1010
+	4020 2020 2020 2010 1020 2020 2020 2040
 
 @sin-pcm
 	8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad

M src/main.tal => src/main.tal +64 -60

@@ 23,6 23,14 @@
 		- Leap move with alt modifier
 		- Hide cursor when moving with arrows )
 
+%DATA-CELLS { #b000 }
+%DATA-LOCKS { #c000 }
+%DATA-TYPES { #d000 }
+%DATA-FILE  { #e000 } ( file transfer )
+%DATA-CLIP  { #f000 } ( copy/paste )
+
+( == )
+
 %+  { ADD } %-   { SUB }  %*  { MUL }  %/  { DIV }
 %<  { LTH } %>   { GTH }  %=  { EQU }  %!  { NEQ }
 %++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }


@@ 49,12 57,6 @@
 %OPERATOR-TYPE { #03 } %PORTER-TYPE   { #04 }
 %OUTPUT-TYPE   { #05 } %IO-TYPE       { #07 }
 
-%DATA-CELLS { #b000 }
-%DATA-LOCKS { #c000 }
-%DATA-TYPES { #d000 }
-%DATA-FILE { #e000 } ( file transfer )
-%DATA-CLIP { #f000 } ( copy/paste )
-
 %CHAR-NULL  { #00 } %CHAR-LINE  { #0a }
 %CHAR-HASH  { #23 } %CHAR-BANG  { #2a }
 %CHAR-DOT   { #2e } %CHAR-SLASH { #2f }  


@@ 75,7 77,7 @@
 %GET-CHAR  { #24 MOD #00 SWP ;b36clc ++ LDA } ( b36 -- char )
 %GET-VALUE { #20 - #00 SWP ;values ++ LDA } ( char -- b36 )
 %GET-NOTE  { DUP GET-VALUE SWP CIUC #24 * + TOS ;lc-notes ++ LDA } ( char -- midi )
-%GET-CHAR-ADDR { #20 - TOS #0010 ** ;page437 ++ }
+%GET-CHAR-ADDR { #20 - TOS #0010 ** ;msx816 ++ }
 
 %GET-CELL  { GET-INDEX DATA-CELLS ++ LDA } ( x y -- char )
 %SET-CELL  { ROT ROT GET-INDEX DATA-CELLS ++ STA } ( x y char -- )


@@ 499,12 501,12 @@ RTN
 		( check if x,y is grid )
 		POP
 		DUP2 #01 AND #00 = SWP #03 AND #00 = #0101 NEQ2 ,&no-marker4 JCN 
-			POP2 ;page437/marker RTN 
+			POP2 ;msx816/marker RTN 
 			&no-marker4
 		DUP2 GET-TYPE #00 = ,&no-port JCN
-			POP2 ;page437/marker RTN 
+			POP2 ;msx816/marker RTN 
 			&no-port
-		POP2 ;page437 RTN
+		POP2 ;msx816 RTN
 	&no-bar
 	STH POP2 STHr
 	GET-CHAR-ADDR


@@ 1283,56 1285,6 @@ RTN
 
 RTN
 
-( clip )
-
-@copy-selection ( -- )
-	
-	( stash length ) #0000 STH2
-	.selection/y1 LDZ .selection/y2 LDZ #01 +
-	&ver
-		.selection/x1 LDZ .selection/x2 LDZ #01 +
-		&hor
-			( write char ) GET-ITERATORS GET-CELL [ STH2kr DATA-CLIP ++ ] STA
-			( incr index ) #0001 STH2 ADD2r
-			INCR
-			LTHk ,&hor JCN
-		POP2
-		( write linebreak ) CHAR-LINE [ STH2kr DATA-CLIP ++ ] STA
-		( incr index ) #0001 STH2 ADD2r
-		INCR
-		LTHk ,&ver JCN
-	POP2
-	( close ) #00 [ STH2r DATA-CLIP ++ ] STA
-
-RTN
-
-@paste-selection ( -- )
-	
-	#0000 #1000
-	&loop
-		( get char ) OVR2 DATA-CLIP ++ LDA
-		DUP CHAR-NULL = ,&end JCN
-		DUP CHAR-LINE = ,&linebreak JCN
-			( write  ) STH ,&x LDR [ .selection/x1 LDZ + ] ,&y LDR [ .selection/y1 LDZ + ] STHr SET-CELL
-			( incr x ) ,&x LDR #01 + ,&x STR
-			,&continue JMP
-		&linebreak
-			( undo x ) #00 ,&x STR
-			( incr y ) ,&y LDR #01 + ,&y STR
-			POP
-		&continue
-		( incr ) SWP2 #0001 ++ SWP2
-		LTH2k ,&loop JCN
-	&end
-	POP2 POP2 POP
-	#00 ,&x STR
-	#00 ,&y STR
-	RTN
-	&x $1
-	&y $1
-
-RTN
-
 @fill-selection ( char -- )
 	
 	STH


@@ 1416,6 1368,58 @@ RTN
 
 RTN
 
+( snarf )
+
+@copy-selection ( -- )
+	
+	( stash length ) #0000 STH2
+	.selection/y1 LDZ .selection/y2 LDZ #01 +
+	&ver
+		.selection/x1 LDZ .selection/x2 LDZ #01 +
+		&hor
+			( write char ) GET-ITERATORS GET-CELL [ STH2kr DATA-CLIP ++ ] STA
+			( incr index ) #0001 STH2 ADD2r
+			INCR
+			LTHk ,&hor JCN
+		POP2
+		( write linebreak ) CHAR-LINE [ STH2kr DATA-CLIP ++ ] STA
+		( incr index ) #0001 STH2 ADD2r
+		INCR
+		LTHk ,&ver JCN
+	POP2
+	( close ) #00 [ STH2r DATA-CLIP ++ ] STA
+
+RTN
+
+@paste-selection ( -- )
+	
+	#0000 #1000
+	&loop
+		( get char ) OVR2 DATA-CLIP ++ LDA
+		DUP CHAR-NULL = ,&end JCN
+		DUP CHAR-LINE = ,&linebreak JCN
+			( write  ) STH ,&x LDR [ .selection/x1 LDZ + ] ,&y LDR [ .selection/y1 LDZ + ] STHr SET-CELL
+			( incr x ) ,&x LDR #01 + ,&x STR
+			,&continue JMP
+		&linebreak
+			( undo x ) #00 ,&x STR
+			( incr y ) ,&y LDR #01 + ,&y STR
+			POP
+		&continue
+		( incr ) SWP2 #0001 ++ SWP2
+		LTH2k ,&loop JCN
+	&end
+	POP2 POP2 POP
+	#00 ,&x STR
+	#00 ,&y STR
+	RTN
+	&x $1
+	&y $1
+
+RTN
+
+( generics )
+
 @within-rect ( x* y* rect -- flag )
 	
 	STH