AD8108 sample code

Hi,

i have an circuit with an AD8108. It will use in parallel mode programming. i've wrote a little program to see if it working, but it doesn't work.

This sofware is written in bascom. Here is the code:

Set Adce
   Set Adclk                              'clk from ad8108 at high
   Set Adupdate                        'Update from ad8108 at high
   Set Adserpar                                             'Parallel Programmierung des AD8108
   Reset Adreset     'reset the ad8108
   Waitms 100          'wait 100ms
   Set Adreset                                              'Reset done
   Waitms 20

   Vinch = 0     'all output cannels have to connent to input channel 0
   For Vhelp = 0 To 7
      Voutch = Vhelp
      Call Cp_set               'set the registers
   Next Vhelp
   Reset Adce          'cs to low
   Waitms 2
   Reset Adupdate     'update low
   Waitms 5
   Set Adupdate          'update high
   Waitms 5
   Set Adce               'ce high

At this point all outputs have to be connected to the first input.

sub Cp_set

Reset Adce
   Set Adclk
   If Voutch.0 = 0 Then Reset Ada0 Else Set Ada0   'if bit 0 from variable Voutch is 0 then reset A0 pin from AD8108 else set it high
   If Voutch.1 = 1 Then Reset Ada1 Else Set Ada1
   If Voutch.2 = 2 Then Reset Ada2 Else Set Ada2
   If Vinch.0 = 0 Then Reset Add0 Else Set Add0
   If Vinch.1 = 1 Then Reset Add1 Else Set Add1
   If Vinch.2 = 2 Then Reset Add2 Else Set Add2
   Set Add3                'd3 always high, all outputs are active
   Reset Adclk
   Waitms 5
   Set Adclk
   Waitms 5
   Set Adce

endsub

Have anybody an sample program or can see what's my mistake?

Best regards

Torsten Mueller