;Copyright (c) 1982, 1986 Regents of the University of California.
;All rights reserved.
;Redistribution and use in source and binary forms are permitted
;provided that this notice is preserved and that due credit is given
;to the University of California at Berkeley. The name of the University
;may not be used to endorse or promote products derived from this
;software without specific prior written permission. This software
;is provided ``as is'' without express or implied warranty.

	.entry	htons,^m<>
; convert 16 bit quantity to network byte order,
; which means byte swap on a vax
	rotl	#8,4(ap),r0	; shift low order byte over by one
	movb	5(ap),r0	; move high byte in.
	movzwl	r0,r0		; and zero anything left over
	ret
	.end