|
@@ -135,6 +135,14 @@ sub isImmediate
|
|
return !(shift =~ /^0d/);
|
|
return !(shift =~ /^0d/);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
+# Check if a parameter
|
|
|
|
+sub isLabel
|
|
|
|
+{
|
|
|
|
+ $_[0] =~ /(\w+?)(?:\s*+\s*\d*)?/;
|
|
|
|
+ print "Testing: $_[0]\n";
|
|
|
|
+ return !!$labels{$1};
|
|
|
|
+}
|
|
|
|
+
|
|
# Get the address a value represents
|
|
# Get the address a value represents
|
|
sub getAddress
|
|
sub getAddress
|
|
{
|
|
{
|