(HP-65) Distance, Speed and Time

[Gamo]

Going through HP-65 Owner's Handbook and noticed some error located on

page 88 about on how to use Flags in program.

   

The program is use to solve for Distance, Speed and time.

The error is located in [LBL] B under [TF1] should insert [STO] [1] [RTN]

Page 90

Example #3 the answer is not right and should be 4482.8333

Remark: I'm not sure if this is a real error or my mistake.
----------------------------------------------------------------
I do not have a real HP-65
I try to adapt this program to work on HP-11C

Flags on HP-65 skip two steps if false and it is difference on HP-11C

Procedure: FIX 4

[A] Initialize
[B] Distance
[C] Speed
[D] Time
[E] Calculate

Procedure is the same as shown in the HP-65 Owner's Handbook

Here is the program: Distance, Speed, and Time for HP-11C

Code:


LBL A  // Initialize 
SF1
CLx
RTN
--------
LBL B  // Distance
STO 1
F1
RTN  
RCL 2  
RCL 3
x
RTN
-------
LBL C  // Speed
STO 2
F1
RTN
RCL 1
RCL 3
÷
RTN
-------
LBL D  // Time
->H
STO 3
F1
RTN
RCL 1
RCL 2
÷
->H.MS
RTN
------
LBL E  // Calculate
CF1
RTN

Gamo

[teenix]

(07-16-2019 10:11 AM)Gamo Wrote:  Going through HP-65 Owner's Handbook and noticed some error located on

page 88 about on how to use Flags in program.



The program is use to solve for Distance, Speed and time.

The error is located in [LBL] B under [TF1] should insert [STO] [1] [RTN]

Page 90

Example #3 the answer is not right and should be 4482.8333

Remark: I'm not sure if this is a real error or my mistake.
----------------------------------------------------------------
I do not have a real HP-65
I try to adapt this program to work on HP-11C

Flags on HP-65 skip two steps if false and it is difference on HP-11C

Procedure: FIX 4

[A] Initialize
[B] Distance
[C] Speed
[D] Time
[E] Calculate

Procedure is the same as shown in the HP-65 Owner's Handbook

Here is the program: Distance, Speed, and Time for HP-11C

Code:


LBL A  // Initialize 
SF1
CLx
RTN
--------
LBL B  // Distance
STO 1
F1
RTN  
RCL 2  
RCL 3
x
RTN
-------
LBL C  // Speed
STO 2
F1
RTN
RCL 1
RCL 3
÷
RTN
-------
LBL D  // Time
->H
STO 3
F1
RTN
RCL 1
RCL 2
÷
->H.MS
RTN
------
LBL E  // Calculate
CF1
RTN

Gamo

Hi Gamo,

Your Label B code may be wrong, modified follows...

Code:


LBL
B
f
+
STO 1
RTN
RCL 2
RCL 3
x
RTN

Your 4482.8333 answer was correct.

After running the code, here is the program trace from my HP65 emulator for Example 3...

Code:


  1.      LBL
  2.      A
  3.      f
  4.      -   // SF1
  5.      f
  6.      CHS   // clr STK
  7.      DSP
  8.      .
  9.      4
 10.      RTN

 21.      LBL
 22.      C
 23.      f
 24.      +   // TF1
 25.      STO 2
 26.      RTN

 31.      LBL
 32.      D
 33.      f
 34.      +   // TF1
 35.      GTO
 36.      1
 43.      LBL
 44.      1
 45.      f-1
 46.      3   // ->D.MS
 47.      STO 3
 48.      RTN

 49.      LBL
 50.      E
 51.      f-1
 52.      -   // SF1
 53.      RTN

 11.      LBL
 12.      B
 13.      f
 14.      +   // TF1
 17.      RCL 2
 18.      RCL 3
 19.      x
 20.      RTN

cheers

Tony

[Gamo]

Hello Teenix

Under [LBL] B is missing [STO] 1
Thanks for the correction.

Gamo

[PedroLeiva]

Here my compilation for HP65 with correct keystroke program and examples, from the Owner´s Handbook
Pedro