summaryrefslogtreecommitdiff
path: root/test-suite/standalone/sassy/tests/prims16/16leap-mark1.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/standalone/sassy/tests/prims16/16leap-mark1.scm')
-rw-r--r--test-suite/standalone/sassy/tests/prims16/16leap-mark1.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/standalone/sassy/tests/prims16/16leap-mark1.scm b/test-suite/standalone/sassy/tests/prims16/16leap-mark1.scm
new file mode 100644
index 000000000..724b8aa4c
--- /dev/null
+++ b/test-suite/standalone/sassy/tests/prims16/16leap-mark1.scm
@@ -0,0 +1,12 @@
+(bits 16)
+
+(text
+ (while (inv (zero? ax))
+ (seq (pop cx)
+ (dec ax))))
+
+; 00000000 EB02 jmp short 0x4
+; 00000002 59 pop cx
+; 00000003 48 dec ax
+; 00000004 85C0 test ax,ax
+; 00000006 75FA jnz 0x2