1 files changed, 54 insertions, 0 deletions
diff --git a/sys/osb/bswap8.c b/sys/osb/bswap8.c
new file mode 100644
index 00000000..ff544b7d
--- /dev/null
+++ b/sys/osb/bswap8.c
@@ -0,0 +1,54 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#define	import_spp
+#define import_knames
+#include <iraf.h>
+
+/* BSWAP8 - Move bytes from array "a" to array "b", swapping the eight bytes
+ * in each successive 8 byte group, i.e., 12345678 becomes 87654321.
+ * The input and output arrays may be the same but may not partially overlap.
+ */
+BSWAP8 (a, aoff, b, boff, nbytes)
+XCHAR	*a;			/* input array			*/
+XINT	*aoff;			/* first byte in input array	*/
+XCHAR	*b;			/* output array			*/
+XINT	*boff;			/* first byte in output array	*/
+XINT	*nbytes;		/* number of bytes to swap	*/
+{
+	register char	*ip, *op, *tp;
+	register int	n;
+	static	char temp[8];
+
+	tp = temp;
+	ip = (char *)a + *aoff - 1;
+	op = (char *)b + *boff - 1;
+
+	/* Swap successive eight byte groups.
+	 */
+	for (n = *nbytes >> 3;  --n >= 0;  ) {
+	    *tp++ = *ip++;
+	    *tp++ = *ip++;
+	    *tp++ = *ip++;
+	    *tp++ = *ip++;
+	    *tp++ = *ip++;
+	    *tp++ = *ip++;
+	    *tp++ = *ip++;
+	    *tp++ = *ip++;
+	    *op++ = *--tp;
+	    *op++ = *--tp;
+	    *op++ = *--tp;
+	    *op++ = *--tp;
+	    *op++ = *--tp;
+	    *op++ = *--tp;
+	    *op++ = *--tp;
+	    *op++ = *--tp;
+	}
+
+	/* If there are any odd bytes left, move them to the output array.
+	 * Do not bother to swap as it is unclear how to swap a partial
+	 * group, and really incorrect if the data is not modulus 8.
+	 */
+	for (n = *nbytes & 03;  --n >= 0;  )
+	    *op++ = *ip++;
+}