Konfiguracja ATmega16 i Bascom do zapisu na kartę SD - problem z pinami

' Chip Select Pin  => Pin 1 of MMC/SD
   Config Pinb.3 = Output
   Mmc_cs Alias Portb.3
   Set Mmc_cs

   ' MOSI - Pin  => Pin 2 of MMC/SD
   Config Pinb.5 = Output
   Set Pinb.5
   Mmc_portmosi Alias Portb
   Bmmc_mosi Alias 2

   ' MISO - Pin  => Pin 7 of MMC/SD
   Config Pinb.6 = Input
   Mmc_portmiso Alias Pinb
   Bmmc_miso Alias 3

   ' SCK - Pin  => Pin 1 of MMC/SD
   Config Pinb.7 = Output
   Set Pinb.7
   Mmc_portsck Alias Portb
   Bmmc_sck Alias 1

$regfile = "m32def.dat"
$crystal = 16000000
$include "Config_MMC.bas"
$include "CONFIG_AVR-DOS.Bas"


 Config Lcdpin = Pin , Db4 = Pa.4 , Db5 = Pa.5 , Db6 = Pa.6 , Db7 = Pa.7 , E = Pa.3 , Rs = Pa.2
 Config Lcd = 16 * 2

Dim Hhh As Byte
Cls
Lcd "sprawdzam karte ... "
Wait 1


If Drivecheck() = 0 Then
Hhh = Driveinit()

Lowerline
Lcd "karta "
Lcd Hhh
Wait 2                                                      'Hhh=225

Dim Berror As Byte
Dim Abuffer(512) As Byte
Dim Wsrampointer As Word
Dim Lsectornumber As Long

Wsrampointer = Varptr(abuffer(1))

Berror = Drivegetidentity(wsrampointer)

   Cls : Lcd "OK  " ; Berror : Wait 2                       'Berror=232

Else

 Cls : Lcd "Brak karty" : Wait 5
    End

End If

Config Date = Dmy , Separator = .
Config Clock = User
Enable Interrupts



'zapisa na kartę

Open "Temper.txt" For Append As #2
   Write #2 , "zapis jakis tam"                             
   Flush #2
   Close #2

Lcd "zapis zakonczony"
Waitms 100

Config Date = Dmy , Separator = /
Config Clock = Soft
Enable Interrupts

Time$ = "15:00:00" : Date$ = "02.01.09"


Dim Gbtemp1 As Byte                                         ' scratch byte
Gbtemp1 = Initfilesystem(1)                                 ' we must init the filesystem once
If Gbtemp1 > 0 Then
 Cls
 Lcd "Error " ; Gbtemp1
 End
Else
 Cls
 Lcd " OK"


 Cls
 Lcd "Disksize : " ; Disksize()                             ' show disk size in bytes
 Lowerline
 Lcd "Disk free: " ; Diskfree()                             ' show free space too
End If
Wait 3


Open "test.txt" For Append As #2
   Write #2 , "jakiś wpis"
   Flush #2
   Close #2