The Museum of HP Calculators

Critical Reactor Code for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Physics 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

Program Listing

LINE  KEYS
 01 LBL "CRTRCT"
 02 LBL 10
 03 LBL A
 04 100
 05 RCL 20
 06 -
 07 RCL 20
 08 /
 09 RCL 22
 10 *
 11 RCL 21
 12 +
 13 RCL 08
 14 RCL 09
 15 *
 16 X<>Y
 17 /
 18 7P<>S
 19 STO 00
 20 STO 05
 21 7P<>S
 22 RTN
 23 LBL 11
 24 LBL B
 25 RCL 00
 26 RCL 01
 27 /
 28 .6023
 29 *
 30 STO 02
 31 RCL 20
 32 %
 33 RCL 21
 34 *
 35 100
 36 RCL 20
 37 -
 38 RCL 02
 39 X<>Y
 40 %
 41 RCL 22
 42 *
 43 +
 44 STO 03
 45 7P<>S
 46 RCL 23
 47 RCL 09
 48 /
 49 2
 50 /
 51 STO 25
 52 6
 53 Y^X
 54 48
 55 1/X
 56 *
 57 RCL 25
 58 4
 59 Y^X
 60 12
 61 1/X
 62 *
 63 CHS
 64 +
 65 RCL 25
 66 X^2
 67 .5
 68 *
 69 +
 70 1
 71 +
 72 RCL 24
 73 X^2
 74 STO 25
 75 RCL 23
 76 X^2
 77 -
 78 RCL 25
 79 /
 80 *
 81 7P<>S
 82 RCL 04
 83 RCL 03
 84 /
 85 *
 86 7P<>S
 87 STO 01
 88 RCL 24
 89 RCL 08
 90 /
 91 STO 25
 92 RCL 23
 93 RCL 08
 94 /
 95 /
 96 LN
 97 RCL 25
 98 X^2
 99 RCL 23
100 RCL 08
101 /
102 X^2
103 -
104 RCL 25
105 X^2
106 X<>Y
107 /
108 *
109 .75
110 -
111 RCL 23
112 RCL 08
113 /
114 4
115 /
116 RCL 25
117 /
118 RCL 25
119 /
120 +
121 RCL 25
122 X^2
123 *
124 2
125 /
126 1
127 +
128 RCL 01
129 +
130 1/X
131 STO 01
132 ST* 05
133 7P<>S
134 RTN
135 LBL 12
136 LBL C
137 RCL 00
138 RCL 23
139 *
140 SQRT
141 RCL 06
142 X<>Y
143 /
144 RCL 05
145 +
146 RCL 23
147 X^2
148 *
149 RCL 02
150 *
151 RCL 07
152 /
153 RCL 24
154 X^2
155 RCL 23
156 X^2
157 -
158 /
159 CHS
160 E^X
161 7P<>S
162 STO 02
163 ST* 05
164 7P<>S
165 RTN
166 LBL 13
167 LBL D
168 RCL 23
169 X^2
170 STO 25
171 RCL 24
172 X^2
173 RCL 25
174 -
175 /
176 .1
177 *
178 1
179 +
180 7P<>S
181 STO 03
182 ST* 05
183 7P<>S
184 RTN
185 LBL 14
186 LBL E
187 7P<>S
188 PI
189 RCL 06
190 /
191 X^2
192 FS? 01
193 GTO 01
194 3
195 *
196 LBL 01
197 STO 25
198 RCL 08
199 XEQ 09
200 STO 04
201 ST* 05
202 7P<>S
203 RTN
204 LBL 09
205 X^2
206 *
207 1
208 +
209 1/X
210 RTN
211 LBL 19
212 LBL e
213 7P<>S
214 RCL 05
215 7P<>S
216 RTN
217 STOP
218 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall