40 lines
722 B
C
40 lines
722 B
C
|
/* chan_struct.c - channel routines for more structured objects */
|
||
|
#include "ocm_chan.h"
|
||
|
|
||
|
void cbyte_in(b, c) char *b; chan *c;
|
||
|
{
|
||
|
long v;
|
||
|
chan_in(&v, c);
|
||
|
*b= (char) v;
|
||
|
}
|
||
|
|
||
|
void c_wa_in(a, z, c) register long *a; register unsigned z; register chan *c;
|
||
|
{
|
||
|
do
|
||
|
chan_in(a++, c);
|
||
|
while (--z!=0);
|
||
|
}
|
||
|
|
||
|
void c_ba_in(a, z, c) register char *a; register unsigned z; register chan *c;
|
||
|
{
|
||
|
do {
|
||
|
long v;
|
||
|
chan_in(&v, c);
|
||
|
*a++ = (char) v;
|
||
|
} while (--z!=0);
|
||
|
}
|
||
|
|
||
|
void c_wa_out(a, z, c) register long *a; register unsigned z; register chan *c;
|
||
|
{
|
||
|
do
|
||
|
chan_out(*a++, c);
|
||
|
while (--z!=0);
|
||
|
}
|
||
|
|
||
|
void c_ba_out(a, z, c) register char *a; register unsigned z; register chan *c;
|
||
|
{
|
||
|
do
|
||
|
chan_out((long) (*a++ &0377), c);
|
||
|
while (--z!=0);
|
||
|
}
|