1 files changed, 28 insertions, 0 deletions
diff --git a/sys/osb/nmiupk32.x b/sys/osb/nmiupk32.x
new file mode 100644
index 00000000..f42907fa
--- /dev/null
+++ b/sys/osb/nmiupk32.x
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+
+# NMIUPK32 -- Unpack a 32 bit signed NMI array into an SPP array of the
+# indicated datatype.
+
+procedure nmiupk32 (nmi, spp, nelems, spp_datatype)
+
+int	nmi[ARB]		#I input NMI format array
+int	spp[ARB]		#O output SPP format array
+int	nelems			#I number of integers to be converted
+int	spp_datatype		#I SPP datatype code
+
+int	nmi_bytes
+int	spp_bytes
+int	sizeof()
+
+begin
+	nmi_bytes = 32 / NBITS_BYTE
+	spp_bytes = sizeof(spp_datatype) * SZB_CHAR
+
+	# for 64bit integer
+	if ( 2 * nmi_bytes == spp_bytes )
+	    call iupk32 (nmi, spp, nelems)
+
+	call achti (nmi, spp, nelems, spp_datatype)
+end