Code:
$regfile = "m128def.dat"
$crystal = 4000000 'internal 4MHz RC
$baud = 9600
Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 128 , Noss = 0
'Config Spi = Soft , Dout = Portb.2 , Clock = Portb.1 , Ss = Portb.0
'Hier habe ich mal probiert, lief auch nicht!!
Dim A(2) As Byte
Dim I As Byte
Spiinit
Wait 1
I = 0
Do ' Initialisierung und SETUP (Je 2 bytes werden gesendet)
A(1) = Lookup(i , Da1)
Incr I
A(2) = Lookup(i , Da1)
Spiout A(1) , 2
Waitms 10
Incr I
Loop Until I = 48
I = 0
Do 'Textausgabe (je ein byte wird gesendet)
A(1) = Lookup(i , Da2)
Spiout A(1) , 1
Waitms 10
Incr I
Loop Until I = 16
Do
nop
nop
nop
Loop
End
Da1:
Data &H30 , &H00 , &H30 , &H00 , &H00 , &HDB , &H10 , &H00
Data &H00 , &HCF , &H10 , &H4E , &H00 , &HD0 , &H15 , &H32
Data &H00 , &HCD , &H12 , &H01 , &H00 , &HCE , &H1B , &H95
Data &H00 , &HC0 , &H1F , &H90 , &H1F , &H90 , &H1F , &H80
Data &H1F , &H80 , &H1F , &H80 , &H1F , &H80 , &H1F , &H80
Data &H1F , &H80 , &H1F , &H80 , &H1F , &H80 , &H1F , &H80
Da2:
Data &H20 , &H35 , &H3B , &H32 , &H2C , &H31 , &H0B , &H0B
Data &H1D , &H2A , &H2D , &H32 , &H30 , &H0B , &H0B , &H0B
[/code]
Lesezeichen