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

Fixed LOADFILE bug (handle final partial blk)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-01 16:58:20 -04:00
parent 7fd29ad52f
commit b0fb7b2000
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

15
mainmem.s
View File

@ -11,7 +11,6 @@
* Set ?&E0=255 for testing to report ProDOS result
* 30-Aug-2021 INFOFILE semi-implemented, UPDFB returns moddate
* Lots of tidying up possible once confirmed code working
* *BUG* LOAD loads full 512 bytes from last sector even when < 512
* ProDOS string buffers
@ -529,8 +528,9 @@ LOADFILE >>> ENTMAIN
JSR PREPATH ; Preprocess pathname
JSR EXISTS ; See if it exists ...
CMP #$01 ; ... and is a file
BNE :NOTFND
STZ :BLOCKS
BEQ :ISFILE
JMP :NOTFND
:ISFILE STZ :BLOCKS
LDA #<MOSFILE
STA OPENPL+1
LDA #>MOSFILE
@ -548,9 +548,12 @@ LOADFILE >>> ENTMAIN
STA A1L
LDA #>BLKBUF
STA A1H
LDA #<BLKBUFEND
CLC
LDA #<BLKBUF
ADC READPL+6 ; LSB of trans count
STA A2L
LDA #>BLKBUFEND
LDA #>BLKBUF
ADC READPL+7 ; MSB of trans count
STA A2H
LDA FBEXEC ; If FBEXEC is zero, use addr
CMP #$00 ; in the control block
@ -580,8 +583,6 @@ LOADFILE >>> ENTMAIN
INC
DEX
BRA :L2
* *BUG* This is copy all 512 bytes of last block instead of
* just the bytes used
:S2 STA A4H
SEC ; Main -> AUX
JSR AUXMOVE