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