The Museum of HP Calculators

Moon Rocket Lander for the HP-95C

This program is Copyright © 1977 by Hewlett-Packard Company and is used here by permission. It was originally printed in the HP-95C Applications book. This program was entered by André Wilhelmus and the curator added comments from the HP manual.

This program is supplied without representation or warranty of any kind. André Wilhelmus, Hewlett-Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Program Listing

CODE KEYS
A-000    lbl A f LBL A
A-001        5 5 Initialize
A-002        0 0
A-003        0 0
A-004    35  9 STO 9
A-005        5 5
A-006        0 0
A-007       22 CHS
A-008    35  8 STO 8
A-009        1 1
A-010        2 2
A-011        0 0
A-012    35  7 STO 7
A-013 61 63  1 f LBL 1 - - - - - - - - - - - - - - -
A-014 61 21  4 f FIX 4
A-015    45  9 RCL 9 Form display.
A-016       23 EEX
A-017        4 4
A-018       24 ÷
A-019    45  8 RCL 8
A-020    62 43 g x<0
A-021    63  0 GTO 0
A-022       59 +
A-023    63  2 GTO 2
A-024 61 63  0 f LBL 0
A-025       11 x⇔y
A-026       49 V. X.
A-027 61 63  2 f LBL 2 - - - - - - - - - - - - - - -
A-028    61 53 f RTN
A-029    45  7 RCL 7
A-030       11 x⇔y
A-031    61 44 f x>y
A-032    63  3 GTO 3 If burn > fuel,
A-033 35 49  7 STO − 7    prepare to crash
A-034        5 5
A-035       49
A-036    35  6 STO 6 Else update A, X, V.
A-037        2 2
A-038       24 ÷
A-039    45  9 RCL 9
A-040       59 + X ← X + V + A/2.
A-041    45  8 RCL 8
A-042       59 +
A-043    35  9 STO 9
A-044    62 43 g x<0
A-045    63  4 GTO 4 If X below ground,
A-046    45  6 RCL 6    you've crashed.
A-047 35 59  8 STO + 8
A-048    63  1 GTO 1 Else update V:
A-049 61 63  3 f LBL 3 V ← V + A.
A-050    45  8 RCL 8
A-051       42 All fuel gone, show
A-052    45  9 RCL 9 crash velocity.
A-053        1 1
A-054        0 0
A-055       39 ×
A-056       59 +
A-057       41 √x
A-058       22 CHS
A-059    35  8 STO 8
A-060 61 63  4 f LBL 4 - - - - - - - - - - - - - - -
A-061    45  8 RCL 8 Crash V.
A-062 61 21  0 f FIX 0

Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall