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

Move hardware check to ser_install

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

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

@ -270,8 +270,23 @@ WriteAreg:
SER_INSTALL:
SER_UNINSTALL:
SER_CLOSE:
; Check if this is a IIgs (Apple II Miscellaneous TechNote #7,
; Apple II Family Identification)
sec
bit $C082
jsr $FE1F
bit $C080
bcc IIgs
lda #SER_ERR_NO_DEVICE ; Not a IIgs
ldx #$00 ; Promote char return value
rts
IIgs:
ldx Opened ; Check for open port
beq :+
ldx Channel
; Deactivate interrupts
@ -313,24 +328,6 @@ SER_CLOSE:
; Must return an SER_ERR_xx code in a/x.
SER_OPEN:
; Check if this is a IIgs (Apple II Miscellaneous TechNote #7,
; Apple II Family Identification)
sec
bit $C082
jsr $FE1F
bit $C080
bcc IIgs
lda #SER_ERR_NO_DEVICE ; Not a IIgs
SetupErrOut:
cli
ldx #$00 ; Promote char return value
stx Opened ; Mark port closed
rts
IIgs:
sei
; Check if the handshake setting is valid
@ -341,7 +338,8 @@ IIgs:
InvParam:
lda #SER_ERR_INIT_FAILED
jmp SetupErrOut
ldy #$00 ; Mark port closed
jmp SetupOut
SetupBufs:
; Initialize buffers
@ -479,12 +477,14 @@ IntA:
StoreFlag:
sta SER_FLAG
ldy #$01 ; Mark port opened
sty Opened
cli
ldy #$01 ; Mark port opened
lda #SER_ERR_OK
.assert SER_ERR_OK = 0, error
tax
SetupOut:
ldx #$00 ; Promote char return value
sty Opened
rts
;----------------------------------------------------------------------------