|
|
@ -209,6 +209,7 @@ AY38910_INIT: |
|
|
OUT (AY_ACR),A ; SET INIT AUX CONTROL REG |
|
|
OUT (AY_ACR),A ; SET INIT AUX CONTROL REG |
|
|
#ENDIF |
|
|
#ENDIF |
|
|
; |
|
|
; |
|
|
|
|
|
#IF (!AY_FORCE) |
|
|
LD DE,(AY_R2CHBP*256)+$55 ; SIMPLE HARDWARE PROBE |
|
|
LD DE,(AY_R2CHBP*256)+$55 ; SIMPLE HARDWARE PROBE |
|
|
CALL AY_WRTPSG ; WRITE AND |
|
|
CALL AY_WRTPSG ; WRITE AND |
|
|
CALL AY_RDPSG ; READ TO A |
|
|
CALL AY_RDPSG ; READ TO A |
|
|
@ -221,6 +222,8 @@ AY38910_INIT: |
|
|
LD A,$FF ; UNSUCCESSFULL INIT |
|
|
LD A,$FF ; UNSUCCESSFULL INIT |
|
|
RET |
|
|
RET |
|
|
; |
|
|
; |
|
|
|
|
|
#ENDIF |
|
|
|
|
|
; |
|
|
AY_FND: |
|
|
AY_FND: |
|
|
LD IY, AY_IDAT ; SETUP FUNCTION TABLE |
|
|
LD IY, AY_IDAT ; SETUP FUNCTION TABLE |
|
|
LD BC, AY_FNTBL ; POINTER TO INSTANCE DATA |
|
|
LD BC, AY_FNTBL ; POINTER TO INSTANCE DATA |
|
|
|