oo:
$regfile = "M64def.dat"
$crystal = 14745600
$swstack = 256
$hwstack = 256
$framesize = 512
$baud = 1200 'it's find for Caller_id mt88e43
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Porte = Output
Config Portf = Input '***b careful it's conected to mmc ;( first disconect pin in moterboard
Config Portg = Output
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Lcd = 16 * 2
Cursor Off : Cls
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib" ' modified lib
Config Sda = Portd.1 : Config Scl = Portd.0
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
Config Clock = Soft ' this will dim the bytes automatic
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Dim Vs_w As Byte
Dim Vs_r As Byte
Dim Vs_mode_ad As Byte
Dim Vs_bass_ad As Byte
Dim Vs_clock_ad As Byte
Dim Vs_aiaddr_ad As Byte
Dim Vs_vol_ad As Byte
Dim Vs_command As Byte
Dim Data_high As Byte
Dim Data_low As Byte
Dim Buffer(512) As Byte
Dim S As String * 50
Dim S2 As String * 50
Dim Spi_rec As Word
Dim Spi_val As Word
Dim Cmd_and As Word
Dim Send_data As Word
Dim Rec_data As Byte
Dim Rec As Word
Dim Rf_buffer(11) As Byte
Dim Weekday As Byte
Dim L As Long , D As Double
Dim B As Byte , Chk As Byte , J As Byte
Dim Ff As Byte
Dim Hdat0 As Byte : Hdat0 = 7
Dim Hdat1 As Byte : Hdat1 = 8
'---------------------------------------------------------------------------------
Declare Sub Vs_reset()
Declare Sub Vs_init()
Declare Sub Vs_read()
Declare Sub Vs_write()
Declare Sub Vs_play()
Declare Sub Vs_record()
Declare Sub Mmc_init()
Declare Sub Mmc_dir()
Declare Function Mmc_dir_select(s_dir As String)as String
Declare Function Rf_wrt_cmd(byval Cmd As Word) As Word
Declare Sub Rf_init()
Declare Sub Rf_send(byval Abyte As Byte)
Declare Sub Rf_port_init()
Declare Sub Rf_recv()
Declare Sub Rf_data()
Declare Sub Rf_send_test()
Declare Sub Rf_recive_test()
Declare Sub Clk_start()
Declare Sub Ad7780()
Declare Sub Main_menu()
Declare Sub Caller_id()
'--------------------------------------------------------------------------------------
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Dreq Alias Pinb.5 'b.5
Xrst Alias Portb.6 'b.6
Xdcs Alias Portb.4 'b.4
Xcs Alias Portb.0
Mosi Alias Portb.2
Sclk Alias Portb.1
Miso Alias Pinb.3
Rf_sck Alias Portc.1
Rf_sdo Alias Pinc.0
Rf_sdi Alias Portc.2
Rf_sel Alias Portc.3
Rf_int Alias Pinc.4
Rf_tx Alias Portc.5
Rf_rx Alias Portc.6
Mmc_gnd Alias Porta.1
Mmc_vcc Alias Porta.0
Led_blue Alias Portg.0
Led_red Alias Portg.1
Key_down Alias Pine.7
Key_up Alias Pine.6
Config Key_up = Input : Config Key_down = Input : Set Porte.6 : Set Porte.7
Config Mmc_vcc = Output
Config Mmc_gnd = Output
Config Dreq = Input
Config Xcs = Output
Config Xdcs = Output
Config Xrst = Output
Config Mosi = Output
Config Miso = Input
Config Sclk = Output
Config Rf_sck = Output
Config Rf_sdo = Input
Config Rf_sdi = Output
Config Rf_sel = Output
Config Rf_int = Input
Config Rf_tx = Output
Config Rf_rx = Output
Reset Rf_tx : Reset Rf_rx
Config Debounce = 150
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
$include "Config_AVR-DOS.BAS"
$include "Config_MMC.bas"
Main:
'*******************************************************************************
' it's my main program
' by:omid habibi
' ;)
Call Vs_init : Call Vs_play
'_______________________________________________________________________________
'_______________________________________________________________________________
'_______________________________________________________________________________
'_______________________________________________________________________________
'----------------------------vs_sub and function's------------------------------
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub Vs_record()
'alan ma roy oon 800 rikhtim yami faghat halate spi ro 1 kardim hala
'800= &b0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
'------------------------------------------line in for record ****
'----------------------------------------filtere bala gozar *****
'--------------------------------------fal boodane adpcm record ****
'---------------------------------halate spi ****
'-------------------------------eshterak gozarie faal sazie sdi
'-----------------------------tartibe vroodie sdi
'--------reset soft ************
'Bit 0 == Mode ================^^^^^^^^^^^^
'Bit 1 == Status
'Bit 2 == boss
'Bit 3 == clockf
'Bit 4 == decode time
'Bit 5 == audata *dadehaye sotie goonagoon
'Bit 6 == wram dadehaye ram baray r/w
'Bit 7 == hdat0
'Bit 8 == hdat1
'Bit 9 == aiaddr
'Bit 10 == volume
'Bit 11 == AICTRL0
'Bit 12 == AICTRL1
'Bit 13 == AICTRL2
'Bit 14 == AICTRL3
Reset Xrst
Waitms 1
Set Xrst
Waitus 500
Bitwait Dreq , Set
Vs_command = 0
'data_high = &B01110000 'for digital input '8
Data_high = &B00110000 'for microphone
Data_low = 4
Call Vs_write
End Sub
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub Vs_play()
Call Mmc_init
Call Vs_reset
Call Vs_init
Ff = Freefile()
Cls : Home
Lcd "playing " : Lowerline : Lcd S ; " <<"
'Open S For Binary As #ff ' should be 32 for binary
Open "1.mp3" For Binary As #ff
Set Portg.0
Reset Portg.1
'this is how simple it is
'Time$ = "00:00:00"
Do
Incr B
If B > 30 Then
Toggle Portg
Incr _sec
If _sec > 59 Then
Incr _min
_sec = 0
End If
Locate 1 , 9 : Lcd Time$
B = 0
End If
Get #ff , Buffer(1) , , 512
Reset Xdcs
For L = 1 To 512
Reset Xdcs
Shiftout Mosi , Sclk , Buffer(l) , 1
Set Xdcs
Bitwait Dreq , Set
Next L
Set Xdcs
If Key_down = 0 Then
Vs_command = 0 : Data_high = 9 : Data_low = 0 : Call Vs_write
Lowerline : Lcd " bus "
End If
If Key_up = 0 Then Goto Main
Loop Until Eof(#ff) <> 0
Close #ff
End Sub
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub Vs_reset()
Vs_w = 2 : Vs_r = 3
Vs_command = 0 : Data_high = 0 : Data_low = 4
Call Vs_write
End Sub
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub Vs_read()
Vs_r = 3
'Reset Xrst
'Waitms 1
'Set Xrst
'Waitus 500
'Bitwait Dreq , Set
Reset Xcs
Shiftout Mosi , Sclk , Vs_r , 1
Shiftout Mosi , Sclk , Vs_command , 1
Data_high = 12 : Data_low = 12
Shiftin Miso , Sclk , Data_high , 1
Shiftin Miso , Sclk , Data_low , 1
Set Xcs
Waitus 500
Bitwait Dreq , Set
End Sub
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub Vs_write()
Vs_w = 2
Reset Xcs
Shiftout Mosi , Sclk , Vs_w , 1
Shiftout Mosi , Sclk , Vs_command , 1
Shiftout Mosi , Sclk , Data_high , 1
Shiftout Mosi , Sclk , Data_low , 1
Set Xcs
Waitus 500
Bitwait Dreq , Set
End Sub
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Sub Vs_init()
Vs_w = 2
Vs_r = 3
Vs_mode_ad = 0 'neshanie sabat
'alan ma roy oon 800 rikhtim yami faghat halate spi ro 1 kardim hala
'800= &b0000100000000000
'---------^line in for record ****
'----------^filtere bala gozar
'-----------^fal boodane adpcm record ****
'------------^halate spi ****
'-------------^eshterak gozarie faal sazie sdi
'--------------^ tartibe vroodie sdi
'---------------^
' kole 16 bit in goone ast
Vs_bass_ad = 2
Vs_clock_ad = 3
Vs_aiaddr_ad = 10
Vs_vol_ad = 11
Set Xcs
Set Xdcs
Set Xrst
Bitwait Dreq , Set
Reset Xrst
Waitms 1
Set Xrst
Waitus 500
Bitwait Dreq , Set
Vs_command = Vs_mode_ad
'data_high = &B00110000:data_low = 4
Data_high = 8 : Data_low = 0
Call Vs_write
Vs_command = Vs_clock_ad
'data_high = &H80 : data_low = 0
Data_high = &B11111011 : Data_low = &B11101000 'for 12mhz crystal
Call Vs_write
Vs_command = Vs_aiaddr_ad
Data_high = 0 : Data_low = 0
Call Vs_write
Vs_command = Vs_vol_ad
Data_high = 0 : Data_low = 0
Call Vs_write
'Reset Xcs
'Spiout Vs_w , 1
'Spiout Vs_bass_ad , 1 'Tanzime Bass va Treble
'data_high = &H80
'data_low = 0
'Spiout data_high , 1
'Spiout data_low , 1
'Set Xcs
'Waitus 500
'Bitwait Dreq , Set
End Sub
oo: دستت درد نکه داداشششششششششش خدا عوضت بده :nice:
دیدگاه