*DECK C$RMASK 
          IDENT  C$RMASK
          TITLE  C.RMASK -  TABLE OF RIGHT MASKS
          COMMENT  TABLE OF RIGHT MASKS 
          MACHINE  ANY
          SPACE  4
**        C.RMASK -  TABLE OF RIGHT MASKS 
* 
*         THE INSTRUCTION 
*         SA1    =X_C.RMASK+B3
*         WILL SET X1 = (10-B3)00-S, (B3)77-S.
  
  
          ENTRY  C.RMASK
 C.RMASK  DATA   00000000000000000000B           0
          DATA   00000000000000000077B           1
          DATA   00000000000000007777B           2
          DATA   00000000000000777777B           3
          DATA   00000000000077777777B           4
          DATA   00000000007777777777B           5
          DATA   00000000777777777777B           6
          DATA   00000077777777777777B           7
          DATA   00007777777777777777B           8
          DATA   00777777777777777777B           9
          DATA   77777777777777777777B          10
          SPACE  4
          END 
