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-tx-poll.asm | 40 -------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 amforth-6.5/avr8/words/usart-tx-poll.asm (limited to 'amforth-6.5/avr8/words/usart-tx-poll.asm') diff --git a/amforth-6.5/avr8/words/usart-tx-poll.asm b/amforth-6.5/avr8/words/usart-tx-poll.asm deleted file mode 100644 index a33e8fb..0000000 --- a/amforth-6.5/avr8/words/usart-tx-poll.asm +++ /dev/null @@ -1,40 +0,0 @@ -; (c -- ) -; MCU -; check availability and send one character to the terminal using register poll -VE_TX_POLL: - .dw $ff07 - .db "tx-poll",0 - .dw VE_HEAD - .set VE_HEAD = VE_TX_POLL -XT_TX_POLL: - .dw DO_COLON -PFA_TX_POLL: - ; wait for data ready - .dw XT_TXQ_POLL - .dw XT_DOCONDBRANCH - .dw PFA_TX_POLL - ; send to usart - .dw XT_DOLITERAL - .dw USART_DATA - .dw XT_CSTORE - .dw XT_EXIT - -; ( -- f) MCU -; MCU -; check if a character can be send using register poll -VE_TXQ_POLL: - .dw $ff08 - .db "tx?-poll" - .dw VE_HEAD - .set VE_HEAD = VE_TXQ_POLL -XT_TXQ_POLL: - .dw DO_COLON -PFA_TXQ_POLL: - .dw XT_PAUSE - .dw XT_DOLITERAL - .dw USART_A - .dw XT_CFETCH - .dw XT_DOLITERAL - .dw bm_USART_TXRD - .dw XT_AND - .dw XT_EXIT -- cgit v1.2.3