seqnsls2.c File Reference

#include <math.h>
#include <stdio.h>
#include <string.h>
#include <dbDefs.h>
#include <errlog.h>
#include <recGbl.h>
#include <alarm.h>
#include <registryFunction.h>
#include <menuFtype.h>
#include <aSubRecord.h>
#include <epicsExport.h>

Include dependency graph for seqnsls2.c:

Go to the source code of this file.

Functions
long	seq_select (aSubRecord *prec)
	NSLS2 sequence selector. More...
	epicsExportRegistrar (asub_nsls2_evg)

Function Documentation

epicsExportRegistrar()

epicsExportRegistrar

(

asub_nsls2_evg

)

seq_select()

long seq_select

(

aSubRecord *

prec

)

NSLS2 sequence selector.

Process operator timing mode selection into a set of sequence rep. masks and associated status

Inputs

Parameters

A	Linac mode selection (enum) A ULONG
B	Booster mode selection (enum) B ULONG
C	Linac permitted mode mask (bitmask) C ULONG
D	Booster permitted mode mask (bitmask) D ULONG

Outputs

Parameters

VALA	Booster injection possible (bool) VALA ULONG
VALB	Injection rep. diagnostic bit mask (bitmask) VALB ULONG
VALC	Linac sequence rep. mask (bitmask) VALC ULONG
VALD	Booster 1Hz sequence rep. mask (bitmask) VALD ULONG
VALE	Booster 2Hz sequence rep. mask (bitmask) VALE ULONG
VALF	Booster Stacking sequence rep. mask (bitmask) VALF ULONG

Definition at line 54 of file seqnsls2.c.

{
    int fail = 0;
    epicsUInt32 LNMode, BRMode, LNMask, BRMask;
    epicsUInt32 *BRAllow = prec->vala,
                *InjMask = prec->valb,
                *LNRepMask = prec->valc,
                *BR1HzRepMask = prec->vald,
                *BR2HzRepMask = prec->vale,
                *BRStkRepMask = prec->valf;

    if(prec->fta!=menuFtypeULONG ||
        prec->ftb!=menuFtypeULONG ||
        prec->ftc!=menuFtypeULONG ||
        prec->ftd!=menuFtypeULONG ||
        prec->ftva!=menuFtypeULONG ||
        prec->ftvb!=menuFtypeULONG ||
        prec->ftvc!=menuFtypeULONG ||
        prec->ftvd!=menuFtypeULONG ||
        prec->ftve!=menuFtypeULONG ||
        prec->ftvf!=menuFtypeULONG)
    {
        errlogPrintf("%s: Invalid field types!\n", prec->name);
        (void)recGblSetSevr(prec, READ_ALARM, INVALID_ALARM);
        return 0;
    }

    LNMode = *(epicsUInt32*)prec->a;
    BRMode = *(epicsUInt32*)prec->b;
    LNMask = *(epicsUInt32*)prec->c;
    BRMask = *(epicsUInt32*)prec->d;

    /* Allow only permitted slots to be filled */
    LNMode &= LNMask;
    BRMode &= BRMask;
    
    if(LNMode&~0x3ff) {
        errlogPrintf("%s: Invalid LN Mode Mask\n", prec->name);
        fail = 1;
    }
    if(BRMode&~0xf) {
        errlogPrintf("%s: Invalid BR Mode Mask\n", prec->name);
        fail = 1;
    }
    
    if(fail) {
        (void)recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
        LNMode = BRMode = 0;
    }
    
    *InjMask = (LNMode<<4)|BRMode;
    
    switch(*InjMask) {
    case 0x011: /* 1Hz in both */
    case 0x032: /* Stacking in both */
    case 0x21C: /* 2 Hz in both */
        *BRAllow = 1;
        break;
    default: /* All others prohibit injection into BR */
        *BRAllow = 0;
    }
    
    *LNRepMask = LNMode; 
    *BR1HzRepMask = BRMode & 1;
    *BR2HzRepMask = (BRMode>>2) & 3;
    *BRStkRepMask = (BRMode>>1) & 1;

    return 0;
}