SPI stop to work when LCD is added

pinkfloyd11 · Joined: 02 Jul 2007 Posts: 247

Hello

I'm developing an spi monitor and simulate it in proteus 8.1 sp1.

In debug mode, on slave cpu, you can see the tipical hello world string be received correctly (see CHAR variable).

If I add LCD configuration code, trasmission from SPI end to work.

Have you any idea why happen this?

Thanks

(BASCOM-AVR version : 2.0.7.8 )

bzijlstra · Posted: Wed Mar 11, 2015 2:12 pm Post subject: Show the Bascom-code

Show us the Bascom-code

Ben Zijlstra

pinkfloyd11 · Joined: 02 Jul 2007 Posts: 247

it is inside the project but for semplicity i will copy here:

//////////////////////////////////////////////////////
' SPI MASTER
'//////////////////////////////////////////////////////

$regfile = "m328pdef.dat"
$crystal = 16000000
$baud = 57600
$framesize = 128
$hwstack = 40
$swstack = 40

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 16
SPIINIT

Dim Lunghezza as Byte
Dim Indice As Byte
Dim CHAR As String * 1
Dim Stringa_da_Inviare as String * 11

'////////////////////////////////////////////////
'MAIN
'////////////////////////////////////////////////
'PRINT "SPI MASTER"

Stringa_da_Inviare = "Hello World"
Lunghezza = Len(Stringa_da_Inviare)

For Indice = 1 To Lunghezza
CHAR = Mid(Stringa_da_Inviare , Indice , 1)
Spiout CHAR , 1
Waitms 10
Next

Do

Loop
End
'///////////////////////////////////////////////

'_______________________________________________________________________________________

//////////////////////////////////////////////////////
' SPI SLAVE
'//////////////////////////////////////////////////////
$regfile = "m328pdef.dat"
$crystal = 16000000
$framesize = 128
$hwstack = 40
$swstack = 40

'//////////////////////////////////////////////////////////////////////
'CONFIGURAZIONE LCD
'//////////////////////////////////////////////////////////////////////
'Config PORTC = Output
'Config LCDPIN = Pin , Db4 = PORTC.2 , Db5 = PORTC.3 , Db6 = PORTC.4 , Db7 = PORTC.5 , E = PORTC.1 , Rs = PORTC.0
'Config Lcd = 16x2
'Cursor Off
'//////////////////////////////////////////////////////////////////////

'//////////////////////////////////////////////////////////////////////
'CONFIGURAZIONE SPI
'//////////////////////////////////////////////////////////////////////
Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = No , Polarity = Low , Phase = 0 , Clockrate = 16
SPIINIT
ON SPI SPI_IRS
ENABLE INTERRUPTS
'//////////////////////////////////////////////////////////////////////

Dim CHAR As String *1
Dim Received_Bytes As Byte

'CLS

'//////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////
'MAIN
'//////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////
DO

LOOP
'//////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////

'_______________________________________________________________________________________
SPI_IRS:

SPIIN CHAR, Received_Bytes
'LCD Char

Return

bzijlstra · Posted: Wed Mar 11, 2015 4:27 pm Post subject: quick question

Jtag disabled?

pinkfloyd11 · Joined: 02 Jul 2007 Posts: 247

How do it?
I'm simulate under Proteus