/*
// dump strtab[] 0..SP-1
void dumpSTR(FILE *fo){
	int i, s;
//	char c1, c2, c3, c4;
	fprintf(fo,"%d\n",SP);
	for(i=0; i<SP; i++){
/*
		s = strtab[i];
		c1 = (char)((s >> 24) & 255);
		c2 = (char)((s >> 16) & 255);
  		c3 = (char)((s >> 8) & 255);
   		c4 = (char)(s & 255);
		fprintf(fo,"%d %d %d %d\n",c1,c2,c3,c4);
*/
		fprintf(fo,"%d ",strtab[i]);
		if( (i%5) == 0 ) fprintf(fo,"\n");
	}
}

/*
// pack C-string (char *) to S-string in strtab[] indexed by s1
void strpack(int s1, char *s2){
	char c1, c2, c3, c4;
	while( *s2 != 0 ){
		c1 = (*s2 != 0) ? *s2++ : 0;
		c2 = (*s2 != 0) ? *s2++ : 0;
		c3 = (*s2 != 0) ? *s2++ : 0;
		c4 = (*s2 != 0) ? *s2++ : 0;
		strtab[s1] = (((((((int)c1)<<8)|(int)c2)<<8)|
			(int)c3)<<8)|(int)c4;
		s1++;
	}
	strtab[s1] = 0;
}
*/
/*
// make pack string
int mkSTR(char *s){
	int s2, len, n;
	len = strlen(s);
	n = len/4;
	if((len % 4) != 0) n++;
	s2 = SP;
	SP += n+1;
	if(SP >= MAXSTR) error("overflow string table");
	strpack(s2,s);
	return s2;
}
*/
