Retro1.org codex

          IDENT  VCC 
          BASE   MIXED
          SST
*COMMENT  VCC - VERIFY CTI CONSTANTS.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
          TITLE  VCC - VERIFY CTI CONSTANTS.
          SPACE  4,10
*****     VCC - VERIFY CTI CONSTANTS.
*         P. T. BARNETT.     84/03/13.
          SPACE  4,10
***       *VCC* PERFORMS ASSEMBLY CHECKS ON VARIOUS *CTI*
*         COMMUNICATIONS CONSTANTS THAT ARE DEFINED IN *CTITEXT*.
*         THESE TAGS DO NOT MEET *NOS* CODING STANDARDS, THEREFORE
*         THE INDIVIDUAL VALUES ARE DEFINED BY DIFFERENT SYMBOLS IN
*         *COMSDSL*, AND THIS DECK VERIFIES THAT THEY MATCH.  ALSO,
*         THIS AVOIDS THE NEED FOR *CTITEXT* FOR ASSEMBLY FOR A LARGE
*         NUMBER OF *NOS* DECKS.
          SPACE  4,10
**        COMMON DECKS.
 
*CALL     COMPMAC
*CALL     COMSDSL
 RANGE    SPACE  4,10
***       RANGE - TEST THE RANGE OF *CTITEXT* SYMBOLS.
*
*         THE VALUE OF THE *CTITEXT* SYMBOL MUST BE .GE. THE VALUE OF
*         THE *COMSDSL* SYMBOL AND .LE. *MLED*.
*
*         RANGE  DSLSYM,CTISYM
*
*         ENTRY  *DSLSYM* = A SYMBOL DEFINED IN *COMSDSL*.
*                *CTISYM* = THE CORRESPONDING SYMBOL FROM *CTITEXT*.
 
 
          PURGMAC  RANGE
 
 RANGE    MACRO  DSLSYM,CTISYM
          ERRPL  DSLSYM-CTISYM-1
          ERRNG  MLED-CTISYM
          ENDM
          TITLE  ASSEMBLY CHECKS.
**        IN THE FOLLOWING ASSEMBLY CHECKS, THE CONVENTION IS THAT
*         THE *NOS* SYMBOL WILL BE ON THE LEFT, AND THE *CTITEXT*
*         SYMBOL WILL BE ON THE RIGHT.
          SPACE  4,10
*         PP 0 HANDOFF DATA.
 
          ERRNZ  APPC-CTIAPP    *APP* NUMBER
          ERRNZ  DCST-CTIDCP    DISPLAY CONSOLE POINTER
          SPACE  4,10
*         *APP* FUNCTION CODES.
 
          ERRNZ  DPIS-CTIDPI    SEND DEADSTART PANEL IMAGE
          ERRNZ  CPTS-CTICPT    SEND COMMON POINTER IMAGE
          ERRNZ  OHDS-CTIHDTO   SEND OLD HARDWARE DESCRIPTOR TABLE
          ERRNZ  EMDS-CTIEMID   SEND EI/MICROCODE ID (DISPLAY CODE)
          ERRNZ  DIDS-CTIDDI    SEND DEADSTART DEVICE ID
          ERRNZ  EMAS-CTIEMIDA  SEND EI/MICROCODE ID (ASCII)
          ERRNZ  NHDS-CTIHDTN   SEND NEW HARDWARE DESCRIPTOR TABLE
          ERRNZ  IUDS-CTIIOD    SEND IOU PORTION OF HDT
          ERRNZ  CMDS-CTICMD    SEND CM PORTION OF HDT
          ERRNZ  CPDS-CTICPD    SEND CPU PORTION OF HDT
          ERRNZ  MFDS-CTIMFD    SEND MAINFRAME PORTION OF HDT
          ERRNZ  FLPS-CTIFLD    SEND FLPP PORTION OF HDT
          ERRNZ  CIDS-CTIDCD    SEND CONSOLE ID PORTION OF HDT
          ERRNZ  CMFS-CTICFT    SEND CENTRAL MEMORY FLAW TABLE
          ERRNZ  CDAS-CTIRCD    SEND PROGRAM FROM COMMON DISK AREA
          ERRNZ  RPCS-CTIAOC    REMOVE PP FROM CHANNEL
          ERRNZ  CCCS-CTICCC    CHANGE COMMUNICATION CHANNEL
          ERRNZ  MAPS-CTIMPP    MOVE *APP* TO ANOTHER PP
          SPACE  4,10
*         DESCRIPTOR LENGTHS.
 
          RANGE  DPISL,CTIDPLN  DEADSTART PANEL IMAGE
          RANGE  CPTSL,CTICPLN  COMMON POINTER TABLE
          RANGE  DIDSL,CTIDDLN  DEADSTART DEVICE ID
          RANGE  IUDSL,CTIIOLN  IOU PORTION OF HDT
          RANGE  CMDSL,CTICMLN  CM PORTION OF HDT
          RANGE  CPDSL,CTICPDLN  CPU PORTION OF HDT
          RANGE  MFDSL,CTIMFLN  MAINFRAME PORTION OF HDT
          RANGE  FLPSL,CTIFLLN  FLPP PORTION OF HDT
          RANGE  CIDSL,CTIDCLN  CONSOLE ID
          SPACE  4,10
*         DEADSTART PANEL DESCRIPTOR.
 
          ERRNZ  DPW5-CTIDPW5   WORD 5 OF DS PANEL
          ERRNZ  DPW6-CTIDPW6   WORD 6 OF DS PANEL
          ERRNZ  DPW7-CTIDPW7   WORD 7 OF DS PANEL
          ERRNZ  DPW10-CTIDPW10 WORD 10 OF DS PANEL
          ERRNZ  DPW11-CTIDPW11 WORD 11 OF DS PANEL
          ERRNZ  DPW12-CTIDPW12 WORD 12 OF DS PANEL
          ERRNZ  DPW13-CTIDPW13 WORD 13 OF DS PANEL
          ERRNZ  DPW14-CTIDPW14 WORD 14 OF DS PANEL
          ERRNZ  DPW15-CTIDPW15 WORD 15 OF DS PANEL
          ERRNZ  DPW16-CTIDPW16 WORD 16 OF DS PANEL
          ERRNZ  DPW17-CTIDPW17 WORD 17 OF DS PANEL
          ERRNZ  DPW20-CTIDPW20 WORD 20 OF DS PANEL
          SPACE  4,10
*         COMMON POINTERS.
 
          ERRNZ  CIDP-CTICPCD   RESERVED FOR *CTI*
          ERRNZ  CIRP-CTICPCR   *CTI* DISK ADDRESS
          ERRNZ  MSDP-CTICPMD   *MSB* DISK ADDRESS
          ERRNZ  MSRP-CTICPMR   LAST CYLINDER OF *MSL*
          ERRNZ  DSDP-CTICPDD   *HVS* DISK ADDRESS
          ERRNZ  DSRP-CTICPDR   RESERVED FOR *HVS*
          ERRNZ  OSDP-CTICPOD   *OSB* DISK ADDRESS
          ERRNZ  OSRP-CTICPOR   RESERVED FOR OPERATING SYSTEM
          SPACE  4,10
*         DEADSTART DEVICE ID.
 
          ERRNZ  DDCT-CTIDDCT   CONTROLLER TYPE
          ERRNZ  DDDT-CTIDDDT   DISK TYPE
          ERRNZ  DDCH-CTIDDCH   CHANNEL
          ERRNZ  DDEU-CTIDDEU   EQUIPMENT AND UNIT NUMBER
          SPACE  4,10
*         IOU DESCRIPTOR.
 
          ERRNZ  HDID-CTIIOID   DESCRIPTOR ID
          ERRNZ  HDEN-CTIIOEN   ELEMENT NUMBER
          ERRNZ  HDMN-CTIIOMN   MODEL NUMBER
          ERRNZ  HDSN-CTIIOSN   SERIAL NUMBER
          ERRNZ  MCTC-CTIIOCTC  CONNECT CODE
          ERRNZ  PPP0-CTIIOPP0  PHYSICAL PP-S PRESENT
          ERRNZ  PPP1-CTIIOPP1  PHYSICAL PP-S PRESENT
          ERRNZ  LPP0-CTIIOLP0  PP-S LOGICALLY *ON*
          ERRNZ  LPP1-CTIIOLP1  PP-S LOGICALLY *ON*
          ERRNZ  PPSD-CTIIOPSD  PP SPEED
          ERRNZ  CHP0-CTIIOCH0  CHANNELS PRESENT
          ERRNZ  CHP1-CTIIOCH1  CHANNELS PRESENT
          SPACE  4,10
*         CM DESCRIPTOR.
 
          ERRNZ  HDID-CTICMDID  DESCRIPTOR ID
          ERRNZ  HDEN-CTICMEN   ELEMENT NUMBER
          ERRNZ  HDMN-CTICMMN   MODEL NUMBER
          ERRNZ  HDSN-CTICMSN   SERIAL NUMBER
          ERRNZ  MCTC-CTICMCTC  CONNECT CODE
          ERRNZ  PCMS-CTICMPCM  PHYSICAL MEMORY SIZE
          ERRNZ  LCMS-CTICMLCM  LOGICAL MEMORY SIZE
          ERRNZ  EICD-CTICMEIB  ADDRESS OF *CTI* DIRECTORY
          SPACE  4,10
*         CPU DESCRIPTOR.
 
          ERRNZ  HDID-CTICPDID  DESCRIPTOR ID
          ERRNZ  HDEN-CTICPEN   ELEMENT NUMBER
          ERRNZ  HDMN-CTICPMN   MODEL NUMBER
          ERRNZ  HDSN-CTICPSN   SERIAL NUMBER
          ERRNZ  MCTC-CTICPCTC  CONNECT CODE
          ERRNZ  DEGR-CTICPDGR  CACHE DEGRADATION FLAGS
          ERRNZ  PORT-CTICPPRT  MEMORY PORT
          ERRNZ  PSTA-CTICPSTA  PROCESSOR STATUS
          ERRNZ  CPOP-CTICPOPT  PROCESSOR OPTIONS
          SPACE  4,10
*         MAINFRAME DESCRIPTOR.
 
          ERRNZ  HDID-CTIMFDID  DESCRIPTOR ID
          ERRNZ  OPTN-CTIMFOPT  MAINFRAME OPTIONS
          ERRNZ  CEPE-CTIMFCEP  CEM/PEM FLAG
          ERRNZ  PCPF-CTIMFPCP  PHYSICAL PROCESSOR(S) PRESENT
          SPACE  4,10
*         FLPP DESCRIPTOR.
 
          ERRNZ  HDID-CTIFLDID  DESCRIPTOR ID
          ERRNZ  PPPU-CTIFPPU   PHYSICAL FLPP-S PRESENT
          ERRNZ  LPPU-CTIFLPU   FLPP-S LOGICALLY *ON*
          SPACE  4,10
*         DISPLAY CONSOLE DESCRIPTOR.
 
          ERRNZ  HDID-CTIDCDID  DESCRIPTOR ID
          ERRNZ  CDTY-CTIDCDT   DISPLAY TYPE
          ERRNZ  CCPN-CTIDCCP   CHANNEL AND PORT NUMBER
          ERRNZ  SMPP-CTIDCSMP  *SCD* AND *MDD* PP NUMBERS
          SPACE  4,10
          END