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