Removed duplicate call to GET_FILE_INFO.

2025-03-25 21:33:50 +00:00 · 2021-08-26 21:49:05 -04:00 · 2021-08-26 21:49:05 -04:00 · 51870e010c
commit 51870e010c
parent 1ffd751419
2 changed files with 0 additions and 12 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.s
+++ b/mainmem.s
@ -7,7 +7,6 @@

 * 24-Aug-2021 AUXTYPE set from load address

-
 * ProDOS MLI command numbers
 QUITCMD     EQU   $65
 GTIMECMD    EQU   $82
@ -683,15 +682,6 @@ SAVEFILE    >>>   ENTMAIN
            LDA   #$00               ; Success!
            BCC   :EXIT              ; If close OK
            LDA   #$02               ; Write error
-            LDA   #<MOSFILE
-            STA   GINFOPL+1
-            LDA   #>MOSFILE
-            STA   GINFOPL+2
-            JSR   MLI                ; Call GET_FILE_INFO
-            DB    GINFOCMD
-            DW    GINFOPL
-            BCS   :EXIT
-            LDA   #$02               ; Write error
 :EXIT       JSR   UPDFB              ; Update FILEBLK
            JSR   COPYFB             ; Copy FILEBLK to aux mem
            >>>   XF2AUX,OSFILERET
@ -953,5 +943,3 @@ FBATTR
 FBEND       DW    $0000              ; Attributes / End address for SAVE
            DW    $0000

-
-