The Museum of HP Calculators

Black Hole Characteristics 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 "HOLE"
 02 CF 22
 03 "ENTER KNOWN"
 04 AVIEW
 05 RTN
 06 LBL D
 07 FS?C 22
 08 GTO 00
 09 RCL 03
 10 LBL 04
 11 "MASS="
 12 ARCL X
 13 AVIEW
 14 RTN
 15 LBL 00
 16 STO 03
 17 GTO 04
 18 LBL A
 19 FS?C 22
 20 GTO 01
 21 1.48498685 E-28
 22 RCL 03
 23 *
 24 STO 00
 25 LBL 05
 26 "RAD="
 27 ARCL X
 28 AVIEW
 29 RTN
 30 LBL 01
 31 STO 00
 32 6.73406634 E27
 33 *
 34 STO 03
 35 RCL 00
 36 GTO 05
 37 LBL B
 38 FS?C 22
 39 GTO 02
 40 1 E26
 41 RCL 03
 42 /
 43 STO 01
 44 LBL 06
 45 "TEMP="
 46 ARCL X
 47 AVIEW
 48 RTN
 49 LBL 02
 50 STO 01
 51 1 E26
 52 X<>Y
 53 /
 54 STO 03
 55 RCL 01
 56 GTO 06
 57 LBL C
 58 FS?C 22
 59 GTO 03
 60 1 E-28
 61 RCL 03
 62 3
 63 Y^X
 64 *
 65 STO 02
 66 LBL 07
 67 "LIFE="
 68 ARCL X
 69 AVIEW
 70 RTN
 71 LBL 03
 72 STO 02
 73 1 E28
 74 *
 75 3
 76 1/X
 77 Y^X
 78 STO 03
 79 RCL 02
 80 GTO 07
 81 END

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