; PROGRAM UNIT ISWAP. THIS SUBROUTINE IS REFERENCED WITH THE
; CALL:
;	CALL ISWAP(IARRAY,NWORDS)
; THE PURPOSE OF THE ROUTINE IS TO SWAP BYTES IN EACH OF THE
; WORDS.
;
	.TITLE	ISWAP
	.GLOBL	ISWAP
ISWAP:	ADD	#2,R5		;POINT PAST # ARGUMENTS
	MOV	(R5)+,R1	;GET ADDRESS OF ARRAY
	MOV	@(R5),R0	;GET NUMBER OF WORDS
	BNE	$1		;BRANCH IF WORD COUNT NOT 0
	RTS	PC		;RETURN
$1:	SWAB	(R1)+		;SWAP BYTES AND INCREMENT
	DEC	R0		;DECREMENT COUNT
	BNE	$1		;LOOP FOR COUNT
	RTS	PC
	.END