Config Portd = Output
Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4       'SPI busz beállítása
En Alias Portd.7
Dim Adat As Byte
'**********************
En = 1
'Kezdés
Spiinit
'Az adatlap szerint 6.5MHz-re
'OCT
'1100
'DAC
'    1011000011
'Setting
'              00
'6,5MHz
'1100101100001100

'byte1
'11001011
'byte2
'00001100

'35MHz-re
'OCT=15
'1111
'DAC = 56
'111000
'setting=00
'1111000011100000


En = 0
Adat = &B11110000
Spiout Adat , 1
Adat = &B11100000
Spiout Adat , 1
En = 1

Do
   Waitms 100
Loop