From: Alan Cox <alan@linux.intel.com>
Date: Fri, 25 May 2018 21:31:25 +0000 (+0100)
Subject: trs80m1: fix memory sizing add banking hooks
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=f42e4338be76f15e30410e3bd82dd7ea0835d16c;p=FUZIX.git

trs80m1: fix memory sizing add banking hooks

The simple banked memory banking logic will need some improvements for
banked kernels. Add the hooks I think we need
---

diff --git a/Kernel/platform-trs80m1/trs80-bank.s b/Kernel/platform-trs80m1/trs80-bank.s
index d7b9749a..2691bd49 100644
--- a/Kernel/platform-trs80m1/trs80-bank.s
+++ b/Kernel/platform-trs80m1/trs80-bank.s
@@ -14,6 +14,8 @@
 	    .globl map_kernel_restore
 	    .globl map_save
 	    .globl map_restore
+	    .globl map_save_kmap
+	    .globl map_restore_kmap
 
             ; imported symbols
 	    .globl _program_vectors	
@@ -41,6 +43,8 @@ mark_pages:
 	    ld (hl),a
 	    djnz mark_pages
 scan_pages:
+	    out (c),a			; bank 0
+	    ld (hl),#0xff		; so we catch any wrapping
 	    ld b,#2
 scan_pages_l:
 	    out (c),b
@@ -127,8 +131,11 @@ map_process_a:			; used by bankfork
 map_process_save:
 map_process_always:
 	    push af
-	    ld a, (map_reg);
-	    ld (map_store), a
+	    ld a, (map_reg)
+	    ld (ksave_map), a
+	    ld a,(U_DATA__U_PAGE)
+	    ld (map_reg),a
+	    out (0x43),a
 	    pop af
 	    ret
 
@@ -146,6 +153,15 @@ map_restore:
 	    pop af
 	    ret
 
+map_save_kmap:
+	    ld a,(map_reg)
+	    ret
+
+map_restore_kmap:
+	    ld (map_reg),a
+	    out (0x43),a
+	    ret
+
 ;
 ;	This lot is tricky.
 ;