aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/usart-rxq.asm
blob: cc79509f120d43a2374b5328dcf4bcdc37342419 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
;X KEY?     -- f    return true if char waiting

HEADER(XT_USART_RXQ_POLL,3,"rx?",DOCOLON)
  .dw XT_PAUSE
  .dw XT_DOLITERAL
  .dw bm_USART_RXRD
  .dw XT_DUP
  .dw XT_DOLITERAL
  .dw USART_RX_CFG
  .dw XT_CFETCH
  .dw XT_AND
  .dw XT_EQUAL
  .dw XT_EXIT