From 53270267b8c6f11067bcfe306d9ee0b96ba0581b Mon Sep 17 00:00:00 2001
From: Duncan Smith
Date: Sat, 26 Jun 2010 21:33:19 -0700
Subject: Added bank-swapping routines (incomplete: doesn't implement memory
 map mode 1)

---
 ports.asm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'ports.asm')

diff --git a/ports.asm b/ports.asm
index b2587aa..815a69c 100644
--- a/ports.asm
+++ b/ports.asm
@@ -539,10 +539,24 @@ port_in_03:
 port_out_03:
 port_in_04:
 port_out_04:
+	;; Bank B paging
+	;; XXX save registers
+	move.b	d1,-(a7)
+	jsr	bankswap_b_write
+	addq	2,a7
+	rts
+
 port_in_05:
 port_out_05:
 port_in_06:
 port_out_06:
+	;; Bank A paging
+	;; XXX save registers
+	move.b	d1,-(a7)
+	jsr	bankswap_a_write
+	addq	2,a7
+	rts
+
 port_in_07:
 port_out_07:
 port_in_08:
@@ -663,6 +677,7 @@ port_out_10_set_row:
 
 port_in_11:
 	;; LCD data
+	;; XXX save registers
 	jsr	video_read
 	move.b	d0,d1		; return value
 	rts
@@ -670,7 +685,9 @@ port_in_11:
 port_out_11:
 	;; LCD data
 	move.b	d1,-(a7)
-	bra	video_write
+	;; XXX save registers
+	jsr	video_write
+	rts
 
 port_in_12:
 port_out_12:
-- 
cgit v1.2.3