blob: 5caf2b70de131a1b0c1f7e9aa7f6ea6fc75bd3a4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
|
