Category : C Source Code
Archive   : SMALLC.ZIP
Filename : SAMPLE-2.C

extern char buffer[256];
getname(fname)
char *fname;
{
char *FPA1;
int d,k;

/* copy prefix area to stack segment for easy use */
copyprefix(buffer);

/* get name from formatted parameter area 1 in the program
prefix. */

FPA1 = buffer+92; /* offset to parm area 1 in prefix */

/* do drive first */
d = *FPA1++;
if(d!=0) {
if (d==1) *fname++='a';
else *fname++='b';
*fname++=':';
}

/* do name next */
k=1;
while((k<=8) & (*FPA1!=' ')) {k++; *fname++=*FPA1++;}
if(k==1) {*fname=0; return;}
else if(k<=8) FPA1=buffer+92+9; /* offset of extension */

/* do extension next */
if(*FPA1!=' ') {
*fname++='.';
k=1;
while((k<=3) & (*FPA1!=' ')) {k++; *fname++=*FPA1++;}
}
*fname=0;
}