6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-28 05:30:23 +00:00
Code Issues Projects Releases Wiki Activity

Implement SER_HS_NONE on Apple IIgs serial driver

Browse Source
This commit is contained in:
Colin Leroy-Mira 2023-11-06 20:05:35 +01:00 committed by Oliver Schmidt
parent fe115fb621
commit 86d498b7b3
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
libsrc/apple2/ser/a2.gs.s
View File

@ -61,6 +61,7 @@ SendFreeCnt: .res 1 ; Number of bytes in send buffer
Stopped: .res 1 ; Flow-stopped flag
RtsOff: .res 1
HSType: .res 1 ; Flow-control type
RecvBuf: .res 256 ; Receive buffers: 256 bytes
SendBuf: .res 256 ; Send buffers: 256 bytes
@ -333,8 +334,10 @@ SER_OPEN:
; Check if the handshake setting is valid
ldy #SER_PARAMS::HANDSHAKE ; Handshake
lda (ptr1),y
cmp #SER_HS_HW ; This is all we support
bne InvParam
cmp #SER_HS_SW ; Not supported
beq InvParam
sta HSType ; Store flow control type
; Initialize buffers
ldy #$00
@ -644,13 +647,16 @@ CheckSpecial:
sec
rts
Flow: ldx Channel ; Assert flow control if buffer space too low
Flow: lda HSType ; Don't touch if no flow control
beq IRQDone
ldx Channel ; Assert flow control if buffer space too low
ldy #WR_TX_CTRL
lda RtsOff
jsr writeSCCReg
sta Stopped
sec ; Interrupt handled
IRQDone:sec ; Interrupt handled
Done: rts
Special:ldx Channel