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

(m291) Fixed issue with clear-line

This commit is contained in:
Devine Lu Linvega 2024-08-26 13:50:07 -07:00
parent ff922f79f2
commit 6e4fd9ecd5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gui/m291/src/m291.tal
View File

@ -590,11 +590,13 @@
#0a DIVk MUL SUB [ LIT "0 ] ADD !<draw-glyph> #0a DIVk MUL SUB [ LIT "0 ] ADD !<draw-glyph>
@<clear-line> ( -- ) @<clear-line> ( -- )
#0000 .Screen/x DEO2 [ LITr -Screen/y ] DEI2r
( ) #0000 .Screen/x DEO2
;fill-icn .Screen/addr DEO2 ;fill-icn .Screen/addr DEO2
[ LIT2 f2 -Screen/auto ] DEO [ LIT2 f2 -Screen/auto ] DEO
[ LIT2 00 -Screen/sprite ] DEOk DEOk #0080 .Screen/x DEO2 [ LIT2 00 -Screen/sprite ] DEOk DEOk
.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2 ( ) [ LITr -Screen/y ] DEO2r
#0080 .Screen/x DEO2
DEOk DEO DEOk DEO
JMP2r JMP2r