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