;################################################################################
;ATMEGA8 - RS232 - ASCII Empfang - Ausgabe als Dezimalwert des ASCII Wertes
;################################################################################
;Int. Clock 8MHz
;################################################################################
;Heiko Haedicke 2013 - www.dg7eaz.de
;################################################################################


.include "m8def.inc"

.EQU FLAG_USART_RCV= 0

.def sreg_temp=r1
.def temp1=r16
.def temp2=r17
.def temp3 = r18
.def rcv_byte = r19
.def flags = r20
.def tx_ptr = r21
.def temp = r22
.def temp4 = r23

;################################################################################
; Definitionen der USART
;################################################################################
.equ takth = 8000000       ; 8 MHz int. Systemtakt
.equ baudh = 19200         ; Baudrate
.equ BAUDRATE_REGISTER = ((takth+baudh*8)/(baudh*16)-1)

;################################################################################
; Definition der Interrupts
;################################################################################
.org $0000
      rjmp init

.org URXCADDR
       rjmp USART_RX_HANDLER

.org int_vectors_size*2

;################################################################################
; Initialisierung
;################################################################################
init:
        ldi temp1,low(ramend)
        out spl,temp1
        ldi temp1,high(ramend)
        out sph,temp1

        rcall usart_init
        
        ldi zl,low(MESSAGE_HELLO*2)
        ldi zh,high(MESSAGE_HELLO*2)
        rcall usart_message
        rcall usart_crlf
		               
        sei

;################################################################################
;Hauptprogramm
;################################################################################

main:

		clr flags

;################################################################################
; Empfang der Zeichen und Ausgabe des Dezimalwertes
;################################################################################

endless:
		;Warten auf den Empfang eines Zeichens auf der RS232
		sbrc flags,FLAG_USART_RCV
        rcall usart_rcv_handler

		rjmp endless

		;Epmfangen und Auswerten

usart_rcv_handler:
        	
		cli ; Interrupts aus, werden während der Auswertung nicht benötigt.
		cbr flags,(1<<FLAG_USART_RCV) ; Flag zurücksezten
		     
		;Auswertung, wieviel Hunderter vorhanden sind

		mov temp, rcv_byte ; Kompletten Wert in temp laden
		ldi temp1, 0 ; Ausgabewert auf Null
		ldi temp2, 0 ; Merker für Hunderter um später abzuziehen.
		ldi temp3, 100 ; Additionsregister für temp2

Test100:

		subi temp, 100 ; 100 vom kompletten Wert abziehen
		brcs test100done ; Carry gesetzt? Dann Übertrag und < 100 - Ende
		inc temp1 ; einmal geklappt also Hunderter + 1
		add temp2, temp3 ; Mitzählen für spätere Subtraktion bei Zehnern
		rjmp Test100

test100done:

		rcall usart_transmit; Anzahl der Hunderter ausgeben
		mov temp4, temp2 ; Hunderter sichern für spätere Subtraktion für Einer
		ldi temp, 48 ; Anfang ASCII 0 für Ausgabe der Werte in Dezimalform
		add temp1,temp ; Addieren Anzahl der Hunderter mit Anfang ASCII 0
		rcall usart_transmit ; Ausgeben


		;Auswertung wieviel Zehner vorhanden sind.

		mov temp, rcv_byte ; Kompletten Wert in temp laden
		sub temp, temp2 ; Hunderter vom Wert abziehen, werden nicht mehr benötigt.

		ldi temp1, 0 ; Ausgabewert auf Null
		ldi temp2,0 ; Merker für Zehner um später abzuziehen.
		ldi temp3, 10 ; Additionsregister für temp2

test10:
		clc ;Carry löschen
		subi temp, 10 ; 10 vom kompletten Wert abziehen.
		brcs test10done ; Carry gesetzt? Dann Übertrag und < 100 - Ende
		inc temp1 ; einmal geklappt also Hunderter + 1
		add temp2, temp3 ; Mitzählen für spätere Subtraktion bei Zehnern
		rjmp test10

test10done:

		mov temp3, temp ; Rest Einer sichern
		add temp4, temp2 ; Zehnerwert zu den schon gesicherten hundertern addieren um Einer zu errechen.

		ldi temp, 48 ; Anfang ASCII 0 für Ausgabe
		add temp1,temp ; Addieren Anzahl der Hunderter mit Anfang ASCII 0
		rcall usart_transmit ; Ausgeben

Ausgabeeiner:

		sub rcv_byte, temp4 ;Komplettwert Hunderter + Zehner vom Empfangenen Wert abziehen um Einer zu erhalten.
		mov temp1, rcv_byte ; Neuen errechneten Einer Wert nach temp1 
		ldi temp, 48 ; Anfang ASCII 0 setzten 
		add temp1,temp ; Addieren Anzahl der Einer mit Anfang ASCII 0
		rcall usart_transmit ; Ausgeben


		ldi temp1, '.' ; Einen Punkt zwischen die Werte setzen zur besseren Lesbarkeit,
		rcall usart_transmit

		sei; Interrupts wieder einschalten.

rjmp main


;################################################################################
; USART Routinen
;################################################################################
usart_crlf:
        ldi temp1,$0d
        rcall usart_transmit
        ldi temp1,$0a
        rcall usart_transmit
        ret
usart_transmit:
        sbis UCSRA,UDRE
        rjmp USART_Transmit
        out UDR,temp1
        ret
usart_init:
        ldi temp1, high(BAUDRATE_REGISTER)
        out UBRRH,temp1
        ldi temp1, low(BAUDRATE_REGISTER)
        out UBRRL,temp1
        ldi temp1, (1<<RXCIE)|(1<<TXEN)|(1<<RXEN)
        out UCSRB,temp1
        ldi temp1,(1<<URSEL)|(1<<UCSZ1)|(1<<UCSZ0)
        out UCSRC,temp1
        ret
usart_rx_handler:
        in sreg_temp,sreg
        push temp1
        in rcv_byte,udr
        pop temp1
        out sreg,sreg_temp
		sbr flags,(1<<FLAG_USART_RCV)
        reti
usart_message:
        lpm temp1,z+
        tst temp1
        breq exit_usart_message
        rcall usart_transmit
        rjmp usart_message
exit_usart_message:
        ret

;################################################################################
;Datenblöcke für feste Ausgaben
;################################################################################
;Ausgabe USART

message_hello:
        .db "RS232 - HEX to Dezimal : ",$00