.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