xref: /csrg-svn/lib/libc/string/swab.c (revision 1991)
1*1991Swnj /* @(#)swab.c	4.1 (Berkeley) 12/21/80 */
2*1991Swnj /*
3*1991Swnj  * Swap bytes in 16-bit [half-]words
4*1991Swnj  * for going between the 11 and the interdata
5*1991Swnj  */
6*1991Swnj 
7*1991Swnj swab(pf, pt, n)
8*1991Swnj register short *pf, *pt;
9*1991Swnj register n;
10*1991Swnj {
11*1991Swnj 
12*1991Swnj 	n /= 2;
13*1991Swnj 	while (--n >= 0) {
14*1991Swnj 		*pt++ = (*pf << 8) + ((*pf >> 8) & 0377);
15*1991Swnj 		pf++;
16*1991Swnj 	}
17*1991Swnj }
18