indirect addressing and 3 more bytes

2024-11-04 10:05:17 +00:00 · 2018-01-07 22:58:13 -05:00 · 2018-01-07 22:58:13 -05:00 · 37b9814479
commit 37b9814479
parent e59fd225db
1 changed files with 10 additions and 8 deletions
--- 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