From 2e7726da51c619ee4572e0453364089abc6d0bb8 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Mon, 23 Apr 2018 22:02:09 +0000
Subject: mix/1.3.2/easter.mixal: Compute D.

---
 mix/1.3.2/easter.mixal | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'mix/1.3.2/easter.mixal')

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
-- 
cgit v1.2.3