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