ccTalkProtocol, ccTalk protocol management

PROGRAM ST_ccTalkProtocol
VAR
    i : UDINT; (* Auxiliary variable *)
    TimeBf : UDINT; (* Time buffer (uS) *)
    StartUp : BOOL; (* StartUp read *)
    CaseNr : USINT; (* Case number *)
    DBuf : ARRAY[0..4] OF BYTE; (* Data buffer *)
    ECounter : BYTE; (* Event counter *)
    Error : USINT; (* Error code *)
    Credit : REAL; (* Credit amount (€) *)
    Sp : SysSerialPort; (* Serial port management *)
    CCTalk : ccTalkProtocol; (* ccTalk protocol manager *)
END_VAR

// *****************************************************************************
// PROGRAM "ST_ccTalkProtocol"
// *****************************************************************************
// This program manages an Alberici AL66 coins acceptor.
// -----------------------------------------------------------------------------

    // -------------------------------------------------------------------------
    // INITIALIZATION
    // -------------------------------------------------------------------------
    // Initialize program objects.

    IF (SysFirstLoop) THEN
    
        // Initialize serial port.

        Sp.COM:=ADR('COM0'); //COM port definition
        Sp.Baudrate:=19200; //Baudrate
        Sp.Parity:='E'; //Parity
        Sp.DataBits:=8; //Data bits
        Sp.StopBits:=1; //Stop bits
        Sp.DTRManagement:=DTR_AUTO_WO_TIMES; //DTR management
        Sp.DTRComplement:=FALSE; //DTR complement
        Sp.EchoFlush:=FALSE; //Received echo flush
        Sp.DTROnTime:=0; //DTR On time delay (mS)
        Sp.DTROffTime:=0; //DTR Off time delay (mS)
        Sp.FlushTm:=0; //Flush time (mS)
        Sp.RxSize:=0; //Rx buffer size
        Sp.TxSize:=0; //Tx buffer size

        // Initialize variables.

        StartUp:=TRUE; //StartUp read
        CCTalk.Timeout:=0.5; //Timeout (S)
        TimeBf:=SysGetSysTime(TRUE); //Time buffer (uS)
    END_IF;

    // -------------------------------------------------------------------------
    // MANAGE THE CCTALK PROTOCOL
    // -------------------------------------------------------------------------
    // Manage the ccTalk protocol

    Sp(Open:=TRUE); //Serial port management
    CCTalk.File:=Sp.File; //I/O stream
    CCTalk(); //ccTalk protocol management

    // -------------------------------------------------------------------------
    // PROGRAM CASES
    // -------------------------------------------------------------------------
    // Manage the program cases. 

    CASE (CaseNr) OF

        // ---------------------------------------------------------------------
        // DELAY TIME
        // ---------------------------------------------------------------------
        // A delay is waited.

        0:
        IF ((SysGetSysTime(TRUE)-TimeBf) < 250000) THEN RETURN; END_IF;
        CaseNr:=10; //Case number

        // ---------------------------------------------------------------------
        // MODIFY INHIBIT STATUS COMMAND
        // ---------------------------------------------------------------------
        // Sets accepted coins, a mask is defined, each bit refer to a coin.
        // +-+-+-+-+-+-+-+-+----+----+----+-----+-----+-----+------+------+
        // |F|E|D|C|B|A|9|8|1 Ec|2 Ec|5 Ec|10 Ec|20 Ec|50 Ec|1 Euro|2 Euro|
        // +-+-+-+-+-+-+-+-+----+----+----+-----+-----+-----+------+------+
        // ---------------------------------------------------------------------
        // Send comand 231 (Modify inhibit status).

        10:
        DBuf[0]:=16#00; //Coins enable
        DBuf[1]:=16#0D; //Coins enable

        CCTalk.DAdd:=2; //Destination address
        CCTalk.CCode:=231; //Command code
        CCTalk.TxDBf:=ADR(DBuf); //Tx data buffer
        CCTalk.TxDLgt:=2; //Tx data length
        CCTalk.RxDBf:=eNULL; //Rx data buffer
        CCTalk.RxDLgt:=0; //Rx data length
        CCTalk.Enable:=TRUE; //Enable
        CaseNr:=CaseNr+1; //Case number

        // ---------------------------------------------------------------------
        // READ BUFFERED CREDIT OR ERROR CODES COMMAND
        // ---------------------------------------------------------------------
        // Send comand 229 (Read buffered credit or error codes).
        // This command must be sent at least every 500 mS.             

        1:
        IF NOT(CCTalk.Done) THEN RETURN; END_IF;
        CCTalk.DAdd:=2; //Destination address
        CCTalk.CCode:=229; //Command code 
        CCTalk.TxDBf:=eNULL; //Tx data buffer 
        CCTalk.TxDLgt:=0; //Tx data length 
        CCTalk.RxDBf:=ADR(DBuf); //Rx data buffer 
        CCTalk.RxDLgt:=2; //Rx data length 
        CCTalk.Enable:=TRUE; //Enable
        CaseNr:=CaseNr+1; //Case number

        // ---------------------------------------------------------------------
        // CALCULATE CREDIT AMOUNT
        // ---------------------------------------------------------------------
        // 1st Byte: Event counter (00 to FF, then 01. 00 on reset).       
        // 2nd Byte: Coins type (00 on coin error).  
        // 3th Byte: Exit path (On coin error the code is returned).
        // ---------------------------------------------------------------------
        // Wait command execution and check evene counter. 

        2:
        IF NOT(CCTalk.Done) THEN RETURN; END_IF;
        CaseNr:=0; //Case number

        // On startup initialize the event counter.

        IF (StartUp) THEN ECounter:=DBuf[0]; StartUp:=FALSE; RETURN; END_IF;
        IF (DBuf[0] = ECounter) THEN RETURN; END_IF;

        // Coin has been inserted check if is correct.

        ECounter:=DBuf[0]; //Event counter 
        IF ((DBuf[1] = 0) OR (DBuf[1] > 8)) THEN Error:=1; RETURN; END_IF;

        // Calculate credit amount.

        CASE (DBuf[1]) OF
            1: Credit:=Credit+2.0; //2 Euro
            2: Credit:=Credit+1.0; //1 Euro
            3: Credit:=Credit+0.5; //50 Cents
            4: Credit:=Credit+0.2; //20 Cents
            5: Credit:=Credit+0.1; //10 Cents
            6: Credit:=Credit+0.05; //5 Cents
            7: Credit:=Credit+0.02; //2 Cents
            8: Credit:=Credit+0.01; //1 Cent
        END_CASE;
    END_CASE;

// [End of file]