1 files changed, 20 insertions, 0 deletions
diff --git a/sys/fmio/fmioerr.x b/sys/fmio/fmioerr.x
new file mode 100644
index 00000000..dd15e7be
--- /dev/null
+++ b/sys/fmio/fmioerr.x
@@ -0,0 +1,20 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"fmio.h"
+
+# FMIO_ERRCHK -- Check for a posted error, and process the error if one is
+# posted.
+
+procedure fmio_errchk (fm)
+
+pointer	fm			#I FMIO descriptor
+
+int	errcode
+
+begin
+	errcode = FM_ERRCODE(fm)
+	if (errcode != OK) {
+	    FM_ERRCODE(fm) = OK
+	    call syserrs (errcode, FM_ERROPSTR(fm))
+	}
+end