diff --git a/sr_i386/op_isformal.s b/sr_i386/op_isformal.s
deleted file mode 100644
index 91c907e..0000000
--- a/sr_i386/op_isformal.s
+++ /dev/null
@@ -1,47 +0,0 @@
-#################################################################
-#								#
-#	Copyright 2001, 2002 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-#	PAGE	,132
-	.title	op_isformal.s
-
-#	.386
-#	.MODEL	FLAT, C
-
-.include "linkage.si"
-	.INCLUDE	"g_msf.si"
-
-	.sbttl	op_isformal
-#	PAGE	+
-	.DATA
-.extern	ERR_ACTLSTEXP
-.extern	frame_pointer
-
-	.text
-.extern	rts_error
-
-# PUBLIC	op_isformal
-ENTRY op_isformal
-	movl	frame_pointer,%edx
-	movw	msf_typ_off(%edx),%ax
-	andw	$~SFT_EXTFUN,msf_typ_off(%edx)
-	andw	$SFT_EXTFUN,%ax
-	je	l1
-	ret
-
-l1:	putframe
-	pushl	ERR_ACTLSTEXP
-	pushl	$1
-	call	rts_error
-	addl	$8,%esp
-	ret
-# op_isformal ENDP
-
-# END
diff --git a/sr_i386/zl_lab_err.s b/sr_i386/zl_lab_err.s
deleted file mode 100644
index 9e1f703..0000000
--- a/sr_i386/zl_lab_err.s
+++ /dev/null
@@ -1,40 +0,0 @@
-#################################################################
-#								#
-#	Copyright 2001 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-#	PAGE	,132
-	.title	zl_lab_err.s
-
-#	.386
-#	.MODEL	FLAT, C
-
-.include "linkage.si"
-	.INCLUDE	"g_msf.si"
-
-	.sbttl	zl_lab_err
-#	PAGE	+
-	.DATA
-.extern	ERR_LABELUNKNOWN
-.extern	frame_pointer
-
-	.text
-.extern	op_rterror
-
-# PUBLIC	zl_lab_err
-ENTRY zl_lab_err
-	pushl	$0
-	pushl	ERR_LABELUNKNOWN
-	call	op_rterror
-	addl	$8,%esp
-	getframe
-	ret
-# zl_lab_err ENDP
-
-# END
diff --git a/sr_port/get_root.c b/sr_port/get_root.c
deleted file mode 100644
index 92cd4a3..0000000
--- a/sr_port/get_root.c
+++ /dev/null
@@ -1,24 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001 Sanchez Computer Associates, Inc.	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#include "mdef.h"
-#include "gdsroot.h"
-#include "gtm_facility.h"
-#include "fileinfo.h"
-#include "gdsbt.h"
-#include "gdsfhead.h"
-#include "get_root.h"
-
-GBLREF gv_namehead	*gv_target;
-
-int get_root(void)
-{	return(gv_target->root);
-}
diff --git a/sr_port/intexpr.c b/sr_port/intexpr.c
deleted file mode 100644
index 3f6282b..0000000
--- a/sr_port/intexpr.c
+++ /dev/null
@@ -1,42 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001, 2010 Fidelity Information Services, Inc	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#include "mdef.h"
-#include "compiler.h"
-#include "opcode.h"
-
-int intexpr(oprtype *a)
-{
-
-	triple *triptr;
-	int4 rval;
-	DCL_THREADGBL_ACCESS;
-
-	SETUP_THREADGBL_ACCESS;
-	if (!(TREF(expr_depth))++)
-		TREF(expr_start) = TREF(expr_start_orig) = NULL;
-	if (!(rval = eval_expr(a)))
-	{
-		TREF(expr_depth) = 0;
-		return FALSE;
-	}
-	coerce(a,OCT_MINT);
-	ex_tail(a);
-	if (!(--(TREF(expr_depth))))
-		TREF(shift_side_effects) = FALSE;
-	if (TREF(expr_start) != TREF(expr_start_orig))
-	{
-		triptr = newtriple(OC_GVRECTARG);
-		triptr->operand[0] = put_tref(TREF(expr_start));
-	}
-	return rval;
-
-}
diff --git a/sr_port/io_find_mvstent.c b/sr_port/io_find_mvstent.c
deleted file mode 100644
index 1495f47..0000000
--- a/sr_port/io_find_mvstent.c
+++ /dev/null
@@ -1,57 +0,0 @@
-/****************************************************************
- *                                                              *
- *      Copyright 2007, 2009 Fidelity Information Services, Inc *
- *                                                              *
- *      This source code contains the intellectual property     *
- *      of its copyright holder(s), and is made available       *
- *      under a license.  If you do not know the terms of       *
- *      the license, please stop and do not read further.       *
- *                                                              *
- ****************************************************************/
-
-#include "mdef.h"
-
-#include "gt_timer.h"
-#include "io.h"
-#include "iotimer.h"
-#include "iotcpdef.h"
-#include "iosocketdef.h"
-#include "rtnhdr.h"
-#include "mv_stent.h"
-#include "stack_frame.h"
-
-GBLREF  mv_stent                *mv_chain;
-GBLREF  stack_frame             *frame_pointer;
-GBLREF  unsigned char           *stackbase, *stacktop, *msp, *stackwarn;
-
-/* Find and optionally clear the mv_stent keeping interrupted device information for us */
-mv_stent *io_find_mvstent(io_desc *io_ptr, boolean_t clear_mvstent)
-{
-        mv_stent        *mvc, *mv_zintdev;
-
-        assert(msp <= stackbase && msp > stacktop);
-        assert(mv_chain <= (mv_stent *)stackbase && mv_chain > (mv_stent *)stacktop);
-        assert(frame_pointer <= (stack_frame *)stackbase && frame_pointer > (stack_frame *)stacktop);
-        mv_zintdev = NULL;
-        for (mvc = mv_chain; mvc < (mv_stent *)frame_pointer ; mvc = (mv_stent *)(mvc->mv_st_next + (char *)mvc))
-        {
-                if (MVST_ZINTDEV == mvc->mv_st_type && io_ptr == mvc->mv_st_cont.mvs_zintdev.io_ptr)
-                {
-                        mv_zintdev = mvc;
-                        break;
-                }
-                if (!mvc->mv_st_next)
-                        GTMASSERT;
-        }
-        if (mv_zintdev && clear_mvstent)
-        {
-                if (mv_chain == mv_zintdev)
-                        POP_MV_STENT();         /* just pop if top of stack */
-		else
-		{
-			mv_zintdev->mv_st_cont.mvs_zintdev.io_ptr = NULL;
-			mv_zintdev->mv_st_cont.mvs_zintdev.buffer_valid = FALSE;
-		}
-        }
-        return mv_zintdev;
-}
diff --git a/sr_port/jnl_setver.c b/sr_port/jnl_setver.c
deleted file mode 100644
index 1df4fed..0000000
--- a/sr_port/jnl_setver.c
+++ /dev/null
@@ -1,38 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001, 2009 Fidelity Information Services, Inc	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#include "mdef.h"
-
-#include "gdsroot.h"
-#include "gdsblk.h"
-#include "gtm_facility.h"
-#include "fileinfo.h"
-#include "gdsbt.h"
-#include "gdsfhead.h"
-#include "filestruct.h"
-#include "jnl.h"
-
-GBLREF unsigned char	jnl_ver;
-
-void jnl_setver(void)
-{
-	char		*jnl_label = JNL_LABEL_TEXT;
-	unsigned char	jnl_ver_lower, jnl_ver_higher;
-
-	jnl_ver_lower = jnl_label[SIZEOF(JNL_LABEL_TEXT) - 2] - '0';
-	assert('\012' > jnl_ver_lower); /* assert(10 > jnl_ver_lower); */
-	jnl_ver_higher = jnl_label[SIZEOF(JNL_LABEL_TEXT) - 3] - '0';
-	assert('\012' > jnl_ver_higher); /* assert(10 > jnl_ver_higher); */
-	jnl_ver = jnl_ver_higher * 10 + jnl_ver_lower;
-	assert(JNL_VER_THIS == jnl_ver);
-	assert(JNL_VER_EARLIEST_REPL <= jnl_ver);
-	return;
-}
diff --git a/sr_port/mu_file_size.h b/sr_port/mu_file_size.h
deleted file mode 100644
index cf2f72a..0000000
--- a/sr_port/mu_file_size.h
+++ /dev/null
@@ -1,17 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001 Sanchez Computer Associates, Inc.	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#ifndef MU_FILE_SIZE_INCLUDED
-#define MU_FILE_SIZE_INCLUDED
-
-unsigned int mu_file_size(file_control *fc);
-
-#endif /* MU_FILE_SIZE_INCLUDED */
diff --git a/sr_port/numexpr.c b/sr_port/numexpr.c
deleted file mode 100644
index a6d353c..0000000
--- a/sr_port/numexpr.c
+++ /dev/null
@@ -1,42 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001, 2010 Fidelity Information Services, Inc	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#include "mdef.h"
-#include "compiler.h"
-#include "opcode.h"
-
-int numexpr(oprtype *a)
-{
-
-	triple *triptr;
-	int4 rval;
-	DCL_THREADGBL_ACCESS;
-
-	SETUP_THREADGBL_ACCESS;
-	if (!(TREF(expr_depth))++)
-		TREF(expr_start) = TREF(expr_start_orig) = NULL;
-	if (!(rval = eval_expr(a)))
-	{
-		TREF(expr_depth) = 0;
-		return FALSE;
-	}
-	coerce(a,OCT_MVAL);
-	ex_tail(a);
-	if (!(--(TREF(expr_depth))))
-		TREF(shift_side_effects) = FALSE;
-	if (TREF(expr_start) != TREF(expr_start_orig))
-	{
-		triptr = newtriple(OC_GVRECTARG);
-		triptr->operand[0] = put_tref(TREF(expr_start));
-	}
-	return rval;
-
-}
diff --git a/sr_port/push_parm.c b/sr_port/push_parm.c
deleted file mode 100644
index 184b94d..0000000
--- a/sr_port/push_parm.c
+++ /dev/null
@@ -1,89 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001, 2011 Fidelity Information Services, Inc	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#include "mdef.h"
-
-#include <stdarg.h>
-
-#include "gtm_stdio.h"
-
-#include "lv_val.h"
-#include "rtnhdr.h"
-#include "mv_stent.h"
-#include "compiler.h"
-#include "gdsroot.h"
-#include "gtm_facility.h"
-#include "fileinfo.h"
-#include "gdsbt.h"
-#include "gdsfhead.h"
-#include "alias.h"
-
-GBLREF mv_stent		*mv_chain;
-GBLREF unsigned char	*msp, *stackbase, *stackwarn, *stacktop;
-GBLREF symval		*curr_symval;
-
-/* Create lv_val on stack to hold copy of parameter. Address of created lv_val will be used by op_bindparm() */
-void push_parm(UNIX_ONLY_COMMA(unsigned int totalcnt) int truth_value, ...)
-{
-	va_list		var;
-	mval		*ret_value;
-	int		mask;
-	VMS_ONLY(unsigned	totalcnt;)
-	unsigned	actualcnt;
-	parm_blk	*parm;
-	mv_stent	*mvp_blk;
-	int		i;
-	lv_val		*actp;
-	mval		*actpmv;
-
-	error_def	(ERR_STACKOFLOW);
-	error_def	(ERR_STACKCRIT);
-
-	VAR_START(var, truth_value);
-	VMS_ONLY(va_count(totalcnt));
-	assert(4 <= totalcnt);
-	ret_value = va_arg(var, mval *);
-	mask = va_arg(var, int);
-	actualcnt = va_arg(var, unsigned int);
-	assert(4 + actualcnt == totalcnt);
-	assert(MAX_ACTUALS >= actualcnt);
-	PUSH_MV_STENT(MVST_PARM);
-	parm = (parm_blk *)malloc(SIZEOF(parm_blk) - SIZEOF(lv_val *) + actualcnt * SIZEOF(lv_val *));
-	parm->actualcnt = actualcnt;
-	parm->mask = mask;
-	mvp_blk = mv_chain;
-	mvp_blk->mv_st_cont.mvs_parm.save_truth = truth_value;
-	mvp_blk->mv_st_cont.mvs_parm.ret_value = (mval *)NULL;
-	mvp_blk->mv_st_cont.mvs_parm.mvs_parmlist = parm;
-	for (i = 0;  i < actualcnt;  i++)
-	{
-		actp = va_arg(var, lv_val *);
-		if (!(mask & 1 << i))
-		{	/* Not a dotted pass-by-reference parm */
-			actpmv = &actp->v;
-			if ((!MV_DEFINED(actpmv)) && (actpmv->str.addr != (char *)&actp->v))
-				actpmv = underr(actpmv);
-			PUSH_MV_STENT(MVST_PVAL);
-			mv_chain->mv_st_cont.mvs_pval.mvs_val = lv_getslot(curr_symval);
-			LVVAL_INIT(mv_chain->mv_st_cont.mvs_pval.mvs_val, curr_symval);
-			mv_chain->mv_st_cont.mvs_pval.mvs_val->v = *actpmv;		/* Copy mval input */
-			mv_chain->mv_st_cont.mvs_pval.mvs_ptab.save_value = NULL;	/* Filled in by op_bindparm */
-			mv_chain->mv_st_cont.mvs_pval.mvs_ptab.hte_addr = NULL;
-			DEBUG_ONLY(mv_chain->mv_st_cont.mvs_pval.mvs_ptab.nam_addr = NULL);
-			parm->actuallist[i] = (lv_val *)&mv_chain->mv_st_cont.mvs_pval;
-		} else
-			/* Dotted pass-by-reference parm. No save of previous value, just pass lvval */
-			parm->actuallist[i] = actp;
-	}
-	va_end(var);
-	mvp_blk->mv_st_cont.mvs_parm.ret_value = ret_value;
-	return;
-}
diff --git a/sr_port/strexpr.c b/sr_port/strexpr.c
deleted file mode 100644
index f6fbb3b..0000000
--- a/sr_port/strexpr.c
+++ /dev/null
@@ -1,42 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001, 2010 Fidelity Information Services, Inc	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#include "mdef.h"
-#include "compiler.h"
-#include "opcode.h"
-
-int strexpr(oprtype *a)
-{
-
-	triple *triptr;
-	int4 rval;
-	DCL_THREADGBL_ACCESS;
-
-	SETUP_THREADGBL_ACCESS;
-	if (!(TREF(expr_depth))++)
-		TREF(expr_start) = TREF(expr_start_orig) = NULL;
-	if (!(rval = eval_expr(a)))
-	{
-		TREF(expr_depth) = 0;
-		return FALSE;
-	}
-	coerce(a,OCT_MVAL);
-	ex_tail(a);
-	if (!(--(TREF(expr_depth))))
-		TREF(shift_side_effects) = FALSE;
-	if (TREF(expr_start) != TREF(expr_start_orig))
-	{
-		triptr = newtriple(OC_GVRECTARG);
-		triptr->operand[0] = put_tref(TREF(expr_start));
-	}
-	return rval;
-
-}
diff --git a/sr_unix/lowerc.csh b/sr_unix/lowerc.csh
deleted file mode 100644
index 9081f0f..0000000
--- a/sr_unix/lowerc.csh
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/bin/csh
-#################################################################
-#								#
-#	Copyright 2001 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-set lowerc_ext = ".m"
-foreach lowerc_i ($*)
-	set lowerc_base = `basename $lowerc_i $lowerc_ext`
-	if ( "lowerc_i" != "$lowerc_base" ) then
-		# If they _don't_ match, then basename found $lowerc_ext and stripped it off.
-		set lowerc_newbase = `echo $lowerc_base | tr '[A-Z]' '[a-z]'`
-		if ( "$lowerc_base"  != "$lowerc_newbase" ) then
-			# If _not_ overwriting an existing file.
-			set lowerc_dirname = `dirname $lowerc_i`
-			echo "mv $lowerc_dirname/$lowerc_i ---> $lowerc_dirname/$lowerc_newbase$lowerc_ext"
-			mv $lowerc_dirname/$lowerc_i $lowerc_dirname/$lowerc_newbase$lowerc_ext
-		endif
-	endif
-end
-
-unset lowerc_base
-unset lowerc_dirname
-unset lowerc_ext
-unset lowerc_i
-unset lowerc_newbase
diff --git a/sr_unix/lowerc.sh b/sr_unix/lowerc.sh
deleted file mode 100644
index 3bcee41..0000000
--- a/sr_unix/lowerc.sh
+++ /dev/null
@@ -1,29 +0,0 @@
-#################################################################
-#								#
-#	Copyright 2001 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-SHELL=/bin/sh
-export SHELL
-ext=.m
-for i in $*
-do
-	base=`basename $i $ext`
-	if test $i != $base
-	then {
-		newf=`echo $base | tr '[A-Z]' '[a-z]'`
-		if test $base != $newf
-		then {
-			dir=`dirname $i`
-			echo $dir/$i "---> " $dir/$newf$ext
-			mv $i $dir/$newf$ext
-		}
-		fi
-	}
-	fi
-done
diff --git a/sr_unix/lowerc_cp.csh b/sr_unix/lowerc_cp.csh
deleted file mode 100644
index 15e497e..0000000
--- a/sr_unix/lowerc_cp.csh
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/bin/csh
-#################################################################
-#								#
-#	Copyright 2001 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-set lowerc_cp_ext = ".m"
-foreach lowerc_cp_i ($*)
-	set lowerc_cp_base = `basename $lowerc_cp_i $lowerc_cp_ext`
-	if ( "lowerc_cp_i" != "$lowerc_cp_base" ) then
-		# If they _don't_ match, then basename found $lowerc_cp_ext and stripped it off.
-		set lowerc_cp_newbase = `echo $lowerc_cp_base | tr '[A-Z]' '[a-z]'`
-		if ( "$lowerc_cp_base"  != "$lowerc_cp_newbase" ) then
-			# If _not_ overwriting an existing file.
-			set lowerc_cp_dirname = `dirname $lowerc_cp_i`
-			echo "cp $lowerc_cp_dirname/$lowerc_cp_i ---> $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext"
-			cp $lowerc_cp_dirname/$lowerc_cp_i $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext
-		endif
-	endif
-end
-
-unset lowerc_cp_base
-unset lowerc_cp_dirname
-unset lowerc_cp_ext
-unset lowerc_cp_i
-unset lowerc_cp_newbase
diff --git a/sr_unix/mu_file_size.c b/sr_unix/mu_file_size.c
deleted file mode 100644
index 04a5681..0000000
--- a/sr_unix/mu_file_size.c
+++ /dev/null
@@ -1,43 +0,0 @@
-/****************************************************************
- *								*
- *	Copyright 2001, 2007 Fidelity Information Services, Inc	*
- *								*
- *	This source code contains the intellectual property	*
- *	of its copyright holder(s), and is made available	*
- *	under a license.  If you do not know the terms of	*
- *	the license, please stop and do not read further.	*
- *								*
- ****************************************************************/
-
-#include "mdef.h"
-
-#include "gtm_string.h"
-#include "gtm_fcntl.h"
-#include "gtm_unistd.h"
-#include <errno.h>
-
-#include "gdsroot.h"
-#include "gtm_facility.h"
-#include "fileinfo.h"
-#include "gdsbt.h"
-#include "gdsfhead.h"
-#include "filestruct.h"
-#include "gtm_stat.h"
-#include "eintr_wrappers.h"
-#include "mu_file_size.h"
-
-unsigned int mu_file_size(file_control *fc)
-{
-	unix_db_info	*udi;
-	int		fstat_res;
-	struct stat	stat_buf;
-
-	error_def(ERR_DBFILOPERR);
-
-	udi = (unix_db_info *)fc->file_info;
-	FSTAT_FILE(udi->fd, &stat_buf, fstat_res);
-	if (-1 == fstat_res)
-		rts_error(VARLSTCNT(5) ERR_DBFILOPERR, 2, LEN_AND_STR(udi->fn), errno);
-	assert(0 == stat_buf.st_size % DISK_BLOCK_SIZE);
-	return (unsigned int)(stat_buf.st_size / DISK_BLOCK_SIZE);
-}
diff --git a/sr_unix/upperc.sh b/sr_unix/upperc.sh
deleted file mode 100644
index cae40f1..0000000
--- a/sr_unix/upperc.sh
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/bin/sh
-#################################################################
-#								#
-#	Copyright 2001 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-ext=.m
-for i in $*
-do
-	base=`basename $i $ext`
-	if test $i != $base
-	then {
-		newf=`echo $base | tr '[a-z]' '[A-Z]'`
-		if test $base != $newf
-		then {
-			dir=`dirname $i`
-			echo $dir/$i "---> " $dir/$newf$ext
-			mv $i $dir/$newf$ext
-		}
-		fi
-	}
-	fi
-done
diff --git a/sr_unix/upperc_cp.csh b/sr_unix/upperc_cp.csh
deleted file mode 100644
index b8b1e4f..0000000
--- a/sr_unix/upperc_cp.csh
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/bin/csh
-#################################################################
-#								#
-#	Copyright 2001 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-set upperc_cp_ext = ".m"
-foreach upperc_cp_i ($*)
-	set upperc_cp_base = `basename $upperc_cp_i $upperc_cp_ext`
-	if ( "$upperc_cp_i" != "$upperc_cp_base" ) then
-		# If they _don't_ match, then basename found $upperc_cp_ext and stripped it off.
-		set upperc_cp_newbase = `echo $upperc_cp_base | tr '[a-z]' '[A-Z]'`
-		if ( "$upperc_cp_base" != "$upperc_cp_newbase" ) then
-			# If _not_ overwriting an existing file.
-			set upperc_cp_dirname = `dirname $upperc_cp_i`
-			echo "cp $upperc_cp_dirname/$upperc_cp_i ---> $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext"
-			cp $upperc_cp_dirname/$upperc_cp_i $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext
-		endif
-	endif
-end
-
-unset upperc_cp_base
-unset upperc_cp_dirname
-unset upperc_cp_ext
-unset upperc_cp_i
-unset upperc_cp_newbase
diff --git a/sr_unix/upperc_cp.sh b/sr_unix/upperc_cp.sh
deleted file mode 100644
index b5e91fe..0000000
--- a/sr_unix/upperc_cp.sh
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/bin/sh
-#################################################################
-#								#
-#	Copyright 2001 Sanchez Computer Associates, Inc.	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-ext=.m
-for i in $*
-do
-	base=`basename $i $ext`
-	if test $i != $base
-	then {
-		newf=`echo $base | tr '[a-z]' '[A-Z]'`
-		if test $base != $newf
-		then {
-			dir=`dirname $i`
-			echo $dir/$i "---> " $dir/$newf$ext
-			cp $i $dir/$newf$ext
-		}
-		fi
-	}
-	fi
-done
diff --git a/sr_x86_64/op_isformal.s b/sr_x86_64/op_isformal.s
deleted file mode 100644
index 9496465..0000000
--- a/sr_x86_64/op_isformal.s
+++ /dev/null
@@ -1,47 +0,0 @@
-#################################################################
-#								#
-#	Copyright 2007 Fidelity Information Services, Inc	#
-#								#
-#	This source code contains the intellectual property	#
-#	of its copyright holder(s), and is made available	#
-#	under a license.  If you do not know the terms of	#
-#	the license, please stop and do not read further.	#
-#								#
-#################################################################
-
-#	PAGE	,132
-	.title	op_isformal.s
-
-#	.386
-#	.MODEL	FLAT, C
-
-.include "linkage.si"
-	.INCLUDE	"g_msf.si"
-
-	.sbttl	op_isformal
-#	PAGE	+
-	.DATA
-.extern	ERR_ACTLSTEXP
-.extern	frame_pointer
-
-	.text
-.extern	rts_error
-
-# PUBLIC	op_isformal
-ENTRY op_isformal
-	movq	 frame_pointer(REG_IP),REG64_ARG2
-        movw	 msf_typ_off(REG64_ARG2),REG16_ACCUM
-        andw	$~SFT_EXTFUN,msf_typ_off(REG64_ARG2)
-	andw	$SFT_EXTFUN,REG16_ACCUM
-	je	l1
-	ret
-
-l1:	putframe
-	movl	ERR_ACTLSTEXP(REG_IP),REG32_ARG1
-	movl	$1,REG32_ARG0
-	movb    $0,REG8_ACCUM             # variable length argument
-	call	rts_error
-	ret
-# op_isformal ENDP
-
-# END