/*
 * AssemblerApplication1.asm
 *
 *  Created: 07.06.2012 08:11:35
 *   Author: Install
 */ 


.equ F_CPU		= 1843200
.equ BAUD		= 9600
.equ UBRR_VAL   = ((F_CPU+BAUD*8)/(BAUD*16)-1)  ; clever runden
.equ BAUD_REAL  = (F_CPU/(16*(UBRR_VAL+1)))     ; Reale Baudrate
.equ BAUD_ERROR = ((BAUD_REAL*1000)/BAUD-1000)  ; Fehler in Promille
 
.if ((BAUD_ERROR>10) || (BAUD_ERROR<-10))       ; max. +/-10 Promille Fehler
  .error "Systematischer Fehler der Baudrate grösser 1 Prozent und damit zu hoch!"
.endif
 
.def temp = R16
.def cmd = R17
.def cs = R18
// Init Stackpointer

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

// Init UART

lds temp, UCSR0B
sbr temp, 1<<TXEN0
sts UCSR0B, temp
lds temp, UBRR_VAL
sts UBRR0H, temp
lds temp, UBRR_VAL
sts UBRR0L, temp


MainLoop:

lds temp, PINC
sbrc temp, 0
rjmp Stufe_0
sbrc temp, 1
rjmp Stufe_1
sbrc temp, 2
rjmp Stufe_2
sbrc temp, 3
rjmp Stufe_3


rjmp MainLoop



// UART Senden

UART_Send:

rcall checkTXR
lds temp, 0x00
sts UDR0, temp
rcall checkTXR
lds temp, 0xFF
sts UDR0, temp
rcall checkTXR
lds temp, 0x9C
sts UDR0, temp
rcall checkTXR
sts UDR0, cmd		// Variable aus Stufe_n unterprogramm
rcall checkTXR
sts UDR0, cs
rcall checkTXR
rjmp MainLoop

checkTXR:			// Warteschleife für Fertig-Flag
ldi temp, UCSR0A
sbrs temp, TXC0
rjmp checkTXR
ret


Stufe_0:
ldi cmd, 0x80
ldi cs, 0x1B
rjmp UART_Send

Stufe_1:
ldi cmd, 0x9E
ldi cs, 0x39
rjmp UART_Send

Stufe_2:
ldi cmd, 0x3C
ldi cs, 0xD7
rjmp UART_Send

Stufe_3:
ldi cmd, 0x64
ldi cs, 0xFF
rjmp UART_Send