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 Electrical Engineering Solution Book. 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 "BODE" 02 FIX 03 03 RCL 01 04 10 05 / 06 10^X 07 1 08 - 09 SQRT 10 STO 01 11 1 12 XEQ 09 13 ST* 02 14 ST* 03 15 ST* 04 16 ST* 05 17 RCL 06 18 * 19 STO 15 20 "?" 21 PROMPT 22 STO 14 23 "0,1-?" 24 PROMPT 25 SF 01 26 X=0? 27 CF 01 28 LBL E 29 0 30 STO 09 31 STO 12 32 1 33 STO 11 34 RCL 00 35 STO 10 36 XEQ 07 37 LBL 08 38 RAD 39 XEQ 06 40 RCL 07 41 RCL 13 42 + 43 RCL 08 44 R-P 45 ST/ 11 46 X<>Y 47 ST- 12 48 RCL 08 49 RCL 07 50 R-P 51 ST* 11 52 P-R 53 RCL 13 54 + 55 RCL 08 56 R-P 57 X^2 58 X<>Y 59 RDN 60 / 61 ST+ 09 62 DSE 10 63 GTO 08 64 RCL 04 65 1 66 XEQ 09 67 / 68 RCL 11 69 LOG 70 20 71 * 72 RND 73 RCL 12 74 1 75 P-R 76 DEG 77 R-P 78 CLX 79 RCL 09 80 "T=" 81 XEQ 05 82 "=" ;"\0D=" 83 XEQ 05 84 "MAG=" 85 XEQ 05 86 "F=" 87 XEQ 05 88 RCL 05 89 RCL 04 90 FS? 01 91 GTO 00 92 RCL 15 93 + 94 GTO 03 95 LBL 00 96 RCL 06 97 * 98 LBL 03 99 STO 04 100 X<=Y? 101 GTO E 102 RTN 103 LBL 07 104 GTO IND 14 105 LBL 04 106 XEQ 03 107 GTO 00 108 LBL 02 109 XEQ 01 110 LBL 00 111 1/X 112 CHS 113 GTO 04 114 LBL 01 115 RCL 04 116 RCL 02 117 / 118 GTO 04 119 LBL 03 120 RCL 04 121 X^2 122 RCL 02 123 X^2 124 - 125 RCL 04 126 / 127 RCL 03 128 / 129 LBL 04 130 STO 13 131 RTN 132 LBL 06 133 FS? 00 134 GTO 01 135 XEQ 01 136 1 137 RCL 01 138 1/X 139 R-P 140 X<>Y 141 RDN 142 LASTX 143 + 144 LN 145 RCL 00 146 / 147 E^X 148 LASTX 149 CHS 150 E^X 151 + 152 ENTER 153 ENTER 154 LASTX 155 2 156 * 157 - 158 ST* 08 159 RDN 160 ST* 07 161 2 162 ST/ 08 163 ST/ 07 164 RTN 165 LBL 01 166 RCL 10 167 2 168 * 169 1 170 - 171 RCL 00 172 / 173 XEQ 09 174 4 175 / 176 1 177 P-R 178 STO 07 179 X<>Y 180 STO 08 181 RTN 182 LBL 09 183 2 184 * 185 PI 186 * 187 RTN 188 LBL 05 189 ARCL X 190 AVIEW 191 STOP 192 RDN 193 RTN 194 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall