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