The Museum of HP Calculators

Isotope Overlap Corrections for the HP-41C/CV/CX

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 "IOC"
 02 CF 00
 03 CLRG
 04 2
 05 "ISOTOPES?"
 06 PROMPT
 07 X=Y?
 08 SF 00
 09 2
 10 STO 10
 11 "SPLOVER B-A?"
 12 PROMPT
 13 ENTER
 14 "BKA?"
 15 PROMPT
 16 XEQ D
 17 FC? 00
 18 GTO 00
 19 "SPLOVER A-B?"
 20 PROMPT
 21 ENTER
 22 "BKB?"
 23 PROMPT
 24 XEQ E
 25 LBL 00
 26 CF 22
 27 "CPM A?"
 28 CLX
 29 PROMPT
 30 FC?C 22
 31 GTO "TOT"
 32 XEQ A
 33 FC? 00
 34 GTO 01
 35 "CPM B?"
 36 PROMPT
 37 XEQ B
 38 LBL 01
 39 GTO C
 40 LBL A
 41 RCL 00
 42 -
 43 STO 04
 44 RTN
 45 LBL B
 46 RCL 02
 47 -
 48 STO 05
 49 RTN
 50 LBL C
 51 RCL 04
 52 RCL 01
 53 RCL 05
 54 *
 55 -
 56 1
 57 RCL 01
 58 RCL 03
 59 *
 60 -
 61 /
 62 1
 63 RCL 03
 64 +
 65 *
 66 ST+ 06
 67 STO 07
 68 FIX 00
 69 RCL 05
 70 RCL 03
 71 RCL 04
 72 *
 73 -
 74 1
 75 RCL 01
 76 RCL 03
 77 *
 78 -
 79 /
 80 1
 81 RCL 01
 82 +
 83 *
 84 ST+ 08
 85 STO 09
 86 RCL 07
 87 "TX= "
 88 ARCL X
 89 AVIEW
 90 STOP
 91 RCL 09
 92 FC? 00
 93 GTO 00
 94 "TY= "
 95 ARCL X
 96 AVIEW
 97 STOP
 98 RCL 10
 99 "NEXT= "
100 ARCL X
101 AVIEW
102 STOP
103 ADV
104 ISG 10
105 RCL 10
106 GTO 00
107 LBL "TOT"
108 RCL 06
109 "TOT. TX="
110 ARCL X
111 AVIEW
112 STOP
113 FC? 00
114 RTN
115 RCL 08
116 "TOT. TY="
117 ARCL X
118 AVIEW
119 STOP
120 0
121 STO 10
122 GTO "IOC"
123 LBL D
124 STO 00
125 RDN
126 STO 01
127 RTN
128 LBL E
129 STO 02
130 RDN
131 STO 03
132 RTN
133 END

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