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