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

(meta) Minor opt

This commit is contained in:
Devine Lu Linvega 2024-01-14 15:58:04 -08:00
parent eee39a3268
commit ad20a0f9d7
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gui/meta/meta.tal
View File

@ -18,7 +18,7 @@
#a70f .System/b DEO2
#0150 .Screen/width DEO2
#0050 .Screen/height DEO2
.Console/type DEI #03 AND ?{ ;dict/usage <perr>/ }
[ LIT2 03 -Console/type ] DEI AND ?{ ;dict/usage <perr>/ }
;await-src .Console/vector DEO2
BRK
@ -82,7 +82,7 @@
( | clear )
#0000 DUP2 .Screen/x DEO2
.Screen/y DEO2
#80 .Screen/pixel DEO
[ LIT2 80 -Screen/pixel ] DEO
( | draw )
#004c .Screen/x DEO2
#0012 .Screen/y DEO2
@ -136,12 +136,7 @@
&b $1
@scap ( str* -- end* )
&w ( -- )
INC2 & LDAk ?&w
JMP2r
@sput ( chr str* -- )
scap/ STA
INC2 & LDAk ?scap
JMP2r
@<sclr> ( str* -- )
@ -153,7 +148,8 @@
@skey ( key buf -- proc )
OVR #21 LTH ?&eval
#00 SWP sput #00 JMP2r
#00 SWP scap/ STA
#00 JMP2r
&eval POP2 #01 JMP2r
@<phex> ( short* -- )