Common COMCCCE

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comccce +++|          CTEXT  COMCCCE - CONVERT CATALOG ENTRY.
00002  M00S00002.comccce +++|          SPACE  4,10
00003  M00S00003.comccce +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comccce +++|          QUAL   COMCCCE
00005  M00S00005.comccce +++|          BASE   D

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comccce +++| CCE      SPACE  4,10
00009  M00S00008.comccce +++|***       CCE - CONVERT CATALOG ENTRY.
00010  M00S00009.comccce +++|*         P. L. VERELL       78/09/05.
00011  M00S00010.comccce +++|          SPACE  4,10
00012  M00S00011.comccce +++|***              CCE CONVERTS AN 8 WORD CATALOG ENTRY TO A 16 WORD
00013  M00S00012.comccce +++|*         CATALOG ENTRY FORMAT.
00014  M00S00013.comccce +++|*
00015  M00S00014.comccce +++|*         ENTRY  (X4) = FWA OF CATALOG ENTRY IN 8 WORD FORMAT.
00016  M00S00015.comccce +++|*
00017  M00S00016.comccce +++|*         EXIT   CATALOG ENTRY IN 16 WORD FORMAT.
00018  M00S00017.comccce +++|*
00019  M00S00018.comccce +++|*         USES   A - 1, 2, 7.
00020  M00S00019.comccce +++|*                X - 1, 2, 3, 4, 7.
00021  M00S00020.comccce +++|
00022  M00S00021.comccce +++|
00023  M00S00022.comccce +++| CCE      SUBR               ENTRY/EXIT
00024  M00S00023.comccce +++|          SA1    X4+TCUC     RELOCATE USER CONTROL WORD
00025  M00S00024.comccce +++|          BX7    X1
00026  M00S00025.comccce +++|          SA7    X4+FCUC
00027  M00S00026.comccce +++|          MX3    -3          SAVE SUB-SYSTEM CODE
00028  M00S00027.comccce +++|          LX3    14-2
00029  M00S00028.comccce +++|          BX2    -X3*X1
00030  M00S00029.comccce +++|          LX2    50-14
00031  M00S00030.comccce +++|          SA1    X4+TCPW     RELOCATE FILE PASSWORD
00032  M00S00031.comccce +++|          BX7    X1
00033  M00S00032.comccce +++|          SA7    X4+FCPW
00034  M00S00033.comccce +++|          SA1    X4+TCIW     RELOCATE INSTALLATION WORD
00035  M00S00034.comccce +++|          BX7    X1
00036  M00S00035.comccce +++|          SA7    X4+FCIW
00037  M00S00036.comccce +++|          SA1    X4+FCMD     SET CHANGE MODIFICATION DATE/TIME
00038  M00S00037.comccce +++|          MX3    -36
00039  M00S00038.comccce +++|          BX7    -X3*X1
00040  M00S00039.comccce +++|          SA7    X4+FCKD
00041  M00S00040.comccce +++|          BX7    X2+X7       RELOCATE SUB-SYSTEM CODE
00042  M00S00041.comccce +++|          SX2    RSDE        SET PREFERRED FESIDENCE CODE
00043  M00S00042.comccce +++|          LX2    59-2
00044  M00S00043.comccce +++|          BX7    X2+X7
00045  M00S00044.comccce +++|          SX2    BRDE        SET BACKUP REQUIREMENT CODE
00046  M00S00045.comccce +++|          LX2    56-2
00047  M00S00046.comccce +++|          BX7    X2+X7
00048  M00S00047.comccce +++|          SA7    X4+FCUD     SET UTILITY CONTROL DATE/TIME
00049  M00S00048.comccce +++|          BX7    X7-X7       CLEAR ALL CDC RESERVED WORDS
00050  M00S00049.comccce +++|          SA7    A7+2
00051  M00S00050.comccce +++|          SA7    A7+B1
00052  M00S00051.comccce +++|          SA7    A7+B1
00053  M00S00052.comccce +++|          SA7    A7+B1
00054  M00S00053.comccce +++|          SA7    A7+B1
00055  M00S00054.comccce +++|          SA7    A7+B1
00056  M00S00055.comccce +++|          EQ     CCEX        EXIT
00057  M00S00056.comccce +++|          SPACE  4,10
00058  M00S00057.comccce +++|**        8 WORD FORMAT ENTRY LOCATIONS REQUIRING RELOCATION.
00059  M00S00058.comccce +++|
00060  M00S00059.comccce +++| TCIW     EQU    5           INSTALLATION WORD (60 BITS)
00061  M00S00060.comccce +++| TCPW     EQU    6           FILE PASSWORD (42 BITS)
00062  M00S00061.comccce +++| TCUC     EQU    7           USER CONTROL WORD (60 BITS)
00063  M00S00062.comccce +++|          SPACE  4,10
00064  M00S00063.comccce +++|          BASE   *
00065  M00S00064.comccce +++| QUAL$    IF     -DEF,QUAL$
00066  M00S00065.comccce +++|          QUAL   *
00067  M00S00066.comccce +++| CCE      EQU    /COMCCCE/CCE
00068  M00S00067.comccce +++| QUAL$    ENDIF
00069  M00S00068.comccce +++|          ENDX