The code:

                 call p_foo
         p_foo:

fails

         foo.asm:1: error: `,' expected. Remainder of line: _foo
         foo.asm:3: error: unable to resolve reference: _foo
         * 2 errors found *


"p_foo" is considered a valid label by check_label()

    for (c = *p; isalnum (*c) || *c == '_' || *c == '.'; ++c)
    {
    }


In assemble():

            case CALL:
              if (!(r = rd_cc (&ptr)))
                {
                  wrtb (0xCD);
                }


            rd_cc (const char **p)
            {              
              const char *list[] = { "nz", "z", "nc", "c", "po", "pe", "p", "m", NULL };
              return indx (p, list, 0, NULL);
            }

rd_cc() is called to check for condition codes; e.g.:

          call p,bar


But indx() does not consider "_" to be part of a label:

      if (*check || (isalnum (check[-1]) && isalnum (input[0])))
        continue;

and so incorrectly parses the leading "p", leaving "_foo" unscanned.

Changing indx to:

      if (*check || (isalnum (check[-1]) && (isalnum (input[0]) || input[0] == '_' || input == '.')))
        continue;

allows indx to properly parse labels.







$ git diff
diff --git a/src/z80asm.c b/src/z80asm.c
index bfa46e4..256f291 100644
--- a/src/z80asm.c
+++ b/src/z80asm.c
@@ -190,7 +190,7 @@ indx (const char *ptr, const char *list, int error, const char **expr)
 
          ++check;
        }
-      if (*check || (isalnum (check[-1]) && isalnum (input[0])))
+      if (*check || (isalnum (check[-1]) && (isalnum (input[0]) || input[0] == '_' || input == '.')))
        continue;
       if (had_expr)
        {