From e3d4194e4727caf6ed281094e0b3500ed6ebc9ed Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Thu, 9 Aug 2018 11:12:17 -0700
Subject: [PATCH] swap in ProDOS before creating RAM file

---
 src/mli.a | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/mli.a b/src/mli.a
index 5aff227..e45c032 100755
--- a/src/mli.a
+++ b/src/mli.a
@@ -501,6 +501,7 @@ CreateRAMFile
 
          ;no, create a new one
 
+         jsr   SwapProDOS
          lda   OnlineReturn
          tay
          clc
@@ -546,7 +547,7 @@ CreateRAMFile
          php
          jsr   SaveGlobal
          plp
-         bcc   .done
+         bcc   .restore
 
          lda   gRAMDiskRef
          jsr   CloseFile
@@ -561,6 +562,13 @@ CreateRAMFile
          ldx   #FALSE
          stx   gUsingRAMDisk
 
+.restore
+         php
+         pha
+         jsr   SwapProDOS
+         pla
+         plp
+
 .done
          rts