Skip to content

unit DebugPinAux

em.utils/DebugPinAux.em
 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
package em.utils

from em.mcu import Common

module DebugPinAux

    type ToggleFxn: function()

    config pulseDelay: int32 = -1

    function pulse(toggleFxn: ToggleFxn)
    function mark(toggleFxn: ToggleFxn, k: uint8)

private:

    function delay()

end

def delay()
    ## TODO -- finer granularity
    Common.BusyWait.wait(<uint32>(-pulseDelay))
end

def pulse(toggleFxn)
    toggleFxn()
    delay()
    toggleFxn()
    delay()

end

def mark(toggleFxn, k)
    while k--
        pulse(toggleFxn)
    end
end