From 0feabe82c86dbc3acdd770fae984bedd8be72ea3 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Tue, 1 May 2018 22:55:18 +0000
Subject: mix: easter.mixal: Add ability to build and store day, year.

---
 mix/1.3.2/easter.mixal | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

(limited to 'mix/1.3.2')

diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal
index 1dd56ac..2255e72 100644
--- a/mix/1.3.2/easter.mixal
+++ b/mix/1.3.2/easter.mixal
@@ -8,6 +8,11 @@ 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 2000
+POUT    ALF  "  23 "
+        ALF  "MARCH"
+        ALF  ",  20"
+        ALF  "28   "
         ORIG 1000
 START   JMP DOE
 * Date of Easter routine. Assumes Y is in address 0.
@@ -71,9 +76,24 @@ STRN    STA  N
         ADD  N
         ENTX 0 Clear reg. X.
         CMPA =31=
-        JLE  DONE
+        JLE  DAY
         SUB  =31=
-        ENTX 1 Means month is April.
-DONE    NOP
+        ENT1 1 Means month is April.
+DAY     CHAR
+        SRC  5 Build and store DD
+        SLA  3
+        SRA  3
+        STA  POUT(3:4)
+YEAR    LDA  Y
+        CHAR
+        SLC  3
+        SLA  2 Build and store higher YYY
+        SRA  2
+        STA  POUT+2(3:5)
+        SLC  2 Build and store lower YY
+        SLA  3
+        SRA  3
+        STA  POUT+3(1:2)
+        OUT  2000(18)
 STOP    HLT
         END START
-- 
cgit v1.2.3