The Museum of HP Calculators

Local Siderial Timee and Obliquity 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 "SIDTIM"
 02 LBL 10
 03 LBL A
 04 ENTER
 05 INT
 06 STO 07
 07 -
 08  E2
 09 *
 10 ENTER
 11 INT
 12 STO 08
 13 -
 14  E4
 15 *
 16 12
 17 STO 09
 18 *
 19 RCL 07
 20 +
 21 3
 22 -
 23 ENTER
 24 STO 06
 25 RCL 09
 26 /
 27 INT
 28 RCL 09
 29 *
 30 -
 31 ENTER
 32 +
 33 7
 34 +
 35 365
 36 RCL 06
 37 *
 38 +
 39 RCL 09
 40 /
 41 INT
 42 RCL 08
 43 +
 44 RCL 06
 45 48
 46 /
 47 INT
 48 +
 49 LASTX
 50 25
 51 /
 52 INT
 53 -
 54 LASTX
 55 4
 56 /
 57 INT
 58 +
 59 693901
 60 -
 61 STO 01
 62 STOP
 63 LBL 00
 64 0
 65 /
 66 GTO 00
 67 LBL 11
 68 LBL B
 69 ENTER
 70 HR
 71 15
 72 /
 73 STO 03
 74 RDN
 75 STOP
 76 GTO 00
 77 LBL 12
 78 LBL C
 79 STO 05
 80 STOP
 81 GTO 00
 82 LBL 14
 83 LBL E
 84 HR
 85 RCL 05
 86 +
 87 STO 20
 88 24
 89 /
 90 RCL 01
 91 +
 92 .5
 93 -
 94 36525
 95 /
 96 STO 00
 97 .09
 98 *
 99 8640184.54
100 +
101 RCL 00
102 *
103 23925.84
104 +
105 3600
106 /
107 RCL 20
108 +
109 RCL 03
110 -
111 24
112 /
113 FRC
114 1
115 +
116 FRC
117 24
118 *
119 HMS
120 STOP
121 5.9-
122 RCL 00
123 *
124 46845
125 -
126 RCL 00
127 *
128 84428260
129 +
130 36 E5
131 /
132 STO 02
133 HMS
134 STOP
135 END

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