1 files changed, 47 insertions, 0 deletions
diff --git a/sys/ki/kbzawr.x b/sys/ki/kbzawr.x
new file mode 100644
index 00000000..406c14ba
--- /dev/null
+++ b/sys/ki/kbzawr.x
@@ -0,0 +1,47 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include	<config.h>
+include	"ki.h"
+
+# KB_ZAWR -- Asynchronous write to a binary device.  We are called only if
+# the device does not reside on the local node.
+
+procedure kb_zawr (device, chan, ibuf, nbytes, loffset)
+
+int	device			# device driver code
+int	chan			# channel assigned device
+char	ibuf[nbytes]		# receives data
+int	nbytes			# number of bytes to write
+long	loffset			# file offset
+
+int	server
+int	ki_send()
+include	"kichan.com"
+include	"kii.com"
+
+begin
+	server = k_node[chan]
+
+	if (nbytes <= 0) {
+	    k_status[chan] = 0
+	    return
+	}
+
+	# Send the request followed by the data block.  We must wait for the
+	# write into the network channel to complete since the channel is
+	# multiplexed.  Note that this is not the same as waiting for the
+	# data transfer to the physical device to complete; that transfer is
+	# at least partially asynchronous.
+
+	p_arg[1] = k_oschan[chan]
+	p_arg[2] = nbytes
+	p_arg[3] = loffset
+
+	if (ki_send (server, device, BF_AWR) == ERR)
+	    k_status[chan] = ERR
+	else {
+	    call ks_awrite (server, ibuf, nbytes)
+	    call ks_await  (server, k_status[chan])
+	}
+end