Common COMCCPT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comccpt +++|          CTEXT  COMCCPT - COPY PREFIX TABLE.
00002  M00S00002.comccpt +++| CPT      SPACE  4
00003  M00S00003.comccpt +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comccpt +++|          QUAL   COMCCPT
00005  M00S00005.comccpt +++|          BASE   D

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comccpt +++| CPT      SPACE  4
00009  M00S00008.comccpt +++|***       CPT - COPY PREFIX TABLE.
00010  M00S00009.comccpt +++|*         P. D. HAAS.  73/10/12.
00011  M00S00010.comccpt +++| CPT      SPACE  4
00012  M00S00011.comccpt +++|***              CPT EXTRACTS COMMENTS FROM THE 7700 TABLE
00013  M00S00012.comccpt +++|*         TO A PRINT LINE.  GARBAGE IN THE TABLE IS DISCARDED
00014  M00S00013.comccpt +++|*         AND COPY TERMINATES ON A ZERO BYTE OR *COPYRIGHT*.
00015  M00S00014.comccpt +++|*
00016  M00S00015.comccpt +++|*         ENTRY  (A1) = PREFIX TABLE ADDRESS.
00017  M00S00016.comccpt +++|*                (X1) = CONTROL WORD.
00018  M00S00017.comccpt +++|*                (A6) = ADDRESS OF WORKING STORAGE.
00019  M00S00018.comccpt +++|*                (B1) = 1.
00020  M00S00019.comccpt +++|*
00021  M00S00020.comccpt +++|*         EXIT   NONE.
00022  M00S00021.comccpt +++|*
00023  M00S00022.comccpt +++|*         USES   A - 3, 4, 6.
00024  M00S00023.comccpt +++|*                B - 3, 4.
00025  M00S00024.comccpt +++|*                X - 1, 2, 3, 4, 6.
00026  M00S00025.comccpt +++|*
00027  M00S00026.comccpt +++|*         CALLS  NONE.
00028  M00S00027.comccpt +++|
00029  M00S00028.comccpt +++|
00030  M00S00029.comccpt +++| CPT      PS     0           ENTRY/EXIT
00031  M00S00030.comccpt +++|          LX1    18
00032  M00S00031.comccpt +++|          SX3    X1-770000B  CHECK FOR PREFIX TABLE
00033  M00S00032.comccpt +++|          LX1    6
00034  M00S00033.comccpt +++|          NZ     X3,CPT2     IF NO PREFIX TABLE
00035  M00S00034.comccpt +++|          SB4    B1+B1
00036  M00S00035.comccpt +++|          SB3    X1+B1       SET LENGTH OF TABLE
00037  M00S00036.comccpt +++|          SA3    CPTA
00038  M00S00037.comccpt +++|          LE     B3,B4,CPT2  IF TOO SHORT TO COPY
00039  M00S00038.comccpt +++|          SA4    A1+B4       COPY DATE
00040  M00S00039.comccpt +++|          BX6    X4
00041  M00S00040.comccpt +++|          SB4    X1-10B      CHECK LENGTH
00042  M00S00041.comccpt +++|          SA6    A6+B1
00043  M00S00042.comccpt +++|          NG     B4,CPT2     IF TABLE .LT. 10B WORDS LONG
00044  M00S00043.comccpt +++|          SB4    10B
00045  M00S00044.comccpt +++|          SA4    A1+B4
00046  M00S00045.comccpt +++|          MX1    -12
00047  M00S00046.comccpt +++| CPT1     BX2    X4-X3
00048  M00S00047.comccpt +++|          LX6    X4
00049  M00S00048.comccpt +++|          ZR     X2,CPT2     IF *COPYRIGHT*
00050  M00S00049.comccpt +++|          BX4    -X1*X4
00051  M00S00050.comccpt +++|          SA6    A6+B1
00052  M00S00051.comccpt +++|          ZR     X4,CPT      IF END OF DATA
00053  M00S00052.comccpt +++|          SB4    B4+B1
00054  M00S00053.comccpt +++|          SA4    A1+B4       READ NEXT ENTRY
00055  M00S00054.comccpt +++|          NE     B4,B3,CPT1
00056  M00S00055.comccpt +++| CPT2     BX6    X6-X6       CLEAR END OF BUFFER
00057  M00S00056.comccpt +++|          SA6    A6+B1
00058  M00S00057.comccpt +++|          EQ     CPT         RETURN
00059  M00S00058.comccpt +++|
00060  M00S00059.comccpt +++| CPTA     DATA   10HCOPYRIGHT
00061  M00S00060.comccpt +++|          SPACE  4
00062  M00S00061.comccpt +++|          BASE   *
00063  M00S00062.comccpt +++| QUAL$    IF     -DEF,QUAL$
00064  M00S00063.comccpt +++|          QUAL   *
00065  M00S00064.comccpt +++| CPT      EQU    /COMCCPT/CPT
00066  M00S00065.comccpt +++| QUAL$    ENDIF
00067  M00S00066.comccpt +++|          ENDX