lcall x
;dptr contains pc contents


x:
pop a
mov dph,a
pop a
mov dpl,a
clr a
jmp @A_dptr

you can convert to machine yourself I see

Have fun,

Erik