SPI-FbDrvMonarco

<?xml version="1.0" encoding="utf-8"?>---

~~~ST

PROGRAM PRG

VAR

    inByte: BYTE;

    outByte: BYTE;

    xOut0: BOOL;

    xOut1: BOOL;

    xOut2: BOOL;

    xOut3: BOOL;

    iAO0: INT;

    iAO1: INT;

    iAI0: INT;

    iAI1: INT;

    xIn0: BOOL;

    xIn1: BOOL;

    xIn2: BOOL;

    xIn3: BOOL;

END_VAR

~~~

~~~ST

outbyte := outbyte + 1;

IF outbyte > 15 THEN

    OutByte := 0;

END_IF

xOut0 := outbyte.0;

xOut1 := outbyte.1;

xOut2 := outbyte.2;

xOut3 := outbyte.3;

iAO0 := IAO0 + 1;

IF iAO0 > 4096 THEN

    iAO0 := 0;

END_IF;

iAO1 := IAO0;

IF iAO1 > 4096 THEN

    iAO1 := 0;

END_IF;

~~~