Post Reply 
(12C Platinum) Day of Easter
09-14-2016, 01:20 PM
Post: #6
RE: (12C Platinum) Day of Easter
(09-14-2016 04:36 AM)bshoring Wrote:  For what it's worth, I'm posting my program for the HP-38C simulator, RPN-38CX. Since this simulator is limited to 99 steps, I loaded all the constants into registers, even financial registers, and replaced many of the arithmetic operators with RCL arithmetic to save steps.

May I draw your attention to this 95-step program for the 29C? I think it can be ported to other calculators. However, the 38C is a bit tricky since a modulo subroutine is called and the 38C offers no GSB. The program can even be shortened as the linked version calculates all easter dates in the entered year and the following ones. If you don't need this simply omit steps 83...86.
Hint: the "print this article" link retrieves a PDF.

(09-14-2016 04:36 AM)bshoring Wrote:  Program listing: (in program mode, copy and paste the program steps to the display to copy the entire program)

Bob, if you use [​code] and [​/code] tags around your listing it will be properly formatted:

Code:
01 - 21 0        STO 0
02 - 22 71 5     RCL ÷ 5
03 - 24 61       INTGR
04 - 21 1        STO 1
05 - 21 4        STO 4
06 - 31          ENTER
07 - 86 71 0     RCL ÷ .0
08 - 24 61       INTGR
09 - 21 41 4     STO - 4
...

Dieter
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: (12C Platinum) Day of Easter - Dieter - 09-14-2016, 10:36 PM
RE: (12C Platinum) Day of Easter - Dieter - 09-15-2016, 01:15 PM
RE: (12C Platinum) Day of Easter - Dieter - 09-15-2016, 08:42 PM
RE: (12C Platinum) Day of Easter - Dieter - 09-17-2016, 07:12 PM
RE: (12C Platinum) Day of Easter - Dieter - 09-14-2016 01:20 PM
RE: (12C Platinum) Day of Easter - Dieter - 09-14-2016, 08:40 PM
RE: (12C Platinum) Day of Easter - Dieter - 09-16-2016, 06:03 AM
RE: (12C Platinum) Day of Easter - Dieter - 09-15-2016, 05:46 PM
RE: (12C Platinum) Day of Easter - Dieter - 09-16-2016, 06:14 AM



User(s) browsing this thread: 1 Guest(s)