1 files changed, 21 insertions, 0 deletions
diff --git a/sys/mtio/zawrmt.x b/sys/mtio/zawrmt.x
new file mode 100644
index 00000000..5caf2b70
--- /dev/null
+++ b/sys/mtio/zawrmt.x
@@ -0,0 +1,21 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<knet.h>
+include	<config.h>
+include	"mtio.h"
+
+# ZAWRMT -- MTIO asynchronous write primitive.  Initiate a write of nbytes
+# bytes to the tape.
+
+procedure zawrmt (mtchan, buf, nbytes, offset)
+
+int	mtchan			#I i/o channel
+char	buf[ARB]		#I data to be written
+int	nbytes			#I number of bytes of data
+long	offset			#I file offset
+
+include	"mtio.com"
+
+begin
+	call zzwrmt (MT_OSCHAN(mtchan), buf, nbytes, offset)
+end