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