6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-15 02:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Address code review comments

Browse Source
This commit is contained in:
Colin Leroy-Mira 2023-10-11 12:54:12 +02:00 committed by Oliver Schmidt
parent 39d6080945
commit e90a8f3123
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -305,7 +305,7 @@ SER_CLOSE:
stx Opened ; Mark port as closed
cli
: txa
: txa ; Promote char return value
rts
;----------------------------------------------------------------------------
@ -313,13 +313,17 @@ SER_CLOSE:
; Must return an SER_ERR_xx code in a/x.
SER_OPEN:
bit $C082 ; Check if this is a IIgs
; Check if this is a IIgs (Apple II Miscellaneous TechNote #7,
; Apple II Family Identification)
sec
jsr $FE1F ; https://prodos8.com/docs/technote/misc/07/
bit $C082
jsr $FE1F
bit $C080
bcc IIgs
bit $C080
lda #SER_ERR_NO_DEVICE ; Not a IIgs
SetupErrOut:
cli
ldx #$00 ; Promote char return value
@ -327,8 +331,7 @@ SetupErrOut:
rts
IIgs:
bit $C080
sei ; Disable interrupts
sei
; Check if the handshake setting is valid
ldy #SER_PARAMS::HANDSHAKE ; Handshake