Can you provide us the values as you step through the routine?
1. Initial value of V1 from the "GOSUB SINV1"
2. What the details of SHIFTV1 does
3. What the value of V1 is before you perform this "V1 = V1 */$0065"

A little more clarity might help us help you get pointed to the issue.