From 135edb48d254eef5fc6899b36c6e7ceab3ba8d18 Mon Sep 17 00:00:00 2001
From: Duncan Smith
Date: Sat, 19 Jun 2010 11:49:03 -0700
Subject: Fixes to port IO

---
 ports.asm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/ports.asm b/ports.asm
index b518f65..6958e3c 100644
--- a/ports.asm
+++ b/ports.asm
@@ -8,12 +8,6 @@ port_in:
 	jmp	(a0)
 	rts
 
-port_out:
-	;; Fix this to work properly ...
-;	movea	lut_ports_in(pc,d0),a0
-	jmp	(a0)
-	rts
-
 lut_ports_in:
 	dc.l	port_in_00
 	dc.l	port_in_01
@@ -272,6 +266,11 @@ lut_ports_in:
 	dc.l	port_in_fe
 	dc.l	port_in_ff
 
+port_out:
+	movea	lut_ports_out(pc,d0.w),a0
+	jmp	(a0)
+	rts
+
 lut_ports_out:
 	dc.l	port_out_00
 	dc.l	port_out_01
@@ -632,7 +631,7 @@ port_out_10_01:		; 8-bit mode
 	rts
 port_out_10_02:		; screen off
 	move.b	#$20,p10_enabled
-	rtsp
+	rts
 port_out_10_03:		; screen on
 	move.b	#$00,p10_enabled
 	rts
-- 
cgit v1.2.3