org 00h
loop:	mov a,p1
	mov b,p1
	anl a,#00000010b
	anl b,#00000001b
	rr a
	mov r0,b
	xrl a,r0
	jnz bits
        sjmp here        <b>; ------</b>
bits:	setb p2.0 ;              <b>|</b>
here:	sjmp loop        ; <b><-----</b>
	end