$regfile = "M64def.dat " 'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS $crystal = 8000000 'or any '$baud = 115200 $swstack = 64 $hwstack = 128 $framesize = 128 '------------------------------------------------------------------------------- 'Config Clock = Soft 'Config Date = Dmy , Separator = . 'Enable Interrupts 'Time$ = "20:22:00" 'Date$ = "16.04.08" '------------------------------------------------------------------------------- $lib "lcd4busy.lib" Const _lcdport = Porta Const _lcdddr = Ddra Const _lcdin = Pina Const _lcd_e = 2 Const _lcd_rw = 1 Const _lcd_rs = 0 Config Lcd = 16 * 2 Config Lcdbus = 4 Config Pind.0 = Input Config Pind.4 = Output Config Pind.5 = Output Config Pind.7 = Output Config Pinb.4 = Output '------------------------------------------------------------------------------- Dim B As Byte Dim A1 As Byte Dim A2 As Byte Dim L As Byte Dim Ff As Byte Dim S As String * 30 Dim Diskf As Long Dim Disks As Long 'Dim Mmc_ok As Byte '------------------------------------------------------------------------------- Mmc_csn Alias Portb.4 Dreq Alias Pind.0 Xcs Alias Portd.4 Xdcs Alias Portd.5 Xrst Alias Portd.7 '------------------------------------------------------------------------------- Set Xcs Set Xdcs Set Xrst Bitwait Dreq , Set Reset Mmc_csn 'enable MMC (chip select=cs Active low) Cursor Off Cls Lcd "Initiation..." $include "Config_AVR-DOS.BAS" 'include avr-dos $include "Config_MMC.bas" 'include mmc Ff = Drivereset() 'not AVR-DOS Routine Ff = Driveinit() 'not AVR-DOS Routine '$external Waitms 'Mmc_ok = Drivecheck() 'If Mmc_ok = 0 Then ' Cls ' Lcd "Error on MMC!" ' Locate 2 , 1 ' Lcd "error:" ; Mmc_ok ' End 'End If If Gbdriveerror <> 0 Then Cls Lcd "Error Config" Locate 2 , 1 Lcd Gbdriveerror End End If Lcd "DOS & MMC Inited" Wait 2 Cls Lcd "Initializing FAT" Locate 2 , 1 B = Initfilesystem(1) 'init file system If B <> 0 Then Lcd "Error On File System" Wait 1 Cls Lcd "Sorry!" Locate 2 , 1 Lcd "Good Bye..." End 'end program Else Lcd "FAT Initialized" End If Wait 2 Cls Lcd "DOS Version: " ; Ver() Wait 2 '------------------------------------------------------------------------------- '------------------------ PROGRAM START ------------------------------ '------------------------------------------------------------------------------- Dim Sfilename As String * 20 Cls Locate 2 , 1 Lcd "Now Create file" Diskf = Diskfree() Disks = Disksize() Ff = Freefile() Open "test.txt" For Output As #ff 'create file in MMC S = Str(diskf) Print #ff , S ; " Byte Disk Free Space" S = Str(disks) Print #ff , S ; " Byte Disk Size" S = "Hello Smile" For L = 0 To 10 Print #ff , S Next L Close #ff Cls Lcd "File Created" Wait 2 Cls Lcd "Free" ; Diskf ; "Byte" Locate 2 , 1 Lcd "Size" ; Disks ; "Byte" Wait 2 Cls Lcd "Look For Files.." Wait 2 Cls 'Chdir "test" Sfilename = Dir( "*.*") While Len(sfilename) > 0 Lcd Sfilename Wait 2 Cls Sfilename = Dir() Wend Locate 2 , 1 Lcd "No More Files!" Wait 2 Cls Lcd "Thank you" Locate 2 , 7 Lcd "_e_" Wait 2 Cls Lcd "Introducing..." Locate 2 , 1 Lcd "VS1003 !!!" Wait 2 Set Mmc_csn A1 = 8 A2 = 32 Cls Lcd "A= " ; A1 ; " " ; A2 Wait 2 Cls Lcd "Reseting VS1003." Reset Xrst Waitms 1 Set Xrst Waitus 500 Bitwait Dreq , Set Reset Xcs Cls Lcd "Write..." Locate 2 , 1 Lcd "P1." B = 2 Spiout B , 1 Lcd "P2." B = 0 Spiout B , 1 Lcd "P3." Spiout A1 , 1 Lcd "P4." Spiout A2 , 1 Set Xcs Waitus 500 Bitwait Dreq , Set Reset Xdcs B = &H53 Spiout B , 1 B = &HEF Spiout B , 1 B = &H6E Spiout B , 1 B = &H7E Spiout B , 1 B = 0 Spiout B , 1 Spiout B , 1 Spiout B , 1 Spiout B , 1 Set Xdcs Cls Lcd "Finish..." End 'end program
دیدگاه