Bell 32V development

[unix-history] / usr / src / libc / gen / l3tol.c

l3tol(lp, cp, n)
long    *lp;
char    *cp;
int     n;
{
       register i;
       register char *a, *b;

       a = (char *)lp;
       b = cp;
       for(i=0;i<n;i++) {
#ifdef interdata
               *a++ = 0;
               *a++ = *b++;
               *a++ = *b++;
               *a++ = *b++;
#else
               *a++ = *b++;
               *a++ = *b++;
               *a++ = *b++;
               *a++ = 0;
#endif
       }
}