Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-12-28 10:29:49 +00:00
Code Issues Projects Releases Wiki Activity

Workaround for IRQ support in Applewin

Browse Source
This commit is contained in:
Rémy GIBERT 2016-01-04 08:22:57 +01:00
parent ad3e56f067
commit 5a7604d844
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
DRV/SSC.I.DRV.S.txt
View File

@ -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