	.TITLE	SWAP BYTES IN 256-WORD ARRAY

	.MCALL	..V2..,.REGDEF

	..V2..

	.REGDEF

	.GLOBL	SWAPB

SWAPB:	TST	(R5)+	; MOVE POINTER TO POINT TO ARRAY
	MOV	(R5)+,R0	; PICK UP ARRAY POINTER
	MOV	#256.,R2	; INITIALIZE COUNTER
SWAPB1:	MOV	(R0),R1		; PICK UP WORD
	SWAB	R1		; SWAP BYTES
	MOV	R1,(R0)+	; AND RETURN TO ORIGINAL LOCATION
	DEC	R2		; ACCOUNT FOR PROCESS
	BNE	SWAPB1		; AND DO MORE IF REQUIRED
	RTS	PC
	.END
                                                                                  