From 484b792c4747acfdbf060f7950ca0c462f372921 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Sat, 21 Apr 2018 02:16:20 +0000
Subject: mix: Add 1.3.2/easter.mixal

---
 mix/1.3.2/easter.mixal | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 mix/1.3.2/easter.mixal

diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal
new file mode 100644
index 0000000..0ed4332
--- /dev/null
+++ b/mix/1.3.2/easter.mixal
@@ -0,0 +1,34 @@
+* Work in progress...
+        ORIG 0
+Y       CON  0 Y is stored here.
+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.
+        ORIG 1000
+START   JMP DOE
+* Date of Easter routine. Assumes Y is in address 0.
+DOE     LDX  Y Step E1
+        ENTA 0
+        DIV  =19=
+        INCX 1
+        STX  G
+        ENTA 0 Step E2
+        LDX  Y
+        DIV  =100=
+        INCA 1
+        STA  C
+        ENTA 0 Step E3
+        ENTA 3 Compute X
+        MUL  C
+        DIV  =4=
+        DECA 12
+        STA  X
+        ENTA 8 Compute Z
+        MUL  C
+        INCX 5
+        DIV  =25=
+        DECA 5
+        STA  Z
+STOP    HLT
+        END START
-- 
cgit v1.2.3