; ( -- )
; R( -- )
; init rs485 pins early in startup
VE_RS485_INIT:
    .dw $ff0a
    .db "rs485.init"
    .dw VE_HEAD
    .set VE_HEAD = VE_RS485_INIT
XT_RS485_INIT:
    .dw PFA_RS485_INIT
PFA_RS485_INIT:
    in_  temp0, (RS485_RW_PORT-1)	; set DDR bit (pin_output)
    ori  temp0, exp2(RS485_RW_PIN)
    out_ (RS485_RW_PORT-1), temp0
;
    in_  temp0, RS485_RW_PORT		; set PORT bit low (receive)
    andi temp0, low(~(exp2(RS485_RW_PIN)))
    out_ RS485_RW_PORT, temp0
;
    rjmp DO_NEXT