blob: ac5833be6c467062af471055b115047c1829f04b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <knet.h>
include <config.h>
include "mtio.h"
# ZARDMT -- MTIO asynchronous read primitive. Initiate a read of up to
# maxbytes bytes into the user buffer.
procedure zardmt (mtchan, buf, maxbytes, offset)
int mtchan #I i/o channel
char buf[ARB] #O output data buffer
int maxbytes #I max bytes to read
long offset #I file offset
include "mtio.com"
begin
if (MT_ATEOF(mtchan) == NO)
call zzrdmt (MT_OSCHAN(mtchan), buf, maxbytes, offset)
end
|
