root/as/sample/ldlad.casl

MAIN    START
        LAD     GR1,1
        LAD     GR2,X
        LD      GR3,GR2
        LD      GR4,X
        ST      GR3,Y
        ST      GR4,Y,GR1
        RET
X       DC      3
Y       DS      2
        END