.TITLE	htonl

	.entry	htonl,^m<>
	rotl	#-8,4(ap),r0
	insv	r0,#16,#8,r0
	movb	7(ap),r0
	ret

	.end