diff --git a/src/dev/devAiKscV215.c b/src/dev/devAiKscV215.c
new file mode 100644
index 000000000..4cf8ec40a
--- /dev/null
+++ b/src/dev/devAiKscV215.c
@@ -0,0 +1,134 @@
+/* devAiKscV215.c */
+/* share/src/dev $Id$ */
+
+/*
+ *      Original Author: Bob Dalesio
+ *      Current Author:  Marty Kraimer
+ *      Date:            09-02-92
+ *
+ *      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  08-02-92	mrk	Original version
+ */
+
+#include	<vxWorks.h>
+#include	<types.h>
+#include	<stdioLib.h>
+#include	<string.h>
+
+#include	<alarm.h>
+#include	<cvtTable.h>
+#include	<dbDefs.h>
+#include	<dbAccess.h>
+#include        <recSup.h>
+#include	<devSup.h>
+#include	<dbScan.h>
+#include	<link.h>
+#include	<module_types.h>
+#include	<aiRecord.h>
+
+static long init_ai();
+static long ai_ioinfo();
+static long read_ai();
+static long ai_lincvt();
+
+
+typedef struct {
+	long		number;
+	DEVSUPFUN	report;
+	DEVSUPFUN	init;
+	DEVSUPFUN	init_record;
+	DEVSUPFUN	get_ioint_info;
+	DEVSUPFUN	read_write;
+	DEVSUPFUN	special_linconv;} AIDSET;
+
+
+AIDSET devAiKscV215={6,NULL,NULL,init_ai,ai_ioinfo,read_ai,ai_lincvt};
+
+static long init_ai( struct aiRecord	*pai)
+{
+    unsigned short value;
+    struct vmeio *pvmeio;
+    long  status;
+
+    /* ai.inp must be an VME_IO */
+    switch (pai->inp.type) {
+    case (VME_IO) :
+	break;
+    default :
+	recGblRecordError(S_db_badField,(void *)pai,
+		"devAiAt5Vxi (init_record) Illegal INP field");
+	return(S_db_badField);
+    }
+
+    /* set linear conversion slope*/
+    pai->eslo = (pai->eguf -pai->egul)/4095.0;
+
+    /* call driver so that it configures card */
+    pvmeio = (struct vmeio *)&(pai->inp.value);
+    if(status=KscV215_ai_driver(pvmeio->card,pvmeio->signal,&value)) {
+	recGblRecordError(status,(void *)pai,
+		"devAiKscV215 (init_record) KscV215_ai_driver error");
+	return(status);
+    }
+    return(0);
+}
+
+static long ai_ioinfo(
+    int               cmd,
+    struct aiRecord     *pai,
+    IOSCANPVT		*ppvt)
+{
+    KscV215_getioscanpvt(pai->inp.value.vmeio.card,ppvt);
+    return(0);
+}
+
+static long read_ai(struct aiRecord	*pai)
+{
+	struct vmeio *pvmeio;
+	int	     status;
+	unsigned short value;
+
+	
+	pvmeio = (struct vmeio *)&(pai->inp.value);
+	status = KscV215_ai_driver(pvmeio->card,pvmeio->signal,&value);
+	if(status==0 || status==-2) pai->rval = value & 0xfff;
+        if(status==-1) {
+		status = 2; /*don't convert*/
+                recGblSetSevr(pai,READ_ALARM,INVALID_ALARM);
+        }else if(status==-2) {
+                status=0;
+                recGblSetSevr(pai,HW_LIMIT_ALARM,INVALID_ALARM);
+        }
+	return(status);
+}
+
+static long ai_lincvt(struct aiRecord	*pai, int after)
+{
+
+    if(!after) return(0);
+    /* set linear conversion slope*/
+    pai->eslo = (pai->eguf -pai->egul)/4095.0;
+    return(0);
+}
diff --git a/src/dev/devAt8Fp.c b/src/dev/devAt8Fp.c
new file mode 100644
index 000000000..8e115b45b
--- /dev/null
+++ b/src/dev/devAt8Fp.c
@@ -0,0 +1,251 @@
+/* devFp.c */
+/* share/src/dev $Id$ */
+
+/*
+ *      Original Author: Bob Dalesio
+ *      Current Author:  Marty Kraimer
+ *      Date:            09-02-92
+ *
+ *      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  08-02-92        mrk     Original version
+ */
+
+#include	<vxWorks.h>
+#include	<types.h>
+#include	<stdioLib.h>
+#include	<string.h>
+
+#include	<alarm.h>
+#include	<cvtTable.h>
+#include	<dbDefs.h>
+#include	<dbAccess.h>
+#include        <recSup.h>
+#include	<devSup.h>
+#include	<dbScan.h>
+#include	<link.h>
+#include	<module_types.h>
+#include	<biRecord.h>
+#include	<boRecord.h>
+#include	<mbbiRecord.h>
+#include	<mbboRecord.h>
+
+
+static long init_bi();
+static long init_bo();
+static long init_mbbi();
+static long init_mbbo();
+static long bi_ioinfo();
+static long mbbi_ioinfo();
+static long read_bi();
+static long write_bo();
+static long read_mbbi();
+static long write_mbbo();
+
+
+typedef struct {
+	long		number;
+	DEVSUPFUN	report;
+	DEVSUPFUN	init;
+	DEVSUPFUN	init_record;
+	DEVSUPFUN	get_ioint_info;
+	DEVSUPFUN	read_write;
+	} BINARYDSET;
+
+
+BINARYDSET devBiFp=  {6,NULL,NULL,init_bi,  bi_ioinfo,  read_bi};
+BINARYDSET devBoFp=  {6,NULL,NULL,init_bo,       NULL,  write_bo};
+BINARYDSET devMbbiFp={6,NULL,NULL,init_mbbi,mbbi_ioinfo,read_mbbi};
+BINARYDSET devMbboFp={6,NULL,NULL,init_mbbo,       NULL,write_mbbo};
+
+static long init_bi( struct biRecord	*pbi)
+{
+    struct vmeio *pvmeio;
+
+
+    /* bi.inp must be an VME_IO */
+    switch (pbi->inp.type) {
+    case (VME_IO) :
+	pvmeio = (struct vmeio *)&(pbi->inp.value);
+	pbi->mask=1;
+	pbi->mask <<= pvmeio->signal;
+	break;
+    default :
+	recGblRecordError(S_db_badField,(void *)pbi,
+		"devBiFp (init_record) Illegal INP field");
+	return(S_db_badField);
+    }
+    return(0);
+}
+
+static long bi_ioinfo(
+    int               cmd,
+    struct biRecord     *pbi,
+    IOSCANPVT		*ppvt)
+{
+    fp_getioscanpvt(pbi->inp.value.vmeio.card,ppvt);
+    return(0);
+}
+
+static long read_bi(struct biRecord	*pbi)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+	long	    value;
+
+	
+	pvmeio = (struct vmeio *)&(pbi->inp.value);
+	status = fp_read(pvmeio->card,pbi->mask,&value);
+	if(status==0) {
+		pbi->rval = value;
+		return(0);
+	} else {
+                recGblSetSevr(pbi,READ_ALARM,INVALID_ALARM);
+		return(2);
+	}
+}
+
+static long init_bo(struct boRecord	*pbo)
+{
+    unsigned int value;
+    int status=0;
+    struct vmeio *pvmeio;
+
+    /* bo.out must be an VME_IO */
+    switch (pbo->out.type) {
+    case (VME_IO) :
+	pvmeio = (struct vmeio *)&(pbo->out.value);
+	pbo->mask = 1;
+	pbo->mask <<= pvmeio->signal;
+        status = fp_read(pvmeio->card,pbo->mask,&value);
+        if(status == 0) pbo->rbv = pbo->rval = value;
+        else status = 2;
+	break;
+    default :
+	status = S_db_badField;
+	recGblRecordError(status,(void *)pbo,
+	    "devBoFp (init_record) Illegal OUT field");
+    }
+    return(status);
+}
+
+static long write_bo(struct boRecord	*pbo)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+
+	
+	pvmeio = (struct vmeio *)&(pbo->out.value);
+	status = fp_driver(pvmeio->card,pbo->rval,pbo->mask);
+	if(status!=0) {
+                recGblSetSevr(pbo,WRITE_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
+
+static long init_mbbi(struct mbbiRecord	*pmbbi)
+{
+
+    /* mbbi.inp must be an VME_IO */
+    switch (pmbbi->inp.type) {
+    case (VME_IO) :
+	pmbbi->shft = pmbbi->inp.value.vmeio.signal;
+	pmbbi->mask <<= pmbbi->shft;
+	break;
+    default :
+	recGblRecordError(S_db_badField,(void *)pmbbi,
+		"devMbbiFp (init_record) Illegal INP field");
+	return(S_db_badField);
+    }
+    return(0);
+}
+
+static long mbbi_ioinfo(
+    int               cmd,
+    struct mbbiRecord     *pmbbi,
+    IOSCANPVT		*ppvt)
+{
+    fp_getioscanpvt(pmbbi->inp.value.vmeio.card,ppvt);
+    return(0);
+}
+
+static long read_mbbi(struct mbbiRecord	*pmbbi)
+{
+	struct vmeio	*pvmeio;
+	int		status;
+	unsigned long	value;
+
+	
+	pvmeio = (struct vmeio *)&(pmbbi->inp.value);
+	status = at5vxi_read(pvmeio->card,pmbbi->mask,&value);
+	if(status==0) {
+		pmbbi->rval = value;
+	} else {
+                recGblSetSevr(pmbbi,READ_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
+
+static long init_mbbo(struct mbboRecord	*pmbbo)
+{
+    unsigned long value;
+    struct vmeio *pvmeio;
+    int		status = 0;
+
+    /* mbbo.out must be an VME_IO */
+    switch (pmbbo->out.type) {
+    case (VME_IO) :
+	pvmeio = &(pmbbo->out.value.vmeio);
+	pmbbo->shft = pvmeio->signal;
+	pmbbo->mask <<= pmbbo->shft;
+	status = fp_read(pvmeio->card,pmbbo->mask,&value);
+	if(status==0) pmbbo->rbv = pmbbo->rval = value;
+	else status = 2;
+	break;
+    default :
+	status = S_db_badField;
+	recGblRecordError(status,(void *)pmbbo,
+		"devMbboFp (init_record) Illegal OUT field");
+    }
+    return(status);
+}
+
+static long write_mbbo(struct mbboRecord	*pmbbo)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+	unsigned long value;
+
+	
+	pvmeio = &(pmbbo->out.value.vmeio);
+	status = fp_driver(pvmeio->card,pmbbo->rval,pmbbo->mask);
+	if(status==0) {
+		status = fp_read(pvmeio->card,pmbbo->mask,&value);
+		if(status==0) pmbbo->rbv = value;
+                else recGblSetSevr(pmbbo,READ_ALARM,INVALID_ALARM);
+	} else {
+                recGblSetSevr(pmbbo,WRITE_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
diff --git a/src/dev/devHpe1368a.c b/src/dev/devHpe1368a.c
new file mode 100644
index 000000000..9440e4d83
--- /dev/null
+++ b/src/dev/devHpe1368a.c
@@ -0,0 +1,251 @@
+/* devHpe1368a.c */
+/* share/src/dev $Id$ */
+
+/*
+ *      Original Author: Bob Dalesio
+ *      Current Author:  Marty Kraimer
+ *      Date:            09-02-92
+ *
+ *      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  08-02-92        mrk     Original version
+ */
+
+#include	<vxWorks.h>
+#include	<types.h>
+#include	<stdioLib.h>
+#include	<string.h>
+
+#include	<alarm.h>
+#include	<cvtTable.h>
+#include	<dbDefs.h>
+#include	<dbAccess.h>
+#include        <recSup.h>
+#include	<devSup.h>
+#include	<dbScan.h>
+#include	<link.h>
+#include	<module_types.h>
+#include	<biRecord.h>
+#include	<boRecord.h>
+#include	<mbbiRecord.h>
+#include	<mbboRecord.h>
+
+
+static long init_bi();
+static long init_bo();
+static long init_mbbi();
+static long init_mbbo();
+static long bi_ioinfo();
+static long mbbi_ioinfo();
+static long read_bi();
+static long write_bo();
+static long read_mbbi();
+static long write_mbbo();
+
+
+typedef struct {
+	long		number;
+	DEVSUPFUN	report;
+	DEVSUPFUN	init;
+	DEVSUPFUN	init_record;
+	DEVSUPFUN	get_ioint_info;
+	DEVSUPFUN	read_write;
+	} BINARYDSET;
+
+
+BINARYDSET devBiHpe1368a=  {6,NULL,NULL,init_bi,  bi_ioinfo,  read_bi};
+BINARYDSET devBoHpe1368a=  {6,NULL,NULL,init_bo,       NULL,  write_bo};
+BINARYDSET devMbbiHpe1368a={6,NULL,NULL,init_mbbi,mbbi_ioinfo,read_mbbi};
+BINARYDSET devMbboHpe1368a={6,NULL,NULL,init_mbbo,       NULL,write_mbbo};
+
+static long init_bi( struct biRecord	*pbi)
+{
+    struct vmeio *pvmeio;
+
+
+    /* bi.inp must be an VME_IO */
+    switch (pbi->inp.type) {
+    case (VME_IO) :
+	pvmeio = (struct vmeio *)&(pbi->inp.value);
+	pbi->mask=1;
+	pbi->mask <<= pvmeio->signal;
+	break;
+    default :
+	recGblRecordError(S_db_badField,(void *)pbi,
+		"devBiHpe1368a (init_record) Illegal INP field");
+	return(S_db_badField);
+    }
+    return(0);
+}
+
+static long bi_ioinfo(
+    int               cmd,
+    struct biRecord     *pbi,
+    IOSCANPVT		*ppvt)
+{
+    hpe1368a_getioscanpvt(pbi->inp.value.vmeio.card,ppvt);
+    return(0);
+}
+
+static long read_bi(struct biRecord	*pbi)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+	long	    value;
+
+	
+	pvmeio = (struct vmeio *)&(pbi->inp.value);
+	status = hpe1368a_bi_driver(pvmeio->card,pbi->mask,&value);
+	if(status==0) {
+		pbi->rval = value;
+		return(0);
+	} else {
+                recGblSetSevr(pbi,READ_ALARM,INVALID_ALARM);
+		return(2);
+	}
+}
+
+static long init_bo(struct boRecord	*pbo)
+{
+    unsigned int value;
+    int status=0;
+    struct vmeio *pvmeio;
+
+    /* bo.out must be an VME_IO */
+    switch (pbo->out.type) {
+    case (VME_IO) :
+	pvmeio = (struct vmeio *)&(pbo->out.value);
+	pbo->mask = 1;
+	pbo->mask <<= pvmeio->signal;
+        status = hpe1368a_bi_driver(pvmeio->card,pbo->mask,&value);
+        if(status == 0) pbo->rbv = pbo->rval = value;
+        else status = 2;
+	break;
+    default :
+	status = S_db_badField;
+	recGblRecordError(status,(void *)pbo,
+	    "devBoHpe1368a (init_record) Illegal OUT field");
+    }
+    return(status);
+}
+
+static long write_bo(struct boRecord	*pbo)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+
+	
+	pvmeio = (struct vmeio *)&(pbo->out.value);
+	status = hpe1368a_bo_driver(pvmeio->card,pbo->rval,pbo->mask);
+	if(status!=0) {
+                recGblSetSevr(pbo,WRITE_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
+
+static long init_mbbi(struct mbbiRecord	*pmbbi)
+{
+
+    /* mbbi.inp must be an VME_IO */
+    switch (pmbbi->inp.type) {
+    case (VME_IO) :
+	pmbbi->shft = pmbbi->inp.value.vmeio.signal;
+	pmbbi->mask <<= pmbbi->shft;
+	break;
+    default :
+	recGblRecordError(S_db_badField,(void *)pmbbi,
+		"devMbbiHpe1368a (init_record) Illegal INP field");
+	return(S_db_badField);
+    }
+    return(0);
+}
+
+static long mbbi_ioinfo(
+    int               cmd,
+    struct mbbiRecord     *pmbbi,
+    IOSCANPVT		*ppvt)
+{
+    hpe1368a_getioscanpvt(pmbbi->inp.value.vmeio.card,ppvt);
+    return(0);
+}
+
+static long read_mbbi(struct mbbiRecord	*pmbbi)
+{
+	struct vmeio	*pvmeio;
+	int		status;
+	unsigned long	value;
+
+	
+	pvmeio = (struct vmeio *)&(pmbbi->inp.value);
+	status = at5vxi_bi_driver(pvmeio->card,pmbbi->mask,&value);
+	if(status==0) {
+		pmbbi->rval = value;
+	} else {
+                recGblSetSevr(pmbbi,READ_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
+
+static long init_mbbo(struct mbboRecord	*pmbbo)
+{
+    unsigned long value;
+    struct vmeio *pvmeio;
+    int		status = 0;
+
+    /* mbbo.out must be an VME_IO */
+    switch (pmbbo->out.type) {
+    case (VME_IO) :
+	pvmeio = &(pmbbo->out.value.vmeio);
+	pmbbo->shft = pvmeio->signal;
+	pmbbo->mask <<= pmbbo->shft;
+	status = hpe1368a_bi_driver(pvmeio->card,pmbbo->mask,&value);
+	if(status==0) pmbbo->rbv = pmbbo->rval = value;
+	else status = 2;
+	break;
+    default :
+	status = S_db_badField;
+	recGblRecordError(status,(void *)pmbbo,
+		"devMbboHpe1368a (init_record) Illegal OUT field");
+    }
+    return(status);
+}
+
+static long write_mbbo(struct mbboRecord	*pmbbo)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+	unsigned long value;
+
+	
+	pvmeio = &(pmbbo->out.value.vmeio);
+	status = hpe1368a_bo_driver(pvmeio->card,pmbbo->rval,pmbbo->mask);
+	if(status==0) {
+		status = hpe1368a_bi_driver(pvmeio->card,pmbbo->mask,&value);
+		if(status==0) pmbbo->rbv = value;
+                else recGblSetSevr(pmbbo,READ_ALARM,INVALID_ALARM);
+	} else {
+                recGblSetSevr(pmbbo,WRITE_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
diff --git a/src/dev/devXy240.c b/src/dev/devXy240.c
new file mode 100644
index 000000000..7eff4edcb
--- /dev/null
+++ b/src/dev/devXy240.c
@@ -0,0 +1,251 @@
+/* devXy240.c */
+/* share/src/dev $Id$ */
+
+/*
+ *      Original Author: Bob Dalesio
+ *      Current Author:  Marty Kraimer
+ *      Date:            09-02-92
+ *
+ *      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  08-02-92        mrk     Original version
+ */
+
+#include	<vxWorks.h>
+#include	<types.h>
+#include	<stdioLib.h>
+#include	<string.h>
+
+#include	<alarm.h>
+#include	<cvtTable.h>
+#include	<dbDefs.h>
+#include	<dbAccess.h>
+#include        <recSup.h>
+#include	<devSup.h>
+#include	<dbScan.h>
+#include	<link.h>
+#include	<module_types.h>
+#include	<biRecord.h>
+#include	<boRecord.h>
+#include	<mbbiRecord.h>
+#include	<mbboRecord.h>
+
+
+static long init_bi();
+static long init_bo();
+static long init_mbbi();
+static long init_mbbo();
+static long bi_ioinfo();
+static long mbbi_ioinfo();
+static long read_bi();
+static long write_bo();
+static long read_mbbi();
+static long write_mbbo();
+
+
+typedef struct {
+	long		number;
+	DEVSUPFUN	report;
+	DEVSUPFUN	init;
+	DEVSUPFUN	init_record;
+	DEVSUPFUN	get_ioint_info;
+	DEVSUPFUN	read_write;
+	} BINARYDSET;
+
+
+BINARYDSET devBiXy240=  {6,NULL,NULL,init_bi,  bi_ioinfo,  read_bi};
+BINARYDSET devBoXy240=  {6,NULL,NULL,init_bo,       NULL,  write_bo};
+BINARYDSET devMbbiXy240={6,NULL,NULL,init_mbbi,mbbi_ioinfo,read_mbbi};
+BINARYDSET devMbboXy240={6,NULL,NULL,init_mbbo,       NULL,write_mbbo};
+
+static long init_bi( struct biRecord	*pbi)
+{
+    struct vmeio *pvmeio;
+
+
+    /* bi.inp must be an VME_IO */
+    switch (pbi->inp.type) {
+    case (VME_IO) :
+	pvmeio = (struct vmeio *)&(pbi->inp.value);
+	pbi->mask=1;
+	pbi->mask <<= pvmeio->signal;
+	break;
+    default :
+	recGblRecordError(S_db_badField,(void *)pbi,
+		"devBiXy240 (init_record) Illegal INP field");
+	return(S_db_badField);
+    }
+    return(0);
+}
+
+static long bi_ioinfo(
+    int               cmd,
+    struct biRecord     *pbi,
+    IOSCANPVT		*ppvt)
+{
+    xy240_getioscanpvt(pbi->inp.value.vmeio.card,ppvt);
+    return(0);
+}
+
+static long read_bi(struct biRecord	*pbi)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+	long	    value;
+
+	
+	pvmeio = (struct vmeio *)&(pbi->inp.value);
+	status = xy240_bi_driver(pvmeio->card,pbi->mask,&value);
+	if(status==0) {
+		pbi->rval = value;
+		return(0);
+	} else {
+                recGblSetSevr(pbi,READ_ALARM,INVALID_ALARM);
+		return(2);
+	}
+}
+
+static long init_bo(struct boRecord	*pbo)
+{
+    unsigned int value;
+    int status=0;
+    struct vmeio *pvmeio;
+
+    /* bo.out must be an VME_IO */
+    switch (pbo->out.type) {
+    case (VME_IO) :
+	pvmeio = (struct vmeio *)&(pbo->out.value);
+	pbo->mask = 1;
+	pbo->mask <<= pvmeio->signal;
+        status = xy240_bo_read(pvmeio->card,pbo->mask,&value);
+        if(status == 0) pbo->rbv = pbo->rval = value;
+        else status = 2;
+	break;
+    default :
+	status = S_db_badField;
+	recGblRecordError(status,(void *)pbo,
+	    "devBoXy240 (init_record) Illegal OUT field");
+    }
+    return(status);
+}
+
+static long write_bo(struct boRecord	*pbo)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+
+	
+	pvmeio = (struct vmeio *)&(pbo->out.value);
+	status = xy240_bo_driver(pvmeio->card,pbo->rval,pbo->mask);
+	if(status!=0) {
+                recGblSetSevr(pbo,WRITE_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
+
+static long init_mbbi(struct mbbiRecord	*pmbbi)
+{
+
+    /* mbbi.inp must be an VME_IO */
+    switch (pmbbi->inp.type) {
+    case (VME_IO) :
+	pmbbi->shft = pmbbi->inp.value.vmeio.signal;
+	pmbbi->mask <<= pmbbi->shft;
+	break;
+    default :
+	recGblRecordError(S_db_badField,(void *)pmbbi,
+		"devMbbiXy240 (init_record) Illegal INP field");
+	return(S_db_badField);
+    }
+    return(0);
+}
+
+static long mbbi_ioinfo(
+    int               cmd,
+    struct mbbiRecord     *pmbbi,
+    IOSCANPVT		*ppvt)
+{
+    xy240_getioscanpvt(pmbbi->inp.value.vmeio.card,ppvt);
+    return(0);
+}
+
+static long read_mbbi(struct mbbiRecord	*pmbbi)
+{
+	struct vmeio	*pvmeio;
+	int		status;
+	unsigned long	value;
+
+	
+	pvmeio = (struct vmeio *)&(pmbbi->inp.value);
+	status = at5vxi_bi_driver(pvmeio->card,pmbbi->mask,&value);
+	if(status==0) {
+		pmbbi->rval = value;
+	} else {
+                recGblSetSevr(pmbbi,READ_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}
+
+static long init_mbbo(struct mbboRecord	*pmbbo)
+{
+    unsigned long value;
+    struct vmeio *pvmeio;
+    int		status = 0;
+
+    /* mbbo.out must be an VME_IO */
+    switch (pmbbo->out.type) {
+    case (VME_IO) :
+	pvmeio = &(pmbbo->out.value.vmeio);
+	pmbbo->shft = pvmeio->signal;
+	pmbbo->mask <<= pmbbo->shft;
+	status = xy240_bo_read(pvmeio->card,pmbbo->mask,&value);
+	if(status==0) pmbbo->rbv = pmbbo->rval = value;
+	else status = 2;
+	break;
+    default :
+	status = S_db_badField;
+	recGblRecordError(status,(void *)pmbbo,
+		"devMbboXy240 (init_record) Illegal OUT field");
+    }
+    return(status);
+}
+
+static long write_mbbo(struct mbboRecord	*pmbbo)
+{
+	struct vmeio *pvmeio;
+	int	    status;
+	unsigned long value;
+
+	
+	pvmeio = &(pmbbo->out.value.vmeio);
+	status = xy240_bo_driver(pvmeio->card,pmbbo->rval,pmbbo->mask);
+	if(status==0) {
+		status = xy240_bo_read(pvmeio->card,pmbbo->mask,&value);
+		if(status==0) pmbbo->rbv = value;
+                else recGblSetSevr(pmbbo,READ_ALARM,INVALID_ALARM);
+	} else {
+                recGblSetSevr(pmbbo,WRITE_ALARM,INVALID_ALARM);
+	}
+	return(status);
+}