\ UART example, 19200 baud, pins D0/1

: uart-init ( -- )
  bit5 bit6 or p2sel0 byte set
  ucswrst uca1ctlw0 reg set
  ucssel__smclk uca1ctlw0 reg set
  52 uca1brw reg!
  18688 ucos16 or ucbrf0 or uca1mctlw reg!
  ucswrst uca1ctlw0 reg clear ;

: uart-emit ( n -- )
  begin uca1ifg reg@ uctxifg and until
  uca1txbuf byte! ;