jmp start

org 0003h
JMP ISREX0

org 000Bh
Jmp ISRTO


start: acall init

loop:jmp loop

init:mov TMOD,#00000010b
	 mov TL0,#64
	 mov TH0,#64
	 setb ET0
	 setb EX0
	 setb EA
	 setb TR0
	 mov R0,#0 
	 ret
	 
ISRTO:	cjne R0,#20,marke1
		mov R0,#0
		cpl P1.3
ende:   reti
marke1: inc R0
		sjmp ende
		
TabelleInit: mov A,#0x00
             movc A,@A+dptr
	     inc dptr
		     
			
		    
ISREX0: mov dptr,#frequenzcode
        jmp TabelleInit
		mov A,#TabelleInit
		mov TL0,A
		mov TH0,A
		reti

		
frequenzcode:		
DB 85,103,112,127,141,154,64