From 15b4551b2ab69c54ffb063462c4ede9e825b553d Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Fri, 20 Dec 2019 00:49:12 -0800
Subject: [PATCH] Editor write file change to identify very rare write
 corruption

---
 src/toolsrc/ed.pla | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/src/toolsrc/ed.pla b/src/toolsrc/ed.pla
index 819509f..dd1cb3a 100755
--- a/src/toolsrc/ed.pla
+++ b/src/toolsrc/ed.pla
@@ -142,9 +142,14 @@ asm lncpy(dststr, srcstr)#0
         INX
         LDY     #$00
         LDA     (SRC),Y
+        CMP     #80
+        BCC     +
+        LDA     #79
+        CLC
++       ADC     #$01    ; APPEND CR TO END OF STRING
+        STA     (DST),Y
         TAY
-        LDA     #$00
-        INY
+        LDA     #$0D
         STA     (DST),Y
         DEY
         BEQ     ++
@@ -156,9 +161,7 @@ CPLNLP  LDA     (SRC),Y
         STA     (DST),Y
         DEY
         BNE     CPLNLP
-        LDA     (SRC),Y
-++      STA     (DST),Y
-        RTS
+++      RTS
 end
 asm lnupcpy(dststr, srcstr)#0
         LDA     ESTKL,X
@@ -173,11 +176,11 @@ asm lnupcpy(dststr, srcstr)#0
         INX
         LDY     #$00
         LDA     (SRC),Y
+        CMP     #80
+        BCC     +
+        LDA     #79
++       STA     (DST),Y
         TAY
-        LDA     #$00
-        INY
-        STA     (DST),Y
-        DEY
         BEQ     +++
 CPUPLP  LDA     (SRC),Y
         CMP     #$20
@@ -193,9 +196,7 @@ CPUPLP  LDA     (SRC),Y
 ++      STA     (DST),Y
         DEY
         BNE     CPUPLP
-        LDA     (SRC),Y
-+++     STA     (DST),Y
-        RTS
++++     RTS
 end
 def bell#0
     putc($07)
@@ -433,9 +434,9 @@ def readtxt(filename, startline)#0
     putln
 end
 def writetxt(filename)#0
-    byte txtbuf[81], refnum
-    byte j, chr
     word i, strptr
+    byte refnum, j, chr
+    byte txtbuf[81]
 
     fileio:destroy(filename)
     fileio:create(filename, $04, $00) // full access, TXT file
@@ -452,7 +453,6 @@ def writetxt(filename)#0
     //
     for i = 0 to numlines - 1
         lncpy(@txtbuf, txtlinbuf=>[i])
-        txtbuf++; txtbuf[txtbuf] = $0D // Add CR to end of line
         fileio:write(refnum, @txtbuf + 1, txtbuf)
         if !(i & $0F); putc('.'); fin
     next