mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:13:13 -06:00
Update ay38910.asm
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user