6502
/
cc65
mirror of https://github.com/cc65/cc65.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Removed baud rates from 150 and lower. 

Fixed tab
Replaced uploader references to SERIAL_INTERRUPT
This commit is contained in:
Alex Thissen 2024-02-10 21:15:05 +00:00
parent 65bce9ecde
commit 6cf8ee8eb5
2 changed files with 5 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
libsrc/lynx/ser/lynx-comlynx.s
View File

@ -158,33 +158,6 @@ SER_OPEN:
cmp #SER_BAUD_300
beq setbaudrate
ldx #103
cmp #SER_BAUD_150
beq setbaudrate
ldx #115
cmp #SER_BAUD_134_5
beq setbaudrate
ldx #141
cmp #SER_BAUD_110
beq setbaudrate
; Source period is 32 us
ldy #%00011101 ; ENABLE_RELOAD|ENABLE_COUNT|AUD_32
ldx #51
cmp #SER_BAUD_75
beq setbaudrate
ldx #68
cmp #SER_BAUD_56_875
beq setbaudrate
ldx #77
cmp #SER_BAUD_50
beq setbaudrate
lda #SER_ERR_BAUD_UNAVAIL
ldx #0 ; return value is char
rts
@ -342,8 +315,8 @@ SER_IRQ:
lda contrl
and #PAREN ; Parity enabled implies SER_PAR_EVEN or SER_PAR_ODD
tay
ora #OVERRUN|FRAMERR|RXBRK
bit SERCTL ; Check error flags in SERCTL
ora #OVERRUN|FRAMERR|RXBRK
bit SERCTL ; Check presence of relevant error flags in SERCTL
beq @rx_irq ; No errors so far

6
libsrc/lynx/uploader.s
View File

@ -40,14 +40,14 @@ cont1:
bra loop1
read_byte:
bit SERCTL
bit SERCTL ; Check for RXRDY ($40)
bvc read_byte
lda SERDAT
rts
_UpLoaderIRQ:
lda INTSET
and #$10
and #SERIAL_INTERRUPT
bne @L0
clc
rts
@ -69,7 +69,7 @@ again:
; last action : clear interrupt
;
exit:
lda #$10
lda #SERIAL_INTERRUPT
sta INTRST
clc
rts