Program Lines:Description

 "! %Prompts for and stores X, the old x–coordinate.

 "! &Prompts for and stores Y, the old y–coordinate.

  % Pushes Y up and recalls X to the X–register.

   Pushes X and Y up and recalls N to the X–register.

   Pushes N, X, and Y up and recalls M.

 %.Calculates (X – M) and (Y – N).

  ! Pushes (X – M) and (Y – N) up and recalls T.

 -+.

Charges the sign of T because sin(–T) equals –sin(T).

 

Sets radius to 1 for computation of cos(T) and –sin(T).

 θ8T´¸8ºCalculates cost (T) and –sin(T) in X– and Y–registers.

 %ºCalculates (X – M) cos (T) + (Y–N)sin (T) and (Y – N)

 

 

cos (T) – (X – M) sin(T).

 ! " Stores x–coordinate in variable U.

 º65¸

Swaps positions of the coordinates.

 ! "

Stores y–coordinate in variable V.



º65¸

Swaps positions of coordinates back.



#$ " Halts program to display U.



#$ # Halts program to display V.

 !  Goes back for another calculation. Checksum and length: 3A46 028.5

This routine converts from the new system to the old system.

 "! "Prompts for and stores U.  "! #Prompts for and stores V.   " Pushes V up and recalls U.

  ! Pushes U and V up and recalls T.

 

Sets radius to 1 for the computation of sin(T) and

 

cos(T).

 θ8T´¸8ºCalculates cos(T) and sin(T).

 %ºCalculates U cos(T) V sin(T) and U sin(T) + V cos(T).    Pushes up previous results and recalls N.

   Pushes up results and recalls M.

 %-Completes calculation by adding M and N to previous results.

15–34 Mathematics Programs

File name 32sii-Manual-E-0424

 

Printed Date : 2003/4/24

Size : 17.7 x 25.2 cm