: ACIA$
    H@ DUP DUP [ ACIA( LITN ] ! [ ACIAR> LITN ] !
    1+ [ ACIAW> LITN ] ! ( write index starts one pos later )
    0x20 ( buffer size ) ALLOT
    H@ [ ACIA) LITN ] !
( setup ACIA
  CR7 (1) - Receive Interrupt enabled
  CR6:5 (00) - RTS low, transmit interrupt disabled.
  CR4:2 (101) - 8 bits + 1 stop bit
  CR1:0 (10) - Counter divide: 64 )
    0b10010110 [ ACIA_CTL LITN ] PC!
    (im1) ;