Added missing glyphs
This commit is contained in:
parent
ccae54f0aa
commit
e7dc250bf1
|
@ -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.
|
@ -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.
Loading…
Reference in New Issue