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

(m291) Fixed issue with timestamp

This commit is contained in:
Devine Lu Linvega 2024-08-27 09:53:03 -07:00
parent e3fc283592
commit 7fdfcf9c24
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -520,14 +520,14 @@
@<draw-play> ( -- ) @<draw-play> ( -- )
#0070 .Screen/x DEO2 #0070 .Screen/x DEO2
#0054 .Screen/y DEO2 #0050 .Screen/y DEO2
[ LIT2 36 -Screen/auto ] DEO [ LIT2 36 -Screen/auto ] DEO
;button-icn .Screen/addr DEO2 ;button-icn .Screen/addr DEO2
[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO [ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO
( | icon ) ( | icon )
[ LIT2 16 -Screen/auto ] DEO [ LIT2 16 -Screen/auto ] DEO
#0078 .Screen/x DEO2 #0078 .Screen/x DEO2
#005c .Screen/y DEO2 #0058 .Screen/y DEO2
;pause-icn [ LIT2 00 -paused ] LDZ #50 SFT2 ADD2 .Screen/addr DEO2 ;pause-icn [ LIT2 00 -paused ] LDZ #50 SFT2 ADD2 .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEO [ LIT2 01 -Screen/sprite ] DEOk DEO
JMP2r JMP2r
@ -535,7 +535,7 @@
@<draw-prev> ( -- ) @<draw-prev> ( -- )
[ LIT2 16 -Screen/auto ] DEO [ LIT2 16 -Screen/auto ] DEO
#0058 .Screen/x DEO2 #0058 .Screen/x DEO2
#005c .Screen/y DEO2 #0058 .Screen/y DEO2
;prev-icn .Screen/addr DEO2 ;prev-icn .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEO [ LIT2 01 -Screen/sprite ] DEOk DEO
JMP2r JMP2r
@ -543,7 +543,7 @@
@<draw-next> ( -- ) @<draw-next> ( -- )
[ LIT2 16 -Screen/auto ] DEO [ LIT2 16 -Screen/auto ] DEO
#0098 .Screen/x DEO2 #0098 .Screen/x DEO2
#005c .Screen/y DEO2 #0058 .Screen/y DEO2
;next-icn .Screen/addr DEO2 ;next-icn .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEO [ LIT2 01 -Screen/sprite ] DEOk DEO
JMP2r JMP2r
@ -586,6 +586,9 @@
( | catch redraws ) ( | catch redraws )
DUP2 [ LIT2 &last $2 ] NEQ2 ?{ POP2 JMP2r } DUP2 [ LIT2 &last $2 ] NEQ2 ?{ POP2 JMP2r }
DUP2 ,&last STR2 DUP2 ,&last STR2
( | clear )
#0070 .Screen/y DEO2
<clear-line>
( | from ) ( | from )
[ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2