8080fixedbank: fast(er) copier

diff --git a/Kernel/lib/8080fixedbank.s b/Kernel/lib/8080fixedbank.s
index 191327d..dfa57c0 100644 (file)
--- a/Kernel/lib/8080fixedbank.s
+++ b/Kernel/lib/8080fixedbank.s
@@ -2,14 +2,44 @@
 
 #include "../lib/8080fixedbank-core.s"
 
-bankfork:
-!
-!      FIXME: copy the user memory between bank a and c
-!
-       ret
 !
 !      Fast copy 512 bytes from H to D
 !
 copy512:
-! FIXME: TODO
+       mvi b,64
+copy8:
+       mov m,a
+       stax d
+       inx h
+       inx d
+       mov m,a
+       stax d
+       inx h
+       inx d
+       mov m,a
+       stax d
+       inx h
+       inx d
+       mov m,a
+       stax d
+       inx h
+       inx d
+       mov m,a
+       stax d
+       inx h
+       inx d
+       mov m,a
+       stax d
+       inx h
+       inx d
+       mov m,a
+       stax d
+       inx h
+       inx d
+       mov m,a
+       stax d
+       inx h
+       inx d
+       dcr b
+       jnz copy8
        ret