Dac 12bit Mcp4822 obsługa tego przetwornika w Bascom

regfile = "m8def.dat"                                     
$crystal = 12000000                                       
Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = low , Phase = 1 , Clockrate = 4,  noss=0

Spiinit

Do
Gosub Spi_nadaj
Loop

End

Spi_nadaj:
$asm
   ldi r16, 00011111                                       
   Out Spdr , R16
Czekaj:
   sbis spsr,spif
   rjmp czekaj                                             

   ldi r16,11111111                                         
   Out Spdr , R16
Czekaj1:
   sbis spsr,spif
   rjmp czekaj1
$end Asm
ret

Spi_nadaj: 
$asm 
ldi r16, 0001[color=red]1111[/color]
Out Spdr , R16 
Czekaj: 
sbis spsr,spif 
rjmp czekaj 

 
ldi r16, [color=red]11111111[/color]
Out Spdr , R16 
Czekaj1: 
sbis spsr,spif 
rjmp czekaj1 
$end Asm 
ret

regfile = "m8def.dat"
$crystal = 12000000
config lcd = 20*4
cursor of
cls

config potrb.1 = output
config potrc.0 = output
config portc.1 = output 
Config Spi = Soft , Din = Pinb.4 , Dout = Portb.3 , Ss = None , Clock = Portb.5 

Dim Uwy as Byte
Dim Up as bit
Dim down as bit

up alias pinc.0
down alias pinc.1

Cs Alias Portb.1
Clk Alias Portb.5 

Uwy = 0

Do
set up
set down

Set Cs
Reset Cs

Shiftout Portb.3 , Clk , Uwy , 0

if up = 0 then
incr Uwy
end if

if down = 0 then
decr Uwy 
end if

lcd" Uwy ="
locate 1,7
lcd Uwy

loop