aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/usart-rx.asm
blob: 16bd4c1c54d80ce6fc9b255f55159411c6c45824 (plain)
1
2
3
4
5
6
7
8
9
10
;C KEY      -- c      get character from keyboard
        HEADER(XT_USART_RX_POLL,2,"rx",DOCOLON)
KEYLOOP:
	.DW XT_KEYQ
	.dw XT_DOCONDBRANCH
	DEST(KEYLOOP)
	.dw XT_DOLITERAL
	.dw USART_RX_DATA
	.dw XT_CFETCH
	.dw XT_EXIT