MAIN    START   BEGIN
BEGIN   LD      GR1,A
        CALL    COPY
        ST      GR2,B
        RET
A       DC      29
B       DS      1
        END
COPY    START
        LD      GR2,GR1
        RET
        END