.include    "m48PAdef.inc"
    ldi     r16,low ((3686400 +115200*8)/(115200*16)-1)
    sts     UBRR0L,r16
    ldi     r16,high((3686400 +115200*8)/(115200*16)-1)
    sts     UBRR0H,r16
    ldi     r16,(0<<RXEN0)+(1<<TXEN0)
    sts     UCSR0B,r16

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