*COMDECK  COUNTMC 
*** 
*         COUNT - COUNT NUMBER OF PARAMETERS
*          SPECIAL MACRO USED BY "BASIC" AND "INTRIN" MACROS IN 
*          FORMING BEFTB AND INTRINSIC FUNCTION TABLES. 
* 
  
 COUNT    MACRO  NPARAMS,NRS,TYPE,P1,P2 
          IFC    NE,//TYPE/ 
 .A       OCTMIC TYPE+1,2 
 TYMIC    MICRO  1,,/"TYMIC"_".A"/
 NPARAMS  SET    NPARAMS+1
 NRS      SET    NRS+1
          IFC    EQ,/TYPE/DOUBLE/,1 
 NRS      SET    NRS+1
          IFC    EQ,/TYPE/COMPLEX/,1
 NRS      SET    NRS+1
          IFC    EQ,/TYPE/ANYDBL/,1 
 NRS      SET    NRS+1
          IFC    NE,/P1// 
          COUNT  NPARAMS,NRS,P1,P2
          ENDIF 
  
 NPARAMS  DECMIC NPARAMS
 NRS      DECMIC NRS
          ENDM
