From a057e3057e4257e9f178ca074c5a3cec03adbe35 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 25 Aug 2024 15:22:45 -0700 Subject: [PATCH] (m291) Progress on rendering --- gui/m291/src/assets.tal | 355 ++++++++++++++++++++++++++++++++++++++++ gui/m291/src/m291.tal | 87 ++++++++-- 2 files changed, 428 insertions(+), 14 deletions(-) create mode 100644 gui/m291/src/assets.tal diff --git a/gui/m291/src/assets.tal b/gui/m291/src/assets.tal new file mode 100644 index 0000000..c7f77a1 --- /dev/null +++ b/gui/m291/src/assets.tal @@ -0,0 +1,355 @@ +( assets ) + +@font [ + 0406 070a 070b 0a03 0505 0707 0407 0407 + 0808 0808 0808 0808 0808 0404 0608 0608 + 0b08 0808 0807 0708 0806 0709 070c 0908 + 0808 0807 0608 080c 0808 0805 0705 0808 + 0608 0807 0808 0608 0804 0608 040c 0808 + 0808 0607 0608 080c 0808 0805 0505 0808 ] + &glyphs [ + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0030 3030 3030 3000 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0028 2828 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0909 3f12 127f 2424 0000 0000 0000 + 0000 0000 8000 0000 0000 0000 0000 0000 + 0000 1038 5470 7038 1c1c 5438 1000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 3749 4a32 0404 090a 1211 0000 0000 + 0000 0000 0000 0000 8040 4080 0000 0000 + 0000 003c 6666 3067 6666 663c 0000 0000 + 0000 0000 0080 8000 0000 0000 0000 0000 + 0000 0040 4040 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1020 6060 6060 6060 6020 1000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 4020 3030 3030 3030 3020 4000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0010 5438 5410 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0010 107c 1010 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 6060 2040 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 007c 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 6060 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0404 0808 1010 2020 4040 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6666 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0018 3818 1818 1818 1818 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 4606 060c 1830 607e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007e 0c18 3c06 0606 463c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0006 0e16 2646 7f06 0606 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007e 6060 7c06 0606 463c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 001c 3060 7c66 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007e 0606 060c 1818 1818 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6666 663c 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6666 6666 3e06 0c38 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0060 6000 0000 6060 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0060 6000 0000 6060 2040 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 1830 60c0 6030 1800 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 7e00 7e00 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 c060 3018 3060 c000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 4606 0c18 1800 1818 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 1f20 4e52 524d 201f 0000 0000 + 0000 0000 0080 4040 4080 0000 0000 0000 + 0000 003c 6666 667e 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007c 6666 667c 6666 667c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6260 6060 6060 623c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007c 6666 6666 6666 667c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007c 6060 6078 6060 607c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007c 6060 6078 6060 6060 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6260 606e 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0066 6666 667e 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0030 3030 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 000c 0c0c 0c0c cccc cc78 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0063 666c 7870 786c 6663 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0060 6060 6060 6060 607c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0040 6070 795f 4e44 4040 0000 0000 + 0000 0020 60e0 e060 6060 6060 0000 0000 + 0000 0041 6171 795d 4f47 4341 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6666 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007c 6666 667c 6060 6060 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6666 6666 6666 663c 0600 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007c 6666 667c 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0038 6460 7038 1c0c 4c38 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 00fc 3030 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0066 6666 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0066 6666 6666 6666 6478 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0066 6666 6666 6666 667f 0000 0000 + 0000 0060 6060 6060 6060 4080 0000 0000 + 0000 0066 6666 663c 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0066 6666 663c 1818 1818 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007e 0606 0c18 3060 607e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 7060 6060 6060 6060 6060 7000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 4040 2020 1010 0808 0404 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 7030 3030 3030 3030 3030 7000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0008 1422 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 00ff 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 4020 1000 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 003c 463e 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0060 607c 6666 6666 667c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0038 6460 6060 6438 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0006 063e 6666 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 003c 6666 7e60 623c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 001c 3078 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 003e 6666 6666 663e 0646 3c00 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0060 607c 6666 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0060 0060 6060 6060 6060 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0018 0018 1818 1818 1818 1898 7000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0060 6066 6c78 7078 6c66 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0060 6060 6060 6060 6060 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 007f 6666 6666 6666 0000 0000 + 0000 0000 00c0 6060 6060 6060 0000 0000 + 0000 0000 007c 6666 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 003c 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 007c 6666 6666 667c 6060 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 003e 6666 6666 663e 0606 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 006c 7060 6060 6060 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0038 6470 381c 4c38 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0030 3078 3030 3030 3018 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0066 6666 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0066 6666 6666 6478 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0066 6666 6666 667f 0000 0000 + 0000 0000 0060 6060 6060 4080 0000 0000 + 0000 0000 0066 6666 3c66 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0066 6666 6666 663e 0646 3c00 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 007e 060c 1830 607e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1020 2020 2040 2020 2020 1000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 2020 2020 2020 2020 2020 2000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 4020 2020 2010 2020 2020 4000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0032 4c00 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 + 0024 003c 6666 667e 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 1824 243c 6666 667e 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003c 6260 6060 6060 623c 1808 1000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0810 007c 6060 6078 6060 607c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 324c 0041 6171 795d 4f47 4341 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0024 003c 6666 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0024 0066 6666 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0810 003c 463e 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1008 003c 463e 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1824 003c 463e 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0024 003c 463e 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 324c 003c 463e 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 1824 2418 003c 463e 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 003c 6260 6060 623c 1808 1000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0810 003c 6666 7e60 623c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1008 003c 6666 7e60 623c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1824 003c 6666 7e60 623c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0024 003c 6666 7e60 623c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1020 0030 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 2010 0030 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 3048 0030 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0048 0030 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 324c 007c 6666 6666 6666 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0810 003c 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1008 003c 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1824 003c 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0024 003c 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 324c 003c 6666 6666 663c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0810 0066 6666 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1008 0066 6666 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1824 0066 6666 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0024 0066 6666 6666 663e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0020 7020 2020 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0030 4848 3000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 1038 5450 5054 3810 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 001c 3230 3078 3030 317e 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 3844 6030 584c 6434 180c 4438 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0038 7c7c 7c38 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003f 6565 653d 0505 0505 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 001e 3333 3633 3333 3376 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 001e 215c 525c 5252 211e 0000 0000 + 0000 0000 0080 8080 8080 0000 0000 0000 + 0000 001e 214c 5250 524c 211e 0000 0000 + 0000 0000 0080 8080 8080 0000 0000 0000 + 0000 0074 2625 2400 0000 0000 0000 0000 + 0000 0040 c040 4000 0000 0000 0000 0000 + 0000 0010 2040 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0048 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0004 7f08 7f10 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 003f 6666 667f 6666 6667 0000 0000 + 0000 00c0 0000 0080 0000 00c0 0000 0000 + 0000 001e 3333 373b 3333 739e 0000 0000 + 0000 0080 0000 0000 0000 0000 0000 0000 + 0000 0000 0038 4543 463c 0000 0000 0000 + 0000 0000 00f0 8808 8870 0000 0000 0000 + 0000 0000 0010 107c 1010 007c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0010 2040 2010 0078 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0020 1008 1020 0078 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0061 337f 0c7f 0c0c 0c0c 0000 0000 + 0000 0080 0080 0080 0000 0000 0000 0000 + 0000 0000 0033 3333 3333 333e 2040 0000 + 0000 0000 0000 0000 0000 0080 0000 0000 + 0000 0000 380c 1e36 6666 6438 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007f 3118 0c06 0c18 317f 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 007f 3333 3333 3333 3333 0000 0000 + 0000 0080 0000 0000 0000 0000 0000 0000 + 0000 0000 003f 5919 1919 1911 0000 0000 + 0000 0000 4080 8080 8080 8000 0000 0000 + 0000 0018 3030 3030 3030 3030 3060 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0038 4c3c 6c6c 3c00 7c00 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0038 6c6c 6c6c 3800 7c00 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 001e 3361 6161 2112 1233 0000 0000 + 0000 0000 0080 8080 0000 0000 0000 0000 + 0000 0000 003f 463e 6766 663f 0000 0000 + 0000 0000 00c0 6060 e000 20c0 0000 0000 + 0000 0000 003d 6666 6e76 66bc 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0018 1800 1818 3060 623c 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0030 3000 3030 3030 3030 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 007c 0404 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0101 2262 1414 0808 0000 0000 + 0000 e080 0000 0000 0000 0000 0000 0000 + 0000 0018 3030 7830 3030 3030 3060 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0001 1e21 1e20 0000 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0808 1414 2222 417f 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0009 1224 4824 1209 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0048 2412 0912 2448 0000 0000 + 0000 0000 0000 0000 0000 0000 0000 0000 + 0000 0000 0000 0000 0000 3333 0000 0000 + 0000 0000 0000 0000 0000 3030 0000 0000 ] + +@buffer $200 &pos $2 + +@dir $2000 + diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index fe7dfef..c0f7d52 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -1,18 +1,26 @@ ( mp3.tal ) -@Console [ - |10 &vector $2 |12 - &read $1 |15 &live - $1 |15 &exit $1 - |17 &type $1 |18 - &write $1 |19 &error - $1 |1c &addr $2 - |1e &mode $1 |1f - &exec $1 ] +|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1 +|10 @Console &vector $2 +|12 &read $1 +|17 &type $1 +|18 &write $1 +|19 &error $1 +|1c &addr $2 +|1e &mode $1 +|1f &exec $1 +|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 +|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 |100 @on-reset ( -> ) + ( | theme ) + #d2d2 DUP2 .System/r DEO2 + DUP2 .System/g DEO2 + .System/b DEO2 + + BRK ( | initialize buffer ) ;buffer ;buffer/pos STA2 ( | run mpg123 ) @@ -22,6 +30,39 @@ ( cmd mode ) #01 .Console/exec DEO ( exec ) ;cmd1 print ;cmd2 print BRK +@ ( -- ) + ( here ) { ". $1 } + STH2r .File/name DEO2 + #2000 .File/length DEO2 + ;dir .File/read DEO2 + ;dir + #0010 DUP2 .Screen/x DEO2 + .Screen/y DEO2 + ;dir + JMP2r + +@ ( addr* -- ) + [ LIT2 15 -Screen/auto ] DEO + &>while ( -- ) + LDAk #20 SUB #00 SWP + ( addr ) DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 + ( move ) ;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2 + ( draw ) [ LIT2 01 -Screen/sprite ] DEOk DEO + .Screen/x DEO2 + INC2 LDAk #0a NEQ ?&>while + JMP2r + +@ ( text* -- ) + [ LIT2 15 -Screen/auto ] DEO + &>while ( -- ) + LDAk #20 SUB #00 SWP + ( addr ) DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 + ( move ) ;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2 + ( draw ) [ LIT2 01 -Screen/sprite ] DEOk DEO + .Screen/x DEO2 + INC2 LDAk ?&>while + POP2 JMP2r + @printerr ( s* -> ) LDAk ?{ #0a .Console/error DEO @@ -34,7 +75,7 @@ LDAk .Console/write DEO INC2 !print -@on-console ( -> brk ) +@on-console ( -> ) .Console/type DEI #01 EQU ?{ BRK } .Console/read DEI #0a EQU ?&newline ;buffer/pos LDA2k STH2k .Console/read DEI STH2r STA @@ -45,8 +86,8 @@ BRK @on-line ( -> ) - ;buffer LDAk LIT "@ EQU ?{ POP2 JMP2r } - INC2k LDA LIT "F EQU ?on-frame + ;buffer LDAk [ LIT "@ ] EQU ?{ POP2 JMP2r } + INC2k LDA [ LIT "F ] EQU ?on-frame !printerr @on-frame ( buf* -> ) @@ -70,12 +111,30 @@ @on-tag ( buf* -> ) POP2 JMP2r +( +@|stdlib ) + +@ ( short* -: ) + SWP /b + &b ( byte -: ) + DUP #04 SFT /c + &c ( byte -: ) + #0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO + JMP2r + +@ ( str* -: ) + LDAk #18 DEO + INC2 & LDAk ? + POP2 JMP2r + +( +@|assets ) + @program "mpg123 20 "-R 00 @cmd1 "loadpaused 20 "always_wrong.mp3 0a 00 @cmd2 "pause 0a 00 -@buffer $200 &pos $2 - ( input buffer ) +~src/assets.tal