Subversion Repositories simple_customized_counter

component CDecoder (in  active  uint:4  iKeys,
                                    in  passive uint:10 iSwitches,
                                    out active  Opr_t   oOpr,
                                    out passive ubyte   oLoadValue)
{
    // This component decodes the Keys and the Switches input port as follow:
    //
    //      Switches bits 7-0 --> oLoadValue
    //
    //      Keys    An event on Keys generates an event on oOpr
    //              bit  0 --> Reset
    //              bit  1 --> Up
    //              bit  2 --> Down
    //              bit  3 --> Load

    enum KeyCmd_t { cKeyReset = 1, cKeyUp = 2, cKeyDown = 4, oKeyLoad = 8 };

    Decode(0) on iKeys
    {
        // Send the event
        oOpr:;

        // Decode the operation
        oOpr =  switch(iKeys)
                {
                    case cKeyReset: cOprReset;
                    case cKeyUp:    cOprUp;
                    case cKeyDown:  cOprDown;
                    case oKeyLoad:  cOprLoad;
                    default:        (uint:3)0;
                };
    }
    
    always()
    {
        oLoadValue = (ubyte)bits(iSwitches, 7ub, 0ub);
    }
};