diff options
Diffstat (limited to 'test-suite/standalone/sassy/tests/prims/exp-k4.scm')
| -rw-r--r-- | test-suite/standalone/sassy/tests/prims/exp-k4.scm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/test-suite/standalone/sassy/tests/prims/exp-k4.scm b/test-suite/standalone/sassy/tests/prims/exp-k4.scm new file mode 100644 index 000000000..02fe7add2 --- /dev/null +++ b/test-suite/standalone/sassy/tests/prims/exp-k4.scm @@ -0,0 +1,29 @@ +(macro if-k (lambda (test conseq altern) + `(with-win-lose ,conseq ,altern + ,test))) + +(text + (seq (nop) + (if-k (seq (nop) z!) + (inv (nop)) + (if-k g! + (nop) + (if-k p! + (nop) + (nop)))) + (nop))) + +; 00000000 90 nop +; 00000001 90 nop +; 00000002 7503 jnz 0x7 +; 00000004 90 nop +; 00000005 EB0C jmp short 0x13 +; 00000007 7E03 jng 0xc +; 00000009 90 nop +; 0000000A EB06 jmp short 0x12 +; 0000000C 7B03 jpo 0x11 +; 0000000E 90 nop +; 0000000F EB01 jmp short 0x12 +; 00000011 90 nop +; 00000012 90 nop + |