summaryrefslogtreecommitdiff
path: root/test-suite/standalone/sassy/tests/jumps.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/standalone/sassy/tests/jumps.scm')
-rw-r--r--test-suite/standalone/sassy/tests/jumps.scm35
1 files changed, 35 insertions, 0 deletions
diff --git a/test-suite/standalone/sassy/tests/jumps.scm b/test-suite/standalone/sassy/tests/jumps.scm
new file mode 100644
index 000000000..e0396e9a6
--- /dev/null
+++ b/test-suite/standalone/sassy/tests/jumps.scm
@@ -0,0 +1,35 @@
+(
+(loop foo)
+(loope foo cx)
+(loopz foo ecx)
+(loopne foo)
+(loopnz foo cx)
+(jcxz foo)
+(jecxz foo)
+(call (dword 0))
+(call (word 0))
+(call 1000 (dword 1000))
+(call 1000 (word 1000))
+(call 1000 (dword 1000))
+(call 1000 (word 1000))
+(call far (dword (& ecx)))
+(call far (word (& ecx)))
+(call ecx)
+(call (dword (& ecx)))
+(call cx)
+(call (word (& ecx)))
+(jmp (dword 0))
+(jmp near (dword 0))
+(jmp (word 0))
+(jmp near (word 0))
+(jmp 1000 (dword 1000))
+(jmp 1000 (word 1000))
+(jmp 1000 (dword foo))
+(jmp 1000 (word foo))
+(jmp far (dword (& ecx)))
+(jmp far (word (& ecx)))
+(jmp ecx)
+(jmp (dword (& ecx)))
+(jmp cx)
+(jmp (word (& ecx)))
+)