|
|
@ -15,12 +15,19 @@ SIO_DEBUG .EQU FALSE |
|
|
SIO_NONE .EQU 0 |
|
|
SIO_NONE .EQU 0 |
|
|
SIO_SIO .EQU 1 |
|
|
SIO_SIO .EQU 1 |
|
|
; |
|
|
; |
|
|
; |
|
|
|
|
|
; |
|
|
|
|
|
|
|
|
#IF (SIOMODE == SIOMODE_RC) |
|
|
SIOA_CMD .EQU $80 |
|
|
SIOA_CMD .EQU $80 |
|
|
SIOA_DAT .EQU $81 |
|
|
SIOA_DAT .EQU $81 |
|
|
SIOB_CMD .EQU $82 |
|
|
SIOB_CMD .EQU $82 |
|
|
SIOB_DAT .EQU $83 |
|
|
SIOB_DAT .EQU $83 |
|
|
|
|
|
#ENDIF |
|
|
|
|
|
; |
|
|
|
|
|
#IF (SIOMODE == SIOMODE_SMB) |
|
|
|
|
|
SIOA_CMD .EQU $80 |
|
|
|
|
|
SIOA_DAT .EQU $82 |
|
|
|
|
|
SIOB_CMD .EQU $81 |
|
|
|
|
|
SIOB_DAT .EQU $83 |
|
|
|
|
|
#ENDIF |
|
|
; |
|
|
; |
|
|
; |
|
|
; |
|
|
; |
|
|
; |
|
|
@ -306,6 +313,9 @@ SIO_OUT: |
|
|
JR Z,SIO_OUT ; LOOP IF NOT |
|
|
JR Z,SIO_OUT ; LOOP IF NOT |
|
|
LD C,(IY + 3) ; C := SIO CMD PORT |
|
|
LD C,(IY + 3) ; C := SIO CMD PORT |
|
|
INC C ; BUMP TO DATA PORT |
|
|
INC C ; BUMP TO DATA PORT |
|
|
|
|
|
#IF (SIOMODE == SIOMODE_SMB) |
|
|
|
|
|
INC C ; SMB SIO INC AGAIN |
|
|
|
|
|
#ENDIF |
|
|
OUT (C),E ; SEND CHAR FROM E |
|
|
OUT (C),E ; SEND CHAR FROM E |
|
|
XOR A ; SIGNAL SUCCESS |
|
|
XOR A ; SIGNAL SUCCESS |
|
|
RET |
|
|
RET |
|
|
|