.include "M88def.inc"

.equ fq			= 8000000/32	; Quarzfrequenz: 250kHz
.equ baud 			= 1200		; Baudrate RS-232 Schnittstelle
.equ bddivH			= 0x00		; Teilfaktor für Baudrate 									; Highbyte
.equ bddivL			= (fq/(16*baud))-1; Teilfaktor für Baudrate 									; Lowbyte
.equ rsformat		= $3E			; RS232 Format: 8 databit, odd 								; parity

.def w			= r4			; Variable
.def temp			= r16			; Variable			
.def temp1			= r18			; Variable
.def temp2			= r19			; Variable
.def temp3			= r20			; Variable
.def count1			= r17			; Variable
.def count2			= r21			; Variable
.def flagT2			= r25			; Variable
.def SRegSave  		= r22

.ORG	$0000
		rjmp 	main               	; Reset Handler
		reti 			 		; IRQ0 Handler
		reti		              	; IRQ1 Handler
		reti					; PCINT0 Handler
		reti					; PCINT1 Handler
		reti					; PCINT2 Handler
		reti					; Watchdog Timer Handler
		reti					; Timer2 Compare A Handler
		reti					; Timer2 Compare B Handler
		rjmp	T2_OV				; Timer2 Overflow Handler
		reti                      	; Timer1 Capture Handler
		reti				     	; Timer1 Compare A Handler
		reti                      	; Timer1 Compare B Handler
		reti                      	; Timer1 Overflow Handler
		reti                      	; Timer0 Compare A Handler
		reti                      	; Timer0 Compare B Handler
		reti    				; Timer0 Overflow Handler
		reti                      	; SPI Transfer Complete Handler
		reti                      	; USART, RX Complete Handler
		reti			       	; USART, UDR Empty Handler
		reti                      	; USART, TX Complete Handler
		reti					; ADC Conversion Complete Handler
		reti					; EEPROM Ready Handler
		reti                      	; Analog Comparator Handler
		reti                      	; 2-wire Serial Interface Handler
		reti                      	; Store Programm Memory Ready 								; Handler

main:
		; Initialisieren
		ldi 	temp, high(RAMEND)    ; Stackpointer H initialisieren
		out 	SPH, temp			; in Register schreiben	
		ldi 	temp, low(RAMEND)     	; Stackpointer L initialisieren
		out 	SPL, temp			; in Register schreiben

		; Clock Devider setzen /32
		ldi 	temp, 0b10000000		; Clock-Teiler vorbereiten
		sts 	CLKPR, temp			; in Register schreiben
		ldi	temp, 0b00000101		; Clock-Teiler 32 laden
		sts 	CLKPR, temp			; in Register schreiben
		nop					; Delay, damit Clock stabil
		nop					; Delay, damit Clock stabil
		nop					; Delay, damit Clock stabil
		nop					; Delay, damit Clock stabil
		nop 					; Delay, damit Clock stabil

		; I/O initialisieren
		ldi 	temp, 0x00			; Port B als Eingang
		out 	DDRB, temp			; in Register schreiben	

		ldi 	temp, 0x00			; Port C als Eingang
		out 	DDRC, temp			; in Register schreiben
		
		ldi 	temp, 0x80			; Port D7 als Ausgang, Rest 									; Eingang
		out 	DDRD, temp			; in Register schreiben				

		ldi 	temp, 0xff			; Ports high
		out 	PORTB, temp			; in Register schreiben
		out 	PORTC, temp			; in Register schreiben
		out 	PORTD, temp			; in Register schreiben

		; Serielle Schnittstelle initialisieren
		ldi 	temp, bddivH		; 0x00, Baudrate DividerH
		sts 	UBRR0H, temp		; in Register ablegen
		ldi 	temp, bddivL		; Baudrate DividerL
		sts 	UBRR0L, temp		; in Register ablegen
							; Set frame format
		ldi 	temp, rsformat	;(1<<USBS0)|(3<<UCSZ00)|(3<<UPM00) 
							; RS-232 Datenformat
		
		sts 	UCSR0C,temp			; z.B.: 8 databit, odd parity, 								; 2 stopbits
										
		ldi 	temp, (1<<RXEN0)|(1<<TXEN0)
							; Enable receiver and transmitter
		sts 	UCSR0B, temp		; in Register ablegen

		; Hardwarefunktion durch Meldung auf RS-232 nach Reset anzeigen
		rcall lo				; Info über Funktionskontrolle

		; Timer2 initialisieren                         	
		ldi	temp1, (1<<AS2)		; Asynchronmodus für Timer2
		sts	ASSR, temp1			; in Register ablegen 
 
		ldi  	temp1,(1<<TOIE2)		; TOIE2 setzen
		sts  	TIMSK2,temp1		; in Register ablegen
		                            ; Vorteiler auf 1024
 	     	ldi   temp1, (1<<CS22)|(1<<CS21)|(1<<CS20)
		sts   TCCR2B, temp1		; ins Register schreiben

next:
		lds	temp1, ASSR			; ASSR laden
		sbrc	temp1, 0			; prüfen ob Bit0 gesetzt
		rjmp	next				; warten bis Bit0 gesetzt

		nop					; Delay
		nop					; Delay
		nop					; Delay
		nop					; Delay


		ldi	count1, 21			; counter mit 21 laden (168s)

		; Interupts aktivieren
		sei					; Interupts aktivieren

		; Power Save Modi aktivieren
		ldi 	temp, (1<<PRTWI)|(1<<PRTIM0)|(1<<PRTIM1)|(1<<PRSPI)| 					 (0<<PRUSART0)|(1<<PRADC)
		; PRTWI PRTIM2  PRTIM0  -  PRTIM1 PRSPI PRUSART0 PRADC
		sts 	PRR, temp			;  1  0  1  0  0  1  0  1
							; PRTWI = Power Reduction TWI
							; PRTIM2= Power Reduction Timer2
							; PRTIM0= Power Reduction Timer0
							;  -    = not used
							; PRTIM1= Power Reduction Timer1
							; PRSPI = Power Serial Peripheral								;   Interface (no RS232)
							; PRUSART0=Power Reduction USART0
							; PRADC  = Power Reduction ADC

		ldi 	temp, (1<<SE|1<<SM1|1<<SM0)
							; Power Save Mode aktivieren
		out 	SMCR, temp			; in Sleep Mode Control Register

loop:
		sleep					; Sleep-Modus einschalten
		nop					; Verzög. zur Clockstabilisierung
		nop					; Verzög. zur Clockstabilisierung 
		nop					; Verzög. zur Clockstabilisierung			nop					; Verzög. zur Clockstabilisierung 		nop					; Verzög. zur Clockstabilisierung			nop					; Verzög. zur Clockstabilisierung 
		nop					; Verzög. zur Clockstabilisierung 
		nop					; Verzög. zur Clockstabilisierung 

		dec	count1			; counter um 1 verringern
		cpi	count1, 0			; Abfrage ob counter = 0
		brne	loop				; wenn nein Schleife fortsetzen
			
		sbi  	PIND, 7	   	 	; PD7 invertieren

		rcall	rs_init			; serielle Schnittst.initial.
		rcall	lo				; Meldung senden
		rcall	delay
		ldi	count1, 21			; counter auf 21 setzen
		rjmp 	loop				; Schleife fortführen

		; Timer2 Interuptroutine
T2_OV:  	; Timer 2 Output Compare A Handler
		in	SRegsave,SReg		; SReg einlesen
 		out  	SReg,SRegsave		; und zurückschreiben
        	reti            	           ; Interupt beenden

		; Funktionskontrolle über RS-232 senden
lo:		ldi 	temp, $4F			; E3 laden    "OK"
		mov	w, temp			; Daten in w übertragen
		rcall rs_send			; Byte senden
		ldi 	temp, $4B			; E4 laden
		mov	w, temp			; Daten in w übertragen
		rcall rs_send			; Byte senden
		ldi 	temp, $03			; ETX laden
		mov	w, temp			; Daten in w übertragen
		rcall rs_send			; Byte senden
		ret					; Rücksprung

		; Serielle Schnittstelle initialisieren
rs_init:	ldi 	temp, 0x00			; 0x00, Baudrate DividerH
		sts 	UBRR0H, temp		; in Register ablegen
		ldi 	temp, (8000000/32/(16*1200))-1	; Baudrate DividerL
		sts 	UBRR0L, temp		; in Register ablegen
							; Set frame format
		ldi 	temp, 0x3E		;(1<<USBS0)|(3<<UCSZ00)|(3<<UPM00)
							; RS-232 Datenformat
		sts 	UCSR0C,temp			; z.B.: 8 databit, odd parity, 
							; 2 stopbits
										
		ldi 	temp, (1<<RXEN0)|(1<<TXEN0)
							; Enable receiver and transmitter
		sts 	UCSR0B, temp		; in Register ablegen
		ret					; Rücksprung

		; Verzoegerungsschleife 
delay:	ldi 	temp3, $07			;
WGLOOP4:	ldi 	temp1, $70			;
WGLOOP2:	ldi 	temp2, $FF			;
WGLOOP3:	dec 	temp2				;
		brne 	WGLOOP3			;
		dec 	temp1				;
		brne 	WGLOOP2			;
		dec 	temp3				;
		brne 	WGLOOP4			;
		ret					; Rücksprung

		; Unterprogramm: Sende Byte
rs_send:	lds 	temp2, UCSR0A		; USART Statusregister laden
		sbrs	temp2, 5			; UDRE0 gesetzt ?
		rjmp	rs_send			; wenn nein, warte				
		sts 	UDR0, w			; sende Byte
wait:		lds	temp, UCSR0A		; USART Statusregister laden
		sbrs	temp, 6			; TCX0 gesetzt ?
		rjmp	wait				; wenn nein, warte
		ret					; Rücksprung