\ Port addresses for MAIS board.

HEX BE00

DUP CONSTANT usart_data 1+
DUP CONSTANT usart_status 1+
DUP CONSTANT usart_control1 1+
DUP CONSTANT usart_control2 DROP

: USART-INIT
    10 usart_control1 C!    usart_control1 C@
    FA usart_control2 C! 77 usart_control2 C!
    14 usart_control1 C!    EF AND usart_control1 C!
;

: KEY?      usart_status C@ 2 AND 0= 0= ;
: EMIT?     usart_status C@ 1 AND 0= 0= ;

: KEY     BEGIN KEY? UNTIL    usart_data C@ ;
: EMIT    BEGIN EMIT? UNTIL   usart_data C! ;


DECIMAL