as/cmd/SRA/sra_s.casl

   1 SLA2    START   BEGIN
   2 BEGIN   LAD     GR1,#8000
   3         SLA     GR1,1
   4         RET
   5         END