UC r,i=7;DO{r+=r+(c&1);c/=2;}WH(--i);RT r;   
   018F AA 82               458 	mov	r2,dpl
   0191 7B 07               461 	mov	r3,#0x07
   0193                     462 00101$:
   0193 74 01               464 	mov	a,#0x01
   0195 5A                  465 	anl	a,r2
   0196 2C                  468 	add	a,r4
   0197 2C                  471 	add	a,r4
   0198 FC                  472 	mov	r4,a
   0199 EA                  476 	mov	a,r2
   019A C3                  477 	clr	c
   019B 13                  478 	rrc	a
   019C FA                  479 	mov	r2,a
   019D DB F4               483 	djnz	r3,00101$
   019F 8C 82               487 	mov	dpl,r4
   01A1 22                  489 	ret