MirrorRepos
/
RomWBW
mirror of https://github.com/wwarthen/RomWBW.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity
Browse Source

vgmplay prelim ym2151 support + ym2612 mute

pull/293/head
b1ackmai1er 4 years ago
parent
c065af147a
commit
95f8c35c36
3 changed files with 441 additions and 98 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 24
      Source/Apps/Test/rzsz/rz.asm
  2. 513
      Source/Apps/VGM/vgmplay.asm
  3. 2
      Source/HBIOS/pio.asm

24
Source/Apps/Test/rzsz/rz.asm
View File

@ -327,9 +327,9 @@ bdos_s: call bdos
ret ret
;---------------------------------------------------------------------------- ;----------------------------------------------------------------------------
; S u b r o u t i n e
; Search for 0 terminated string starting at HL
sub_476: push af
Search0: push af
loc_477: push bc loc_477: push bc
xor a xor a
ld b,a ld b,a
@ -361,7 +361,7 @@ text495h: .db 0,0,0
sub_4A4: ld de,file_fcb sub_4A4: ld de,file_fcb
ld hl,byte_4F8 ld hl,byte_4F8
ld (hl),3Ah
ld (hl),':'
inc hl inc hl
xor a xor a
ld b,0Dh ld b,0Dh
@ -370,14 +370,14 @@ sub_4A4: ld de,file_fcb
call sub_16C4 call sub_16C4
dec de dec de
ld a,(de) ld a,(de)
add a,40h
add a,'A'-1
ld (byte_4F4),a ld (byte_4F4),a
dec de dec de
ld a,(de) ld a,(de)
ld de,byte_4F5 ld de,byte_4F5
call sub_16E7 call sub_16E7
ld a,24h
ld (byte_507),a
ld a,'$'
ld (term_fn),a
ld de,text4F2h ld de,text4F2h
ld c,C_WRITESTR ld c,C_WRITESTR
call bdos ; Output string call bdos ; Output string
@ -386,13 +386,13 @@ sub_4A4: ld de,file_fcb
or l or l
ret z ret z
ld b,1 ld b,1
call sub_476
call Search0
dec hl dec hl
ld (hl),24h
ld (hl),'$'
ld de,(byte_2CD4) ld de,(byte_2CD4)
ld c,C_WRITESTR ld c,C_WRITESTR
call bdos ; Output string call bdos ; Output string
ld de,text508h
ld de,newline
ld c,C_WRITESTR ld c,C_WRITESTR
jp bdos ; Output string jp bdos ; Output string
@ -418,8 +418,8 @@ byte_4F8: .db 0 ;
.db 0 ; .db 0 ;
.db 0 ; .db 0 ;
.db 20h ; .db 20h ;
byte_507: .db 0
text508h: .text "\r\n$"
term_fn: .db 0
newline: .text "\r\n$"
;---------------------------------------------------------------------------- ;----------------------------------------------------------------------------
; S u b r o u t i n e ; S u b r o u t i n e
@ -1278,7 +1278,7 @@ loc_9AE: ld a,(byte_8AF)
ret z ret z
push hl push hl
ld b,1 ld b,1
call sub_476
call Search0
dec hl dec hl
ld (hl),20h ld (hl),20h
pop hl pop hl

513
Source/Apps/VGM/vgmplay.asm
View File

@ -1,16 +1,17 @@
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; SN76489 + AY-3-8910 + YM2162 VGM player for CP/M
; SN76489 + AY-3-8910 + YM2162 + YM2151 VGM player for CP/M
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; ;
; Based on VGM player by J.B. Langston ; Based on VGM player by J.B. Langston
; https://github.com/jblang/SN76489 ; https://github.com/jblang/SN76489
; ;
; Enhanced with multi-chip support by Marco Maccaferri ; Enhanced with multi-chip support by Marco Maccaferri
; YM2151 support from Ed Brindley
; ;
; YM2162/YM3484, GD3 support, VGM Chip identification, ; YM2162/YM3484, GD3 support, VGM Chip identification,
; default file type, basic file size checking added by Phil Summers ; default file type, basic file size checking added by Phil Summers
; ;
; Bugs: YM2612 Mute not working.
; Bugs: YM2151 playback untested & no mute.
; ;
; Assemble with: ; Assemble with:
; ;
@ -20,84 +21,145 @@
; Device and system specific definitions ; Device and system specific definitions
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; ;
P8X180 .EQU 0 ; System configuration
P8X180 .EQU 0 ; System configuration
RC2014 .EQU 0 RC2014 .EQU 0
SBCECB .EQU 1 SBCECB .EQU 1
MBC .EQU 0
;
.IF P8X180 .IF P8X180
RSEL .EQU 82H ; Primary AY-3-8910 Register selection
RDAT .EQU 83H ; Primary AY-3-8910 Register data
RSEL2 .EQU 88H ; Secondary AY-3-8910 Register selection
RDAT2 .EQU 89H ; Secondary AY-3-8910 Register data
PSGREG .EQU 84H ; Primary SN76489
PSG2REG .EQU 8AH ; Secondary SN76489
FRAME_DLY .EQU 48 ; Frame delay (~ 1/44100)
RSEL .EQU 82H ; Primary AY-3-8910 Register selection
RDAT .EQU 83H ; Primary AY-3-8910 Register data
RSEL2 .EQU 88H ; Secondary AY-3-8910 Register selection
RDAT2 .EQU 89H ; Secondary AY-3-8910 Register data
PSG1REG .EQU 84H ; Primary SN76489
PSG2REG .EQU 8AH ; Secondary SN76489
YM2151_SEL1 .EQU 0B0H ; Primary YM2151 register selection
YM2151_DAT1 .EQU 0B1H ; Primary YM2151 register data
YM2151_SEL2 .EQU 0B2H ; Secondary YM2151 register selection
YM2151_DAT2 .EQU 0B3H ; Secondary YM2151 register data
FRAME_DLY .EQU 48 ; Frame delay (~ 1/44100)
.ENDIF .ENDIF
;
.IF RC2014 .IF RC2014
RSEL .EQU 0D8H ; Primary AY-3-8910 Register selection
RDAT .EQU 0D0H ; Primary AY-3-8910 Register data
RSEL2 .EQU 0A0H ; Secondary AY-3-8910 Register selection
RDAT2 .EQU 0A1H ; Secondary AY-3-8910 Register data
PSGREG .EQU 0FFH ; Primary SN76489
PSG2REG .EQU 0FBH ; Secondary SN76489
FRAME_DLY .EQU 15 ; Frame delay (~ 1/44100)
RSEL .EQU 0D8H ; Primary AY-3-8910 Register selection
RDAT .EQU 0D0H ; Primary AY-3-8910 Register data
RSEL2 .EQU 0A0H ; Secondary AY-3-8910 Register selection
RDAT2 .EQU 0A1H ; Secondary AY-3-8910 Register data
PSG1REG .EQU 0FFH ; Primary SN76489
PSG2REG .EQU 0FBH ; Secondary SN76489
YM2151_SEL1 .EQU 0FEH ; Primary YM2151 register selection
YM2151_DAT1 .EQU 0FFH ; Primary YM2151 register data
YM2151_SEL2 .EQU 0D0H ; Secondary YM2151 register selection
YM2151_DAT2 .EQU 0D1H ; Secondary YM2151 register data
FRAME_DLY .EQU 15 ; Frame delay (~ 1/44100)
.ENDIF .ENDIF
;
.IF SBCECB .IF SBCECB
RSEL .EQU 0D8H ; Primary AY-3-8910 Register selection RSEL .EQU 0D8H ; Primary AY-3-8910 Register selection
RDAT .EQU 0D0H ; Primary AY-3-8910 Register data RDAT .EQU 0D0H ; Primary AY-3-8910 Register data
RSEL2 .EQU 0A0H ; Secondary AY-3-8910 Register selection RSEL2 .EQU 0A0H ; Secondary AY-3-8910 Register selection
RDAT2 .EQU 0A1H ; Secondary AY-3-8910 Register data RDAT2 .EQU 0A1H ; Secondary AY-3-8910 Register data
YMSEL .EQU 0C0H ; Primary YM2162 11000000 a1=0 a0=0
YMDAT .EQU 0C1H ; Primary YM2162 11000001 a1=0 a0=1
YM2SEL .EQU 0C2H ; Secondary YM2162 11000010 a1=1 a0=0
YM2DAT .EQU 0C3H ; Secondary YM2162 11000011 a1=1 a0=1
PSG1REG .EQU 0C6H ; Primary SN76489
PSG2REG .EQU 0C7H ; Secondary SN76489
YM2151_SEL1 .EQU 0FEH ; Primary YM2151 register selection
YM2151_DAT1 .EQU 0FFH ; Primary YM2151 register data
YM2151_SEL2 .EQU 0FEH ; Secondary YM2151 register selection
YM2151_DAT2 .EQU 0FFH ; Secondary YM2151 register data
FRAME_DLY .EQU 8 ; Frame delay (~ 1/44100)
.ENDIF
;
.IF MBC
RSEL .EQU 0A0H ; Primary AY-3-8910 Register selection
RDAT .EQU 0A1H ; Primary AY-3-8910 Register data
RSEL .EQU 0D8H ; Secondary AY-3-8910 Register selection
RDAT .EQU 0D0H ; Secondary AY-3-8910 Register data
YMSEL .EQU 0C0H ; 11000000 a1=0 a0=0 YMSEL .EQU 0C0H ; 11000000 a1=0 a0=0
YMDAT .EQU 0C1H ; 11000001 a1=0 a0=1 YMDAT .EQU 0C1H ; 11000001 a1=0 a0=1
YM2SEL .EQU 0C2H ; 11000010 a1=1 a0=0 YM2SEL .EQU 0C2H ; 11000010 a1=1 a0=0
YM2DAT .EQU 0C3H ; 11000011 a1=1 a0=1 YM2DAT .EQU 0C3H ; 11000011 a1=1 a0=1
PSGREG .EQU 0C6H ; Primary SN76489 PSGREG .EQU 0C6H ; Primary SN76489
PSG2REG .EQU 0C7H ; Secondary SN76489 PSG2REG .EQU 0C7H ; Secondary SN76489
YM2151_SEL1 .EQU 0FEH ; Primary YM2151 register selection
YM2151_DAT1 .EQU 0FFH ; Primary YM2151 register data
YM2151_SEL2 .EQU 0FEH ; Secondary YM2151 register selection
YM2151_DAT2 .EQU 0FFH ; Secondary YM2151 register data
FRAME_DLY .EQU 10 ; Frame delay (~ 1/44100) FRAME_DLY .EQU 10 ; Frame delay (~ 1/44100)
#DEFINE SBCV2004
HB_RTCVAL .EQU 0FFEEH
RTCIO .EQU 070H
.ENDIF .ENDIF
;
;------------------------------------------------------------------------------
; Your customer overrides can go in here i.e. ports
;------------------------------------------------------------------------------
;
RSEL .SET 09AH ; Primary AY-3-8910 Register selection
RDAT .SET 09BH ; Primary AY-3-8910 Register data
;
;------------------------------------------------------------------------------
; Frame delay overide values for different processor speeds.
;------------------------------------------------------------------------------
;
;FRAME_DLY .SET 10 ; 1Mhz ; not
;FRAME_DLY .SET 10 ; 2Mhz ; implemented
;FRAME_DLY .SET 10 ; 4Mhz ; yet
;FRAME_DLY .SET 15 ; 8Mhz
;FRAME_DLY .SET 10 ; 10Mhz
;FRAME_DLY .SET 20 ; 12Mhz
;
;------------------------------------------------------------------------------
; Frame delay values for pal/ntsc
;------------------------------------------------------------------------------
;
D60 .EQU 735
D50 .EQU 882
;
;------------------------------------------------------------------------------
; Processor speed control for SBCV2004+
;------------------------------------------------------------------------------
;
;#DEFINE SBCV2004 ; My SBC board at 12Mhz needs this to switch to
HB_RTCVAL .EQU 0FFEEH ; 6MHz for it to work with the ECB-VGM reliably.
RTCIO .EQU 070H
;------------------------------------------------------------------------------
; YM2162 Register write macros
;------------------------------------------------------------------------------
;
#DEFINE setreg(reg,val) \ #DEFINE setreg(reg,val) \
#DEFCONT \ ld a,reg #DEFCONT \ ld a,reg
#DEFCONT \ out (YMSEL),a #DEFCONT \ out (YMSEL),a
#DEFCONT \ nop
#DEFCONT \ nop
#DEFCONT \ ld a,val #DEFCONT \ ld a,val
#DEFCONT \ out (YMDAT),a #DEFCONT \ out (YMDAT),a
#DEFCONT \ nop
#DEFCONT \ nop
#DEFCONT \ in a,(YMSEL)
#DEFCONT \ rlca
#DEFCONT \ jp c,$-3
;
#DEFINE setreg2(reg,val) \ #DEFINE setreg2(reg,val) \
#DEFCONT \ ld a,reg #DEFCONT \ ld a,reg
#DEFCONT \ out (YM2SEL),a #DEFCONT \ out (YM2SEL),a
#DEFCONT \ nop
#DEFCONT \ nop
#DEFCONT \ ld a,val #DEFCONT \ ld a,val
#DEFCONT \ out (YM2DAT),a
#DEFCONT \ nop
#DEFCONT \ nop
D50 .EQU 500 ; 900 ;735
D60 .EQU 600 ; 1000 ;882
#DEFCONT \ out (YM2DAT),a
#DEFCONT \ in a,(YMSEL)
#DEFCONT \ rlca
#DEFCONT \ jp c,$-3
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; VGM Codes ; VGM Codes
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
VGM_GG_W .EQU 04FH ; GAME GEAR PSG STEREO. WRITE DD TO PORT 0X06 VGM_GG_W .EQU 04FH ; GAME GEAR PSG STEREO. WRITE DD TO PORT 0X06
VGM_PSG_W .EQU 050H ; PSG (SN76489/SN76496) WRITE VALUE DD
VGM_YM2612_W .EQU 052H ; YM2612 WRITE VALUE DD
VGM_PSG1_W .EQU 050H ; PSG (SN76489/SN76496) #1 WRITE VALUE DD
VGM_PSG2_W .EQU 030H ; PSG (SN76489/SN76496) #2 WRITE VALUE DD
VGM_YM26121_W .EQU 052H ; YM2612 #1 WRITE VALUE DD
VGM_YM26122_W .EQU 053H ; YM2612 #2 WRITE VALUE DD
VGM_WNS .EQU 061H ; WAIT N SAMPLES VGM_WNS .EQU 061H ; WAIT N SAMPLES
VGM_W735 .EQU 062H ; WAIT 735 SAMPLES (1/60TH SECOND) VGM_W735 .EQU 062H ; WAIT 735 SAMPLES (1/60TH SECOND)
VGM_W882 .EQU 063H ; WAIT 882 SAMPLES (1/50TH SECOND) VGM_W882 .EQU 063H ; WAIT 882 SAMPLES (1/50TH SECOND)
VGM_ESD .EQU 066H ; END OF SOUND DATA VGM_ESD .EQU 066H ; END OF SOUND DATA
VGM_YM21511_W .EQU 054H ; YM2612 #1 WRITE VALUE DD
VGM_YM21512_W .EQU 0A4H ; YM2612 #2WRITE VALUE DD
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; Generic CP/M definitions ; Generic CP/M definitions
@ -168,13 +230,12 @@ L1 LD B,FRAME_DLY
; Program Exit ; Program Exit
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; ;
EXIT
EXIT: CALL VGMDEVICES ; Display devices used
CALL VGMMUTE ; Mute Devices
#IFDEF SBCV2004 #IFDEF SBCV2004
CALL FASTIO CALL FASTIO
#ENDIF #ENDIF
CALL VGMDEVICES ; Display devices used
CALL VGMMUTE ; Mute Devices
LD DE,MSG_EXIT LD DE,MSG_EXIT
EXIT_ERR: CALL PRTSTR ; Generic message or error EXIT_ERR: CALL PRTSTR ; Generic message or error
LD SP, (OLDSTACK) ; Exit to CP/M LD SP, (OLDSTACK) ; Exit to CP/M
@ -266,7 +327,7 @@ VGMINFO: LD DE,MSG_BADF ; Check valid file
EX DE,HL EX DE,HL
PUSH BC PUSH BC
POP DE POP DE
; CALL PRTHEX32
; CALL PRTHEX32 ; Debug
LD HL,(VGMDATA+16H) ; Is GD3 in range? LD HL,(VGMDATA+16H) ; Is GD3 in range?
LD A,H LD A,H
@ -296,6 +357,9 @@ VGMINFO: LD DE,MSG_BADF ; Check valid file
ADD HL,DE ADD HL,DE
CALL CRLF CALL CRLF
LD DE,MSG_TRACK
CALL PRTSTR
GD3_NXT: LD A,(HL) ; Print English Track GD3_NXT: LD A,(HL) ; Print English Track
OR A OR A
INC HL INC HL
@ -311,7 +375,9 @@ GD3_NXT1: LD A,(HL) ; Skip Japanese Track
JR NZ,GD3_NXT1 JR NZ,GD3_NXT1
; JR GD3_NXT1 ; JR GD3_NXT1
CALL CRLF
LD DE,MSG_TITLE
CALL PRTSTR
GD3_NXT2: LD A,(HL) ; Print English Title GD3_NXT2: LD A,(HL) ; Print English Title
OR A OR A
INC HL INC HL
@ -349,20 +415,22 @@ NEXT LD A, (HL)
NEXT1 CP VGM_GG_W ; Game Gear SN76489 stereo. Ignored NEXT1 CP VGM_GG_W ; Game Gear SN76489 stereo. Ignored
JR NZ, PSG JR NZ, PSG
LD IX,VGM_DEV LD IX,VGM_DEV
SET 6,(IX+0)
INC HL
JR NEXT
SET 0,(IX+1)
INC HL
JR NEXT
PSG CP VGM_PSG_W ; Write byte to SN76489.
; SN76489 SECTION
PSG CP VGM_PSG1_W ; Write byte to SN76489.
JR NZ, PSG2 JR NZ, PSG2
LD A, (HL) LD A, (HL)
INC HL INC HL
OUT (PSGREG), A
OUT (PSG1REG), A
LD IX,VGM_DEV LD IX,VGM_DEV
SET 0,(IX+0) SET 0,(IX+0)
JR NEXT JR NEXT
PSG2 CP 30H ; Write byte to second SN76489.
PSG2 CP VGM_PSG2_W ; Write byte to second SN76489.
JR NZ, AY JR NZ, AY
LD A, (HL) LD A, (HL)
INC HL INC HL
@ -371,10 +439,10 @@ PSG2 CP 30H ; Write byte to second SN76489.
SET 1,(IX+0) SET 1,(IX+0)
JR NEXT JR NEXT
; AY SECTION
; AY-3-8910 SECTION
AY CP 0A0H AY CP 0A0H
JR NZ,YM
JR NZ,YM2162_1
LD A, (HL) LD A, (HL)
INC HL INC HL
BIT 7, A ; Bit 7=1 for second AY-3-8910 BIT 7, A ; Bit 7=1 for second AY-3-8910
@ -395,10 +463,10 @@ AY1 OUT (RSEL), A
SET 3,(IX+0) SET 3,(IX+0)
JR NEXT JR NEXT
; YM SECTION
; YM2612 SECTION
YM: CP 052H
JR NZ, YM2
YM2162_1 CP VGM_YM26121_W
JR NZ, YM2162_2
LD A,(HL) LD A,(HL)
OUT (YMSEL),A OUT (YMSEL),A
INC HL INC HL
@ -409,9 +477,8 @@ YM: CP 052H
SET 4,(IX+0) SET 4,(IX+0)
JP NEXT JP NEXT
; ;
YM2: CP 053H
JR NZ,WAITNN
YM2162_2 CP VGM_YM26122_W
JR NZ,YM2151_1
LD A,(HL) LD A,(HL)
OUT (YM2SEL),A OUT (YM2SEL),A
INC HL INC HL
@ -419,10 +486,36 @@ YM2: CP 053H
OUT (YM2DAT),A OUT (YM2DAT),A
INC HL INC HL
LD IX,VGM_DEV LD IX,VGM_DEV
SET 4,(IX+0)
SET 4,(IX+0) ; 2nd channel
JP NEXT
; YM2151 SECTION
YM2151_1 CP VGM_YM21511_W
JR NZ,YM2151_2
LD A,(HL)
OUT (YM2151_SEL1),A
INC HL
LD A,(HL)
OUT (YM2151_DAT1),A
INC HL
LD IX,VGM_DEV
SET 6,(IX+0)
JP NEXT
;
YM2151_2 CP VGM_YM21512_W
JR NZ,WAITNN
LD A,(HL)
OUT (YM2151_SEL2),A
INC HL
LD A,(HL)
OUT (YM2151_DAT2),A
INC HL
LD IX,VGM_DEV
SET 7,(IX+0)
JP NEXT JP NEXT
; ;
WAITNN: CP 61H ; Wait nn samples
WAITNN CP VGM_WNS ; Wait nn samples
JR NZ, WAIT60 JR NZ, WAIT60
LD A, (HL) LD A, (HL)
INC HL INC HL
@ -437,14 +530,14 @@ WAITNN: CP 61H ; Wait nn samples
WAIT60 CP VGM_W735 ; Wait 735 samples (60Hz) WAIT60 CP VGM_W735 ; Wait 735 samples (60Hz)
JR NZ, WAIT50 JR NZ, WAIT50
LD (VGMPOS), HL LD (VGMPOS), HL
LD HL, D50
LD HL, D60
LD (VGMDLY), HL LD (VGMDLY), HL
RET RET
; ;
WAIT50 CP VGM_W882 ; Wait 882 samples (50Hz) WAIT50 CP VGM_W882 ; Wait 882 samples (50Hz)
JR NZ, WAIT1 JR NZ, WAIT1
LD (VGMPOS), HL LD (VGMPOS), HL
LD HL, D60
LD HL, D50
LD (VGMDLY), HL LD (VGMDLY), HL
RET RET
; ;
@ -458,8 +551,8 @@ WAIT1 CP 70H ; WAIT 0-15 SAMPLES
LD (VGMDLY), HL LD (VGMDLY), HL
RET RET
; ;
UNK: LD IX,VGM_DEV ; Set flag for
SET 6,(IX+0) ; unknown device
UNK LD IX,VGM_DEV ; Set flag for
SET 0,(IX+1) ; unknown device
INC HL ; Try and skip INC HL ; Try and skip
JP NEXT JP NEXT
; ;
@ -489,24 +582,38 @@ VGMDEVICES: LD DE,MSG_PO ; Played on ...
SRL A SRL A
PUSH AF PUSH AF
; ;
LD DE,MSG_YM ; YM-2612 Devices
LD DE,MSG_YM2612 ; YM-2612 Devices
CALL CHKDEV CALL CHKDEV
; ;
POP AF POP AF
SRL A SRL A
SRL A SRL A
PUSH AF
;
LD DE,MSG_YM2151 ; YM-2151 Devices
CALL CHKDEV
;
POP AF
; SRL A
; SRL A
; PUSH AF ; PUSH AF
; ;
LD A,(IX+1)
LD DE,MSG_UNK ; Unknown Device Code detected LD DE,MSG_UNK ; Unknown Device Code detected
; CALL CHKDEV ; CALL CHKDEV
; ;
CHKDEV: AND %00000011 ; Display CHKDEV: AND %00000011 ; Display
SRL A ; number of
ADC A,'0' ; devices
CP '0'
RET Z ; Skip if not
CALL PRTCHR ; used.
CALL PRTSTR
RET Z ; number of
SRL A ; devices
ADC A,'0'
CALL PRTCHR ; Skip if not
CALL PRTSTR ; used.
RET
DEBUG: PUSH AF
LD A,'*'
CALL PRTCHR
POP AF
RET RET
; ;
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
@ -518,16 +625,16 @@ VGMMUTE: LD A,(IX+0) ; Only mute devices used.
JR Z,SKIP1 JR Z,SKIP1
LD A, 9FH ; Mute all channels on psg LD A, 9FH ; Mute all channels on psg
OUT (PSGREG), A
OUT (PSG1REG), A
OUT (PSG2REG), A OUT (PSG2REG), A
LD A, 0BFH LD A, 0BFH
OUT (PSGREG), A
OUT (PSG1REG), A
OUT (PSG2REG), A OUT (PSG2REG), A
LD A, 0DFH LD A, 0DFH
OUT (PSGREG), A
OUT (PSG1REG), A
OUT (PSG2REG), A OUT (PSG2REG), A
LD A, 0FFH LD A, 0FFH
OUT (PSGREG), A
OUT (PSG1REG), A
OUT (PSG2REG), A OUT (PSG2REG), A
SKIP1: LD A,(IX+0) SKIP1: LD A,(IX+0)
@ -554,11 +661,12 @@ SKIP1: LD A,(IX+0)
OUT (RDAT2), A OUT (RDAT2), A
CALL FASTIO CALL FASTIO
SKIP2: LD A,(IX+0)
SKIP2: LD A,(IX+0) ; mute all channels on ym2612
AND %00110000 AND %00110000
JP Z,SKIP3 JP Z,SKIP3
setreg($22,$00) ; lfo off setreg($22,$00) ; lfo off
setreg($27,$00) ; Disable independant Channel 3 setreg($27,$00) ; Disable independant Channel 3
setreg($28,$00) ; note off ch 1 setreg($28,$00) ; note off ch 1
setreg($28,$01) ; note off ch 2 setreg($28,$01) ; note off ch 2
@ -573,9 +681,240 @@ SKIP2: LD A,(IX+0)
setreg($b6,$00) setreg($b6,$00)
setreg2($b4,$00) ; sound off ch 4-6 setreg2($b4,$00) ; sound off ch 4-6
setreg2($b5,$00) setreg2($b5,$00)
setreg2($b6,$00)
setreg2($b6,$00)
setreg($40,$7f) ; ch 1-3 total level minimum
setreg($41,$7f)
setreg($42,$7f)
setreg($44,$7f)
setreg($45,$7f)
setreg($46,$7f)
setreg($48,$7f)
setreg($49,$7f)
setreg($4a,$7f)
setreg($4c,$7f)
setreg($4d,$7f)
setreg($4e,$7f)
setreg2($40,$7f) ; ch 4-6 total level minimum
setreg2($41,$7f)
setreg2($42,$7f)
setreg2($44,$7f)
setreg2($45,$7f)
setreg2($46,$7f)
setreg2($48,$7f)
setreg2($49,$7f)
setreg2($4a,$7f)
setreg2($4c,$7f)
setreg2($4d,$7f)
setreg2($4e,$7f)
#if (0)
setreg($2a,$00) ; dac value
setreg($24,$00) ; timer A frequency
setreg($25,$00) ; timer A frequency
setreg($26,$00) ; time B frequency
setreg($30,$00) ; ch 1-3 multiply & detune
setreg($31,$00)
setreg($32,$00)
setreg($34,$00)
setreg($35,$00)
setreg($36,$00)
setreg($38,$00)
setreg($39,$00)
setreg($3a,$00)
setreg($3c,$00)
setreg($3d,$00)
setreg($3e,$00)
setreg2($30,$00) ; ch 4-6 multiply & detune
setreg2($31,$00)
setreg2($32,$00)
setreg2($34,$00)
setreg2($35,$00)
setreg2($36,$00)
setreg2($38,$00)
setreg2($39,$00)
setreg2($3a,$00)
setreg2($3c,$00)
setreg2($3d,$00)
setreg2($3e,$00)
setreg($50,$00) ; ch 1-3 attack rate and scaling
setreg($51,$00)
setreg($52,$00)
setreg($54,$00)
setreg($55,$00)
setreg($56,$00)
setreg($58,$00)
setreg($59,$00)
setreg($5a,$00)
setreg($5c,$00)
setreg($5d,$00)
setreg($5e,$00)
setreg2($50,$00) ; ch 4-6 attack rate and scaling
setreg2($51,$00)
setreg2($52,$00)
setreg2($54,$00)
setreg2($55,$00)
setreg2($56,$00)
setreg2($58,$00)
setreg2($59,$00)
setreg2($5a,$00)
setreg2($5c,$00)
setreg2($5d,$00)
setreg2($5e,$00)
setreg($60,$00) ; ch 1-3 decay rate and am enable
setreg($61,$00)
setreg($62,$00)
setreg($64,$00)
setreg($65,$00)
setreg($66,$00)
setreg($68,$00)
setreg($69,$00)
setreg($6a,$00)
setreg($6c,$00)
setreg($6d,$00)
setreg($6e,$00)
setreg2($60,$00) ; ch 4-6 decay rate and am enable
setreg2($61,$00)
setreg2($62,$00)
setreg2($64,$00)
setreg2($65,$00)
setreg2($66,$00)
setreg2($68,$00)
setreg2($69,$00)
setreg2($6a,$00)
setreg2($6c,$00)
setreg2($6d,$00)
setreg2($6e,$00)
setreg($70,$00) ; ch 1-3 sustain rate
setreg($71,$00)
setreg($72,$00)
setreg($74,$00)
setreg($75,$00)
setreg($76,$00)
setreg($78,$00)
setreg($79,$00)
setreg($7a,$00)
setreg($7c,$00)
setreg($7d,$00)
setreg($7e,$00)
setreg2($70,$00) ; ch 4-6 sustain rate
setreg2($71,$00)
setreg2($72,$00)
setreg2($74,$00)
setreg2($75,$00)
setreg2($76,$00)
setreg2($78,$00)
setreg2($79,$00)
setreg2($7a,$00)
setreg2($7c,$00)
setreg2($7d,$00)
setreg2($7e,$00)
setreg($80,$00) ; ch 1-3 release rate and sustain level
setreg($81,$00)
setreg($82,$00)
setreg($84,$00)
setreg($85,$00)
setreg($86,$00)
setreg($88,$00)
setreg($89,$00)
setreg($8a,$00)
setreg($8c,$00)
setreg($8d,$00)
setreg($8e,$00)
setreg2($80,$00) ; ch 4-6 release rate and sustain level
setreg2($81,$00)
setreg2($82,$00)
setreg2($84,$00)
setreg2($85,$00)
setreg2($86,$00)
setreg2($88,$00)
setreg2($89,$00)
setreg2($8a,$00)
setreg2($8c,$00)
setreg2($8d,$00)
setreg2($8e,$00)
setreg($90,$00) ; ch 1-3 ssg-eg
setreg($91,$00)
setreg($92,$00)
setreg($94,$00)
setreg($95,$00)
setreg($96,$00)
setreg($98,$00)
setreg($99,$00)
setreg($9a,$00)
setreg($9c,$00)
setreg($9d,$00)
setreg($9e,$00)
setreg2($90,$00) ; ch 4-6 ssg-eg
setreg2($91,$00)
setreg2($92,$00)
setreg2($94,$00)
setreg2($95,$00)
setreg2($96,$00)
setreg2($98,$00)
setreg2($99,$00)
setreg2($9a,$00)
setreg2($9c,$00)
setreg2($9d,$00)
setreg2($9e,$00)
setreg($a0,$00) ; ch 1-3 frequency
setreg($a1,$00)
setreg($a2,$00)
setreg($a4,$00)
setreg($a5,$00)
setreg($a6,$00)
; setreg($a8,$00) ; ch 3 special mode
; setreg($a9,$00)
; setreg($aa,$00)
; setreg($ac,$00)
; setreg($ad,$00)
; setreg($ae,$00)
setreg2($a0,$00) ; ch 4-6 frequency
setreg2($a1,$00)
setreg2($a2,$00)
setreg2($a4,$00)
setreg2($a5,$00)
setreg2($a6,$00)
; setreg2($a8,$00) ; ch 3 special mode
; setreg2($a9,$00)
; setreg2($aa,$00)
; setreg2($ac,$00)
; setreg2($ad,$00)
; setreg2($ae,$00)
setreg($b0,$00) ; ch 1-3 algorith + feedback
setreg($b1,$00)
setreg($b2,$00)
setreg2($b0,$00) ; ch 4-6 algorith + feedback
setreg2($b1,$00)
setreg2($b2,$00)
#endif
SKIP3: RET
SKIP3: LD A,(IX+0) ; For YM2151 ... Unimplemented
AND %11000000
JP Z,SKIP4
; MUTE YM2151
SKIP4 RET
; ;
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; Hardware specific routines. ; Hardware specific routines.
@ -609,18 +948,21 @@ FASTIO:
; Strings and constants. ; Strings and constants.
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; ;
MSG_WELC: .DB "VGM Player for RomWBW v0.2, 27-Nov-2021",CR,LF
MSG_WELC: .DB "VGM Player for RomWBW v0.3, 2-Jul-2022",CR,LF
; .DB "J.B. Langston/Marco Maccaferri/Phil Summers",CR,LF ; .DB "J.B. Langston/Marco Maccaferri/Phil Summers",CR,LF
.DB 0 .DB 0
MSG_BADF: .DB "Not a VGM file",CR,LF,0 MSG_BADF: .DB "Not a VGM file",CR,LF,0
MSG_PO .DB "Played on : ",0 MSG_PO .DB "Played on : ",0
MSG_YM: .DB "xYM-2612 ",0
MSG_YM2612: .DB "xYM-2612 ",0
MSG_SN: .DB "xSN76489 ",0 MSG_SN: .DB "xSN76489 ",0
MSG_AY: .DB "xAY-3-8910 ",0 MSG_AY: .DB "xAY-3-8910 ",0
MSG_UNK .DB "xUnsupported device encountered", CR, LF, 0
MSG_YM2151: .DB "xYM-2151 ",0
MSG_UNK: .DB "xUnsupported device encountered", CR, LF, 0
MSG_EXIT: .DB "FINISHED.",CR,LF,0 MSG_EXIT: .DB "FINISHED.",CR,LF,0
MSG_NOFILE: .DB "File not found", CR, LF, 0 MSG_NOFILE: .DB "File not found", CR, LF, 0
MSG_MEM: .DB "File to big", CR, LF, 0 MSG_MEM: .DB "File to big", CR, LF, 0
MSG_TITLE: .DB " from: ",0
MSG_TRACK .DB "Playing: ",0
; ;
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; Variables ; Variables
@ -629,7 +971,8 @@ MSG_MEM: .DB "File to big", CR, LF, 0
VGMPOS .DW 0 VGMPOS .DW 0
VGMDLY .DW 0 VGMDLY .DW 0
VGMUNK_F .DB 0 ; Flag for unknown device VGMUNK_F .DB 0 ; Flag for unknown device
VGM_DEV .DB %00000000 ; UUYYAASS
VGM_DEV .DB %00000000 ; yyYYAASS
.DB %00000000 ; Unimplemented device flags
OLDSTACK .DW 0 ; original stack pointer OLDSTACK .DW 0 ; original stack pointer
.DS 40H ; space for stack .DS 40H ; space for stack

2
Source/HBIOS/pio.asm
View File

@ -221,7 +221,7 @@ PIO_PROBE2:
RET RET
; ;
PIO_PROBECHIP: PIO_PROBECHIP:
; PIO IS HRD TO DETECT DEFINITIVELY. BEST I CAN THINK
; PIO IS HARD TO DETECT DEFINITIVELY. BEST I CAN THINK
; OF IS TO CHECK THE VALUE READ FROM THE CONTROL PORT. ; OF IS TO CHECK THE VALUE READ FROM THE CONTROL PORT.
; IT APPEARS TO BE ZERO CONSISTENTLY IF CHIP EXISTS. ; IT APPEARS TO BE ZERO CONSISTENTLY IF CHIP EXISTS.
IN A,(C) ; GET VALUE IN A,(C) ; GET VALUE

Write Preview
Loading…
Cancel
Save