mirror of https://github.com/wwarthen/RomWBW.git
b1ackmai1er
6 years ago
14 changed files with 56 additions and 223 deletions
@ -1,122 +0,0 @@ |
|||||
; |
|
||||
;====================================================================== |
|
||||
; PSG AY-3-8910 DRIVER FOR CONSOLE BELL |
|
||||
; WILL ALSO WORK WITH YM2149 |
|
||||
;====================================================================== |
|
||||
; |
|
||||
#IF (AYMODE == AYMODE_SCG) |
|
||||
AY_RSEL .EQU $9A |
|
||||
AY_RDAT .EQU $9B |
|
||||
AY_ACR .EQU $9C |
|
||||
#ENDIF |
|
||||
; |
|
||||
#IF (AYMODE == AYMODE_N8) |
|
||||
AY_RSEL .EQU $9C |
|
||||
AY_RDAT .EQU $9D |
|
||||
AY_ACR .EQU N8_DEFACR |
|
||||
#ENDIF |
|
||||
; |
|
||||
#IF (AYMODE == AYMODE_RCZ80) |
|
||||
AY_RSEL .EQU $D8 |
|
||||
AY_RDAT .EQU $D0 |
|
||||
#ENDIF |
|
||||
; |
|
||||
#IF (AYMODE == AYMODE_RCZ180) |
|
||||
AY_RSEL .EQU $68 |
|
||||
AY_RDAT .EQU $60 |
|
||||
#ENDIF |
|
||||
; |
|
||||
AY_R0CHAP .EQU $00 |
|
||||
AY_R1CHAP .EQU $01 |
|
||||
AY_R2CHBP .EQU $02 |
|
||||
AY_R3CHBP .EQU $03 |
|
||||
AY_R7ENAB .EQU $07 |
|
||||
AY_R8AVOL .EQU $08 |
|
||||
AY_R9BVOL .EQU $09 |
|
||||
; |
|
||||
;====================================================================== |
|
||||
; PSG AY-3-8910 DRIVER - INITIALIZATION |
|
||||
;====================================================================== |
|
||||
; |
|
||||
AY_INIT: |
|
||||
CALL NEWLINE ; FORMATTING |
|
||||
PRTS("AY: IO=0x$") |
|
||||
LD A,AY_RSEL |
|
||||
CALL PRTHEXBYTE |
|
||||
CALL AY_PROBE ; CHECK FOR HW EXISTENCE |
|
||||
JR Z,AY_INIT1 ; CONTINUE IF PRESENT |
|
||||
; |
|
||||
; HARDWARE NOT PRESENT |
|
||||
; |
|
||||
PRTS(" NOT PRESENT$") |
|
||||
OR $FF ; SIGNAL FAILURE |
|
||||
RET |
|
||||
; |
|
||||
AY_INIT1: |
|
||||
CALL AY_INIT2 |
|
||||
CALL AY_BEEP |
|
||||
AY_INIT2: |
|
||||
LD D,AY_R7ENAB ; SET MIXER CONTROL / IO ENABLE |
|
||||
LD E,$F8 ; $FF - 11 111 111 |
|
||||
CALL AY_WRTPSG ; I/O PORTS DISABLED, NOISE CHANNEL C, B, A DISABLE, TONE CHANNEL C, B, A ENABLE |
|
||||
; |
|
||||
LD B,3 |
|
||||
LD D,AY_R8AVOL ; SET VOLUME TO 0 |
|
||||
LD E,$00 |
|
||||
AY_QUIET: |
|
||||
CALL AY_WRTPSG ; CYCLING THROUGH ALL CHANNELS |
|
||||
INC A |
|
||||
DJNZ AY_QUIET |
|
||||
RET |
|
||||
; |
|
||||
; PLAY A BEEP TONE ON CENTER CHANNEL (LEFT AND RIGHT SPEAKERS) |
|
||||
; |
|
||||
AY_BEEP: |
|
||||
LD D,AY_R2CHBP ; SET TONE PERIOD |
|
||||
LD E,$55 ; CHANNEL B - R02 & R03 |
|
||||
CALL AY_WRTPSG ; $0055 = XXXX0000 01010101 |
|
||||
LD D,AY_R3CHBP |
|
||||
LD E,0 |
|
||||
CALL AY_WRTPSG |
|
||||
; |
|
||||
LD D,AY_R7ENAB ; $FD = 11 111 101 |
|
||||
LD E,$FD ; SET MIXER CONTROL / IO ENABLE |
|
||||
CALL AY_WRTPSG ; I/O PORTS DISABLED, NOISE CHANNEL C, B, A DISABLE, TONE CHANNEL B ENABLE |
|
||||
; |
|
||||
LD D,AY_R9BVOL |
|
||||
LD E,$07 ; SET CHANNEL B VOLUME TO 50% (7/16) |
|
||||
CALL AY_WRTPSG |
|
||||
; |
|
||||
CALL LDELAY ; HALF SECOND |
|
||||
RET |
|
||||
; |
|
||||
; WRITE DATA E TO PSG REG D |
|
||||
; |
|
||||
AY_WRTPSG: |
|
||||
HB_DI |
|
||||
#IF (CPUFAM == CPU_Z180) |
|
||||
IN0 A,(Z180_DCNTL) ; GET WAIT STATES |
|
||||
PUSH AF ; SAVE VALUE |
|
||||
OR %00110000 ; FORCE SLOW OPERATION (I/O W/S=3) |
|
||||
OUT0 (Z180_DCNTL),A ; AND UPDATE DCNTL |
|
||||
#ENDIF |
|
||||
LD A,D ; SELECT THE REGISTER WE |
|
||||
OUT (AY_RSEL),A ; WANT TO WRITE TO |
|
||||
LD A,E ; WRITE THE VALUE TO |
|
||||
OUT (AY_RDAT),A ; THE SELECTED REGISTER |
|
||||
#IF (CPUFAM == CPU_Z180) |
|
||||
POP AF ; GET SAVED DCNTL VALUE |
|
||||
OUT0 (Z180_DCNTL),A ; AND RESTORE IT |
|
||||
#ENDIF |
|
||||
HB_EI |
|
||||
RET |
|
||||
; |
|
||||
; CHECK THERE IS A DEVICE PRESENT |
|
||||
; |
|
||||
AY_PROBE: |
|
||||
#IF ((AYMODE == AYMODE_SCG) | (AYMODE == AYMODE_N8)) |
|
||||
LD A,$FF |
|
||||
OUT (AY_ACR),A ; INIT AUX CONTROL REG |
|
||||
#ENDIF |
|
||||
XOR A |
|
||||
RET |
|
||||
Loading…
Reference in new issue