Added missing special key bindings
This commit is contained in:
parent
c13389a1e1
commit
797b8dc4e0
|
@ -85,12 +85,18 @@
|
|||
DUP [ LIT "v ] NEQ ?{ #0015 <set-press> }
|
||||
DUP [ LIT "b ] NEQ ?{ #0016 <set-press> }
|
||||
DUP [ LIT "n ] NEQ ?{ #0017 <set-press> }
|
||||
( | special )
|
||||
DUP [ LIT 08 ] NEQ ?{ #001a <set-press> }
|
||||
DUP [ LIT 0d ] NEQ ?{ #001f <set-press> }
|
||||
DUP [ LIT 20 ] NEQ ?{ #001d <set-press> }
|
||||
DUP [ LIT ", ] NEQ ?{ #001c <set-press> }
|
||||
DUP [ LIT ". ] NEQ ?{ #001e <set-press> }
|
||||
POP BRK
|
||||
&on-button ( button -> )
|
||||
#02 SFT #01 AND .layer STZ
|
||||
<draw-keyboard>
|
||||
BRK
|
||||
|
||||
|
||||
(
|
||||
@|core )
|
||||
|
||||
|
@ -279,6 +285,6 @@
|
|||
&c ( -- )
|
||||
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
|
||||
JMP2r
|
||||
|
||||
|
||||
~assets.tal
|
||||
|
||||
|
|
Loading…
Reference in New Issue