v: fix visual bug when saving. closes #457

CHANGELOG.md

@@ -8,6 +8,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### Fixed
  - POSTPONE error handling.
  - Documented DEFCODE.
+ - V: visual bug when saving.
 
 ## [4.0.0] - 2022-07-20
 ### Changed

disk.asm

@@ -161,10 +161,14 @@ load_binary_laddr_hi = *+1
 SAVEB
     stx W
 
-    lda	$ae
+    lda $ae
+    pha
+    lda $af
     pha
-    lda	$af
+    lda $9d             ; enable kernal logging
     pha
+    lda #$ff
+    sta $9d
 
     lda LSB+3, x		; range begin lo
     sta $c1
@@ -192,12 +196,16 @@ save_binary_srange_end_hi = *+1
     ldy #$ff	;load_address hi
     lda #$c1	;tell routine that start address is located in $c1/$c2
     jsr SAVE
+    lda #' '
+    jsr CHROUT
     jsr _errorchread
 
+    pla                 ; restore kernal logging
+    sta $9d
     pla
-    sta	$af
+    sta $af
     pla
-    sta	$ae
+    sta $ae
 
     ldx W
     inx

forth_src/v.fs

@@ -362,7 +362,6 @@ while 1+ repeat ;
 
 rom-kernal
 page
-$9d c@ $ff $9d c! \ kernal log on
 
 \ scratch old file
 here
@@ -376,7 +375,6 @@ $f $f open ioabort $f close
 
 bufstart eof @
 filename count saveb
-$9d c! \ restore kernal log
 key to need-refresh ;
 
 : open-line