Initial commit

1 files changed, 22 insertions, 0 deletions

diff --git a/unix/as.ssol/bytmov.c b/unix/as.ssol/bytmov.c
new file mode 100644
index 00000000..98a08fa4
--- /dev/null
+++ b/unix/as.ssol/bytmov.c
@@ -0,0 +1,22 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#define	import_spp
+#define import_knames
+#include <iraf.h>
+
+/* BYTMOV -- Byte move from array "a" to array "b".  The move must be
+ * nondestructive, allowing a byte array to be shifted left or right a
+ * few bytes, hence comparison of the addresses of the arrays is necessary
+ * to determine if they overlap.
+ * [Specially optimized version for Sun/IRAF].
+ */
+BYTMOV (a, aoff, b, boff, nbytes)
+XCHAR	*a;			/* input byte array			*/
+XINT	*aoff;			/* first byte in A to be moved		*/
+XCHAR	*b;			/* output byte array			*/
+XINT	*boff;			/* first byte in B to be written	*/
+XINT	*nbytes;		/* number of bytes to move		*/
+{
+	memmove ((char *)b + (*boff-1), (char *)a + (*aoff-1), *nbytes);
+}