;;; SRA r,adr 負数
SRA2    START   BEGIN
BEGIN   LAD     GR1,#A000
        SRA     GR1,13
        RET
        END