;25 mal pro Sekunde den Zählerstand messen und über den UART ausgeben und den Zähler wieder auf Null setzten.




.include "m8515def.inc"


.equ CountValue = 22                 ;Startwert für Timer0
.equ Teiler  = 0b00000101           ;Teiler= 1024 von Timer0
.equ CLOCK = 6000000   	;Quartzfrequenz
.equ BAUD  = 19200		;Baudrate
.equ UBRRVAL = CLOCK/(BAUD*16)-1    ;Berechnung 


.def temp   = r16
.def ZA     = r17 	;Zähler    
.def Val1L  = r18 	;16Bit Zähler Low 
.def Val1H  = r19 	;16Bit Zähler High 
.def Val2L  = r20 	;16Bit Wert Low  für Drehmoment 
.def Val2H  = r21 	;16Bit Wert High für Drehmoment
.def Sende  = r22 	;Der Wert der gesendet wird 



	rjmp Reset	  ;Reset vector
	reti		  ;Ext Int 0
	reti		  ;Ext Int 1
	reti		  ;Timer 1 Capture Event
	reti		  ;Timer 1 Compare Match A
	reti		  ;Timer 1 Compare Match B
	reti		  ;Timer 1 Overflow
    	rjmp Timer0  	 ;Timer 0 Overflow
	reti		  ;Serial Transfer complet
    	rjmp int_rxc 	  ;UART Rx Complete
	reti		  ;USART, Dataregister Empty
	reti         		  ;USART, Tx Complete
	reti	     	  ;Analog Compare
	reti		  ;External Interrupt Request 2
	reti		  ;Timer0 Compare Match
	reti		  ;EEPROM ready
	reti 		  ;Store Programm Memory ready



Reset:
    ;Stack initialisieren
    ldi temp,LOW(RAMEND)  		 ;LOW-Byte der obersten RAM-Adresse
    out SPL, temp
     ldi	temp,HIGH(RAMEND)     	 ;HIGH-Byte der obersten RAM-Adresse
     out	SPH, temp

    ldi	temp,0x00
   out	DDRB, temp	             ;Datenrichtung von PortB Eingang

  ldi	temp,0xFF
  out	DDRC, temp	             ;Datenrichtung von PortC Ausgang
    					
    ldi temp,CountValue                  ;Startwert des Timer 0 einstellen: 
   out TCNT0, temp
  
    ldi temp, LOW(UBRRVAL)       ;Baudrate einstellen
    out UBRRL, temp
    ldi temp, HIGH(UBRRVAL)      ;Baudrate einstellen 
    out UBRRH, temp

    ldi temp, (1<<URSEL)|(1<<USBS)|(3<<UCSZ0) ;Stopbit usw.
    out UCSRC, temp

   ldi temp, (1<<RXEN)|(1<<TXEN)|(1<<RXCIE)|(1<<TXCIE);TX RX enablen aktivieren
    out UCSRB,temp

  ldi temp,0b10000111                ;Timer1/Counter1 mit extrenem Takt an PB1 (T1)
    out TCCR1B,temp                 ;Bit7 macht Übertrag von Low nach High

    ldi temp,0x00                           ;Startwert des Timer1 einstellen: 
    out TCNT1H,temp
    ldi temp,0x00    
    out TCNT1L,temp

    ldi temp, 0b00000010              ;Bit 1 /Timer/Counter 0 Überlauf-Interrupt
    OUT TIMSK,temp 


   ldi Val2L,0x0F
   ldi Val2H,0xF0
   
    ldi ZA,0x00                   ;Zähler auf Null stellen


sei 



;********************* Hauptprogramm ***********************
MainPro:
    
  nop
         
rjmp MainPro
;********************* Hauptprogramm ***********************



;******************** Zeichen senden************************
serout:                             ;Wert senden
  sbis UCSRA,UDRE     ;Warten bis UDR für das nächste
                                          ;Byte bereit ist
  rjmp serout
  out UDR, Sende
ret	
;******************** Zeichen senden************************



;********************* Empfangen von PC *********************
int_rxc:
    in	temp,SREG	 ;CPU-Status sichern
	push temp                  ;temp auf dem Stack sichern
   	in temp, UDR             ;später Wert ausgeben
	rcall BefehlCheck
   	pop temp      
	out sreg, temp           ;CPU-Status aus dem Stack wieder herstellen
reti                                                 ;Interrupt beenden
;********************* Empfangen von PC *********************


	                               
;**********Timerinterrupt**********
Timer0:
  ldi temp,0B00000000	     
  out TCCR0,temp                ;Timer deaktivieren


  ldi temp,CountValue           ;Startwert des Timer 0 einstellen: 
  out TCNT0, temp

  ldi temp,Teiler	     
  out TCCR0,temp                ;Timer aktivieren


                                               ;Achtung High muss vor Low gelesen werden
  in  Val1H, TCNT1H           ;Timer1 High einlesen                         
  in  Val1L, TCNT1L             ;Timer1 Low  einlesen   

  ldi temp,0x00                      ;Startwert des Timer1 einstellen: 
  out TCNT1H,temp
  ldi temp,0x00    
  out TCNT1L,temp

  out PORTC, ZA	           ;Zählerstand an PortB ausgeben

  mov sende, ZA
  rcall serout

  mov sende, Val1H
  rcall serout

  mov sende, Val1L
  rcall serout

  mov sende, Val2H
  rcall serout

  mov sende, Val2L
  rcall serout

  ldi sende, 10                 ;Zeilenwechsel #10,#13
  rcall serout
  ldi sende, 13
  rcall serout

  inc ZA                         ;Zähler erhöhen
reti
;**********Timerinterrupt**********


;********** Befehl Check ********
BefehlCheck:

  cpi temp,0x31            ;vergleichen
  breq M_Ein               ;Wenn temp=1  dann springen

  cpi temp,0x30            ;vergleichen
  breq M_Aus             ;Wenn temp=0 dann springen


  rjmp Ende1
    

  M_Ein:
    rcall MStart
	rjmp  Ende1

  M_Aus:
    rcall MStop
	rjmp  Ende1
	
  Ende1:


ret
;********** Befehl Check ********



;********** Messung beginnt ********
MStart:
  ldi ZA,0x00                    ;Zähler auf Null stellen

  ldi temp,0x00                  ;Startwert des Timer1 einstellen: 
  out TCNT1H,temp
  ldi temp,0x00    
  out TCNT1L,temp

  ldi temp,CountValue            ;Startwert des Timer0 einstellen: 
  out TCNT0, temp

  ldi temp,Teiler	     
  out TCCR0,temp                 ;Timer deaktivieren
ret
;********** Messung beginnt ********



;********** Messung stoppen ********
MStop:

  ldi temp,0b00000000	     
  out TCCR0,temp                 ;Timer deaktivieren

  ldi ZA,0x00                          ;Zähler auf Null stellen

  ldi temp,0b10101010
  out PORTC, temp		  
ret


ret