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 36 37 38 39 40 41
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; byControlByte : BYTE := 255; END_VAR // on purpose; xDI0; xDI1; xDI2; xDI3; wIn0; wIn1; xDO0 := xDI0; xDO1 := xDI1; xDO2 := xDI2; xDO3 := xDI3; byDO := byDI; wOut0 := wIn0; wOut1 := wIn1; byLED := byLED +1; IF byLED > 255 THEN byLED := 0; END_IF byControlByte := byControlByte -1; IF byControlByte < 0 THEN byControlByte := 255;