Added missing special key bindings

This commit is contained in:
Devine Lu Linvega 2024-02-11 12:08:29 -08:00
parent c13389a1e1
commit 797b8dc4e0
1 changed files with 8 additions and 2 deletions

View File

@ -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