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