From 5a7604d84478ef8b37151ac4b9f2145c1bf6d705 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9my=20GIBERT?= <burniouf@users.noreply.github.com>
Date: Mon, 4 Jan 2016 08:22:57 +0100
Subject: [PATCH] Workaround for IRQ support in Applewin

---
 DRV/SSC.I.DRV.S.txt | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/DRV/SSC.I.DRV.S.txt b/DRV/SSC.I.DRV.S.txt
index 5d533737..27d4378d 100644
--- a/DRV/SSC.I.DRV.S.txt
+++ b/DRV/SSC.I.DRV.S.txt
@@ -195,7 +195,7 @@ OPEN			php
 				
 				lda SSC.REG.DATA,x		discard any garbage byte
 				lda SSC.REG.STATUS,x	clear any IRQ pending
-				bmi *
+
 				plp
 				clc
 				rts
@@ -240,6 +240,7 @@ COUT			php
 
 				ldx DEVSLOTn0
 				lda SSC.REG.STATUS,x
+				
 				bit #SSC.REG.STATUS.DCD+SSC.REG.STATUS.DSR		true when 0
 				bne .9
 				
@@ -271,7 +272,7 @@ COUT			php
 				
 				inc OUTBUF.CNT
 				
-				ldx DEVSLOTn0
+*				ldx DEVSLOTn0
 				lda #SSC.REG.CMD.TEIRQ+SSC.REG.CMD.DTR
 				sta SSC.REG.CMD,x
 				plp
@@ -299,7 +300,7 @@ GETINFO			>LDYA L.DEVINFO
 *--------------------------------------
 IRQ				ldx DEVSLOTn0
 				lda SSC.REG.STATUS,x	IRQ from this device ?
-				bpl .9					no, exit
+*				bpl .9					no, exit !!!!Applewin bug #308!!!!
 
 				bit #SSC.REG.STATUS.RDRF	incoming char?
 				beq .1					
@@ -318,9 +319,9 @@ IRQ				ldx DEVSLOTn0
 				tax
 				tya						get back data
 				sta INBUF,x
+
 				inc INBUF.CNT
-				clc
-				rts
+				bra IRQ					start over if 
 				
 *------------ IRQ Out