IDENT CETEXT STEXT *COMMENT CETEXT - ENGINEERING SUPPORT TEXT. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. TITLE CETEXT - ENGINEERING SERVICES SUPPORT TEXT. LIST X *CALL COMSESS LIST * MACROES SPACE 4,10 TITLE MACRO DEFINITIONS. *** MACRO DEFINITIONS. CECSA SPACE 4,10 ENDM CEVAL SPACE 4,10 *** CEVAL - CUSTOMER ENGINEERING VALIDATION. * * CEVAL ADDR,VO * * ENTRY ADDR = ADDRESS OF PARAMETER BLOCK. * VO = PARAMETER SPECIFYING USER VALIDATION ONLY. * * EXIT * ADDR IS THE ADDRESS OF A USER SUPPLIED PARAMETER BLOCK * RETURNED BY *CVL* WITH WORD 0 AND OTHER FIELDS COMPLETED. *T ADDR+0 48/ ,6/ RC,5/ ,1/C *T ADDR+1 5/ VB,6/ ,1/X,36/ ,12/ ESTO *T ADDR+2 5/ VB,4/ S,2/ ,1/X,12/ CH4,12/ CH3,12/ CH2,12/ CH1 *T ADDR+3 5/ VB,4/ S,2/ ,1/X,36/ ,12/ EQPN *T ADDR+4 5/ VB,4/ S,2/ ,1/X,36/ ,12/ UN *T ADDR+5 5/ VB,4/ S,2/ ,1/X,36/ ,12/ DEVC *T ADDR+6 53/ ,7/ FC *T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ PACK SN *T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ RAE/FLE * WHERE - * RC (11-6) = RESPONSE CODE (SET BY *CVL*). * 0 = VALIDATION GRANTED. * 2 = VALIDATION GRANTED, ELEMENT MIGHT BE * SHARED WITH ANOTHER MAINFRAME. * 4 = VALIDATION DENIED, ELEMENT NOT IN EST. * 5 = VALIDATION DENIED, CRITICAL * INFORMATION MAY BE DESTROYED. * 6 = VALIDATION DENIED, ELEMENT IN USE. * 7 = VALIDATION DENIED, SHARE BYTE NOT SET. * C (0) = COMPLETE BIT (SET BY *CVL*). * VB (59-55) = VALIDATION ERROR BITS (SET BY *CVL*). * BIT 59 SET = ERROR IN WORD. * BIT 58 SET = ERROR IN BYTE 1. * BIT 57 SET = ERROR IN BYTE 2. * BIT 56 SET = ERROR IN BYTE 3. * BIT 55 SET = ERROR IN BYTE 4. * X (48) = DATA IN WORD (SUPPLIED BY CALLER - IF NOT * SET, *CVL* SUPPLIES MISSING FIELD). * X (48) = DATA IN WORD (SUPPLIED BY CALLER). * ESTO (11-0) = EST ORDINAL OF ELEMENT. * S = SHARE BITS - IF SET, REQUESTS EXCLUSIVE ACCESS. * BIT 54 = FOR ELEMENT IN BYTE 1. * BIT 53 = FOR ELEMENT IN BYTE 2. * BIT 52 = FOR ELEMENT IN BYTE 3. * BIT 51 = FOR ELEMENT IN BYTE 4. * CHX = CHANNEL NUMBERS. * EQPN (11-0) = EQUIPMENT (CONTROLLER) NUMBER. * UN (11-0) = UNIT NUMBER. * DEVM (23-12) = DEVICE MNEMONIC. * DEVC (11-0) = DEVICE CODE (SEE TABLE *TDVC*). * FC (6-0) = FUNCTION BITS. * BIT 0 = LOAD CONTROLLER MEMORY. * BIT 1 = WILL WRITE ON UNIT. * BIT 2 = WILL USE NON - PREALLOCATED AREA. * BIT 6 = ELEMENT NOT IN EST. * BIT 7 = SPECIAL REQUEST FLAG. * FOR *ECS* THIS BIT IS IGNORED IF * *NPRE* (BIT 2) IS NOT SET. * 0 = WILL ACCESS ALL OF NORMAL *ECS* * IF *DOWN* BIT SET IN EST. * 1 = WILL ACCESS MAINTENANCE MODE * HALF OF *ECS* IF MAINTENANCE * MODE BIT IN THE ASSOCIATED MST * IS SET. * PACK SN = PACK SERIAL NUMBER IN BCD CODE. * RAE/FLE = ECS REFERENCE ADDRESS AND ECS FIELD LENGTH. PURGMAC CEVAL CEVAL MACRO A,V R= X1,A IFC NE,$V$$ SX2 3 ELSE SX2 1 ENDIF RJ =XCVL= ENDM EJECT *** CEMEM - MEMORY REFERENCE ADDRESS REQUEST. * * CEMEM ADDR * * ENTRY ADDR = ADDRESS OF 2 WORD PARAMETER BLOCK. * * EXIT * ADDR IS THE ADDRESS OF THE USER SUPPLIED PARAMETER BLOCK OF * 2 WORDS THAT WILL BE COMPLETED BY *CVL* PRIOR TO * RETURNING CONTROL TO THE USER. *T ADDR+0 24/RA,24/FL,11/0,1/C *T ADDR+1 24/RAX,24/FLX,12/0 * WHERE - * RA (59-36) = CENTRAL MEMORY ADDRESS FROM EXCHANGE PK. * FL (35-12) = FIELD LENGTH OF ASSIGNED CM FROM EXCH PK. * C (0) = COMPLETE BIT (SET BY *CVL*). * RAX (59-36)= ECS ADDRESS FROM EXCHANGE PACKAGE. * FLX (35-12)= ECS FIELD LENGTH FROM EXCHANGE PACKAGE. PURGMAC CEMEM CEMEM MACRO A SX1 A SX2 5 RJ =XCVL= ENDM CESAB SPACE 4,10 ** CESAB - GET SYSTEM ATTRIBUTE BLOCK. * * CESAB ADDR,VN * * ENTRY ADDR - CM ADDRESS OF BUFFER TO HOLD THE MAINFRAME * ATTRIBUTE BLOCK. * VN = VERSION NUMBER. * 0 - RETURN OLD FORMAT (DEFAULT). * 1 - RETURN NEW FORMAT. * * EXIT ADDR CONTAINS THE FOLLOWING- * *T,ADDR 12/ ,12/ LNGTH,24/ ,6/ RC,5/ VN,1/C *T,ADDR+1 12/ PPSD,24/ CMSZ,12/ ,12/ OPTN *T,ADDR+2 60/FIRST VARIABLE ENTRY *T,ADDR+N 60/LAST VARIABLE ENTRY * WHERE - * LNGTH NUMBER OF CM WORDS IN THE RESPONSE. * RC RESPONSE CODE (ALWAYS 0). * VN VERSION NUMBER OF FORMAT RETURNED. * C COMPLETION BIT * PPSD PP SPEED * CMSZ CM SIZE * OPTN OPTIONS INSTALLED * VARIABLE ENTRY - SEE *CEVAL* INTERFACE SPECIFICATION. * * CALLS CVL=. PURGMAC CESAB CESAB MACRO A,V R= X1,A SX2 4 IFC NE,$V$$,3 R= X6,V LX6 6 BX2 X6+X2 RJ =XCVL= ENDM TITLE TAG EQUIVALENCES. *** THE FOLLOWING TAGS ARE DEFINED IN THE SCOPE OS STYLE AND * EQUIVALENCED TO THE KRONOS STYLE TAGS DEFINED IN THE COMMON * DECK *COMSESS*. * * CE.ECS SPACE 4,15 ** CE.ECSRA/CE.ECSFL TAGS FOR THE DEADSTART DIAGNOSTIC * SEQUENCER. CE.ECSRA EQU ECSRA CE.ECSFL EQU ECSFL IFLT CE.ECSFL,10B,1 P ERR ECS FL MUST BE 1000B OR GREATER SPACE 4 END