.INCLUDE "m8515def.inc"
.CSEG
.ORG 0000
.equ timer=1



ldi r16,0xFF			; Datenrichtung					
out DDRB,r16

ldi r16, 0x00
out DDRD, r16

ldi r16, HIGH(RAMEND)			; Stackpointer
out SPH, r16
ldi r16, LOW(RAMEND)			; Stackpointer
out SPL, r16

ldi r16, 0xFE			; Anfangszustand
out PORTB, r16

abfrage: 				; Abfrageschleife
	
	sbic PORTD,0
	rcall rechts		; Rechts lang
	
	rcall links			; Links lang

	rjmp abfrage

time:
	ldi r25,HIGH(timer)		;Zeitschleife
	ldi r24,LOW(timer)	
			
	nop
	nop
	nop
	
	sbiw r24,1			
	brne time
   
   	ret

links:	
	rcall time			; Zeitschleife aufrufen
						
	sec					; C-Flag setzen, drehen, ausgeben
	rol r16
	out PORTB, r16
	
	sbis PORTB, 7
	rcall reset			; Anfangszustand wiederherstellen, wenn "durchgelaufen"

	ret

reset: 					; Anfangszustandschleife
	rcall time
	
	ldi r16, 0xFE
	out PORTB, r16
	
	ret

rechts:					; rechts lang

	rcall time
	
	sbis PORTB,0	
	clc
	sbis PORTB,7
	sec

	ror r16
	out PORTB, r16

	ret