1*22032Sdist /* 2*22032Sdist * Copyright (c) 1980 Regents of the University of California. 3*22032Sdist * All rights reserved. The Berkeley software License Agreement 4*22032Sdist * specifies the terms and conditions for redistribution. 5*22032Sdist */ 6*22032Sdist 714561Ssam #ifndef lint 8*22032Sdist static char sccsid[] = "@(#)l3tol.c 5.1 (Berkeley) 06/05/85"; 9*22032Sdist #endif not lint 1014561Ssam l3tol(lp,cp,n)1114561Ssaml3tol(lp, cp, n) 1214561Ssam long *lp; 1314561Ssam char *cp; 1414561Ssam int n; 1514561Ssam { 1614561Ssam register i; 1714561Ssam register char *a, *b; 1814561Ssam 1914561Ssam a = (char *)lp; 2014561Ssam b = cp; 2114561Ssam for(i=0;i<n;i++) { 2214561Ssam #ifdef interdata 2314561Ssam *a++ = 0; 2414561Ssam *a++ = *b++; 2514561Ssam *a++ = *b++; 2614561Ssam *a++ = *b++; 2714561Ssam #else 2814561Ssam *a++ = *b++; 2914561Ssam *a++ = *b++; 3014561Ssam *a++ = *b++; 3114561Ssam *a++ = 0; 3214561Ssam #endif 3314561Ssam } 3414561Ssam } 35