nasm/test/riprel.pl

#!/usr/bin/perl

print "\tbits 64\n";

foreach $mode ('abs', 'rel') {
    print "\n\tdefault $mode\n\n";

    foreach $so ('', 'fs:', 'es:') {
	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$so$v]\n";
		    }
		}
		print "\n";
	    }
	}
    }
}

print "\nfoo:\n";