cdc:nos2.source:opl.opl871:deck:cetext
Deck CETEXT
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.cetext +++| IDENT CETEXT 00002 M00S00002.cetext +++| STEXT 00003 M00S00003.cetext +++|*COMMENT CETEXT - ENGINEERING SUPPORT TEXT.
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M00S00005.cetext +++| TITLE CETEXT - ENGINEERING SERVICES SUPPORT TEXT. 00007 M00S00006.cetext +++| LIST X 00008 M00S00007.cetext +++|*CALL COMSESS 00009 M00S00008.cetext +++| LIST * 00010 M00S00009.cetext +++| MACROES SPACE 4,10 00011 M00S00010.cetext +++| TITLE MACRO DEFINITIONS. 00012 M00S00011.cetext +++|*** MACRO DEFINITIONS. 00013 M00S00012.cetext +++| CECSA SPACE 4,10 00014 M00S00013.cetext +++| ENDM 00015 M00S00014.cetext +++| CEVAL SPACE 4,10 00016 M00S00015.cetext +++|*** CEVAL - CUSTOMER ENGINEERING VALIDATION. 00017 M00S00016.cetext +++|* 00018 M00S00017.cetext +++|* CEVAL ADDR,VO 00019 M00S00018.cetext +++|* 00020 M00S00019.cetext +++|* ENTRY ADDR = ADDRESS OF PARAMETER BLOCK. 00021 M00S00020.cetext +++|* VO = PARAMETER SPECIFYING USER VALIDATION ONLY. 00022 M00S00021.cetext +++|* 00023 M00S00022.cetext +++|* EXIT 00024 M00S00023.cetext +++|* ADDR IS THE ADDRESS OF A USER SUPPLIED PARAMETER BLOCK 00025 M00S00024.cetext +++|* RETURNED BY *CVL* WITH WORD 0 AND OTHER FIELDS COMPLETED. 00026 M00S00025.cetext +++|*T ADDR+0 48/ ,6/ RC,5/ ,1/C
Figure ADDR+0
00027 M00S00026.cetext +++|*T ADDR+1 5/ VB,6/ ,1/X,36/ ,12/ ESTO
Figure ADDR+1
00028 M00S00027.cetext +++|*T ADDR+2 5/ VB,4/ S,2/ ,1/X,12/ CH4,12/ CH3,12/ CH2,12/ CH1
Figure ADDR+2
00029 M00S00028.cetext +++|*T ADDR+3 5/ VB,4/ S,2/ ,1/X,36/ ,12/ EQPN
Figure ADDR+3
00030 M00S00029.cetext +++|*T ADDR+4 5/ VB,4/ S,2/ ,1/X,36/ ,12/ UN
Figure ADDR+4
00031 M00S00030.cetext +++|*T ADDR+5 5/ VB,4/ S,2/ ,1/X,36/ ,12/ DEVC
Figure ADDR+5
00032 M00S00031.cetext +++|*T ADDR+6 53/ ,7/ FC
Figure ADDR+6
00033 M00S00032.cetext +++|*T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ PACK SN
Figure ADDR+7
00034 M00S00033.cetext +++|*T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ RAE/FLE
Figure ADDR+7
00035 M00S00034.cetext +++|* WHERE - 00036 M00S00035.cetext +++|* RC (11-6) = RESPONSE CODE (SET BY *CVL*). 00037 M00S00036.cetext +++|* 0 = VALIDATION GRANTED. 00038 M00S00037.cetext +++|* 2 = VALIDATION GRANTED, ELEMENT MIGHT BE 00039 M00S00038.cetext +++|* SHARED WITH ANOTHER MAINFRAME. 00040 M00S00039.cetext +++|* 4 = VALIDATION DENIED, ELEMENT NOT IN EST. 00041 M00S00040.cetext +++|* 5 = VALIDATION DENIED, CRITICAL 00042 M00S00041.cetext +++|* INFORMATION MAY BE DESTROYED. 00043 M00S00042.cetext +++|* 6 = VALIDATION DENIED, ELEMENT IN USE. 00044 M00S00043.cetext +++|* 7 = VALIDATION DENIED, SHARE BYTE NOT SET. 00045 M00S00044.cetext +++|* C (0) = COMPLETE BIT (SET BY *CVL*). 00046 M00S00045.cetext +++|* VB (59-55) = VALIDATION ERROR BITS (SET BY *CVL*). 00047 M00S00046.cetext +++|* BIT 59 SET = ERROR IN WORD. 00048 M00S00047.cetext +++|* BIT 58 SET = ERROR IN BYTE 1. 00049 M00S00048.cetext +++|* BIT 57 SET = ERROR IN BYTE 2. 00050 M00S00049.cetext +++|* BIT 56 SET = ERROR IN BYTE 3. 00051 M00S00050.cetext +++|* BIT 55 SET = ERROR IN BYTE 4. 00052 M00S00051.cetext +++|* X (48) = DATA IN WORD (SUPPLIED BY CALLER - IF NOT 00053 M00S00052.cetext +++|* SET, *CVL* SUPPLIES MISSING FIELD). 00054 M00S00053.cetext +++|* X (48) = DATA IN WORD (SUPPLIED BY CALLER). 00055 M00S00054.cetext +++|* ESTO (11-0) = EST ORDINAL OF ELEMENT. 00056 M00S00055.cetext +++|* S = SHARE BITS - IF SET, REQUESTS EXCLUSIVE ACCESS. 00057 M00S00056.cetext +++|* BIT 54 = FOR ELEMENT IN BYTE 1. 00058 M00S00057.cetext +++|* BIT 53 = FOR ELEMENT IN BYTE 2. 00059 M00S00058.cetext +++|* BIT 52 = FOR ELEMENT IN BYTE 3. 00060 M00S00059.cetext +++|* BIT 51 = FOR ELEMENT IN BYTE 4. 00061 M00S00060.cetext +++|* CHX = CHANNEL NUMBERS. 00062 M00S00061.cetext +++|* EQPN (11-0) = EQUIPMENT (CONTROLLER) NUMBER. 00063 M00S00062.cetext +++|* UN (11-0) = UNIT NUMBER. 00064 M00S00063.cetext +++|* DEVM (23-12) = DEVICE MNEMONIC. 00065 M00S00064.cetext +++|* DEVC (11-0) = DEVICE CODE (SEE TABLE *TDVC*). 00066 M00S00065.cetext +++|* FC (6-0) = FUNCTION BITS. 00067 M00S00066.cetext +++|* BIT 0 = LOAD CONTROLLER MEMORY. 00068 M00S00067.cetext +++|* BIT 1 = WILL WRITE ON UNIT. 00069 M00S00068.cetext +++|* BIT 2 = WILL USE NON - PREALLOCATED AREA. 00070 M00S00069.cetext +++|* BIT 6 = ELEMENT NOT IN EST. 00071 M00S00070.cetext +++|* BIT 7 = SPECIAL REQUEST FLAG. 00072 M00S00071.cetext +++|* FOR *ECS* THIS BIT IS IGNORED IF 00073 M00S00072.cetext +++|* *NPRE* (BIT 2) IS NOT SET. 00074 M00S00073.cetext +++|* 0 = WILL ACCESS ALL OF NORMAL *ECS* 00075 M00S00074.cetext +++|* IF *DOWN* BIT SET IN EST. 00076 M00S00075.cetext +++|* 1 = WILL ACCESS MAINTENANCE MODE 00077 M00S00076.cetext +++|* HALF OF *ECS* IF MAINTENANCE 00078 M00S00077.cetext +++|* MODE BIT IN THE ASSOCIATED MST 00079 M00S00078.cetext +++|* IS SET. 00080 M00S00079.cetext +++|* PACK SN = PACK SERIAL NUMBER IN BCD CODE. 00081 M00S00080.cetext +++|* RAE/FLE = ECS REFERENCE ADDRESS AND ECS FIELD LENGTH. 00082 M00S00081.cetext +++| 00083 M00S00082.cetext +++| 00084 M00S00083.cetext +++| PURGMAC CEVAL 00085 M00S00084.cetext +++| 00086 M00S00085.cetext +++| CEVAL MACRO A,V 00087 M00S00086.cetext +++| R= X1,A 00088 M00S00087.cetext +++| IFC NE,$V$$ 00089 M00S00088.cetext +++| SX2 3 00090 M00S00089.cetext +++| ELSE 00091 M00S00090.cetext +++| SX2 1 00092 M00S00091.cetext +++| ENDIF 00093 M00S00092.cetext +++| RJ =XCVL= 00094 M00S00093.cetext +++| ENDM 00095 M00S00094.cetext +++| EJECT 00096 M00S00095.cetext +++|*** CEMEM - MEMORY REFERENCE ADDRESS REQUEST. 00097 M00S00096.cetext +++|* 00098 M00S00097.cetext +++|* CEMEM ADDR 00099 M00S00098.cetext +++|* 00100 M00S00099.cetext +++|* ENTRY ADDR = ADDRESS OF 2 WORD PARAMETER BLOCK. 00101 M00S00100.cetext +++|* 00102 M00S00101.cetext +++|* EXIT 00103 M00S00102.cetext +++|* ADDR IS THE ADDRESS OF THE USER SUPPLIED PARAMETER BLOCK OF 00104 M00S00103.cetext +++|* 2 WORDS THAT WILL BE COMPLETED BY *CVL* PRIOR TO 00105 M00S00104.cetext +++|* RETURNING CONTROL TO THE USER. 00106 M00S00105.cetext +++|*T ADDR+0 24/RA,24/FL,11/0,1/C
Figure ADDR+0
00107 M00S00106.cetext +++|*T ADDR+1 24/RAX,24/FLX,12/0
Figure ADDR+1
00108 M00S00107.cetext +++|* WHERE - 00109 M00S00108.cetext +++|* RA (59-36) = CENTRAL MEMORY ADDRESS FROM EXCHANGE PK. 00110 M00S00109.cetext +++|* FL (35-12) = FIELD LENGTH OF ASSIGNED CM FROM EXCH PK. 00111 M00S00110.cetext +++|* C (0) = COMPLETE BIT (SET BY *CVL*). 00112 M00S00111.cetext +++|* RAX (59-36)= ECS ADDRESS FROM EXCHANGE PACKAGE. 00113 M00S00112.cetext +++|* FLX (35-12)= ECS FIELD LENGTH FROM EXCHANGE PACKAGE. 00114 M00S00113.cetext +++| 00115 M00S00114.cetext +++| 00116 M00S00115.cetext +++| PURGMAC CEMEM 00117 M00S00116.cetext +++| 00118 M00S00117.cetext +++| CEMEM MACRO A 00119 M00S00118.cetext +++| SX1 A 00120 M00S00119.cetext +++| SX2 5 00121 M00S00120.cetext +++| RJ =XCVL= 00122 M00S00121.cetext +++| ENDM 00123 M00S00122.cetext +++| CESAB SPACE 4,10 00124 M00S00123.cetext +++|** CESAB - GET SYSTEM ATTRIBUTE BLOCK. 00125 M00S00124.cetext +++|*
| Line S00125 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00126 M01S00125.v23l617 ---|* CESAB ADDR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00001.v23l617 +++|* CESAB ADDR,VN 00128 M00S00126.cetext +++|* 00129 M00S00127.cetext +++|* ENTRY ADDR - CM ADDRESS OF BUFFER TO HOLD THE MAINFRAME 00130 M00S00128.cetext +++|* ATTRIBUTE BLOCK.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00002.v23l617 +++|* VN = VERSION NUMBER. 00132 M01S00003.v23l617 +++|* 0 - RETURN OLD FORMAT (DEFAULT). 00133 M01S00004.v23l617 +++|* 1 - RETURN NEW FORMAT. 00134 M00S00129.cetext +++|* 00135 M00S00130.cetext +++|* EXIT ADDR CONTAINS THE FOLLOWING- 00136 M00S00131.cetext +++|*
| Line S00132 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00132.v23l617 ---|*T ADDR 12/ ,12/ LNGTH,24/ ,6/ RC,5/ ,1/C
Figure ADDR
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00005.v23l617 +++|*T,ADDR 12/ ,12/ LNGTH,24/ ,6/ RC,5/ VN,1/C
Figure ADDR
00139 M00S00133.cetext +++|*T,ADDR+1 12/ PPSD,24/ CMSZ,12/ ,12/ OPTN
Figure ADDR+1
00140 M00S00134.cetext +++|*T,ADDR+2 60/FIRST VARIABLE ENTRY
Figure ADDR+2
00141 M00S00135.cetext +++|*T,ADDR+N 60/LAST VARIABLE ENTRY
Figure ADDR+N
00142 M00S00136.cetext +++| 00143 M00S00137.cetext +++|* WHERE - 00144 M00S00138.cetext +++| 00145 M00S00139.cetext +++|* LNGTH NUMBER OF CM WORDS IN THE RESPONSE. 00146 M00S00140.cetext +++|* RC RESPONSE CODE (ALWAYS 0).
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00006.v23l617 +++|* VN VERSION NUMBER OF FORMAT RETURNED. 00148 M00S00141.cetext +++|* C COMPLETION BIT 00149 M00S00142.cetext +++|* PPSD PP SPEED 00150 M00S00143.cetext +++|* CMSZ CM SIZE 00151 M00S00144.cetext +++|* OPTN OPTIONS INSTALLED 00152 M00S00145.cetext +++|* VARIABLE ENTRY - SEE *CEVAL* INTERFACE SPECIFICATION. 00153 M00S00146.cetext +++|* 00154 M00S00147.cetext +++|* CALLS CVL=. 00155 M00S00148.cetext +++| 00156 M00S00149.cetext +++|
| Line S00150 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00157 M01S00150.v23l617 ---| CESAB MACRO A
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00158 M01S00007.v23l617 +++| PURGMAC CESAB 00159 M01S00008.v23l617 +++| 00160 M01S00009.v23l617 +++| CESAB MACRO A,V 00161 M00S00151.cetext +++| R= X1,A 00162 M00S00152.cetext +++| SX2 4
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00153.cetext +++| RJ =XCVL= 00168 M00S00154.cetext +++| ENDM 00169 M00S00155.cetext +++| TITLE TAG EQUIVALENCES. 00170 M00S00156.cetext +++|*** THE FOLLOWING TAGS ARE DEFINED IN THE SCOPE OS STYLE AND 00171 M00S00157.cetext +++|* EQUIVALENCED TO THE KRONOS STYLE TAGS DEFINED IN THE COMMON 00172 M00S00158.cetext +++|* DECK *COMSESS*. 00173 M00S00159.cetext +++|* 00174 M00S00160.cetext +++|* 00175 M00S00161.cetext +++| CE.ECS SPACE 4,15 00176 M00S00162.cetext +++|** CE.ECSRA/CE.ECSFL TAGS FOR THE DEADSTART DIAGNOSTIC 00177 M00S00163.cetext +++|* SEQUENCER. 00178 M00S00164.cetext +++| 00179 M00S00165.cetext +++|
| Line S00166 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00180 M01S00166.252l678 ---| CE.ECSRA CECSA CETK,RU1000 00181 M01S00167.252l678 ---| CE.ECSFA CECSA CETK+1,RD1000 00182 M01S00168.252l678 ---| CE.ECSFL EQU CE.ECSFA-CE.ECSRA
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00183 M01S00001.252l678 +++| CE.ECSRA EQU ECSRA 00184 M01S00002.252l678 +++| CE.ECSFL EQU ECSFL 00185 M00S00169.cetext +++| IFLT CE.ECSFL,10B,1 00186 M00S00170.cetext +++| P ERR ECS FL MUST BE 1000B OR GREATER 00187 M00S00171.cetext +++| SPACE 4 00188 M00S00172.cetext +++| END
cdc/nos2.source/opl.opl871/deck/cetext.txt · Last modified: by 127.0.0.1