|
|
|
@ -4,7 +4,7 @@ |
|
|
|
; |
|
|
|
;====================================================================== |
|
|
|
; |
|
|
|
#include "cfg_state.inc" |
|
|
|
;#include "cfg_state.inc" |
|
|
|
; |
|
|
|
AY_RCSND .EQU 0 ; 0 = EB MODULE, 1=MF MODULE |
|
|
|
; |
|
|
|
@ -67,7 +67,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 1 ; 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 |
|
|
|
@ -129,7 +129,7 @@ AY_FND: LD IY, AY_IDAT ; SETUP FUNCTION TABLE |
|
|
|
LD DE,(AY_R3CHBP*256)+$00 |
|
|
|
CALL AY_WRTPSG ; R03 = $00 = XXXX0000 |
|
|
|
; |
|
|
|
#IF SYSTIMEN |
|
|
|
#IF (SYSTIM != TM_NONE) |
|
|
|
LD A, TICKFREQ / 3 ; SCHEDULE IN 1/3 SECOND TO TURN OFF SOUND |
|
|
|
LD (AY_TIMTIK), A |
|
|
|
; |
|
|
|
@ -151,7 +151,7 @@ AY_FND: LD IY, AY_IDAT ; SETUP FUNCTION TABLE |
|
|
|
XOR A ; SUCCESSFULL INIT |
|
|
|
RET |
|
|
|
; |
|
|
|
#IF SYSTIMEN |
|
|
|
#IF (SYSTIM != TM_NONE) |
|
|
|
AY_TIMER: |
|
|
|
LD A, (AY_TIMTIK) |
|
|
|
DEC A |
|
|
|
@ -259,8 +259,8 @@ AY_NOTE: |
|
|
|
AUDTRACE_HL |
|
|
|
AUDTRACE_CR |
|
|
|
; |
|
|
|
; CALL PRTHEXWORDHL |
|
|
|
; CALL PC_COLON |
|
|
|
CALL PRTHEXWORDHL |
|
|
|
CALL PC_COLON |
|
|
|
; |
|
|
|
LD DE, AY3NOTETBL ; ON ENTRY HL IS THE NOTE TO PLAY |
|
|
|
PUSH DE ; AND DE IS THE START OF NOTE TABLE |
|
|
|
@ -284,8 +284,8 @@ AY_NOTE1: |
|
|
|
RR L ; FOR THE DESIRED OCTAVE |
|
|
|
DJNZ AY_NOTE1 ; FALL THROUGH TO SET PERIOD AND RANGE CHECK |
|
|
|
; |
|
|
|
; CALL PRTHEXWORDHL |
|
|
|
; CALL NEWLINE |
|
|
|
CALL PRTHEXWORDHL |
|
|
|
CALL NEWLINE |
|
|
|
; |
|
|
|
;====================================================================== |
|
|
|
; SOUND DRIVER FUNCTION - PERIOD |
|
|
|
|