summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2018-04-23 22:02:09 +0000
committerrsiddharth <s@ricketyspace.net>2018-04-23 22:02:09 +0000
commit2e7726da51c619ee4572e0453364089abc6d0bb8 (patch)
tree7783065bdc117ad471d0f6d2f51e739ab32ab1ed
parent484b792c4747acfdbf060f7950ca0c462f372921 (diff)
mix/1.3.2/easter.mixal: Compute D.
-rw-r--r--mix/1.3.2/easter.mixal7
1 files changed, 7 insertions, 0 deletions
diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal
index 0ed4332..8de5abc 100644
--- a/mix/1.3.2/easter.mixal
+++ b/mix/1.3.2/easter.mixal
@@ -5,6 +5,7 @@ G CON 0 G will get stored here.
C CON 0 C will get stored here.
X CON 0 X will get stored here.
Z CON 0 Z will get stored here.
+D CON 0 D will get stored here.
ORIG 1000
START JMP DOE
* Date of Easter routine. Assumes Y is in address 0.
@@ -30,5 +31,11 @@ DOE LDX Y Step E1
DIV =25=
DECA 5
STA Z
+ ENTA 5 Compute D
+ MUL Y
+ DIV =4=
+ SUB X
+ DECA 10
+ STA D
STOP HLT
END START