From 37b981447956982bdcbcb16029f0fc5e008b4c70 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sun, 7 Jan 2018 22:58:13 -0500
Subject: [PATCH] indirect addressing and 3 more bytes

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

diff --git a/src/a2fc.system.a b/src/a2fc.system.a
index b3a69b3..d765306 100644
--- a/src/a2fc.system.a
+++ b/src/a2fc.system.a
@@ -59,14 +59,16 @@ Open
          sta   $C00A
          sta   $C000
          sta   $C005                 ; read from mainmem, write to auxmem
-.copya   lda   $2000,x
-.copyb   sta   $2000,x
-         inx
-         bne   .copya
-         inc   .copya+2
-         inc   .copyb+2
-         bit   .copyb+2
-         bvc   .copya                ; loop until address hits $4000
+         ldx   #$20
+         stx   $45                   ; $44 is always 0 after MLI read
+         tay
+-        lda   ($44),y
+         sta   ($44),y
+         iny
+         bne   -
+         inc   $45
+         dex
+         bne   -
          sta   $C004                 ; read/write from mainmem
          jsr   Read
 Close