Mercurial > hg > Members > kono > nitros9-code

changeset 1443:13114abbf030

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sacia still not quite ported
author boisy
date Tue, 09 Dec 2003 23:44:10 +0000
parents f95ffaf7d745
children cf0fe1a6a5f1
files level2/modules/sacia.asm
diffstat 1 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/sacia.asm	Thu Dec 04 13:14:10 2003 +0000
+++ b/level2/modules/sacia.asm	Tue Dec 09 23:44:10 2003 +0000
@@ -284,6 +284,9 @@
            IFNE  H6309
            aim   #$FC,>PIA1Base+3
            ELSE
+           lda   >PIA1Base+3
+           anda  #$FC
+           sta   >PIA1Base+3
            ENDC
            lda   >PIA1Base+2    clear possible pending PIA CART* FIRQ
            ENDC
@@ -365,6 +368,8 @@
            IFNE  H6309
            tim   #Condem,P$State,x
            ELSE
+           ldb   P$State,x
+           bitb  #Condem
            ENDC
            bne   PrAbtErr       yes, go do it...
            ldb   <V.WAKE        true interrupt?
@@ -396,6 +401,10 @@
            IFNE  H6309
            tim   #Stat.TxE,StatReg,x
            ELSE
+           pshs  a
+           lda   StatRegx
+           bita  #Stat.TxE
+           puls  a
            ENDC
            beq   ReadLp2        no, go skip XON this time...
            ldb   <V.XON
@@ -508,6 +517,10 @@
            IFNE  H6309
            tim   #Stat.TxE,StatReg,x
            ELSE
+           pshs  a
+           lda   StatReg,x
+           bita  #Stat.TxE
+           puls  a 
            ENDC
            beq   WritLoop       no, go sleep a while...
            IFNE  H6309