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

(catty) Parsing input

This commit is contained in:
Devine Lu Linvega 2024-09-06 14:56:02 -07:00
parent 18ad732a24
commit fe5a9321d0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gui/catty/src/catty.tal
View File

@ -46,6 +46,7 @@
@|input ) @|input )
@input/<send> ( -- ) @input/<send> ( -- )
;message/pen LDA2 #0010 ADD2 ;message/pen STA2
;&buf .Console/addr DEO2 ;&buf .Console/addr DEO2
[ LIT2 01 -Console/exec ] DEO [ LIT2 01 -Console/exec ] DEO
JMP2r JMP2r
@ -65,10 +66,10 @@
@message/<parse> ( -- ) @message/<parse> ( -- )
#00 /<append> #00 /<append>
;&buf #01 <draw-uf2>
#0010 .Screen/x DEO2 #0010 .Screen/x DEO2
[ LIT2 &pen 0010 ] #0010 ADD2 DUP2 ,&pen STR2 [ LIT2 &pen 0010 ] DUP2 #0010 ADD2 ,&pen STR2
.Screen/y DEO2 .Screen/y DEO2
;&buf #01 <draw-uf2>
( >> ) ( >> )
@message/<new> ( -- ) @message/<new> ( -- )