1 files changed, 34 insertions, 0 deletions
diff --git a/sys/qpoe/qpiosetrg.x b/sys/qpoe/qpiosetrg.x
new file mode 100644
index 00000000..6a93f11e
--- /dev/null
+++ b/sys/qpoe/qpiosetrg.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"qpio.h"
+
+# QPIO_SETRANGE -- Set the range in X and Y within which events will be
+# extracted by qpio_getevents.  This defines the "bounding box" for i/o
+# and "rewinds" the getevent i/o pointer.
+
+procedure qpio_setrange (io, vs, ve, ndim)
+
+pointer	io			#I QPIO descriptor
+int	vs[ARB]			#I start vector (lower left corner)
+int	ve[ARB]			#I end vector (upper right corner)
+int	ndim			#I vector length (ndim=2 at present)
+
+int	i
+int	vlim[NDIM]
+
+begin
+	vlim[1] = IO_NCOLS(io)
+	vlim[2] = IO_NLINES(io)
+
+	if (ndim <= 0) {
+	    call amovi (IO_VSDEF(io,1), IO_VS(io,1), NDIM)
+	    call amovi (IO_VEDEF(io,1), IO_VE(io,1), NDIM)
+	} else {
+	    do i = 1, ndim {
+		IO_VS(io,i) = max(1, min(vlim[i], vs[i]))
+		IO_VE(io,i) = max(1, min(vlim[i], ve[i]))
+	    }
+	}
+
+	IO_ACTIVE(io) = NO
+end