(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

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