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/right
( > ) =keys/none =keys/none =keys/backspa ( > ) =keys/none =keys/none =keys/backspa
( extra row ) ( 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/comma
( > ) =keys/none =keys/none =keys/space ( > ) =keys/none =keys/none =keys/space
( > ) =keys/none =keys/none =keys/period ( > ) =keys/none =keys/none =keys/period
@ -38,14 +38,20 @@
@button-icn @button-icn
&top [ &top [
001f 2040 4040 4040 00ff 0000 0000 0000 0000 1f3f 3f3f 3f3f 001f 3f7f 7f7f 7f7f
00ff 0000 0000 0000 00f8 0402 0202 0202 ] 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 [ &middle [
4040 4040 4040 4040 0000 0000 0000 0000 3f3f 3f3f 3f3f 3f3f 7f7f 7f7f 7f7f 7f7f
0000 0000 0000 0000 0202 0202 0202 0202 ] 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 [ &bottom [
4040 4040 4020 1f00 0000 0000 0000 ff00 3f3f 3f3f 3f1f 0000 7f7f 7f5f 4020 1f00
0000 0000 0000 ff00 0202 0202 0204 f800 ] 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 @keys
&peep 0000 0060 1008 0808 0808 0808 0000 0000 ={ f090 9190 } &peep 0000 0060 1008 0808 0808 0808 0000 0000 ={ f090 9190 }
@ -112,22 +118,23 @@
&colon 0000 0000 0010 0000 0010 0000 0000 0000 ={ ": } &colon 0000 0000 0010 0000 0010 0000 0000 0000 ={ ": }
&dot 0000 0000 0000 1038 1000 0000 0000 0000 ={ c2b7 } &dot 0000 0000 0000 1038 1000 0000 0000 0000 ={ c2b7 }
&undersc 0000 0000 0000 0000 0000 00fe 0000 0000 ={ "_ } &undersc 0000 0000 0000 0000 0000 00fe 0000 0000 ={ "_ }
&star 0000 0000 0000 0000 0000 0000 0000 0000 ={ "* } &star 0000 0000 1054 38ee 3854 1000 0000 0000 ={ "* }
&apos 0000 0000 0000 0000 0000 0000 0000 0000 ={ "' } &apos 0000 0030 3010 0000 0000 0000 0000 0000 ={ "' }
&semi 0000 0000 0000 0000 0000 0000 0000 0000 ={ "; } &semi 0000 0000 0010 0000 0010 1020 0000 0000 ={ "; }
&em 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 } &em 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
&hyphen 0000 0000 0000 0000 0000 0000 0000 0000 ={ "- } &hyphen 0000 0000 0000 007c 0000 0000 0000 0000 ={ "- }
&questio 0000 0000 0000 0000 0000 0000 0000 0000 ={ "? } &questio 0000 0078 8484 0408 1020 0020 0000 0000 ={ "? }
&excl 0000 0000 0000 0000 0000 0000 0000 0000 ={ "! } &excl 0000 0020 2020 2020 2020 0020 0000 0000 ={ "! }
&paren-a 0000 0000 0000 0000 0000 0000 0000 0000 ={ "( } &paren-a 0000 1020 2040 4040 4040 4020 2010 0000 ={ "( }
&paren-b 0000 0000 0000 0000 0000 0000 0000 0000 ={ ") } &paren-b 0000 4020 2010 1010 1010 1020 2040 0000 ={ ") }
&left 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 } &left 0000 0000 1020 40fe 4020 1000 0000 0000 ={ $1 }
&right 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 } &right 0000 0000 1008 04fe 0408 1000 0000 0000 ={ $1 }
&backspa 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 } &backspa 0000 0000 1f21 5589 5521 1f00 0000 0000 ={ $1 }
&comma 0000 0000 0000 0000 0000 0000 0000 0000 ={ ", } &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 } &space 0000 0000 0000 0000 0000 0000 0000 0000 ={ 20 }
&period 0000 0000 0000 0000 0000 0000 0000 0000 ={ ". } &period 0000 0000 0000 0000 0000 0010 0000 0000 ={ ". }
&enter 0000 0000 0000 0000 0000 0000 0000 0000 ={ 0a } &enter 0000 0000 1232 528c 5030 1000 0000 0000 ={ 0a }
&none 0000 0000 0000 0000 0000 0000 0000 0000 ={ 00 } &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 |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 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000
|0100 |0100
@on-reset ( -> ) @on-reset ( -> )
#f0ef .System/r DEO2 #9c0f .System/r DEO2
#f0e6 .System/g DEO2 #7c0f .System/g DEO2
#f0e2 .System/b DEO2 #de0f .System/b DEO2
#0120 .Screen/width DEO2 #0120 .Screen/width DEO2
#00c0 .Screen/height DEO2 #00c0 .Screen/height DEO2
<draw-keyboard> <draw-keyboard>
@ -38,7 +36,7 @@
@<draw-glyph> ( addr* -- ) @<draw-glyph> ( addr* -- )
.Screen/addr DEO2 .Screen/addr DEO2
[ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
[ LIT2 05 -Screen/sprite ] DEO [ LIT2 0a -Screen/sprite ] DEO
JMP2r JMP2r
@<draw-key> ( a* b* c* -- ) @<draw-key> ( a* b* c* -- )
@ -64,7 +62,7 @@
( | draw ) ( | draw )
[ LIT2 36 -Screen/auto ] DEO [ LIT2 36 -Screen/auto ] DEO
;button-icn/top .Screen/addr DEO2 ;button-icn/top .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEOk [ LIT2 81 -Screen/sprite ] DEOk DEOk
( ) ;button-icn/middle .Screen/addr DEO2 ( ) ;button-icn/middle .Screen/addr DEO2
DEOk DEOk
( ) ;button-icn/middle .Screen/addr DEO2 ( ) ;button-icn/middle .Screen/addr DEO2

Binary file not shown.