trs80: add bank helper for fast bank to bank copies

diff --git a/Kernel/platform-trs80m1/trs80-bank.s b/Kernel/platform-trs80m1/trs80-bank.s
index 2691bd4..6cdb8c9 100644 (file)
--- a/Kernel/platform-trs80m1/trs80-bank.s
+++ b/Kernel/platform-trs80m1/trs80-bank.s
@@ -16,6 +16,7 @@
            .globl map_restore
            .globl map_save_kmap
            .globl map_restore_kmap
+           .globl fork_mapsave
 
             ; imported symbols
            .globl _program_vectors     
@@ -103,6 +104,11 @@ map_kernel_restore:
            out (0x43), a
            pop af
            ret
+
+fork_mapsave:
+           ld a,(map_reg)
+           ld (ksave_map),a
+           ret
 ;
 ;      Select the bank for the relevant process. Update the ksave_map so we
 ;      can restore the correct kernel mapping when banked.