From 3e19d4aa04865cac923b04b7e0213fdc466ebf73 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Wed, 2 May 2018 22:28:46 +0000
Subject: mix: easter.mixal: Add ability to build and store month.

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

(limited to 'mix')

diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal
index 2255e72..67efd40 100644
--- a/mix/1.3.2/easter.mixal
+++ b/mix/1.3.2/easter.mixal
@@ -8,7 +8,8 @@ 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
+MNTH    ALF  "MARCH"
+        ALF  "APRIL"
 POUT    ALF  "  23 "
         ALF  "MARCH"
         ALF  ",  20"
@@ -16,7 +17,8 @@ POUT    ALF  "  23 "
         ORIG 1000
 START   JMP DOE
 * Date of Easter routine. Assumes Y is in address 0.
-DOE     LDX  Y Compute G.
+DOE     ENT1 0 Clear I1 reg.
+        LDX  Y Compute G.
         ENTA 0
         DIV  =19=
         INCX 1
@@ -94,6 +96,8 @@ YEAR    LDA  Y
         SLA  3
         SRA  3
         STA  POUT+3(1:2)
-        OUT  2000(18)
+MONTH   LDA  MNTH,1
+        STA  POUT+1
+        OUT  POUT(18) Write to line printer
 STOP    HLT
         END START
-- 
cgit v1.2.3