@@ 261,7 261,7 @@ JMP2r
&peek ( uc -- v* )
POP [ LIT2 &pval 0000 ] LDA2 JMP2r
&time ( uc -- v* )
- POP ;make-time JSR2 JMP2r
+ POP ;make-time JMP2
&width ( uc -- v* )
POP .Screen/width DEI2 JMP2r
@@ 407,7 407,7 @@ JMP2
LITr 40 SFT2r
LITr 00
LDAk ;chex JSR2 STH ADD2r
- INC2 LDAk ;chex JSR2 #ff NEQ ,&hw JCN
+ INC2 LDAk ;chex JSR2 INC ,&hw JCN
STH2r
JMP2r
@@ 446,9 446,9 @@ JMP2r
DUP2 ;store/addr LDA2 ;mem/prg SUB2 ;mclr JSR2
;store/addr STA2
;mem/prg ;mem/root STA2
- ;variables #0034 ;mclr JSR2
+ ;variables #0034 ;mclr ( .. )
-JMP2r
+JMP2
@print-line ( line* -- )
@@ 622,7 622,7 @@ JMP2
STH2k
;walk-expr JSR2 NIP2 ;find-line JSR2 NIP2
- DUP2 #ffff NEQ2 ,&no-error JCN
+ INC2k ORA ,&no-error JCN
STH2r ;walk-blank JSR2 ;err/line ;draw-error JMP2
&no-error
POP2r
@@ 891,15 891,15 @@ JMP2
;mem/prg ;store/addr STA2
;dict/varvara ;draw-str JSR2
- ;draw-lb JSR2 ;draw-lb JSR2
+ ,draw-lb JSR ,draw-lb JSR
;dict/ram ;draw-str JSR2
#ffff ;mem/prg SUB2 ;draw-dec JSR2
;dict/intro ;draw-str JSR2
- ;draw-lb JSR2
+ ,draw-lb JSR
@draw-ready ( -- )
- ;draw-lb JSR2
+ ,draw-lb JSR
;dict/ready ;draw-str JSR2
@draw-lb ( -- )