.include    "AVR128DB28def.inc"
    sbi     VPORTC_DIR,0
    ldi     r16,low (64000*4000/16/115200)
    sts     USART1_BAUDL,r16
    ldi     r16,high(64000*4000/16/115200)
    sts     USART1_BAUDH,r16
    ldi     r16,(1<<USART_RXEN_bp)+(1<<USART_TXEN_bp)
    sts     USART1_CTRLB,r16

.macro  send
    inc     r17
    sts     USART1_TXDATAL,r17
    rjmp    pc+1                ; noetig?
    rjmp    pc+1                ; noetig?
.endmacro
    ldi     r17,'@'
    send
    send
    send
    rjmp    pc