bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Do the IIgs check as documented

Browse Source
This commit is contained in:
Colin Leroy-Mira
2023-10-11 08:47:45 +02:00
committed by Oliver Schmidt
parent e3759a3ead
commit 39d6080945
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -314,20 +314,19 @@ SER_CLOSE:
SER_OPEN: SER_OPEN:
bit $C082 ; Check if this is a IIgs bit $C082 ; Check if this is a IIgs
lda $FE1F ; https://prodos8.com/docs/technote/misc/07/ sec
cmp #$60 ; Everything but the IIgs has an RTS there jsr $FE1F ; https://prodos8.com/docs/technote/misc/07/
bne HardwareFound bcc IIgs
; Device (hardware) not found
bit $C080 bit $C080
lda #SER_ERR_NO_DEVICE lda #SER_ERR_NO_DEVICE ; Not a IIgs
SetupErrOut: SetupErrOut:
cli cli
ldx #$00 ; Promote char return value ldx #$00 ; Promote char return value
stx Opened ; Mark port closed stx Opened ; Mark port closed
rts rts
HardwareFound: IIgs:
bit $C080 bit $C080
sei ; Disable interrupts sei ; Disable interrupts