;=================TASTEN-ROUTINEN===============
;


/*X_messen:


				push temp1
				push temp2

;Entsprechende Leitungen auf Ausgang +/-

				ldi temp1, (1<<Xminus)|(1<<Xplus)
				out DDRa,temp1
				out porta, temp1		; Pull-Up
				
				sbi porta, Xminus
				cbi porta, Xplus
				pop temp2
				pop temp1

				ret
*/



Touch_ruhe:
		;cli

      	sbi  Touch_DDR, Y_minus  ; alles auf Ausgang
      	sbi  Touch_DDR, Y_plus
     	cbi  Touch_DDR, X_plus
	  	cbi  Touch_DDR, X_minus		; Interruptauslöser !!

      	cbi  Touch_Control, Y_minus  ; Y Auf 0V
      	cbi  Touch_Control, Y_plus  
      ;sbi  Touch_Control, X_Plus		; Xplus auf High
      sbi  Touch_control ,X_minus; pullup an
		;cbi pina, x_minus		

	;	rcall delay5ms
	;	sei		
	  ret

Touch_init:
			push temp1

      	;	rcall Touch_ruhe
; hier adc init
			ldi  Temp1, 0b01100000   ;ADC initialisieren
      		sts Admux , Temp1
      		ldi  Temp1, 0b10000010
      		sts Adcsra , Temp1
      	;	ldi  Temp1, 0x00
/*
      		Loadadr X_vorher , X
      		st  X, Temp_1
      		Loadadr Y_vorher , X
			st  X, Temp_1

		    Loadadr Touch_aktiviert , X
		    st  X, Temp_1
		    Loadadr Touch_meldet , X
		    st  X, Temp_1
*/
			pop temp1
		    ret
/*
ADC_INIT:
		push temp1
		clr     temp1 
    	ldi     temp1, (1<<REFS0)|(0<<REFS1)|(1<<ADLAR);|(0<<mux4)|(0<<mux3)|(0<<mux2)|(0<<mux1)|(0<<MUX0)   ; Kanal 0, interne Referenzspannung 5V
    	sts     ADMUX, temp1
    	ldi     temp1, (1<<ADEN)|(0<<ADPS2)|(1<<ADPS1)|(0<<ADPS0) 
    	sts     ADCSRA, temp1
		
		pop temp1
		ret
*/

Touch_messen:

				push temp1
				push temp2
;				ldi     ZL, LOW(Adressen)   ; ZL mit den unteren Bits der Adresse initialisieren
;				ldi     ZH, HIGH(Adressen)  ; ZH mit den oberen Bits der Adresse initialisieren


;				ldi temp2, 2			; 2 Werte messen
;jetzt_speichern2:
			;	st Z+, adlow
ldi temp2, 3							; einmal dummy messen
messen:
				lds 	temp1, adcsra
				sbr     temp1,(1<<ADSC)
    			sts     ADCSRA, temp1        ; den ADC starten									 			
warten_adc2:

				lds 	temp1, adcsra
    			sbrc    temp1, ADSC        ; wenn ADC fertig ist, wird dieses Bit gelöscht
				rjmp    warten_adc2
 	
; ADC einlesen:
 
    			lds      adlow, ADCL         ; immer zuerst LOW Byte lesen
   				lds		 adlow, ADCH
	dec temp2
	brne messen
		
				rcall touch_ruhe
		
				pop temp2
				pop temp1
				ret


Touch_speichern_X:
;hier X-Messung
				push temp1
				push temp2
				push zl
				push zh

				z_laden Touchwerte

				wartex 1

				cbi   Touch_DDR, Y_plus  ;Y auf Input stellen
      			cbi   Touch_DDR, Y_minus
				sbi   Touch_DDR, x_minus  
      			sbi   Touch_DDR, x_plus

			;	wartex 2

				sbi   touch_control, x_plus
      			cbi   Touch_Control, X_minus ;X bestromen
					
				ldi  Temp1, (0<<ADEN)
      			sts Adcsra , Temp1
				
				wartex 2
					
      			ldi   Temp1, 0b01100010  ;auf Eingang Y- stellen
      			sts  Admux , Temp1
				
				wartex 2
					
				ldi  Temp1, (1<<ADEN)
      			sts Adcsra , Temp1
				
				wartex 2
					
      			rcall Touch_messen

				st z, adlow			; X-Wert in ZL(Touchwerte) gespeichert	
				wartex 1
					
				pop zh
				pop zl
				pop temp2
				pop temp1
				ret


Touch_speichern_Y:
				push temp1
				push temp2
				push zl
				push zh

				Z_laden Touchwerte
				inc zl
				
;hier Y-Messung
			
				cbi   Touch_DDR, X_plus  ;X auf Input stellen
      		    cbi   Touch_DDR, X_minus
				sbi  Touch_DDR, Y_minus 
      			sbi  Touch_DDR, Y_plus

				wartex 2

				sbi   touch_control, y_plus
      			cbi   Touch_Control, Y_minus ;Y bestromen
				
				wartex 2

				ldi  Temp1, (0<<ADEN)
      			sts Adcsra , Temp1
				
				wartex 2					
				
				ldi   Temp1, 0b01100011  ;auf Eingang X- stellen
      			sts  Admux , Temp1
					
				wartex 2		

				ldi  Temp1, (1<<ADEN)
      			sts Adcsra , Temp1

				wartex 2
      				
				rcall Touch_messen
			;	mov temp3, adlow				; Y-Wert als temp3 gespeichert
				
			
			;	ld adhigh, z+			; Dummy load
				st z, adlow						; YWert in zL+1(Touchwerte)
				
				wartex 2

				pop zh
				pop zl
				pop temp2
				pop temp1
				ret



;hochsten_wert messen:
				


Touch_auswerten:
				push temp1
				push temp3
				push temp4
				push zl
				push zh
;TEST
		;		ldi disdata1, 0x0c
		;		mov disdata2, temp1			; X-Wert als Zeichen ausgeben


				Z_laden Touchwerte
				wartex 2
				ld temp4, z+
				wartex 2
				ld temp3, z
			wartex 2
			
			;	ldi temp3, 133
			;	rcall touch_speichern_x
			;	rcall touch_speichern_y

				cpi temp4, 53
				brlo Ende

				cpi temp4, 219
				brsh Ende
				
				cpi temp4, 84
				brlo VDiv			; obere Spalte getoucht : V/Div
				
				
				cpi temp4, 133 
				brlo Ende

				
				cpi temp4, 162
				brlo TDiv			; mittlere Spalte getoucht : T/Div

				
				cpi temp4, 189
				brlo Ende

				
				cpi temp4, 218
				brlo xxxx			; untere Spalte getoucht : xxxx

;				rjmp ende
;------------ TEST ------------------
Ende:
			/*	push temp1
				ldi temp1, 0b00110000	; 00 auf display
				st y+, temp1
				ldi temp1, 0b00110000
				st y, temp1
				pop temp1
*/
				ldi disdata2, 0b00110000
				rcall sende_daten
				pop zh
				pop zl
				pop temp4
				pop temp3
				pop temp1
				ret

; ========================
VDiv:
			/*	push temp1
				ldi temp1, 0b00110001 ;=> 1 auf display  
				st y+, temp1
			*/
				ldi disdata2, 0x56		; V auf Display	
				rcall sende_daten				
				cpi temp3, 132		; Vergleich mit Mitte : + oder -
				brsh plus_VDiv

minus_VDiv:
				ldi disdata2, 0b00101101; => - auf display
				rcall sende_daten
				pop zh
				pop zl
				pop temp4
				pop temp3
				pop temp1
				ret				
	
plus_VDiv:	
				
				ldi disdata2, 0b00101011 ; => + auf Display
				rcall sende_daten
				pop zh
				pop zl
				pop temp4
				pop temp3
				pop temp1
				ret

; =======================
TDIV:
		
				ldi disdata2, 0x54	; T auf Display
				rcall sende_daten

				cpi temp3, 132
				brsh plus_TDiv
minus_TDiv:
				ldi disdata2, 0b00101101	; - auf Display
				rcall sende_daten
				pop zh
				pop zl
				pop temp4
				pop temp3
				pop temp1
				ret				
	
plus_TDiv:	
				ldi disdata2, 0b00101011 ; => + auf Display
				rcall sende_daten
				pop zh
				pop zl
				pop temp4
				pop temp3
				pop temp1
				ret

; ========================
xxxx:		
				ldi disdata2, 0x58
				rcall sende_daten

				cpi temp3, 132
				brsh plus_xxxx

minus_xxxx:
				ldi disdata2, 0b00101101	; - auf Display
				rcall sende_daten
				pop zh
				pop zl
				pop temp4
				pop temp3
				pop temp1
				ret				
	
plus_xxxx:	
				ldi disdata2, 0b00101011 ; => + auf Display
				rcall sende_daten
				pop zh
				pop zl
				pop temp4
				pop temp3
				pop temp1
				ret				

/*
Ende:
				push temp1

				ldi temp1,0b00110000 
				ldi disdata1, 0x0c
				mov disdata2, temp1
				rcall Sende_daten
				pop temp1

				ret

; ==========================================================================
Vdiv:
				push temp1

			
				ldi disdata1, 0x0c

				
	
				ldi temp1,0b00110001
				mov disdata2, temp1
				rcall sende_daten
				pop temp1

				cpi temp3, 132		; Vergleich mit Mitte : + oder -
				brsh plus_VDiv
minus_VDiv:
				push temp1		
				ldi temp1, 0b00101101		; -
				; ------TEST--------
				ldi disdata1, 0x0c
				mov disdata2, temp1
				rcall sende_daten
				
				pop temp1
				ret

				cpi temp1, 0
				breq null			; schon geringster V_Div Wert??
				dec temp1
				
				out portb, temp1		; Y012 ändern
				
				rcall symbol_zeigen

				st z, temp1				; Y012 speichern
				ret

plus_VDiv:
				cpi temp1, 8
				breq null
				inc temp1
				
				out portb, temp1
				
				st z, temp1
				; ------TEST--------
				push temp1
				ldi temp1, 0b00101011		;+
				ldi disdata1, 0x0c
				mov disdata2, temp1
				rcall sende_daten
				
				pop temp1
				ret

				
			

			nop
				ret

; ==========================================================================
Tdiv:
				push temp1

				; ------TEST--------
				ldi temp1, 0b00110010
				ldi disdata1, 0x0c
				mov disdata2, temp1
				rcall sende_daten
				
				pop temp1
				ret
xxxx:
				push temp1
				ldi temp1, 0b00110011
				; ------TEST--------
				ldi disdata1, 0x0c
				mov disdata2, temp1
				rcall sende_daten
				pop temp1
				ret	
				
*/							
				
/*
			cpi temp1, 0
				breq zwanzigmpro
			cpi temp1, 1
				breq funfzigmpro
			cpi temp1, 2
				breq hundertmpro
			cpi temp1, 3
				breq zweihundertmpro
			cpi temp1, 4
				breq funfhundertmpro
			cpi temp1, 5
				breq einpro
			cpi temp1, 6
				breq zweipro
			cpi temp1, 7
				breq funfpro
zwanzigmpro:
				ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1
funfzigmpro:
				ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1
hundertmpro:
				ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1
zweihundertmpro:
				ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1
funfhundertmpro
			ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1
einpro
			ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1
zweipro
			ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1
funfpro
			ldi temp1, (1<<Y0)|(1<<Y1)|(1<<Y2)
				out DDRB,temp1


				

Touch_auswerten:
      Loadadr Touch_aktiviert , X
      ld    Flag_Touch_aktiviert, X

      Loadadr Touch_meldet , X
      ld    Flag_Touch_meldet, X

      cbi   Touch_DDR, in_X_plus  ;X auf Input stellen
      cbi   Touch_DDR, in_X_minus
      cbi   Touch_Control, Y_minus ;Y bestromen

      ldi   Temp_1, &B01100011  ;auf Eingang X- stellen
      !Out  Admux , Temp_1

      rcall Touch_messen
      Loadadr Y_aktuell , X
      st    X, Accu_H

      cbi   Touch_DDR, in_Y_plus  ;Y auf Input stellen
      cbi   Touch_DDR, in_Y_minus
      cbi   Touch_Control, X_minus ;X bestromen

      ldi   Temp_1, &B01100000  ;auf Eingang Y- stellen
      !Out  Admux , Temp_1

      rcall Touch_messen
      Loadadr X_aktuell , X
      st  X, Accu_H

' Touch auswerten

      Loadadr X_aktuell , X
      ld  Temp_1, X
      cpi  Temp_1, ungedrueckt
      brsh Touch_auswerten_90

      Loadadr Y_aktuell , X
      ld  Temp_1, X
      cpi  Temp_1, ungedrueckt
      brsh Touch_auswerten_90

      sbrc Flag_Touch_aktiviert, skip_Touch_aktiviert
      rjmp Touch_auswerten_99

      Loadadr X_aktuell , X
      ld  Temp_1, X
      Loadadr X_vorher , X
      ld  Temp_2, X

      cp  Temp_1, Temp_2
      brne Touch_auswerten_80

      Loadadr Y_aktuell , X
      ld  Temp_1, X
      Loadadr Y_vorher , X
      ld  Temp_2, X

      cp  Temp_1, Temp_2
      brne Touch_auswerten_80

      sbr  Flag_Touch_aktiviert, set_Touch_aktiviert
      sbr  Flag_Touch_meldet, set_Touch_meldet

      rcall  Touch_xy_berechnen

      rjmp Touch_auswerten_99

Touch_auswerten_80:
      Loadadr X_aktuell , X
      ld  Temp_1, X
      Loadadr X_vorher , X
      st  X, Temp_1

      Loadadr Y_aktuell , X
      ld  Temp_1, X
      Loadadr Y_vorher , X
      st  X, Temp_1

      rjmp Touch_auswerten_99

Touch_auswerten_90:
      cbr  Flag_Touch_aktiviert, clear_Touch_aktiviert

Touch_auswerten_99:
      Loadadr Touch_meldet , X
      ST X, Flag_Touch_meldet
      Loadadr Touch_aktiviert , X
      ST X, flag_Touch_aktiviert
      ret
*/