SPI an der C-Control, ist es so richtig?

[Amiwerewolf]

läuft das programm so?
ich hab keine SPI komponente da um es zu testen!

'//////////////////////////////////////
'
'  Basic++ 
'  Controller: 	C-Control I Unit M2.0
'              	Station2
'  Beschreibung:    Ansteuerung einer SPI-Komponente
'  Datum:           30.11.07
'
'//////////////////////////////////////
 
OPTION CC2.0  


DEFINE SLCK AS BIT      'später durch PORT ersetzten
DEFINE SDI  AS BIT      'später durch PORT ersetzten
DEFINE SDO AS BIT       'später durch PORT ersetzten
DEFINE CS1 AS BIT       'später durch PORT ersetzten

DEFINE data as byte

#main
init_spi()                                          'SPI INITIALISIERN
spi(12)                                             'Byte 12 an Bus senden
data = spi(0)                                       'Byte am Bus lesen
print data                                          'gelesenes byte ausgeben
END 

SUB init_spi()                                      'SPI Initialisieren
   CS1 = ON                                         'SPI Slave 1 dekativieren
   'CSn = OFF                                       'ggf. weitere Slaves deaktiveren
   SLCK = ON                                        'Clock Initialisieren
   pause 1
END SUB

FUNCTION spi(spiodata as byte [3])                'R/W auf SPI
   DEFINE spicount as byte
   DEFINE spiidata as byte [4]
   DEFINE spiibit as bit [32]
   DEFINE spiobit  as bit [24]                    'letztes Bit aus spiodata [BYTE3]
   FOR spicount = 0 to 8
      nop(200)
      SLCK=0 				'Abfallende Flanke des Clocks
      nop(100)
      SDO = spiobit	                              'SDO Bit Setzen 
      spiodata = spiodata shl 1                   'Daten vorbereiten    
      nop(200)
      spiidata = spiidata shl 1                   'Daten vorbereiten
      SLCK=1 				'Steigende Flanke des Clocks
      nop(100)
      spiibit = SDI                               'Daten Einlesen
   NEXT
   RETURN spiidata   
END SUB

SUB nop(nop_time as byte)                         'Prozessorwartezeit
   DEFINE nop_timecounter AS Byte
   FOR nop_timecounter = 1 to nop_time)
   NEXT
END SUB

[/code]

[Dierk]

Habe leider gerade keine SPI Komponente zur Hand und habe mich eigentlich noch nie mit SPI beschäftigt. Sieht aber recht einfach aus.
In der Function SPI würde ich aber die Bytes nicht festnageln und besser define ref at verwenden.

FUNCTION spi(spiodata as byte)                'R/W auf SPI
   DEFINE spicount as byte
   DEFINE spiidata as byte
   DEFINE spiibit ref spiidata at bit[8]
   DEFINE spiobit ref spiodata at bit[8]                    'letztes Bit aus spiodata
   FOR spicount = 0 to 8
      nop(200)
      SLCK=0             'Abfallende Flanke des Clocks
      nop(100)
      SDO = spiobit                                 'SDO Bit Setzen
      spiodata = spiodata shl 1                   'Daten vorbereiten   
      nop(200)
      spiidata = spiidata shl 1                   'Daten vorbereiten
      SLCK=1             'Steigende Flanke des Clocks
      nop(100)
      spiibit = SDI                               'Daten Einlesen
   NEXT
   RETURN spiidata   
END SUB

[Amiwerewolf]

ich habs angefangen fest zu setzten weil ich um ein FAT16 dateisytem aufzuauben viele variablen brauchen werde, evtl. eine c-control alein dazu benutzen weil sie damit ausgelastet ist!

[qayqay]

hallo, ich habe deinen code für ccontrol an spi gelesen. ich kenne mich mit dem protokoll nicht aus, benötige es aber zur nutzung eines sprachbausteins. wie ich den design guide (http://www.techs-store.com/support/m...d1700_eman.pdf . hier seite 39) verstehe, muss ich für "play" einen command-und ein data-byte eingeben, also 0x40 und 0x00. könntest du mir freundlicherweise helfen, wie ich deinen code verändern muss um dies zu erreichen?

ich hab mal angefangen mit: DEFINE ScK port[7] 'später durch PORT ersetzten
DEFINE SDo port[6] 'später durch PORT ersetzten
DEFINE ss port[8] 'später durch PORT ersetzten
DEFINE data as byte
DEFINE spicount as byte
DEFINE spiobit as bit [16]'letztes Bit aus spiodata [BYTE2]

#main
init_spi() 'SPI INITIALISIERN
spi(40h) 'Byte 12 an Bus senden
ss=1 'gelesenes byte ausgeben
END

SUB init_spi() 'SPI Initialisieren
ss = ON 'SPI Slave 1 dekativieren
'ss = OFF 'ggf. weitere Slaves deaktiveren
SCK = ON 'Clock Initialisieren
pause 1
END SUB

FUNCTION spi(spiodata as byte [2])
FOR spicount = 0 to 8
nop(200)
SCK=0 'Abfallende Flanke des Clocks
nop(100)
SDO = spiobit 'SDO Bit Setzen
spiodata = spiodata shl 1 'Daten vorbereiten
nop(200)
SCK=1 'Steigende Flanke des Clocks
nop(100)
NEXT
END SUB

SUB nop(nop_time as byte) 'Prozessorwartezeit
DEFINE nop_timecounter AS Byte
FOR nop_timecounter = 1 to nop_time
NEXT
END SUB

was muss ich ändern?