Post Reply 
(HP-65) Distance, Speed and Time
07-16-2019, 10:11 AM (This post was last modified: 07-16-2019 10:44 AM by Gamo.)
Post: #1
(HP-65) Distance, Speed and Time
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
Find all posts by this user
Quote this message in a reply
07-16-2019, 01:14 PM (This post was last modified: 07-16-2019 02:11 PM by teenix.)
Post: #2
RE: (HP-65) Distance, Speed and Time
(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
Find all posts by this user
Quote this message in a reply
07-17-2019, 01:34 AM
Post: #3
RE: (HP-65) Distance, Speed and Time
Hello Teenix

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

Gamo
Find all posts by this user
Quote this message in a reply
07-17-2019, 10:07 AM (This post was last modified: 07-18-2019 12:31 PM by PedroLeiva.)
Post: #4
RE: (HP-65) Distance, Speed and Time
Here my compilation for HP65 with correct keystroke program and examples, from the Owner´s Handbook
Pedro


Attached File(s)
.pdf  RPN 65 SD - Distance, Speed and Time_compressed.pdf (Size: 67.22 KB / Downloads: 14)
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)