|
|
|
@ -20,7 +20,7 @@ AY_RIN .EQU AY_RSEL |
|
|
|
AY_ACR .EQU N8_DEFACR |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
#IF (AYMODE == AYMODE_RCZ80) |
|
|
|
#IF (AYMODE == AYMODE_RCZ80) |
|
|
|
AY_RSEL .EQU $D8 |
|
|
|
AY_RDAT .EQU $D0 |
|
|
|
AY_RIN .EQU AY_RSEL+AY_RCSND |
|
|
|
@ -71,7 +71,7 @@ AY_NOISECNT .EQU 1 ; COUNT NUMBER OF NOISE CHANNELS |
|
|
|
; |
|
|
|
AY_PHICLK .EQU 3579545 ; MSX NTSC COLOUR BURST FREQ = 315/88 |
|
|
|
;AY_PHICLK .EQU 3500000 ; ZX SPECTRUM 3.5MHZ |
|
|
|
;AY_PHICLK .EQU 4000000 ; RETROBREW SCB-SCG |
|
|
|
;AY_PHICLK .EQU 4000000 ; RETROBREW SCB-SCG |
|
|
|
AY_CLKDIV .EQU 2 |
|
|
|
AY_CLK .EQU AY_PHICLK / AY_CLKDIV |
|
|
|
AY_RATIO .EQU AY_CLK * 100 / 16 |
|
|
|
@ -99,7 +99,7 @@ AY38910_INIT: |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
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 |
|
|
|
LD A,$55 ; SOUND CHANNEL |
|
|
|
CP E ; REGISTER |
|
|
|
@ -107,7 +107,7 @@ AY38910_INIT: |
|
|
|
; |
|
|
|
CALL PRTSTRD \ .TEXT " NOT PRESENT$" |
|
|
|
; |
|
|
|
LD A,$FF ; UNSUCCESSFULL INIT |
|
|
|
LD A,$FF ; UNSUCCESSFULL INIT |
|
|
|
RET |
|
|
|
; |
|
|
|
AY_FND: LD IY, AY_IDAT ; SETUP FUNCTION TABLE |
|
|
|
@ -275,7 +275,7 @@ AY_PLAY: |
|
|
|
INC A |
|
|
|
JR Z, AY_PLAY1 ; PERIOD IS TOO LARGE, UNABLE TO PLAY |
|
|
|
; |
|
|
|
PUSH HL |
|
|
|
PUSH HL |
|
|
|
PUSH DE |
|
|
|
LD A,D ; LIMIT CHANNEL 0-2 |
|
|
|
AND $3 ; AND INDEX TO THE |
|
|
|
@ -460,7 +460,7 @@ AYT_REGWR .DB "\r\nOUT AY-3-8910 $" |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
;====================================================================== |
|
|
|
; BBC MICRO QUARTER TONE FREQUENCY TABLE |
|
|
|
; BBC MICRO QUARTER TONE FREQUENCY TABLE |
|
|
|
;====================================================================== |
|
|
|
; |
|
|
|
AY3NOTETBL: |
|
|
|
|