Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-02-09 06:31:16 +00:00
Code Issues Projects Releases Wiki Activity

*COPY error handling fix.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-16 18:36:49 -04:00
parent a7299cbdbd
commit 13c61394ae
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

11
mainmem.svc.s
View File

@ -89,6 +89,7 @@ RENFILE >>> ENTMAIN
>>> XF2AUX,RENRET
* ProDOS file handling for file copying
* Returns with ProDOS error code in A
COPYFILE >>> ENTMAIN
JSR MFtoTMP ; Swap MOSFILE & MOSFILE2
JSR COPYMF21
@ -165,6 +166,7 @@ COPYFILE >>> ENTMAIN
* Copy a single file
* Source is in MOSFILE, DEST in MOSFILE2
* Returns with carry set if error, carry clear otherwise
* Returns with ProDOS error code in A
* Buffer COPYBUF is used for the file copy, to avoid trashing
* directory block in RDBUF (when doing wilcard search)
COPY1FILE LDA #<MOSFILE
@ -191,8 +193,8 @@ COPY1FILE LDA #<MOSFILE
JSR MLI ; Call CREATE with ..
DB CREATCMD ; .. PL from GET_FILE_INFO
DW GINFOPL
LDA #$0A ; Num parms back as we found it
STA GINFOPL
LDX #$0A ; Num parms back as we found it
STX GINFOPL
BCS :ERR ; Error creating dest file
LDA #$00 ; Look for empty slot
JSR FINDBUF
@ -249,6 +251,8 @@ COPY1FILE LDA #<MOSFILE
BRA :MAINLOOP
:EOFEXIT CLC ; No error
PHP
LDA #$00
PHA
:CLOSE2 LDA WRTPLCP+1 ; Close output file
STA CLSPL+1
JSR CLSFILE
@ -259,13 +263,16 @@ COPY1FILE LDA #<MOSFILE
JSR CLSFILE
LDX :BUFIDX1
STZ FILEREFS,X
PLA
PLP
RTS
:ERRCLS1 SEC
PHP
PHA
BRA :CLOSE1
:ERRCLS2 SEC
PHP
PHA
BRA :CLOSE2
:BUFIDX1 DB $00
:BUFIDX2 DB $00