1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comccpt +++|          CTEXT  COMCCPT - COPY PREFIX TABLE.
00002  M01S00002.comccpt +++| CPT      SPACE  4
00003  M01S00003.comccpt +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comccpt +++|          QUAL   COMCCPT
00005  M01S00005.comccpt +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comccpt +++| CPT      SPACE  4
00009  M01S00008.comccpt +++|***       CPT - COPY PREFIX TABLE.
00010  M01S00009.comccpt +++|*         P. D. HAAS.  73/10/12.
00011  M01S00010.comccpt +++| CPT      SPACE  4
00012  M01S00011.comccpt +++|***              CPT EXTRACTS COMMENTS FROM THE 7700 TABLE
00013  M01S00012.comccpt +++|*         TO A PRINT LINE.  GARBAGE IN THE TABLE IS DISCARDED
00014  M01S00013.comccpt +++|*         AND COPY TERMINATES ON A ZERO BYTE OR *COPYRIGHT*.
00015  M01S00014.comccpt +++|*
00016  M01S00015.comccpt +++|*         ENTRY  (A1) = PREFIX TABLE ADDRESS.
00017  M01S00016.comccpt +++|*                (X1) = CONTROL WORD.
00018  M01S00017.comccpt +++|*                (A6) = ADDRESS OF WORKING STORAGE.
00019  M01S00018.comccpt +++|*                (B1) = 1.
00020  M01S00019.comccpt +++|*
00021  M01S00020.comccpt +++|*         EXIT   NONE.
00022  M01S00021.comccpt +++|*
00023  M01S00022.comccpt +++|*         USES   A - 3, 4, 6.
00024  M01S00023.comccpt +++|*                B - 3, 4.
00025  M01S00024.comccpt +++|*                X - 1, 2, 3, 4, 6.
00026  M01S00025.comccpt +++|*
00027  M01S00026.comccpt +++|*         CALLS  NONE.
00028  M01S00027.comccpt +++|
00029  M01S00028.comccpt +++|
00030  M01S00029.comccpt +++| CPT      PS     0           ENTRY/EXIT
00031  M01S00030.comccpt +++|          LX1    18
00032  M01S00031.comccpt +++|          SX3    X1-770000B  CHECK FOR PREFIX TABLE
00033  M01S00032.comccpt +++|          LX1    6
00034  M01S00033.comccpt +++|          NZ     X3,CPT2     IF NO PREFIX TABLE
00035  M01S00034.comccpt +++|          SB4    B1+B1
00036  M01S00035.comccpt +++|          SB3    X1+B1       SET LENGTH OF TABLE
00037  M01S00036.comccpt +++|          SA3    CPTA
00038  M01S00037.comccpt +++|          LE     B3,B4,CPT2  IF TOO SHORT TO COPY
00039  M01S00038.comccpt +++|          SA4    A1+B4       COPY DATE
00040  M01S00039.comccpt +++|          BX6    X4
00041  M01S00040.comccpt +++|          SB4    X1-10B      CHECK LENGTH
00042  M01S00041.comccpt +++|          SA6    A6+B1
00043  M01S00042.comccpt +++|          NG     B4,CPT2     IF TABLE .LT. 10B WORDS LONG
00044  M01S00043.comccpt +++|          SB4    10B
00045  M01S00044.comccpt +++|          SA4    A1+B4
00046  M01S00045.comccpt +++|          MX1    -12
00047  M01S00046.comccpt +++| CPT1     BX2    X4-X3
00048  M01S00047.comccpt +++|          LX6    X4
00049  M01S00048.comccpt +++|          ZR     X2,CPT2     IF *COPYRIGHT*
00050  M01S00049.comccpt +++|          BX4    -X1*X4
00051  M01S00050.comccpt +++|          SA6    A6+B1
00052  M01S00051.comccpt +++|          ZR     X4,CPT      IF END OF DATA
00053  M01S00052.comccpt +++|          SB4    B4+B1
00054  M01S00053.comccpt +++|          SA4    A1+B4       READ NEXT ENTRY
00055  M01S00054.comccpt +++|          NE     B4,B3,CPT1
00056  M01S00055.comccpt +++| CPT2     BX6    X6-X6       CLEAR END OF BUFFER
00057  M01S00056.comccpt +++|          SA6    A6+B1
00058  M01S00057.comccpt +++|          EQ     CPT         RETURN
00059  M01S00058.comccpt +++|
00060  M01S00059.comccpt +++| CPTA     DATA   10HCOPYRIGHT
00061  M01S00060.comccpt +++|          SPACE  4
00062  M01S00061.comccpt +++|          BASE   *
00063  M01S00062.comccpt +++| QUAL$    IF     -DEF,QUAL$
00064  M01S00063.comccpt +++|          QUAL   *
00065  M01S00064.comccpt +++| CPT      EQU    /COMCCPT/CPT
00066  M01S00065.comccpt +++| QUAL$    ENDIF
00067  M01S00066.comccpt +++|          ENDX