The Museum of HP Calculators
The Museum of HP Calculators
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 "GCRL67" 02 LBL 15 03 LBL a 04 HR 05 STO 01 06 RDN 07 HR 08 STO 00 09 RTN 10 LBL 10 11 LBL A 12 HR 13 STO 03 14 RDN 15 HR 16 STO 02 17 RTN 18 LBL 11 19 LBL B 20 RCL 00 21 SIN 22 RCL 02 23 SIN 24 * 25 RCL 00 26 COS 27 RCL 02 28 COS 29 * 30 RCL 03 31 RCL 01 32 - 33 STO 24 34 COS 35 * 36 + 37 ACOS 38 STO 04 39 XEQ 17 40 RCL 02 41 SIN 42 RCL 00 43 SIN 44 RCL 04 45 COS 46 * 47 - 48 RCL 04 49 SIN 50 / 51 RCL 00 52 COS 53 / 54 ACOS 55 RCL 24 56 SIN 57 X<0? 58 GTO 01 59 RDN 60 XEQ 18 61 - 62 CHS 63 GTO 00 64 LBL 01 65 RDN 66 LBL 00 67 STO 05 68 XEQ 05 69 RTN 70 LBL 12 71 LBL C 72 HR 73 STO 06 74 RTN 75 LBL 13 76 LBL D 77 RCL 24 78 COS 79 ACOS 80 RCL 06 81 / 82 ABS 83 STO 25 84 RCL 00 85 STO 21 86 7DSP4 87 XEQ 08 88 RCL 01 89 STO 20 90 XEQ 08 91 HR 92 XEQ 09 93 LBL 03 94 XEQ 00 95 RCL 03 96 RCL 08 97 STO 20 98 XEQ 09 99 7DSZ 100 GTO 03 101 RCL 20 102 RCL 03 103 X=Y? 104 RTN 105 LBL 00 106 STO 08 107 XEQ 07 108 XEQ 19 109 FS? 00 110 ADV 111 RCL 09 112 7DSP4 113 STO 21 114 XEQ 08 115 RCL 08 116 LBL 08 117 HMS 118 LBL 05 119 FS? 00 120 7PRTX 121 FS? 00 122 RTN 123 STOP 124 RTN 125 LBL 09 126 RCL 06 127 + 128 1 129 P-R 130 R-P 131 RDN 132 RTN 133 LBL 18 134 LBL d 135 360 136 RTN 137 LBL 19 138 LBL e 139 FS? 00 140 ADV 141 RCL 20 142 RCL 08 143 - 144 STO 22 145 2 146 / 147 SIN 148 ASIN 149 90 150 / 151 PI 152 * 153 RCL 09 154 XEQ 04 155 RCL 21 156 XEQ 04 157 - 158 R-P 159 RDN 160 STO 23 161 RCL 22 162 SIN 163 ASIN 164 X<0? 165 GTO 00 166 RCL 23 167 GTO 01 168 LBL 00 169 XEQ 18 170 RCL 23 171 ABS 172 - 173 LBL 01 174 ABS 175 7DSP0 176 XEQ 05 177 RCL 22 178 RCL 09 179 COS 180 * 181 ENTER 182 RCL 09 183 RCL 21 184 - 185 RCL 23 186 COS 187 X#0? 188 / 189 ENTER 190 X=0? 191 R^ 192 ABS 193 LBL 17 194 LBL c 195 60 196 * 197 GTO 05 198 LBL 04 199 2 200 / 201 45 202 + 203 TAN 204 LN 205 RTN 206 LBL 07 207 RCL 20 208 - 209 SIN 210 RCL 02 211 TAN 212 * 213 RCL 08 214 RCL 03 215 - 216 SIN 217 RCL 21 218 TAN 219 * 220 - 221 RCL 03 222 RCL 20 223 - 224 SIN 225 / 226 ATAN 227 STO 09 228 RTN 229 GTO 67 230 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall