xref: /csrg-svn/lib/libc/vax/net/htons.s (revision 61235)
121442Sdist/*
2*61235Sbostic * Copyright (c) 1983, 1993
3*61235Sbostic *	The Regents of the University of California.  All rights reserved.
434814Sbostic *
542637Sbostic * %sccs.include.redist.c%
621442Sdist */
721442Sdist
834814Sbostic#if defined(LIBC_SCCS) && !defined(lint)
9*61235Sbostic	.asciz "@(#)htons.s	8.1 (Berkeley) 06/04/93"
1034814Sbostic#endif /* LIBC_SCCS and not lint */
1121442Sdist
129714Ssam/* hostorder = htons(netorder) */
139714Ssam
149714Ssam#include "DEFS.h"
159714Ssam
1634425SmckusickENTRY(htons, 0)
179714Ssam	rotl	$8,4(ap),r0
189714Ssam	movb	5(ap),r0
199714Ssam	movzwl	r0,r0
209714Ssam	ret
21