Apple-2-Tools
/
apple2pi
mirror of https://github.com/dschmenk/apple2pi.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Wait for IRQ to clear

This commit is contained in:
David Schmenk 2023-04-02 15:16:47 -07:00
parent 92909f2bb7
commit 01bd0d884d
3 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
client/BUILD/a2pi.wdc.s
View File

@ -262,18 +262,22 @@ SENDACC PHP
SEI ; Disable interrupts
PHA
LDA SSCSLOT
ORA #$88+1
ORA #$89+1
TAY
LDA #$07
STA $C002-1,Y ; Enable transmit IRQ
LDA $C001-1,Y ; Clear any oustanding interrupts
STA $C002-2,Y ; Enable transmit IRQ
LDA $C001-2,Y ; Clear any oustanding interrupts
PLA
STA $C000-1,Y ; AVOID PHANTOM READ FROM $C0XX
SENDWT LDA $C001-1,Y
STA $C000-2,Y ; AVOID PHANTOM READ FROM $C0XX
PHA
SENDWT LDA $C001-2,Y
; AND #$80 ; Check IRQ status
BPL SENDWT
LDA #$0B ; Disable transmit IRQ
STA $C002-1,Y
STA $C002-2,Y
IRQWT LDA $C001-2,Y ; Wait for IRQ to clear
BMI IRQWT
PLA
PLP ; Restore interrupts
RTS
*
@ -282,7 +286,7 @@ SENDWT LDA $C001-1,Y
RECVACC LDA SSCSLOT
ORA #$89+1
TAY
RECVWT LDA $C000-1,Y
RECVWT LDA $C001-2,Y
AND #$08
BEQ RECVWT
LDA $C000-2,Y

18
client/BUILD/a2pluspi.wdc.s
View File

@ -231,18 +231,22 @@ SENDACC PHP
SEI ; Disable interrupts
PHA
LDA SSCSLOT
ORA #$88+1
ORA #$89+1
TAY
LDA #$07
STA $C002-1,Y ; Enable transmit IRQ
LDA $C001-1,Y ; Clear any oustanding interrupts
STA $C002-2,Y ; Enable transmit IRQ
LDA $C001-2,Y ; Clear any oustanding interrupts
PLA
STA $C000-1,Y ; AVOID PHANTOM READ FROM $C0XX
SENDWT LDA $C001-1,Y
STA $C000-2,Y ; AVOID PHANTOM READ FROM $C0XX
PHA
SENDWT LDA $C001-2,Y
; AND #$80 ; Check IRQ status
BPL SENDWT
LDA #$0B ; Disable transmit IRQ
STA $C002-1,Y
STA $C002-2,Y
IRQWT LDA $C001-2,Y ; Wait for IRQ to clear
BMI IRQWT
PLA
PLP ; Restore interrupts
RTS
*
@ -251,7 +255,7 @@ SENDWT LDA $C001-1,Y
RECVACC LDA SSCSLOT
ORA #$89+1
TAY
RECVWT LDA $C000-1,Y
RECVWT LDA $C001-2,Y
AND #$08
BEQ RECVWT
LDA $C000-2,Y

BIN
share/A2PI-WDC.1.7.PO
View File

Binary file not shown.