;;; LAD r,adr
MAIN    START
        LAD     GR1,='A'
        RET
        END