*DECK CSET63
          IDENT  CSET63 
          ENTRY  CSET63 
  
          TITLE  FUNC CSET63
**
*  CSET63 - SYMPL BOOLEAN FUNCTION TO TEST CHARACTER SET IN 
*           EFFECT [AT ASSEMBLY TIME].  IF THE 63 CHARACTER 
*           SET IS IN EFFECT, RETURN 'TRUE', NON-ZERO; ELSE, RETURN 
*           'FALSE', ZERO.
**
          SPACE  2,10 
 CSET63   SUBR                     ENTRY/EXIT 
          SX6    1R:  
          EQ     CSET63 
          END 
