taocp

taocp sandbox.
git clone git://git.ricketyspace.net/taocp.git
Log | Files | Refs

commit 0ce2e21faf47db7a29a7f054dabc70ad5064f243
parent 3e19d4aa04865cac923b04b7e0213fdc466ebf73
Author: rsiddharth <s@ricketyspace.net>
Date:   Thu,  3 May 2018 22:06:22 +0000

mix: easter.mixal: Add ability to jump back from easter subtroutine.

Diffstat:
mix/1.3.2/easter.mixal | 8++++++--
1 file changed, 6 insertions(+), 2 deletions(-)

diff --git 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