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 "v ] NEQ ?{ #0015 <set-press> }
|
||||||
DUP [ LIT "b ] NEQ ?{ #0016 <set-press> }
|
DUP [ LIT "b ] NEQ ?{ #0016 <set-press> }
|
||||||
DUP [ LIT "n ] NEQ ?{ #0017 <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
|
POP BRK
|
||||||
&on-button ( button -> )
|
&on-button ( button -> )
|
||||||
#02 SFT #01 AND .layer STZ
|
#02 SFT #01 AND .layer STZ
|
||||||
<draw-keyboard>
|
<draw-keyboard>
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
(
|
(
|
||||||
@|core )
|
@|core )
|
||||||
|
|
||||||
|
@ -279,6 +285,6 @@
|
||||||
&c ( -- )
|
&c ( -- )
|
||||||
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
|
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
~assets.tal
|
~assets.tal
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue