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/<send> ( -- )
;message/pen LDA2 #0010 ADD2 ;message/pen STA2
;&buf .Console/addr DEO2
[ LIT2 01 -Console/exec ] DEO
JMP2r
@ -65,10 +66,10 @@
@message/<parse> ( -- )
#00 /<append>
;&buf #01 <draw-uf2>
#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 <draw-uf2>
( >> )
@message/<new> ( -- )