.TITLE	ntohl

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

	.end