C
c	.ENTRY	ISWAP	^M<>
c	 MOVL	B^4(AP),R1
c	 MOVL	(R1),R0
c	 MOVW	B^-1(R1),R0
c	 MOVB	B^1(R1),R0
c	 RET
c
	function iswap(i)

	call mvbits(i, 0, 8, iswap, 8)   	! move low byte of the input
						! to the high byte of return
	call mvbits(i, 8, 8, iswap, 0)          ! move high byte of the input
						! to the low byte of return
	end