blob: a7b28fb6a32ed61673b07f19c6bb7e8057b364b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
LDmicro0.1
CYCLE=10000
CRYSTAL=4000000
BAUD=2400
IO LIST
Xin at 0
Yout at 0
Apot at 0
END
PROGRAM
RUNG
COMMENT This is the actual variable-delay TOF timer. When Rdel_input goes high, Rdel_output goes high \r\nt_max cycle times later. When Rdel_input goes low, Rdel_output goes low immediately.
END
RUNG
CONTACTS Rdel_input 0
LEQ t_count t_max
ADD t_count t_count 1
END
RUNG
CONTACTS Rdel_input 1
MOVE t_count 0
END
RUNG
COMMENT The extra branch is to make a delay of 0 cycles work correctly.
END
RUNG
PARALLEL
GRT t_count t_max
SERIES
CONTACTS Rdel_input 0
EQU t_max 0
END
END
COIL Rdel_output 0 0 0
END
RUNG
COMMENT \r\n
END
RUNG
COMMENT This is just an example of how to use the timer. The voltage attached to Apot (which goes\r\nfrom 0 V to Vdd) sets the delay between when Xin goes high and when Yout goes high.
END
RUNG
READ_ADC Apot
END
RUNG
COMMENT This only works with a cycle time of 10 ms. If we want the delay to be between 0 s and 5 s,\r\nthen it should be 0 to 500 cycle times; the ADC goes from 0 to 1023, so (roughly) divide by 2.
END
RUNG
DIV t_max Apot 2
END
RUNG
COMMENT Then just hook up the input and the output of the timer to pins. Of course\r\nthat could drive more complicated logic, not just a pin on the processor.
END
RUNG
CONTACTS Xin 0
COIL Rdel_input 0 0 0
END
RUNG
CONTACTS Rdel_output 0
COIL Yout 0 0 0
END
|
