HP HP-32S - Page 170

R01 LBL fl Defines beginning of vector-addition
routine.
A02 RCL X
fl03 RCL+ U
R04 STO X Saves X + U in X.
A05 RCL V
A06 RCL+ Y
A07 STO Y Saves V + Y in Y.
A08 RCL Z
A09 RCL+ W
AlO STO Z Saves Z + W in Z.
All GTO Q Loops back for polar conversion and
display/input.
Bytes and Checksum: 016.5, F888
501 LBL S Defines the beginning of the vector-
subtraction routine.
502 -1 Multiplies X, Y and Z by (—1) to change the
sign.
503 STOx x
504 STOx Y
505 STOx Z
506 GTO fl Goes to the vector-addition routine.
Bytes and Checksum: 017.0, 250B
C01 LBL C Defines the beginning
of the cross-product
routine.
C02 RCL Y
C03 RCLx W
C04 RCL Z
C05 RCLx V
C06 - Calculates (YW - ZV), which is the X
component.
C07 RCL Z
C08 RCLx U
C09 RCL X
C10 RCLx U
C11 - Calculates (ZU - WX), which is the Y
component.
168 12: Mathematics Programs