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