Download this file
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
PROGRAM PRG VAR xDI0 : BOOL; xDI1 : BOOL; xDI2 : BOOL; xDI3 : BOOL; byDI : BYTE; wIn0 : WORD; wIn1 : WORD; xDO1 : BOOL; xDO2 : BOOL; xDO3 : BOOL; xDO0 : BOOL; byDO : BYTE; wOut0 : WORD := 0; wOut1 : WORD := 0; byLED : BYTE := 0; byLedMask : BYTE := 0; byControlByte : BYTE; END_VAR wOut0 := wOut0 + 1; wOut1 := wOut0; IF wOut0 > 4096 THEN wOut0 := 0; END_IF IF byLedMask > 0 THEN byLED := byLED +1; IF byLED > 255 THEN byLED := 0; END_IF byControlByte := 3;