(m291) Implemented pause

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 ]

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