1 /* 2 * Copyright (c) 1980 Regents of the University of California. 3 * All rights reserved. The Berkeley software License Agreement 4 * specifies the terms and conditions for redistribution. 5 */ 6 7 #ifndef lint 8 static char sccsid[] = "@(#)l3tol.c 5.1 (Berkeley) 06/05/85"; 9 #endif not lint 10 11 l3tol(lp, cp, n) 12 long *lp; 13 char *cp; 14 int n; 15 { 16 register i; 17 register char *a, *b; 18 19 a = (char *)lp; 20 b = cp; 21 for(i=0;i<n;i++) { 22 #ifdef interdata 23 *a++ = 0; 24 *a++ = *b++; 25 *a++ = *b++; 26 *a++ = *b++; 27 #else 28 *a++ = *b++; 29 *a++ = *b++; 30 *a++ = *b++; 31 *a++ = 0; 32 #endif 33 } 34 } 35