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

(boot.tal) Fixed issue with scroll

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