Fixed return code bug in LOADFILE.

2025-01-17 22:33:46 +00:00 · 2021-08-24 12:52:58 -04:00 · 2021-08-24 12:52:58 -04:00 · 76eb70bbe9
commit 76eb70bbe9
parent ca72fec379
2 changed files with 2 additions and 0 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.s
+++ b/mainmem.s
@ -489,6 +489,7 @@ LOADFILE    >>>   ENTMAIN
            PHA
            BRA   :EXIT
 :READERR    LDA   #$02               ; Read error
+            PHA
            BRA   :EOF2
 :EOF        LDA   #$00               ; Success
 :EOF2       LDA   OPENPL+5           ; File ref num
@ -496,6 +497,7 @@ LOADFILE    >>>   ENTMAIN
            JSR   CLSFILE
 :EXIT       JSR   UPDFB              ; Update FILEBLK
            JSR   COPYFB             ; Copy FILEBLK to auxmem
+            PLA                      ; Get return code back
            >>>   XF2AUX,OSFILERET
 :BLOCKS     DB    $00