From 2b4e242f1e55849f0e436da1b8ab7972c3c6e590 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sun, 7 Jan 2018 20:39:25 -0500
Subject: [PATCH] quit without displaying on file read error, run on stack page
 instead of input page

---
 src/a2fc.system.a | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/src/a2fc.system.a b/src/a2fc.system.a
index 5e519a1..c00ee45 100644
--- a/src/a2fc.system.a
+++ b/src/a2fc.system.a
@@ -38,15 +38,16 @@ inputfile
 inputfilebuffer
          !fill $40
 Start
-         ldx   #$00
-FM       lda   CodeStart,x
-         sta   Open,x
-         inx
-         bne   FM
+         ldx   #(CodeEnd-CodeStart)
+-        lda   CodeStart-1,x
+         sta   Open-1,x
+         dex
+         bne   -
+         txs
          jmp   Open
-CodeStart
 
-!pseudopc $200 {
+CodeStart
+!pseudopc $100 {
 Open
          jsr   CallMLIImmediate
          bcs   Quit
@@ -63,10 +64,9 @@ Open
          jsr   CallMLI
          bcs   Close
 ;DHGRCopy
+         tay
          sta   $C00A
          sta   $C000
-         tay                         ; A is 0 after successful MLI call
-                                     ; X is still #$20
 .writeToAux
          sta   $C005                 ; read from mainmem, write to auxmem
 .copya   lda   $2000,y
@@ -83,9 +83,12 @@ Open
          ldy   #kMLIReadCount
          jsr   CallMLI
 Close
+         php
          lda   #kMLIClose
          ldy   #kMLICloseCount
          jsr   CallMLI
+         plp
+         bcs   Quit
 ;DHGRShow
          lda   $C05E
          sta   $C00D
@@ -111,5 +114,5 @@ mliparam !byte kMLIOpenCount
          !word inputfilebuffer
          !word aFileBuffer
 ;        !byte $00,$00,$00,$00
-End
 }
+CodeEnd