diff options
| author | rsiddharth <s@ricketyspace.net> | 2018-04-25 22:04:46 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2018-04-25 22:04:46 +0000 |
| commit | 4a10c6b7a6768245be24fe87bc304f1f388a0bf4 (patch) | |
| tree | e6b634115f02986275f8c933fbae849f7950f143 | |
| parent | 5a8ab35f123280248cc535850956850030a3626f (diff) | |
mix/1.3.2/easter.mixal: Compute N.
| -rw-r--r-- | mix/1.3.2/easter.mixal | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal index 2d5b6b4..72fe2ee 100644 --- a/mix/1.3.2/easter.mixal +++ b/mix/1.3.2/easter.mixal @@ -7,6 +7,7 @@ X CON 0 X will get stored here. 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 1000 START JMP DOE * Date of Easter routine. Assumes Y is in address 0. @@ -54,5 +55,11 @@ DOE LDX Y Compute G. JLE STRE INCRE INCX 1 Increment E by 1. STRE STX E + ENTA 44 Compute N. + SUB E + CMPA =21= + JGE STRN + INCA 30 +STRN STA N STOP HLT END START |