| ... | ... |
@@ -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 |