/**
 * io_main() - The IO main loop
 */
void io_main(void)
{
  if (xmit_buffer_len>0)
    {
      OS.dcb.ddevic=0x71;
      OS.dcb.dunit=1;
      OS.dcb.dcomnd='W';
      OS.dcb.dstats=0x80;
      OS.dcb.dbuf=&xmit_buffer;
      OS.dcb.dtimlo=0x0f;
      OS.dcb.dbyt=xmit_buffer_len;
      OS.dcb.daux1=xmit_buffer_len;
      OS.dcb.daux2=0;
      siov();

      xmit_buffer_len=0;
      return;
    }

  if (trip==0)
    return;

  // Get # of bytes waiting
  OS.dcb.ddevic=0x71;
  OS.dcb.dunit=1;
  OS.dcb.dcomnd='S';
  OS.dcb.dstats=0x40;
  OS.dcb.dbuf=&status;
  OS.dcb.dtimlo=0x0f;
  OS.dcb.dbyt=4;
  OS.dcb.daux=0;
  siov();

  bw=(status[1]<<8)+status[0];
  connected=status[2];

  // These functions are all I needed to change to port over to the N: device.

  if (bw>0)
    {
      // Do a read into into recv buffer and ShowPLATO
      OS.dcb.ddevic=0x71;
      OS.dcb.dunit=1;
      OS.dcb.dcomnd='R';
      OS.dcb.dstats=0x40;
      OS.dcb.dbuf=&recv_buffer;
      OS.dcb.dbyt=bw;
      OS.dcb.daux=bw;
      siov();
      ShowPLATO((padByte *)recv_buffer, bw);
      bw=trip=0;
    }

  if (connected==0)
    {
      io_done();
    }

  PIA.pactl |= 1;
}

/* This uses EOSLIB: http://github.com/tschak909/eoslib */

#define NET_DEV 0x09

unsigned char response[1024]; /* RESPONSE BUFFER */

void read(void)
{
    DCB *dcb = find_dcb(NET_DEV);
    if (eos_read_character_device(NET_DEV,response,1024) == 0x80)
    {
        for (int i=0;i < dcb->len; i++)
        {
            putchar(response[i]);
        }
    }
}