as/sra4.casl

   1 SRA4    START   BEGIN
   2 BEGIN   LD  GR0,X
   3         LD  GR1,Y
   4         SRA GR0,1,GR1
   5         RET
   6 X   DC  #A238
   7 Y   DC  2
   8         END