.NLIST  TTM,SYM                                                         
        .TITLE  SWAPB -- FORTRAN SWAP BYTES SUBROUTINE                          
        .PSECT  SWAPB                                                           
        .GLOBL  SWAPB                                                           
SWAPB:	TST	(R5)+		;SKIP THE ARG COUNT
	MOV     @(R5)+,R0       ;GET THE  ARGUMENT                              
        SWAB    R0              ;ZAP! SWAP THE BYTES!                           
	BIC	#100200,R0	;KILL THE DUMB PARITY BITS!!!!!!!!
        RTS	PC                   ;AND GO HOME.                                   
        .END