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 */