Jetter JX2-IO16, Руководство пользователя

Страница: 75 / 124

JX2-IO16 10.4 Automatic pulse stretching
Jetter AG 75
Example8: Automatische Impulsverlängerung - Variante 2
Schleife mit Abfrage einer aktiven Impulsverlängerung
Programmauszug
WHEN IN 201 THEN //
// Waiting until first
rising edge is sensed
... // Doing anything
WHEN -IN 201 THEN //
// Waiting until pulse
stretching duration is
reset
GOTO l_Check_Input_1 // End of loop
...
...
REGISTER_LOAD (3008, 30)
//
//
// Selecting the register
array element 30 -> Edge/
State
BIT_CLEAR (3009, 0) // Selecting "Edge"
REGISTER_LOAD (3008, 29) //
//
// Selecting register array
element 29 -> Polarity
BIT_SET (3009, 0) // Rising edge
REGISTER_LOAD (3008, 31) //
//
// Selecting register array
element 31 -> Pulse
stretching duration
REGISTER_LOAD (3009, 10) // Pulse stretching duration
of 10 ms
...
LABEL l_Check_Input_1
// Beginning of loop
WHEN BIT_SET (3000, 16) THEN //
//
// Waiting until pulse
stretching of input 1 is
active
... // Doing anything
WHEN BIT_CLEAR (3000, 16) THEN //
//
// Waiting until pulse
stretching of input 1 is
reset
GOTO l_Check_Input_1 // End of loop
...