close any open files on re-enter

2025-03-15 01:33:13 +00:00 · 2018-11-11 18:13:27 -08:00 · 2018-11-11 18:13:27 -08:00 · a2e4f1f583
commit a2e4f1f583
parent d49cc0393c
2 changed files with 7 additions and 0 deletions
--- a/src/4cade.a
+++ b/src/4cade.a
@ -12,6 +12,7 @@ FirstMover
 !pseudopc $D000 {
 Reenter                              ; self-running demos should call this to exit back to 4cade
         +READ_RAM1_WRITE_RAM1
+         jsr   CloseHandles          ; close any open handles to restore ProRWTS state to original
 Main
         ldx   #$FF
         txs
--- a/src/glue.prorwts2.a
+++ b/src/glue.prorwts2.a
@ -292,7 +292,13 @@ end_promote
 ;------------------------------------------------------------------------------
 packet = $40 ;word
 buffer = $42 ;word
+
 ProDOS_enter
+  !ifdef PASS2 {
+!set CloseHandles = @imp_close
+  } else { ;PASS2
+    !set PASS2=1
+  }
    pla
    sta    @fetchaddr+1
    pla