diff options
author | pacien | 2018-04-30 23:21:17 +0200 |
---|---|---|
committer | pacien | 2018-04-30 23:21:17 +0200 |
commit | 37716a32c9aadcca83746bf96bf32b552fa55847 (patch) | |
tree | 0863035615645c376f3e7fa85d6b4b8de2354e84 /examples/even.eurm | |
parent | 720ffc02dc4d8614b1f8c3c31dd161984b1c6642 (diff) | |
download | urm-37716a32c9aadcca83746bf96bf32b552fa55847.tar.gz |
Add examples from S.V website
Diffstat (limited to 'examples/even.eurm')
-rw-r--r-- | examples/even.eurm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/examples/even.eurm b/examples/even.eurm new file mode 100644 index 0000000..f07ad37 --- /dev/null +++ b/examples/even.eurm | |||
@@ -0,0 +1,25 @@ | |||
1 | COMMENT Decide wether the content of Register 1 is even. | ||
2 | COMMENT The output is 0 if it is even and 1 otherwise | ||
3 | |||
4 | COMMENT initialization | ||
5 | ZERO 2 | ||
6 | |||
7 | COMMENT main loop | ||
8 | LABEL loop | ||
9 | COMMENT invariant: R2 is even | ||
10 | EQ? 1 2 even | ||
11 | INC 2 | ||
12 | COMMENT invariant: R2 is odd | ||
13 | EQ? 1 2 odd | ||
14 | INC 2 | ||
15 | GOTO loop | ||
16 | |||
17 | COMMENT R1 holds an even number | ||
18 | LABEL even | ||
19 | ZERO 1 | ||
20 | QUIT | ||
21 | |||
22 | COMMENT R1 holds an odd number | ||
23 | LABEL odd | ||
24 | ZERO 1 | ||
25 | INC 1 | ||