Browse code

Move clamps to select-file.

Andrew Alderwick authored on 09/11/2021 07:14:43
Showing 1 changed files
... ...
@@ -100,7 +100,6 @@ BRK
100 100
 
101 101
 	( select choice )
102 102
 	.Mouse/y DEI2 
103
-		( clamp ) #0010 GTH2k SWP2? POP2
104 103
 		10// NIP #01 - ;select-file JSR2
105 104
 
106 105
 	.Mouse/state DEI #00 = ,&no-click JCN
... ...
@@ -113,11 +112,11 @@ BRK
113 112
 
114 113
 	.Controller/button DEI
115 114
 	DUP #10 ! ,&no-up JCN
116
-		#01 .browser/sel LDZ GTHk SWP? POP DEC ;select-file JSR2
115
+		#01 .browser/sel LDZ DEC ;select-file JSR2
117 116
 		POP BRK
118 117
 		&no-up
119 118
 	DUP #20 ! ,&no-down JCN
120
-		.browser/sel LDZ ;dir/lines LDA LTHk SWP? POP INC ;select-file JSR2
119
+		.browser/sel LDZ INC ;select-file JSR2
121 120
 		POP BRK
122 121
 		&no-down
123 122
 	DUP #01 ! ,&no-a JCN
... ...
@@ -170,6 +169,11 @@ RTN
170 169
 RTN
171 170
 
172 171
 @select-file ( id -- )
172
+	( clamp id to useful values )
173
+	DUP #fc LTH ,&not-negative JCN
174
+	DUP EOR
175
+	&not-negative
176
+	;dir/lines LDA DEC LTHk SWP? POP
173 177
 
174 178
 	DUP .browser/last LDZ ! ,&has-changed JCN
175 179
 		POP RTN