mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-03-06 01:29:27 +00:00
Reinstated OSFILE error handling that I broke!
This commit is contained in:
parent
db41a7a7da
commit
c4f20036f9
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -72,6 +72,7 @@ CLIHND PHX
|
||||
JSR STRCMP
|
||||
BCS :S6
|
||||
JSR STARSAVE
|
||||
BRA :IEXIT
|
||||
:S6 LDA #<:RUN
|
||||
STA ZP2
|
||||
LDA #>:RUN
|
||||
|
@ -478,7 +478,9 @@ LOADFILE >>> ENTMAIN
|
||||
:BLOCKS DB $00
|
||||
|
||||
* Copy FILEBLK to AUXBLK in aux memory
|
||||
COPYFB LDX #$00
|
||||
* Preserves A
|
||||
COPYFB PHA
|
||||
LDX #$00
|
||||
:L1 LDA FILEBLK,X
|
||||
TAY
|
||||
>>> ALTZP ; Alt ZP and LC
|
||||
@ -488,6 +490,7 @@ COPYFB LDX #$00
|
||||
INX
|
||||
CPX #18 ; 18 bytes in FILEBLK
|
||||
BNE :L1
|
||||
PLA
|
||||
RTS
|
||||
|
||||
* ProDOS file handling for MOS OSFILE SAVE call
|
||||
|
Loading…
x
Reference in New Issue
Block a user