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