Deck VCC

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.vcc     +++|          IDENT  VCC
00002  M01S00002.vcc     +++|          BASE   MIXED
00003  M01S00003.vcc     +++|          SST
00004  M01S00004.vcc     +++|*COMMENT  VCC - VERIFY CTI CONSTANTS.

Line S00005 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP.  1984.
00006  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.vcc     +++|          TITLE  VCC - VERIFY CTI CONSTANTS.
00008  M01S00007.vcc     +++|          SPACE  4,10
00009  M01S00008.vcc     +++|*****     VCC - VERIFY CTI CONSTANTS.
00010  M01S00009.vcc     +++|*         P. T. BARNETT.     84/03/13.
00011  M01S00010.vcc     +++|          SPACE  4,10
00012  M01S00011.vcc     +++|***       *VCC* PERFORMS ASSEMBLY CHECKS ON VARIOUS *CTI*
00013  M01S00012.vcc     +++|*         COMMUNICATIONS CONSTANTS THAT ARE DEFINED IN *CTITEXT*.
00014  M01S00013.vcc     +++|*         THESE TAGS DO NOT MEET *NOS* CODING STANDARDS, THEREFORE
00015  M01S00014.vcc     +++|*         THE INDIVIDUAL VALUES ARE DEFINED BY DIFFERENT SYMBOLS IN
00016  M01S00015.vcc     +++|*         *COMSDSL*, AND THIS DECK VERIFIES THAT THEY MATCH.  ALSO,
00017  M01S00016.vcc     +++|*         THIS AVOIDS THE NEED FOR *CTITEXT* FOR ASSEMBLY FOR A LARGE
00018  M01S00017.vcc     +++|*         NUMBER OF *NOS* DECKS.
00019  M01S00018.vcc     +++|          SPACE  4,10
00020  M01S00019.vcc     +++|**        COMMON DECKS.
00021  M01S00020.vcc     +++|
00022  M01S00021.vcc     +++|*CALL     COMPMAC
00023  M01S00022.vcc     +++|*CALL     COMSDSL
00024  M01S00001.242l642 +++| RANGE    SPACE  4,10
00025  M01S00002.242l642 +++|***       RANGE - TEST THE RANGE OF *CTITEXT* SYMBOLS.
00026  M01S00003.242l642 +++|*
00027  M01S00004.242l642 +++|*         THE VALUE OF THE *CTITEXT* SYMBOL MUST BE .GE. THE VALUE OF
00028  M01S00005.242l642 +++|*         THE *COMSDSL* SYMBOL AND .LE. *MLED*.
00029  M01S00006.242l642 +++|*
00030  M01S00007.242l642 +++|*         RANGE  DSLSYM,CTISYM
00031  M01S00008.242l642 +++|*
00032  M01S00009.242l642 +++|*         ENTRY  *DSLSYM* = A SYMBOL DEFINED IN *COMSDSL*.
00033  M01S00010.242l642 +++|*                *CTISYM* = THE CORRESPONDING SYMBOL FROM *CTITEXT*.
00034  M01S00011.242l642 +++|
00035  M01S00012.242l642 +++|
00036  M01S00013.242l642 +++|          PURGMAC  RANGE
00037  M01S00014.242l642 +++|
00038  M01S00015.242l642 +++| RANGE    MACRO  DSLSYM,CTISYM
00039  M01S00016.242l642 +++|          ERRPL  DSLSYM-CTISYM-1
00040  M01S00017.242l642 +++|          ERRNG  MLED-CTISYM
00041  M01S00018.242l642 +++|          ENDM
00042  M01S00023.vcc     +++|          TITLE  ASSEMBLY CHECKS.
00043  M01S00024.vcc     +++|**        IN THE FOLLOWING ASSEMBLY CHECKS, THE CONVENTION IS THAT
00044  M01S00025.vcc     +++|*         THE *NOS* SYMBOL WILL BE ON THE LEFT, AND THE *CTITEXT*
00045  M01S00026.vcc     +++|*         SYMBOL WILL BE ON THE RIGHT.
00046  M01S00027.vcc     +++|          SPACE  4,10
00047  M01S00028.vcc     +++|*         PP 0 HANDOFF DATA.
00048  M01S00029.vcc     +++|
00049  M01S00030.vcc     +++|          ERRNZ  APPC-CTIAPP    *APP* NUMBER
00050  M01S00031.vcc     +++|          ERRNZ  DCST-CTIDCP    DISPLAY CONSOLE POINTER
00051  M01S00032.vcc     +++|          SPACE  4,10
00052  M01S00033.vcc     +++|*         *APP* FUNCTION CODES.
00053  M01S00034.vcc     +++|
00054  M01S00035.vcc     +++|          ERRNZ  DPIS-CTIDPI    SEND DEADSTART PANEL IMAGE
00055  M01S00036.vcc     +++|          ERRNZ  CPTS-CTICPT    SEND COMMON POINTER IMAGE
00056  M01S00037.vcc     +++|          ERRNZ  OHDS-CTIHDTO   SEND OLD HARDWARE DESCRIPTOR TABLE
00057  M01S00038.vcc     +++|          ERRNZ  EMDS-CTIEMID   SEND EI/MICROCODE ID (DISPLAY CODE)
00058  M01S00039.vcc     +++|          ERRNZ  DIDS-CTIDDI    SEND DEADSTART DEVICE ID
00059  M01S00040.vcc     +++|          ERRNZ  EMAS-CTIEMIDA  SEND EI/MICROCODE ID (ASCII)
00060  M01S00041.vcc     +++|          ERRNZ  NHDS-CTIHDTN   SEND NEW HARDWARE DESCRIPTOR TABLE
00061  M01S00042.vcc     +++|          ERRNZ  IUDS-CTIIOD    SEND IOU PORTION OF HDT
00062  M01S00043.vcc     +++|          ERRNZ  CMDS-CTICMD    SEND CM PORTION OF HDT
00063  M01S00044.vcc     +++|          ERRNZ  CPDS-CTICPD    SEND CPU PORTION OF HDT
00064  M01S00045.vcc     +++|          ERRNZ  MFDS-CTIMFD    SEND MAINFRAME PORTION OF HDT
00065  M01S00046.vcc     +++|          ERRNZ  FLPS-CTIFLD    SEND FLPP PORTION OF HDT
00066  M01S00047.vcc     +++|          ERRNZ  CIDS-CTIDCD    SEND CONSOLE ID PORTION OF HDT

Line S00048 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00048.241l630 ---|          ERRNZ  CFTS-CTICFT    SEND CENTRAL MEMORY FLAW TABLE
00068  M01S00001.241l630 +++|          ERRNZ  CMFS-CTICFT    SEND CENTRAL MEMORY FLAW TABLE
00069  M01S00049.vcc     +++|          ERRNZ  CDAS-CTIRCD    SEND PROGRAM FROM COMMON DISK AREA
00070  M01S00050.vcc     +++|          ERRNZ  RPCS-CTIAOC    REMOVE PP FROM CHANNEL
00071  M01S00051.vcc     +++|          ERRNZ  CCCS-CTICCC    CHANGE COMMUNICATION CHANNEL
00072  M01S00052.vcc     +++|          ERRNZ  MAPS-CTIMPP    MOVE *APP* TO ANOTHER PP
00073  M01S00053.vcc     +++|          SPACE  4,10
00074  M01S00054.vcc     +++|*         DESCRIPTOR LENGTHS.
00075  M01S00055.vcc     +++|

Line S00056 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00056.242l642 ---|          ERRNZ  DPISL-CTIDPLN  DEADSTART PANEL IMAGE

Line S00057 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00057.242l642 ---|          ERRNZ  CPTSL-CTICPLN  COMMON POINTER TABLE

Line S00058 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00058.242l642 ---|          ERRNZ  DIDSL-CTIDDLN  DEADSTART DEVICE ID

Line S00059 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00059.242l642 ---|          ERRNZ  IUDSL-CTIIOLN  IOU PORTION OF HDT

Line S00060 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00060.242l642 ---|          ERRNZ  CMDSL-CTICMLN  CM PORTION OF HDT

Line S00061 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00061.242l642 ---|          ERRNZ  CPDSL-CTICPDLN CPU PORTION OF HDT

Line S00062 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00062.242l642 ---|          ERRNZ  MFDSL-CTIMFLN  MAINFRAME PORTION OF HDT

Line S00063 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00063.242l642 ---|          ERRNZ  FLPSL-CTIFLLN  FLPP PORTION OF HDT

Line S00064 Modification History
`M01` (Added by)	`vcc`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00064.242l642 ---|          ERRNZ  CIDSL-CTIDCLN  CONSOLE ID
00085  M01S00019.242l642 +++|          RANGE  DPISL,CTIDPLN  DEADSTART PANEL IMAGE
00086  M01S00020.242l642 +++|          RANGE  CPTSL,CTICPLN  COMMON POINTER TABLE
00087  M01S00021.242l642 +++|          RANGE  DIDSL,CTIDDLN  DEADSTART DEVICE ID
00088  M01S00022.242l642 +++|          RANGE  IUDSL,CTIIOLN  IOU PORTION OF HDT
00089  M01S00023.242l642 +++|          RANGE  CMDSL,CTICMLN  CM PORTION OF HDT
00090  M01S00024.242l642 +++|          RANGE  CPDSL,CTICPDLN  CPU PORTION OF HDT
00091  M01S00025.242l642 +++|          RANGE  MFDSL,CTIMFLN  MAINFRAME PORTION OF HDT
00092  M01S00026.242l642 +++|          RANGE  FLPSL,CTIFLLN  FLPP PORTION OF HDT
00093  M01S00027.242l642 +++|          RANGE  CIDSL,CTIDCLN  CONSOLE ID
00094  M01S00065.vcc     +++|          SPACE  4,10
00095  M01S00066.vcc     +++|*         DEADSTART PANEL DESCRIPTOR.
00096  M01S00067.vcc     +++|
00097  M01S00068.vcc     +++|          ERRNZ  DPW5-CTIDPW5   WORD 5 OF DS PANEL
00098  M01S00069.vcc     +++|          ERRNZ  DPW6-CTIDPW6   WORD 6 OF DS PANEL
00099  M01S00070.vcc     +++|          ERRNZ  DPW7-CTIDPW7   WORD 7 OF DS PANEL
00100  M01S00071.vcc     +++|          ERRNZ  DPW10-CTIDPW10 WORD 10 OF DS PANEL
00101  M01S00072.vcc     +++|          ERRNZ  DPW11-CTIDPW11 WORD 11 OF DS PANEL
00102  M01S00073.vcc     +++|          ERRNZ  DPW12-CTIDPW12 WORD 12 OF DS PANEL
00103  M01S00074.vcc     +++|          ERRNZ  DPW13-CTIDPW13 WORD 13 OF DS PANEL
00104  M01S00075.vcc     +++|          ERRNZ  DPW14-CTIDPW14 WORD 14 OF DS PANEL
00105  M01S00076.vcc     +++|          ERRNZ  DPW15-CTIDPW15 WORD 15 OF DS PANEL
00106  M01S00077.vcc     +++|          ERRNZ  DPW16-CTIDPW16 WORD 16 OF DS PANEL
00107  M01S00078.vcc     +++|          ERRNZ  DPW17-CTIDPW17 WORD 17 OF DS PANEL
00108  M01S00079.vcc     +++|          ERRNZ  DPW20-CTIDPW20 WORD 20 OF DS PANEL
00109  M01S00080.vcc     +++|          SPACE  4,10
00110  M01S00081.vcc     +++|*         COMMON POINTERS.
00111  M01S00082.vcc     +++|
00112  M01S00083.vcc     +++|          ERRNZ  CIDP-CTICPCD   RESERVED FOR *CTI*
00113  M01S00084.vcc     +++|          ERRNZ  CIRP-CTICPCR   *CTI* DISK ADDRESS
00114  M01S00085.vcc     +++|          ERRNZ  MSDP-CTICPMD   *MSB* DISK ADDRESS
00115  M01S00086.vcc     +++|          ERRNZ  MSRP-CTICPMR   LAST CYLINDER OF *MSL*
00116  M01S00087.vcc     +++|          ERRNZ  DSDP-CTICPDD   *HVS* DISK ADDRESS
00117  M01S00088.vcc     +++|          ERRNZ  DSRP-CTICPDR   RESERVED FOR *HVS*
00118  M01S00089.vcc     +++|          ERRNZ  OSDP-CTICPOD   *OSB* DISK ADDRESS
00119  M01S00090.vcc     +++|          ERRNZ  OSRP-CTICPOR   RESERVED FOR OPERATING SYSTEM
00120  M01S00091.vcc     +++|          SPACE  4,10
00121  M01S00092.vcc     +++|*         DEADSTART DEVICE ID.
00122  M01S00093.vcc     +++|
00123  M01S00094.vcc     +++|          ERRNZ  DDCT-CTIDDCT   CONTROLLER TYPE
00124  M01S00095.vcc     +++|          ERRNZ  DDDT-CTIDDDT   DISK TYPE
00125  M01S00096.vcc     +++|          ERRNZ  DDCH-CTIDDCH   CHANNEL
00126  M01S00097.vcc     +++|          ERRNZ  DDEU-CTIDDEU   EQUIPMENT AND UNIT NUMBER
00127  M01S00098.vcc     +++|          SPACE  4,10
00128  M01S00099.vcc     +++|*         IOU DESCRIPTOR.
00129  M01S00100.vcc     +++|
00130  M01S00101.vcc     +++|          ERRNZ  HDID-CTIIOID   DESCRIPTOR ID
00131  M01S00102.vcc     +++|          ERRNZ  HDEN-CTIIOEN   ELEMENT NUMBER
00132  M01S00103.vcc     +++|          ERRNZ  HDMN-CTIIOMN   MODEL NUMBER
00133  M01S00104.vcc     +++|          ERRNZ  HDSN-CTIIOSN   SERIAL NUMBER
00134  M01S00105.vcc     +++|          ERRNZ  MCTC-CTIIOCTC  CONNECT CODE
00135  M01S00106.vcc     +++|          ERRNZ  PPP0-CTIIOPP0  PHYSICAL PP-S PRESENT
00136  M01S00107.vcc     +++|          ERRNZ  PPP1-CTIIOPP1  PHYSICAL PP-S PRESENT
00137  M01S00108.vcc     +++|          ERRNZ  LPP0-CTIIOLP0  PP-S LOGICALLY *ON*
00138  M01S00109.vcc     +++|          ERRNZ  LPP1-CTIIOLP1  PP-S LOGICALLY *ON*
00139  M01S00110.vcc     +++|          ERRNZ  PPSD-CTIIOPSD  PP SPEED
00140  M01S00111.vcc     +++|          ERRNZ  CHP0-CTIIOCH0  CHANNELS PRESENT
00141  M01S00112.vcc     +++|          ERRNZ  CHP1-CTIIOCH1  CHANNELS PRESENT
00142  M01S00113.vcc     +++|          SPACE  4,10
00143  M01S00114.vcc     +++|*         CM DESCRIPTOR.
00144  M01S00115.vcc     +++|
00145  M01S00116.vcc     +++|          ERRNZ  HDID-CTICMDID  DESCRIPTOR ID
00146  M01S00117.vcc     +++|          ERRNZ  HDEN-CTICMEN   ELEMENT NUMBER
00147  M01S00118.vcc     +++|          ERRNZ  HDMN-CTICMMN   MODEL NUMBER
00148  M01S00119.vcc     +++|          ERRNZ  HDSN-CTICMSN   SERIAL NUMBER
00149  M01S00120.vcc     +++|          ERRNZ  MCTC-CTICMCTC  CONNECT CODE
00150  M01S00121.vcc     +++|          ERRNZ  PCMS-CTICMPCM  PHYSICAL MEMORY SIZE
00151  M01S00122.vcc     +++|          ERRNZ  LCMS-CTICMLCM  LOGICAL MEMORY SIZE
00152  M01S00123.vcc     +++|          ERRNZ  EICD-CTICMEIB  ADDRESS OF *CTI* DIRECTORY
00153  M01S00124.vcc     +++|          SPACE  4,10
00154  M01S00125.vcc     +++|*         CPU DESCRIPTOR.
00155  M01S00126.vcc     +++|
00156  M01S00127.vcc     +++|          ERRNZ  HDID-CTICPDID  DESCRIPTOR ID
00157  M01S00128.vcc     +++|          ERRNZ  HDEN-CTICPEN   ELEMENT NUMBER
00158  M01S00129.vcc     +++|          ERRNZ  HDMN-CTICPMN   MODEL NUMBER
00159  M01S00130.vcc     +++|          ERRNZ  HDSN-CTICPSN   SERIAL NUMBER
00160  M01S00131.vcc     +++|          ERRNZ  MCTC-CTICPCTC  CONNECT CODE
00161  M01S00132.vcc     +++|          ERRNZ  DEGR-CTICPDGR  CACHE DEGRADATION FLAGS
00162  M01S00133.vcc     +++|          ERRNZ  PORT-CTICPPRT  MEMORY PORT
00163  M01S00134.vcc     +++|          ERRNZ  PSTA-CTICPSTA  PROCESSOR STATUS
00164  M01S00135.vcc     +++|          ERRNZ  CPOP-CTICPOPT  PROCESSOR OPTIONS
00165  M01S00136.vcc     +++|          SPACE  4,10
00166  M01S00137.vcc     +++|*         MAINFRAME DESCRIPTOR.
00167  M01S00138.vcc     +++|
00168  M01S00139.vcc     +++|          ERRNZ  HDID-CTIMFDID  DESCRIPTOR ID
00169  M01S00140.vcc     +++|          ERRNZ  OPTN-CTIMFOPT  MAINFRAME OPTIONS
00170  M01S00141.vcc     +++|          ERRNZ  CEPE-CTIMFCEP  CEM/PEM FLAG
00171  M01S00142.vcc     +++|          ERRNZ  PCPF-CTIMFPCP  PHYSICAL PROCESSOR(S) PRESENT
00172  M01S00143.vcc     +++|          SPACE  4,10
00173  M01S00144.vcc     +++|*         FLPP DESCRIPTOR.
00174  M01S00145.vcc     +++|
00175  M01S00146.vcc     +++|          ERRNZ  HDID-CTIFLDID  DESCRIPTOR ID
00176  M01S00147.vcc     +++|          ERRNZ  PPPU-CTIFPPU   PHYSICAL FLPP-S PRESENT
00177  M01S00148.vcc     +++|          ERRNZ  LPPU-CTIFLPU   FLPP-S LOGICALLY *ON*
00178  M01S00149.vcc     +++|          SPACE  4,10
00179  M01S00150.vcc     +++|*         DISPLAY CONSOLE DESCRIPTOR.
00180  M01S00151.vcc     +++|
00181  M01S00152.vcc     +++|          ERRNZ  HDID-CTIDCDID  DESCRIPTOR ID
00182  M01S00153.vcc     +++|          ERRNZ  CDTY-CTIDCDT   DISPLAY TYPE
00183  M01S00154.vcc     +++|          ERRNZ  CCPN-CTIDCCP   CHANNEL AND PORT NUMBER
00184  M01S00155.vcc     +++|          ERRNZ  SMPP-CTIDCSMP  *SCD* AND *MDD* PP NUMBERS
00185  M01S00156.vcc     +++|          SPACE  4,10
00186  M01S00157.vcc     +++|          END