cdc:nos2.source:opl.opl871:deck:mac2
Deck MAC2
10 Modifications
Listing Sections
- Deck MAC2 Start
- Deck MAC2 Part 1 (Line 1363)
Source
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
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
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/mac2.txt · Last modified: by 127.0.0.1