*DECK RSHIFT                                                             RSHIFT 
          IDENT  RSHIFT                                                  RSHIFT 
          TITLE  RSHIFT -  ARITHMETIC RIGHT SHIFT A WORD
  
          MACHINE  ANY,I
          COMMENT  ARITHMETIC RIGHT SHIFT A WORD
          SPACE  4
**        RSHIFT -  ARITHMETIC RIGHT SHIFT A WORD 
* 
*         RSHIFT(WORD,NBITS);                    (FROM SYMPL) 
* 
*         PERFORMS  AX<WORD>   X<WORD>,B<NBITS> 
  
                                                                         RSHIFT 
          ENTRY  RSHIFT                                                  RSHIFT 
 RSHIFT   CON    *           ENTRY/EXIT WORD                             RSHIFT 
          SA2    A1+1        GET ADDRESS OF SHIFT COUNT                  RSHIFT 
          SA3    X1          GET WORD                                    RSHIFT 
          SA4    X2          GET SHIFT COUNT                             RSHIFT 
          SB7    X4                                                      RSHIFT 
          AX6    X3,B7       PERFORM SHIFT                               RSHIFT 
          EQ     RSHIFT      RETURN                                      RSHIFT 
          END                                                            RSHIFT 
