*COMDECK  CCLSSN
          TITLE  CCLSSN  -  SKIP SEQUENCE NUMBERS 
**        CCLSSN  -  SKIP SEQUENCE NUMBERS
* 
*         IF THE HOST SYSTEM IS NOS THE PROCEDURE FILE MAY BE 
*         PRECEEDED BY SEQUENCE NUMBERS.  A SEQUENCE NUMBER IS DEFINED
*         TO BE ONE TO FIVE DIGITS FOLLOWED BY A BLANK. 
*         THIS LOGIC WAS COPIED FROM THE COMCSSN COMMON DECK OF NOS 
* 
*         ENTRY  A2  = HEADER ADDRESS 
*                X2  = HEADER 
* 
*         EXIT  X2,X7  = COUNT OF SEQUENCE CHARACTERS                    CL0103 
*                                                                        CL0103 
  
 CCLSSN   SUBR   =
          SB7    A2+B1       BUFFER ADDRESS 
          SX7    X2          CURRENT OFFSET 
          SA1    X2+B7       FETCH CURRENT CHARACTER
          SB4    -B1         INITIALIZE CHARACTER COUNT                  CL0103 
          SB6    1R0
          SB7    1R9
 SSN1     BSS 
          SB5    X1 
          SA1    A1+B1       NEXT CHAR
          SB4    B4+B1       COUNT CHARACTERS                            CL0103 
          LT     B5,B6,CCLSSN  EXIT IF CHAR ALPHA, THUS NO SEQUENCE NO. 
          GE     B7,B5,SSN1  CONTINUE IF DIGIT
          SB3    1R 
          SB7    5
          NE     B3,B5,CCLSSN  EXIT, DIGIT NOT FOLLOWED BY BLANK
          LT     B7,B4,CCLSSN  EXIT,TOO MANY DIGITS 
          ZR     B4,CCLSSN   IF NO DIGITS, JUST LEADING BLANK 
* 
*         SEQUENCE NUMBER EXISTS, UPDATE HEADER IN X2 
* 
          SX7    B4+B1       DIGITS + BLANK                              CL0103 
          IX7    X2+X7
          SA7    A2          UPDATE HEADER
          BX2    X7          UPDATE X2
          JP     CCLSSN 
