From e1ee7f254a97541303d585e1620d8f5d1453fa1d Mon Sep 17 00:00:00 2001
From: phil <phil@ultimate.com>
Date: Sat, 26 Oct 2019 12:36:09 -0400
Subject: [PATCH] as7: change directive prefix from "<TAB>." to "@"

---
 tools/as7 | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/tools/as7 b/tools/as7
index 45aa87d..f476b17 100755
--- a/tools/as7
+++ b/tools/as7
@@ -361,7 +361,7 @@ sub parse_directive
   print("Got directive $directive\n") if ($debug);
 
   # Set this as a local label
-  if ($directive=~ m{^\.local\s+(\S+)}) {
+  if ($directive=~ m{^\@local\s+(\S+)}) {
     $Islocal{$file}{$1}=1;
   }
 }
@@ -383,15 +383,15 @@ sub parse_line {
 
 	print "parse_line: '$line'\n" if ($debug);
 
-	# Assembler directives start with a tab and a .
-	if ($line =~ m{^\t(\..*)}) {
-	   parse_directive($1);
-	   return;
-	}
-
 	# Lose any leading whitespace
 	$line =~ s{^\s*}{};
 
+	# Assembler directives start with an @
+	if ($line =~ m{^\@}) {
+	   parse_directive($line);
+	   return;
+	}
+
 	while ($line =~ s{^([A-Za-z0-9_\.]+):\s*}{}) { # labels
 	    process_label($1);
 	}