diff options
| author | rsiddharth <s@ricketyspace.net> | 2018-04-21 02:16:20 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2018-04-21 02:16:20 +0000 |
| commit | 484b792c4747acfdbf060f7950ca0c462f372921 (patch) | |
| tree | 8449c7b2b9af41361110ee73719ad8c25fe04970 | |
| parent | 3e7acf9ceeeeda815004dec6473d55ecb4f1a5c5 (diff) | |
mix: Add 1.3.2/easter.mixal
| -rw-r--r-- | mix/1.3.2/easter.mixal | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal new file mode 100644 index 0000000..0ed4332 --- /dev/null +++ b/mix/1.3.2/easter.mixal @@ -0,0 +1,34 @@ +* Work in progress... + ORIG 0 +Y CON 0 Y is stored here. +G CON 0 G will get stored here. +C CON 0 C will get stored here. +X CON 0 X will get stored here. +Z CON 0 Z will get stored here. + ORIG 1000 +START JMP DOE +* Date of Easter routine. Assumes Y is in address 0. +DOE LDX Y Step E1 + ENTA 0 + DIV =19= + INCX 1 + STX G + ENTA 0 Step E2 + LDX Y + DIV =100= + INCA 1 + STA C + ENTA 0 Step E3 + ENTA 3 Compute X + MUL C + DIV =4= + DECA 12 + STA X + ENTA 8 Compute Z + MUL C + INCX 5 + DIV =25= + DECA 5 + STA Z +STOP HLT + END START |