COMCSSN 
COMMON
          CTEXT  COMCSSN - SKIP SEQUENCE NUMBER.
 SSN      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCSSN
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SSN      SPACE  4
***       SSN - SKIP SEQUENCE NUMBER. 
*         G. R. MANSFIELD.  70/10/25. 
 SSN      SPACE  4
***              SSN SKIPS A SEQUENCE NUMBER ON A CODED LINE IF 
*         PRESENT.  A SEQUENCE NUMBER IS DEFINED AS 1 TO 5 DIGITS 
*         FOLLOWED BY A SPACE.
* 
*         ENTRY  (A1) = FIRST CHARACTER ADDRESS.
*                (X1) = FIRST CHARACTER.
*                (B1) = 1.
* 
*         EXIT   (A1) = ADDRESS OF FIRST CHARACTER AFTER SEQUENCE 
*                            NUMBER.
* 
*         USES   X - 1, 2, 6, 7.
*                B - 2, 3, 4. 
*                A - 1. 
* 
*         CALLS  NONE.
  
  
 SSN      PS                 ENTRY/EXIT 
          SA2    SSNA        MASK FOR <0123456789>
          SB2    A1          SAVE ORIGINAL POSITION 
          SB3    -B1         CLEAR CHARACTER COUNT
 SSN1     SB4    X1          CHECK CHARACTER
          LX6    X2,B4
          SB3    B3+B1       COUNT CHARACTER
          SA1    A1+B1       NEXT CHARACTER 
          NG     X6,SSN1     LOOP IF DIGIT
          ZR     B3,SSN2     IF NO LEADING DIGIT
          SX6    B4-1R       CHECK CHARACTER
          NZ     X6,SSN2     IF NOT SPACE 
          SB3    B3-6 
          NG     B3,SSN      RETURN IF 5 OR LESS DIGITS 
 SSN2     SA1    B2          RESET CHARACTER ADDRESS
          EQ     SSN         RETURN 
  
 SSNA     CON    1777BS23 
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SSN      EQU    /COMCSSN/SSN 
 QUAL$    ENDIF 
          ENDX
