2025-04-23 - m820250417003rs232transmit.asm

;; (C) David Vajda
;; 2025-04-17
;; m8 - rs232 - transmit

.include "m8def.inc"

ldi r16, HIGH (RAMEND)
out SPH, r16
ldi r16, LOW (RAMEND)
out SPL, r16

ldi r16, HIGH (25)      ;; value for baudrate = 2400
out UBRRH, r16
ldi r16, LOW (25)       ;; value for baudrate = 2400
out UBRRL, r16

ldi r16, (1 << URSEL) | (1 << UCSZ1) | (1 << UCSZ0)
out UCSRC, r16
ldi r16, (1 << TXEN)    ;; muss ich nachucken
out UCSRB, r16          ;; muss ich nachgucken s


transmitloop:
ldi r16, 'd'
rcall rs232transmit
ldi r16, 'a'
rcall rs232transmit
ldi r16, 'v'
rcall rs232transmit
ldi r16, 'i'
rcall rs232transmit
ldi r16, 'd'
rcall rs232transmit
ldi r16, '@'
rcall rs232transmit
ldi r16, 'w'
rcall rs232transmit
ldi r16, 'w'
rcall rs232transmit
ldi r16, 'w'
rcall rs232transmit
ldi r16, '.'
rcall rs232transmit
ldi r16, 'd'
rcall rs232transmit
ldi r16, 'v'
rcall rs232transmit
ldi r16, 'a'
rcall rs232transmit
ldi r16, 'j'
rcall rs232transmit
ldi r16, 'd'
rcall rs232transmit
ldi r16, 'a'
rcall rs232transmit
ldi r16, '.'
rcall rs232transmit
ldi r16, 'd'
rcall rs232transmit
ldi r16, 'e'
rcall rs232transmit
ldi r16, 10
rcall rs232transmit
ldi r16, 13
rcall rs232transmit
rjmp transmitloop

rs232transmit:
sbis UCSRA, UDRE        ;; so ist richtig
rjmp rs232transmit
                        ;; muss ich nachgucken
;;sbis rs232transmit
out UDR, r16            ;; .. muss ich nachgucken
ret