From ad20a0f9d7f323ce9431a552c719135fb1ecc3ac Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 14 Jan 2024 15:58:04 -0800 Subject: [PATCH] (meta) Minor opt --- gui/meta/meta.tal | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/gui/meta/meta.tal b/gui/meta/meta.tal index 5511e6b..43f1d22 100644 --- a/gui/meta/meta.tal +++ b/gui/meta/meta.tal @@ -18,7 +18,7 @@ #a70f .System/b DEO2 #0150 .Screen/width DEO2 #0050 .Screen/height DEO2 - .Console/type DEI #03 AND ?{ ;dict/usage / } + [ LIT2 03 -Console/type ] DEI AND ?{ ;dict/usage / } ;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 @ ( 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 @ ( short* -- )