From d00baaec6af7ea5953a3d4c51e1cbba338bd9aa5 Mon Sep 17 00:00:00 2001
From: Andrew Alderwick <andrew@alderwick.co.uk>
Date: Tue, 9 Nov 2021 07:14:43 +0000
Subject: [PATCH] Move clamps to select-file.

---
 projects/software/boot.tal | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/projects/software/boot.tal b/projects/software/boot.tal
index 92a9da8..a71645e 100644
--- a/projects/software/boot.tal
+++ b/projects/software/boot.tal
@@ -100,7 +100,6 @@ BRK
 
 	( select choice )
 	.Mouse/y DEI2 
-		( clamp ) #0010 GTH2k SWP2? POP2
 		10// NIP #01 - ;select-file JSR2
 
 	.Mouse/state DEI #00 = ,&no-click JCN
@@ -113,11 +112,11 @@ BRK
 
 	.Controller/button DEI
 	DUP #10 ! ,&no-up JCN
-		#01 .browser/sel LDZ GTHk SWP? POP DEC ;select-file JSR2
+		#01 .browser/sel LDZ DEC ;select-file JSR2
 		POP BRK
 		&no-up
 	DUP #20 ! ,&no-down JCN
-		.browser/sel LDZ ;dir/lines LDA LTHk SWP? POP INC ;select-file JSR2
+		.browser/sel LDZ INC ;select-file JSR2
 		POP BRK
 		&no-down
 	DUP #01 ! ,&no-a JCN
@@ -170,6 +169,11 @@ RTN
 RTN
 
 @select-file ( id -- )
+	( clamp id to useful values )
+	DUP #fc LTH ,&not-negative JCN
+	DUP EOR
+	&not-negative
+	;dir/lines LDA DEC LTHk SWP? POP
 
 	DUP .browser/last LDZ ! ,&has-changed JCN
 		POP RTN