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