|
|
|
@ -64,7 +64,7 @@ AY_IDAT .EQU 0 ; NO INSTANCE DATA ASSOCIATED WITH THIS DEVICE |
|
|
|
; |
|
|
|
; DEVICE CAPABILITIES AND CONFIGURATION |
|
|
|
; |
|
|
|
SBCV2004 .EQU 0 ; USE SBC-V2-004 HALF CLOCK DIVIDER |
|
|
|
SBCV2004 .EQU 0 ; USE SBC-V2-004 HALF CLOCK DIVIDER |
|
|
|
; |
|
|
|
AY_TONECNT .EQU 3 ; COUNT NUMBER OF TONE CHANNELS |
|
|
|
AY_NOISECNT .EQU 1 ; COUNT NUMBER OF NOISE CHANNELS |
|
|
|
@ -96,17 +96,17 @@ AY38910_INIT: |
|
|
|
LD A,$FF ; ACTIVATE DEVICEBIT 4 IS AY RESET CONTROL, BIT 3 IS ACTIVE LED |
|
|
|
OUT (AY_ACR),A ; SET INIT AUX CONTROL REG |
|
|
|
#ENDIF |
|
|
|
|
|
|
|
; |
|
|
|
LD D,AY_R2CHBP ; SIMPLE HARDWARE PROBE |
|
|
|
LD E,$AA |
|
|
|
LD E,$55 |
|
|
|
CALL AY_WRTPSG ; WRITE AND |
|
|
|
CALL AY_RDPSG |
|
|
|
LD A,$AA |
|
|
|
CP E |
|
|
|
CALL AY_RDPSG ; READ TO A |
|
|
|
LD A,$55 ; SOUND CHANNEL |
|
|
|
CP E ; REGISTER |
|
|
|
JR Z,AY_FND |
|
|
|
|
|
|
|
; |
|
|
|
CALL PRTSTRD \ .TEXT " NOT PRESENT$" |
|
|
|
|
|
|
|
; |
|
|
|
LD A,$FF ; UNSUCCESSFULL INIT |
|
|
|
RET |
|
|
|
; |
|
|
|
@ -120,9 +120,9 @@ AY_FND: LD IY, AY_IDAT ; SETUP FUNCTION TABLE |
|
|
|
LD E,$07 ; SET VOLUME TO 50% |
|
|
|
CALL AY_SETV ; ON ALL CHANNELS |
|
|
|
; |
|
|
|
LD D,AY_R2CHBP ; BEEP ON CHANNEL B (CENTER) |
|
|
|
LD E,$55 |
|
|
|
CALL AY_WRTPSG ; R02 = $55 = 01010101 |
|
|
|
; LD D,AY_R2CHBP ; BEEP ON CHANNEL B (CENTER) |
|
|
|
; LD E,$55 |
|
|
|
; CALL AY_WRTPSG ; R02 = $55 = 01010101 |
|
|
|
LD D,AY_R3CHBP |
|
|
|
LD E,$00 |
|
|
|
CALL AY_WRTPSG ; R03 = $00 = XXXX0000 |
|
|
|
|