Main:	setb P1.0			; Led on
	call Wait			; 
	clr P1.0			; Led off
	call Wait			;
	jmp Main			;

Wait:	mov r0,#00h			;
	mov r1,#00h			;
	djnz r1,$			;
	djnz r0,$-4			;
	ret				;

	end				;