logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

BASCOM i biblioteka mmc.lib - jak to działa?

TomekMus 20 Kwi 2009 20:12 3085 3
REKLAMA
  • #1 6437732
    TomekMus
    Poziom 17  
    W Bascom'ie jest biblioteka mmc.lib i nigdzie nie jest opisana jej konfiguracja jak i jej sposób użycia.
    Czy wiecie jak wysyłać i odbierać bajty przy użyciu tej biblioteki?

    Dodano po 3 [godziny] 51 [minuty]:

    Dokopałem się do czegoś takiego i co dalej.......

    $regfile = "m128def.dat"
    $crystal = 14745600
    $baud = 115200
    $hwstack = 150                                              'wartosc stosu
    $swstack = 150                                              'wartosc stosu
    $framesize = 150                                            'wartosc ramki
    
    
    Const cMMC_Soft = 0
    
    #IF cMMC_Soft = 0
    
    ' --------- Start of Section for HW-SPI ----------------------------------------
    
       ' define Chip-Select Pin
       Config PinB.0 = Output                                   ' define here Pin for CS of MMC/SD Card
       Mmc_cs Alias PortB.0
       Set Mmc_cs
    
       ' Define here SS Pin of HW-SPI of the CPU (f.e. Pinb.0 on M128)
       ' If an other Pin than SS is used for MMC_SS, SS must be set to OUTPUT and high for proper work of SPI
       ' otherwise AVR starts SPI-SLAVE if SS-Pin is INPUT and goes to LOW
       Config Pinb.0 = Output                                   ' define here Pin of SPI SS
       Spi_ss Alias PortB.0
       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 1 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
  • REKLAMA
  • REKLAMA
  • #3 6442501
    TomekMus
    Poziom 17  
    A jak odczytać pojemność karty MMC i ID
  • #4 6446296
    TomekMus
    Poziom 17  
    Jak sformatować karte MMC za pomocą mmc.lib?
REKLAMA