diff options
Diffstat (limited to 'test-suite/standalone/sassy/tests/prims16/16iter5.scm')
-rw-r--r-- | test-suite/standalone/sassy/tests/prims16/16iter5.scm | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/test-suite/standalone/sassy/tests/prims16/16iter5.scm b/test-suite/standalone/sassy/tests/prims16/16iter5.scm new file mode 100644 index 000000000..3c42b6c46 --- /dev/null +++ b/test-suite/standalone/sassy/tests/prims16/16iter5.scm @@ -0,0 +1,40 @@ +(bits 16) + +(text + (begin + (iter + (alt (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (zero? eax))) + (iter + (alt (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (add (& ecx (* edx 4) 1000) 1000) + (zero? eax))))) + +;testing multi-pass iter for jump sizes + |