diff options
| author | rsiddharth <s@ricketyspace.net> | 2018-05-02 22:28:46 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2018-05-02 22:28:46 +0000 |
| commit | 3e19d4aa04865cac923b04b7e0213fdc466ebf73 (patch) | |
| tree | 35e959a1b7e234d79c92455b715ac3d6194ecf24 | |
| parent | 0feabe82c86dbc3acdd770fae984bedd8be72ea3 (diff) | |
mix: easter.mixal: Add ability to build and store month.
| -rw-r--r-- | mix/1.3.2/easter.mixal | 10 |
1 files changed, 7 insertions, 3 deletions
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 |