This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Navigation Pac 1. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.
This program is supplied without representation or warranty of any kind. Tony Duell, 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.
Documentation Information (CD or source code)
How to get this Program to your Calculator (via
HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
LINE KEYS 01 LBL "ETA67" 02 LBL 11 03 LBL B 04 7DSP1 05 XEQ 01 06 FS?C 22 07 RTN 08 RCL 07 09 RCL 05 10 - 11 24 12 * 13 RCL 08 14 RCL 06 15 - 16 + 17 RCL 02 18 * 19 XEQ 01 20 RTN 21 LBL 01 22 60 23 / 24 STO 04 25 LASTX 26 * 27 RTN 28 LBL 12 29 LBL C 30 7DSP2 31 STO 02 32 FS?C 22 33 RTN 34 RCL 04 35 60 36 * 37 RCL 07 38 RCL 05 39 - 40 24 41 * 42 RCL 08 43 RCL 06 44 - 45 + 46 / 47 STO 02 48 RTN 49 LBL 15 50 LBL a 51 STO 20 52 15 53 * 54 STO 01 55 RTN 56 LBL 10 57 LBL A 58 STO 21 59 15 60 * 61 STO 03 62 RTN 63 LBL 16 64 LBL b 65 HR 66 7DSP0 67 15 68 / 69 RND 70 RTN 71 LBL 13 72 LBL D 73 7DSP4 74 INT 75 STO 05 76 LASTX 77 FRC 78 E2 79 * 80 HR 81 RCL 01 82 XEQ 16 83 STO 20 84 7DSP4 85 + 86 STO 06 87 FS?C 22 88 RTN 89 RCL 07 90 RCL 08 91 RCL 04 92 60 93 * 94 RCL 02 95 / 96 CHS 97 XEQ 08 98 STO 06 99 RCL 20 100 - 101 X<0? 102 XEQ 07 103 X<>Y 104 STO 05 105 XEQ 09 106 RTN 107 LBL 07 108 24 109 + 110 X<>Y 111 1 112 - 113 X<>Y 114 RTN 115 LBL 14 116 LBL E 117 7DSP4 118 INT 119 STO 07 120 LASTX 121 FRC 122 E2 123 * 124 HR 125 RCL 03 126 XEQ 16 127 STO 21 128 7DSP4 129 + 130 STO 08 131 FS?C 22 132 RTN 133 RCL 05 134 RCL 06 135 RCL 04 136 60 137 * 138 RCL 02 139 / 140 XEQ 08 141 STO 08 142 RCL 21 143 - 144 X<0? 145 XEQ 07 146 X<>Y 147 STO 07 148 XEQ 09 149 RTN 150 LBL 08 151 + 152 24 153 / 154 STO 00 155 INT 156 + 157 RCL 00 158 FRC 159 X<0? 160 GTO 00 161 24 162 * 163 RTN 164 LBL 00 165 X<>Y 166 1 167 - 168 X<>Y 169 1 170 + 171 24 172 * 173 RTN 174 LBL 09 175 X<>Y 176 HMS 177 E2 178 / 179 + 180 X>0? 181 RTN 182 INT 183 LASTX 184 FRC 185 1 186 + 187 - 188 RTN 189 STOP 190 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall