d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Move clamps to select-file.

This commit is contained in:
Andrew Alderwick 2021-11-09 07:14:43 +00:00
parent 9b061bb9ef
commit d00baaec6a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
projects/software/boot.tal
View File

@ -100,7 +100,6 @@ BRK
( select choice ) ( select choice )
.Mouse/y DEI2 .Mouse/y DEI2
( clamp ) #0010 GTH2k SWP2? POP2
10// NIP #01 - ;select-file JSR2 10// NIP #01 - ;select-file JSR2
.Mouse/state DEI #00 = ,&no-click JCN .Mouse/state DEI #00 = ,&no-click JCN
@ -113,11 +112,11 @@ BRK
.Controller/button DEI .Controller/button DEI
DUP #10 ! ,&no-up JCN 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 POP BRK
&no-up &no-up
DUP #20 ! ,&no-down JCN 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 POP BRK
&no-down &no-down
DUP #01 ! ,&no-a JCN DUP #01 ! ,&no-a JCN
@ -170,6 +169,11 @@ RTN
RTN RTN
@select-file ( id -- ) @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 DUP .browser/last LDZ ! ,&has-changed JCN
POP RTN POP RTN