Common COMCSSN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcssn +++|          CTEXT  COMCSSN - SKIP SEQUENCE NUMBER.
00002  M00S00002.comcssn +++| SSN      SPACE  4
00003  M00S00003.comcssn +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcssn +++|          QUAL   COMCSSN
00005  M00S00005.comcssn +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcssn +++| SSN      SPACE  4
00009  M00S00008.comcssn +++|***       SSN - SKIP SEQUENCE NUMBER.
00010  M00S00009.comcssn +++|*         G. R. MANSFIELD.  70/10/25.
00011  M00S00010.comcssn +++| SSN      SPACE  4
00012  M00S00011.comcssn +++|***              SSN SKIPS A SEQUENCE NUMBER ON A CODED LINE IF
00013  M00S00012.comcssn +++|*         PRESENT.  A SEQUENCE NUMBER IS DEFINED AS 1 TO 5 DIGITS
00014  M00S00013.comcssn +++|*         FOLLOWED BY A SPACE.
00015  M00S00014.comcssn +++|*
00016  M00S00015.comcssn +++|*         ENTRY  (A1) = FIRST CHARACTER ADDRESS.
00017  M00S00016.comcssn +++|*                (X1) = FIRST CHARACTER.
00018  M00S00017.comcssn +++|*                (B1) = 1.
00019  M00S00018.comcssn +++|*
00020  M00S00019.comcssn +++|*         EXIT   (A1) = ADDRESS OF FIRST CHARACTER AFTER SEQUENCE
00021  M00S00020.comcssn +++|*                            NUMBER.
00022  M00S00021.comcssn +++|*
00023  M00S00022.comcssn +++|*         USES   X - 1, 2, 6, 7.
00024  M00S00023.comcssn +++|*                B - 2, 3, 4.
00025  M00S00024.comcssn +++|*                A - 1.
00026  M00S00025.comcssn +++|*
00027  M00S00026.comcssn +++|*         CALLS  NONE.
00028  M00S00027.comcssn +++|
00029  M00S00028.comcssn +++|
00030  M00S00029.comcssn +++| SSN      PS                 ENTRY/EXIT
00031  M00S00030.comcssn +++|          SA2    SSNA        MASK FOR <0123456789>
00032  M00S00031.comcssn +++|          SB2    A1          SAVE ORIGINAL POSITION
00033  M00S00032.comcssn +++|          SB3    -B1         CLEAR CHARACTER COUNT
00034  M00S00033.comcssn +++| SSN1     SB4    X1          CHECK CHARACTER
00035  M00S00034.comcssn +++|          LX6    X2,B4
00036  M00S00035.comcssn +++|          SB3    B3+B1       COUNT CHARACTER
00037  M00S00036.comcssn +++|          SA1    A1+B1       NEXT CHARACTER
00038  M00S00037.comcssn +++|          NG     X6,SSN1     LOOP IF DIGIT
00039  M00S00038.comcssn +++|          ZR     B3,SSN2     IF NO LEADING DIGIT
00040  M00S00039.comcssn +++|          SX6    B4-1R       CHECK CHARACTER
00041  M00S00040.comcssn +++|          NZ     X6,SSN2     IF NOT SPACE
00042  M00S00041.comcssn +++|          SB3    B3-6
00043  M00S00042.comcssn +++|          NG     B3,SSN      RETURN IF 5 OR LESS DIGITS
00044  M00S00043.comcssn +++| SSN2     SA1    B2          RESET CHARACTER ADDRESS
00045  M00S00044.comcssn +++|          EQ     SSN         RETURN
00046  M00S00045.comcssn +++|
00047  M00S00046.comcssn +++| SSNA     CON    1777BS23
00048  M00S00047.comcssn +++|          SPACE  4
00049  M00S00048.comcssn +++|          BASE   *
00050  M00S00049.comcssn +++| QUAL$    IF     -DEF,QUAL$
00051  M00S00050.comcssn +++|          QUAL   *
00052  M00S00051.comcssn +++| SSN      EQU    /COMCSSN/SSN
00053  M00S00052.comcssn +++| QUAL$    ENDIF
00054  M00S00053.comcssn +++|          ENDX