$MOD52
	MOV A,#00000000B
	MOV B,#00010000B
	MOV R5,#00100000B
	MOV R6,#00110000B
start:



	CALL delay
	INC A
	INC B
	INC R5
	INC R6
	CJNE A,#0aH, start
	MOV A,#00000000B
	MOV B,#00010000B
	MOV R5,#00100000B
	MOV R6,#00110000B
	JMP start:

z:
MOV R0, #255
DJNZ R0, $
RET

delay:
MOV R1,#0001001B
 DLY0:		MOV R2,#0a0h
 DLY1:		MOV	R3,#0FFh
		DJNZ	R3,$
		MOV P2, A
		call z
		MOV P2, B
		call z
		MOV P2, R5
		call z
		MOV P2, R6
		call z
		DJNZ	R2,DLY1
		DJNZ	R1,DLY0
		RET
END