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

Auto skip to next track

This commit is contained in:
Devine Lu Linvega 2024-08-26 14:14:18 -07:00
parent 458228fb7b
commit 748d00a166
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -208,8 +208,12 @@
POP2 POP2 !message/<new>
@handle-pause ( buf* char -- )
POP INC2 INC2 LDA [ LIT "1 ] SUB #01 EOR .paused STZ
<draw-play> !message/<new>
POP INC2 INC2 LDA
( stop ) DUP [ LIT "0 ] NEQ ?{ }
( paused ) DUP [ LIT "1 ] NEQ ?{ #01 .paused STZ }
( playing ) DUP [ LIT "2 ] NEQ ?{ #00 .paused STZ }
( end ) DUP [ LIT "3 ] NEQ ?{ <skip-next> }
POP <draw-play> !message/<new>
(
@|core )