*DECK     CCOUNT
          IDENT  CCOUNT 
          ENTRY  CCOUNT 
CCOUNT    SPACE  4,15 
**        CCOUNT - CHARACTER COUNT. 
* 
*         SYMPL CALL FORMAT 
*                I = CCOUNT(PAR)
* 
*         ENTRY  (A1)/(X1) = FWA OF PARAMETER.
* 
*         EXIT   (X6) = CHARACTER COUNT.
* 
*         USES   X - 0, 1, 2, 6.
*                A - 1. 
*                B - 1, 2.
  
  
 CCOUNT   SUBR               ENTRY/EXIT 
          SB1    1
          SA1    X1          GET PARAMETER
          MX0    -6 
          BX6    X6-X6
  
 CCO1     LX1    6
          BX2    -X0*X1      GET NEXT CHARACTER 
          ZR     X2,CCOUNTX  IF DONE WITH COUNTING
          SX2    X2-1R
          ZR     X2,CCOUNTX  IF BLANK CHARACTER 
          SX6    X6+B1       INCREMENT CHARACTER COUNT
          BX1    X0*X1       DELETE CURRENT CHARACTER 
          EQ     CCO1        CHECK NEXT CHARACTER 
  
          END 
