Test for various addressing modes in 64-bit mode

Test of various addressing modes in 64-bit mode.  Relative addresses
specified as numbers are currently broken!!

1 files changed, 23 insertions, 0 deletions

diff --git a/test/riprel.pl b/test/riprel.pl
new file mode 100644
index 00000000..fa4405e2
--- /dev/null
+++ b/test/riprel.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+print "\tbits 64\n";
+
+foreach $mode ('abs', 'rel') {
+    print "\n\tdefault $mode\n\n";
+
+    foreach $rq ('', 'abs ', 'rel ') {
+	foreach $sq ('', 'dword ', 'qword ') {
+	    foreach $v ('foo', '0xaaaaaaaaaaaaaaaa', '0xbbbbbbbb',
+			'0xffffffffcccccccc') {
+		foreach $r ('al', 'bl', 'ax', 'bx', 'eax', 'ebx', 'rax', 'rbx') {
+		    print "\tmov $r,[$rq$sq$v]\n";
+		}
+	    }
+	    print "\n";
+	}
+    }
+}
+
+print "\nfoo:\n";
+
+