/* k 0224       23/09/91        *//* ebss */
#include <ebss.h>               /* @0224 */
#include <fcntl.h>
readdcr()               /* @0157 *//* @0168 */
{                       /* @0157 */
  short i;              /* @0157 */
  if (nps->id[0][0]>0x20)       /* @0151 */
#if ((OVL_TYPE==1)&&(RESIDENT!=1))
     Res_memcpy(user,nps->id[0],8);  /* @0151 *//* @0162 */
   else                          /* @0151 */
#if (OS_TYPE==0)	/* @0184 */
     Res_memcpy(user,vtnau->name,8);      /* @0148 *//* @0162 */
#else			/* @0184 */
     Res_memcpy(user,wnau->name,8);      /* @0184 */
#endif			/* @0184 */
   Res_memcpy(dpp+12,user,8);  /* 0520 */         /* @0162 */
     for (i=19;i>12;i--)
       if (dpp[i]==' ')
         dpp[i]=0x00;
       else
         break;
      Res_memcpy(dpp+i+1,d_g,2);
      doff=i+3;
 dpp[doff]=0x00;           /* @0156 */
 if (fdd!= -1)          /* @0168 */
   Res_close(fdd);          /* @0168 */
 if ((fdd=Res_open(dpp,O_RDWR
#if (OS_TYPE==0)         /* @0182 */
                         |O_BINARY
#endif                   /* @0182 */
                         ))>0) /* @0158 *//* @0164 *//* @0181 */
  if (Res_read(fdd,d_crec,sizeof(struct dcr)) != sizeof(struct dcr))/* @164 */
   {                                /* @0168 */
    Res_close(fdd);                     /* @0168 */
    fdd= -1;                    /* @0164 */
    return 0;         /* @0164 *//* @0167 */
   }                /* @0164 */
}
#else
     memcpy(user,nps->id[0],8);  /* @0151 *//* @0162 */
   else                          /* @0151 */
#if (OS_TYPE==0)	/* @0184 */
     memcpy(user,vtnau->name,8);      /* @0148 *//* @0162 */
#else			/* @0184 */
     memcpy(user,wnau->name,8);      /* @0184 */
#endif			/* @0184 */
   memcpy(dpp+12,user,8);  /* 0520 */         /* @0162 */
     for (i=19;i>12;i--)
       if (dpp[i]==' ')
         dpp[i]=0x00;
       else
         break;
      memcpy(dpp+i+1,d_g,2);
      doff=i+3;
 dpp[doff]=0x00;           /* @0156 */
 if (fdd!= -1)          /* @0168 */
   close(fdd);          /* @0168 */
 if ((fdd=open(dpp,O_RDWR
#if (OS_TYPE==0)         /* @0182 */
                         |O_BINARY
#endif                   /* @0182 */
                         ))>0) /* @0158 *//* @0164 *//* @0181 */
  if (read(fdd,d_crec,sizeof(struct dcr)) != sizeof(struct dcr))/* @164 */
   {                                /* @0168 */
    close(fdd);                     /* @0168 */
    fdd= -1;                    /* @0164 */
    return 0;         /* @0164 *//* @0167 */
   }                /* @0164 */
}
#endif