Dickes SPI Problem

[Julius F. (xeno)]

Hallo,

Ich will eine SD-Karte betreiben habe mir da schon eine kleine Schaltung 
zusammen gebaut (siehe Anhang), sie läuft auch so weit.

Ich habe mir mal ein kleines Test Programm erstellt:

$regfile = "M644def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 14745600
$baud = 9600

Dim B As Byte
Do
$include "Config_MMC.bas"
If Gbdriveerror <> 0 Then
   Print "error"
End If
$include "Config_AVR-DOS.BAS"
B = Initfilesystem(1)
If B <> 0 Then
   Print B
Else
   Print "Mal ein Durchlauf geschafft"
End If
Loop
End

Nun habe ich das Problem wenn ich das MOSI kabel oder den PIN nur 
berühre gibt es nur ERRORS!

Möchte gerne ein weiteres SPI gerät betreiben aber wenn ich nur das 
kabel rein stecke (MOSI,.. am AVR) Kackt mein test Programm ab. Ich 
sitze schon die ganze noch dran, leider ohne erfolg.

Könnt ihr mir vll weiter helfen? Das wäre echt nett und Hilfreich :)

[paytv (Gast)]

was steht denn so in der mmc.bas?

[Julius F. (xeno)]

>was steht denn so in der mmc.bas?

in der mmc_config steht:


' THIS IS AN INCLUDE FILE
' DO NOT COMPILE
$nocompile
'----------------------------------------------------------------------- 
--------
'                         Config_MMC.BAS
'               Config File for MMC Flash Cards Driver
'        (c) 2003-2005 , MCS Electronics / Vögel Franz Josef
'----------------------------------------------------------------------- 
--------
' Place MMC.LIB in the LIB-Path of BASCOM-AVR installation
'
'Connection as following
'MMC    M128/M103
'1      MMC_CS PORTB.0
'2      MOSI PORTB.2
'3      GND
'4      +3.3V
'5      CLOCK PORTB.1
'6      GND
'7      MISO, PORTB.3

' you can vary MMC_CS on HW-SPI and all pins on SOFT-SPI, check settings
' ========== Start of user definable range 
=====================================

' you can use HW-SPI of the AVR (recommended) or a driver build in 
Soft-SPI, if
' the HW-SPI of the AVR is occupied by an other SPI-Device with 
different settings

' Declare here you SPI-Mode
' using HW-SPI:     cMMC_Soft = 0
' not using HW_SPI: cMMC_Soft = 1

Const Cmmc_soft = 0

#if Cmmc_soft = 0

' --------- Start of Section for HW-SPI 
----------------------------------------

   ' define Chip-Select Pin
   Config Pinb.3 = Output                                   ' define 
here Pin for CS of MMC/SD Card
   Mmc_cs Alias Portb.3
   Set Mmc_cs

   ' Define here SS Pin of HW-SPI of the CPU (f.e. Pinb.0 on M128)
   Config Pinb.4 = Output                                   ' define 
here Pin of SPI SS
   Spi_ss Alias Portb.4
   Set Spi_ss                                               ' Set SPI-SS 
to Output and High por Proper work of
                                                  ' SPI as Master

   ' HW-SPI is configured to highest Speed
   Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes 
, Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
   Spsr = 1                                                 ' Double 
speed on ATMega128
   Spiinit                                                  ' Init SPI

' --------- End of Section for HW-SPI 
------------------------------------------

#else                                                       ' Config 
here SPI pins, if not using HW SPI

' --------- Start of Section for Soft-SPI 
--------------------------------------

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

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

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

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

' --------- End of Section for Soft-SPI 
----------------------------------------

#endif

' ========== End of user definable range 
=======================================


' Error
Const Cperrdrivereset = 225                                 ' Error 
response Byte at Reset command
Const Cperrdriveinit = 226                                  ' Error 
response Byte at Init Command
Const Cperrdrivereadcommand = 227                           ' Error 
response Byte at Read Command
Const Cperrdrivewritecommand = 228                          ' Error 
response Byte at Write Command
Const Cperrdrivereadresponse = 229                          ' No Data 
response Byte from MMC at Read
Const Cperrdrivewriteresponse = 230                         ' No Data 
response Byte from MMC at Write
Const Cperrdrive = 231
Const Cperrdrivenotsupported = 232                          ' return 
code for DriveGetIdentity, not supported yet

Waitms 1                                                    ' Wait some 
time before initialising MMC/SD
Dim Gbdriveerror As Byte                                    ' General 
Driver Error register
Dim Gbdriveerrorreg As Byte                                 ' Driver 
load Error-Register of HD in case of error
Dim Gbdrivestatusreg As Byte                                ' Driver 
load Status-Register of HD on case of error
Dim Gbdrivedebug As Byte
$lib "MMC.LIB"                                              ' link 
driver library
$external _mmc
Gbdriveerror = Driveinit()                                  ' Init 
MMC/SD Card

[Kai F. (kai-)]

sehe ich das richtig, dass du die SD Karte mit 5V befeuern willst? Ich 
glaub das gefällt ihr nicht so gut, mach mal 3,3V draus

[TK (Gast)]

Der Thread ist zwar nicht mehr der aktuellste aber ich habe folgendes 
Problem: Ich habe mir u.a. den oben aufgeführten Text der 
"Config_MMC.bas" gezogen und in ein leeres .bas-Dokument eingefügt. Ich 
habe es einmal kompilliert und einmal nicht, beim einbinden kommen aber 
immer Fehlermeldungen. Wie ich das verstanden habe soll man den Text 
ohne kompillieren übernehmen und u.U. die Ports ändern, was ich soweit 
gemacht habe. Was kann die Ursache des Problems sein??

MfG