Browse Source

Update ay38910.asm

pull/121/head
b1ackmai1er 6 years ago
parent
commit
2ec05940f7
  1. 22
      Source/HBIOS/ay38910.asm

22
Source/HBIOS/ay38910.asm

@ -64,7 +64,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 0 ; 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
@ -96,17 +96,17 @@ AY38910_INIT:
LD A,$FF ; ACTIVATE DEVICEBIT 4 IS AY RESET CONTROL, BIT 3 IS ACTIVE LED LD A,$FF ; ACTIVATE DEVICEBIT 4 IS AY RESET CONTROL, BIT 3 IS ACTIVE LED
OUT (AY_ACR),A ; SET INIT AUX CONTROL REG OUT (AY_ACR),A ; SET INIT AUX CONTROL REG
#ENDIF #ENDIF
;
LD D,AY_R2CHBP ; SIMPLE HARDWARE PROBE LD D,AY_R2CHBP ; SIMPLE HARDWARE PROBE
LD E,$AA
LD E,$55
CALL AY_WRTPSG ; WRITE AND 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 JR Z,AY_FND
;
CALL PRTSTRD \ .TEXT " NOT PRESENT$" CALL PRTSTRD \ .TEXT " NOT PRESENT$"
;
LD A,$FF ; UNSUCCESSFULL INIT LD A,$FF ; UNSUCCESSFULL INIT
RET RET
; ;
@ -120,9 +120,9 @@ AY_FND: LD IY, AY_IDAT ; SETUP FUNCTION TABLE
LD E,$07 ; SET VOLUME TO 50% LD E,$07 ; SET VOLUME TO 50%
CALL AY_SETV ; ON ALL CHANNELS 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 D,AY_R3CHBP
LD E,$00 LD E,$00
CALL AY_WRTPSG ; R03 = $00 = XXXX0000 CALL AY_WRTPSG ; R03 = $00 = XXXX0000

Loading…
Cancel
Save