/* d8274.c
   L. Stewart, June 14, 1982  10:19 AM
   L. Stewart, December 3, 1982  2:27 PM, Ethernet polling
 */

#include "Lark.h"

extern outbyte();
extern inbyte();
extern CheckEL();

putchar(c)
  char c;
  {
  while (!(inbyte(sioctla)&04)) CheckEL();
  outbyte(siodata, c);
  };

putcrchar(c)
  char c;
  {
  putchar(c);
  if (c=='\r') putchar('\n');
  };

int chav()
  {
  return(inbyte(sioctla)&01);
  };

int getchar()
  {
  while (!chav()) CheckEL();
  return(inbyte(siodata) & 0177);
  };