The Museum of HP Calculators

Calendar Date to Julian Date Conversion 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 "JUL"
 02 FIX 00
 03 "MM.DDYYYY ?"
 04 PROMPT
 05 INT
 06 STO 00
 07 LASTX
 08 FRC
 09 1 E2
 10 *
 11 INT
 12 STO 01
 13 LASTX
 14 FRC
 15 1 E4
 16 *
 17 STO 02
 18 2
 19 RCL 00
 20 X>Y?
 21 GTO 00
 22 1
 23 ST- 02
 24 12
 25 ST+ 00
 26 LBL 00
 27 1
 28 ST+ 00
 29 RCL 02
 30 365.25
 31 *
 32 INT
 33 30.6001
 34 RCL 00
 35 *
 36 INT
 37 +
 38 RCL 01
 39 +
 40 1720982
 41 +
 42 "JD="
 43 ARCL X
 44 AVIEW
 45 FIX 04
 46 STOP
 47 LBL "CAL"
 48 FIX 00
 49 "JULIAN DAY?"
 50 PROMPT
 51 CF 29
 52 ENTER
 53 68569
 54 +
 55 STO 04
 56 4
 57 *
 58 146097
 59 /
 60 INT
 61 STO 05
 62 146097
 63 *
 64 3
 65 +
 66 4
 67 /
 68 INT
 69 CHS
 70 RCL 04
 71 +
 72 STO 04
 73 1
 74 +
 75 4000
 76 *
 77 1461001
 78 /
 79 INT
 80 STO 03
 81 1461
 82 *
 83 4
 84 /
 85 INT
 86 CHS
 87 31
 88 +
 89 RCL 04
 90 +
 91 STO 04
 92 80
 93 *
 94 2447
 95 /
 96 INT
 97 STO 02
 98 2447
 99 *
100 80
101 /
102 INT
103 CHS
104 RCL 04
105 +
106 STO 01
107 RCL 02
108 11
109 /
110 INT
111 STO 04
112 12
113 *
114 CHS
115 2
116 +
117 RCL 02
118 +
119 STO 02
120 RCL 05
121 49
122 -
123 1 E2
124 *
125 RCL 03
126 +
127 RCL 04
128 +
129 STO 03
130 CLA
131 ARCL 02
132 "-"
133 ARCL 01
134 "-"
135 ARCL 03
136 AVIEW
137 SF 29
138 CLX
139 FIX 04
140 STOP
141 END

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