symbol v = 2
symbol ad = pin3
symbol clk = 4
symbol s_out = 7
symbol data = b3
symbol i = b2
symbol k = b1
symbol j = b0
symbol synchro = b12
symbol sum = b11
setup: let pins = 255
let dirs = %11110111
loop:
for j = 0 to 15
let pin5 = bit3
let pin6 = bit2
let pin1 = bit1
let pin0 = bit0
gosub conv
serout s_out,N1200,(#j,#b3,13,10)
debug j, #b3
pause 1000
next j
goto loop
conv: low clk
low v
pulsout clk,1
let data = 0
for i = 1 to 8
let data = data * 2
pulsout clk,1
let data = data + ad
next
high v
return