MAIN    START
        LAD     GR1,29
        CALL    COPY
        RET
        END
COPY    START
        LD      GR2,GR1
        RET
        END