Browse Source

Update ay38910.asm

pull/134/head
b1ackmai1er 6 years ago
parent
commit
78c11124e2
  1. 16
      Source/HBIOS/ay38910.asm

16
Source/HBIOS/ay38910.asm

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

Loading…
Cancel
Save