If you want to tighten up the accuracy with rounding off to the nearest integer:

. mov a,r1
. mov b,#064h
. mul ab
. mov r6,b
. jnb acc.7,skip
. inc r6
skip:

done