.def temp1 = r16
.def temp2 = r17
.def temp3 = r18
.def temp4 = r19	;Zähler LS Einfahrt EG
.def temp5 = r20	;Zähler LS Einfahrt OG
.def temp6 = r21	;Zähler LS Ausfahrt EG
.def temp7 = r22	;Zähler LS Ausfahrt OG
.def temp8 = r23	;BelegungEG
.def temp9 = r24	;BelegungOG
.def temp10=r25
.equ XTAL=4000000



			ldi temp8, 0
			ldi temp9, 0
			rcall ausw
 Main:
			
		



		
			sbic PINC, PINC0			
			rcall EinfEGp1

			sbic PINC, PINC1			
			rcall AusfEGp1
			
			sbic PINC, PINC2
			rcall EinfOGp1
			
			sbic PINC, PINC3
			rcall AusfOGp1
		
			rjmp Main



ausw:		rcall AuswertungEG0to7
			rcall AuswertungEG8to14
			rcall AuswertungEG15to20
			rcall AuswertungOG0to7
			rcall AuswertungOG8to14
			rcall AuswertungOG15to20	
			
			
			
			



EinfEGp1:	
			ldi temp4, 0
			rcall tast1
			subi temp4, -1
			rcall BelegEGp1
			ret
AusfEGp1:   ldi temp5, 0
			rcall tast2
			subi temp5, -1
			rcall BelegEGm1
			ret
EinfOGp1:	ldi temp6, 0
			rcall tast3
			subi temp6, -1
			rcall BelegEGm1
			rcall BelegOGp1
			ret
AusfOGp1:   ldi temp7, 0
			subi temp7, -1
			rcall tast4
			rcall BelegEGp1
			rcall BelegOGm1
			ret





tast1:
			sbis PINC, PINC0
			rjmp tast1
			rcall delay5ms
			rcall delay5ms
			rcall msr16
tast11:	
			sbic PINC, PINC0
			rjmp tast11
			rcall msr16
			ret

tast2:
			sbis PINC, PINC1
			rjmp tast2
			rcall delay5ms
			rcall delay5ms
			rcall msr16
tast21:	
			sbic PINC, PINC1
			rjmp tast21
			rcall msr16
			ret


tast3:
			sbis PINC, PINC2
			rjmp tast3
			rcall delay5ms
			rcall delay5ms
			rcall msr16
tast31:	
			sbic PINC, PINC2
			rjmp tast31
			rcall msr16
			ret


tast4:
			sbis PINC, PINC3
			rjmp tast4
			rcall delay5ms
			rcall delay5ms
			rcall msr16
tast41:	
			sbic PINC, PINC3
			rjmp tast41
			rcall msr16
			ret




msr16:
			tst temp1
			breq msr16b
			push temp1
msr16a:	
			rcall ms1
			dec temp1
			brne msr16a
			pop temp1
msr16b:		ret






ms1:		push r24
			push r25
			ldi r24,LOW(XTAL/4000)
			ldi r25,HIGH(XTAL/4000)
ms1a:
			sbiw r24,1
			brne ms1a
			nop
			pop temp3
			pop temp2
			ret

			ret





BelegEGp1:	subi temp8, -1
			rcall ausw
			ret	
			
BelegEGm1:	subi temp8,  1
			rcall ausw
			ret

BelegOGp1:  subi temp9, -1
			rcall ausw
			ret
			
BelegOGm1:	subi temp9,  1
			rcall ausw
			ret