Help please? 20S->35S

[Dave Britten]

It appears to be doing something like this.

A couple of notes:

- This is 32S code. The 35S doesn't have proper rectangular/polar conversion functions.
- Registers 0, 1, and 2 have been replaced with A, B, and C respectively.
- I'm making the assumption that "R->" and "P<-" are referring to "RShift, ->R" and "LShift, ->P", the to-rectangular and to-polar conversion functions.
- Without any test cases, I can't be certain that this is actually working as intended (I don't have my 20S with me at the moment to feed arbitrary figures into and compare results).
- The 20S takes its arguments in the order x, y or r, θ (and returns them in that order, with y or θ in the display). Thus I may have messed up a swap somewhere.

Code:

LBL A
RCL C
1
θ,r->y,x
RCL B
x<>y
θ,r->y,x
RCL C
SIN
x<>y
y,x->θ,r
x<>y
RCL A
+
x<>y
θ,r->y,x
RCL C
COS
RCL B
SIN
*
x<>y
y,x->θ,r
ACOS
RTN