[YACASL2.git] / as / cmd / SRA / sra.casl

;;; SRA r,adr
MAIN    START
        LAD     GR1,#6000
        SRA     GR1,13
        RET
        END