$MODXX51 
	ORG   0 
	JMP   INI 
    
	ORG   003H 
	JMP   VYBER 
    
EFEKT1: CLR   P1.1 
	CLR   P1.0 
	CALL   CAKAJ 
	SETB   P1.1 
	SETB   P1.0 
	CALL   CAKAJ 
	CJNE   R4,#1,EFEKT2 
	JMP   EFEKT1 
EFEKT2: CLR   P1.1 
	CALL   CAKAJ 
	SETB   P1.1 
	CALL   CAKAJ 
	CLR   P1.0 
	CALL   CAKAJ 
	SETB   P1.0 
	CALL   CAKAJ 
	CJNE   R4,#2,EFEKT3
	JMP   EFEKT2 
EFEKT3: CLR   P1.1 
	CALL   CAKAJ 
	SETB   P1.1 
	CALL   CAKAJ 
	CLR   P1.1 
	CALL   CAKAJ 
	SETB   P1.1 
	CALL   CAKAJ 
	CALL   CAKAJ 
	CLR   P1.0 
	CALL   CAKAJ 
	SETB   P1.0 
	CALL   CAKAJ 
	CLR	P1.0
	CALL   CAKAJ 
	SETB   P1.0 
	CALL   CAKAJ 
	CALL   CAKAJ 
	CJNE   R4,#3,EFEKT4
	JMP   EFEKT3
EFEKT4: CLR	P1.1
	CLR	P1.0
	CALL   CAKAJ 
	SETB    P1.1 
	SETB 	P1.0
	CALL   CAKAJ 
	CLR     P1.1 
	CLR     P1.0
	CALL   CAKAJ 
	SETB    P1.1 
	SETB 	P1.0
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
	CJNE   R4,#4,EFEKT5
	JMP   EFEKT4
EFEKT5: CLR	P1.1
	CLR	P1.0
	CALL   CAKAJ 
	SETB    P1.1 
	SETB 	P1.0
	CALL   CAKAJ 
	CLR     P1.1 
	CLR     P1.0
	CALL   CAKAJ 
	SETB    P1.1 
	SETB 	P1.0
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
	CJNE   R4,#5,EFEKT6
	JMP   EFEKT5
EFEKT6: CLR   P1.1 
	CALL   CAKAJ 
	SETB   P1.1 
	CALL   CAKAJ 
	CLR   P1.1 
	CALL   CAKAJ 
	SETB   P1.1 
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
 	CALL   CAKAJ  
	CLR   P1.0 
	CALL   CAKAJ 
	SETB   P1.0 
	CALL   CAKAJ 
	CLR	P1.0
	CALL   CAKAJ 
	SETB   P1.0 
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
 	CALL   CAKAJ 
	CALL   CAKAJ
	CALL   CAKAJ 
	CJNE   R4,#6,ZNOVU
	JMP   EFEKT6

ZNOVU:  MOV R4, #1
	JMP EFEKT1 

INI:    SETB   IT0 
	SETB   EX0 
	SETB   EA 
	MOV   R4,#1 
	JMP   EFEKT1 

VYBER:   INC   R4 
  	 RETI

ZNOVA:   MOV   R4,#1 
	JMP   EFEKT1 
CAKAJ:   DJNZ   R1,$ 
	DJNZ   R2,$-2 
	RET 
	END