uartwrite(uarta,lcr,0x80);  /* Enable divisor access */
      uartwrite(uarta,dll,0x18);  // set divisor, external crystal is 3.686 MHz
      uartwrite(uarta,lcr,0x03);  /* Set 8,N,1 data */
      uartwrite(uarta,fcr,0xc7);  /* Trigger Level 14 bytes, enable and reset RX & TX FIFOs */
      uartwrite(uarta,ier,0x0f);  /* Enable all ints */
      uartwrite(uarta,mcr, 0x08); /* Enable OUT2 to enable external interrupt INT*/ 

  

      /* Set data mode for a channel */
      uartwrite(uarta,lcr,0x03);  /* Set 8,N,1 data */