poke(204001C0h,007cbh)
' wait for 0.000200 ms (8 cycles)
' 8 = 4e5*0 + 8*0 + 3*0 + 2*2 + 4 = 8
a = 0
a = 0
poke(204000C0h,00806h)
' wait for 1.000000 ms (40000 cycles)
' 40000 = 4e5*0 + 8*4999 + 3*0 + 2*2 + 4 = 40000
for a = 1 to 4999
next a
a = 0
a = 0
for i = 1 to 21
dac (1, 27328) ' -1.660000 volts
dac (2, 14155) ' -5.680000 volts
dac (3, 12582) ' -6.160000 volts
' 0 low
' 3 low
' 10 low
poke(204001C0h,003c2h)
' wait for 150.000000 ms (6000000 cycles)
' 6000000 = 4e5*149 + 8*4999 + 3*0 + 2*2 + 4 = 6000000
for a = 1 to 149
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 0 high
' 2 high
' 1 low
poke(204001C0h,003c5h)
' wait for 10.000000 ms (400000 cycles)
' 400000 = 4e5*9 + 8*4999 + 3*0 + 2*2 + 4 = 400000
for a = 1 to 9
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 3 high
' 10 high
' 2 low
' 1 high
poke(204001C0h,007cbh)
' wait for 180.000000 ms (7200000 cycles)
' 7200000 = 4e5*179 + 8*4999 + 3*0 + 2*2 + 4 = 7200000
for a = 1 to 179
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 4 high
' 3 low
' 10 low
poke(204001C0h,003d3h)
' wait for 145.000000 ms (5800000 cycles)
' 5800000 = 4e5*144 + 8*4999 + 3*0 + 2*2 + 4 = 5800000
for a = 1 to 144
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 4 low
' 3 high
' 10 high
poke(204001C0h,007cbh)
' wait for 5.000000 ms (200000 cycles)
' 200000 = 4e5*4 + 8*4999 + 3*0 + 2*2 + 4 = 200000
for a = 1 to 4
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 3 low
' 10 low
' 2 high
' 1 low
poke(204001C0h,003c5h)
' wait for 10.000000 ms (400000 cycles)
' 400000 = 4e5*9 + 8*4999 + 3*0 + 2*2 + 4 = 400000
for a = 1 to 9
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 3 high
' 10 high
' 2 low
' 1 high
poke(204001C0h,007cbh)
' wait for 30.000000 ms (1200000 cycles)
' 1200000 = 4e5*29 + 8*4999 + 3*0 + 2*2 + 4 = 1200000
for a = 1 to 29
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 6 low
' 9 low
poke(204001C0h,0058bh)
' wait for 5.000000 ms (200000 cycles)
' 200000 = 4e5*4 + 8*4999 + 3*0 + 2*2 + 4 = 200000
for a = 1 to 4
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 6 high
' 9 high
poke(204001C0h,007cbh)
' wait for 5.000000 ms (200000 cycles)
' 200000 = 4e5*4 + 8*4999 + 3*0 + 2*2 + 4 = 200000
for a = 1 to 4
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
dac (1, 27688) ' -1.550000 volts
dac (2, 21299) ' -3.500000 volts
dac (3, 20480) ' -3.750000 volts
' wait for 5.000000 ms (200000 cycles)
' 200000 = 4e5*4 + 8*4999 + 3*0 + 2*2 + 4 = 200000
for a = 1 to 4
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
v_start = -2.0
v_step = 0.05
dac (1, (10.0 + v_start + (i-1)*v_step)*3276.8)
' wait for 4.000000 ms (160000 cycles)
' 160000 = 4e5*3 + 8*4999 + 3*0 + 2*2 + 4 = 160000
for a = 1 to 3
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 12 high
poke(204001C0h,017cbh)
' wait for 1.000000 ms (40000 cycles)
' 40000 = 4e5*0 + 8*4999 + 3*0 + 2*2 + 4 = 40000
for a = 1 to 4999
next a
a = 0
a = 0
' 12 low
' 5 high
' 8 low
poke(204001C0h,006ebh)
' wait for 0.100000 ms (4000 cycles)
' 4000 = 4e5*0 + 8*499 + 3*0 + 2*2 + 4 = 4000
for a = 1 to 499
next a
a = 0
a = 0
' 5 low
' 8 high
poke(204001C0h,007cbh)
' wait for 0.100000 ms (4000 cycles)
' 4000 = 4e5*0 + 8*499 + 3*0 + 2*2 + 4 = 4000
for a = 1 to 499
next a
a = 0
a = 0
n_pulses(i,11)
' wait for 4.800000 ms (192000 cycles)
' 192000 = 4e5*4 + 8*3999 + 3*0 + 2*2 + 4 = 192000
for a = 1 to 4
for b = 1 to 4999
next b
next a
for a = 1 to 3999
next a
a = 0
a = 0
for j = 1 to 500
' 7 low
poke(204001C0h,0074bh)
for k = 1 to 10
' 8 low
poke(204001C0h,0064bh)
' wait for 0.001000 ms (40 cycles)
' 40 = 4e5*0 + 8*4 + 3*0 + 2*2 + 4 = 40
for a = 1 to 4
next a
a = 0
a = 0
' 8 high
' 19 high
poke(204001C0h,0074bh)
' wait for 0.000200 ms (8 cycles)
' 8 = 4e5*0 + 8*0 + 3*0 + 2*2 + 4 = 8
a = 0
a = 0
poke(204000C0h,0080eh)
' wait for 0.001000 ms (40 cycles)
' 40 = 4e5*0 + 8*4 + 3*0 + 2*2 + 4 = 40
for a = 1 to 4
next a
a = 0
a = 0
' 19 low
poke(204000C0h,00806h)
next k
' 7 high
poke(204001C0h,007cbh)
if (i > 1) then
for k = 1 to i-1
' 7 low
poke(204001C0h,0074bh)
' wait for 5.000000 ms (200000 cycles)
' 200000 = 4e5*4 + 8*4999 + 3*0 + 2*2 + 4 = 200000
for a = 1 to 4
for b = 1 to 4999
next b
next a
for a = 1 to 4999
next a
a = 0
a = 0
' 7 high
poke(204001C0h,007cbh)
next k
endif
' 15 high
' 5 high
poke(204001C0h,087ebh)
' wait for 0.001000 ms (40 cycles)
' 40 = 4e5*0 + 8*4 + 3*0 + 2*2 + 4 = 40
for a = 1 to 4
next a
a = 0
a = 0
' 15 low
poke(204001C0h,007ebh)
' wait for 0.099000 ms (3960 cycles)
' 3960 = 4e5*0 + 8*494 + 3*0 + 2*2 + 4 = 3960
for a = 1 to 494
next a
a = 0
a = 0
' 8 low
poke(204001C0h,006ebh)
' wait for 0.100000 ms (4000 cycles)
' 4000 = 4e5*0 + 8*499 + 3*0 + 2*2 + 4 = 4000
for a = 1 to 499
next a
a = 0
a = 0
' 5 low
' 8 high
poke(204001C0h,007cbh)
next j
next i