Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-01 07:41:51 +00:00
Code Issues Projects Releases Wiki Activity

EDIT:Save bugfix

Browse Source
This commit is contained in:
burniouf 2022-03-24 22:12:54 +01:00
parent 340ce51779
commit e5abc173c6
2 changed files with 13 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

32
BIN/EDIT.S.FILE.txt
View File

@ -228,37 +228,31 @@ FILE.Save.CRLF sec
.1 lda (BufPtr) .1 lda (BufPtr)
beq .8 beq .8
ldy #$ff ldy #0
.2 iny .2 lda (BufPtr)
lda (BufPtr),y beq .4
sta (LineBufPtr),y
beq .3
inc BufPtr
bne .3
inc BufPtr+1
.3 sta (LineBufPtr),y
iny
cmp #C.CR cmp #C.CR
bne .2 bne .2
iny
bit TmpIndex+1 bit TmpIndex+1
bpl .3 bpl .4
lda #C.LF lda #C.LF
sta (LineBufPtr),y sta (LineBufPtr),y
iny iny
.3 tya .4 jsr FILE.WriteY
beq .8
clc
adc BufPtr
sta BufPtr
bcc .7
inc BufPtr+1
.7 jsr FILE.WriteY
bcs FILE.Save.99 bcs FILE.Save.99
bra .1 bra .1