From 4a10c6b7a6768245be24fe87bc304f1f388a0bf4 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Wed, 25 Apr 2018 22:04:46 +0000
Subject: mix/1.3.2/easter.mixal: Compute N.

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

diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal
index 2d5b6b4..72fe2ee 100644
--- a/mix/1.3.2/easter.mixal
+++ b/mix/1.3.2/easter.mixal
@@ -7,6 +7,7 @@ X       CON  0 X will get stored here.
 Z       CON  0 Z will get stored here.
 D       CON  0 D will get stored here.
 E       CON  0 E will get stored here.
+N       CON  0 N will get stored here.
         ORIG 1000
 START   JMP DOE
 * Date of Easter routine. Assumes Y is in address 0.
@@ -54,5 +55,11 @@ DOE     LDX  Y Compute G.
         JLE  STRE
 INCRE   INCX 1 Increment E by 1.
 STRE    STX  E
+        ENTA 44 Compute N.
+        SUB  E
+        CMPA =21=
+        JGE  STRN
+        INCA 30
+STRN    STA  N
 STOP    HLT
         END START
-- 
cgit v1.2.3