anchor.diff:  	}
   	else {
   		library = FALSE;
  -		out( "#define CODE_EXPANDER\n");
  -		out( "#include <em.h>\n");
  -		out( "#include \"mach.h\"\n");
  -		out( "#include \"back.h\"\n\n");
  +		file_header();
   	}
   	
   	return( table());
  
positive.code: }
  
  
  set_segment( seg)
  int seg;
  {
  	switch ( seg) {
  	  case SEGTXT : out( "switchseg( SEGTXT);\n");
  			 break;
  	  case SEGBSS  : out( "switchseg( SEGBSS);\n");
  			 out( "dump_label();\n");
  			 break;
  	  case SEGHOL  : out( "switchseg( SEGHOL); BESTAAT NIET!!\n");
  			 break;
  	  case SEGCON  : out( "switchseg( SEGCON);\n");
  			 out( "dump_label();\n");
  			 break;
  	  case SEGROM  : out( "switchseg( SEGROM);\n");
  			 out( "dump_label();\n");
  			 break;
  	  case UNKNOWN : break;	/* dan niet! */
  	}
  }
  
  
  out( fmt, argv)
  char *fmt;
  int argv;
  {
  	doprnt( outfile, fmt, &argv);
  }
  
  
  char *suffix( str, suf)
  char *str, *suf;
  {
  	static char res[15];
  	char *s, *strncpy(), *strcat();
  	int strl, sufl, prefl;
  
  	strl = strlen( str);
  	sufl = strlen( suf);
  
  	for ( s = str + strl; --s >= str && *s != '.';)
  		;
  
  	if ( *s == '.')
  		prefl = s - str;
  	else
  		prefl = strl;
  	
  	if ( prefl + sufl + 1 > 14 )
  		prefl = 14 - 1 - sufl;
  	
  	strncpy( res, str, prefl);
  	res[prefl] = '\0';
  	s = strcat( res, ".");
  	s = strcat( s, suf);
  	return( s);
  }
  
  set_outfile( name)
  char *name;
  {
  	if ( library) {
  		name = suffix( name, "c");
  		sys_close( outfile);
  		if ( !sys_open( name, OP_WRITE, &outfile))
  			fprint( STDERR, "!! can't create %s !!\n", name);
  		out( "#define CODE_EXPANDER\n");
  		out( "#include <em.h>\n");
  		out( "#include \"mach.h\"\n");
  		out( "#include \"back.h\"\n\n");
  	}
  }
  
  
  main( argc, argv)
  int argc;
  
negative.code: c_action: CALL
  	| ASSEM_INSTR
  	;
  
  
  
  
  
  {
  