Sub Vs_init()
Xreset = 0 : Print "Xreset = 0"
Waitms 5
Xreset = 1 : Print "Xreset = 1"
Waitms 10
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_mode , &H0 , &H4 'reset
Print "1 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_mode , &H0 , &H0
Print "2 "
Do : Led = Dreq : Loop Until Dreq = 1
Mode_low.7 = 0 'set to zero
Vs_write Vs_mode , &H4 , Mode_low 'bass
Print "3 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_mode , &H4 , &H40
Print "4 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_clockf , &H9B , &HE8 'clockf 12.288 MHz VS1003
Print "5 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_volume , &H00 , &H00 'volume =0 massimo
Print "6 "
End Sub
Xreset = 0 : Print "Xreset = 0"
Waitms 5
Xreset = 1 : Print "Xreset = 1"
Waitms 10
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_mode , &H0 , &H4 'reset
Print "1 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_mode , &H0 , &H0
Print "2 "
Do : Led = Dreq : Loop Until Dreq = 1
Mode_low.7 = 0 'set to zero
Vs_write Vs_mode , &H4 , Mode_low 'bass
Print "3 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_mode , &H4 , &H40
Print "4 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_clockf , &H9B , &HE8 'clockf 12.288 MHz VS1003
Print "5 "
Do : Led = Dreq : Loop Until Dreq = 1
Vs_write Vs_volume , &H00 , &H00 'volume =0 massimo
Print "6 "
End Sub
دیدگاه