/* swab - swap (hi/lo) bytes in an area of memory */
/*	constructed to allow in-place swabs (fr==to) */
#include <portab.h>

WORD swab(fr,to,nbs)
	REG BYTE *fr;
	REG BYTE *to;
	REG WORD nbs;
{
	REG BYTE t;
	for( ; nbs>0; nbs -= 2, fr += 2, to += 2) {
		t = fr[0];
		to[0] = fr[1];
		to[1] = t;
	}
	return(0);
}