root/ascommon/equ.hpp

DEFINITIONS

1. strcmp

// $Log: equ.hpp,v $
// Revision 1.2  2011/03/25 21:47:31  doug
// *** empty log message ***
//
// Revision 1.1  2011/03/25 07:19:17  doug
// Initial revision
//

char dir_equ[] = "$Id: equ.hpp,v 1.2 2011/03/25 21:47:31 doug Exp $";

// Copyright(c)2011 Douglas W. Goodall, United States.

if(0 == strcmp(strupr(g_szOpcode),"EQU")) {
  fprintf(g_flog,"Processing EQU directive\n");
  if(0 != strlen(g_szParms)) {
    g_iLineType = TYPE_DIR;
    unsigned long long r = resolvep64(g_szParms);
    fprintf(g_flog,"result from resolvep64(g_szParms) was 0X%017llX\n",r);
    g_pCSymbols->add(g_szLabel,TYPE_U8, (unsigned      char)r);
    g_pCSymbols->add(g_szLabel,TYPE_U16,(unsigned       int)r);
    g_pCSymbols->add(g_szLabel,TYPE_U32,(unsigned      long)r);
    g_pCSymbols->add(g_szLabel,TYPE_U64,(unsigned long long)r);
        g_iErrorNo ^= ERROR_UNKOP;
  } 
}