diff options
author | rsiddharth <s@ricketyspace.net> | 2018-05-03 22:06:22 +0000 |
---|---|---|
committer | rsiddharth <s@ricketyspace.net> | 2018-05-03 22:06:22 +0000 |
commit | 0ce2e21faf47db7a29a7f054dabc70ad5064f243 (patch) | |
tree | 1f12a8fe7aa13e41176adde7f66e13e07860bf6f /mix/1.3.2/easter.mixal | |
parent | 3e19d4aa04865cac923b04b7e0213fdc466ebf73 (diff) |
mix: easter.mixal: Add ability to jump back from easter subtroutine.
Diffstat (limited to 'mix/1.3.2/easter.mixal')
-rw-r--r-- | mix/1.3.2/easter.mixal | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal index 67efd40..4f4cbf0 100644 --- a/mix/1.3.2/easter.mixal +++ b/mix/1.3.2/easter.mixal @@ -16,8 +16,12 @@ POUT ALF " 23 " ALF "28 " ORIG 1000 START JMP DOE +STOP HLT * Date of Easter routine. Assumes Y is in address 0. -DOE ENT1 0 Clear I1 reg. +* Routine using registers A, X and I1. +DOE STJ J2 + ENT1 0 Clear reg. I1. + ENTA 0 Clear reg. A. LDX Y Compute G. ENTA 0 DIV =19= @@ -99,5 +103,5 @@ YEAR LDA Y MONTH LDA MNTH,1 STA POUT+1 OUT POUT(18) Write to line printer -STOP HLT +J2 JMP * END START |