(12C Platinum) Day of Easter

[bshoring]

Here is the listing and instructions for the 29C Easter date program modified to work on RPN-38 CX, the iPhone simulator for the HP-38C.

Easter DMY

Enter the year
R/S to get Date on which Easter falls.
(Date appears in dd,mmyyyy format). If the user prefers mm.ddyyyy format simply delete program lines 74-80.

Program has been tested valid for years from 1900-2100. May be valid for a much longer period. Tested against table at:
http://tlarsen2.tripod.com/thomaslarsen/...dates.html

This program requires the following constants be loaded in order to work:

Code:

R.0: 19
R.1: 11
R.2: 44
R.3: 32
R.4: 100
R.5: 30
R.6: 26
R.7: 69

This program makes extensive use of RCL arithmetic and loaded constants. Program is based on a program written by E. L. R. Webb for the HP-29 C in 1979. Modified in 2016 for the RPN-38 CX similator by Bob Shoring.

Code:

01 - 24 61        INTGR
02 - 21 0        STO 0
03 - 21 1        STO 1
04 - 86 71 0      RCL ÷ .0
05 - 24 61        INTGR
06 - 86 61 0      RCL × .0
07 - 21 41 0      STO − 0
08 - 22 0        RCL 0
09 - 22 73 1      RCL .1
10 - 21 61 0      STO × 0
11 - 71          ÷
12 - 21 2        STO 2
13 - 22 73 2      RCL .2
14 - 21 51 0      STO + 0
15 - 1            1
16 - 22 1        RCL 1
17 - 23          %
18 - 24 61        INTGR
19 - 51          +
20 - 22 73 3      RCL .3
21 - 23          %
22 - 73          .
23 - 2            2
24 - 51          +
25 - 24 61        INTGR
26 - 21 51 0      STO + 0
27 - 34          CLx
28 - 7            7
29 - 5            5
30 - 23          %
31 - 24 61        INTGR
32 - 21 3        STO 3
33 - 21 41 0      STO − 0
34 - 22 0        RCL 0
35 - 86 71 5      RCL ÷ .5
36 - 24 61        INTGR
37 - 86 61 5      RCL × .5
38 - 21 41 0      STO − 0
39 - 22 0        RCL 0
40 - 22 2        RCL 2
41 - 33          x≷y
42 - 25 5        x≤y
43 - 25 7 87      GTO 87
44 - 22 0        RCL 0
45 - 21 4        STO 4
46 - 32          CHS
47 - 22 1        RCL 1
48 - 73          .
49 - 8            8
50 - 71          ÷
51 - 24 61        INTGR
52 - 51          +
53 - 22 41 3      RCL − 3
54 - 3            3
55 - 51          +
56 - 21 0        STO 0
57 - 7            7
58 - 71          ÷
59 - 25 31        LASTx
60 - 33          x≷y
61 - 24 61        INTGR
62 - 61          ×
63 - 21 41 0      STO − 0
64 - 0            0
65 - 22 0        RCL 0
66 - 32          CHS
67 - 22 41 4      RCL − 4
68 - 86 51 6      RCL + .6
69 - 25 5        x≤y
70 - 86 41 7      RCL − .7
71 - 86 71 4      RCL ÷ .4
72 - 4            4
73 - 51          +
74 - 24 61        INTGR
75 - 25 31        LASTx
76 - 25 61        FRAC
77 - 86 61 4      RCL × .4
78 - 33          x≷y
79 - 86 71 4      RCL ÷ .4
80 - 51          +
81 - 22 1        RCL 1
82 - 25 32        EEX
83 - 6            6
84 - 71          ÷
85 - 51          +
86 - 25 7 00      GTO 00
87 - 1            1
88 - 21 51 0      STO + 0
89 - 25 33        R↓
90 - 25 7 44      GTO 44
91 - 25 7 00      GTO 00