        .ASECT
        .=100

        MOV     #1000,R1
        MOV     #150000,R2
        MOV     #111,R3
L:      MOV     (R1)+,(R2)+
        SOB     R3,L
        HALT


