From: Alan Cox <alan@linux.intel.com>
Date: Wed, 4 Jul 2018 00:48:51 +0000 (+0100)
Subject: trs80m1: support Model III speedup board
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=f182aed4418fe24e1604ef0233574dae7d83ebed;p=FUZIX.git

trs80m1: support Model III speedup board
---

diff --git a/Kernel/platform-trs80m1/trs80.s b/Kernel/platform-trs80m1/trs80.s
index 76ac51d8..22cc4e8c 100644
--- a/Kernel/platform-trs80m1/trs80.s
+++ b/Kernel/platform-trs80m1/trs80.s
@@ -135,24 +135,38 @@ not_vg:
 ;
 ;	TRS80 speed control. Save anything used except AF
 ;	The LNW80 does automatic slowing on floppy disk access
-;	The Model 3 sprinter type card uses port 95h the same way but
-;	also does automatic slow down when needed
+;	The Model 3 sprinter type card uses port 95 the same way but
+;	also does automatic slow down when needed.
 ;
 ;	Only allowed to mess with AF
 ;
 go_slow:
 	    ld a,(_trs80_model)
 	    or a
-	    ret nz
+	    jr nz, snot_model_1
+	    ; A = 0
 	    out (254),a
 	    ret
+snot_model_1:
+	    cp #1		; model III ?
+	    ret nz
+	    xor a
+	    out (95),a
+	    ret
 go_fast:
 	    ld a,(_trs80_model)
 	    or a
-	    ret nz
+	    jr nz,fnot_model_1
+	    ; A = 0
 	    inc a
 	    out (254),a
 	    ret
+fnot_model_1:
+	    cp #1
+	    ret nz
+	    ; A = 1
+	    out (95),a
+	    ret
 
 _program_vectors:
 	    ret