Subversion Repositories System09

/*

 *      fatal --- fatal error handler

 */

fatal(str)

char    *str;

{

 printf("%s\n",str);

#ifdef IBM      /* changed ver TER_2.0 */

 exit(-1);

#else

 exit(10);      /* Amiga & UNIX prefer positive numbers for error

                        minimal error is 10 (no system prob) */

#endif

}

/*

 *      error --- error in a line

 *                      print line number and error

 */

error(str)

char    *str;

{

/* if(N_files > 1)      commented out test for N_files in rel TER_2.0

                        because a single command line source file

                        (which is what N_files counts) can have multiple

                        include source files. */

 printf("%s\n",str);

}

/*

 *      warn --- trivial error in a line

 *                      print line number and error

 */

warn(str)

char    *str;

{

/* if(N_files > 1)      commented out in rel TER_2.0 same reason as above */

 printf("%s, line no.",Argv[Cfn]);      /* current file name */

 printf("%d: ",Line_num);       /* current line number */

 printf("Warning --- %s\n",str);

 Page_lines++;

}

/*

 *      delim --- check if character is a delimiter

 */

delim(c)

char    c;

{

 if( any(c," \t\n"))

  return(YES);

 return(NO);

}

/*

 *      skip_white --- move pointer to next non-whitespace char

 */

char *skip_white(ptr)

char    *ptr;

{

 while(*ptr==BLANK || *ptr==TAB)

  ptr++;

 return(ptr);

}

/*

 *      eword --- emit a word to code file

 */

eword(wd)

int     wd;

{

 emit(hibyte(wd));

 emit(lobyte(wd));

}

/*

 *      emit --- emit a byte to code file

 */

emit(byte)

{

#ifdef DEBUG

 printf("%2x @ %4x\n",byte,Pc);

#endif

 if(Pass==1){

  Pc++;

  return(YES);

  }

 if(P_total < P_LIMIT)

  P_bytes[P_total++] = byte;

 E_bytes[E_total++] = byte;

 Pc++;

 if(E_total == E_LIMIT)

  f_record();

}

/*

 *      f_record --- flush record out in `S1' format

 */

void f_record() /* made void for ANSI C compat ver TER_2.0 6/18/89 */

{

 int     i;

 int     chksum;

 if(Pass == 1)

  return;

 if(E_total==0){

  E_pc = Pc;

  return;

  }

 F_total += E_total;    /* total bytes in file ver (TER)2.01 19 Jun 89 */

 chksum =  E_total+3;    /* total bytes in this record */

 chksum += lobyte(E_pc);

 chksum += E_pc>>8;

 fprintf(Objfil,"S1");   /* record header preamble */

 hexout(E_total+3);      /* byte count +3 */

 hexout(E_pc>>8);        /* high byte of PC */

 hexout(lobyte(E_pc)); /* low byte of PC */

 for(i=0;i<E_total;i++){

  chksum += lobyte(E_bytes[i]);

  hexout(lobyte(E_bytes[i])); /* data byte */

  }

 chksum =~ chksum;       /* one's complement */

 hexout(lobyte(chksum)); /* checksum */

 if (CRflag == 1)       /* test for CRflag added ver TER_1.1 */

  fprintf(Objfil,"%c\n",CR);  /* print in IBM format for some PROM boxes */

 else

  fprintf(Objfil,"\n"); /* this is original statement */

 E_pc = Pc;

 E_total = 0;

}

char    *hexstr = { "0123456789ABCDEF" } ;

hexout(byte)

int     byte;

{

 byte = lobyte(byte);

 fprintf(Objfil,"%c%c",hexstr[byte>>4],hexstr[byte&017]);

}

/*

 *      print_line --- pretty print input line

 */

print_line()

{

 int     i;

 register char *ptr;

        printf ("%04d ",Line_num);

 if(P_total || P_force)

        printf("%04X",Old_pc);

 else

        printf("    ");

 for(i=0;i<P_total && i<6;i++)

        printf(" %02X",lobyte(P_bytes[i]));

 for(;i<6;i++)

  printf("   ");

 printf("  ");

 if(Cflag){

  if(Cycles)

   printf("[%2d ] ",Cycles);

  else

   printf("      ");

  }

 ptr = Line;

 while( *ptr != '\n' )   /* just echo the line back out */

  putchar(*ptr++);

 for(;i<P_total;i++){

  if( i%6 == 0 )

         printf("\n         ");               /* force data alignment DWC 1-5-92 */

        printf(" %02X",lobyte(P_bytes[i]));

  }

 if (Pflag50 && (++Page_lines>=50))     /* form feed if flag set */

         NewPage();                     /* ver (TER) 2.02 19 Jun 89 */

 if (Pflag75 && (++Page_lines>=75))     /* form feed if flag set */

         NewPage();                     /* ver (DWC) 2.10 8 Oct 2001 */

printf("\n");

}

/*

 *      any --- does str contain c?

 */

any(c,str)

char    c;

char    *str;

{

 while(*str != EOS)

  if(*str++ == c)

   return(YES);

 return(NO);

}

/*

 *      mapdn --- convert A-Z to a-z

 */

char mapdn(c)

char c;

{

 if( c >= 'A' && c <= 'Z')

  return((char)(c+040)); /* cast value to char for ANSI C, ver TER_2.0 */

 return(c);

}

/*

 *      lobyte --- return low byte of an int

 */

lobyte(i)

int i;

{

 return(i&0xFF);

}

/*

 *      hibyte --- return high byte of an int

 */

hibyte(i)

int i;

{

 return((i>>8)&0xFF);

}

/*

 *      head --- is str2 the head of str1?

 */

head(str1,str2)

char *str1,*str2;

{

 while( *str1 != EOS && *str2 != EOS){

  if( *str1 != *str2 )break;

  str1++;

  str2++;

  }

 if(*str1 == *str2)return(YES);

 if(*str2==EOS)

  if( any(*str1," \t\n,+-];*") )return(YES);

 return(NO);

}

/*

 *      alpha --- is character a legal letter

 */

alpha(c)

char c;

{

 if( c<= 'z' && c>= 'a' )return(YES);

 if( c<= 'Z' && c>= 'A' )return(YES);

 if( c== '_' )return(YES);

 if( c== '.' )return(YES);

 return(NO);

}

/*

 *      alphan --- is character a legal letter or digit

 */

alphan(c)

char c;

{

 if( alpha(c) )return(YES);

 if( c<= '9' && c>= '0' )return(YES);

 if( c == '$' )return(YES);      /* allow imbedded $ */

 if( c == '@' )return(YES);     /* allow imbedded @, added ver TER_2.0

                                   added to permit redefinable variables */

 return(NO);

}

/*

 * white --- is character whitespace?

 */

white(c)

char c;

{

 if( c == TAB || c == BLANK || c == '\n' )return(YES);

 return(NO);

}

/*

 * alloc --- allocate memory

 */

char *

alloc(nbytes)

int nbytes;

{

 return(malloc(nbytes));

}

/*

 * FNameGet --- Find a file name <file> or "file" in the Operand string

        added ver TER_2.0 6/17/89

        note: this routine will return a file name with white

        space if between delimeters.  This is permitted in

        AmigaDOS.  Other DOS may hiccup or just use name up to white space

 */

int

FNameGet(NameString)

char *NameString;       /* pointer to output string */

{

 char *frompoint;       /* pointers to input string, don't bash Operand */

 char *topoint;         /* pointer to output string, don't bash NameString */

 frompoint=Operand;     /* include file name is in parsed string Operand */

 topoint=NameString;    /* copy of pointer to increment in copying */

 if (*frompoint != '<' && *frompoint != '"') return(0); /* bad syntax */

 frompoint++;   /* skip < or " */

 while (*frompoint != '>' && *frompoint != '"') /* look for delimeter */

  {

   if (*frompoint == EOS) return(0);    /* missing delimeter */

   *topoint++ = *frompoint++;   /* copy path & file name for DOS */

  }

 *topoint=EOS;  /* terminate file name */

#ifdef DEBUG2

 printf("FNameGet: file name=%s\n",NameString);

#endif

 return(1);     /* proper syntax anyway */

}

/*

 * --- strsave()  find a place to save a string & return pointer to it

                added ver TER_2.0 6/18/89  function taken from

                Kernighan & Ritchie 78

 */

char *strsave(s)

char *s;

{

 char *p;

 if ((p = alloc(strlen(s)+1)) != NULL)

        strcpy(p,s);

 return(p);

}

/*

 * pouterror() ---- print out standard error header

                        added rel TER_2.0 6/18/89

 */

void pouterror()

{

    printf("%s, line no. ",Argv[Cfn]);  /* current file name */

    printf("%d: ",Line_num);    /* current line number */

        /* NOTE: THERE IS NO \n ! Calling procedure supplies suffixing

           error message and \n. viz. file pseudo.c procedure do_pseudo

           in case INCLUDE. Note also that error count is incremented.  */

    Err_count++;

    Page_lines++;       /* increment lines per page */

}

/*

 * New Page() --- form feed a new page, print heading & inc page number

                Moved here from do_pseudo (pseudo.c) in ver (TER) 2.02

                19 Jun 89 so that can call from print_line() as well

                for p50 option.

 */

void NewPage()

{

 Page_lines = 0;        /* ver TER_2.08 so that OPT PAGE works */

 printf ("\n\f\n");

 printf ("%-10s",Argv[Cfn]);

 printf ("                                   ");

 printf ("                                   ");

 printf ("page %3d\n",Page_num++);

}

/*

* LastChar() ----- return a pointer to the last character in a string

                Exception: will return garbage if NULL string

*/

char *LastChar(strpt)

char *strpt;    /* pointer to string to be examined */

{

 char *c;

 c=strpt;       /* don't zap original */

 while (*c != EOS)      /* search for end */

        c++;

 return(--c);   /* back up one to last character */

}