View source

Bascom continuously Streams Data to the SPI bus trying to minimize additional commands sent over the SPI bus by taking advantage of some the the FT800 capabilities. Because of method used you have to be aware you can just add another SPI device and just let your micro talk to it.

&nbsp;

What happens here, is that the CHIP Select line is held LOW for most of the time (depending on what code the Bascom FT800 is running at the time), if another SPI device wants to communicate with that micro then the data from that device will also be sent to the FT800 which means that you will get unexpected results!.

&nbsp;

Wait, don't fear, here is some example code to show you how it can be done easily.

&nbsp;

Our friend is&nbsp;<span style="font-weight: bold; color: rgb(255, 0, 255);">Endtransfer</span>

<span style="font-weight: bold; color: rgb(255, 0, 255);">&nbsp;</span>

In the example below AVR-DOS needs to enable the Chip Select to do it's job (reading/writing), before doing so you have to call&nbsp;<span style="font-weight: bold; color: rgb(255, 0, 255);">Endtransfer&nbsp;</span>which tells the Micro to&nbsp;<span style="color: rgb(128, 0, 128);">Set</span>&nbsp;the Chip Select line to the FT800.

&nbsp;

Note: The Chip Select line for the FT800 should/will automatically&nbsp;<span style="color: rgb(128, 0, 128);">Reset</span>&nbsp;next time it has to execute commands.

<source lang="bascomavr">
'-------------------------------------------------------------------------------------------
Sub LoadJpeg( Byval file As Byte)
'-------------------------------------------------------------------------------------------
 ' API's used to upload the image to GRAM from SD card
 
 Local fsize As Dword
 Local BlockLen As Word, Ptr1 As Word, Ptr2 As Word, Ptr3 As Word
 
 Endtransfer '<--------
 Open imagename(file) for Binary as #1
 
 fsize = Lof(1)
 
 Ptr1 = 1 ' Start at the first byte
 BlockLen = Chunk
 While fsize > 0
 If fsize > Chunk Then BlockLen = Chunk Else BlockLen = fsize
 fsize = fsize - BlockLen
 Endtransfer '<--------
 Get #1, Dat, Ptr1, BlockLen
 
 ALign4 BlockLen
 
 Ptr2 = BlockLen
 Ptr3 = _base
 
 While Ptr2 > 0
 Cmd8 aDat(Ptr3)
 Incr Ptr3
 Decr Ptr2
 Wend
 
 EndTransfer '<--------
 WaitCmdFifoEmpty
 
 Ptr1 = Ptr1 + BlockLen
 Wend
 Close #1
 
End Sub ' LoadJpeg
</source>

<br/>{{Languages}}

[[Category:FT800]]