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