Code:
$regfile = "m128def.dat"
$crystal = 16000000
$baud = 9600
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 128 , Noss = 0
Dim A(8) As Byte
Dim I As Byte
Dim I2 As Byte
Spiinit
Wait 1
I = 0
Restore Da1
'# initialisierung
Do
Read A(1)
Read A(2)
Spiout A(1) , 2
Incr I
Loop Until I = 24
'eine zeile hat 8 bytes, es werden immer 2 gleichzeitig gelesen,daher 6x4
'### Text der ausgegeben wird
Restore Da2
I = 0
Do
Read A(1)
Spiout A(1) , 1
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