From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/osb/bytmov.f | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 sys/osb/bytmov.f

(limited to 'sys/osb/bytmov.f')

diff --git a/sys/osb/bytmov.f b/sys/osb/bytmov.f
new file mode 100644
index 00000000..b866e852
--- /dev/null
+++ b/sys/osb/bytmov.f
@@ -0,0 +1,27 @@
+c BYTMOV -- Byte move from array "a" to array "b".  The move must be
+c nondestructive, allowing a byte array to be shifted left or right a
+c few bytes, hence calls to zlocva() are required to get the addresses of 
+c the arrays.
+
+	subroutine bytmov (a, aoff, b, boff, nbytes)
+
+	character*1 a(*), b(*)
+	integer	aoff, boff, nbytes
+	integer	fwaa, lwaa, fwab, i
+
+		call zlocva (a(aoff), fwaa)
+		call zlocva (a(aoff+nbytes-1), lwaa)
+		call zlocva (b(boff), fwab)
+
+		if (fwaa .eq. fwab) then
+		    return
+		else if (fwab .ge. fwaa .and. fwab .le. lwaa) then
+		    do 10 i = nbytes-1, 0, -1
+			b(boff+i) = a(aoff+i)
+ 10		    continue
+		else
+		    do 20 i = 0, nbytes-1
+			b(boff+i) = a(aoff+i)
+ 20		    continue
+		endif
+	end
-- 
cgit