-
Staat 8b
MEETPUNTEN BEREKENING (HP-67/97)
Stap
Toets
Commentaar
.000
.001
*LBL A
Start berekening;
.002
Cl. REG
Geheugens schoonmaken;
.003
*LBL 0
Label 0;
.004
ISZ
Tel 1 op bij inhoud geheugen (i);
.005
RC I
Oproepen geheugen (i);
.006
DSP 0
Uitlezing 0 plaatsen achter komma;
.007
R/S
«..X,;Yi;X2; Y2;
.008
STO (i)
Berg op in geheugen, aangeduid door (i);
.009
x/y
Verwissel x en y stapelregisters;
.010
4
Plaats 4 in x register;
.011
x4\
Is x register 4 y register?
.012
GOTO 0
Zo ja, ga naar Label 0;
.013
RCL 3
Zo nee, roep geheugen inhoud 3 (X2);
.014
RCL 1
Roep geheugen inhoud 1 (X,);
.015
X2 - X,;
.016
RCL 4
Roep geheugen inhoud 4 (Y2);
.017
RCL 2
Roep geheugen inhoud 2 (Y,);
.018
Y2 - V,;
.019
-♦POL
Bereken vector P2_,;
.020
DSP 3
Uitlezing 3 plaatsen achter komma;
.021
-X-
.►Afstand berekend P2_i;
.022
R/S
Afstand gemeten P2_,;
.023
Bereken schaalfactor;
.024
STO 0
en berg op in geheugen O;
.025
x/y
Verwissel x en y stapelregister;
.026
x40
Is x register 4 O
.027
x> 0
Is x groter dan O?
.028
GOTO 1
Zo ja, ga naar label 1;
.029/31
400
.032
Zo nee, tel 400 op bij resultaat;
.033
*LBL 1
Label 1;
.034
DSP 1
Uitlezing 1 plaats achter komma;
.035
STO 4
Berg berekende richting Pjrfop in geheugen 4;
.036
-X-
.^Richting lijn, print commando;
.037
R/S
Stop/run; druk R/S toets voor verdere berekening;
.038
*LBL B
Label B;
.039
DSP 0
Uitlezing O plaatsen achter komma;
.040
5
Plaats 5 in x register;
.041
R/S
Afstand tot punt (i);
.042
RCL 0
Roep schaalfactor op;
.043
X
Afstand (1 i) x schaalfactor;
.044
RCL 4
Roep geheugen 4 (Pjtt);
.045
x/y
Verwissel x en y registers;
.046
-RECT
Bereken inverse vector;
.047
x/y
Verwissel x en y registers;
.048
RCL 1
Roep geheugen 1 (X,);
.049
Tel op;
.050
DSP 3
Uitlezing 3 plaatsen achter komma;
.051
-X-
,>X resultaat in x register;
64