	.TITLE	ISWAB


;	* * * FORTRAN UTILITY SOFTWARE MODULE * * *


;	FORTRAN BYTE-SWAPPING FUNCTION. SWAPPED RESULT RETURNED IN R0.

;	ALL NEW CODE: 22 NOVEMBER 77

;	PROGRAMMER: KEN DINWIDDIE

	.MCALL	.REGDEF

	.REGDEF

	.GLOBL	ISWAB


ISWAB:	TST	(R5)+		; ADVANCE POINTER TO ARGUMENT
	MOV	@(R5)+,R0	; BRING VALUE TO R0
	SWAB	R0		; SWAP BYTES THEREIN
	RTS	PC
	.END
                                                                                                                              