Add isLabel function

yaict.pl

@@ -135,6 +135,14 @@ sub isImmediate
     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
 sub getAddress
 {