;SUBROUTINE CONVERTS 3 RT/11 16 BIT WORDS INTO ;4 OS/8 12 BIT WORDS .GLOBL SWAP SWAP: TST (R5)+ MOV (R5)+,R3 MOV (R5)+,R4 MOV (R3)+,T1 SWAB T1 MOV T1,ST1 CLC ROR ST1 ASR ST1 ASR ST1 ASR ST1 MOV ST1,(R4)+ MOV (R3)+,T2 SWAB T2 MOVB T2,ST2 SWAB T2 BIC #177400,T2 SWAB T1 BIC #170377,T1 BIS T1,T2 MOV T2,(R4)+ SWAB ST2 MOV (R3)+,T3 MOV T3,T4 BIC #177417,T3 BIS T3,ST2 CLC ROR ST2 ASR ST2 ASR ST2 ASR ST2 MOV ST2,(R4)+ SWAB T4 BIC #170000,T4 MOV T4,(R4)+ RTS PC T1: .WORD 0 T2: .WORD 0 T3: .WORD 0 T4: .WORD 0 ST1: .WORD 0 ST2: .WORD 0 .END