aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/usart.asm
blob: f14e62fdeac15a08c0e7098e1e66e6f74f482dee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
; ( -- )
; MCU
; initialize usart
VE_USART:
  .dw $ff06
  .db "+usart"
  .dw VE_HEAD
  .set VE_HEAD = VE_USART
XT_USART:
  .dw DO_COLON
PFA_USART:          ; ( -- )

  .dw XT_DOLITERAL
  .dw USART_B_VALUE
  .dw XT_DOLITERAL
  .dw USART_B
  .dw XT_CSTORE

  .dw XT_DOLITERAL
  .dw USART_C_VALUE
  .dw XT_DOLITERAL
  .dw USART_C | bm_USARTC_en
  .dw XT_CSTORE

  .dw XT_UBRR
  .dw XT_DUP
  .dw XT_BYTESWAP
  .dw XT_DOLITERAL
  .dw BAUDRATE_HIGH
  .dw XT_CSTORE
  .dw XT_DOLITERAL
  .dw BAUDRATE_LOW
  .dw XT_CSTORE
.if XT_USART_INIT_RX!=0
  .dw XT_USART_INIT_RX
.endif
.if XT_USART_INIT_TX!=0
  .dw XT_USART_INIT_TX
.endif

  .dw XT_EXIT