From fe5a9321d035977d53306d771931a02350a6972a Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Fri, 6 Sep 2024 14:56:02 -0700 Subject: [PATCH] (catty) Parsing input --- gui/catty/src/catty.tal | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gui/catty/src/catty.tal b/gui/catty/src/catty.tal index ee8bd36..dec219e 100644 --- a/gui/catty/src/catty.tal +++ b/gui/catty/src/catty.tal @@ -46,6 +46,7 @@ @|input ) @input/ ( -- ) + ;message/pen LDA2 #0010 ADD2 ;message/pen STA2 ;&buf .Console/addr DEO2 [ LIT2 01 -Console/exec ] DEO JMP2r @@ -65,10 +66,10 @@ @message/ ( -- ) #00 / - ;&buf #01 #0010 .Screen/x DEO2 - [ LIT2 &pen 0010 ] #0010 ADD2 DUP2 ,&pen STR2 + [ LIT2 &pen 0010 ] DUP2 #0010 ADD2 ,&pen STR2 .Screen/y DEO2 + ;&buf #01 ( >> ) @message/ ( -- )