jmp        start
		org        0003h
		jmp        ISREX0
		org        000Bh
		jmp        ISR

start:
		acall    init
loop:
		jmp        loop
init:
       
		mov    TMOD,#00000010b
		mov    TL0,#64
		mov    TH0,#64
		setb    ET0
		setb    EA
		setb    TR0
		setb 	EX0
		setb    IT0
		mov     R0,#0
		mov     R1,#0
		ret
ISR:
		cjne     R0,#20,marke1
		mov      R0,#0
		cpl        P1.3
ende:
		reti
marke1:
		inc      R0
		sjmp    ende


ISREX0:
		clr 		EX0
		mov 		R3,#255		
		mov 		R4,#255
		mov 		R5,#255
warte1:		djnz 		R3,warte2 ;Warteschleife um Prellen entgegenzuwirken
warte2:		djnz 		R4,warte1 ;Warteschleife um Prellen entgegenzuwirken

		setb 		EX0
		cjne    	R1,#6,hoch
		reti
 
 hoch:
                acall AusEX01
		inc      R1
		reti

AusEX01:          
		mov    dptr,#tabelle
		mov 	A,R1
		movc    A,@A+dptr
		mov     TL0,A
		mov      TH0,A
				
		reti

tabelle:
		DB 85
	        DB 103
		DB 112
		DB 127
		DB 141
		DB 154
		DB 64