...leider keine Besserung...
ich wiederhole mich:
-ohne Datei auf der Karte -> Absturz nach erstem schreiben
-mit Datei -> alles bestens....

Das Programm hab ich nun gekürzt - kürzer gehts wohl nicht:
Code:
'kurzform zum testen

$regfile = "M644def.dat"
$crystal = 16000000
'$crystal = 14745600
'$crystal = 8000000
'$baud = 19200


'-------------------------------------------------------------------------------
'Ein- Ausgänge:

Ddra = &B00000000                                           '1 Ausgang, 0 Eingang = Pin PA7-0
'Ddrb = &B00000000                                           '1 Ausgang, 0 Eingang = Pin PB7-0
Ddrc = &B00000000                                           '1 Ausgang, 0 Eingang = Pin PC7-0
Ddrd = &B11000000                                           '1 Ausgang, 0 Eingang = Pin PD7-0
Config Pinb.4 = Output                                      'CS
Config Pinb.6 = Input                                       'MISO / DO

$include "config_mmc.bas"
$include "config_avr-dos.bas"

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

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

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

'-------------------------------------------------------------------------------
'Variablen:


Dim Tmpbyte As Byte                                         'zum initialisieren
Dim Btemp1 As Byte                                          'zum initialisieren


Dim Zu_schreiben As String * 10

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

Zu_schreiben = "Inhalt"

Waitms 500                                                  'ALT: 2 Sekunden

'_______________________________________________________________________________
'Init MMC/SD Card

Tmpbyte = Driveinit()
    Btemp1 = Initfilesystem(1)                              ' Partition 1

If Btemp1 <> 0 Then                                         'Wenn Fehler
Waitms 500
Goto Fehler
End If




'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Hauptprogramm Do...Loop
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
Do
Portd.6 = 1

Open "LOG.txt" For Append As #1
Print #1 , Zu_schreiben                                     'Variable auf SD schreiben
Close #1

Portd.6 = 0

Wait 2

Loop





'bei SD Fehler
Do
Fehler:
Portd.7 = 1                                                 'Grüne LED blinken für FEHLER
Wait 1
Portd.7 = 0                                                 'Grüne LED blinken für FEHLER
Wait 1
Loop