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