مشکل با sd card

[mostafaserial]

سلام

من از برد arduino 2560 برای برقراری ارتباظ با رم استفاده کردم تو محیط نرم افزارش سریع ج گرفتم و دیتا تو رم منتقل شد
حالا من با بسکام همه نوع برنامه نوشتم و تونستم تو aerduino 2560 اجرا کنم ولی الان این برنامه رم رو نمیدونم چرا ج نمیده؟؟؟
برنامه رو از اینجا گرفتم
http://www.iseee.ir/engine/download.php?id=45

$regfile = "m2560def.dat"
$crystal = 16000000
$baud = 38400

$swstack = 32
$hwstack = 64
$framesize = 64

Wait 1

Enable Interrupts

$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"
'$include "config_mmc2.bas"

'-------------------------------

'Config Date = Ymd , Separator = /
'Config Clock = Soft
'Time$ = "12:00:00" : Date$ = "11/04/25"

'-------------------------------

Config Lcd = 20 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1

'-------------------------------


Print "******************************************** **********"
Print "**** MMC ------> AVR BY BASCOM *****"
Print "**** WWW.ISEEE.IR *****"
Print "**** BY HP_MAHMOOD *****"
Print "**** 2011/04/25 *****"
Print "******************************************** **********"
Locate 1 , 1
Lcd " MMC ----- > AVR (BASCOM)*"
Locate 2 , 1
Lcd "WWW.ISEEE.IR "


'--------------------------------

Print "AVR-DOS Library version : " ; Ver()
Cls
Lcd "AVR_DOS vershon" ; Ver()

'--------------------------------

Dim Conter As Byte
Conter = 0

Again:
'--------------------------------
If Conter > 5 Then

Print " error khafan !!! "
Cls
Lcd " error khafan !!! "
End

End If
'---------------------------------

Incr Conter

'--------------------------------- CHECK MMC

Print " Reset MMC ... "
Cls
Lcd " RESET MMC"
If Drivecheck() <> 0 Then
Print
Print "mmc is not ready to use … "
Locate 2 , 1
Lcd "mmc is not ready to use … "
Gosub Again
End If

'---------------------------------- INIT DRIVE

If Driveinit() <> 0 Then
Print "mmc not inserted, check Card ! "
Gosub Again
End If
Print "mmc init ... OK"

'---------------------------------- CHECK FILE SYSTEM

Print "File System ?? " ;
If Initfilesystem(1) <> 0 Then
Print
Print "File system is not supported "
Locate 2 , 1
Lcd "File system is not supported "
Gosub Again
End If
Print "ok"
Lcd "ok"

'-----------------------------------

Print "mmcsize : " ; Disksize() ; " bytes"
Lcd "mmcsize : " ; Disksize() ; " bytes"

'-----------------------------------

'Print "mmc free: " ; Diskfree() ; " bytes"
'lcd"mmc free: " ; Diskfree() ; " bytes"

'-----------------------------------

Dim S As String * 30
Print "----------------------------------------------"
S = Dir( "*.*&quot
While Len(s) > 0
Print S ; " " ; Filedate() ; " " ; Filetime() ; " " ; Filelen()
Lcd S ; " " ; Filedate() ; " " ; Filetime() ; " " ; Filelen()
S = Dir()
Wend
Print "----------------------------------------------"


Dim Filename As String * 20
Filename = "iseee.txt"
Open Filename For Output As #1


Dim Num As Word
S = " *************"
Print #1 , S
Print #1 , " file 1 :"
Print #1 , " www.iseee.ir"
Print #1 , " new but best ***"
Print #1 , " ****************"
Print #1 , " end of write in file "


Num = 2011
S = Str(num)
Print #1 , "IN : " ; S ; " *** "

Close #1
Waitms 100

Print "-----------------------------------"


Open "TEST.TXT" For Input As #2

Do

Line Input #2 , S
Print S
Cls
Lcd S

Loop Until Eof(#2 ) <> 0

Close #2

Print "-----------------------------------"


'Kill " is3e.txt "

End