Added missing glyphs

This commit is contained in:
Devine Lu Linvega 2024-02-10 19:56:20 -08:00
parent ccae54f0aa
commit e7dc250bf1
4 changed files with 33 additions and 28 deletions

View File

@ -30,7 +30,7 @@
( > ) =keys/none =keys/none =keys/right
( > ) =keys/none =keys/none =keys/backspa
( extra row )
( > ) =keys/none =keys/none =keys/none
( > ) =keys/none =keys/none =keys/mode
( > ) =keys/none =keys/none =keys/comma
( > ) =keys/none =keys/none =keys/space
( > ) =keys/none =keys/none =keys/period
@ -38,14 +38,20 @@
@button-icn
&top [
001f 2040 4040 4040 00ff 0000 0000 0000
00ff 0000 0000 0000 00f8 0402 0202 0202 ]
0000 1f3f 3f3f 3f3f 001f 3f7f 7f7f 7f7f
0000 ffff ffff ffff 00ff ffff ffff ffff
0000 ffff ffff ffff 00ff ffff ffff ffff
0000 f8fc fcfc fcfc 00f8 fcfe fefe fefe ]
&middle [
4040 4040 4040 4040 0000 0000 0000 0000
0000 0000 0000 0000 0202 0202 0202 0202 ]
3f3f 3f3f 3f3f 3f3f 7f7f 7f7f 7f7f 7f7f
ffff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff ffff ffff ffff ffff ffff
fcfc fcfc fcfc fcfc fefe fefe fefe fefe ]
&bottom [
4040 4040 4020 1f00 0000 0000 0000 ff00
0000 0000 0000 ff00 0202 0202 0204 f800 ]
3f3f 3f3f 3f1f 0000 7f7f 7f5f 4020 1f00
ffff ffff ffff 0000 ffff ffff 0000 ff00
ffff ffff ffff 0000 ffff ffff 0000 ff00
fcfc fcfc fcf8 0000 fefe fefa 0204 f800 ]
@keys
&peep 0000 0060 1008 0808 0808 0808 0000 0000 ={ f090 9190 }
@ -112,22 +118,23 @@
&colon 0000 0000 0010 0000 0010 0000 0000 0000 ={ ": }
&dot 0000 0000 0000 1038 1000 0000 0000 0000 ={ c2b7 }
&undersc 0000 0000 0000 0000 0000 00fe 0000 0000 ={ "_ }
&star 0000 0000 0000 0000 0000 0000 0000 0000 ={ "* }
&apos 0000 0000 0000 0000 0000 0000 0000 0000 ={ "' }
&semi 0000 0000 0000 0000 0000 0000 0000 0000 ={ "; }
&star 0000 0000 1054 38ee 3854 1000 0000 0000 ={ "* }
&apos 0000 0030 3010 0000 0000 0000 0000 0000 ={ "' }
&semi 0000 0000 0010 0000 0010 1020 0000 0000 ={ "; }
&em 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
&hyphen 0000 0000 0000 0000 0000 0000 0000 0000 ={ "- }
&questio 0000 0000 0000 0000 0000 0000 0000 0000 ={ "? }
&excl 0000 0000 0000 0000 0000 0000 0000 0000 ={ "! }
&paren-a 0000 0000 0000 0000 0000 0000 0000 0000 ={ "( }
&paren-b 0000 0000 0000 0000 0000 0000 0000 0000 ={ ") }
&left 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
&right 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
&backspa 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
&comma 0000 0000 0000 0000 0000 0000 0000 0000 ={ ", }
&hyphen 0000 0000 0000 007c 0000 0000 0000 0000 ={ "- }
&questio 0000 0078 8484 0408 1020 0020 0000 0000 ={ "? }
&excl 0000 0020 2020 2020 2020 0020 0000 0000 ={ "! }
&paren-a 0000 1020 2040 4040 4040 4020 2010 0000 ={ "( }
&paren-b 0000 4020 2010 1010 1010 1020 2040 0000 ={ ") }
&left 0000 0000 1020 40fe 4020 1000 0000 0000 ={ $1 }
&right 0000 0000 1008 04fe 0408 1000 0000 0000 ={ $1 }
&backspa 0000 0000 1f21 5589 5521 1f00 0000 0000 ={ $1 }
&mode 0000 0000 1038 7cfe 7c38 1000 0000 0000 ={ $1 }
&comma 0000 0000 0000 0000 0010 1020 0000 0000 ={ ", }
&space 0000 0000 0000 0000 0000 0000 0000 0000 ={ 20 }
&period 0000 0000 0000 0000 0000 0000 0000 0000 ={ ". }
&enter 0000 0000 0000 0000 0000 0000 0000 0000 ={ 0a }
&period 0000 0000 0000 0000 0000 0010 0000 0000 ={ ". }
&enter 0000 0000 1232 528c 5030 1000 0000 0000 ={ 0a }
&none 0000 0000 0000 0000 0000 0000 0000 0000 ={ 00 }

Binary file not shown.

View File

@ -4,14 +4,12 @@
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000
|0100
@on-reset ( -> )
#f0ef .System/r DEO2
#f0e6 .System/g DEO2
#f0e2 .System/b DEO2
#9c0f .System/r DEO2
#7c0f .System/g DEO2
#de0f .System/b DEO2
#0120 .Screen/width DEO2
#00c0 .Screen/height DEO2
<draw-keyboard>
@ -38,7 +36,7 @@
@<draw-glyph> ( addr* -- )
.Screen/addr DEO2
[ LIT2 15 -Screen/auto ] DEO
[ LIT2 05 -Screen/sprite ] DEO
[ LIT2 0a -Screen/sprite ] DEO
JMP2r
@<draw-key> ( a* b* c* -- )
@ -64,7 +62,7 @@
( | draw )
[ LIT2 36 -Screen/auto ] DEO
;button-icn/top .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEOk
[ LIT2 81 -Screen/sprite ] DEOk DEOk
( ) ;button-icn/middle .Screen/addr DEO2
DEOk
( ) ;button-icn/middle .Screen/addr DEO2

Binary file not shown.