diff --git a/src/libvxWorks/veclist.c b/src/libvxWorks/veclist.c
new file mode 100644
index 000000000..acc28fd2f
--- /dev/null
+++ b/src/libvxWorks/veclist.c
@@ -0,0 +1,225 @@
+/*
+ *	$Id$
+ *
+ *	list fuctions attached to the interrupt vector table
+ *
+ *	Created 28Mar89	Jeffrey O. Hill
+ *	hill@atdiv.lanl.gov
+ *	(505) 665 1831
+ *
+ */
+
+/*
+ * 
+ *	makefile
+ *
+ *
+ * V5VW = /.../vx/v502b
+ * V4VW = /.../vx/v402
+ *
+ * veclist.o:
+ *	cc68k -c -DV5_vxWorks -DCPU_FAMILY=MC680X0 -I$(V5VW)/h veclist.c
+ * 
+ * veclistV4.o: veclist.c
+ *	cc68k -c -DV4_vxWorks -I$(V4VW)/h veclist.c -o veclistV4.o
+ *
+ */
+
+#include "vxWorks.h"
+#include "a_out.h"
+#if defined(V4_vxWorks)
+#	include "iv68k.h"
+#elif defined(V5_vxWorks)
+#	include "iv.h"
+#else
+#	include "iv68k.h"
+#endif
+#include "ctype.h"
+#include "sysSymTbl.h"
+
+static char *sccsID = 
+	"$Id$\t$Date$ written by Jeffrey O. Hill hill@atdiv.lanl.gov";
+
+/*
+ *
+ * VME bus dependent
+ *
+ */
+#define NVEC 0x100
+
+static char *ignore_list[] = {"_excStub","_excIntStub"};
+
+int	veclist(int);
+int	cISRTest(void (*)(), void (**)(), void **);
+void 	*fetch_pointer(unsigned char *);
+
+
+/*
+ *
+ * veclist()
+ *
+ */
+veclist(all)
+int 	all;
+{
+  	int		vec;
+	int		value;
+#if defined(V4_vxWorks)
+	UTINY		type;
+#else
+	SYM_TYPE	type;
+#endif
+	char		name[MAX_SYS_SYM_LEN];
+	char		function_type[10];
+	void		(*proutine)();
+	void		(*pCISR)();
+	void		*pparam;
+	int		status;
+	int		i;
+
+  	for(vec=0; vec<NVEC; vec++){
+    		proutine = (void *) intVecGet(INUM_TO_IVEC(vec));
+
+		status = cISRTest(proutine, &pCISR, &pparam);
+		if(status == OK){
+			proutine = pCISR;
+			strcpy(function_type, "C");
+		}
+		else{
+			strcpy(function_type, "MACRO");
+			pCISR = NULL;
+		}
+ 
+		status = symFindByValue(
+				sysSymTbl, 
+				(int)proutine, 
+				name,
+				&value,
+				&type);
+		if(status<0 || value != (int)proutine){
+			sprintf(name, "0x%X", proutine);
+		}
+		else if(!all){
+			int	match = FALSE;
+
+			for(i=0; i<NELEMENTS(ignore_list); i++){
+				if(!strcmp(ignore_list[i],name)){
+					match = TRUE;
+					break;
+				}
+			}
+			if(match){
+				continue;
+			}
+		}
+       		printf(	"vec 0x%2X %5s ISR %s", 
+			vec, 
+			function_type,
+			name);
+		if(pCISR){
+			printf("(0x%X)", pparam);
+		}
+		printf("\n");
+	}
+
+	return OK;
+}
+
+
+
+/*
+ * cISRTest()
+ *
+ * test to see if a C routine is attached
+ * to this interrupt vector
+ */
+#define ISR_PATTERN	0xaaaaaaaa
+#define PARAM_PATTERN	0x55555555 
+LOCAL
+int	cISRTest(void (*proutine)(), void (**ppisr)(), void **pparam)
+{
+	static FUNCPTR	handler = NULL;
+	STATUS		status;
+	unsigned char	*pchk;
+	unsigned char	*pref;
+	unsigned char	val;
+
+	if(handler == NULL){
+		handler = (FUNCPTR) intHandlerCreate(
+				(FUNCPTR) ISR_PATTERN, 
+				PARAM_PATTERN);
+		if(handler == NULL){
+			return ERROR;
+		}
+	}
+
+	*ppisr = NULL;
+	*pparam = NULL;
+	pchk = (unsigned char *) proutine;
+	pref = (unsigned char *) handler; 
+	for(	;
+		*ppisr==NULL || *pparam==NULL;
+		pchk++, pref++){
+
+		status = vxMemProbe(	
+				pchk,
+				READ,
+				sizeof(val),
+				&val);
+		if(status < 0){
+			return ERROR;
+		}
+
+		if(val != *pref){
+			if(*pref == (unsigned char) ISR_PATTERN){
+				*ppisr = fetch_pointer(pchk);
+				if(!*ppisr){
+					return ERROR;
+				}
+				pref += sizeof(*ppisr)-1;
+				pchk += sizeof(*ppisr)-1;
+			}
+			else if(*pref == (unsigned char) PARAM_PATTERN){
+				*pparam = fetch_pointer(pchk);
+				if(!*pparam){
+					return ERROR;
+				}
+				pref += sizeof(*pparam)-1;
+				pchk += sizeof(*pparam)-1;
+			}
+			else{	
+				return ERROR;
+			}
+		}
+	}
+
+	return OK;
+}
+
+
+
+/*
+ * fetch_pointer()
+ *
+ * fetch pointer given low byte with correct byte ordering
+ *
+ */
+struct char_array{
+	unsigned char byte[4];
+};
+union pointer{
+	void 			*ptr_overlay;
+	struct char_array 	char_overlay;
+};
+
+void *fetch_pointer(unsigned char *plow_byte)
+{
+	union pointer	p;
+	int		i;
+
+	for(i=0; i < sizeof(p); i++){
+		p.char_overlay.byte[i] = plow_byte[i];
+	}
+
+	return p.ptr_overlay;
+}
diff --git a/src/vxWorks/libvxWorks/veclist.c b/src/vxWorks/libvxWorks/veclist.c
new file mode 100644
index 000000000..acc28fd2f
--- /dev/null
+++ b/src/vxWorks/libvxWorks/veclist.c
@@ -0,0 +1,225 @@
+/*
+ *	$Id$
+ *
+ *	list fuctions attached to the interrupt vector table
+ *
+ *	Created 28Mar89	Jeffrey O. Hill
+ *	hill@atdiv.lanl.gov
+ *	(505) 665 1831
+ *
+ */
+
+/*
+ * 
+ *	makefile
+ *
+ *
+ * V5VW = /.../vx/v502b
+ * V4VW = /.../vx/v402
+ *
+ * veclist.o:
+ *	cc68k -c -DV5_vxWorks -DCPU_FAMILY=MC680X0 -I$(V5VW)/h veclist.c
+ * 
+ * veclistV4.o: veclist.c
+ *	cc68k -c -DV4_vxWorks -I$(V4VW)/h veclist.c -o veclistV4.o
+ *
+ */
+
+#include "vxWorks.h"
+#include "a_out.h"
+#if defined(V4_vxWorks)
+#	include "iv68k.h"
+#elif defined(V5_vxWorks)
+#	include "iv.h"
+#else
+#	include "iv68k.h"
+#endif
+#include "ctype.h"
+#include "sysSymTbl.h"
+
+static char *sccsID = 
+	"$Id$\t$Date$ written by Jeffrey O. Hill hill@atdiv.lanl.gov";
+
+/*
+ *
+ * VME bus dependent
+ *
+ */
+#define NVEC 0x100
+
+static char *ignore_list[] = {"_excStub","_excIntStub"};
+
+int	veclist(int);
+int	cISRTest(void (*)(), void (**)(), void **);
+void 	*fetch_pointer(unsigned char *);
+
+
+/*
+ *
+ * veclist()
+ *
+ */
+veclist(all)
+int 	all;
+{
+  	int		vec;
+	int		value;
+#if defined(V4_vxWorks)
+	UTINY		type;
+#else
+	SYM_TYPE	type;
+#endif
+	char		name[MAX_SYS_SYM_LEN];
+	char		function_type[10];
+	void		(*proutine)();
+	void		(*pCISR)();
+	void		*pparam;
+	int		status;
+	int		i;
+
+  	for(vec=0; vec<NVEC; vec++){
+    		proutine = (void *) intVecGet(INUM_TO_IVEC(vec));
+
+		status = cISRTest(proutine, &pCISR, &pparam);
+		if(status == OK){
+			proutine = pCISR;
+			strcpy(function_type, "C");
+		}
+		else{
+			strcpy(function_type, "MACRO");
+			pCISR = NULL;
+		}
+ 
+		status = symFindByValue(
+				sysSymTbl, 
+				(int)proutine, 
+				name,
+				&value,
+				&type);
+		if(status<0 || value != (int)proutine){
+			sprintf(name, "0x%X", proutine);
+		}
+		else if(!all){
+			int	match = FALSE;
+
+			for(i=0; i<NELEMENTS(ignore_list); i++){
+				if(!strcmp(ignore_list[i],name)){
+					match = TRUE;
+					break;
+				}
+			}
+			if(match){
+				continue;
+			}
+		}
+       		printf(	"vec 0x%2X %5s ISR %s", 
+			vec, 
+			function_type,
+			name);
+		if(pCISR){
+			printf("(0x%X)", pparam);
+		}
+		printf("\n");
+	}
+
+	return OK;
+}
+
+
+
+/*
+ * cISRTest()
+ *
+ * test to see if a C routine is attached
+ * to this interrupt vector
+ */
+#define ISR_PATTERN	0xaaaaaaaa
+#define PARAM_PATTERN	0x55555555 
+LOCAL
+int	cISRTest(void (*proutine)(), void (**ppisr)(), void **pparam)
+{
+	static FUNCPTR	handler = NULL;
+	STATUS		status;
+	unsigned char	*pchk;
+	unsigned char	*pref;
+	unsigned char	val;
+
+	if(handler == NULL){
+		handler = (FUNCPTR) intHandlerCreate(
+				(FUNCPTR) ISR_PATTERN, 
+				PARAM_PATTERN);
+		if(handler == NULL){
+			return ERROR;
+		}
+	}
+
+	*ppisr = NULL;
+	*pparam = NULL;
+	pchk = (unsigned char *) proutine;
+	pref = (unsigned char *) handler; 
+	for(	;
+		*ppisr==NULL || *pparam==NULL;
+		pchk++, pref++){
+
+		status = vxMemProbe(	
+				pchk,
+				READ,
+				sizeof(val),
+				&val);
+		if(status < 0){
+			return ERROR;
+		}
+
+		if(val != *pref){
+			if(*pref == (unsigned char) ISR_PATTERN){
+				*ppisr = fetch_pointer(pchk);
+				if(!*ppisr){
+					return ERROR;
+				}
+				pref += sizeof(*ppisr)-1;
+				pchk += sizeof(*ppisr)-1;
+			}
+			else if(*pref == (unsigned char) PARAM_PATTERN){
+				*pparam = fetch_pointer(pchk);
+				if(!*pparam){
+					return ERROR;
+				}
+				pref += sizeof(*pparam)-1;
+				pchk += sizeof(*pparam)-1;
+			}
+			else{	
+				return ERROR;
+			}
+		}
+	}
+
+	return OK;
+}
+
+
+
+/*
+ * fetch_pointer()
+ *
+ * fetch pointer given low byte with correct byte ordering
+ *
+ */
+struct char_array{
+	unsigned char byte[4];
+};
+union pointer{
+	void 			*ptr_overlay;
+	struct char_array 	char_overlay;
+};
+
+void *fetch_pointer(unsigned char *plow_byte)
+{
+	union pointer	p;
+	int		i;
+
+	for(i=0; i < sizeof(p); i++){
+		p.char_overlay.byte[i] = plow_byte[i];
+	}
+
+	return p.ptr_overlay;
+}