@@ 637,12 637,13 @@ JMP2r
get-eof .scroll/addr LDZ2 find-first-marker
&l
LDA2k [ LIT2 0a "@ ] NEQ2 ?&no-label
- INC2 add-marker INC2
+ INC2 DUP2 add-marker INC2
&no-label
( reached bottom ) .nav/len LDZ #18 GTH ?&end
INC2 GTH2k ?&l
&end
POP2 POP2
+ #0000 add-marker
!draw-navbar
@@ 651,18 652,17 @@ JMP2r
get-eof ;text
&l2
;search OVR2 sseg #00 EQU ?&no-find
- add-marker
+ DUP2 add-marker
&no-find
+ ( reached bottom ) .nav/len LDZ #18 GTH ?&end
INC2 GTH2k ?&l2
POP2 POP2
+ #0000 add-marker
!draw-navbar
-@add-marker ( addr* -- addr* )
-
- .nav/len LDZ #18 LTH [ JMP JMP2r ]
+@add-marker ( addr* -- )
- DUP2
.nav/len LDZk
INCk ROT STZ
DUP ADD .nav/buf ADD STZ2
@@ 1268,7 1268,7 @@ JMP2r
#0008 .Screen/x DEO2
#0020 .Screen/y DEO2
[ LIT2 f2 -Screen/auto ] DEO
- #00 .textarea/lines LDZ2 NIP DUP ADD SUB
+ .textarea/lines LDZ2 DUP ADD SUB
&lc [ LIT2 00 -Screen/sprite ] DEO INC DUP ?&lc POP
( draw )
[ LIT2 15 -Screen/auto ] DEO