Also:
Regulus Berdin says: You can find 10 to the power of x ( 10 ^ x) with:
pow10 movwf rC addwf rC,w addwf PCL,f p0 clrf rC retlw 0x01 p1 clrf rC retlw 0x0A p2 clrf rC retlw 0x64 p3 nop ;rC=3 retlw 0xE8 p4 movlw 0x27 movwf rC nop retlw 0x10