1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcssn +++|          CTEXT  COMCSSN - SKIP SEQUENCE NUMBER.
00002  M01S00002.comcssn +++| SSN      SPACE  4
00003  M01S00003.comcssn +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcssn +++|          QUAL   COMCSSN
00005  M01S00005.comcssn +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcssn +++| SSN      SPACE  4
00009  M01S00008.comcssn +++|***       SSN - SKIP SEQUENCE NUMBER.
00010  M01S00009.comcssn +++|*         G. R. MANSFIELD.  70/10/25.
00011  M01S00010.comcssn +++| SSN      SPACE  4
00012  M01S00011.comcssn +++|***              SSN SKIPS A SEQUENCE NUMBER ON A CODED LINE IF
00013  M01S00012.comcssn +++|*         PRESENT.  A SEQUENCE NUMBER IS DEFINED AS 1 TO 5 DIGITS
00014  M01S00013.comcssn +++|*         FOLLOWED BY A SPACE.
00015  M01S00014.comcssn +++|*
00016  M01S00015.comcssn +++|*         ENTRY  (A1) = FIRST CHARACTER ADDRESS.
00017  M01S00016.comcssn +++|*                (X1) = FIRST CHARACTER.
00018  M01S00017.comcssn +++|*                (B1) = 1.
00019  M01S00018.comcssn +++|*
00020  M01S00019.comcssn +++|*         EXIT   (A1) = ADDRESS OF FIRST CHARACTER AFTER SEQUENCE
00021  M01S00020.comcssn +++|*                            NUMBER.
00022  M01S00021.comcssn +++|*
00023  M01S00022.comcssn +++|*         USES   X - 1, 2, 6, 7.
00024  M01S00023.comcssn +++|*                B - 2, 3, 4.
00025  M01S00024.comcssn +++|*                A - 1.
00026  M01S00025.comcssn +++|*
00027  M01S00026.comcssn +++|*         CALLS  NONE.
00028  M01S00027.comcssn +++|
00029  M01S00028.comcssn +++|
00030  M01S00029.comcssn +++| SSN      PS                 ENTRY/EXIT
00031  M01S00030.comcssn +++|          SA2    SSNA        MASK FOR <0123456789>
00032  M01S00031.comcssn +++|          SB2    A1          SAVE ORIGINAL POSITION
00033  M01S00032.comcssn +++|          SB3    -B1         CLEAR CHARACTER COUNT
00034  M01S00033.comcssn +++| SSN1     SB4    X1          CHECK CHARACTER
00035  M01S00034.comcssn +++|          LX6    X2,B4
00036  M01S00035.comcssn +++|          SB3    B3+B1       COUNT CHARACTER
00037  M01S00036.comcssn +++|          SA1    A1+B1       NEXT CHARACTER
00038  M01S00037.comcssn +++|          NG     X6,SSN1     LOOP IF DIGIT
00039  M01S00038.comcssn +++|          ZR     B3,SSN2     IF NO LEADING DIGIT
00040  M01S00039.comcssn +++|          SX6    B4-1R       CHECK CHARACTER
00041  M01S00040.comcssn +++|          NZ     X6,SSN2     IF NOT SPACE
00042  M01S00041.comcssn +++|          SB3    B3-6
00043  M01S00042.comcssn +++|          NG     B3,SSN      RETURN IF 5 OR LESS DIGITS
00044  M01S00043.comcssn +++| SSN2     SA1    B2          RESET CHARACTER ADDRESS
00045  M01S00044.comcssn +++|          EQ     SSN         RETURN
00046  M01S00045.comcssn +++|
00047  M01S00046.comcssn +++| SSNA     CON    1777BS23
00048  M01S00047.comcssn +++|          SPACE  4
00049  M01S00048.comcssn +++|          BASE   *
00050  M01S00049.comcssn +++| QUAL$    IF     -DEF,QUAL$
00051  M01S00050.comcssn +++|          QUAL   *
00052  M01S00051.comcssn +++| SSN      EQU    /COMCSSN/SSN
00053  M01S00052.comcssn +++| QUAL$    ENDIF
00054  M01S00053.comcssn +++|          ENDX