Deck CETEXT

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.cetext  +++|          IDENT  CETEXT
00002  M01S00002.cetext  +++|          STEXT
00003  M01S00003.cetext  +++|*COMMENT  CETEXT - ENGINEERING SUPPORT TEXT.

Line S00004 Modification History
`M01` (Added by)	`cetext`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00005  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.cetext  +++|          TITLE  CETEXT - ENGINEERING SERVICES SUPPORT TEXT.
00007  M01S00006.cetext  +++|          LIST   X
00008  M01S00007.cetext  +++|*CALL     COMSESS
00009  M01S00008.cetext  +++|          LIST   *
00010  M01S00009.cetext  +++| MACROES  SPACE  4,10
00011  M01S00010.cetext  +++|          TITLE  MACRO DEFINITIONS.
00012  M01S00011.cetext  +++|***       MACRO DEFINITIONS.
00013  M01S00012.cetext  +++| CECSA    SPACE  4,10
00014  M01S00013.cetext  +++|          ENDM
00015  M01S00014.cetext  +++| CEVAL    SPACE  4,10
00016  M01S00015.cetext  +++|***       CEVAL - CUSTOMER ENGINEERING VALIDATION.
00017  M01S00016.cetext  +++|*
00018  M01S00017.cetext  +++|*         CEVAL  ADDR,VO
00019  M01S00018.cetext  +++|*
00020  M01S00019.cetext  +++|*         ENTRY  ADDR = ADDRESS OF PARAMETER BLOCK.
00021  M01S00020.cetext  +++|*                VO = PARAMETER SPECIFYING USER VALIDATION ONLY.
00022  M01S00021.cetext  +++|*
00023  M01S00022.cetext  +++|*         EXIT
00024  M01S00023.cetext  +++|*         ADDR IS THE ADDRESS OF A USER SUPPLIED PARAMETER BLOCK
00025  M01S00024.cetext  +++|*         RETURNED BY *CVL* WITH WORD 0 AND OTHER FIELDS COMPLETED.
00026  M01S00025.cetext  +++|*T ADDR+0 48/ ,6/  RC,5/ ,1/C

Figure ADDR+0

00027  M01S00026.cetext  +++|*T ADDR+1 5/ VB,6/ ,1/X,36/ ,12/  ESTO

Figure ADDR+1

00028  M01S00027.cetext  +++|*T ADDR+2 5/ VB,4/ S,2/ ,1/X,12/  CH4,12/  CH3,12/  CH2,12/  CH1

Figure ADDR+2

00029  M01S00028.cetext  +++|*T ADDR+3 5/ VB,4/ S,2/ ,1/X,36/ ,12/  EQPN

Figure ADDR+3

00030  M01S00029.cetext  +++|*T ADDR+4 5/ VB,4/ S,2/ ,1/X,36/ ,12/  UN

Figure ADDR+4

00031  M01S00030.cetext  +++|*T ADDR+5 5/ VB,4/ S,2/ ,1/X,36/ ,12/  DEVC

Figure ADDR+5

00032  M01S00031.cetext  +++|*T ADDR+6 53/ ,7/  FC

Figure ADDR+6

00033  M01S00032.cetext  +++|*T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ PACK SN

Figure ADDR+7

00034  M01S00033.cetext  +++|*T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ RAE/FLE

Figure ADDR+7

00035  M01S00034.cetext  +++|*                WHERE -
00036  M01S00035.cetext  +++|*                RC (11-6) = RESPONSE CODE (SET BY *CVL*).
00037  M01S00036.cetext  +++|*                            0 = VALIDATION GRANTED.
00038  M01S00037.cetext  +++|*                            2 = VALIDATION GRANTED, ELEMENT MIGHT BE
00039  M01S00038.cetext  +++|*                                SHARED WITH ANOTHER MAINFRAME.
00040  M01S00039.cetext  +++|*                            4 = VALIDATION DENIED, ELEMENT NOT IN EST.
00041  M01S00040.cetext  +++|*                            5 = VALIDATION DENIED, CRITICAL
00042  M01S00041.cetext  +++|*                                INFORMATION MAY BE DESTROYED.
00043  M01S00042.cetext  +++|*                            6 = VALIDATION DENIED, ELEMENT IN USE.
00044  M01S00043.cetext  +++|*                            7 = VALIDATION DENIED, SHARE BYTE NOT SET.
00045  M01S00044.cetext  +++|*                C (0) = COMPLETE BIT (SET BY *CVL*).
00046  M01S00045.cetext  +++|*                VB (59-55) = VALIDATION ERROR BITS (SET BY *CVL*).
00047  M01S00046.cetext  +++|*                             BIT 59 SET = ERROR IN WORD.
00048  M01S00047.cetext  +++|*                             BIT 58 SET = ERROR IN BYTE 1.
00049  M01S00048.cetext  +++|*                             BIT 57 SET = ERROR IN BYTE 2.
00050  M01S00049.cetext  +++|*                             BIT 56 SET = ERROR IN BYTE 3.
00051  M01S00050.cetext  +++|*                             BIT 55 SET = ERROR IN BYTE 4.
00052  M01S00051.cetext  +++|*                X (48) = DATA IN WORD (SUPPLIED BY CALLER - IF NOT
00053  M01S00052.cetext  +++|*                         SET, *CVL* SUPPLIES MISSING FIELD).
00054  M01S00053.cetext  +++|*                X (48) = DATA IN WORD (SUPPLIED BY CALLER).
00055  M01S00054.cetext  +++|*                ESTO (11-0) = EST ORDINAL OF ELEMENT.
00056  M01S00055.cetext  +++|*                S = SHARE BITS - IF SET, REQUESTS EXCLUSIVE ACCESS.
00057  M01S00056.cetext  +++|*                            BIT 54 = FOR ELEMENT IN BYTE 1.
00058  M01S00057.cetext  +++|*                            BIT 53 = FOR ELEMENT IN BYTE 2.
00059  M01S00058.cetext  +++|*                            BIT 52 = FOR ELEMENT IN BYTE 3.
00060  M01S00059.cetext  +++|*                            BIT 51 = FOR ELEMENT IN BYTE 4.
00061  M01S00060.cetext  +++|*                CHX = CHANNEL NUMBERS.
00062  M01S00061.cetext  +++|*                EQPN (11-0) = EQUIPMENT (CONTROLLER) NUMBER.
00063  M01S00062.cetext  +++|*                UN (11-0) = UNIT NUMBER.
00064  M01S00063.cetext  +++|*                DEVM (23-12) = DEVICE MNEMONIC.
00065  M01S00064.cetext  +++|*                DEVC (11-0) = DEVICE CODE (SEE TABLE *TDVC*).
00066  M01S00065.cetext  +++|*                FC (6-0) = FUNCTION BITS.
00067  M01S00066.cetext  +++|*                           BIT 0 = LOAD CONTROLLER MEMORY.
00068  M01S00067.cetext  +++|*                           BIT 1 = WILL WRITE ON UNIT.
00069  M01S00068.cetext  +++|*                           BIT 2 = WILL USE NON - PREALLOCATED AREA.
00070  M01S00069.cetext  +++|*                           BIT 6 = ELEMENT NOT IN EST.
00071  M01S00070.cetext  +++|*                           BIT 7 = SPECIAL REQUEST FLAG.
00072  M01S00071.cetext  +++|*                                 FOR *ECS* THIS BIT IS IGNORED IF
00073  M01S00072.cetext  +++|*                                 *NPRE* (BIT 2) IS NOT SET.
00074  M01S00073.cetext  +++|*                                  0 = WILL ACCESS ALL OF NORMAL *ECS*
00075  M01S00074.cetext  +++|*                                      IF *DOWN* BIT SET IN EST.
00076  M01S00075.cetext  +++|*                                  1 = WILL ACCESS MAINTENANCE MODE
00077  M01S00076.cetext  +++|*                                      HALF OF *ECS* IF MAINTENANCE
00078  M01S00077.cetext  +++|*                                      MODE BIT IN THE ASSOCIATED MST
00079  M01S00078.cetext  +++|*                                      IS SET.
00080  M01S00079.cetext  +++|*                PACK SN = PACK SERIAL NUMBER IN BCD CODE.
00081  M01S00080.cetext  +++|*                RAE/FLE = ECS REFERENCE ADDRESS AND ECS FIELD LENGTH.
00082  M01S00081.cetext  +++|
00083  M01S00082.cetext  +++|
00084  M01S00083.cetext  +++|          PURGMAC CEVAL
00085  M01S00084.cetext  +++|
00086  M01S00085.cetext  +++| CEVAL    MACRO  A,V
00087  M01S00086.cetext  +++|  R= X1,A
00088  M01S00087.cetext  +++|  IFC NE,$V$$
00089  M01S00088.cetext  +++|  SX2 3
00090  M01S00089.cetext  +++|  ELSE
00091  M01S00090.cetext  +++|  SX2 1
00092  M01S00091.cetext  +++|  ENDIF
00093  M01S00092.cetext  +++|  RJ =XCVL=
00094  M01S00093.cetext  +++|  ENDM
00095  M01S00094.cetext  +++|          EJECT
00096  M01S00095.cetext  +++|***       CEMEM - MEMORY REFERENCE ADDRESS REQUEST.
00097  M01S00096.cetext  +++|*
00098  M01S00097.cetext  +++|*         CEMEM  ADDR
00099  M01S00098.cetext  +++|*
00100  M01S00099.cetext  +++|*         ENTRY  ADDR = ADDRESS OF 2 WORD PARAMETER BLOCK.
00101  M01S00100.cetext  +++|*
00102  M01S00101.cetext  +++|*         EXIT
00103  M01S00102.cetext  +++|*         ADDR IS THE ADDRESS OF THE USER SUPPLIED PARAMETER BLOCK OF
00104  M01S00103.cetext  +++|*         2 WORDS THAT WILL BE COMPLETED BY *CVL* PRIOR TO
00105  M01S00104.cetext  +++|*         RETURNING CONTROL TO THE USER.
00106  M01S00105.cetext  +++|*T ADDR+0 24/RA,24/FL,11/0,1/C

Figure ADDR+0

00107  M01S00106.cetext  +++|*T ADDR+1 24/RAX,24/FLX,12/0

Figure ADDR+1

00108  M01S00107.cetext  +++|*                WHERE -
00109  M01S00108.cetext  +++|*                RA (59-36) = CENTRAL MEMORY ADDRESS FROM EXCHANGE PK.
00110  M01S00109.cetext  +++|*                FL (35-12) = FIELD LENGTH OF ASSIGNED CM FROM EXCH PK.
00111  M01S00110.cetext  +++|*                C (0)      = COMPLETE BIT (SET BY *CVL*).
00112  M01S00111.cetext  +++|*                RAX (59-36)= ECS ADDRESS FROM EXCHANGE PACKAGE.
00113  M01S00112.cetext  +++|*                FLX (35-12)= ECS FIELD LENGTH FROM EXCHANGE PACKAGE.
00114  M01S00113.cetext  +++|
00115  M01S00114.cetext  +++|
00116  M01S00115.cetext  +++|          PURGMAC  CEMEM
00117  M01S00116.cetext  +++|
00118  M01S00117.cetext  +++| CEMEM    MACRO  A
00119  M01S00118.cetext  +++|  SX1 A
00120  M01S00119.cetext  +++|  SX2 5
00121  M01S00120.cetext  +++|  RJ =XCVL=
00122  M01S00121.cetext  +++|  ENDM
00123  M01S00122.cetext  +++| CESAB    SPACE  4,10
00124  M01S00123.cetext  +++|**        CESAB - GET SYSTEM ATTRIBUTE BLOCK.
00125  M01S00124.cetext  +++|*

Line S00125 Modification History
`M01` (Added by)	`cetext`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00125.v23l617 ---|*         CESAB  ADDR
00127  M01S00001.v23l617 +++|*         CESAB  ADDR,VN
00128  M01S00126.cetext  +++|*
00129  M01S00127.cetext  +++|*         ENTRY  ADDR - CM ADDRESS OF BUFFER TO HOLD THE MAINFRAME
00130  M01S00128.cetext  +++|*                       ATTRIBUTE BLOCK.
00131  M01S00002.v23l617 +++|*                VN = VERSION NUMBER.
00132  M01S00003.v23l617 +++|*                     0 - RETURN OLD FORMAT (DEFAULT).
00133  M01S00004.v23l617 +++|*                     1 - RETURN NEW FORMAT.
00134  M01S00129.cetext  +++|*
00135  M01S00130.cetext  +++|*         EXIT   ADDR CONTAINS THE FOLLOWING-
00136  M01S00131.cetext  +++|*

Line S00132 Modification History
`M01` (Added by)	`cetext`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00132.v23l617 ---|*T ADDR   12/ ,12/ LNGTH,24/ ,6/ RC,5/ ,1/C

Figure ADDR

00138  M01S00005.v23l617 +++|*T,ADDR   12/ ,12/ LNGTH,24/ ,6/ RC,5/ VN,1/C

Figure ADDR

00139  M01S00133.cetext  +++|*T,ADDR+1 12/ PPSD,24/ CMSZ,12/ ,12/ OPTN

Figure ADDR+1

00140  M01S00134.cetext  +++|*T,ADDR+2 60/FIRST VARIABLE ENTRY

Figure ADDR+2

00141  M01S00135.cetext  +++|*T,ADDR+N 60/LAST VARIABLE ENTRY

Figure ADDR+N

00142  M01S00136.cetext  +++|
00143  M01S00137.cetext  +++|*         WHERE -
00144  M01S00138.cetext  +++|
00145  M01S00139.cetext  +++|*         LNGTH  NUMBER OF CM WORDS IN THE RESPONSE.
00146  M01S00140.cetext  +++|*         RC     RESPONSE CODE (ALWAYS 0).
00147  M01S00006.v23l617 +++|*         VN     VERSION NUMBER OF FORMAT RETURNED.
00148  M01S00141.cetext  +++|*         C      COMPLETION BIT
00149  M01S00142.cetext  +++|*         PPSD   PP SPEED
00150  M01S00143.cetext  +++|*         CMSZ   CM SIZE
00151  M01S00144.cetext  +++|*         OPTN   OPTIONS INSTALLED
00152  M01S00145.cetext  +++|*         VARIABLE ENTRY - SEE *CEVAL* INTERFACE SPECIFICATION.
00153  M01S00146.cetext  +++|*
00154  M01S00147.cetext  +++|*         CALLS  CVL=.
00155  M01S00148.cetext  +++|
00156  M01S00149.cetext  +++|

Line S00150 Modification History
`M01` (Added by)	`cetext`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00150.v23l617 ---| CESAB    MACRO  A
00158  M01S00007.v23l617 +++|          PURGMAC  CESAB
00159  M01S00008.v23l617 +++|
00160  M01S00009.v23l617 +++| CESAB    MACRO  A,V
00161  M01S00151.cetext  +++|  R= X1,A
00162  M01S00152.cetext  +++|  SX2 4
00163  M01S00010.v23l617 +++|  IFC NE,$V$$,3
00164  M01S00011.v23l617 +++|  R= X6,V
00165  M01S00012.v23l617 +++|  LX6 6
00166  M01S00013.v23l617 +++|  BX2 X6+X2
00167  M01S00153.cetext  +++|  RJ =XCVL=
00168  M01S00154.cetext  +++|  ENDM
00169  M01S00155.cetext  +++|          TITLE  TAG EQUIVALENCES.
00170  M01S00156.cetext  +++|***       THE FOLLOWING TAGS ARE DEFINED IN THE SCOPE OS STYLE AND
00171  M01S00157.cetext  +++|*         EQUIVALENCED TO THE KRONOS STYLE TAGS DEFINED IN THE COMMON
00172  M01S00158.cetext  +++|*         DECK *COMSESS*.
00173  M01S00159.cetext  +++|*
00174  M01S00160.cetext  +++|*
00175  M01S00161.cetext  +++| CE.ECS   SPACE  4,15
00176  M01S00162.cetext  +++|**        CE.ECSRA/CE.ECSFL TAGS FOR THE DEADSTART DIAGNOSTIC
00177  M01S00163.cetext  +++|*         SEQUENCER.
00178  M01S00164.cetext  +++|
00179  M01S00165.cetext  +++|

Line S00166 Modification History
`M01` (Added by)	`cetext`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00166.252l678 ---| CE.ECSRA CECSA  CETK,RU1000

Line S00167 Modification History
`M01` (Added by)	`cetext`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00167.252l678 ---| CE.ECSFA CECSA  CETK+1,RD1000

Line S00168 Modification History
`M01` (Added by)	`cetext`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00168.252l678 ---| CE.ECSFL EQU    CE.ECSFA-CE.ECSRA
00183  M01S00001.252l678 +++| CE.ECSRA EQU    ECSRA
00184  M01S00002.252l678 +++| CE.ECSFL EQU    ECSFL
00185  M01S00169.cetext  +++|          IFLT   CE.ECSFL,10B,1
00186  M01S00170.cetext  +++| P        ERR    ECS FL MUST BE 1000B OR GREATER
00187  M01S00171.cetext  +++|          SPACE  4
00188  M01S00172.cetext  +++|          END