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
;
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_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
OUT (AY_ACR),A ; SET INIT AUX CONTROL REG
#ENDIF
;
LD D,AY_R2CHBP ; SIMPLE HARDWARE PROBE
LD E,$AA
LD E,$55
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
;
CALL PRTSTRD \ .TEXT " NOT PRESENT$"
;
LD A,$FF ; UNSUCCESSFULL INIT
RET
;
@ -120,9 +120,9 @@ AY_FND: LD IY, AY_IDAT ; SETUP FUNCTION TABLE
LD E,$07 ; SET VOLUME TO 50%
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 E,$00
CALL AY_WRTPSG ; R03 = $00 = XXXX0000

Loading…
Cancel
Save