PROGRAM SEGMENT CODE
VALT	SEGMENT DATA

RSEG VALT
ALLAPOT:	DS	1
ELOZO:		DS	1
KESL:		DS	1

RSEG PROGRAM

LJMP	INIT
ORG	0BH
JMP	MEGSZ

INIT:
	ANL	TMOD,#0F0H
	ORL	TMOD,#00000001B		   
   	SETB	TR0
	SETB	ET0
	SETB	EA

START:
	CJNE	A,ELOZO,TOVA
	JMP	START
TOVA:	
	MOV	DPTR,#TABLA
	MOV	A,ALLAPOT
	MOVC	A,@A+DPTR
	MOV	P0,A
	MOV	A,ALLAPOT
	MOV	ELOZO,A
	CJNE	A,#6,START
	CLR	A
	MOV	ALLAPOT,A
	JMP	START

MEGSZ:	MOV	A,KESL
	CJNE	A,#0FFH,UJRA
	MOV	A,ALLAPOT
	INC 	A
	MOV	ALLAPOT,A
	CLR	A
	MOV	KESL,A
	RETI
	UJRA:
	INC	A
	MOV	KESL,A
	RETI

TABLA:
DB	00000001B
DB	00000010B
DB	00000011B
DB	00000100B
DB	00000101B
DB	00000110B

END