mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-29 13:55:05 +00:00
Fix apparent bug in FILEGET
This commit is contained in:
parent
06511e2777
commit
7dad53b031
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -217,7 +217,7 @@ FINDBUF LDX #$00
|
|||||||
:END RTS
|
:END RTS
|
||||||
|
|
||||||
* ProDOS file handling for MOS OSBGET call
|
* ProDOS file handling for MOS OSBGET call
|
||||||
* Returns with char read in A and error num in X (or 0)
|
* Returns with char read in A and error num in Y (or 0)
|
||||||
FILEGET >>> ENTMAIN
|
FILEGET >>> ENTMAIN
|
||||||
LDA MOSFILE ; File ref number
|
LDA MOSFILE ; File ref number
|
||||||
STA READPL2+1
|
STA READPL2+1
|
||||||
@ -227,7 +227,7 @@ FILEGET >>> ENTMAIN
|
|||||||
BCC :NOERR
|
BCC :NOERR
|
||||||
TAY ; Error number in Y
|
TAY ; Error number in Y
|
||||||
BRA :EXIT
|
BRA :EXIT
|
||||||
:NOERR LDX #$00
|
:NOERR LDY #$00
|
||||||
LDA BLKBUF
|
LDA BLKBUF
|
||||||
:EXIT >>> XF2AUX,OSBGETRET
|
:EXIT >>> XF2AUX,OSBGETRET
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user