etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2025-01-05 15:11:18 +00:00
Code Issues Projects Releases Wiki Activity

(boot.tal) Fixed issue with scroll

Browse source
This commit is contained in:
neauoire 2022-01-08 14:13:36 -08:00
parent e6ac67d01b
commit 715205f2dd
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
projects/software/boot.tal
View file

@ -228,14 +228,25 @@ RTN
@follow-selection ( -- )
LINES-COUNT .browser/sel LDZ .browser/scroll LDZ -
DUP2 > ,&no-down JCN
.browser/scroll LDZ INC .browser/scroll STZ
.browser/scroll LDZ INC ;scroll-to JSR2
&no-down
DUP2 SWP < ,&no-up JCN
.browser/sel LDZ ;scroll-to JSR2
&no-up
POP2
RTN
@print-str ( string* -- )
#0001 SUB2
&while
INC2 LDAk DUP #18 DEO ,&while JCN
POP2
JMP2r
@print-hex ( value* -- )
SWP ,&byte JSR