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 33 34 35
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; wOut1 : WORD; byLED : BYTE := 0; byLedMask : BYTE := 255; byControlByte : BYTE; END_VAR xDO0 := xDI0; xDO1 := xDI1; xDO2 := xDI2; xDO3 := xDI3; byDO := byDI; wOut0 := wOut0 + 1; wOut1 := wOut0; IF wOut0 > 4096 THEN wOut0 := 0; END_IF byLED := byLED +1; IF byLED > 255 THEN byLED := 0; byControlByte := 3;