6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-09 16:40:38 +00:00
Code Issues Projects Releases Wiki Activity

Editor write file change to identify very rare write corruption

Browse Source
This commit is contained in:
David Schmenk 2019-12-20 00:49:12 -08:00
parent 8df7cea4a0
commit 15b4551b2a
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/toolsrc/ed.pla
View File

@ -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