d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small optimization

This commit is contained in:
Devine Lu Linvega 2024-02-11 15:32:51 -08:00
parent 16675213b0
commit 88946ed583
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui/shaviankb/shaviankb.tal
View File

@ -183,7 +183,8 @@
#0006 MUL2 ;layout ADD2 #0006 MUL2 ;layout ADD2
( ) STH2k #0004 ADD2 LDA2 ( ) STH2k #0004 ADD2 LDA2
( ) STH2kr #0002 ADD2 LDA2 ( ) STH2kr #0002 ADD2 LDA2
( ) STH2r LDA2 STH2r !<draw-key> ( ) STH2r LDA2 STH2r
( >> )
@<draw-key> ( a* b* c* frame* -- ) @<draw-key> ( a* b* c* frame* -- )
DUP2 ;btn-hover-chr EQU2 STH DUP2 ;btn-hover-chr EQU2 STH
@ -223,9 +224,7 @@
.Screen/x DEI2k #0008 SUB2 ROT DEO2 .Screen/x DEI2k #0008 SUB2 ROT DEO2
.Screen/y DEI2k #0016 ADD2 ROT DEO2 .Screen/y DEI2k #0016 ADD2 ROT DEO2
;keys/space #05 <draw-glyph> ;keys/space #05 <draw-glyph>
( | draw hint ) ( >> )
<draw-hint>
JMP2r
@<draw-hint> ( -- ) @<draw-hint> ( -- )
( | clear ) ( | clear )