From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/avr8/words/usart-rx-poll.asm | 42 -------------------------------- 1 file changed, 42 deletions(-) delete mode 100644 amforth-6.5/avr8/words/usart-rx-poll.asm (limited to 'amforth-6.5/avr8/words/usart-rx-poll.asm') diff --git a/amforth-6.5/avr8/words/usart-rx-poll.asm b/amforth-6.5/avr8/words/usart-rx-poll.asm deleted file mode 100644 index 9896175..0000000 --- a/amforth-6.5/avr8/words/usart-rx-poll.asm +++ /dev/null @@ -1,42 +0,0 @@ -; (c -- ) -; MCU -; wait for one character and read it from the terminal connection using register poll -VE_RX_POLL: - .dw $ff07 - .db "rx-poll",0 - .dw VE_HEAD - .set VE_HEAD = VE_RX_POLL -XT_RX_POLL: - .dw DO_COLON -PFA_RX_POLL: - ; wait for data ready - .dw XT_RXQ_POLL - .dw XT_DOCONDBRANCH - .dw PFA_RX_POLL - ; send to usart - .dw XT_DOLITERAL - .dw USART_DATA - .dw XT_CFETCH - .dw XT_EXIT - -; ( -- f) -; MCU -; check if a unread character in the input device is available -VE_RXQ_POLL: - .dw $ff08 - .db "rx?-poll" - .dw VE_HEAD - .set VE_HEAD = VE_RXQ_POLL -XT_RXQ_POLL: - .dw DO_COLON -PFA_RXQ_POLL: - .dw XT_PAUSE - .dw XT_DOLITERAL - .dw bm_USART_RXRD - .dw XT_DUP - .dw XT_DOLITERAL - .dw USART_A - .dw XT_CFETCH - .dw XT_AND - .dw XT_EQUAL - .dw XT_EXIT -- cgit v1.2.3