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