From 4a32bdd2c1d1de3b49d2bd95c4833423951ad16c Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 28 Aug 2024 19:33:01 -0700
Subject: [PATCH] (m291) Extended buffer sizes

---
 gui/m291/src/m291.tal | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 2d037f9..d06644a 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -212,8 +212,7 @@
 	;dict/pause-cmd <pstr> !<draw-play>
 
 @<move> ( mod -- )
-	.selection LDZ ADD INCk ?{
-		POP count-lines #01 SUB !<select> }
+	.selection LDZ ADD
 	( | follow )
 	DUP .lines/folders LDZ SUB
 	( up ) DUP #80 LTH ?{
@@ -240,11 +239,11 @@
 	&tracks ( id -- )
 	.selection/scroll LDZ ADD DUP .selection/track STZ
 	#00 SWP
-	( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
+	( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load>
 
 	&folder ( id -- )
 	#00 SWP
-	( CELLSIZE ) #60 SFT2 ;mem/folders ADD2
+	( CELLSIZE ) #70 SFT2 ;mem/folders ADD2
 	( > ) [ LIT2 00 -selection ] STZ
 	( > ) [ LIT2 00 -selection/scroll ] STZ
 	path/<push> !<refresh-dir>
@@ -370,14 +369,15 @@
 	&folder ( line* -- )
 	DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
 	;mem/folders [ LIT2 00 -lines/folders ] LDZ
-	( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
+	( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
 	.lines/folders LDZ INC .lines/folders STZ
 	JMP2r
 
 	&mp3 ( line* -- )
-	DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
+	DUP2 llen
+	( CELLSIZE ) #007f LTH2 ?{ POP2 JMP2r }
 	;mem/tracks [ LIT2 00 -lines/tracks ] LDZ
-	( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
+	( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
 	.lines/tracks LDZ INC .lines/tracks STZ
 	JMP2r
 
@@ -510,7 +510,7 @@
 		( | normal )
 		#0008 .Screen/x DEO2
 		#00 OVR .selection/scroll LDZ ADD
-		( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
+		( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
 		.Screen/y DEI2k #0010 ADD2 ROT DEO2
 		INC GTHk ?&>l
 	POP2 JMP2r
@@ -735,7 +735,7 @@
 		( | normal )
 		#0008 .Screen/x DEO2
 		#00 OVR
-		( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
+		( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
 		.Screen/y DEI2k #0010 ADD2 ROT DEO2
 		INC GTHk ?&>l
 	POP2 JMP2r