/* -*-c,save-*- */
/*
 *--------------------------------------
 * LUCPM68K.C - CP/M-68K functions
 * Robert Heller. Created: Sat Nov 8, 1986 15:01:38.33
 *--------------------------------------
 */
#include <stdio.h>
#include <osif.h>

/* get parsed filename */

char *getname(fd,b)
register int fd;
register char *b;
{
    register FD *ff;
    register int i;
    register struct fcbtab *ffcb;
    register char *p,*result;

    result = b;
    ff = &_fds[fd];
    ffcb = &ff->fcb;
    if ((ff->flags & OPENED) == 0) return(NULL);
    if ((ff->flags & ISTTY) != 0) {
	strcpy(b,"CON:");
	return(result);
	}
    else if ((ff->flags & ISLPT) != 0) {
	strcpy(b,"LST:");
	return(result);
	}
    if (ffcb->drive != 0) {
	*b++ = ffcb->drive + '@';
	*b++ = ':';
	}
    p = ffcb->fname;
    for (i=0;i<8 && *p != ' ';i++) *b++ = *p++;
    *b++ = '.';
    p = ffcb->ftype;
    for (i=0;i<3 && *p != ' ';i++) *b++ = *p++;
    *b = '\0';
    return(result);
    }

/* swap a word */
swapw(iw)
short int iw;
{
    short int wi;

    swab(&iw,&wi,sizeof(short int));
    return(wi);
    }