mac.pl

来自「m68k系列反汇编的C语言源码,供学习编译原理的同学使用。实用！」· PL 代码 · 共 82 行

#!/usr/local/bin/perl

#                 Author:  Christopher G. Phillips
#              Copyright (C) 1994 All Rights Reserved
#
#                              NOTICE
#
# Permission to use, copy, modify, and distribute this software and
# its documentation for any purpose and without fee is hereby granted
# provided that the above copyright notice appear in all copies and
# that both the copyright notice and this permission notice appear in
# supporting documentation.
#
# The author makes no representations about the suitability of this
# software for any purpose.  This software is provided ``as is''
# without express or implied warranty.

while (<>) {
	if (/^(a([0189])[0-9a-fA-F]{2})\s+(.+)\s*$/) {
		$s = $3;
		$inst = $1;
		$inst =~ tr/A-Z/a-z/;
		$c = $2;
		if ($c =~ /0/) {
			$zero{"$inst"} = $s;
		} elsif ($c =~ /1/) {
			$one{"$inst"} = $s;
		} elsif ($c =~ /8/) {
			$eight{"$inst"} = $s;
		} else {
			$nine{"$inst"} = $s;
		}
	}
}

foreach $key (sort byhex (keys %zero)) {
	$key =~ /^a0(..)/ && ($last2 = $1);
	$v = $zero{"$key"};
	if (defined $one{"$key"}) {
		for ($i = 0; $i < 8; $i += 2) {
			print "a$i$last2 $v\n";
		}
		$v = $one{"$key"};
		for ($i = 1; $i < 8; $i += 2) {
			print "a$i$last2 $v\n";
		}
		undef $one{"$key"};
	} else {
		for ($i = 0; $i < 8; $i++) {
			print "a$i$last2 $v\n";
		}
	}
}
foreach $key (sort byhex (keys %one)) {
	$key =~ /^a1(..)/ && ($last2 = $1);
	$v = $one{"$key"};
	for ($i = 1; $i < 8; $i++) {
		print "a$i$last2 $v\n";
	}
}
foreach $key (sort byhex (keys %eight)) {
	$key =~ /^a8(..)/ && ($last2 = $1);
	$v = $eight{"$key"};
	print "a8$last2 $v\n";
	print "aa$last2 $v\n";
	print "ac$last2 $v\n";
	print "ae$last2 $v\n";
}
foreach $key (sort byhex (keys %nine)) {
	$key =~ /^a9(..)/ && ($last2 = $1);
	$v = $nine{"$key"};
	print "a9$last2 $v\n";
	print "ab$last2 $v\n";
	print "ad$last2 $v\n";
	print "af$last2 $v\n";
}
exit(0);

sub byhex {
	hex($a) - hex($b);
}