commit 715205f2ddd4c23027f326017cbef1c43e5b2b44 parent e6ac67d01b309711c50bbbb8fde3919a5268b152 Author: neauoire <aliceffekt@gmail.com> Date: Sat, 8 Jan 2022 14:13:36 -0800 (boot.tal) Fixed issue with scroll Diffstat:
| M | projects/software/boot.tal | | | 15 | +++++++++++++-- |
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/projects/software/boot.tal b/projects/software/boot.tal @@ -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