.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