(11C) Distance, Speed and Time

[Gamo]

This version work the same as the HP-65 program example above.

Program make used of the
Subroutine, Flags and Indirect Line Number Branching.

The main focus on this program is the Indirect Line Number Branching.
I don't see people using this feature much and HP-11C User's Handbook
doesn't give program example on this feature.
--------------------------------
Procedure: USER mode
1. Initialize [A]
2. Input any two of [B] [C] [D]
3. To calculate [E] the Unknown [B] [C] or [D]
--------------------------------
Program:

Code:


001 LBL A  // Initialize 
002 SF1?
003 CLx
004 RTN
-----------
005 LBL B  // Distance
006  1
007  5
008 CHS  // Ready to send Program Line# to Store to Indirect Register
009 GSB 0
010 F1?
011 GTO I  // Goto line 015
012 RCL 2
013 RCL 3
014  x
015 STO 1
016 RTN
-----------
017 LBL C  // Speed
018  2
019  7
020 CHS  // Ready to send Program Line# to Store to Indirect Register
021 GSB 0
022 F1?
023 GTO I  // Goto line 027
024 RCL 1
025 RCL 3
026  ÷
027 STO 2
028 RTN
----------
029 LBL D  // Time
030  4
031  1
032 CHS  // Ready to send Program Line# to Store to Indirect Register
033 GSB 0
034 F1
035 GTO I  // Goto line 041
036 RCL 1
037 RCL 2
038  ÷
039 >H.MS
040 RTN
041 >H
042 STO 3
043 RTN
-----------
044 LBL E  // Compute
045 CF1?
046 RTN
-----------
047 LBL 0  // Use for storing individual Indirect Register Line# Branching 
048 STO I
049 X<>Y
050 RTN

Gamo