From 1da048a18186d0603010d0f82aa72d82424c7243 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 10:50:10 -0700
Subject: [PATCH] (m291) Implemented pause

---
 gui/m291/src/assets.tal |   8 ++++++++
 gui/m291/src/m291.tal   |  30 +++++++++++++++++++++++++++---
 gui/m291/ss10x10.chr    | Bin 4096 -> 4096 bytes
 3 files changed, 35 insertions(+), 3 deletions(-)

diff --git a/gui/m291/src/assets.tal b/gui/m291/src/assets.tal
index 8ea0970..2ec8924 100644
--- a/gui/m291/src/assets.tal
+++ b/gui/m291/src/assets.tal
@@ -27,6 +27,14 @@
 	0804 0201 0000 0000 0000 0080 601f 0000
 	0000 0001 06f8 0000 1020 4080 0000 0000 ]
 
+@play-icn [
+	0000 000c 0f0f 0f0f 0000 0000 00c0 f0fc
+	0f0f 0f0f 0c00 0000 fcf0 c000 0000 0000 ]
+
+@pause-icn [
+	0000 001e 1e1e 1e1e 0000 0078 7878 7878
+	1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
+
 @fill-icn [
 	ffff ffff ffff ffff ffff ffff ffff ffff
 	ffff ffff ffff ffff ffff ffff ffff ffff ]
diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 38542eb..c44d093 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -21,6 +21,7 @@
 	@path $2 &null $80
 	@lines &folders $1 &roms $1 &misc $1
 	@playing $1
+	@paused $1
 	@secfrom $2
 	@secto $2
 	@secprog $2
@@ -94,6 +95,7 @@
 	( up ) DUP #10 NEQ ?{ #ff <move> }
 	( down ) DUP #20 NEQ ?{ #01 <move> }
 	( A ) DUP #01 NEQ ?{ .selection LDZ <pick> }
+	POP .Controller/key DEI DUP #20 NEQ ?{ <send-pause> }
 	POP BRK
 
 (
@@ -108,6 +110,7 @@
 	DUP [ LIT "S ] EQU ?handle-status
 	DUP [ LIT "F ] EQU ?handle-frame
 	DUP [ LIT "I ] EQU ?handle-id3
+	DUP [ LIT "P ] EQU ?handle-pause
 	POP
 	( | not-handled )
 	<perr>
@@ -167,6 +170,10 @@
 	POP <perr>
 	#0a19 DEO !message/<new>
 
+@handle-pause ( buf* char -- )
+	POP INC2 INC2 LDA [ LIT "1 ] SUB #01 EOR .paused STZ
+	<draw-play> !message/<new>
+
 (
 @|core )
 
@@ -209,7 +216,8 @@
 	( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
 	( padding ) #0020 ADD2
 	( playing ) [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
-	.Screen/height DEO2 <redraw-player> !<redraw>
+	.Screen/height DEO2
+	<redraw-player> !<redraw>
 
 @<parse-line> ( line* -- )
 	#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
@@ -241,7 +249,8 @@
 @<select> ( id -- )
 	[ LIT &last ff ] NEQk ?{ POP2 JMP2r }
 	POP DUP ,&last STR
-	.selection STZ <redraw-player> !<redraw>
+	.selection STZ
+	<redraw-player> !<redraw>
 
 @<pick> ( alt id -- )
 	DUP .lines/folders LDZ LTH ?&folder
@@ -265,6 +274,9 @@
 	#0a18 DEO
 	JMP2r
 
+@<send-pause> ( -- )
+	;dict/pause-cmd !<pstr>
+
 @<enter> ( folder* -- )
 	.selection/mod LDZ ?&special
 	push-path !<refresh-dir>
@@ -368,12 +380,23 @@
 	#0080 .Screen/x DEO2
 	#0040 .Screen/y DEO2
 	;placeholder/album #01 <draw-uf2-center>
+	<draw-play>
+	<draw-progress> !<draw-timestamp>
+
+@<draw-play> ( -- )
 	#0070 .Screen/x DEO2
 	#0058 .Screen/y DEO2
 	[ LIT2 36 -Screen/auto ] DEO
 	;button-icn .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
-	<draw-progress> !<draw-timestamp>
+	( | icon )
+	[ LIT2 16 -Screen/auto ] DEO
+	#0078 .Screen/x DEO2
+	#0060 .Screen/y DEO2
+	;pause-icn ;play-icn .paused LDZ ?{ SWP2 }
+	POP2 .Screen/addr DEO2
+	[ LIT2 01 -Screen/sprite ] DEOk DEO
+	JMP2r
 
 @<draw-progress> ( -- )
 	.secprog LDZ2
@@ -635,6 +658,7 @@
 	&empty "(empty) $1
 	&mpg-cmd "mpg123 20 "-R $1
 	&load-cmd "load 20 $1
+	&pause-cmd "pause 0a $1
 
 @placeholder
 	&artist "Blood 20 "Girl $1
diff --git a/gui/m291/ss10x10.chr b/gui/m291/ss10x10.chr
index 4e854ce5b510e520763f3adae413afc9fc95888b..88345f7d4123026ecf0a216fbb49e747ac55739c 100644
GIT binary patch
delta 180
zcmZorXi(UY%p=Of4+IRz;J}AJlN}j5Ch;Z+gXDOS<o<j(0F>&T#FuQ!FAoGrQXhT*
i0TN#h1d#X@ATV)a#w7j(Q;=3<J3(4MAgRTnHyZ#D{31mF

delta 32
gcmZorXi(UY%riNFaqcAE1R%9w5??Zy#}DQK0K5AOZ2$lO