Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.mac2 +++| IDENT SSIR
00002 M01S00002.mac2 +++| TITLE SSIR - SPECIAL SYSTEM INTERFACE ROUTINES.
00003 M01S00003.mac2 +++|*COMMENT SPECIAL SYSTEM INTERFACE ROUTINES.
Line S00004 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00004 M02S00004.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00005 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00006 M01S00005.mac2 +++| SPACE 4
00007 M01S00006.mac2 +++|***** SSIR - SPECIAL SYSTEM INTERFACE ROUTINES.
00008 M01S00007.mac2 +++|*
00009 M01S00008.mac2 +++|* R. R. SEKHON 78/12/15.
00010 M01S00009.mac2 +++| SPACE 4
00011 M01S00010.mac2 +++|***** *SSIR* IS A COLLECTION OF RELOCATABLE MODULES
00012 M01S00011.mac2 +++|* THAT PROVIDE THE INTERFACE BETWEEN *SYMPL* ROUTINES
00013 M01S00012.mac2 +++|* AND THE SPECIAL SYSTEM INTERFACE ROUTINES.
00014 M01S00013.mac2 +++|*
00015 M01S00014.mac2 +++|* THE CALLING ROUTINE SHOULD HAVE SSJ= ENTRY POINT IN
00016 M01S00015.mac2 +++|* ORDER TO CALL THESE SPECIAL SYSTEM INTERFACE ROUTINES.
00017 M01S00016.mac2 +++|* THE *SYMPL* CALLING SEQUENCE IS SHOWN IN EACH MODULE
00018 M01S00017.mac2 +++|* ALONG WITH THE OTHER PERTINENT INFORMATION E.G ENTRY,
00019 M01S00018.mac2 +++|* EXIT, *SYMPL* DATA TYPES NEEDED ETC..
00020 M01S00019.mac2 +++| SPACE 4
00021 M01S00020.mac2 +++|***** *SSIR* MODULES TRANSLATE PARAMETERS IN *SYMPL*
00022 M01S00021.mac2 +++|* CALL TO A FORMAT USABLE BY *COMPASS* CODE.
00023 M01S00022.mac2 +++|*
00024 M01S00023.mac2 +++|* ENTRY *SYMPL* CALL USES THE ACTUAL PARAMETER LIST, CALL
00025 M01S00024.mac2 +++|* BY REFERENCE CALLING SEQUENCE WHERE
00026 M01S00025.mac2 +++|* (A1) = FWA OF PARAMETER ADDRESS LIST.
00027 M01S00026.mac2 +++|* ((A1)) = FIRST PARAMETER.
00028 M01S00027.mac2 +++|* ((A1+1)) = SECOND PARAMETER.
00029 M01S00028.mac2 +++|* . .
00030 M01S00029.mac2 +++|* . .
00031 M01S00030.mac2 +++|* . .
00032 M01S00031.mac2 +++|* ((A1+N-1)) = N-TH PARAMETER.
00033 M01S00032.mac2 +++|* ((A1+N)) = 0 (ZERO) (NOMINALLY)
00034 M01S00033.mac2 +++|* (X1) = FIRST PARAMETER.
00035 M01S00034.mac2 +++|*
00036 M01S00035.mac2 +++|* NEEDS THESE MODULES NEED COMCMAC, COMCCMD AND THE
00037 M01S00036.mac2 +++|* COMMON DECKS DEFINED IN *NOSTEXT*.
00038 M01S00037.mac2 +++|*
00039 M01S00038.mac2 +++|* NOTE B1 IS SET TO ONE UPON ENTRY TO EACH MODULE.
00040 M01S00039.mac2 +++|*
00041 M01S00040.mac2 +++|* OTHER *SSIR* IS A COLLECTION OF RELOCATABLE MODULES
00042 M01S00041.mac2 +++|* COMBINED INTO ONE *MODIFY* DECK NAMED *SSIR*.
00043 M01S00042.mac2 +++|
00044 M01S00043.mac2 +++| SPACE 4,10
00045 M01S00044.mac2 +++|***** DAYFILE MESSAGES.
00046 M01S00045.mac2 +++|*
Line S00046 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00047 M02S00046.ns22000 ---|* * RDPFC - ERROR IDLE, DN X.* - *RDPFC*
00048 M01S00001.ns22000 +++|* * RDPFC - ERROR IDLE, DN XX.* - *RDPFC*
00049 M01S00047.mac2 +++|* SKIPPED DEVICE X ON ACCOUNT OF ERROR
00050 M01S00048.mac2 +++|* IDLE SET ON IT.
00051 M01S00049.mac2 +++|*
Line S00050 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00052 M02S00050.ns22000 ---|* * RDPFC - PF UTILITY ACTIVE, DN X.* - *RDPFC*
00053 M01S00002.ns22000 +++|* * RDPFC - PF UTILITY ACTIVE, DN XX.* - *RDPFC*
00054 M01S00051.mac2 +++|* SKIPPED DEVICE X ON ACCOUNT OF PF UTILITY
00055 M01S00052.mac2 +++|* ACTIVE ON THE DEVICE.
00056 M01S00053.mac2 +++|
00057 M01S00054.mac2 +++| END
00058 M01S00055.mac2 +++| IDENT PFMAC
00059 M01S00056.mac2 +++| ENTRY ASIGNPF
00060 M01S00001.241l630 +++| ENTRY CKPFETC
00061 M01S00057.mac2 +++| ENTRY CLEARAF
00062 M01S00058.mac2 +++| ENTRY DROPDS
00063 M01S00001.v23l617 +++| ENTRY DROPIDS
00064 M01S00059.mac2 +++| ENTRY SETAF
00065 M01S00060.mac2 +++| ENTRY SETASA
00066 M01S00061.mac2 +++| ENTRY SETDA
00067 M01S00062.mac2 +++| ENTRY UATTACH
00068 M01S00002.v23l617 +++| ENTRY UGET
00069 M01S00003.v23l617 +++| ENTRY UREPLAC
00070 M01S00063.mac2 +++| SYSCOM B1
00071 M01S00064.mac2 +++| TITLE SPECIAL PFM MACROS.
00072 M01S00065.mac2 +++|*COMMENT SPECIAL PFM MACROS.
Line S00066 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00073 M02S00066.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00074 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00075 M01S00067.mac2 +++|
00076 M01S00068.mac2 +++|*CALL COMCMAC
00077 M01S00069.mac2 +++|*CALL COMCCMD
00078 M01S00070.mac2 +++| SPACE 4,40
00079 M01S00071.mac2 +++|*** PFMAC - SPECIAL *PFM* MACROS.
00080 M01S00072.mac2 +++|*
Line S00073 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00081 M02S00073.ns22000 ---|* ENTRY (LFN) = LOCAL FILE NAME, LEFT JUSTIFIED, ZERO
00082 M01S00003.ns22000 +++|* ENTRY (AF) = ALTERNATE STORAGE FLAG.
00083 M01S00004.ns22000 +++|* (AL) = ACCESS LEVEL FOR FILE.
00084 M01S00005.ns22000 +++|* (ASA) = ALTERNATE STORAGE ADDRESS.
00085 M01S00006.ns22000 +++|* 18/0,6/AT,36/AA
00086 M01S00007.ns22000 +++|* AT = ALTERNATE STORAGE TYPE.
00087 M01S00008.ns22000 +++|* AA = ALTERNATE STORAGE ADDRESS.
00088 M01S00009.ns22000 +++|* (CDT) = CREATION DATE AND TIME.
00089 M01S00010.ns22000 +++|* (EMA) = ERROR MESSAGE RETURN ADDRESS.
00090 M01S00011.ns22000 +++|* (FL) = FILE LENGTH BEING REQUESTED.
00091 M01S00012.ns22000 +++|* (FM) = FAMILY NAME.
00092 M01S00013.ns22000 +++|* (LFN) = LOCAL FILE NAME, LEFT JUSTIFIED, ZERO
00093 M01S00074.mac2 +++|* FILLED, SEVEN CHARACTERS MAXIMUM.
Line S00075 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00094 M02S00075.ns22000 ---|* (PFN) = PERMANENT FILE NAME, SAME CHARACTERISTICS
Line S00076 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00095 M02S00076.ns22000 ---|* AS *LFN*.
00096 M01S00077.mac2 +++|* (M) = ACCESS MODE.
00097 M01S00078.mac2 +++|* = 0, READ/WRITE.
00098 M01S00079.mac2 +++|* = 1, READ.
00099 M01S00080.mac2 +++|* = 2, APPEND.
00100 M01S00081.mac2 +++|* = 3, EXECUTE.
00101 M01S00082.mac2 +++|* = 4, NONE.
Line S00083 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00102 M02S00083.ns22000 ---|* = 5, MODIFY, APPEND, READ, AND/OR EXECUTE.
Line S00084 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00103 M02S00084.ns22000 ---|* = 6, READ, EXECUTE, AND/OR ALLOW
Line S00085 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00104 M02S00085.ns22000 ---|* MODIFICATION.
Line S00086 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00105 M02S00086.ns22000 ---|* (UI) = USER INDEX.
Line S00087 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00106 M02S00087.ns22000 ---|* (FM) = FAMILY NAME.
00107 M01S00014.ns22000 +++|* = 5, MODIFY.
00108 M01S00015.ns22000 +++|* = 6, READ AND ALLOW MODIFY.
00109 M01S00016.ns22000 +++|* = 7, READ AND ALLOW APPEND.
00110 M01S00017.ns22000 +++|* = 8, UPDATE.
00111 M01S00018.ns22000 +++|* = 9, READ AND ALLOW UPDATE.
00112 M01S00019.ns22000 +++|*
00113 M01S00020.ns22000 +++|* (PFC) = 16 WORD BUFFER FOR THE CATALOG IMAGE.
00114 M01S00088.mac2 +++|* (PFID) = PERMANENT FILE CATALOG INDEX.
00115 M01S00089.mac2 +++|* 28/0,2/PEO,6/DN,12/TRACK,12/SECTOR
00116 M01S00090.mac2 +++|* PEO = PFC ORDINAL.
00117 M01S00091.mac2 +++|* DN = DEVICE NUMBER.
00118 M01S00092.mac2 +++|* TRACK = TRACK NUMBER WHERE PFC RESIDES.
00119 M01S00093.mac2 +++|* SECTOR = SECTOR ORDINAL.
Line S00094 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00120 M02S00094.ns22000 ---|* (PFC) = 16 WORD BUFFER FOR THE CATALOG IMAGE.
Line S00095 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00121 M02S00095.ns22000 ---|* (ASA) = ALTERNATE STORAGE ADDRESS.
Line S00096 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00122 M02S00096.ns22000 ---|* 18/0,6/AT,36/AA
Line S00097 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00123 M02S00097.ns22000 ---|* AT = ALTERNATE STORAGE TYPE.
Line S00098 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00124 M02S00098.ns22000 ---|* AA = ALTERNATE STORAGE ADDRESS.
Line S00099 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00125 M02S00099.ns22000 ---|* (CDT) = CREATION DATE AND TIME.
Line S00100 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00126 M02S00100.ns22000 ---|* (AF) = ALTERNATE STORAGE FLAG.
00127 M01S00021.ns22000 +++|* (PFN) = PERMANENT FILE NAME, SAME CHARACTERISTICS
00128 M01S00022.ns22000 +++|* AS *LFN*.
00129 M01S00101.mac2 +++|* (RP) = RETURN PROCESSING.
00130 M01S00102.mac2 +++|* = 1, REAL TIME PROCESSING.
00131 M01S00103.mac2 +++|* = 2, STANDARD ERROR PROCESSING ONLY.
00132 M01S00104.mac2 +++|* = 3, STANDARD AND REAL TIME PROCESSING.
00133 M01S00105.mac2 +++|* = 4, USER PROCESSING.
00134 M01S00106.mac2 +++|* = 6, FULL ERROR PROCESSING OPTIONS.
00135 M01S00004.v23l617 +++|* (STAT) = *PFM* RETURN STATUS.
Line S00107 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00136 M02S00107.ns22000 ---|* (EMA) = ERROR MESSAGE RETURN ADDRESS.
00137 M01S00023.ns22000 +++|* (UI) = USER INDEX.
00138 M01S00108.mac2 +++| SPACE 4,15
00139 M01S00109.mac2 +++|** INIT - INTIALIZE *PFM* FET.
00140 M01S00110.mac2 +++|*
00141 M01S00111.mac2 +++|* ENTRY (A1) = FWA OF PARAMETER ADDRESS LIST.
00142 M01S00112.mac2 +++|* (X2) = RETURN JUMP TO THE MACRO INTERFACE
00143 M01S00113.mac2 +++|* CALLING ROUTINE.
00144 M01S00114.mac2 +++|* (B2) = ERROR MESSAGE RETURN ADDRESS.
00145 M01S00115.mac2 +++|*
00146 M01S00116.mac2 +++|* EXIT (STATW) = ADDRESS OF RETURN STATUS WORD.
00147 M01S00117.mac2 +++|* (EXITA) = RETURN JUMP TO THE MACRO INTERFACE
00148 M01S00118.mac2 +++|* CALLING ROUTINE.
00149 M01S00002.241l630 +++|* IF *PFET* COMPLETION BIT IS SET -
00150 M01S00119.mac2 +++|* (PFET) = INITIALIZED *PFM* FET.
00151 M01S00003.241l630 +++|* IF *PFET* IS BUSY -
00152 M01S00004.241l630 +++|* (X6) .LT. ZERO (IF *PFET* IS BUSY, USER MAY RETRY).
00153 M01S00120.mac2 +++|*
Line S00121 Modification History
M01 (Added by) mac2
M02 (Updated by) 241l630
Seq # *Modification Id* Act
----------------------------+
00154 M02S00121.241l630 ---|* USES A - 2, 6.
Line S00122 Modification History
M01 (Added by) mac2
M02 (Updated by) 241l630
Seq # *Modification Id* Act
----------------------------+
00155 M02S00122.241l630 ---|* B - 1.
Line S00123 Modification History
M01 (Added by) mac2
M02 (Updated by) 241l630
Seq # *Modification Id* Act
----------------------------+
00156 M02S00123.241l630 ---|* X - 1, 2, 6.
00157 M01S00005.241l630 +++|* USES X - 2, 3, 6.
00158 M01S00006.241l630 +++|* A - 2, 3, 6.
00159 M01S00007.241l630 +++|* B - 1.
00160 M01S00124.mac2 +++|*
00161 M01S00125.mac2 +++|* MACROS SETFET.
00162 M01S00126.mac2 +++|
00163 M01S00127.mac2 +++|
00164 M01S00128.mac2 +++| INIT SUBR ENTRY/EXIT
00165 M01S00129.mac2 +++| SB1 1
00166 M01S00008.241l630 +++| SA3 PFET FWA OF FET
00167 M01S00130.mac2 +++| BX6 X2 SAVE RETURN ADDRESS FOR MACRO
00168 M01S00131.mac2 +++| SA6 EXITA
00169 M01S00132.mac2 +++| SA2 A1+B1 SAVE ADDRESS OF RETURN STATUS WORD
00170 M01S00133.mac2 +++| BX6 X2
00171 M01S00134.mac2 +++| SA6 STATW
00172 M01S00009.241l630 +++| LX3 59-0 CHECK COMPLETION BIT
00173 M01S00010.241l630 +++| MX6 -1 SET STATUS FOR (*PFET* BUSY, RETRY LATER)
00174 M01S00011.241l630 +++| PL X3,EXIT1 IF *PFET* BUSY
Line S00135 Modification History
M01 (Added by) mac2
M02 (Updated by) mac22
Seq # *Modification Id* Act
----------------------------+
00175 M02S00135.mac22 ---| SETFET PFET,(LFN=#A1+B0),(ERP=#A1+2),(ERA=B2)
00176 M01S00001.mac22 +++| SETFET PFET,(LFN=#A1+B0),(ERP=#A1+2),(ERA=B2),(PFN=INITA)
00177 M01S00136.mac2 +++| EQ INITX RETURN
Line S00137 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00178 M02S00137.ns22000 ---|
00179 M01S00002.mac22 +++|
00180 M01S00003.mac22 +++|
00181 M01S00004.mac22 +++| INITA CON 0 DEFAULT PFN
00182 M01S00138.mac2 +++| SPACE 4,10
00183 M01S00139.mac2 +++|** EXIT - COMMON EXIT FOR SPECIAL *PFM* MACROS.
00184 M01S00140.mac2 +++|*
00185 M01S00141.mac2 +++|* ENTRY (EXITA) = RETURN JUMP TO THE MACRO INTERFACE
00186 M01S00142.mac2 +++|* CALLING ROUTINE.
00187 M01S00143.mac2 +++|* (STATW) = ADDRESS OF RETURN STATUS WORD.
00188 M01S00012.241l630 +++|* AT *EXIT1*, TO RETURN STATUS SPECIFIED IN (X6).
00189 M01S00144.mac2 +++|*
00190 M01S00145.mac2 +++|* EXIT (STAT) = ERROR STATUS.
00191 M01S00013.241l630 +++|* (STAT) .LT. ZERO, IF *PFET* BUSY.
00192 M01S00146.mac2 +++|*
00193 M01S00147.mac2 +++|* USES A - 1, 2, 6.
00194 M01S00148.mac2 +++|* X - 0, 1, 2, 6.
00195 M01S00149.mac2 +++|*
Line S00150 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00196 M02S00150.ns22000 ---|* NOTES REFER TO *NOS REFERENCE MANUAL* VOL. 2 FOR
Line S00151 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00197 M02S00151.ns22000 ---|* ERROR STATUS VALUES.
00198 M01S00024.ns22000 +++|* NOTES REFER TO *COMSPFM* FOR ERROR STATUS VALUES.
00199 M01S00152.mac2 +++|
00200 M01S00153.mac2 +++|
00201 M01S00154.mac2 +++| EXIT BSS 0 ENTRY/EXIT
00202 M01S00155.mac2 +++| SA1 PFET RETURN ERROR STATUS
00203 M01S00156.mac2 +++| MX0 -8 MASK ERROR CODE
00204 M01S00157.mac2 +++| AX1 10
00205 M01S00158.mac2 +++| BX6 -X0*X1
Line S00159 Modification History
M01 (Added by) mac2
M02 (Updated by) 241l630
Seq # *Modification Id* Act
----------------------------+
00206 M02S00159.241l630 ---| SA2 STATW
00207 M01S00014.241l630 +++| EXIT1 SA2 STATW STORE ERROR CODE IN STATUS RETURN WORD
00208 M01S00160.mac2 +++| SA6 X2
00209 M01S00161.mac2 +++| EXITA CON 0
00210 M01S00162.mac2 +++|* EQU * SET FOR RETURN FROM MACRO CALLS
00211 M01S00163.mac2 +++| ASIGNPF SPACE 4,25
Line S00164 Modification History
M01 (Added by) mac2
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00212 M02S00164.ns2676 ---|** ASIGNPF - ASSIGN PERMANENT FILE SPACE.
00213 M01S00001.ns2676 +++|*** ASIGNPF - ASSIGN PERMANENT FILE SPACE.
00214 M01S00165.mac2 +++|*
Line S00166 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00215 M02S00166.ns22000 ---|* ASIGNPF(LFN,STAT,RP,FL,UI,FM,EMA); (*SYMPL* CALL)
00216 M01S00025.ns22000 +++|* ASIGNPF(LFN,STAT,RP,FL,UI,FM,AL,EMA); (*SYMPL* CALL)
00217 M01S00167.mac2 +++|*
00218 M01S00168.mac2 +++|* USES A - 2, 3.
00219 M01S00169.mac2 +++|* B - 2.
00220 M01S00170.mac2 +++|* X - 2, 3.
00221 M01S00171.mac2 +++|*
00222 M01S00172.mac2 +++|* CALLS INIT, EXIT.
00223 M01S00173.mac2 +++|*
00224 M01S00174.mac2 +++|* MACROS ASSIGNPF.
00225 M01S00175.mac2 +++|
00226 M01S00176.mac2 +++|
00227 M01S00177.mac2 +++| ASIGNPF SUBR ENTRY/EXIT
00228 M01S00178.mac2 +++| SA2 ASIGNPF
Line S00179 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00229 M02S00179.ns22000 ---| SA3 A1+6 GET ERROR MESSAGE RETURN ADDRESS
00230 M01S00026.ns22000 +++| SA3 A1+7 GET ERROR MESSAGE RETURN ADDRESS
00231 M01S00180.mac2 +++| SA3 X3
00232 M01S00181.mac2 +++| SB2 X3
00233 M01S00182.mac2 +++| RJ INIT INITIALIZE *PFM* FET
Line S00183 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00234 M02S00183.ns22000 ---| ASSIGNPF PFET,#A1+3,SRB,#A1+4,#A1+5
00235 M01S00027.ns22000 +++| ASSIGNPF PFET,#A1+3,SRB,#A1+4,#A1+5,#A1+6
00236 M01S00184.mac2 +++| EQ EXIT RETURN
Line S00185 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00237 M02S00185.ns22000 ---|
00238 M01S00015.241l630 +++| CKPFETC SPACE 4,25
Line S00016 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00239 M02S00016.ns2676 ---|** CKPFETC - CHECK *PFM* FET COMPLETION.
00240 M01S00002.ns2676 +++|*** CKPFETC - CHECK *PFM* FET COMPLETION.
00241 M01S00017.241l630 +++|*
00242 M01S00018.241l630 +++|* *SYMPL* CALL -
00243 M01S00019.241l630 +++|* CKPFETC(LFN,STAT);
00244 M01S00020.241l630 +++|*
00245 M01S00021.241l630 +++|* EXIT (STAT) .LT. ZERO IF *PFET* BUSY.
00246 M01S00022.241l630 +++|*
00247 M01S00023.241l630 +++|* USES X - 2, 3, 6.
00248 M01S00024.241l630 +++|* A - 2, 3, 6.
00249 M01S00025.241l630 +++|* B - 1.
00250 M01S00026.241l630 +++|*
00251 M01S00027.241l630 +++|* CALLS EXIT.
00252 M01S00028.241l630 +++|
00253 M01S00029.241l630 +++|
00254 M01S00030.241l630 +++| CKPFETC SUBR ENTRY/EXIT
00255 M01S00031.241l630 +++| SB1 1
00256 M01S00032.241l630 +++| SA2 CKPFETC SET RETURN ADDRESS
00257 M01S00033.241l630 +++| BX6 X2
00258 M01S00034.241l630 +++| SA6 EXITA
00259 M01S00035.241l630 +++| SA2 A1+B1 ADDRESS OF RETURN STATUS WORD
00260 M01S00036.241l630 +++| SA3 PFET
00261 M01S00037.241l630 +++| BX6 X2
00262 M01S00038.241l630 +++| LX3 59-0 CHECK COMPLETION BIT
00263 M01S00039.241l630 +++| SA6 STATW SAVE ADDRESS OF RETURN STATUS WORD
00264 M01S00040.241l630 +++| MX6 -1 SET STATUS FOR (*PFET* BUSY, RETRY LATER)
00265 M01S00041.241l630 +++| PL X3,EXIT1 IF *PFET* BUSY
00266 M01S00042.241l630 +++| EQ EXIT RETURN (WITH STATUS)
00267 M01S00186.mac2 +++| CLEARAF SPACE 4,35
Line S00187 Modification History
M01 (Added by) mac2
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00268 M02S00187.ns2676 ---|** CLEARAF - CLEAR ALTERNATE STOARGE FLAGS.
00269 M01S00003.ns2676 +++|*** CLEARAF - CLEAR ALTERNATE STORAGE FLAGS.
00270 M01S00188.mac2 +++|*
00271 M01S00189.mac2 +++|* CLEARAF(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,AF,EMA);
00272 M01S00190.mac2 +++|* (*SYMPL* CALL)
00273 M01S00191.mac2 +++|*
00274 M01S00192.mac2 +++|* USES A - 2, 3.
00275 M01S00193.mac2 +++|* B - 2.
00276 M01S00194.mac2 +++|* X - 2, 3.
00277 M01S00195.mac2 +++|*
00278 M01S00196.mac2 +++|* CALLS INIT, EXIT.
00279 M01S00197.mac2 +++|*
00280 M01S00198.mac2 +++|* MACROS CLEARAF.
00281 M01S00199.mac2 +++|
00282 M01S00200.mac2 +++|
00283 M01S00201.mac2 +++| CLEARAF SUBR ENTRY/EXIT
00284 M01S00202.mac2 +++| SA2 CLEARAF
00285 M01S00203.mac2 +++| SA3 A1+9 GET ERROR MESSAGE RETURN ADDRESS
00286 M01S00204.mac2 +++| SA3 X3
00287 M01S00205.mac2 +++| SB2 X3
00288 M01S00206.mac2 +++| RJ INIT INITIALIZE *PFM* FET
00289 M01S00207.mac2 +++| CLEARAF PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7,#A1+8
00290 M01S00208.mac2 +++| EQ EXIT RETURN
Line S00209 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00291 M02S00209.ns22000 ---|
00292 M01S00210.mac2 +++| DROPDS SPACE 4,30
Line S00211 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00293 M02S00211.v23l617 ---|** DROPDS - DROP DISK SPACE.
Line S00005 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00294 M02S00005.ns2676 ---|** DROPDS - DROP DIRECT ACCESS FILE DISK SPACE.
00295 M01S00004.ns2676 +++|*** DROPDS - DROP DIRECT ACCESS FILE DISK SPACE.
00296 M01S00212.mac2 +++|*
00297 M01S00213.mac2 +++|* DROPDS(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,EMA); (*SYMPL* CALL)
00298 M01S00214.mac2 +++|*
00299 M01S00215.mac2 +++|* USES A - 2, 3.
00300 M01S00216.mac2 +++|* B - 2.
00301 M01S00217.mac2 +++|* X - 2, 3.
00302 M01S00218.mac2 +++|*
00303 M01S00219.mac2 +++|* CALLS INIT, EXIT.
00304 M01S00220.mac2 +++|*
00305 M01S00221.mac2 +++|* MACROS DROPDS.
00306 M01S00222.mac2 +++|
00307 M01S00223.mac2 +++|
00308 M01S00224.mac2 +++| DROPDS SUBR ENTRY/EXIT
00309 M01S00225.mac2 +++| SA2 DROPDS
00310 M01S00226.mac2 +++| SA3 A1+8 GET ERROR MESSAGE RETURN ADDRESS
00311 M01S00227.mac2 +++| SA3 X3
00312 M01S00228.mac2 +++| SB2 X3
00313 M01S00229.mac2 +++| RJ INIT INITIALIZE *PFM* FET
00314 M01S00230.mac2 +++| DROPDS PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7
00315 M01S00231.mac2 +++| EQ EXIT RETURN
00316 M01S00006.v23l617 +++| DROPIDS SPACE 4,20
Line S00007 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00317 M02S00007.ns2676 ---|** DROPIDS - DROP INDIRECT ACCESS FILE DISK SPACE.
00318 M01S00005.ns2676 +++|*** DROPIDS - DROP INDIRECT ACCESS FILE DISK SPACE.
00319 M01S00008.v23l617 +++|*
00320 M01S00009.v23l617 +++|* *SYMPL* CALL -
00321 M01S00010.v23l617 +++|* DROPIDS(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,EMA);
00322 M01S00011.v23l617 +++|*
00323 M01S00012.v23l617 +++|* USES X - 2, 3.
00324 M01S00013.v23l617 +++|* A - 2, 3.
00325 M01S00014.v23l617 +++|* B - 2.
00326 M01S00015.v23l617 +++|*
00327 M01S00016.v23l617 +++|* CALLS INIT.
00328 M01S00017.v23l617 +++|*
00329 M01S00018.v23l617 +++|* MACROS DROPIDS.
00330 M01S00019.v23l617 +++|
00331 M01S00020.v23l617 +++|
00332 M01S00021.v23l617 +++| DROPIDS SUBR ENTRY/EXIT
00333 M01S00022.v23l617 +++| SA2 DROPIDS
00334 M01S00023.v23l617 +++| SA3 A1+8 GET ERROR MESSAGE RETURN ADDRESS
00335 M01S00024.v23l617 +++| SA3 X3
00336 M01S00025.v23l617 +++| SB2 X3
00337 M01S00026.v23l617 +++| RJ INIT INITIALIZE *PFM* FET
00338 M01S00027.v23l617 +++| DROPIDS PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7
00339 M01S00028.v23l617 +++| EQ EXIT RETURN
Line S00232 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00340 M02S00232.ns22000 ---|
00341 M01S00233.mac2 +++| SETAF SPACE 4,35
Line S00234 Modification History
M01 (Added by) mac2
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00342 M02S00234.ns2676 ---|** SETAF - SET ALTERNATE STORAGE FLAGS.
00343 M01S00006.ns2676 +++|*** SETAF - SET ALTERNATE STORAGE FLAGS.
00344 M01S00235.mac2 +++|*
00345 M01S00236.mac2 +++|* SETAF(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,AF,EMA); (*SYMPL* CALL)
00346 M01S00237.mac2 +++|*
00347 M01S00238.mac2 +++|* USES A - 2, 3.
00348 M01S00239.mac2 +++|* B - 2.
00349 M01S00240.mac2 +++|* X - 2, 3.
00350 M01S00241.mac2 +++|*
00351 M01S00242.mac2 +++|* CALLS INIT, EXIT.
00352 M01S00243.mac2 +++|*
00353 M01S00244.mac2 +++|* MACROS SETAF.
00354 M01S00245.mac2 +++|
00355 M01S00246.mac2 +++|
00356 M01S00247.mac2 +++| SETAF SUBR ENTRY/EXIT
00357 M01S00248.mac2 +++| SA2 SETAF
00358 M01S00249.mac2 +++| SA3 A1+9 GET ERROR MESSAGE RETURN ADDRESS
00359 M01S00250.mac2 +++| SA3 X3
00360 M01S00251.mac2 +++| SB2 X3
00361 M01S00252.mac2 +++| RJ INIT INITIALIZE *PFM* FET
00362 M01S00253.mac2 +++| SETAF PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7,#A1+8
00363 M01S00254.mac2 +++| EQ EXIT RETURN
Line S00255 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00364 M02S00255.ns22000 ---|
00365 M01S00256.mac2 +++| SETASA SPACE 4,30
Line S00257 Modification History
M01 (Added by) mac2
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00366 M02S00257.ns2676 ---|** SETASA - SET ALTERNATE STORAGE ADDRESS IN CATALOG.
00367 M01S00007.ns2676 +++|*** SETASA - SET ALTERNATE STORAGE ADDRESS IN CATALOG.
00368 M01S00258.mac2 +++|*
00369 M01S00259.mac2 +++|* SETASA(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,EMA); (*SYMPL* CALL)
00370 M01S00260.mac2 +++|*
00371 M01S00261.mac2 +++|* USES A - 2, 3.
00372 M01S00262.mac2 +++|* B - 2.
00373 M01S00263.mac2 +++|* X - 2, 3.
00374 M01S00264.mac2 +++|*
00375 M01S00265.mac2 +++|* CALLS INIT, EXIT.
00376 M01S00266.mac2 +++|*
00377 M01S00267.mac2 +++|* MACROS SETASA.
00378 M01S00268.mac2 +++|
00379 M01S00269.mac2 +++|
00380 M01S00270.mac2 +++| SETASA SUBR ENTRY/EXIT
00381 M01S00271.mac2 +++| SA2 SETASA
00382 M01S00272.mac2 +++| SA3 A1+8 GET ERROR MESSAGE RETURN ADDRESS
00383 M01S00273.mac2 +++| SA3 X3
00384 M01S00274.mac2 +++| SB2 X3
00385 M01S00275.mac2 +++| RJ INIT INITIALIZE *PFM* FET
00386 M01S00276.mac2 +++| SETASA PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7
00387 M01S00277.mac2 +++| EQ EXIT RETURN
00388 M01S00278.mac2 +++|
00389 M01S00279.mac2 +++| SETDA SPACE 4,30
Line S00280 Modification History
M01 (Added by) mac2
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00390 M02S00280.ns2676 ---|** SETDA - SET DISK ADDRESS.
00391 M01S00008.ns2676 +++|*** SETDA - SET DISK ADDRESS.
00392 M01S00281.mac2 +++|*
00393 M01S00282.mac2 +++|* SETDA(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,EMA); (*SYMPL* CALL)
00394 M01S00283.mac2 +++|*
00395 M01S00284.mac2 +++|* USES A - 2, 3.
00396 M01S00285.mac2 +++|* B - 2.
00397 M01S00286.mac2 +++|* X - 2, 3.
00398 M01S00287.mac2 +++|*
00399 M01S00288.mac2 +++|* CALLS INIT, EXIT.
00400 M01S00289.mac2 +++|*
00401 M01S00290.mac2 +++|* MACROS SETDA.
00402 M01S00291.mac2 +++|
00403 M01S00292.mac2 +++|
00404 M01S00293.mac2 +++| SETDA SUBR ENTRY/EXIT
00405 M01S00294.mac2 +++| SA2 SETDA
00406 M01S00295.mac2 +++| SA3 A1+8 GET ERROR MESSAGE RETURN ADDRESS
00407 M01S00296.mac2 +++| SA3 X3
00408 M01S00297.mac2 +++| SB2 X3
00409 M01S00298.mac2 +++| RJ INIT INITIALIZE *PFM* FET
00410 M01S00299.mac2 +++| SETDA PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7
00411 M01S00300.mac2 +++| EQ EXIT RETURN
Line S00301 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00412 M02S00301.ns22000 ---|
00413 M01S00302.mac2 +++| UATTACH SPACE 4,45
Line S00303 Modification History
M01 (Added by) mac2
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00414 M02S00303.ns2676 ---|** UATTACH - UTITLITY ATTACH.
00415 M01S00009.ns2676 +++|*** UATTACH - UTILITY ATTACH.
00416 M01S00304.mac2 +++|*
00417 M01S00305.mac2 +++|* UATTACH(LFN,STAT,RP,PFN,M,UI,FM,PFID,PFC,CDT,EMA);
00418 M01S00306.mac2 +++|* (*SYMPL* CALL)
00419 M01S00307.mac2 +++|*
00420 M01S00308.mac2 +++|* USES A - 2, 3.
00421 M01S00309.mac2 +++|* B - 2.
00422 M01S00310.mac2 +++|* X - 2, 3.
00423 M01S00311.mac2 +++|*
00424 M01S00312.mac2 +++|* CALLS INIT, EXIT.
00425 M01S00313.mac2 +++|*
00426 M01S00314.mac2 +++|* MACROS UATTACH.
00427 M01S00315.mac2 +++|
00428 M01S00316.mac2 +++|
00429 M01S00317.mac2 +++| UATTACH SUBR ENTRY/EXIT
00430 M01S00318.mac2 +++| SA2 UATTACH
00431 M01S00319.mac2 +++| SA3 A1+10 GET ERROR MESSAGE RETURN ADDRESS
00432 M01S00320.mac2 +++| SA3 X3
00433 M01S00321.mac2 +++| SB2 X3
00434 M01S00322.mac2 +++| RJ INIT INITIALIZE *PFM* FET
00435 M01S00323.mac2 +++| SA2 A1+8 GET ADDRESS OF *PFC*
00436 M01S00324.mac2 +++| SB2 X2
00437 M01S00325.mac2 +++| UATTACH PFET,#A1+3,#A1+4,SRB,#A1+5,#A1+6,#A1+7,B2,#A1+9
00438 M01S00326.mac2 +++| EQ EXIT RETURN
Line S00327 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00439 M02S00327.v23l617 ---|
00440 M01S00029.v23l617 +++| UGET SPACE 4,20
Line S00030 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00441 M02S00030.ns2676 ---|** UGET - UTILITY GET.
00442 M01S00010.ns2676 +++|*** UGET - UTILITY GET.
00443 M01S00031.v23l617 +++|*
00444 M01S00032.v23l617 +++|* *SYMPL* CALL -
00445 M01S00033.v23l617 +++|* UGET(LFN,STAT,RP,PFN,UI,FM,PFID,PFC,CDT,EMA);
00446 M01S00034.v23l617 +++|*
00447 M01S00043.241l630 +++|* EXIT *UGET* FUNCTION INITIATED.
00448 M01S00044.241l630 +++|* (FUNCTION IS PERFORMED WITHOUT AUTORECALL).
00449 M01S00045.241l630 +++|*
00450 M01S00035.v23l617 +++|* USES X - 2, 3.
00451 M01S00036.v23l617 +++|* A - 2, 3.
00452 M01S00037.v23l617 +++|* B - 2.
00453 M01S00038.v23l617 +++|*
00454 M01S00039.v23l617 +++|* CALLS INIT.
00455 M01S00040.v23l617 +++|*
00456 M01S00041.v23l617 +++|* MACROS UGET.
00457 M01S00042.v23l617 +++|
00458 M01S00043.v23l617 +++|
00459 M01S00044.v23l617 +++| UGET SUBR ENTRY/EXIT
00460 M01S00045.v23l617 +++| SA2 UGET
00461 M01S00046.v23l617 +++| SA3 A1+9 GET ERROR MESSAGE RETURN ADDRESS
00462 M01S00047.v23l617 +++| SA3 X3
00463 M01S00048.v23l617 +++| SB2 X3
00464 M01S00049.v23l617 +++| RJ INIT INITIALIZE *PFM* FET
00465 M01S00050.v23l617 +++| SA2 A1+7 GET ADDRESS OF *PFC*
00466 M01S00051.v23l617 +++| SB2 X2
00467 M01S00052.v23l617 +++| UGET PFET,#A1+3,SRB,#A1+4,#A1+5,#A1+6,B2,#A1+8
Line S00053 Modification History
M01 (Added by) v23l617
M02 (Updated by) 241l630
Seq # *Modification Id* Act
----------------------------+
00468 M02S00053.241l630 ---| EQ EXIT RETURN
00469 M01S00046.241l630 +++| EQ UGETX RETURN
00470 M01S00054.v23l617 +++| UREPLAC SPACE 4,20
Line S00055 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00471 M02S00055.ns2676 ---|** UREPLAC - UTILITY REPLACE.
00472 M01S00011.ns2676 +++|*** UREPLAC - UTILITY REPLACE.
00473 M01S00056.v23l617 +++|*
00474 M01S00057.v23l617 +++|* *SYMPL* CALL -
00475 M01S00058.v23l617 +++|* UREPLAC(LFN,STAT,RP,PFN,UI,FM,PFID,ASA,CDT,EMA);
00476 M01S00059.v23l617 +++|*
00477 M01S00047.241l630 +++|* EXIT *UREPLACE* FUNCTION INITIATED.
00478 M01S00048.241l630 +++|* (FUNCTION IS PERFORMED WITHOUT AUTORECALL).
00479 M01S00049.241l630 +++|*
00480 M01S00060.v23l617 +++|* USES X - 2, 3.
00481 M01S00061.v23l617 +++|* A - 2, 3.
00482 M01S00062.v23l617 +++|* B - 2.
00483 M01S00063.v23l617 +++|*
00484 M01S00064.v23l617 +++|* CALLS INIT.
00485 M01S00065.v23l617 +++|*
00486 M01S00066.v23l617 +++|* MACROS UREPLAC.
00487 M01S00067.v23l617 +++|
00488 M01S00068.v23l617 +++|
00489 M01S00069.v23l617 +++| UREPLAC SUBR ENTRY/EXIT
00490 M01S00070.v23l617 +++| SA2 UREPLAC
00491 M01S00071.v23l617 +++| SA3 A1+9 GET ERROR MESSAGE RETURN ADDRESS
00492 M01S00072.v23l617 +++| SA3 X3
00493 M01S00073.v23l617 +++| SB2 X3
00494 M01S00074.v23l617 +++| RJ INIT INITIALIZE *PFM* FET
00495 M01S00075.v23l617 +++| UREPLAC PFET,#A1+3,SRB,#A1+4,#A1+5,#A1+6,#A1+7,#A1+8
Line S00076 Modification History
M01 (Added by) v23l617
M02 (Updated by) 241l630
Seq # *Modification Id* Act
----------------------------+
00496 M02S00076.241l630 ---| EQ EXIT RETURN
00497 M01S00050.241l630 +++| EQ UREPLACX RETURN
00498 M01S00077.v23l617 +++|FET SPACE 4,10
00499 M01S00328.mac2 +++|* *PFM* FET USED/SHARED BY ALL MACRO INTERFACE ROUTINES.
00500 M01S00329.mac2 +++|
00501 M01S00330.mac2 +++| PFET FILEB DMMY,DMYL,(FET=16D) DUMMY *PFM* FET
00502 M01S00331.mac2 +++| DMYL EQU 0 LENGTH OF DUMMY *CIO* BUFFER
00503 M01S00332.mac2 +++| DMMY BSS 0
00504 M01S00333.mac2 +++| SRB BSS 4 SPECIAL REQUEST BLOCK
00505 M01S00334.mac2 +++| STATW BSS 1 ADDRESS OF *STAT*
00506 M01S00335.mac2 +++|
00507 M01S00336.mac2 +++| END
00508 M01S00337.mac2 +++| IDENT BUDT
00509 M01S00338.mac2 +++| ENTRY BUDT
Line S00339 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00510 M02S00339.ns22000 ---| EXT RDESTC
00511 M01S00340.mac2 +++| SYSCOM B1
00512 M01S00028.ns22000 +++| SST
00513 M01S00341.mac2 +++| TITLE BUDT - BUILD UNIT DEVICE TABLE.
00514 M01S00342.mac2 +++|*COMMENT BUILD UNIT DEVICE TABLE.
Line S00343 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00515 M02S00343.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00516 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00517 M01S00344.mac2 +++|
00518 M01S00345.mac2 +++|*CALL COMCMAC
00519 M01S00346.mac2 +++|
Line S00347 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00520 M02S00347.ns22000 ---| CS EQU 0323B MNEMONIC FOR SELECTOR
Line S00348 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00521 M02S00348.ns22000 ---| CT EQU 0324B MNEMONIC FOR TRANSPORT
00522 M01S00349.mac2 +++| UDTN EQU 5 NUMBER OF WORDS PER *UDT* ENTRY
00523 M01S00350.mac2 +++| BUDT SPACE 4,15
00524 M01S00351.mac2 +++|*** BUDT - BUILD UNIT DEVICE TABLE.
00525 M01S00352.mac2 +++|*
Line S00353 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00526 M02S00353.ns22000 ---|* THE ENTIRE *EST* IS READ. FOR EVERY *EST* ENTRY
00527 M01S00029.ns22000 +++|* THE ENTIRE EST IS READ, VIA *RDESTC*. FOR EACH EST ENTRY
00528 M01S00354.mac2 +++|* FOR *MSS* EQUIPMENT A CORRESPONDING ENTRY IS SET
00529 M01S00355.mac2 +++|* UP IN THE UNIT DEVICE TABLE. *MSID* REPRESENTS
00530 M01S00356.mac2 +++|* THE *MSF* HARDWARE COMPONENT IDENTIFIER.
00531 M01S00357.mac2 +++|*
00532 M01S00358.mac2 +++|* BUDT(UDT); (*SYMPL* CALL)
00533 M01S00359.mac2 +++|*
00534 M01S00360.mac2 +++|* EXIT (UDT) = UNIT DEVICE TABLE.
00535 M01S00361.mac2 +++|*
00536 M01S00362.mac2 +++|* USES A - 1, 2, 3, 4, 5, 6.
00537 M01S00363.mac2 +++|* B - 1, 2, 3, 4, 5.
00538 M01S00364.mac2 +++|* X - 0, 1, 2, 3, 4, 5, 6.
00539 M01S00365.mac2 +++|*
00540 M01S00366.mac2 +++|* CALLS RDESTC.
00541 M01S00367.mac2 +++|*
00542 M01S00368.mac2 +++|* MACROS SYSTEM.
00543 M01S00369.mac2 +++|*
00544 M01S00370.mac2 +++|* NOTES ARRAY *UDT* MUST BE 65 CM WORDS LONG.
00545 M01S00371.mac2 +++|
00546 M01S00372.mac2 +++| BUDT SUBR ENTRY/EXIT
00547 M01S00373.mac2 +++| BX6 X1 SAVE ADDRESS OF *UDT*
00548 M01S00374.mac2 +++| SB4 B0
00549 M01S00375.mac2 +++| SA6 UDTA
00550 M01S00376.mac2 +++|
Line S00377 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00551 M02S00377.ns22000 ---|* READ THE ENTIRE *EST*.
00552 M01S00030.ns22000 +++|* READ EST INTO *ESTB*.
00553 M01S00378.mac2 +++|
Line S00379 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00554 M02S00379.ns22000 ---| SB2 ESTB ADDRESS OF *EST* BUFFER
00555 M01S00031.ns22000 +++| SB2 ESTB SET EST BUFFER ADDRESS
00556 M01S00380.mac2 +++| SB3 ESTN
00557 M01S00381.mac2 +++| SB1 1
Line S00382 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00558 M02S00382.ns22000 ---| RJ RDESTC READ *EST*
00559 M01S00032.ns22000 +++| RJ =XRDESTC READ EST INTO *ESTB*
00560 M01S00383.mac2 +++| SX4 UDTN NUMBER OF WORDS PER *UDT* ENTRY
Line S00384 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00561 M02S00384.ns22000 ---| SA1 ESTN GET NUMBER OF *EST* ENTRIES READ
00562 M01S00033.ns22000 +++| SA1 ESTN SET LAST EST ORDINAL + 1
00563 M01S00385.mac2 +++| SB2 X1
Line S00386 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00564 M02S00386.ns22000 ---| SB3 -B1
00565 M01S00034.ns22000 +++| SB3 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
00566 M01S00387.mac2 +++| SA5 UDTA ADDRESS OF BUFFER TO HOLD *UDT*
00567 M01S00388.mac2 +++| SB5 X5
00568 M01S00389.mac2 +++|
Line S00390 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00569 M02S00390.ns22000 ---|* SEARCH *EST* TO BUILD *UDT*.
00570 M01S00035.ns22000 +++|* SEARCH EST AND BUILD *UDT*.
00571 M01S00391.mac2 +++|
00572 M01S00392.mac2 +++| BDT1 SB3 B3+B1
Line S00393 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00573 M02S00393.ns22000 ---| EQ B2,B3,BUDTX IF END OF *EST*
Line S00394 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00574 M02S00394.ns22000 ---| SA1 ESTB+B3 GET NEXT *EST* ENTRY
00575 M01S00036.ns22000 +++| EQ B2,B3,BUDTX IF END OF EST
00576 M01S00037.ns22000 +++| SX1 B3 CALCULATE *ESTB* OFFSET
00577 M01S00038.ns22000 +++| R= X0,ESTE
00578 M01S00039.ns22000 +++| IX1 X1*X0
00579 M01S00040.ns22000 +++| SA1 ESTB+X1+EQDE GET NEXT EST ENTRY
00580 M01S00395.mac2 +++| MX0 -11 CHECK FOR *MSS* EQUIPMENT
00581 M01S00396.mac2 +++| LX0 22-10
00582 M01S00397.mac2 +++| BX2 -X0*X1
00583 M01S00398.mac2 +++| LX2 10-22
Line S00399 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00584 M02S00399.ns22000 ---| SX3 X2-CS
Line S00400 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00585 M02S00400.ns22000 ---| ZR X3,BDT2 IF *EST* ENTRY FOR A SELECTOR
Line S00401 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00586 M02S00401.ns22000 ---| SX3 X2-CT
Line S00402 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00587 M02S00402.ns22000 ---| NZ X3,BDT1 IF NOT AN *EST* ENTRY FOR A TRANSPORT
00588 M01S00041.ns22000 +++| SX3 X2-2RCS
00589 M01S00042.ns22000 +++| ZR X3,BDT2 IF SELECTOR EST ENTRY
00590 M01S00043.ns22000 +++| SX3 X2-2RCT
00591 M01S00044.ns22000 +++| NZ X3,BDT1 IF NOT TRANSPORT EST ENTRY
00592 M01S00403.mac2 +++| MX0 -2 GET POSITION OF TRANSPORT IN *CSU*
00593 M01S00404.mac2 +++| LX0 7-1
00594 M01S00405.mac2 +++| BX6 -X0*X1 SET TRANSPORT POSITION IN *UDT*
00595 M01S00406.mac2 +++| SB4 B4+B1 INCREMENT INDEX OF *UDT* ENTRY FOR *CSU*
00596 M01S00407.mac2 +++| EQ BDT3 BUILD REMAINING FIELDS IN *UDT* ENTRY
00597 M01S00408.mac2 +++|
00598 M01S00409.mac2 +++| BDT2 SB4 B0 INITIALIZE INDEX OF *UDT* ENTRY FOR *CSU*
00599 M01S00410.mac2 +++| BX6 X6-X6
00600 M01S00411.mac2 +++| MX0 -4 GET *CSU* INDEX
00601 M01S00412.mac2 +++| LX0 8-3
00602 M01S00413.mac2 +++| BX2 -X0*X1
00603 M01S00414.mac2 +++| LX2 3-8
00604 M01S00415.mac2 +++| SX2 X2-1 CALCULATE ADDRESS OF *UDT* ENTRY FOR *CSU*
00605 M01S00416.mac2 +++| IX3 X2*X4
00606 M01S00417.mac2 +++| SX5 X3+B5
00607 M01S00418.mac2 +++| BDT3 MX0 5 BUILD *UDT* ENTRY
00608 M01S00419.mac2 +++| LX0 40-59
00609 M01S00420.mac2 +++| BX2 X0*X1
00610 M01S00421.mac2 +++| LX6 26-7
00611 M01S00422.mac2 +++| LX2 58-40
00612 M01S00423.mac2 +++| BX6 X2+X6 SET CHANNEL NUMBER IN *UDT* ENTRY
Line S00424 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00613 M02S00424.ns22000 ---| MX0 6 GET *MSA* MSID
00614 M01S00045.ns22000 +++| MX0 4 GET *MSA* MSID
00615 M01S00425.mac2 +++| LX0 35-59
00616 M01S00426.mac2 +++| BX2 X0*X1
00617 M01S00427.mac2 +++| LX2 53-35
00618 M01S00428.mac2 +++| BX6 X2+X6 SET *MSA* MSID IN *UDT* ENTRY
00619 M01S00429.mac2 +++| MX0 8 GET UNIT MSID
00620 M01S00430.mac2 +++| LX0 31-59
00621 M01S00431.mac2 +++| BX2 X0*X1
00622 M01S00432.mac2 +++| LX2 49-31
00623 M01S00433.mac2 +++| BX6 X2+X6 SET UNIT MSID IN *UDT* ENTRY
00624 M01S00434.mac2 +++| MX0 1
00625 M01S00435.mac2 +++| LX0 41-59
Line S00436 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00626 M02S00436.ns22000 ---| BX6 X0+X6 SET *EST* ON/OFF BIT
00627 M01S00046.ns22000 +++| BX6 X0+X6 MERGE ON/OFF STATUS
00628 M01S00437.mac2 +++| LX0 23-41
00629 M01S00438.mac2 +++| BX2 X0*X1 CHECK ON/OFF STATUS
00630 M01S00439.mac2 +++| ZR X2,BDT4 IF ON
00631 M01S00440.mac2 +++| SX0 B0 OFF STATUS
00632 M01S00441.mac2 +++| BDT4 LX0 40-23
00633 M01S00442.mac2 +++| BX6 X0+X6 SET CLEAN UP BIT
Line S00443 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00634 M02S00443.ns22000 ---| SX2 B3 SET *EST* ORDINAL
00635 M01S00047.ns22000 +++| SX2 B3 SET EST ORDINAL
00636 M01S00444.mac2 +++| MX0 -9
00637 M01S00445.mac2 +++| BX2 -X0*X2
00638 M01S00446.mac2 +++| LX2 38-8
00639 M01S00447.mac2 +++| BX6 X2+X6
Line S00448 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00640 M02S00448.ns22000 ---| MX0 -3 GET EQUIPMENT NUMBER
00641 M01S00048.ns22000 +++| MX0 -3 GET EQUIPMENT (CONTROLLER) NUMBER
00642 M01S00449.mac2 +++| LX0 11-2
00643 M01S00450.mac2 +++| BX2 -X0*X1
00644 M01S00451.mac2 +++| LX2 29-11
Line S00452 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00645 M02S00452.ns22000 ---| BX6 X2+X6 SET EQUIPMENT NUMBER
00646 M01S00049.ns22000 +++| BX6 X2+X6 SET EQUIPMENT (CONTROLLER) NUMBER
00647 M01S00453.mac2 +++| MX0 -2 GET *MSA* NUMBER ON COUPLER
00648 M01S00454.mac2 +++| LX0 4-1
00649 M01S00455.mac2 +++| BX2 -X0*X1
00650 M01S00456.mac2 +++| LX2 22-4
00651 M01S00457.mac2 +++| BX6 X2+X6 SET *MSA* NUMBER IN *UDT* ENTRY
00652 M01S00458.mac2 +++| MX0 -3 GET UNIT NUMBER ON *MSA*
00653 M01S00459.mac2 +++| BX2 -X0*X1
00654 M01S00460.mac2 +++| LX2 20-2
00655 M01S00461.mac2 +++| BX6 X2+X6 SET UNIT NUMBER IN *UDT* ENTRY
00656 M01S00462.mac2 +++| SA6 X5+B4 SET UP *UDT* ENTRY IN THE BUFFER
Line S00463 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00657 M02S00463.ns22000 ---| EQ BDT1 PROCESS NEXT *EST* ENTRY
00658 M01S00050.ns22000 +++| EQ BDT1 PROCESS NEXT EST ENTRY
00659 M01S00464.mac2 +++|
Line S00465 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00660 M02S00465.ns22000 ---| ESTB BSS 100B *EST* BUFFER
Line S00466 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00661 M02S00466.ns22000 ---| ESTN BSS 1 NUMBER OF *EST* ENTRIES
00662 M01S00051.ns22000 +++| ESTB BSS ESMX*ESTE EST BUFFER
00663 M01S00052.ns22000 +++| ESTN BSS 1 NUMBER OF EST ENTRIES RETURNED
00664 M01S00467.mac2 +++| UDTA BSS 1 ADDRESS OF BUFFER TO HOLD *UDT*
00665 M01S00468.mac2 +++|
00666 M01S00469.mac2 +++| END
00667 M01S00470.mac2 +++| IDENT CALLSS
00668 M01S00471.mac2 +++| ENTRY CALLSS
00669 M01S00472.mac2 +++| SYSCOM B1
00670 M01S00012.ns2676 +++| TITLE CALLSS - ISSUE A CALLSS REQUEST TO A SUBSYSTEM.
00671 M01S00473.mac2 +++|*COMMENT ISSUES A CALLSS REQUEST TO A SUBSYSTEM.
Line S00474 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00672 M02S00474.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00673 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00674 M01S00475.mac2 +++|
00675 M01S00476.mac2 +++|*CALL COMCMAC
00676 M01S00477.mac2 +++| CALLSS SPACE 4,15
00677 M01S00478.mac2 +++|*** CALLSS - ISSUES A CALLSS REQUEST TO A SUBSYSTEM.
00678 M01S00479.mac2 +++|*
00679 M01S00480.mac2 +++|* CALLSS(SS,PADDR,R); (*SYMPL* CALL)
00680 M01S00481.mac2 +++|*
00681 M01S00482.mac2 +++|* ENTRY (SS) = SUBSYSTEM QUEUE PRIORITY.
00682 M01S00483.mac2 +++|* (PADDR) = PARAMETER BLOCK.
00683 M01S00484.mac2 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00684 M01S00485.mac2 +++|*
00685 M01S00486.mac2 +++|* USES A - 1, 3, 4, 5.
00686 M01S00487.mac2 +++|* B - 1.
00687 M01S00488.mac2 +++|* X - 1, 3, 4, 5.
00688 M01S00489.mac2 +++|*
00689 M01S00490.mac2 +++|* MACROS CALLSS, RECALL.
00690 M01S00491.mac2 +++|
00691 M01S00492.mac2 +++| CALLSS SUBR ENTRY/EXIT
00692 M01S00493.mac2 +++| SB1 1
00693 M01S00494.mac2 +++| SA3 A1+B1 GET ADDRESS OF *PADDR*
00694 M01S00495.mac2 +++| SA4 A3+B1 GET ADDRESS OF *R*
00695 M01S00496.mac2 +++| SA1 X1 GET *SS*
00696 M01S00497.mac2 +++| SA5 X4 GET *R*
00697 M01S00498.mac2 +++| CALLSS X1,X3
00698 M01S00499.mac2 +++| ZR X5,CALLSSX IF RECALL NOT REQUESTED
00699 M01S00500.mac2 +++| RECALL X3
00700 M01S00501.mac2 +++| EQ CALLSSX RETURN
00701 M01S00502.mac2 +++|
00702 M01S00503.mac2 +++| END
00703 M01S00504.mac2 +++| IDENT CINTLK
00704 M01S00505.mac2 +++| ENTRY CINTLK
00705 M01S00506.mac2 +++| SYSCOM B1
00706 M01S00507.mac2 +++| TITLE CINTLK - GET/RELEASE CATALOG INTERLOCK.
00707 M01S00508.mac2 +++|*COMMENT GET/RELEASE CATALOG INTERLOCK.
Line S00509 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00708 M02S00509.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00709 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00710 M01S00510.mac2 +++|
00711 M01S00511.mac2 +++|*CALL COMCMAC
00712 M01S00512.mac2 +++|*CALL COMSPFU
00713 M01S00513.mac2 +++| CINTLK SPACE 4,20
00714 M01S00514.mac2 +++|*** CINTLK - GET/RELEASE CATALOG INTERLOCK.
00715 M01S00515.mac2 +++|*
00716 M01S00516.mac2 +++|* CINTLK(FUNC,FAM,DM); (*SYMPL* CALL)
00717 M01S00517.mac2 +++|*
Line S00518 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00718 M02S00518.v23l617 ---|* ENTRY (FUNC) = 0, GET LOCK.
Line S00519 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00719 M02S00519.v23l617 ---|* 1, RELEASE LOCK.
00720 M01S00078.v23l617 +++|* ENTRY (FUNC) = 3/AT,3/F.
00721 M01S00079.v23l617 +++|* AT = ALTERNATE STORAGE TYPE -
00722 M01S00080.v23l617 +++|* = 0 (ATNO), DEAFAULT (*MSS*).
00723 M01S00081.v23l617 +++|* = 1 (ATMS), *MSS*.
Line S00082 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00724 M02S00082.242l642 ---|* = 2 (ATAS), *MAS*.
00725 M01S00001.242l642 +++|* = 2 (ATAS), *MSE*.
00726 M01S00083.v23l617 +++|*
00727 M01S00084.v23l617 +++|* F = FUNCTION -
00728 M01S00085.v23l617 +++|* = 0, GET LOCK.
00729 M01S00086.v23l617 +++|* = 1, RELEASE LOCK.
00730 M01S00087.v23l617 +++|*
00731 M01S00520.mac2 +++|* (FAM) = FAMILY NAME, LEFT JUSTIFIED,
00732 M01S00521.mac2 +++|* SEVEN CHARACTERS MAXIMUM.
00733 M01S00522.mac2 +++|* (DM) = DEVICE MASK, RIGHT JUSTIFIED (6 BITS).
00734 M01S00523.mac2 +++|*
Line S00524 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00735 M02S00524.v23l617 ---|* USES A - 1, 2, 3, 5, 6.
Line S00525 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00736 M02S00525.v23l617 ---|* B - 1.
Line S00526 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00737 M02S00526.v23l617 ---|* X - 0, 1, 2, 3, 5, 6.
00738 M01S00088.v23l617 +++|* USES X - 0, 1, 2, 3, 6.
00739 M01S00089.v23l617 +++|* A - 1, 2, 3, 6.
00740 M01S00090.v23l617 +++|* B - 1.
00741 M01S00527.mac2 +++|*
00742 M01S00528.mac2 +++|* MACROS CALLPFU.
00743 M01S00529.mac2 +++|
00744 M01S00530.mac2 +++|
00745 M01S00531.mac2 +++| CINTLK SUBR ENTRY/EXIT
00746 M01S00532.mac2 +++| SB1 1
00747 M01S00533.mac2 +++| SA2 A1+B1 GET ADDRESS OF *FAM*
00748 M01S00534.mac2 +++| SA3 A2+B1 GET ADDRESS OF *DM*
Line S00535 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00749 M02S00535.v23l617 ---| SA5 CTCW BUILD FUNCTION CONTROL WORD
Line S00536 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00750 M02S00536.v23l617 ---| MX0 -12
Line S00537 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00751 M02S00537.v23l617 ---| BX6 -X0*X5
00752 M01S00091.v23l617 +++| SA1 X1 GET *FUNC* (3/AT,3/F)
00753 M01S00092.v23l617 +++| MX0 -2 BUILD FUNCTION CONTROL WORD
00754 M01S00093.v23l617 +++| LX0 3
00755 M01S00094.v23l617 +++| BX6 -X0*X1 GET ALTERNATE STORAGE TYPE
00756 M01S00095.v23l617 +++| LX6 3
00757 M01S00096.v23l617 +++| SX6 X6+B1 ADD COMPLETION BIT
00758 M01S00538.mac2 +++| LX2 59-17 SET FAMILY ADDRESS
00759 M01S00539.mac2 +++| BX6 X6+X2
00760 M01S00540.mac2 +++| LX3 41-17 SET DEVICE MASK ADDRESS
00761 M01S00541.mac2 +++| BX6 X6+X3
Line S00542 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00762 M02S00542.v23l617 ---| SA6 A5
Line S00543 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00763 M02S00543.v23l617 ---| SA1 X1 GET *FUNC*
Line S00544 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00764 M02S00544.v23l617 ---| NZ X1,CIN1 IF RELEASE REQUESTED
00765 M01S00097.v23l617 +++| SA6 CTCW STORE CONTROL WORD
00766 M01S00098.v23l617 +++| LX1 59-0 (FUNCTION TO SIGN BIT)
00767 M01S00099.v23l617 +++| NG X1,CIN1 IF RELEASE LOCK REQUEST
00768 M01S00545.mac2 +++| CALLPFU CTCW,CTGE,R GET LOCK
00769 M01S00546.mac2 +++| EQ CINTLKX RETURN
00770 M01S00547.mac2 +++|
00771 M01S00548.mac2 +++| CIN1 CALLPFU CTCW,CTRE,R RELEASE LOCK
00772 M01S00549.mac2 +++| EQ CINTLKX RETURN
00773 M01S00550.mac2 +++|
00774 M01S00100.v23l617 +++|* CONTROL WORD FORMAT -
00775 M01S00101.v23l617 +++|* 18/FAM,18/DM,12/,6/AT,5/,1/C.
00776 M01S00102.v23l617 +++|
00777 M01S00551.mac2 +++| CTCW VFD 59/0,1/1 *CALLPFU* CONTROL WORD
00778 M01S00552.mac2 +++|
00779 M01S00553.mac2 +++|*CALL COMCPFU
00780 M01S00554.mac2 +++|*CALL COMSPFU
00781 M01S00555.mac2 +++|
00782 M01S00556.mac2 +++| END
00783 M01S00557.mac2 +++| IDENT EESET
00784 M01S00558.mac2 +++| ENTRY EESET
00785 M01S00559.mac2 +++| SYSCOM B1
00786 M01S00560.mac2 +++| TITLE EESET - SET EVENT TABLE.
00787 M01S00561.mac2 +++|*COMMENT SET EVENT TABLE.
Line S00562 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00788 M02S00562.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00789 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00790 M01S00563.mac2 +++|
00791 M01S00564.mac2 +++|*CALL COMCMAC
00792 M01S00565.mac2 +++| EESET SPACE 4,15
00793 M01S00566.mac2 +++|*** EESET - SET EVENT TABLE.
00794 M01S00567.mac2 +++|*
00795 M01S00568.mac2 +++|* EESET(EVENT); (*SYMPL* CALL)
00796 M01S00569.mac2 +++|*
Line S00570 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00797 M02S00570.ns22000 ---|* ENTRY (EVENT) = 18 BIT EVENT DESCRIPTOR.
Line S00571 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00798 M02S00571.ns22000 ---|* 42/,6/EQ,12/CONDITION
Line S00572 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00799 M02S00572.ns22000 ---|* EQ = *EST* ORDINAL OF THE EQUIPMENT ON
00800 M01S00053.ns22000 +++|* ENTRY (EVENT) = EVENT DESCRIPTOR.
00801 M01S00054.ns22000 +++|*T EVENT 39/, 9/ EQ, 12/ CONDITION
Figure
EVENT
0 11 12 20 21 29 CONDITION EQ 30 59
00802 M01S00055.ns22000 +++|*
00803 M01S00056.ns22000 +++|* EQ = EST ORDINAL OF THE EQUIPMENT ON
00804 M01S00573.mac2 +++|* WHICH THE SYSTEM IS WAITING FOR THE
00805 M01S00574.mac2 +++|* CONDITION TO OCCUR.
00806 M01S00575.mac2 +++|* CONDITION = EVENT VARIABLE.
00807 M01S00576.mac2 +++|*
00808 M01S00577.mac2 +++|* USES A - 1.
00809 M01S00578.mac2 +++|* B - 1.
00810 M01S00579.mac2 +++|* X - 1.
00811 M01S00580.mac2 +++|*
00812 M01S00581.mac2 +++|* MACROS EESET.
00813 M01S00582.mac2 +++|
00814 M01S00583.mac2 +++|
00815 M01S00584.mac2 +++| EESET SUBR ENTRY/EXIT
00816 M01S00585.mac2 +++| SB1 1
00817 M01S00586.mac2 +++| SA1 X1 GET *EVENT*
00818 M01S00587.mac2 +++| EESET X1
00819 M01S00588.mac2 +++| EQ EESETX RETURN
00820 M01S00589.mac2 +++|
00821 M01S00590.mac2 +++| END
00822 M01S00591.mac2 +++| IDENT GETACT
00823 M01S00592.mac2 +++| ENTRY GETACT
00824 M01S00593.mac2 +++| SYSCOM B1
00825 M01S00013.ns2676 +++| TITLE GETACT - GET CURRENT JOB ACTIVITY COUNTS.
00826 M01S00594.mac2 +++|*COMMENT GET CURRENT JOB ACTIVITY COUNTS.
Line S00595 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00827 M02S00595.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00828 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00829 M01S00596.mac2 +++|
00830 M01S00597.mac2 +++|*CALL COMCMAC
00831 M01S00598.mac2 +++|*CALL COMCCMD
00832 M01S00599.mac2 +++| GETACT SPACE 4,30
00833 M01S00600.mac2 +++|*** GETACT - GET CURRENT JOB ACTIVITY COUNTS.
00834 M01S00601.mac2 +++|*
00835 M01S00602.mac2 +++|* GETACT(ADDR); (*SYMPL* CALL)
00836 M01S00603.mac2 +++|*
00837 M01S00604.mac2 +++|* ENTRY ADDR = ADDRESS FOR RESPONSE.
00838 M01S00605.mac2 +++|*
00839 M01S00606.mac2 +++|* EXIT (ADDR) = JOB ACTIVITY INFORMATION IN THE
00840 M01S00607.mac2 +++|* FOLLOWING FORMAT.
00841 M01S00608.mac2 +++|* 12/SHORT,1/L,23/0,12/INS,11/0,1/C
00842 M01S00609.mac2 +++|*
00843 M01S00610.mac2 +++|* SHORT SHORT TERM ACTIVITY COUNTS, INCREMENTED BY
00844 M01S00611.mac2 +++|* ONE FOR EACH OF THE FOLLOWING.
00845 M01S00612.mac2 +++|* PPU ACTIVITY.
00846 M01S00613.mac2 +++|* PPU IN RECALL.
00847 M01S00614.mac2 +++|* TAPE ACTIVITY.
00848 M01S00615.mac2 +++|* ROLLOUT REQUESTED.
00849 M01S00616.mac2 +++|* SCP WAIT RESPONSE INDICATORS.
00850 M01S00617.mac2 +++|* TERMINAL OUTPUT FET ADDRESS PRESENT.
00851 M01S00618.mac2 +++|* L LONG TERM ACTIVITY COUNTS. FIELD IS ONE
00852 M01S00619.mac2 +++|* IF ANY OF THE FOLLOWING CONDITIONS ARE MET.
00853 M01S00620.mac2 +++|* *K* OR *L* DISPLAY INTERFACE ACTIVE.
00854 M01S00621.mac2 +++|* *CFO* ENTRY ENABLED.
00855 M01S00622.mac2 +++|* SCP LONG TERM CONNECTION ESTABLISHED.
00856 M01S00623.mac2 +++|* INS RESERVED FOR INSTALLATIONS.
00857 M01S00624.mac2 +++|* C COMPLETE BIT, ALWAYS ONE UPON COMPLETION.
00858 M01S00625.mac2 +++|*
00859 M01S00626.mac2 +++|* USES B - 1.
00860 M01S00627.mac2 +++|*
00861 M01S00628.mac2 +++|* MACROS GETACT.
00862 M01S00629.mac2 +++|
00863 M01S00630.mac2 +++|
00864 M01S00631.mac2 +++| GETACT SUBR ENTRY/EXIT
00865 M01S00632.mac2 +++| SB1 1
00866 M01S00633.mac2 +++| GETACT X1
00867 M01S00634.mac2 +++| EQ GETACTX RETURN
00868 M01S00635.mac2 +++|
00869 M01S00636.mac2 +++| END
00870 M01S00637.mac2 +++| IDENT GETDI
00871 M01S00638.mac2 +++| ENTRY GETDI
00872 M01S00639.mac2 +++| SYSCOM B1
00873 M01S00014.ns2676 +++| TITLE GETDI - GET DEVICE INHIBIT DATE AND TIME.
00874 M01S00640.mac2 +++|*COMMENT GET DEVICE INHIBIT DATE AND TIME.
Line S00641 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00875 M02S00641.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00876 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00877 M01S00642.mac2 +++|
00878 M01S00643.mac2 +++|*CALL COMCMAC
00879 M01S00644.mac2 +++|*CALL COMCCMD
00880 M01S00645.mac2 +++|*CALL COMSMMF
00881 M01S00646.mac2 +++|*CALL COMSSFM
00882 M01S00647.mac2 +++| GETDI SPACE 4,15
Line S00648 Modification History
M01 (Added by) mac2
M02 (Updated by) ns2676
Seq # *Modification Id* Act
----------------------------+
00883 M02S00648.ns2676 ---|** GETDI - GET DEVICE INHIBIT DATE AND TIME.
00884 M01S00015.ns2676 +++|*** GETDI - GET DEVICE INHIBIT DATE AND TIME.
00885 M01S00649.mac2 +++|*
00886 M01S00650.mac2 +++|* GETDI(EQ,INDT); (*SYMPL* CALL)
00887 M01S00651.mac2 +++|*
Line S00652 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00888 M02S00652.ns22000 ---|* ENTRY (EQ) = EQUIPMENT NUMBER.
00889 M01S00057.ns22000 +++|* ENTRY (EQ) = EST ORDINAL.
00890 M01S00653.mac2 +++|*
00891 M01S00654.mac2 +++|* EXIT (INDT) = DEVICE INHIBIT DATE AND TIME.
Line S00655 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00892 M02S00655.ns22000 ---|* (CEQN) = CURRENT EQUIPMENT NUMBER.
00893 M01S00058.ns22000 +++|* (CEQN) = CURRENT EST ORDINAL.
00894 M01S00656.mac2 +++|* (CIDT) = CURRENT DEVICE INHIBIT DATE AND TIME.
00895 M01S00657.mac2 +++|* (INIT) = 1.
00896 M01S00658.mac2 +++|*
00897 M01S00659.mac2 +++|* USES A - 1, 2, 3, 5, 6, 7.
00898 M01S00660.mac2 +++|* B - 1.
00899 M01S00661.mac2 +++|* X - 1, 2, 3, 5, 6, 7.
00900 M01S00662.mac2 +++|*
00901 M01S00663.mac2 +++|* MACROS GETDI.
00902 M01S00664.mac2 +++|
00903 M01S00665.mac2 +++|
00904 M01S00666.mac2 +++| GETDI SUBR ENTRY/EXIT
00905 M01S00667.mac2 +++| SB1 1
00906 M01S00668.mac2 +++| SA5 A1+B1 SAVE ADDRESS OF *INDT*
00907 M01S00669.mac2 +++| SA1 X1
00908 M01S00670.mac2 +++| SA2 INIT
00909 M01S00671.mac2 +++| ZR X2,GTD1 IF FIRST CALL
Line S00672 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00910 M02S00672.ns22000 ---| SA2 CEQN COMPARE EQUIPMENT NUMBER
00911 M01S00059.ns22000 +++| SA2 CEQN COMPARE EST ORDINALS
00912 M01S00673.mac2 +++| BX3 X2-X1
Line S00674 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00913 M02S00674.ns22000 ---| NZ X3,GTD2 IF EQ NUMBER DIFFERENT FROM PREVIOUS CALL
00914 M01S00060.ns22000 +++| NZ X3,GTD2 IF DIFFERENT FROM LAST CALL
00915 M01S00675.mac2 +++| SA1 CIDT
00916 M01S00676.mac2 +++| EQ GTD3 RETURN DEVICE INHIBIT DATE AND TIME
00917 M01S00677.mac2 +++|
00918 M01S00678.mac2 +++| GTD1 SX7 B1+
00919 M01S00679.mac2 +++| SA7 A2+
00920 M01S00680.mac2 +++| GTD2 BX6 X1
Line S00681 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00921 M02S00681.ns22000 ---| SA6 CEQN SAVE CURRENT EQUIPMENT NUMBER
00922 M01S00061.ns22000 +++| SA6 CEQN SAVE EST ORDINAL
00923 M01S00682.mac2 +++| GETDI SFET,X1
00924 M01S00683.mac2 +++| SA1 BUF+MDIT RETURN DEVICE INHIBIT DATE AND TIME
00925 M01S00684.mac2 +++| GTD3 BX6 X1
00926 M01S00685.mac2 +++| SA6 CIDT SAVE CURRENT DEVICE INHIBIT DATE AND TIME
00927 M01S00686.mac2 +++| SA6 X5
00928 M01S00687.mac2 +++| EQ GETDIX RETURN
00929 M01S00688.mac2 +++|
00930 M01S00689.mac2 +++|*CALL COMCSFM
00931 M01S00690.mac2 +++|
00932 M01S00691.mac2 +++| SFET FILEB BUF,BUFL,(FET=10D) FET FOR *SFM* CALL
00933 M01S00692.mac2 +++| BUFL EQU 101B
00934 M01S00693.mac2 +++| BUF BSS BUFL
Line S00694 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00935 M02S00694.ns22000 ---| CEQN CON 0 CURRENT EQUIPMENT NUMBER
00936 M01S00062.ns22000 +++| CEQN CON 0 CURRENT EST ORDINAL
00937 M01S00695.mac2 +++| CIDT BSS 1 CURRENT DEVICE INHIBIT DATE AND TIME
00938 M01S00696.mac2 +++| INIT CON 0 INITIAL CALL INDICATOR
00939 M01S00697.mac2 +++|
00940 M01S00698.mac2 +++| END
00941 M01S00699.mac2 +++| IDENT GETFAM
00942 M01S00700.mac2 +++| ENTRY GETFAM
00943 M01S00701.mac2 +++| SST
00944 M01S00702.mac2 +++| EXT RDESTC
00945 M01S00703.mac2 +++| SYSCOM B1
00946 M01S00704.mac2 +++| TITLE GETFAM - SET FAMILY TABLE AND SUBSYSTEM ID.
00947 M01S00705.mac2 +++|*COMMENT SET FAMILY TABLE AND SUBSYSTEM ID.
Line S00706 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00948 M02S00706.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
00949 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00950 M01S00707.mac2 +++|
00951 M01S00708.mac2 +++|*CALL COMCMAC
00952 M01S00709.mac2 +++|
Line S00710 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00953 M02S00710.ns22000 ---| MSTN EQU DULL-TDGL+1 NUMBER OF *MST* ENTRY WORDS TO READ
00954 M01S00063.ns22000 +++| MSTN EQU DULL-TDGL+1 NUMBER OF MST ENTRY WORDS TO READ
00955 M01S00711.mac2 +++| GETFAM SPACE 4,25
00956 M01S00712.mac2 +++|*** GETFAM - SET FAMILY TABLE AND SUBSYSTEM ID.
00957 M01S00713.mac2 +++|*
00958 M01S00714.mac2 +++|* GETFAM(FMT,NUM,LNK,DEF,SS); (*SYMPL* CALL)
00959 M01S00715.mac2 +++|*
00960 M01S00103.v23l617 +++|* ENTRY (SS) = ALTERNATE STORAGE TYPE -
00961 M01S00104.v23l617 +++|* = 0, DEFAULT (*MSS*).
00962 M01S00105.v23l617 +++|* = 1, *MSS*.
Line S00106 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00963 M02S00106.242l642 ---|* = 2, *MAS*.
00964 M01S00002.242l642 +++|* = 2, *MSE*.
00965 M01S00107.v23l617 +++|*
00966 M01S00716.mac2 +++|* EXIT (FMT) = FAMILY TABLE.
00967 M01S00717.mac2 +++|* 42/FM,18/MSTA
00968 M01S00718.mac2 +++|* FM = FAMILY NAME.
Line S00719 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00969 M02S00719.ns22000 ---|* MSTA = ADDRESS OF *MST* ENTRY.
00970 M01S00064.ns22000 +++|* MSTA = ADDRESS OF MST ENTRY.
00971 M01S00720.mac2 +++|*
00972 M01S00721.mac2 +++|* (NUM) = NUMBER OF ENTRIES IN FAMILY TABLE.
00973 M01S00722.mac2 +++|* (LNK) = LINK INFORMATION.
00974 M01S00723.mac2 +++|* 12/DT,12/0,36/LNKO
00975 M01S00724.mac2 +++|* DT = LINK DEVICE TYPE.
00976 M01S00725.mac2 +++|* LNKO = ORDINAL OF ENTRY IN FAMILY TABLE
00977 M01S00726.mac2 +++|* CONTAINING FAMILY NAME OF LINK DEVICE.
00978 M01S00727.mac2 +++|* (DEF) = ORDINAL OF ENTRY CONTAINING DEFAULT
00979 M01S00728.mac2 +++|* FAMILY NAME.
00980 M01S00729.mac2 +++|* (SS) = SUBSYSTEM IDENTIFIER.
00981 M01S00730.mac2 +++|*
00982 M01S00731.mac2 +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
00983 M01S00732.mac2 +++|* B - 1, 2, 3, 4, 5, 6, 7.
00984 M01S00733.mac2 +++|* X - ALL.
00985 M01S00734.mac2 +++|*
00986 M01S00735.mac2 +++|* CALLS RDESTC.
00987 M01S00736.mac2 +++|*
00988 M01S00737.mac2 +++|* MACROS SYSTEM.
00989 M01S00738.mac2 +++|*
00990 M01S00739.mac2 +++|* NOTES ARRAY *FMT* MUST BE 24 CM WORDS LONG.
00991 M01S00740.mac2 +++|
00992 M01S00741.mac2 +++|
00993 M01S00742.mac2 +++| GETFAM SUBR ENTRY/EXIT
00994 M01S00743.mac2 +++| SB1 1
00995 M01S00744.mac2 +++| SA2 A1+B1 GET ADDRESS OF *NUM*
00996 M01S00745.mac2 +++| SA3 A2+B1 GET ADDRESS OF *LNK*
Line S00746 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00997 M02S00746.v23l617 ---| SX6 MFSI
00998 M01S00747.mac2 +++| SA4 A3+B1 GET ADDRESS OF *DEF*
00999 M01S00748.mac2 +++| BX7 X1 SAVE ADDRESS OF *FMT*
01000 M01S00749.mac2 +++| SA7 FMTA
Line S00750 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01001 M02S00750.v23l617 ---| SA5 A4+B1 GET ADDRESS OF *SS*
01002 M01S00751.mac2 +++| BX7 X2 SAVE ADDRESS OF *NUM*
Line S00752 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01003 M02S00752.v23l617 ---| SA6 X5
01004 M01S00753.mac2 +++| SA7 NUMA
01005 M01S00754.mac2 +++| BX6 X3 SAVE ADDRESS OF *LNK*
01006 M01S00755.mac2 +++| BX7 X4 SAVE ADDRESS OF *DEF*
01007 M01S00756.mac2 +++| SA6 LNKA
01008 M01S00757.mac2 +++| MX6 1
01009 M01S00758.mac2 +++| SA7 DEFA
01010 M01S00108.v23l617 +++| SA5 A4+B1 GET ADDRESS OF *SS*
01011 M01S00109.v23l617 +++| MX7 -2
01012 M01S00110.v23l617 +++| SA1 X5 GET ALTERNATE STORAGE TYPE
01013 M01S00111.v23l617 +++| BX1 -X7*X1
01014 M01S00112.v23l617 +++| SA1 X1+ASID SUBSYSTEM ID
01015 M01S00113.v23l617 +++| BX7 X1
01016 M01S00114.v23l617 +++| SA7 X5 RETURN SUBSYSTEM ID
01017 M01S00759.mac2 +++|
01018 M01S00760.mac2 +++|* READ WORD *PFNL* IN *CMR*.
01019 M01S00761.mac2 +++|
01020 M01S00762.mac2 +++| SA1 PFNA
01021 M01S00763.mac2 +++| SA6 PFNB
01022 M01S00764.mac2 +++| SYSTEM RSB,R,A1
01023 M01S00765.mac2 +++|
01024 M01S00766.mac2 +++|* READ WORD *MMFL* IN *CMR*.
01025 M01S00767.mac2 +++|
01026 M01S00768.mac2 +++| MX7 1
01027 M01S00769.mac2 +++| SA1 MMFA
01028 M01S00770.mac2 +++| SA7 MMFB
01029 M01S00771.mac2 +++| SYSTEM RSB,R,A1
01030 M01S00772.mac2 +++|
Line S00773 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01031 M02S00773.ns22000 ---|* READ *EST* FOR MASS STORAGE EQUIPMENT.
01032 M01S00774.mac2 +++|
Line S00775 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01033 M02S00775.ns22000 ---| SB2 ESTE BUFFER TO RECEIVE *EST* ENTRIES
01034 M01S00065.ns22000 +++| SB2 ESTB BUFFER TO RECEIVE EST ENTRIES
01035 M01S00776.mac2 +++| SB3 ESTN
01036 M01S00777.mac2 +++| SB4 -B1 READ MASS STORAGE ENTRIES
Line S00778 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01037 M02S00778.ns22000 ---| RJ RDESTC READ *EST* ENTRIES
01038 M01S00066.ns22000 +++| RJ =XRDESTC READ EST INTO *ESTB*
01039 M01S00779.mac2 +++| MX0 -12
Line S00780 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01040 M02S00780.ns22000 ---| SA1 PFNB GET EQ NUMBER OF DEFAULT FAMILY
01041 M01S00067.ns22000 +++| SA1 PFNB GET DEFAULT FAMILY EST ORDINAL
01042 M01S00781.mac2 +++| LX1 -12
01043 M01S00782.mac2 +++| BX6 -X0*X1
01044 M01S00783.mac2 +++| SB2 X6
Line S00784 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01045 M02S00784.ns22000 ---| SA1 MMFB GET EQ NUMBER OF LINKED FAMILY
Line S00785 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01046 M02S00785.ns22000 ---| MX0 -6
01047 M01S00068.ns22000 +++| SA1 MMFB GET EST ORDINAL OF LINK FAMILY
Line S00786 Modification History
M01 (Added by) mac2
M02 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
01048 M02S00786.252l678 ---| LX1 5-41
01049 M01S00001.252l678 +++| LX1 -36
01050 M01S00001.mac21 +++| MX0 -9
01051 M01S00787.mac2 +++| SA5 ESTN
01052 M01S00788.mac2 +++| BX6 -X0*X1
01053 M01S00789.mac2 +++| SB3 X6+
Line S00790 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01054 M02S00790.ns22000 ---| SB6 X5 NUMBER OF *EST* ENTRIES
01055 M01S00069.ns22000 +++| SB6 X5 SET LAST MASS STORAGE ORDINAL + 1
Line S00070 Modification History
M01 (Added by) ns22000
M02 (Updated by) mac21
M03 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
01056 M03S00070.252l678 ---| MX0 -9
01057 M01S00791.mac2 +++| SA5 FMTA GET ADDRESS OF FAMILY TABLE
01058 M01S00792.mac2 +++| SX5 X5-1
Line S00793 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01059 M02S00793.ns22000 ---| SB4 -B1 INITIALIZE ORDINAL OF *EST* ENTRY
01060 M01S00071.ns22000 +++| SB4 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
01061 M01S00794.mac2 +++| SB5 B1 INITIALIZE ORDINAL OF FAMILY TABLE
01062 M01S00795.mac2 +++|
Line S00796 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01063 M02S00796.ns22000 ---|* SEARCH *EST* FOR MASS STORAGE DEVICES.
01064 M01S00072.ns22000 +++|* SEARCH EST FOR MASS STORAGE DEVICES.
01065 M01S00797.mac2 +++|
01066 M01S00798.mac2 +++| GTF1 SB4 B4+B1
Line S00799 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01067 M02S00799.ns22000 ---| EQ B4,B6,GTF3 IF END OF *EST*
Line S00800 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01068 M02S00800.ns22000 ---| SA1 ESTE+B4 GET NEXT *EST* ENTRY
01069 M01S00073.ns22000 +++| EQ B4,B6,GTF3 IF END OF MASS STORAGE DEVICES
01070 M01S00074.ns22000 +++| SX1 B4 CALCULATE *ESTB* OFFSET
01071 M01S00075.ns22000 +++| R= X6,ESTE
01072 M01S00076.ns22000 +++| IX1 X1*X6
01073 M01S00077.ns22000 +++| SA1 ESTB+X1+EQDE GET NEXT EST ENTRY
01074 M01S00801.mac2 +++| PL X1,GTF1 IF NOT MASS STORAGE DEVICE
01075 M01S00802.mac2 +++| BX6 X1
01076 M01S00803.mac2 +++| LX6 59-54
01077 M01S00804.mac2 +++| NG X6,GTF1 IF DEVICE UNAVAILABLE FOR ACCESS
Line S00805 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01078 M02S00805.ns22000 ---| RJ RDM READ WORDS *TDGL* TO *DULL* OF *MST*
01079 M01S00078.ns22000 +++| RJ RDM READ WORDS *TDGL* TO *DULL* OF MST
01080 M01S00806.mac2 +++| SA2 MSTB+ACGL-TDGL
01081 M01S00807.mac2 +++| LX2 59-4
01082 M01S00808.mac2 +++| NG X2,GTF1 IF ERROR IDLE SET ON DEVICE
01083 M01S00809.mac2 +++| SA2 MSTB+MDGL-TDGL
01084 M01S00810.mac2 +++| LX2 59-58
01085 M01S00811.mac2 +++| NG X2,GTF1 IF AUXILIARY DEVICE
01086 M01S00812.mac2 +++| SA2 MSTB+DULL-TDGL
01087 M01S00813.mac2 +++| LX2 59-11
01088 M01S00814.mac2 +++| NG X2,GTF1 IF FAMILY IDLE DOWN FLAG IS SET
01089 M01S00815.mac2 +++| SA2 MSTB+PFGL-TDGL
01090 M01S00816.mac2 +++| MX0 42
01091 M01S00817.mac2 +++| BX1 X0*X2
01092 M01S00818.mac2 +++|
01093 M01S00819.mac2 +++|* CHECK FAMILY TABLE FOR A MATCHING FAMILY NAME.
01094 M01S00820.mac2 +++|
01095 M01S00821.mac2 +++| RJ SFT
01096 M01S00822.mac2 +++| EQ B7,B5,GTF2 IF NO MATCHING FAMILY NAME
Line S00823 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01097 M02S00823.ns22000 ---| EQ GTF1 PROCESS NEXT *EST* ENTRY
01098 M01S00079.ns22000 +++| EQ GTF1 PROCESS NEXT EST ENTRY
01099 M01S00824.mac2 +++|
01100 M01S00825.mac2 +++| GTF2 BX6 X1+X3 SET ENTRY IN FAMILY TABLE
01101 M01S00826.mac2 +++| SA6 X5+B5
01102 M01S00827.mac2 +++| SB5 B5+B1
Line S00828 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01103 M02S00828.ns22000 ---| EQ GTF1 PROCESS NEXT *EST* ENTRY
01104 M01S00080.ns22000 +++| EQ GTF1 PROCESS NEXT EST ENTRY
01105 M01S00829.mac2 +++|
01106 M01S00830.mac2 +++|* SET ORDINAL OF DEFAULT FAMILY.
01107 M01S00831.mac2 +++|
Line S00832 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01108 M02S00832.ns22000 ---| GTF3 SA1 ESTE+B2 GET *EST* ENTRY FOR DEFAULT EQUIPMENT
01109 M01S00081.ns22000 +++| GTF3 SX1 B2 CALCULATE *ESTB* OFFSET
01110 M01S00082.ns22000 +++| R= X6,ESTE
01111 M01S00083.ns22000 +++| IX1 X1*X6
01112 M01S00084.ns22000 +++| SA1 ESTB+X1+EQDE GET EST ENTRY FOR DEFAULT FAMILY
01113 M01S00833.mac2 +++| RJ RDM
01114 M01S00834.mac2 +++| SA2 MSTB+PFGL-TDGL
01115 M01S00835.mac2 +++| MX0 42
01116 M01S00836.mac2 +++| BX1 X0*X2
01117 M01S00837.mac2 +++| RJ SFT SEARCH FAMILY TABLE FOR DEFAULT FAMILY
01118 M01S00838.mac2 +++| NE B7,B5,GTF4 IF MATCHING FAMILY FOUND
01119 M01S00839.mac2 +++| SB7 B0+
01120 M01S00840.mac2 +++| GTF4 SX6 B7 SET DEFAULT FAMILY ORDINAL
01121 M01S00841.mac2 +++| SA2 DEFA
01122 M01S00842.mac2 +++| SA6 X2
01123 M01S00843.mac2 +++|
01124 M01S00844.mac2 +++|* SET LINK ORDINAL AND DEVICE TYPE.
01125 M01S00845.mac2 +++|
01126 M01S00846.mac2 +++| SB7 B0+
Line S00847 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01127 M02S00847.ns22000 ---| ZR B3,GTF5 IF NO LINKED FAMILY
Line S00848 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01128 M02S00848.ns22000 ---| SA1 ESTE+B3 GET *EST* FOR LINKED EQUIPMENT
01129 M01S00085.ns22000 +++| ZR B3,GTF5 IF NO LINK FAMILY
01130 M01S00086.ns22000 +++| SX1 B3 CALCULATE *ESTB* OFFSET
01131 M01S00087.ns22000 +++| R= X6,ESTE
01132 M01S00088.ns22000 +++| IX1 X1*X6
01133 M01S00089.ns22000 +++| SA1 ESTB+X1+EQDE GET EST ENTRY FOR LINK EQUIPMENT
01134 M01S00849.mac2 +++| MX0 -11 GET LINK DEVICE TYPE
01135 M01S00850.mac2 +++| BX6 X1
01136 M01S00851.mac2 +++| LX6 -12
01137 M01S00852.mac2 +++| BX6 -X0*X6
01138 M01S00853.mac2 +++| SB3 X6
01139 M01S00854.mac2 +++| RJ RDM
01140 M01S00855.mac2 +++| SA2 MSTB+PFGL-TDGL
01141 M01S00856.mac2 +++| MX0 42
01142 M01S00857.mac2 +++| BX1 X0*X2
01143 M01S00858.mac2 +++| RJ SFT SEARCH FAMILY TABLE FOR LINKED FAMILY
01144 M01S00859.mac2 +++| NE B7,B5,GTF5 IF MATCHING FAMILY FOUND
01145 M01S00860.mac2 +++| SB7 B0+
01146 M01S00861.mac2 +++| GTF5 SX5 B3 SET LINK ORDINAL AND DEVICE TYPE
01147 M01S00862.mac2 +++| SA2 LNKA
01148 M01S00863.mac2 +++| SX6 B7
01149 M01S00864.mac2 +++| LX5 48
01150 M01S00865.mac2 +++| BX6 X5+X6
01151 M01S00866.mac2 +++| SA6 X2
01152 M01S00867.mac2 +++| SX6 B5-B1 SET NUMBER OF ENTRIES IN FAMILY TABLE
01153 M01S00868.mac2 +++| SA1 NUMA
01154 M01S00869.mac2 +++| SA6 X1
01155 M01S00870.mac2 +++| EQ GETFAMX RETURN
Line S00871 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01156 M02S00871.ns22000 ---|
01157 M01S00872.mac2 +++| RDM SPACE 4,15
Line S00873 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01158 M02S00873.ns22000 ---|** RDM - READ WORDS *TDGL* TO *DULL* OF *MST* ENTRY.
01159 M01S00090.ns22000 +++|** RDM - READ WORDS *TDGL* TO *DULL* OF MST ENTRY.
01160 M01S00874.mac2 +++|*
Line S00875 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01161 M02S00875.ns22000 ---|* ENTRY (X1) = *EST* ENTRY.
01162 M01S00091.ns22000 +++|* ENTRY (X1) = EST ENTRY.
01163 M01S00876.mac2 +++|*
Line S00877 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01164 M02S00877.ns22000 ---|* EXIT (X3) = *MST* ADDRESS.
01165 M01S00092.ns22000 +++|* EXIT (X3) = MST ADDRESS.
Line S00878 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01166 M02S00878.ns22000 ---|* (MSTA) = *MST* POINTER PARAMETER.
01167 M01S00093.ns22000 +++|* (MSTA) = MST POINTER PARAMETER.
01168 M01S00879.mac2 +++|* (MSTB) = *MSTN* CONTIGUOUS WORDS STARTING AT *TDGL*
Line S00880 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01169 M02S00880.ns22000 ---|* OF THE *MST* ENTRY.
01170 M01S00094.ns22000 +++|* OF THE MST ENTRY.
01171 M01S00881.mac2 +++|*
01172 M01S00882.mac2 +++|* USES A - 6, 7.
01173 M01S00883.mac2 +++|* X - 0, 2, 3, 6, 7.
01174 M01S00884.mac2 +++|*
01175 M01S00885.mac2 +++|* MACROS SYSTEM.
01176 M01S00886.mac2 +++|
01177 M01S00887.mac2 +++|
01178 M01S00888.mac2 +++| RDM SUBR ENTRY/EXIT
01179 M01S00889.mac2 +++| MX0 -12
Line S00890 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01180 M02S00890.ns22000 ---| BX3 -X0*X1 GET ADDRESS OF *MST* ENTRY
01181 M01S00095.ns22000 +++| BX3 -X0*X1 GET ADDRESS OF MST ENTRY
01182 M01S00891.mac2 +++| LX3 3
Line S00892 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01183 M02S00892.ns22000 ---| SX2 X3+TDGL READ WORD *TDGL* OF *MST*
01184 M01S00096.ns22000 +++| SX2 X3+TDGL READ WORD *TDGL* OF MST
01185 M01S00893.mac2 +++| LX2 35-17
01186 M01S00894.mac2 +++| MX7 1
01187 M01S00895.mac2 +++| SA7 MSTB
Line S00896 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01188 M02S00896.ns22000 ---| SX7 MSTN NUMBER OF *MST* ENTRY WORDS TO READ
01189 M01S00097.ns22000 +++| SX7 MSTN NUMBER OF MST ENTRY WORDS TO READ
01190 M01S00897.mac2 +++| LX7 59-23
01191 M01S00898.mac2 +++| BX6 X7+X2
01192 M01S00899.mac2 +++| SX2 MSTB
01193 M01S00900.mac2 +++| BX6 X2+X6
01194 M01S00901.mac2 +++| SA6 MSTA
01195 M01S00902.mac2 +++| SYSTEM RSB,R,A6
01196 M01S00903.mac2 +++| EQ RDMX RETURN
Line S00904 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01197 M02S00904.ns22000 ---|
01198 M01S00905.mac2 +++| SFT SPACE 4,15
01199 M01S00906.mac2 +++|** SFT - SEARCH FAMILY TABLE FOR A GIVEN FAMILY NAME.
01200 M01S00907.mac2 +++|*
01201 M01S00908.mac2 +++|* ENTRY (X1) = FAMILY NAME (UPPER 42 BITS) TO
01202 M01S00909.mac2 +++|* BE MATCHED.
01203 M01S00910.mac2 +++|* (X5) = FWA - 1 OF FAMILY TABLE.
01204 M01S00911.mac2 +++|* (B5) = ORDINAL OF LAST ENTRY IN FAMILY TABLE + 1.
01205 M01S00912.mac2 +++|*
01206 M01S00913.mac2 +++|* EXIT (B7) = ORDINAL OF MATCHING ENTRY IN FAMILY TABLE.
01207 M01S00914.mac2 +++|* NOTE - (B7) = (B5), IF MATCHING ENTRY IS NOT FOUND.
01208 M01S00915.mac2 +++|*
01209 M01S00916.mac2 +++|* USES A - 2.
01210 M01S00917.mac2 +++|* B - 5, 7.
01211 M01S00918.mac2 +++|* X - 2, 4, 6.
01212 M01S00919.mac2 +++|
01213 M01S00920.mac2 +++|
01214 M01S00921.mac2 +++| SFT SUBR ENTRY/EXIT
01215 M01S00922.mac2 +++| MX0 42
01216 M01S00923.mac2 +++| SB7 B0
01217 M01S00924.mac2 +++| SFT1 SB7 B7+B1
01218 M01S00925.mac2 +++| EQ B7,B5,SFTX IF NO MATCHING FAMILY NAME
01219 M01S00926.mac2 +++| SA2 X5+B7 GET NEXT ENTRY IN FAMILY TABLE
01220 M01S00927.mac2 +++| BX4 X0*X2
01221 M01S00928.mac2 +++| BX6 X4-X1
01222 M01S00929.mac2 +++| ZR X6,SFTX IF MATCHING FAMILY FOUND
01223 M01S00930.mac2 +++| EQ SFT1 CHECK NEXT ENTRY
01224 M01S00931.mac2 +++|
01225 M01S00932.mac2 +++|*CALL COMSSSD
01226 M01S00933.mac2 +++|
01227 M01S00934.mac2 +++| SPACE 4,15
01228 M01S00935.mac2 +++| MMFA VFD 24/1,18/MMFL,18/MMFB *MMFL* POINTER PARAMETER
01229 M01S00936.mac2 +++| PFNA VFD 24/1,18/PFNL,18/PFNB *PFNL* POINTER PARAMETER
01230 M01S00937.mac2 +++|
01231 M01S00938.mac2 +++| DEFA BSS 1 ADDRESS OF DEFAULT FAMILY ORDINAL
Line S00939 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01232 M02S00939.ns22000 ---| ESTE BSS 100B *EST* BUFFER
Line S00940 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01233 M02S00940.ns22000 ---| ESTN BSS 1 NUMBER OF *EST* ENTRIES
01234 M01S00098.ns22000 +++| ESTB BSS ESMX*ESTE EST BUFFER
01235 M01S00099.ns22000 +++| ESTN BSS 1 LAST MASS STORAGE ORDINAL + 1
01236 M01S00941.mac2 +++| FMTA BSS 1 ADDRESS OF FAMILY TABLE
Line S00942 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01237 M02S00942.ns22000 ---| LNKA BSS 1 ADDRESS OF LINKED FAMILY ORDINAL
01238 M01S00100.ns22000 +++| LNKA BSS 1 ADDRESS OF LINK FAMILY ORDINAL
01239 M01S00943.mac2 +++| MMFB BSS 1 *MMFL* WORD IN *CMR*
Line S00944 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01240 M02S00944.ns22000 ---| MSTA BSS 1 *MST* POINTER PARAMETER WORD
01241 M01S00101.ns22000 +++| MSTA BSS 1 MST POINTER PARAMETER WORD
Line S00945 Modification History
M01 (Added by) mac2
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01242 M02S00945.ns22000 ---| MSTB BSS MSTN *MST* ENTRY BUFFER
01243 M01S00102.ns22000 +++| MSTB BSS MSTN MST ENTRY BUFFER
01244 M01S00946.mac2 +++| NUMA BSS 1 ADDRESS OF NUMBER OF FAMILY TABLE ENTRIES
01245 M01S00947.mac2 +++| PFNB BSS 1 *PFNL* WORD IN *CMR*
01246 M01S00115.v23l617 +++|
01247 M01S00116.v23l617 +++|* TABLE OF ALTERNATE STORAGE SUBSYSTEM IDENTIFIERS.
01248 M01S00117.v23l617 +++|
01249 M01S00118.v23l617 +++| ASID EQU * ALTERNATE STORAGE SUBSYSTEM IDENTIFIERS
01250 M01S00119.v23l617 +++| CON MFSI AT=0, DEFAULT (*MSS*)
01251 M01S00120.v23l617 +++| CON MFSI AT=1, *MSS*
Line S00121 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01252 M02S00121.242l642 ---| CON ASSI AT=2, *MAS*
01253 M01S00003.242l642 +++| CON ASSI AT=2, *MSE*
01254 M01S00948.mac2 +++|
01255 M01S00949.mac2 +++| END
01256 M01S00950.mac2 +++| IDENT GETMI
01257 M01S00951.mac2 +++| ENTRY GETMI
01258 M01S00952.mac2 +++| SST
01259 M01S00953.mac2 +++| SYSCOM B1
01260 M01S00954.mac2 +++| TITLE GETMI - GET MACHINE INFORMATION.
01261 M01S00955.mac2 +++|*COMMENT GET MACHINE INFORMATION.
Line S00956 Modification History
M01 (Added by) mac2
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
01262 M02S00956.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
01263 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
01264 M01S00957.mac2 +++|
01265 M01S00958.mac2 +++|*CALL COMCMAC
01266 M01S00002.252l678 +++|*CALL COMSMMF
01267 M01S00959.mac2 +++| GETMI SPACE 4,20
01268 M01S00960.mac2 +++|*** GETMI - GET MACHINE INFORMATION.
01269 M01S00961.mac2 +++|*
01270 M01S00962.mac2 +++|* GETMI(STATUS,EVENT); (*SYMPL* CALL)
01271 M01S00963.mac2 +++|*
Line S00964 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01272 M02S00964.v23l617 ---|* EXIT STATUS = MACHINE INFORMATION.
Line S00965 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01273 M02S00965.v23l617 ---|* 1/EXI,1/MFI,4/,12/MID,39/,3/MFID
01274 M01S00966.mac2 +++|* EXIT (STATUS) = MACHINE INFORMATION.
Line S00967 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01275 M02S00967.v23l617 ---|* 1/EXI,1/MFI,55/,3/MFID
Line S00968 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01276 M02S00968.v23l617 ---|* EXI = 0, MASTER EXEC.
Line S00969 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01277 M02S00969.v23l617 ---|* = 1, SLAVE EXEC.
01278 M01S00122.v23l617 +++|* 1/MSX,1/MFI,1/ASX,3/,12/ MID,39/,3/MFID
01279 M01S00123.v23l617 +++|* MSX = 0, *MSS* MASTER MODE EXECUTIVE
01280 M01S00124.v23l617 +++|* = 1, *MSS* SLAVE MODE EXECUTIVE
Line S00125 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01281 M02S00125.242l642 ---|* ASX = 0, *MAS* MASTER MODE EXECUTIVE
Line S00126 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01282 M02S00126.242l642 ---|* = 1, *MAS* SLAVE MODE EXECUTIVE
01283 M01S00004.242l642 +++|* ASX = 0, *MSE* MASTER MODE EXECUTIVE
01284 M01S00005.242l642 +++|* = 1, *MSE* SLAVE MODE EXECUTIVE
01285 M01S00970.mac2 +++|* MFI = 0, SINGLE MAIN FRAME MODE.
01286 M01S00971.mac2 +++|* = 1, MULTI MAIN FRAME MODE.
Line S00972 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01287 M02S00972.v23l617 ---|* MFID = MAIN FRAME IDENTIFIER.
Line S00973 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01288 M02S00973.v23l617 ---|* (EVENT) = EVENT DESCRIPTOR.
01289 M01S00127.v23l617 +++|* MID = MACHINE ID
01290 M01S00128.v23l617 +++|* MFID = MAINFRAME INDEX
01291 M01S00129.v23l617 +++|* (EVENT) = EVENT DESCRIPTORS -
01292 M01S00130.v23l617 +++|* 18/,9/,12/ *ASXE*,9/,12/ *MSXE*
Line S00131 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01293 M02S00131.242l642 ---|* *ASXE* = *MAS* EVENT
01294 M01S00006.242l642 +++|* *ASXE* = *MSE* EVENT
01295 M01S00132.v23l617 +++|* *MSXE* = *MSS* EVENT
01296 M01S00974.mac2 +++|*
01297 M01S00975.mac2 +++|* USES A - 1, 2, 6, 7.
01298 M01S00976.mac2 +++|* B - 1.
01299 M01S00977.mac2 +++|* X - 0, 1, 2, 6, 7.
01300 M01S00978.mac2 +++|*
01301 M01S00979.mac2 +++|* MACROS SYSTEM.
01302 M01S00980.mac2 +++|
01303 M01S00981.mac2 +++|
01304 M01S00982.mac2 +++| GETMI SUBR ENTRY/EXIT
01305 M01S00983.mac2 +++| SB1 1
01306 M01S00133.v23l617 +++| BX6 X1
01307 M01S00134.v23l617 +++| SA6 STATW SAVE ADDRESS OF *STATUS*
01308 M01S00984.mac2 +++| SA2 A1+B1 RETURN EVENT DESCRIPTOR
Line S00985 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01309 M02S00985.v23l617 ---| SX6 MSXE
Line S00986 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01310 M02S00986.v23l617 ---| SA6 X2
Line S00987 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01311 M02S00987.v23l617 ---| BX6 X1 SAVE ADDRESS OF *STATUS*
Line S00988 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01312 M02S00988.v23l617 ---| SA6 STATW
Line S00989 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01313 M02S00989.v23l617 ---| SA1 SSTA READ WORD *SSTL* IN *CMR*
Line S00990 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01314 M02S00990.v23l617 ---| MX7 1
01315 M01S00135.v23l617 +++| SA1 GMIA
01316 M01S00136.v23l617 +++| BX6 X1
01317 M01S00137.v23l617 +++| SA6 X2 STORE EVENT DESCPITORS
01318 M01S00138.v23l617 +++| MX7 1
01319 M01S00139.v23l617 +++| SA1 SSTA READ WORD *SSTL* IN *CMR*
01320 M01S00991.mac2 +++| SA7 SSTB
01321 M01S00992.mac2 +++| SYSTEM RSB,R,A1
01322 M01S00993.mac2 +++| MX7 1
01323 M01S00994.mac2 +++| SA1 MMFA READ WORD *MMFL* IN *CMR*
01324 M01S00995.mac2 +++| SA7 MMFB
01325 M01S00996.mac2 +++| SYSTEM RSB,R,A1
01326 M01S00997.mac2 +++| SA1 SSTB SET MASTER/SLAVE EXEC MODE
Line S00998 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01327 M02S00998.v23l617 ---| LX1 59-55
Line S00999 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01328 M02S00999.v23l617 ---| MX7 1
Line S01000 Modification History
M01 (Added by) mac2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01329 M02S01000.v23l617 ---| BX6 X7*X1
01330 M01S00140.v23l617 +++| MX6 -1
01331 M01S00141.v23l617 +++| LX6 49
Line S00142 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01332 M02S00142.242l642 ---| BX6 -X6*X1 GET *MAS* MASTER/SLAVE BIT
01333 M01S00007.242l642 +++| BX6 -X6*X1 GET *MSE* MASTER/SLAVE BIT
01334 M01S00143.v23l617 +++| LX6 57-49
01335 M01S00144.v23l617 +++| MX7 1
01336 M01S00145.v23l617 +++| LX1 59-55
01337 M01S00146.v23l617 +++| BX1 X7*X1 GET *MSS* MASTER/SLAVE BIT
01338 M01S00147.v23l617 +++| BX6 X6+X1 (X6= 1/MSX,1/0,1/ASX,57/0)
01339 M01S01001.mac2 +++| SA1 MMFB GET MULTI/SINGLE MF MODE
01340 M01S01002.mac2 +++| MX0 12
01341 M01S01003.mac2 +++| LX0 47-59
01342 M01S01004.mac2 +++| BX2 X0*X1
01343 M01S01005.mac2 +++| NZ X2,GMI1 IF MULTI MAIN FRAME MODE
01344 M01S01006.mac2 +++| BX7 X7-X7
01345 M01S01007.mac2 +++| GMI1 LX7 59 SET MULTI/SINGLE MF MODE
01346 M01S01008.mac2 +++| BX6 X6+X7
01347 M01S01009.mac2 +++| MX0 -3
01348 M01S00003.252l678 +++| ERRNG 7-MXMF CODE DEPENDS ON VALUE OF TAG
01349 M01S01010.mac2 +++| BX7 -X0*X1 SET MF-ID
01350 M01S01011.mac2 +++| BX6 X6+X7
01351 M01S01012.mac2 +++| MX0 12
01352 M01S01013.mac2 +++| BX7 X0*X1
01353 M01S01014.mac2 +++| LX7 53-59
01354 M01S01015.mac2 +++| BX6 X6+X7
01355 M01S01016.mac2 +++| SA2 STATW
01356 M01S01017.mac2 +++| SA6 X2
01357 M01S01018.mac2 +++| EQ GETMIX RETURN
01358 M01S01019.mac2 +++|
01359 M01S01020.mac2 +++|*CALL COMSEVT
01360 M01S01021.mac2 +++|
Line S00148 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01361 M02S00148.242l642 ---| GMIA VFD 18/0,9/0,12/ASXE,9/0,12/MSXE *MAS*/*MSS* EVENT
01362 M01S00008.242l642 +++| GMIA VFD 18/0,9/0,12/ASXE,9/0,12/MSXE *MSE*/*MSS* EVENT