*DECK NP$CS63 
          IDENT  NP$CS63
          ENTRY  NP$CS63
  
          TITLE  FUNC NP$CS63 
**
*  NP$CS63- 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 
 NP$CS63  SUBR                     ENTRY/EXIT 
          SX6    1R:  
          EQ     NP$CS63
          END