Allen Bradley: Add support for retrieving adapter/card status

src/dev/Makefile.Vx

@@ -103,6 +103,7 @@ SRCS.c += ../devAB1771IR.c
 SRCS.c += ../devAB1771IXE.c
 SRCS.c += ../devAB1771OFE.c
 SRCS.c += ../devABBINARY.c
+SRCS.c += ../devABStatus.c
 SRCS.c += ../devMpc.c
 
 #	OBJS += devAaiCamac.o
@@ -203,6 +204,7 @@ OBJS += devAB1771IR.o
 OBJS += devAB1771IXE.o
 OBJS += devAB1771OFE.o
 OBJS += devABBINARY.o
+OBJS += devABStatus.o
 OBJS += devMpc.o
 
 PROD = devSup

src/dev/devABStatus.c

@@ -0,0 +1,114 @@
+/* devABStatus.c */
+/*
+ *      Original Authors: Marty Kraimer (nagging by Ned Arnold,Bob dalesio)
+ *      Date:  3/6/91
+ *
+ *	Experimental Physics and Industrial Control System (EPICS)
+ *
+ *	Copyright 1991, the Regents of the University of California,
+ *	and the University of Chicago Board of Governors.
+ *
+ *	This software was produced under  U.S. Government contracts:
+ *	(W-7405-ENG-36) at the Los Alamos National Laboratory,
+ *	and (W-31-109-ENG-38) at Argonne National Laboratory.
+ *
+ *	Initial development by:
+ *		The Controls and Automation Group (AT-8)
+ *		Ground Test Accelerator
+ *		Accelerator Technology Division
+ *		Los Alamos National Laboratory
+ *
+ *	Co-developed with
+ *		The Controls and Computing Group
+ *		Accelerator Systems Division
+ *		Advanced Photon Source
+ *		Argonne National Laboratory
+ *
+ * Modification Log:
+ * -----------------
+ * .01  04-20-95	mrk	Initial version
+ * 	...
+ */
+
+
+#include	<vxWorks.h>
+#include	<stdlib.h>
+#include	<stdio.h>
+#include	<string.h>
+
+#include	<dbDefs.h>
+#include	<alarm.h>
+#include	<cvtTable.h>
+#include	<dbAccess.h>
+#include        <recSup.h>
+#include	<devSup.h>
+#include	<link.h>
+#include	<drvAb.h>
+#include        <mbbiRecord.h>
+
+typedef struct {
+	void		*drvPvt;
+	IOSCANPVT	ioscanpvt;
+}devPvt;
+
+
+/* Create the dsets*/
+typedef struct {
+	long            number;
+	DEVSUPFUN       report;
+	DEVSUPFUN       init;
+	DEVSUPFUN       init_record;
+        DEVSUPFUN       get_ioint_info;
+        DEVSUPFUN       read_bi;} ABBIDSET;
+
+LOCAL long init_common(struct mbbiRecord *prec);
+LOCAL long read_adapter_status(struct mbbiRecord *prec);
+LOCAL long read_card_status(struct mbbiRecord *prec);
+ABBIDSET devMbbiAbAdapterStat=  { 5, 0, 0, init_common, 0, read_adapter_status};
+ABBIDSET devMbbiAbCardStat=  { 5, 0, 0, init_common, 0, read_card_status};
+
+LOCAL long init_common(struct mbbiRecord *prec)
+{
+    unsigned long	*pstate_values;
+    char		*pstate_string;
+    unsigned short	*palarm_sevr;
+    short		i;
+
+    if(abFailure>=16) {
+	epicsPrintf("devMbbiAbLinkStat. > 16 error status values\n");
+	taskSuspend(0);
+	return(0);
+    }
+    pstate_values = &(prec->zrvl);
+    pstate_string = prec->zrst;
+    palarm_sevr = &prec->zrsv;
+    /*Following code assumes that abFailure is last status value*/
+    for(i=0; i<=abFailure; i++ ,pstate_string += sizeof(prec->zrst)){
+	pstate_values[i] = 1<<i;
+	if(pstate_string[0]=='\0')
+		strncpy(pstate_string,abStatusMessage[i],sizeof(prec->zrst)-1);
+	if(i>0) palarm_sevr[i] = MAJOR_ALARM;
+    }
+    return(0);
+}
+
+LOCAL long read_adapter_status(struct mbbiRecord *prec)
+{
+	abStatus	status;
+	struct abio	*pabio;
+
+	pabio = (struct abio *)&(prec->inp.value);
+	status = (*pabDrv->adapterStatus)(pabio->link,pabio->adapter);
+	prec->rval = 1 << status;;
+	return(0);
+}
+LOCAL long read_card_status(struct mbbiRecord *prec)
+{
+	abStatus	status;
+	struct abio	*pabio;
+
+	pabio = (struct abio *)&(prec->inp.value);
+	status = (*pabDrv->cardStatus)(pabio->link,pabio->adapter,pabio->card);
+	prec->rval = 1 << status;;
+	return(0);
+}