.include "m8def.inc"


.equ	TAST1	= PINB
.equ	PIN_T1	= 1

.def	temp1	= r16
.def	temp2	= r17
.def	temp3	= r18

.equ	XTAL = 16000000					; Prozessor Takt

;----------------
;--- Test keypress
; ---||||____________||||----------------||||_________||||-----
;                               PD1 ein                          PD1 aus
;     Prellen             Prellen
;    Taste gedrückt  Taste losgelassen

loop3:
		ldi		r16, 0x00		; PORTB Eingang
		out		DDRB, r16

		ldi		r16, 0xFF		; PORTD Ausgang
		out		DDRD, r16

		ldi		r16, 0xFF		; PORTD alle LEDs On
		out		PORTD, r16

		cbi		PORTD,1

loop31:							; 1. mal gedrückt
		sbic	PINB,0
		rjmp	loop31

		sbi		PORTD,1			
		rcall	delay				; Taste gedrückt

loop311:
		sbis	PINB,0
		rjmp	loop311

		rcall	delay				; Taste losgelassen


loop312:						; 2. mal gedrückt
		sbic	PINB,0
		rjmp	loop312

		rcall	delay				; Taste gedrückt


loop313:
		sbis	PINB,0
		rjmp	loop313

		rcall	delay				; Taste losgelassen

		cbi	PORTD,1

		rjmp	loop31


;----------------------------------
delay:
		push	temp1
		push	temp2
		push	temp3

delay1:
		ldi	temp3, 0x01

delay2:
		ldi	temp2, 0xFF

delay3:
		ldi	temp1, 0xFF

delay4:
		dec	temp1
		brne	delay4

		dec	temp2
		brne	delay3

		dec	temp3
		brne	delay2

		pop	temp3
		pop	temp2
		pop	temp1

		ret