diff options
| author | rsiddharth <s@ricketyspace.net> | 2018-04-24 22:47:16 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2018-04-24 22:47:16 +0000 |
| commit | 5a8ab35f123280248cc535850956850030a3626f (patch) | |
| tree | f226b329d697f4de0d79ae92784e6632a66212b8 | |
| parent | 2e7726da51c619ee4572e0453364089abc6d0bb8 (diff) | |
mix/1.3.2/easter.mixal: Compute E.
| -rw-r--r-- | mix/1.3.2/easter.mixal | 31 |
1 files changed, 24 insertions, 7 deletions
diff --git a/mix/1.3.2/easter.mixal b/mix/1.3.2/easter.mixal index 8de5abc..2d5b6b4 100644 --- a/mix/1.3.2/easter.mixal +++ b/mix/1.3.2/easter.mixal @@ -1,4 +1,4 @@ -* Work in progress... +* 1.3.2 Ex. 14. Work in progress... ORIG 0 Y CON 0 Y is stored here. G CON 0 G will get stored here. @@ -6,36 +6,53 @@ C CON 0 C will get stored here. 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. ORIG 1000 START JMP DOE * Date of Easter routine. Assumes Y is in address 0. -DOE LDX Y Step E1 +DOE LDX Y Compute G. ENTA 0 DIV =19= INCX 1 STX G - ENTA 0 Step E2 + ENTA 0 Compute C. LDX Y DIV =100= INCA 1 STA C - ENTA 0 Step E3 - ENTA 3 Compute X + ENTA 3 Compute X. MUL C DIV =4= DECA 12 STA X - ENTA 8 Compute Z + ENTA 8 Compute Z. MUL C INCX 5 DIV =25= DECA 5 STA Z - ENTA 5 Compute D + ENTA 5 Compute D. MUL Y DIV =4= SUB X DECA 10 STA D + ENTA 11 Compute E. + MUL G + INCX 20 + SLC 5 Move value to reg. A from reg. X. + ADD Z + SUB X + SRC 5 Move value to reg. X from reg. A. + DIV =30= + CMPX =24= Compare E with 24. + JE INCRE + CMPX =25= Compare E with 25. + JNE STRE + LD1 G + CMP1 =11= + JLE STRE +INCRE INCX 1 Increment E by 1. +STRE STX E STOP HLT END START |