... | ... |
@@ -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 ,¬-negative JCN |
|
174 |
+ DUP EOR |
|
175 |
+ ¬-negative |
|
176 |
+ ;dir/lines LDA DEC LTHk SWP? POP |
|
173 | 177 |
|
174 | 178 |
DUP .browser/last LDZ ! ,&has-changed JCN |
175 | 179 |
POP RTN |