diff options
Diffstat (limited to 'test-suite/standalone/sassy/tests/prims16/16exp-k1.scm')
-rw-r--r-- | test-suite/standalone/sassy/tests/prims16/16exp-k1.scm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/test-suite/standalone/sassy/tests/prims16/16exp-k1.scm b/test-suite/standalone/sassy/tests/prims16/16exp-k1.scm new file mode 100644 index 000000000..cf00dd0c7 --- /dev/null +++ b/test-suite/standalone/sassy/tests/prims16/16exp-k1.scm @@ -0,0 +1,27 @@ +(bits 16) + +(macro seq-k (lambda tests + (cond ((null? tests) '$win) + ((null? (cdr tests)) (car tests)) + (else `(with-win (seq-k ,@(cdr tests)) + ,(car tests)))))) +(text + (begin (nop) + (nop) + (seq-k (nop) + (nop) + z! + (nop) + (inv z!) + (nop)) + (nop))) + +; 00000000 90 nop +; 00000001 90 nop +; 00000002 90 nop +; 00000003 90 nop +; 00000004 7504 jnz 0xa +; 00000006 90 nop +; 00000007 7401 jz 0xa +; 00000009 90 nop +; 0000000A 90 nop |