From ea853d7af1e1d113316be481d6b00627080ad6c6 Mon Sep 17 00:00:00 2001
From: Joshua Bell <inexorabletash@gmail.com>
Date: Mon, 6 Dec 2021 20:47:15 -0800
Subject: [PATCH] Close open file on more error paths

---
 inc/driver_preamble.inc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/inc/driver_preamble.inc b/inc/driver_preamble.inc
index 0cfa3b6..086c03a 100644
--- a/inc/driver_preamble.inc
+++ b/inc/driver_preamble.inc
@@ -219,6 +219,7 @@ block_len       = $200
         ;; Read first "block"
         MLI_CALL READ, read_block_params
         bcc     :+
+        MLI_CALL CLOSE, close_params
         jmp     on_error
 
         ;; Get sizes out of header
@@ -339,9 +340,9 @@ not_found:
         sta     close_params::ref_num
 
         MLI_CALL READ, read_params
-        bcs     on_error
-
+        php
         MLI_CALL CLOSE, close_params
+        plp
         bcs     on_error
 
         jmp     SYS_ADDR        ; Invoke loaded SYSTEM file