From a46b819a9d9da22c6a965f0cbf16241a6bf8072f Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sun, 7 Jan 2018 22:12:39 -0500
Subject: [PATCH] PHA in loop, use X instead of Y in auxmem copy loop

---
 src/a2fc.system.a | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/a2fc.system.a b/src/a2fc.system.a
index 6960b5e..6dcd8bf 100644
--- a/src/a2fc.system.a
+++ b/src/a2fc.system.a
@@ -39,17 +39,17 @@ inputfilebuffer
          !fill $40
 Start
          ldx   #(CodeEnd-CodeStart)
+         txs
 -        lda   CodeStart-1,x
-         sta   Open-1,x
+         pha
          dex
          bne   -
-         txs
-         jmp   Open
+         jmp   MLI
 
 CodeStart
-!pseudopc $100 {
+!pseudopc $101 {
+         !word Open-1
 Open
-         jsr   MLI
          !byte kMLIOpen
          !word mliParamForOpen
          bcs   Quit
@@ -58,12 +58,11 @@ Open
 ;DHGRCopy
          sta   $C00A
          sta   $C000
-         tay
 .writeToAux
          sta   $C005                 ; read from mainmem, write to auxmem
-.copya   lda   $2000,y
-.copyb   sta   $2000,y
-         iny
+.copya   lda   $2000,x
+.copyb   sta   $2000,x
+         inx
          bne   .copya
          sta   $C004                 ; read/write from mainmem
          inc   .copya+2