'*******************************************************************************
'* WAV Player Tel  (M8L) By Behnam @ 27.Day.87 [2008]                          *
'*                                                                             *
'* Author:        FAM & Behnam Zakizadeh                                       *
'* Location:      IRAN , Qazvin City                                           *
'* Web:           http://electronic-projects.blogfa.com                        *
'* Mail:          zakizadeh_behnam@yahoo.com                                   *
'*******************************************************************************
$regfile = "M8def.dat"
$crystal = 12000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1
'Constants
'warter are FAM & Behnam
Const Msbl = 0
Const Msbh = 1
Const Dly = 2
Const Bits8 = 8
Const Bits16 = 16
Const Bits32 = 32
'Dim
Dim Dat As Byte
Dim Resp As Byte
Dim I As Word
Dim Addr As Long
Dim Adres As Long
Dim Tanzim As Byte
'Aliases
Cs Alias Portd.1
Mosi Alias Portd.2
Clk Alias Portd.3
Miso Alias Pind.0
'Declarations
Declare Sub Minit
Declare Sub Mread(byval Addr As Long )
'Configs
Config Portd.0 = Output
Config Portd.4 = Output
Config Portd.3 = Output
Config Pind.2 = Input
Waitms 300
Config Spi = Soft , Din = Pind.0 , Dout = Portd.2 , Ss = Portd.1 , Clock = Portd.3
Spiinit
'******** MAIN PROGRAM *************
Main:
'Initialize the MMCC
Minit
Adres = 1048576
Inja:
Mread Adres
Adres = Adres + 512
Goto Inja
Xloop:
Set Cs
Shiftout Mosi , Clk , Dat , Msbl
Endloop:
Goto Endloop
End                                                         'end program
'***************************** END OF PROGRAM **********************************
'======= SUB ROUTINES AND FUNCTIONS =======
'warter are FAM & Behnam
'*** INITIALIZATION OF MMC ***
Sub Minit
Set Cs
Dat = &HFF
For I = 1 To 10
  Shiftout Mosi , Clk , Dat , Msbl
Next I
Resp = 255
Reset Cs
Cmd0:
Dat = &H40
Shiftout Mosi , Clk , Dat , Msbl
Addr = &H00000000
Shiftout Mosi , Clk , Addr , Msbl
Dat = &H95
Shiftout Mosi , Clk , Dat , Msbl
While Resp <> &H01
Shiftin Miso , Clk , Resp , Msbl
Wend
Set Cs
Waitms 50
Reset Cs
Dat = &HFF
Cmd1:
While Resp <> &H00
'warter are FAM & Behnam
Set Cs
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
Reset Cs
Dat = &H41
Shiftout Mosi , Clk , Dat , Msbl
Addr = 0
Shiftout Mosi , Clk , Addr , Msbl
Dat = &HFF
Shiftout Mosi , Clk , Dat , Msbl
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
Wend
Dat = &HFF
Set Cs
End Sub
'warter are FAM & Behnam
'**** READ routine assumes ADDR uses Status subroutine *****
Sub Mread(byval Addr As Long)
Set Cs
Dat = &HFF
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
Reset Cs
Dat = &H51
Shiftout Mosi , Clk , Dat , Msbl
Shiftout Mosi , Clk , Addr , Msbl
Dat = &HFF
Shiftout Mosi , Clk , Dat , Msbl
Shiftin Miso , Clk , Resp , Msbl
While Resp <> 0
Shiftin Miso , Clk , Resp , Msbl
Wend
While Resp <> &HFE
 Shiftin Miso , Clk , Resp , Msbl
Wend
For I = 1 To 512
    Shiftin Miso , Clk , Resp , Msbl
      Pwm1a = Resp
      Waitus 30                                             '友謔
      Next I
Shiftin Miso , Clk , Resp , Msbl
Shiftin Miso , Clk , Resp , Msbl
Set Cs
'warter are FAM & Behnam
End Sub