List macro calls with the location of DOT

Like MACRO V05.05.

assemble.c

@@ -250,6 +250,8 @@ static int assemble(
 
             free(label);
 
+            list_location(stack->top, DOT);
+
             macstr = expandmacro(stack->top, (MACRO *) op, ncp);
 
             stack_push(stack, macstr); /* Push macro expansion

listing.c

@@ -139,6 +139,18 @@ void list_word(
 }
 
 
+/* Print just a line with the address to the listing file */
+
+void list_location(
+    STREAM *str,
+    unsigned addr)
+{
+    if (dolist()) {
+        list_fit(str, addr);
+    }
+}
+
+
 
 /* reports errors */
 void report(

listing.h

@@ -51,6 +51,10 @@ void            list_value(
     STREAM *str,
     unsigned word);
 
+void            list_location(
+    STREAM *str,
+    unsigned word);
+
 void            list_source(
     STREAM *str,
     char *cp);