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