blob: b9d0c9dd7de6eb9057854d444644c427ad600520 (
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
LDmicro0.1
CYCLE=5000
CRYSTAL=4000000
BAUD=2400
IO LIST
Ycom_digit0 at 0
Ycom_digit1 at 0
Ycom_digit2 at 0
Yseg_a at 0
Yseg_b at 0
Yseg_c at 0
Yseg_d at 0
Yseg_e at 0
Yseg_f at 0
Yseg_g at 0
END
PROGRAM
RUNG
COMMENT Sample program: how to drive a multiplexed 7-segment LED display. This is\r\nfor a 3-digit common-cathode display but it is easy to modify.
END
RUNG
COMMENT With a 5 ms cycle time, this will oscillate at 100 Hz, which should be\r\nokay (33 Hz refresh rate, 1/3 duty cycle).
END
RUNG
CONTACTS Rdosc 1
COIL Rdosc 0 0 0
END
RUNG
CONTACTS Rdosc 0
CTC Cdigit 2
END
RUNG
COMMENT Use the Ycom_digitx lines to drive the base/gate of the NPN transistor/\r\nn-FET used to switch the cathode of digit x.
END
RUNG
PARALLEL
SERIES
EQU Cdigit 0
PARALLEL
COIL Ycom_digit0 0 0 0
MOVE digit digit0
END
END
SERIES
EQU Cdigit 1
PARALLEL
COIL Ycom_digit1 0 0 0
MOVE digit digit1
END
END
SERIES
EQU Cdigit 2
PARALLEL
COIL Ycom_digit2 0 0 0
MOVE digit digit2
END
END
END
END
RUNG
COMMENT You can drive the segment pins of the display directly from the GPIO pins,\r\nYseg_a to Yseg_b.
END
RUNG
PARALLEL
SERIES
NEQ digit 1
NEQ digit 4
COIL Yseg_a 0 0 0
END
SERIES
NEQ digit 5
NEQ digit 6
COIL Yseg_b 0 0 0
END
SERIES
NEQ digit 2
COIL Yseg_c 0 0 0
END
SERIES
NEQ digit 1
NEQ digit 4
NEQ digit 7
COIL Yseg_d 0 0 0
END
SERIES
PARALLEL
EQU digit 0
EQU digit 2
EQU digit 6
EQU digit 8
END
COIL Yseg_e 0 0 0
END
SERIES
NEQ digit 1
NEQ digit 2
NEQ digit 3
NEQ digit 7
COIL Yseg_f 0 0 0
END
SERIES
NEQ digit 0
NEQ digit 1
NEQ digit 7
COIL Yseg_g 0 0 0
END
END
END
RUNG
COMMENT Fill in your program here; just set the output that you want on digit0,\r\ndigit1, and digit2.
END
RUNG
PARALLEL
MOVE digit0 1
MOVE digit1 8
MOVE digit2 5
END
END
RUNG
COMMENT by Jonathan Westhues, June 2005
END
|
