Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:mac2
Deck MAC2
Library Member Format: MODIFY
Listing Sections
- Deck MAC2 Start
- Deck MAC2 Part 1 (Line 1279)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.mac2 +++| IDENT SSIR 00002 M00S00002.mac2 +++| TITLE SSIR - SPECIAL SYSTEM INTERFACE ROUTINES. 00003 M00S00003.mac2 +++|*COMMENT SPECIAL SYSTEM INTERFACE ROUTINES.
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M00S00005.mac2 +++| SPACE 4 00007 M00S00006.mac2 +++|***** SSIR - SPECIAL SYSTEM INTERFACE ROUTINES. 00008 M00S00007.mac2 +++|* 00009 M00S00008.mac2 +++|* R. R. SEKHON 78/12/15. 00010 M00S00009.mac2 +++| SPACE 4 00011 M00S00010.mac2 +++|***** *SSIR* IS A COLLECTION OF RELOCATABLE MODULES 00012 M00S00011.mac2 +++|* THAT PROVIDE THE INTERFACE BETWEEN *SYMPL* ROUTINES 00013 M00S00012.mac2 +++|* AND THE SPECIAL SYSTEM INTERFACE ROUTINES. 00014 M00S00013.mac2 +++|* 00015 M00S00014.mac2 +++|* THE CALLING ROUTINE SHOULD HAVE SSJ= ENTRY POINT IN 00016 M00S00015.mac2 +++|* ORDER TO CALL THESE SPECIAL SYSTEM INTERFACE ROUTINES. 00017 M00S00016.mac2 +++|* THE *SYMPL* CALLING SEQUENCE IS SHOWN IN EACH MODULE 00018 M00S00017.mac2 +++|* ALONG WITH THE OTHER PERTINENT INFORMATION E.G ENTRY, 00019 M00S00018.mac2 +++|* EXIT, *SYMPL* DATA TYPES NEEDED ETC.. 00020 M00S00019.mac2 +++| SPACE 4 00021 M00S00020.mac2 +++|***** *SSIR* MODULES TRANSLATE PARAMETERS IN *SYMPL* 00022 M00S00021.mac2 +++|* CALL TO A FORMAT USABLE BY *COMPASS* CODE. 00023 M00S00022.mac2 +++|* 00024 M00S00023.mac2 +++|* ENTRY *SYMPL* CALL USES THE ACTUAL PARAMETER LIST, CALL 00025 M00S00024.mac2 +++|* BY REFERENCE CALLING SEQUENCE WHERE 00026 M00S00025.mac2 +++|* (A1) = FWA OF PARAMETER ADDRESS LIST. 00027 M00S00026.mac2 +++|* ((A1)) = FIRST PARAMETER. 00028 M00S00027.mac2 +++|* ((A1+1)) = SECOND PARAMETER. 00029 M00S00028.mac2 +++|* . . 00030 M00S00029.mac2 +++|* . . 00031 M00S00030.mac2 +++|* . . 00032 M00S00031.mac2 +++|* ((A1+N-1)) = N-TH PARAMETER. 00033 M00S00032.mac2 +++|* ((A1+N)) = 0 (ZERO) (NOMINALLY) 00034 M00S00033.mac2 +++|* (X1) = FIRST PARAMETER. 00035 M00S00034.mac2 +++|* 00036 M00S00035.mac2 +++|* NEEDS THESE MODULES NEED COMCMAC, COMCCMD AND THE 00037 M00S00036.mac2 +++|* COMMON DECKS DEFINED IN *NOSTEXT*. 00038 M00S00037.mac2 +++|* 00039 M00S00038.mac2 +++|* NOTE B1 IS SET TO ONE UPON ENTRY TO EACH MODULE. 00040 M00S00039.mac2 +++|* 00041 M00S00040.mac2 +++|* OTHER *SSIR* IS A COLLECTION OF RELOCATABLE MODULES 00042 M00S00041.mac2 +++|* COMBINED INTO ONE *MODIFY* DECK NAMED *SSIR*. 00043 M00S00042.mac2 +++| 00044 M00S00043.mac2 +++| SPACE 4,10 00045 M00S00044.mac2 +++|***** DAYFILE MESSAGES. 00046 M00S00045.mac2 +++|*
| Line S00046 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00047 M01S00046.ns22000 ---|* * RDPFC - ERROR IDLE, DN X.* - *RDPFC*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00001.ns22000 +++|* * RDPFC - ERROR IDLE, DN XX.* - *RDPFC* 00049 M00S00047.mac2 +++|* SKIPPED DEVICE X ON ACCOUNT OF ERROR 00050 M00S00048.mac2 +++|* IDLE SET ON IT. 00051 M00S00049.mac2 +++|*
| Line S00050 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00052 M01S00050.ns22000 ---|* * RDPFC - PF UTILITY ACTIVE, DN X.* - *RDPFC*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00053 M01S00002.ns22000 +++|* * RDPFC - PF UTILITY ACTIVE, DN XX.* - *RDPFC* 00054 M00S00051.mac2 +++|* SKIPPED DEVICE X ON ACCOUNT OF PF UTILITY 00055 M00S00052.mac2 +++|* ACTIVE ON THE DEVICE. 00056 M00S00053.mac2 +++| 00057 M00S00054.mac2 +++| END 00058 M00S00055.mac2 +++| IDENT PFMAC 00059 M00S00056.mac2 +++| ENTRY ASIGNPF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00060 M01S00001.241l630 +++| ENTRY CKPFETC 00061 M00S00057.mac2 +++| ENTRY CLEARAF 00062 M00S00058.mac2 +++| ENTRY DROPDS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00063 M01S00001.v23l617 +++| ENTRY DROPIDS 00064 M00S00059.mac2 +++| ENTRY SETAF 00065 M00S00060.mac2 +++| ENTRY SETASA 00066 M00S00061.mac2 +++| ENTRY SETDA 00067 M00S00062.mac2 +++| ENTRY UATTACH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00002.v23l617 +++| ENTRY UGET 00069 M01S00003.v23l617 +++| ENTRY UREPLAC 00070 M00S00063.mac2 +++| SYSCOM B1 00071 M00S00064.mac2 +++| TITLE SPECIAL PFM MACROS. 00072 M00S00065.mac2 +++|*COMMENT SPECIAL PFM MACROS.
| Line S00066 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00073 M01S00066.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00074 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00075 M00S00067.mac2 +++| 00076 M00S00068.mac2 +++|*CALL COMCMAC 00077 M00S00069.mac2 +++|*CALL COMCCMD 00078 M00S00070.mac2 +++| SPACE 4,40 00079 M00S00071.mac2 +++|*** PFMAC - SPECIAL *PFM* MACROS. 00080 M00S00072.mac2 +++|*
| Line S00073 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00081 M01S00073.ns22000 ---|* ENTRY (LFN) = LOCAL FILE NAME, LEFT JUSTIFIED, ZERO
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00074.mac2 +++|* FILLED, SEVEN CHARACTERS MAXIMUM.
| Line S00075 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00094 M01S00075.ns22000 ---|* (PFN) = PERMANENT FILE NAME, SAME CHARACTERISTICS 00095 M01S00076.ns22000 ---|* AS *LFN*. 00096 M00S00077.mac2 +++|* (M) = ACCESS MODE. 00097 M00S00078.mac2 +++|* = 0, READ/WRITE. 00098 M00S00079.mac2 +++|* = 1, READ. 00099 M00S00080.mac2 +++|* = 2, APPEND. 00100 M00S00081.mac2 +++|* = 3, EXECUTE. 00101 M00S00082.mac2 +++|* = 4, NONE.
| Line S00083 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00102 M01S00083.ns22000 ---|* = 5, MODIFY, APPEND, READ, AND/OR EXECUTE. 00103 M01S00084.ns22000 ---|* = 6, READ, EXECUTE, AND/OR ALLOW 00104 M01S00085.ns22000 ---|* MODIFICATION. 00105 M01S00086.ns22000 ---|* (UI) = USER INDEX. 00106 M01S00087.ns22000 ---|* (FM) = FAMILY NAME.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00088.mac2 +++|* (PFID) = PERMANENT FILE CATALOG INDEX. 00115 M00S00089.mac2 +++|* 28/0,2/PEO,6/DN,12/TRACK,12/SECTOR 00116 M00S00090.mac2 +++|* PEO = PFC ORDINAL. 00117 M00S00091.mac2 +++|* DN = DEVICE NUMBER. 00118 M00S00092.mac2 +++|* TRACK = TRACK NUMBER WHERE PFC RESIDES. 00119 M00S00093.mac2 +++|* SECTOR = SECTOR ORDINAL.
| Line S00094 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00120 M01S00094.ns22000 ---|* (PFC) = 16 WORD BUFFER FOR THE CATALOG IMAGE. 00121 M01S00095.ns22000 ---|* (ASA) = ALTERNATE STORAGE ADDRESS. 00122 M01S00096.ns22000 ---|* 18/0,6/AT,36/AA 00123 M01S00097.ns22000 ---|* AT = ALTERNATE STORAGE TYPE. 00124 M01S00098.ns22000 ---|* AA = ALTERNATE STORAGE ADDRESS. 00125 M01S00099.ns22000 ---|* (CDT) = CREATION DATE AND TIME. 00126 M01S00100.ns22000 ---|* (AF) = ALTERNATE STORAGE FLAG.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00021.ns22000 +++|* (PFN) = PERMANENT FILE NAME, SAME CHARACTERISTICS 00128 M01S00022.ns22000 +++|* AS *LFN*. 00129 M00S00101.mac2 +++|* (RP) = RETURN PROCESSING. 00130 M00S00102.mac2 +++|* = 1, REAL TIME PROCESSING. 00131 M00S00103.mac2 +++|* = 2, STANDARD ERROR PROCESSING ONLY. 00132 M00S00104.mac2 +++|* = 3, STANDARD AND REAL TIME PROCESSING. 00133 M00S00105.mac2 +++|* = 4, USER PROCESSING. 00134 M00S00106.mac2 +++|* = 6, FULL ERROR PROCESSING OPTIONS.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00135 M01S00004.v23l617 +++|* (STAT) = *PFM* RETURN STATUS.
| Line S00107 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00136 M01S00107.ns22000 ---|* (EMA) = ERROR MESSAGE RETURN ADDRESS.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00023.ns22000 +++|* (UI) = USER INDEX. 00138 M00S00108.mac2 +++| SPACE 4,15 00139 M00S00109.mac2 +++|** INIT - INTIALIZE *PFM* FET. 00140 M00S00110.mac2 +++|* 00141 M00S00111.mac2 +++|* ENTRY (A1) = FWA OF PARAMETER ADDRESS LIST. 00142 M00S00112.mac2 +++|* (X2) = RETURN JUMP TO THE MACRO INTERFACE 00143 M00S00113.mac2 +++|* CALLING ROUTINE. 00144 M00S00114.mac2 +++|* (B2) = ERROR MESSAGE RETURN ADDRESS. 00145 M00S00115.mac2 +++|* 00146 M00S00116.mac2 +++|* EXIT (STATW) = ADDRESS OF RETURN STATUS WORD. 00147 M00S00117.mac2 +++|* (EXITA) = RETURN JUMP TO THE MACRO INTERFACE 00148 M00S00118.mac2 +++|* CALLING ROUTINE.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00149 M01S00002.241l630 +++|* IF *PFET* COMPLETION BIT IS SET - 00150 M00S00119.mac2 +++|* (PFET) = INITIALIZED *PFM* FET.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00003.241l630 +++|* IF *PFET* IS BUSY - 00152 M01S00004.241l630 +++|* (X6) .LT. ZERO (IF *PFET* IS BUSY, USER MAY RETRY). 00153 M00S00120.mac2 +++|*
| Line S00121 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00154 M01S00121.241l630 ---|* USES A - 2, 6. 00155 M01S00122.241l630 ---|* B - 1. 00156 M01S00123.241l630 ---|* X - 1, 2, 6.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00157 M01S00005.241l630 +++|* USES X - 2, 3, 6. 00158 M01S00006.241l630 +++|* A - 2, 3, 6. 00159 M01S00007.241l630 +++|* B - 1. 00160 M00S00124.mac2 +++|* 00161 M00S00125.mac2 +++|* MACROS SETFET. 00162 M00S00126.mac2 +++| 00163 M00S00127.mac2 +++| 00164 M00S00128.mac2 +++| INIT SUBR ENTRY/EXIT 00165 M00S00129.mac2 +++| SB1 1
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00166 M01S00008.241l630 +++| SA3 PFET FWA OF FET 00167 M00S00130.mac2 +++| BX6 X2 SAVE RETURN ADDRESS FOR MACRO 00168 M00S00131.mac2 +++| SA6 EXITA 00169 M00S00132.mac2 +++| SA2 A1+B1 SAVE ADDRESS OF RETURN STATUS WORD 00170 M00S00133.mac2 +++| BX6 X2 00171 M00S00134.mac2 +++| SA6 STATW
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | mac22 |
Seq # *Modification Id* Act ----------------------------+ 00175 M01S00135.mac22 ---| SETFET PFET,(LFN=#A1+B0),(ERP=#A1+2),(ERA=B2)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | mac22 |
Seq # *Modification Id* Act ----------------------------+ 00176 M01S00001.mac22 +++| SETFET PFET,(LFN=#A1+B0),(ERP=#A1+2),(ERA=B2),(PFN=INITA) 00177 M00S00136.mac2 +++| EQ INITX RETURN
| Line S00137 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00178 M01S00137.ns22000 ---|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | mac22 |
Seq # *Modification Id* Act ----------------------------+ 00179 M01S00002.mac22 +++| 00180 M01S00003.mac22 +++| 00181 M01S00004.mac22 +++| INITA CON 0 DEFAULT PFN 00182 M00S00138.mac2 +++| SPACE 4,10 00183 M00S00139.mac2 +++|** EXIT - COMMON EXIT FOR SPECIAL *PFM* MACROS. 00184 M00S00140.mac2 +++|* 00185 M00S00141.mac2 +++|* ENTRY (EXITA) = RETURN JUMP TO THE MACRO INTERFACE 00186 M00S00142.mac2 +++|* CALLING ROUTINE. 00187 M00S00143.mac2 +++|* (STATW) = ADDRESS OF RETURN STATUS WORD.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00188 M01S00012.241l630 +++|* AT *EXIT1*, TO RETURN STATUS SPECIFIED IN (X6). 00189 M00S00144.mac2 +++|* 00190 M00S00145.mac2 +++|* EXIT (STAT) = ERROR STATUS.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00191 M01S00013.241l630 +++|* (STAT) .LT. ZERO, IF *PFET* BUSY. 00192 M00S00146.mac2 +++|* 00193 M00S00147.mac2 +++|* USES A - 1, 2, 6. 00194 M00S00148.mac2 +++|* X - 0, 1, 2, 6. 00195 M00S00149.mac2 +++|*
| Line S00150 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00196 M01S00150.ns22000 ---|* NOTES REFER TO *NOS REFERENCE MANUAL* VOL. 2 FOR 00197 M01S00151.ns22000 ---|* ERROR STATUS VALUES.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00198 M01S00024.ns22000 +++|* NOTES REFER TO *COMSPFM* FOR ERROR STATUS VALUES. 00199 M00S00152.mac2 +++| 00200 M00S00153.mac2 +++| 00201 M00S00154.mac2 +++| EXIT BSS 0 ENTRY/EXIT 00202 M00S00155.mac2 +++| SA1 PFET RETURN ERROR STATUS 00203 M00S00156.mac2 +++| MX0 -8 MASK ERROR CODE 00204 M00S00157.mac2 +++| AX1 10 00205 M00S00158.mac2 +++| BX6 -X0*X1
| Line S00159 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00206 M01S00159.241l630 ---| SA2 STATW
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00207 M01S00014.241l630 +++| EXIT1 SA2 STATW STORE ERROR CODE IN STATUS RETURN WORD 00208 M00S00160.mac2 +++| SA6 X2 00209 M00S00161.mac2 +++| EXITA CON 0 00210 M00S00162.mac2 +++|* EQU * SET FOR RETURN FROM MACRO CALLS 00211 M00S00163.mac2 +++| ASIGNPF SPACE 4,25
| Line S00164 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00164.ns2676 ---|** ASIGNPF - ASSIGN PERMANENT FILE SPACE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00001.ns2676 +++|*** ASIGNPF - ASSIGN PERMANENT FILE SPACE. 00214 M00S00165.mac2 +++|*
| Line S00166 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00215 M01S00166.ns22000 ---|* ASIGNPF(LFN,STAT,RP,FL,UI,FM,EMA); (*SYMPL* CALL)
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00025.ns22000 +++|* ASIGNPF(LFN,STAT,RP,FL,UI,FM,AL,EMA); (*SYMPL* CALL) 00217 M00S00167.mac2 +++|* 00218 M00S00168.mac2 +++|* USES A - 2, 3. 00219 M00S00169.mac2 +++|* B - 2. 00220 M00S00170.mac2 +++|* X - 2, 3. 00221 M00S00171.mac2 +++|* 00222 M00S00172.mac2 +++|* CALLS INIT, EXIT. 00223 M00S00173.mac2 +++|* 00224 M00S00174.mac2 +++|* MACROS ASSIGNPF. 00225 M00S00175.mac2 +++| 00226 M00S00176.mac2 +++| 00227 M00S00177.mac2 +++| ASIGNPF SUBR ENTRY/EXIT 00228 M00S00178.mac2 +++| SA2 ASIGNPF
| Line S00179 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00229 M01S00179.ns22000 ---| SA3 A1+6 GET ERROR MESSAGE RETURN ADDRESS
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00230 M01S00026.ns22000 +++| SA3 A1+7 GET ERROR MESSAGE RETURN ADDRESS 00231 M00S00180.mac2 +++| SA3 X3 00232 M00S00181.mac2 +++| SB2 X3 00233 M00S00182.mac2 +++| RJ INIT INITIALIZE *PFM* FET
| Line S00183 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00234 M01S00183.ns22000 ---| ASSIGNPF PFET,#A1+3,SRB,#A1+4,#A1+5
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00027.ns22000 +++| ASSIGNPF PFET,#A1+3,SRB,#A1+4,#A1+5,#A1+6 00236 M00S00184.mac2 +++| EQ EXIT RETURN
| Line S00185 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00237 M01S00185.ns22000 ---|
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00238 M01S00015.241l630 +++| CKPFETC SPACE 4,25
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00239 M02S00016.ns2676 ---|** CKPFETC - CHECK *PFM* FET COMPLETION.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00240 M01S00002.ns2676 +++|*** CKPFETC - CHECK *PFM* FET COMPLETION.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00186.mac2 +++| CLEARAF SPACE 4,35
| Line S00187 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00268 M01S00187.ns2676 ---|** CLEARAF - CLEAR ALTERNATE STOARGE FLAGS.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00269 M01S00003.ns2676 +++|*** CLEARAF - CLEAR ALTERNATE STORAGE FLAGS. 00270 M00S00188.mac2 +++|* 00271 M00S00189.mac2 +++|* CLEARAF(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,AF,EMA); 00272 M00S00190.mac2 +++|* (*SYMPL* CALL) 00273 M00S00191.mac2 +++|* 00274 M00S00192.mac2 +++|* USES A - 2, 3. 00275 M00S00193.mac2 +++|* B - 2. 00276 M00S00194.mac2 +++|* X - 2, 3. 00277 M00S00195.mac2 +++|* 00278 M00S00196.mac2 +++|* CALLS INIT, EXIT. 00279 M00S00197.mac2 +++|* 00280 M00S00198.mac2 +++|* MACROS CLEARAF. 00281 M00S00199.mac2 +++| 00282 M00S00200.mac2 +++| 00283 M00S00201.mac2 +++| CLEARAF SUBR ENTRY/EXIT 00284 M00S00202.mac2 +++| SA2 CLEARAF 00285 M00S00203.mac2 +++| SA3 A1+9 GET ERROR MESSAGE RETURN ADDRESS 00286 M00S00204.mac2 +++| SA3 X3 00287 M00S00205.mac2 +++| SB2 X3 00288 M00S00206.mac2 +++| RJ INIT INITIALIZE *PFM* FET 00289 M00S00207.mac2 +++| CLEARAF PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7,#A1+8 00290 M00S00208.mac2 +++| EQ EXIT RETURN
| Line S00209 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00291 M01S00209.ns22000 ---| 00292 M00S00210.mac2 +++| DROPDS SPACE 4,30
| Line S00211 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00293 M01S00211.v23l617 ---|** DROPDS - DROP DISK SPACE.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00294 M02S00005.ns2676 ---|** DROPDS - DROP DIRECT ACCESS FILE DISK SPACE.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00295 M01S00004.ns2676 +++|*** DROPDS - DROP DIRECT ACCESS FILE DISK SPACE. 00296 M00S00212.mac2 +++|* 00297 M00S00213.mac2 +++|* DROPDS(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,EMA); (*SYMPL* CALL) 00298 M00S00214.mac2 +++|* 00299 M00S00215.mac2 +++|* USES A - 2, 3. 00300 M00S00216.mac2 +++|* B - 2. 00301 M00S00217.mac2 +++|* X - 2, 3. 00302 M00S00218.mac2 +++|* 00303 M00S00219.mac2 +++|* CALLS INIT, EXIT. 00304 M00S00220.mac2 +++|* 00305 M00S00221.mac2 +++|* MACROS DROPDS. 00306 M00S00222.mac2 +++| 00307 M00S00223.mac2 +++| 00308 M00S00224.mac2 +++| DROPDS SUBR ENTRY/EXIT 00309 M00S00225.mac2 +++| SA2 DROPDS 00310 M00S00226.mac2 +++| SA3 A1+8 GET ERROR MESSAGE RETURN ADDRESS 00311 M00S00227.mac2 +++| SA3 X3 00312 M00S00228.mac2 +++| SB2 X3 00313 M00S00229.mac2 +++| RJ INIT INITIALIZE *PFM* FET 00314 M00S00230.mac2 +++| DROPDS PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7 00315 M00S00231.mac2 +++| EQ EXIT RETURN
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00316 M01S00006.v23l617 +++| DROPIDS SPACE 4,20
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00317 M02S00007.ns2676 ---|** DROPIDS - DROP INDIRECT ACCESS FILE DISK SPACE.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00318 M01S00005.ns2676 +++|*** DROPIDS - DROP INDIRECT ACCESS FILE DISK SPACE.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00340 M01S00232.ns22000 ---| 00341 M00S00233.mac2 +++| SETAF SPACE 4,35
| Line S00234 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00234.ns2676 ---|** SETAF - SET ALTERNATE STORAGE FLAGS.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00343 M01S00006.ns2676 +++|*** SETAF - SET ALTERNATE STORAGE FLAGS. 00344 M00S00235.mac2 +++|* 00345 M00S00236.mac2 +++|* SETAF(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,AF,EMA); (*SYMPL* CALL) 00346 M00S00237.mac2 +++|* 00347 M00S00238.mac2 +++|* USES A - 2, 3. 00348 M00S00239.mac2 +++|* B - 2. 00349 M00S00240.mac2 +++|* X - 2, 3. 00350 M00S00241.mac2 +++|* 00351 M00S00242.mac2 +++|* CALLS INIT, EXIT. 00352 M00S00243.mac2 +++|* 00353 M00S00244.mac2 +++|* MACROS SETAF. 00354 M00S00245.mac2 +++| 00355 M00S00246.mac2 +++| 00356 M00S00247.mac2 +++| SETAF SUBR ENTRY/EXIT 00357 M00S00248.mac2 +++| SA2 SETAF 00358 M00S00249.mac2 +++| SA3 A1+9 GET ERROR MESSAGE RETURN ADDRESS 00359 M00S00250.mac2 +++| SA3 X3 00360 M00S00251.mac2 +++| SB2 X3 00361 M00S00252.mac2 +++| RJ INIT INITIALIZE *PFM* FET 00362 M00S00253.mac2 +++| SETAF PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7,#A1+8 00363 M00S00254.mac2 +++| EQ EXIT RETURN
| Line S00255 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00364 M01S00255.ns22000 ---| 00365 M00S00256.mac2 +++| SETASA SPACE 4,30
| Line S00257 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00366 M01S00257.ns2676 ---|** SETASA - SET ALTERNATE STORAGE ADDRESS IN CATALOG.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00007.ns2676 +++|*** SETASA - SET ALTERNATE STORAGE ADDRESS IN CATALOG. 00368 M00S00258.mac2 +++|* 00369 M00S00259.mac2 +++|* SETASA(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,EMA); (*SYMPL* CALL) 00370 M00S00260.mac2 +++|* 00371 M00S00261.mac2 +++|* USES A - 2, 3. 00372 M00S00262.mac2 +++|* B - 2. 00373 M00S00263.mac2 +++|* X - 2, 3. 00374 M00S00264.mac2 +++|* 00375 M00S00265.mac2 +++|* CALLS INIT, EXIT. 00376 M00S00266.mac2 +++|* 00377 M00S00267.mac2 +++|* MACROS SETASA. 00378 M00S00268.mac2 +++| 00379 M00S00269.mac2 +++| 00380 M00S00270.mac2 +++| SETASA SUBR ENTRY/EXIT 00381 M00S00271.mac2 +++| SA2 SETASA 00382 M00S00272.mac2 +++| SA3 A1+8 GET ERROR MESSAGE RETURN ADDRESS 00383 M00S00273.mac2 +++| SA3 X3 00384 M00S00274.mac2 +++| SB2 X3 00385 M00S00275.mac2 +++| RJ INIT INITIALIZE *PFM* FET 00386 M00S00276.mac2 +++| SETASA PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7 00387 M00S00277.mac2 +++| EQ EXIT RETURN 00388 M00S00278.mac2 +++| 00389 M00S00279.mac2 +++| SETDA SPACE 4,30
| Line S00280 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00390 M01S00280.ns2676 ---|** SETDA - SET DISK ADDRESS.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00008.ns2676 +++|*** SETDA - SET DISK ADDRESS. 00392 M00S00281.mac2 +++|* 00393 M00S00282.mac2 +++|* SETDA(LFN,STAT,RP,UI,FM,PFID,ASA,CDT,EMA); (*SYMPL* CALL) 00394 M00S00283.mac2 +++|* 00395 M00S00284.mac2 +++|* USES A - 2, 3. 00396 M00S00285.mac2 +++|* B - 2. 00397 M00S00286.mac2 +++|* X - 2, 3. 00398 M00S00287.mac2 +++|* 00399 M00S00288.mac2 +++|* CALLS INIT, EXIT. 00400 M00S00289.mac2 +++|* 00401 M00S00290.mac2 +++|* MACROS SETDA. 00402 M00S00291.mac2 +++| 00403 M00S00292.mac2 +++| 00404 M00S00293.mac2 +++| SETDA SUBR ENTRY/EXIT 00405 M00S00294.mac2 +++| SA2 SETDA 00406 M00S00295.mac2 +++| SA3 A1+8 GET ERROR MESSAGE RETURN ADDRESS 00407 M00S00296.mac2 +++| SA3 X3 00408 M00S00297.mac2 +++| SB2 X3 00409 M00S00298.mac2 +++| RJ INIT INITIALIZE *PFM* FET 00410 M00S00299.mac2 +++| SETDA PFET,SRB,#A1+3,#A1+4,#A1+5,#A1+6,#A1+7 00411 M00S00300.mac2 +++| EQ EXIT RETURN
| Line S00301 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00412 M01S00301.ns22000 ---| 00413 M00S00302.mac2 +++| UATTACH SPACE 4,45
| Line S00303 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00414 M01S00303.ns2676 ---|** UATTACH - UTITLITY ATTACH.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00415 M01S00009.ns2676 +++|*** UATTACH - UTILITY ATTACH. 00416 M00S00304.mac2 +++|* 00417 M00S00305.mac2 +++|* UATTACH(LFN,STAT,RP,PFN,M,UI,FM,PFID,PFC,CDT,EMA); 00418 M00S00306.mac2 +++|* (*SYMPL* CALL) 00419 M00S00307.mac2 +++|* 00420 M00S00308.mac2 +++|* USES A - 2, 3. 00421 M00S00309.mac2 +++|* B - 2. 00422 M00S00310.mac2 +++|* X - 2, 3. 00423 M00S00311.mac2 +++|* 00424 M00S00312.mac2 +++|* CALLS INIT, EXIT. 00425 M00S00313.mac2 +++|* 00426 M00S00314.mac2 +++|* MACROS UATTACH. 00427 M00S00315.mac2 +++| 00428 M00S00316.mac2 +++| 00429 M00S00317.mac2 +++| UATTACH SUBR ENTRY/EXIT 00430 M00S00318.mac2 +++| SA2 UATTACH 00431 M00S00319.mac2 +++| SA3 A1+10 GET ERROR MESSAGE RETURN ADDRESS 00432 M00S00320.mac2 +++| SA3 X3 00433 M00S00321.mac2 +++| SB2 X3 00434 M00S00322.mac2 +++| RJ INIT INITIALIZE *PFM* FET 00435 M00S00323.mac2 +++| SA2 A1+8 GET ADDRESS OF *PFC* 00436 M00S00324.mac2 +++| SB2 X2 00437 M00S00325.mac2 +++| UATTACH PFET,#A1+3,#A1+4,SRB,#A1+5,#A1+6,#A1+7,B2,#A1+9 00438 M00S00326.mac2 +++| EQ EXIT RETURN
| Line S00327 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00439 M01S00327.v23l617 ---|
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00440 M01S00029.v23l617 +++| UGET SPACE 4,20
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00030.ns2676 ---|** UGET - UTILITY GET.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00442 M01S00010.ns2676 +++|*** UGET - UTILITY GET.
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 +++|*
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00447 M01S00043.241l630 +++|* EXIT *UGET* FUNCTION INITIATED. 00448 M01S00044.241l630 +++|* (FUNCTION IS PERFORMED WITHOUT AUTORECALL). 00449 M01S00045.241l630 +++|*
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00468 M02S00053.241l630 ---| EQ EXIT RETURN
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00469 M01S00046.241l630 +++| EQ UGETX RETURN
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00470 M01S00054.v23l617 +++| UREPLAC SPACE 4,20
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00471 M02S00055.ns2676 ---|** UREPLAC - UTILITY REPLACE.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00472 M01S00011.ns2676 +++|*** UREPLAC - UTILITY REPLACE.
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 +++|*
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00477 M01S00047.241l630 +++|* EXIT *UREPLACE* FUNCTION INITIATED. 00478 M01S00048.241l630 +++|* (FUNCTION IS PERFORMED WITHOUT AUTORECALL). 00479 M01S00049.241l630 +++|*
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00496 M02S00076.241l630 ---| EQ EXIT RETURN
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00497 M01S00050.241l630 +++| EQ UREPLACX RETURN
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00498 M01S00077.v23l617 +++|FET SPACE 4,10 00499 M00S00328.mac2 +++|* *PFM* FET USED/SHARED BY ALL MACRO INTERFACE ROUTINES. 00500 M00S00329.mac2 +++| 00501 M00S00330.mac2 +++| PFET FILEB DMMY,DMYL,(FET=16D) DUMMY *PFM* FET 00502 M00S00331.mac2 +++| DMYL EQU 0 LENGTH OF DUMMY *CIO* BUFFER 00503 M00S00332.mac2 +++| DMMY BSS 0 00504 M00S00333.mac2 +++| SRB BSS 4 SPECIAL REQUEST BLOCK 00505 M00S00334.mac2 +++| STATW BSS 1 ADDRESS OF *STAT* 00506 M00S00335.mac2 +++| 00507 M00S00336.mac2 +++| END 00508 M00S00337.mac2 +++| IDENT BUDT 00509 M00S00338.mac2 +++| ENTRY BUDT
| Line S00339 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00510 M01S00339.ns22000 ---| EXT RDESTC 00511 M00S00340.mac2 +++| SYSCOM B1
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00512 M01S00028.ns22000 +++| SST 00513 M00S00341.mac2 +++| TITLE BUDT - BUILD UNIT DEVICE TABLE. 00514 M00S00342.mac2 +++|*COMMENT BUILD UNIT DEVICE TABLE.
| Line S00343 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00515 M01S00343.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00516 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00517 M00S00344.mac2 +++| 00518 M00S00345.mac2 +++|*CALL COMCMAC 00519 M00S00346.mac2 +++|
| Line S00347 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00520 M01S00347.ns22000 ---| CS EQU 0323B MNEMONIC FOR SELECTOR 00521 M01S00348.ns22000 ---| CT EQU 0324B MNEMONIC FOR TRANSPORT 00522 M00S00349.mac2 +++| UDTN EQU 5 NUMBER OF WORDS PER *UDT* ENTRY 00523 M00S00350.mac2 +++| BUDT SPACE 4,15 00524 M00S00351.mac2 +++|*** BUDT - BUILD UNIT DEVICE TABLE. 00525 M00S00352.mac2 +++|*
| Line S00353 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00526 M01S00353.ns22000 ---|* THE ENTIRE *EST* IS READ. FOR EVERY *EST* ENTRY
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00527 M01S00029.ns22000 +++|* THE ENTIRE EST IS READ, VIA *RDESTC*. FOR EACH EST ENTRY 00528 M00S00354.mac2 +++|* FOR *MSS* EQUIPMENT A CORRESPONDING ENTRY IS SET 00529 M00S00355.mac2 +++|* UP IN THE UNIT DEVICE TABLE. *MSID* REPRESENTS 00530 M00S00356.mac2 +++|* THE *MSF* HARDWARE COMPONENT IDENTIFIER. 00531 M00S00357.mac2 +++|* 00532 M00S00358.mac2 +++|* BUDT(UDT); (*SYMPL* CALL) 00533 M00S00359.mac2 +++|* 00534 M00S00360.mac2 +++|* EXIT (UDT) = UNIT DEVICE TABLE. 00535 M00S00361.mac2 +++|* 00536 M00S00362.mac2 +++|* USES A - 1, 2, 3, 4, 5, 6. 00537 M00S00363.mac2 +++|* B - 1, 2, 3, 4, 5. 00538 M00S00364.mac2 +++|* X - 0, 1, 2, 3, 4, 5, 6. 00539 M00S00365.mac2 +++|* 00540 M00S00366.mac2 +++|* CALLS RDESTC. 00541 M00S00367.mac2 +++|* 00542 M00S00368.mac2 +++|* MACROS SYSTEM. 00543 M00S00369.mac2 +++|* 00544 M00S00370.mac2 +++|* NOTES ARRAY *UDT* MUST BE 65 CM WORDS LONG. 00545 M00S00371.mac2 +++| 00546 M00S00372.mac2 +++| BUDT SUBR ENTRY/EXIT 00547 M00S00373.mac2 +++| BX6 X1 SAVE ADDRESS OF *UDT* 00548 M00S00374.mac2 +++| SB4 B0 00549 M00S00375.mac2 +++| SA6 UDTA 00550 M00S00376.mac2 +++|
| Line S00377 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00551 M01S00377.ns22000 ---|* READ THE ENTIRE *EST*.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00552 M01S00030.ns22000 +++|* READ EST INTO *ESTB*. 00553 M00S00378.mac2 +++|
| Line S00379 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00554 M01S00379.ns22000 ---| SB2 ESTB ADDRESS OF *EST* BUFFER
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00555 M01S00031.ns22000 +++| SB2 ESTB SET EST BUFFER ADDRESS 00556 M00S00380.mac2 +++| SB3 ESTN 00557 M00S00381.mac2 +++| SB1 1
| Line S00382 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00558 M01S00382.ns22000 ---| RJ RDESTC READ *EST*
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00559 M01S00032.ns22000 +++| RJ =XRDESTC READ EST INTO *ESTB* 00560 M00S00383.mac2 +++| SX4 UDTN NUMBER OF WORDS PER *UDT* ENTRY
| Line S00384 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00561 M01S00384.ns22000 ---| SA1 ESTN GET NUMBER OF *EST* ENTRIES READ
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00562 M01S00033.ns22000 +++| SA1 ESTN SET LAST EST ORDINAL + 1 00563 M00S00385.mac2 +++| SB2 X1
| Line S00386 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00564 M01S00386.ns22000 ---| SB3 -B1
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00565 M01S00034.ns22000 +++| SB3 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 00566 M00S00387.mac2 +++| SA5 UDTA ADDRESS OF BUFFER TO HOLD *UDT* 00567 M00S00388.mac2 +++| SB5 X5 00568 M00S00389.mac2 +++|
| Line S00390 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00569 M01S00390.ns22000 ---|* SEARCH *EST* TO BUILD *UDT*.
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00570 M01S00035.ns22000 +++|* SEARCH EST AND BUILD *UDT*. 00571 M00S00391.mac2 +++| 00572 M00S00392.mac2 +++| BDT1 SB3 B3+B1
| Line S00393 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00573 M01S00393.ns22000 ---| EQ B2,B3,BUDTX IF END OF *EST* 00574 M01S00394.ns22000 ---| SA1 ESTB+B3 GET NEXT *EST* ENTRY
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00395.mac2 +++| MX0 -11 CHECK FOR *MSS* EQUIPMENT 00581 M00S00396.mac2 +++| LX0 22-10 00582 M00S00397.mac2 +++| BX2 -X0*X1 00583 M00S00398.mac2 +++| LX2 10-22
| Line S00399 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00584 M01S00399.ns22000 ---| SX3 X2-CS 00585 M01S00400.ns22000 ---| ZR X3,BDT2 IF *EST* ENTRY FOR A SELECTOR 00586 M01S00401.ns22000 ---| SX3 X2-CT 00587 M01S00402.ns22000 ---| NZ X3,BDT1 IF NOT AN *EST* ENTRY FOR A TRANSPORT
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00403.mac2 +++| MX0 -2 GET POSITION OF TRANSPORT IN *CSU* 00593 M00S00404.mac2 +++| LX0 7-1 00594 M00S00405.mac2 +++| BX6 -X0*X1 SET TRANSPORT POSITION IN *UDT* 00595 M00S00406.mac2 +++| SB4 B4+B1 INCREMENT INDEX OF *UDT* ENTRY FOR *CSU* 00596 M00S00407.mac2 +++| EQ BDT3 BUILD REMAINING FIELDS IN *UDT* ENTRY 00597 M00S00408.mac2 +++| 00598 M00S00409.mac2 +++| BDT2 SB4 B0 INITIALIZE INDEX OF *UDT* ENTRY FOR *CSU* 00599 M00S00410.mac2 +++| BX6 X6-X6 00600 M00S00411.mac2 +++| MX0 -4 GET *CSU* INDEX 00601 M00S00412.mac2 +++| LX0 8-3 00602 M00S00413.mac2 +++| BX2 -X0*X1 00603 M00S00414.mac2 +++| LX2 3-8 00604 M00S00415.mac2 +++| SX2 X2-1 CALCULATE ADDRESS OF *UDT* ENTRY FOR *CSU* 00605 M00S00416.mac2 +++| IX3 X2*X4 00606 M00S00417.mac2 +++| SX5 X3+B5 00607 M00S00418.mac2 +++| BDT3 MX0 5 BUILD *UDT* ENTRY 00608 M00S00419.mac2 +++| LX0 40-59 00609 M00S00420.mac2 +++| BX2 X0*X1 00610 M00S00421.mac2 +++| LX6 26-7 00611 M00S00422.mac2 +++| LX2 58-40 00612 M00S00423.mac2 +++| BX6 X2+X6 SET CHANNEL NUMBER IN *UDT* ENTRY
| Line S00424 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00613 M01S00424.ns22000 ---| MX0 6 GET *MSA* MSID
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00614 M01S00045.ns22000 +++| MX0 4 GET *MSA* MSID 00615 M00S00425.mac2 +++| LX0 35-59 00616 M00S00426.mac2 +++| BX2 X0*X1 00617 M00S00427.mac2 +++| LX2 53-35 00618 M00S00428.mac2 +++| BX6 X2+X6 SET *MSA* MSID IN *UDT* ENTRY 00619 M00S00429.mac2 +++| MX0 8 GET UNIT MSID 00620 M00S00430.mac2 +++| LX0 31-59 00621 M00S00431.mac2 +++| BX2 X0*X1 00622 M00S00432.mac2 +++| LX2 49-31 00623 M00S00433.mac2 +++| BX6 X2+X6 SET UNIT MSID IN *UDT* ENTRY 00624 M00S00434.mac2 +++| MX0 1 00625 M00S00435.mac2 +++| LX0 41-59
| Line S00436 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00626 M01S00436.ns22000 ---| BX6 X0+X6 SET *EST* ON/OFF BIT
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00627 M01S00046.ns22000 +++| BX6 X0+X6 MERGE ON/OFF STATUS 00628 M00S00437.mac2 +++| LX0 23-41 00629 M00S00438.mac2 +++| BX2 X0*X1 CHECK ON/OFF STATUS 00630 M00S00439.mac2 +++| ZR X2,BDT4 IF ON 00631 M00S00440.mac2 +++| SX0 B0 OFF STATUS 00632 M00S00441.mac2 +++| BDT4 LX0 40-23 00633 M00S00442.mac2 +++| BX6 X0+X6 SET CLEAN UP BIT
| Line S00443 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00634 M01S00443.ns22000 ---| SX2 B3 SET *EST* ORDINAL
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00635 M01S00047.ns22000 +++| SX2 B3 SET EST ORDINAL 00636 M00S00444.mac2 +++| MX0 -9 00637 M00S00445.mac2 +++| BX2 -X0*X2 00638 M00S00446.mac2 +++| LX2 38-8 00639 M00S00447.mac2 +++| BX6 X2+X6
| Line S00448 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00640 M01S00448.ns22000 ---| MX0 -3 GET EQUIPMENT NUMBER
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00641 M01S00048.ns22000 +++| MX0 -3 GET EQUIPMENT (CONTROLLER) NUMBER 00642 M00S00449.mac2 +++| LX0 11-2 00643 M00S00450.mac2 +++| BX2 -X0*X1 00644 M00S00451.mac2 +++| LX2 29-11
| Line S00452 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00645 M01S00452.ns22000 ---| BX6 X2+X6 SET EQUIPMENT NUMBER
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00646 M01S00049.ns22000 +++| BX6 X2+X6 SET EQUIPMENT (CONTROLLER) NUMBER 00647 M00S00453.mac2 +++| MX0 -2 GET *MSA* NUMBER ON COUPLER 00648 M00S00454.mac2 +++| LX0 4-1 00649 M00S00455.mac2 +++| BX2 -X0*X1 00650 M00S00456.mac2 +++| LX2 22-4 00651 M00S00457.mac2 +++| BX6 X2+X6 SET *MSA* NUMBER IN *UDT* ENTRY 00652 M00S00458.mac2 +++| MX0 -3 GET UNIT NUMBER ON *MSA* 00653 M00S00459.mac2 +++| BX2 -X0*X1 00654 M00S00460.mac2 +++| LX2 20-2 00655 M00S00461.mac2 +++| BX6 X2+X6 SET UNIT NUMBER IN *UDT* ENTRY 00656 M00S00462.mac2 +++| SA6 X5+B4 SET UP *UDT* ENTRY IN THE BUFFER
| Line S00463 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00657 M01S00463.ns22000 ---| EQ BDT1 PROCESS NEXT *EST* ENTRY
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00658 M01S00050.ns22000 +++| EQ BDT1 PROCESS NEXT EST ENTRY 00659 M00S00464.mac2 +++|
| Line S00465 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00660 M01S00465.ns22000 ---| ESTB BSS 100B *EST* BUFFER 00661 M01S00466.ns22000 ---| ESTN BSS 1 NUMBER OF *EST* ENTRIES
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00662 M01S00051.ns22000 +++| ESTB BSS ESMX*ESTE EST BUFFER 00663 M01S00052.ns22000 +++| ESTN BSS 1 NUMBER OF EST ENTRIES RETURNED 00664 M00S00467.mac2 +++| UDTA BSS 1 ADDRESS OF BUFFER TO HOLD *UDT* 00665 M00S00468.mac2 +++| 00666 M00S00469.mac2 +++| END 00667 M00S00470.mac2 +++| IDENT CALLSS 00668 M00S00471.mac2 +++| ENTRY CALLSS 00669 M00S00472.mac2 +++| SYSCOM B1
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00670 M01S00012.ns2676 +++| TITLE CALLSS - ISSUE A CALLSS REQUEST TO A SUBSYSTEM. 00671 M00S00473.mac2 +++|*COMMENT ISSUES A CALLSS REQUEST TO A SUBSYSTEM.
| Line S00474 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00672 M01S00474.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00673 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00674 M00S00475.mac2 +++| 00675 M00S00476.mac2 +++|*CALL COMCMAC 00676 M00S00477.mac2 +++| CALLSS SPACE 4,15 00677 M00S00478.mac2 +++|*** CALLSS - ISSUES A CALLSS REQUEST TO A SUBSYSTEM. 00678 M00S00479.mac2 +++|* 00679 M00S00480.mac2 +++|* CALLSS(SS,PADDR,R); (*SYMPL* CALL) 00680 M00S00481.mac2 +++|* 00681 M00S00482.mac2 +++|* ENTRY (SS) = SUBSYSTEM QUEUE PRIORITY. 00682 M00S00483.mac2 +++|* (PADDR) = PARAMETER BLOCK. 00683 M00S00484.mac2 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00684 M00S00485.mac2 +++|* 00685 M00S00486.mac2 +++|* USES A - 1, 3, 4, 5. 00686 M00S00487.mac2 +++|* B - 1. 00687 M00S00488.mac2 +++|* X - 1, 3, 4, 5. 00688 M00S00489.mac2 +++|* 00689 M00S00490.mac2 +++|* MACROS CALLSS, RECALL. 00690 M00S00491.mac2 +++| 00691 M00S00492.mac2 +++| CALLSS SUBR ENTRY/EXIT 00692 M00S00493.mac2 +++| SB1 1 00693 M00S00494.mac2 +++| SA3 A1+B1 GET ADDRESS OF *PADDR* 00694 M00S00495.mac2 +++| SA4 A3+B1 GET ADDRESS OF *R* 00695 M00S00496.mac2 +++| SA1 X1 GET *SS* 00696 M00S00497.mac2 +++| SA5 X4 GET *R* 00697 M00S00498.mac2 +++| CALLSS X1,X3 00698 M00S00499.mac2 +++| ZR X5,CALLSSX IF RECALL NOT REQUESTED 00699 M00S00500.mac2 +++| RECALL X3 00700 M00S00501.mac2 +++| EQ CALLSSX RETURN 00701 M00S00502.mac2 +++| 00702 M00S00503.mac2 +++| END 00703 M00S00504.mac2 +++| IDENT CINTLK 00704 M00S00505.mac2 +++| ENTRY CINTLK 00705 M00S00506.mac2 +++| SYSCOM B1 00706 M00S00507.mac2 +++| TITLE CINTLK - GET/RELEASE CATALOG INTERLOCK. 00707 M00S00508.mac2 +++|*COMMENT GET/RELEASE CATALOG INTERLOCK.
| Line S00509 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00708 M01S00509.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00709 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00710 M00S00510.mac2 +++| 00711 M00S00511.mac2 +++|*CALL COMCMAC 00712 M00S00512.mac2 +++|*CALL COMSPFU 00713 M00S00513.mac2 +++| CINTLK SPACE 4,20 00714 M00S00514.mac2 +++|*** CINTLK - GET/RELEASE CATALOG INTERLOCK. 00715 M00S00515.mac2 +++|* 00716 M00S00516.mac2 +++|* CINTLK(FUNC,FAM,DM); (*SYMPL* CALL) 00717 M00S00517.mac2 +++|*
| Line S00518 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00718 M01S00518.v23l617 ---|* ENTRY (FUNC) = 0, GET LOCK. 00719 M01S00519.v23l617 ---|* 1, RELEASE LOCK.
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00724 M02S00082.242l642 ---|* = 2 (ATAS), *MAS*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00725 M01S00001.242l642 +++|* = 2 (ATAS), *MSE*.
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00726 M01S00083.v23l617 +++|* 00727 M01S00084.v23l617 +++|* F = FUNCTION - 00728 M01S00085.v23l617 +++|* = 0, GET LOCK. 00729 M01S00086.v23l617 +++|* = 1, RELEASE LOCK. 00730 M01S00087.v23l617 +++|* 00731 M00S00520.mac2 +++|* (FAM) = FAMILY NAME, LEFT JUSTIFIED, 00732 M00S00521.mac2 +++|* SEVEN CHARACTERS MAXIMUM. 00733 M00S00522.mac2 +++|* (DM) = DEVICE MASK, RIGHT JUSTIFIED (6 BITS). 00734 M00S00523.mac2 +++|*
| Line S00524 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00735 M01S00524.v23l617 ---|* USES A - 1, 2, 3, 5, 6. 00736 M01S00525.v23l617 ---|* B - 1. 00737 M01S00526.v23l617 ---|* X - 0, 1, 2, 3, 5, 6.
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00738 M01S00088.v23l617 +++|* USES X - 0, 1, 2, 3, 6. 00739 M01S00089.v23l617 +++|* A - 1, 2, 3, 6. 00740 M01S00090.v23l617 +++|* B - 1. 00741 M00S00527.mac2 +++|* 00742 M00S00528.mac2 +++|* MACROS CALLPFU. 00743 M00S00529.mac2 +++| 00744 M00S00530.mac2 +++| 00745 M00S00531.mac2 +++| CINTLK SUBR ENTRY/EXIT 00746 M00S00532.mac2 +++| SB1 1 00747 M00S00533.mac2 +++| SA2 A1+B1 GET ADDRESS OF *FAM* 00748 M00S00534.mac2 +++| SA3 A2+B1 GET ADDRESS OF *DM*
| Line S00535 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00749 M01S00535.v23l617 ---| SA5 CTCW BUILD FUNCTION CONTROL WORD 00750 M01S00536.v23l617 ---| MX0 -12 00751 M01S00537.v23l617 ---| BX6 -X0*X5
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00538.mac2 +++| LX2 59-17 SET FAMILY ADDRESS 00759 M00S00539.mac2 +++| BX6 X6+X2 00760 M00S00540.mac2 +++| LX3 41-17 SET DEVICE MASK ADDRESS 00761 M00S00541.mac2 +++| BX6 X6+X3
| Line S00542 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00762 M01S00542.v23l617 ---| SA6 A5 00763 M01S00543.v23l617 ---| SA1 X1 GET *FUNC* 00764 M01S00544.v23l617 ---| NZ X1,CIN1 IF RELEASE REQUESTED
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00545.mac2 +++| CALLPFU CTCW,CTGE,R GET LOCK 00769 M00S00546.mac2 +++| EQ CINTLKX RETURN 00770 M00S00547.mac2 +++| 00771 M00S00548.mac2 +++| CIN1 CALLPFU CTCW,CTRE,R RELEASE LOCK 00772 M00S00549.mac2 +++| EQ CINTLKX RETURN 00773 M00S00550.mac2 +++|
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00774 M01S00100.v23l617 +++|* CONTROL WORD FORMAT - 00775 M01S00101.v23l617 +++|* 18/FAM,18/DM,12/,6/AT,5/,1/C. 00776 M01S00102.v23l617 +++| 00777 M00S00551.mac2 +++| CTCW VFD 59/0,1/1 *CALLPFU* CONTROL WORD 00778 M00S00552.mac2 +++| 00779 M00S00553.mac2 +++|*CALL COMCPFU 00780 M00S00554.mac2 +++|*CALL COMSPFU 00781 M00S00555.mac2 +++| 00782 M00S00556.mac2 +++| END 00783 M00S00557.mac2 +++| IDENT EESET 00784 M00S00558.mac2 +++| ENTRY EESET 00785 M00S00559.mac2 +++| SYSCOM B1 00786 M00S00560.mac2 +++| TITLE EESET - SET EVENT TABLE. 00787 M00S00561.mac2 +++|*COMMENT SET EVENT TABLE.
| Line S00562 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00788 M01S00562.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00789 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00790 M00S00563.mac2 +++| 00791 M00S00564.mac2 +++|*CALL COMCMAC 00792 M00S00565.mac2 +++| EESET SPACE 4,15 00793 M00S00566.mac2 +++|*** EESET - SET EVENT TABLE. 00794 M00S00567.mac2 +++|* 00795 M00S00568.mac2 +++|* EESET(EVENT); (*SYMPL* CALL) 00796 M00S00569.mac2 +++|*
| Line S00570 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00797 M01S00570.ns22000 ---|* ENTRY (EVENT) = 18 BIT EVENT DESCRIPTOR. 00798 M01S00571.ns22000 ---|* 42/,6/EQ,12/CONDITION 00799 M01S00572.ns22000 ---|* EQ = *EST* ORDINAL OF THE EQUIPMENT ON
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00573.mac2 +++|* WHICH THE SYSTEM IS WAITING FOR THE 00805 M00S00574.mac2 +++|* CONDITION TO OCCUR. 00806 M00S00575.mac2 +++|* CONDITION = EVENT VARIABLE. 00807 M00S00576.mac2 +++|* 00808 M00S00577.mac2 +++|* USES A - 1. 00809 M00S00578.mac2 +++|* B - 1. 00810 M00S00579.mac2 +++|* X - 1. 00811 M00S00580.mac2 +++|* 00812 M00S00581.mac2 +++|* MACROS EESET. 00813 M00S00582.mac2 +++| 00814 M00S00583.mac2 +++| 00815 M00S00584.mac2 +++| EESET SUBR ENTRY/EXIT 00816 M00S00585.mac2 +++| SB1 1 00817 M00S00586.mac2 +++| SA1 X1 GET *EVENT* 00818 M00S00587.mac2 +++| EESET X1 00819 M00S00588.mac2 +++| EQ EESETX RETURN 00820 M00S00589.mac2 +++| 00821 M00S00590.mac2 +++| END 00822 M00S00591.mac2 +++| IDENT GETACT 00823 M00S00592.mac2 +++| ENTRY GETACT 00824 M00S00593.mac2 +++| SYSCOM B1
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00825 M01S00013.ns2676 +++| TITLE GETACT - GET CURRENT JOB ACTIVITY COUNTS. 00826 M00S00594.mac2 +++|*COMMENT GET CURRENT JOB ACTIVITY COUNTS.
| Line S00595 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00827 M01S00595.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00828 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00829 M00S00596.mac2 +++| 00830 M00S00597.mac2 +++|*CALL COMCMAC 00831 M00S00598.mac2 +++|*CALL COMCCMD 00832 M00S00599.mac2 +++| GETACT SPACE 4,30 00833 M00S00600.mac2 +++|*** GETACT - GET CURRENT JOB ACTIVITY COUNTS. 00834 M00S00601.mac2 +++|* 00835 M00S00602.mac2 +++|* GETACT(ADDR); (*SYMPL* CALL) 00836 M00S00603.mac2 +++|* 00837 M00S00604.mac2 +++|* ENTRY ADDR = ADDRESS FOR RESPONSE. 00838 M00S00605.mac2 +++|* 00839 M00S00606.mac2 +++|* EXIT (ADDR) = JOB ACTIVITY INFORMATION IN THE 00840 M00S00607.mac2 +++|* FOLLOWING FORMAT. 00841 M00S00608.mac2 +++|* 12/SHORT,1/L,23/0,12/INS,11/0,1/C 00842 M00S00609.mac2 +++|* 00843 M00S00610.mac2 +++|* SHORT SHORT TERM ACTIVITY COUNTS, INCREMENTED BY 00844 M00S00611.mac2 +++|* ONE FOR EACH OF THE FOLLOWING. 00845 M00S00612.mac2 +++|* PPU ACTIVITY. 00846 M00S00613.mac2 +++|* PPU IN RECALL. 00847 M00S00614.mac2 +++|* TAPE ACTIVITY. 00848 M00S00615.mac2 +++|* ROLLOUT REQUESTED. 00849 M00S00616.mac2 +++|* SCP WAIT RESPONSE INDICATORS. 00850 M00S00617.mac2 +++|* TERMINAL OUTPUT FET ADDRESS PRESENT. 00851 M00S00618.mac2 +++|* L LONG TERM ACTIVITY COUNTS. FIELD IS ONE 00852 M00S00619.mac2 +++|* IF ANY OF THE FOLLOWING CONDITIONS ARE MET. 00853 M00S00620.mac2 +++|* *K* OR *L* DISPLAY INTERFACE ACTIVE. 00854 M00S00621.mac2 +++|* *CFO* ENTRY ENABLED. 00855 M00S00622.mac2 +++|* SCP LONG TERM CONNECTION ESTABLISHED. 00856 M00S00623.mac2 +++|* INS RESERVED FOR INSTALLATIONS. 00857 M00S00624.mac2 +++|* C COMPLETE BIT, ALWAYS ONE UPON COMPLETION. 00858 M00S00625.mac2 +++|* 00859 M00S00626.mac2 +++|* USES B - 1. 00860 M00S00627.mac2 +++|* 00861 M00S00628.mac2 +++|* MACROS GETACT. 00862 M00S00629.mac2 +++| 00863 M00S00630.mac2 +++| 00864 M00S00631.mac2 +++| GETACT SUBR ENTRY/EXIT 00865 M00S00632.mac2 +++| SB1 1 00866 M00S00633.mac2 +++| GETACT X1 00867 M00S00634.mac2 +++| EQ GETACTX RETURN 00868 M00S00635.mac2 +++| 00869 M00S00636.mac2 +++| END 00870 M00S00637.mac2 +++| IDENT GETDI 00871 M00S00638.mac2 +++| ENTRY GETDI 00872 M00S00639.mac2 +++| SYSCOM B1
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00873 M01S00014.ns2676 +++| TITLE GETDI - GET DEVICE INHIBIT DATE AND TIME. 00874 M00S00640.mac2 +++|*COMMENT GET DEVICE INHIBIT DATE AND TIME.
| Line S00641 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00875 M01S00641.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00876 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00877 M00S00642.mac2 +++| 00878 M00S00643.mac2 +++|*CALL COMCMAC 00879 M00S00644.mac2 +++|*CALL COMCCMD 00880 M00S00645.mac2 +++|*CALL COMSMMF 00881 M00S00646.mac2 +++|*CALL COMSSFM 00882 M00S00647.mac2 +++| GETDI SPACE 4,15
| Line S00648 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00883 M01S00648.ns2676 ---|** GETDI - GET DEVICE INHIBIT DATE AND TIME.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00884 M01S00015.ns2676 +++|*** GETDI - GET DEVICE INHIBIT DATE AND TIME. 00885 M00S00649.mac2 +++|* 00886 M00S00650.mac2 +++|* GETDI(EQ,INDT); (*SYMPL* CALL) 00887 M00S00651.mac2 +++|*
| Line S00652 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00888 M01S00652.ns22000 ---|* ENTRY (EQ) = EQUIPMENT NUMBER.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00889 M01S00057.ns22000 +++|* ENTRY (EQ) = EST ORDINAL. 00890 M00S00653.mac2 +++|* 00891 M00S00654.mac2 +++|* EXIT (INDT) = DEVICE INHIBIT DATE AND TIME.
| Line S00655 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00892 M01S00655.ns22000 ---|* (CEQN) = CURRENT EQUIPMENT NUMBER.
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00893 M01S00058.ns22000 +++|* (CEQN) = CURRENT EST ORDINAL. 00894 M00S00656.mac2 +++|* (CIDT) = CURRENT DEVICE INHIBIT DATE AND TIME. 00895 M00S00657.mac2 +++|* (INIT) = 1. 00896 M00S00658.mac2 +++|* 00897 M00S00659.mac2 +++|* USES A - 1, 2, 3, 5, 6, 7. 00898 M00S00660.mac2 +++|* B - 1. 00899 M00S00661.mac2 +++|* X - 1, 2, 3, 5, 6, 7. 00900 M00S00662.mac2 +++|* 00901 M00S00663.mac2 +++|* MACROS GETDI. 00902 M00S00664.mac2 +++| 00903 M00S00665.mac2 +++| 00904 M00S00666.mac2 +++| GETDI SUBR ENTRY/EXIT 00905 M00S00667.mac2 +++| SB1 1 00906 M00S00668.mac2 +++| SA5 A1+B1 SAVE ADDRESS OF *INDT* 00907 M00S00669.mac2 +++| SA1 X1 00908 M00S00670.mac2 +++| SA2 INIT 00909 M00S00671.mac2 +++| ZR X2,GTD1 IF FIRST CALL
| Line S00672 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00910 M01S00672.ns22000 ---| SA2 CEQN COMPARE EQUIPMENT NUMBER
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00911 M01S00059.ns22000 +++| SA2 CEQN COMPARE EST ORDINALS 00912 M00S00673.mac2 +++| BX3 X2-X1
| Line S00674 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00913 M01S00674.ns22000 ---| NZ X3,GTD2 IF EQ NUMBER DIFFERENT FROM PREVIOUS CALL
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00914 M01S00060.ns22000 +++| NZ X3,GTD2 IF DIFFERENT FROM LAST CALL 00915 M00S00675.mac2 +++| SA1 CIDT 00916 M00S00676.mac2 +++| EQ GTD3 RETURN DEVICE INHIBIT DATE AND TIME 00917 M00S00677.mac2 +++| 00918 M00S00678.mac2 +++| GTD1 SX7 B1+ 00919 M00S00679.mac2 +++| SA7 A2+ 00920 M00S00680.mac2 +++| GTD2 BX6 X1
| Line S00681 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00921 M01S00681.ns22000 ---| SA6 CEQN SAVE CURRENT EQUIPMENT NUMBER
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00922 M01S00061.ns22000 +++| SA6 CEQN SAVE EST ORDINAL 00923 M00S00682.mac2 +++| GETDI SFET,X1 00924 M00S00683.mac2 +++| SA1 BUF+MDIT RETURN DEVICE INHIBIT DATE AND TIME 00925 M00S00684.mac2 +++| GTD3 BX6 X1 00926 M00S00685.mac2 +++| SA6 CIDT SAVE CURRENT DEVICE INHIBIT DATE AND TIME 00927 M00S00686.mac2 +++| SA6 X5 00928 M00S00687.mac2 +++| EQ GETDIX RETURN 00929 M00S00688.mac2 +++| 00930 M00S00689.mac2 +++|*CALL COMCSFM 00931 M00S00690.mac2 +++| 00932 M00S00691.mac2 +++| SFET FILEB BUF,BUFL,(FET=10D) FET FOR *SFM* CALL 00933 M00S00692.mac2 +++| BUFL EQU 101B 00934 M00S00693.mac2 +++| BUF BSS BUFL
| Line S00694 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00935 M01S00694.ns22000 ---| CEQN CON 0 CURRENT EQUIPMENT NUMBER
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00936 M01S00062.ns22000 +++| CEQN CON 0 CURRENT EST ORDINAL 00937 M00S00695.mac2 +++| CIDT BSS 1 CURRENT DEVICE INHIBIT DATE AND TIME 00938 M00S00696.mac2 +++| INIT CON 0 INITIAL CALL INDICATOR 00939 M00S00697.mac2 +++| 00940 M00S00698.mac2 +++| END 00941 M00S00699.mac2 +++| IDENT GETFAM 00942 M00S00700.mac2 +++| ENTRY GETFAM 00943 M00S00701.mac2 +++| SST 00944 M00S00702.mac2 +++| EXT RDESTC 00945 M00S00703.mac2 +++| SYSCOM B1 00946 M00S00704.mac2 +++| TITLE GETFAM - SET FAMILY TABLE AND SUBSYSTEM ID. 00947 M00S00705.mac2 +++|*COMMENT SET FAMILY TABLE AND SUBSYSTEM ID.
| Line S00706 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00948 M01S00706.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00949 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00950 M00S00707.mac2 +++| 00951 M00S00708.mac2 +++|*CALL COMCMAC 00952 M00S00709.mac2 +++|
| Line S00710 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00953 M01S00710.ns22000 ---| MSTN EQU DULL-TDGL+1 NUMBER OF *MST* ENTRY WORDS TO READ
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00954 M01S00063.ns22000 +++| MSTN EQU DULL-TDGL+1 NUMBER OF MST ENTRY WORDS TO READ 00955 M00S00711.mac2 +++| GETFAM SPACE 4,25 00956 M00S00712.mac2 +++|*** GETFAM - SET FAMILY TABLE AND SUBSYSTEM ID. 00957 M00S00713.mac2 +++|* 00958 M00S00714.mac2 +++|* GETFAM(FMT,NUM,LNK,DEF,SS); (*SYMPL* CALL) 00959 M00S00715.mac2 +++|*
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00963 M02S00106.242l642 ---|* = 2, *MAS*.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00964 M01S00002.242l642 +++|* = 2, *MSE*.
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00965 M01S00107.v23l617 +++|* 00966 M00S00716.mac2 +++|* EXIT (FMT) = FAMILY TABLE. 00967 M00S00717.mac2 +++|* 42/FM,18/MSTA 00968 M00S00718.mac2 +++|* FM = FAMILY NAME.
| Line S00719 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00969 M01S00719.ns22000 ---|* MSTA = ADDRESS OF *MST* ENTRY.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00970 M01S00064.ns22000 +++|* MSTA = ADDRESS OF MST ENTRY. 00971 M00S00720.mac2 +++|* 00972 M00S00721.mac2 +++|* (NUM) = NUMBER OF ENTRIES IN FAMILY TABLE. 00973 M00S00722.mac2 +++|* (LNK) = LINK INFORMATION. 00974 M00S00723.mac2 +++|* 12/DT,12/0,36/LNKO 00975 M00S00724.mac2 +++|* DT = LINK DEVICE TYPE. 00976 M00S00725.mac2 +++|* LNKO = ORDINAL OF ENTRY IN FAMILY TABLE 00977 M00S00726.mac2 +++|* CONTAINING FAMILY NAME OF LINK DEVICE. 00978 M00S00727.mac2 +++|* (DEF) = ORDINAL OF ENTRY CONTAINING DEFAULT 00979 M00S00728.mac2 +++|* FAMILY NAME. 00980 M00S00729.mac2 +++|* (SS) = SUBSYSTEM IDENTIFIER. 00981 M00S00730.mac2 +++|* 00982 M00S00731.mac2 +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 00983 M00S00732.mac2 +++|* B - 1, 2, 3, 4, 5, 6, 7. 00984 M00S00733.mac2 +++|* X - ALL. 00985 M00S00734.mac2 +++|* 00986 M00S00735.mac2 +++|* CALLS RDESTC. 00987 M00S00736.mac2 +++|* 00988 M00S00737.mac2 +++|* MACROS SYSTEM. 00989 M00S00738.mac2 +++|* 00990 M00S00739.mac2 +++|* NOTES ARRAY *FMT* MUST BE 24 CM WORDS LONG. 00991 M00S00740.mac2 +++| 00992 M00S00741.mac2 +++| 00993 M00S00742.mac2 +++| GETFAM SUBR ENTRY/EXIT 00994 M00S00743.mac2 +++| SB1 1 00995 M00S00744.mac2 +++| SA2 A1+B1 GET ADDRESS OF *NUM* 00996 M00S00745.mac2 +++| SA3 A2+B1 GET ADDRESS OF *LNK*
| Line S00746 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00997 M01S00746.v23l617 ---| SX6 MFSI 00998 M00S00747.mac2 +++| SA4 A3+B1 GET ADDRESS OF *DEF* 00999 M00S00748.mac2 +++| BX7 X1 SAVE ADDRESS OF *FMT* 01000 M00S00749.mac2 +++| SA7 FMTA
| Line S00750 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01001 M01S00750.v23l617 ---| SA5 A4+B1 GET ADDRESS OF *SS* 01002 M00S00751.mac2 +++| BX7 X2 SAVE ADDRESS OF *NUM*
| Line S00752 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01003 M01S00752.v23l617 ---| SA6 X5 01004 M00S00753.mac2 +++| SA7 NUMA 01005 M00S00754.mac2 +++| BX6 X3 SAVE ADDRESS OF *LNK* 01006 M00S00755.mac2 +++| BX7 X4 SAVE ADDRESS OF *DEF* 01007 M00S00756.mac2 +++| SA6 LNKA 01008 M00S00757.mac2 +++| MX6 1 01009 M00S00758.mac2 +++| SA7 DEFA
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00759.mac2 +++| 01018 M00S00760.mac2 +++|* READ WORD *PFNL* IN *CMR*. 01019 M00S00761.mac2 +++| 01020 M00S00762.mac2 +++| SA1 PFNA 01021 M00S00763.mac2 +++| SA6 PFNB 01022 M00S00764.mac2 +++| SYSTEM RSB,R,A1 01023 M00S00765.mac2 +++| 01024 M00S00766.mac2 +++|* READ WORD *MMFL* IN *CMR*. 01025 M00S00767.mac2 +++| 01026 M00S00768.mac2 +++| MX7 1 01027 M00S00769.mac2 +++| SA1 MMFA 01028 M00S00770.mac2 +++| SA7 MMFB 01029 M00S00771.mac2 +++| SYSTEM RSB,R,A1 01030 M00S00772.mac2 +++|
| Line S00773 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01031 M01S00773.ns22000 ---|* READ *EST* FOR MASS STORAGE EQUIPMENT. 01032 M00S00774.mac2 +++|
| Line S00775 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01033 M01S00775.ns22000 ---| SB2 ESTE BUFFER TO RECEIVE *EST* ENTRIES
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01034 M01S00065.ns22000 +++| SB2 ESTB BUFFER TO RECEIVE EST ENTRIES 01035 M00S00776.mac2 +++| SB3 ESTN 01036 M00S00777.mac2 +++| SB4 -B1 READ MASS STORAGE ENTRIES
| Line S00778 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01037 M01S00778.ns22000 ---| RJ RDESTC READ *EST* ENTRIES
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01038 M01S00066.ns22000 +++| RJ =XRDESTC READ EST INTO *ESTB* 01039 M00S00779.mac2 +++| MX0 -12
| Line S00780 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01040 M01S00780.ns22000 ---| SA1 PFNB GET EQ NUMBER OF DEFAULT FAMILY
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01041 M01S00067.ns22000 +++| SA1 PFNB GET DEFAULT FAMILY EST ORDINAL 01042 M00S00781.mac2 +++| LX1 -12 01043 M00S00782.mac2 +++| BX6 -X0*X1 01044 M00S00783.mac2 +++| SB2 X6
| Line S00784 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01045 M01S00784.ns22000 ---| SA1 MMFB GET EQ NUMBER OF LINKED FAMILY 01046 M01S00785.ns22000 ---| MX0 -6
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01047 M01S00068.ns22000 +++| SA1 MMFB GET EST ORDINAL OF LINK FAMILY
| Line S00786 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01048 M01S00786.252l678 ---| LX1 5-41
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01049 M01S00001.252l678 +++| LX1 -36
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | mac21 |
Seq # *Modification Id* Act ----------------------------+ 01050 M01S00001.mac21 +++| MX0 -9 01051 M00S00787.mac2 +++| SA5 ESTN 01052 M00S00788.mac2 +++| BX6 -X0*X1 01053 M00S00789.mac2 +++| SB3 X6+
| Line S00790 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01054 M01S00790.ns22000 ---| SB6 X5 NUMBER OF *EST* ENTRIES
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01055 M01S00069.ns22000 +++| SB6 X5 SET LAST MASS STORAGE ORDINAL + 1
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | mac21 |
M03 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01056 M03S00070.252l678 ---| MX0 -9 01057 M00S00791.mac2 +++| SA5 FMTA GET ADDRESS OF FAMILY TABLE 01058 M00S00792.mac2 +++| SX5 X5-1
| Line S00793 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01059 M01S00793.ns22000 ---| SB4 -B1 INITIALIZE ORDINAL OF *EST* ENTRY
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01060 M01S00071.ns22000 +++| SB4 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 01061 M00S00794.mac2 +++| SB5 B1 INITIALIZE ORDINAL OF FAMILY TABLE 01062 M00S00795.mac2 +++|
| Line S00796 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01063 M01S00796.ns22000 ---|* SEARCH *EST* FOR MASS STORAGE DEVICES.
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01064 M01S00072.ns22000 +++|* SEARCH EST FOR MASS STORAGE DEVICES. 01065 M00S00797.mac2 +++| 01066 M00S00798.mac2 +++| GTF1 SB4 B4+B1
| Line S00799 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01067 M01S00799.ns22000 ---| EQ B4,B6,GTF3 IF END OF *EST* 01068 M01S00800.ns22000 ---| SA1 ESTE+B4 GET NEXT *EST* ENTRY
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00801.mac2 +++| PL X1,GTF1 IF NOT MASS STORAGE DEVICE 01075 M00S00802.mac2 +++| BX6 X1 01076 M00S00803.mac2 +++| LX6 59-54 01077 M00S00804.mac2 +++| NG X6,GTF1 IF DEVICE UNAVAILABLE FOR ACCESS
| Line S00805 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01078 M01S00805.ns22000 ---| RJ RDM READ WORDS *TDGL* TO *DULL* OF *MST*
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01079 M01S00078.ns22000 +++| RJ RDM READ WORDS *TDGL* TO *DULL* OF MST 01080 M00S00806.mac2 +++| SA2 MSTB+ACGL-TDGL 01081 M00S00807.mac2 +++| LX2 59-4 01082 M00S00808.mac2 +++| NG X2,GTF1 IF ERROR IDLE SET ON DEVICE 01083 M00S00809.mac2 +++| SA2 MSTB+MDGL-TDGL 01084 M00S00810.mac2 +++| LX2 59-58 01085 M00S00811.mac2 +++| NG X2,GTF1 IF AUXILIARY DEVICE 01086 M00S00812.mac2 +++| SA2 MSTB+DULL-TDGL 01087 M00S00813.mac2 +++| LX2 59-11 01088 M00S00814.mac2 +++| NG X2,GTF1 IF FAMILY IDLE DOWN FLAG IS SET 01089 M00S00815.mac2 +++| SA2 MSTB+PFGL-TDGL 01090 M00S00816.mac2 +++| MX0 42 01091 M00S00817.mac2 +++| BX1 X0*X2 01092 M00S00818.mac2 +++| 01093 M00S00819.mac2 +++|* CHECK FAMILY TABLE FOR A MATCHING FAMILY NAME. 01094 M00S00820.mac2 +++| 01095 M00S00821.mac2 +++| RJ SFT 01096 M00S00822.mac2 +++| EQ B7,B5,GTF2 IF NO MATCHING FAMILY NAME
| Line S00823 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01097 M01S00823.ns22000 ---| EQ GTF1 PROCESS NEXT *EST* ENTRY
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01098 M01S00079.ns22000 +++| EQ GTF1 PROCESS NEXT EST ENTRY 01099 M00S00824.mac2 +++| 01100 M00S00825.mac2 +++| GTF2 BX6 X1+X3 SET ENTRY IN FAMILY TABLE 01101 M00S00826.mac2 +++| SA6 X5+B5 01102 M00S00827.mac2 +++| SB5 B5+B1
| Line S00828 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01103 M01S00828.ns22000 ---| EQ GTF1 PROCESS NEXT *EST* ENTRY
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01104 M01S00080.ns22000 +++| EQ GTF1 PROCESS NEXT EST ENTRY 01105 M00S00829.mac2 +++| 01106 M00S00830.mac2 +++|* SET ORDINAL OF DEFAULT FAMILY. 01107 M00S00831.mac2 +++|
| Line S00832 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01108 M01S00832.ns22000 ---| GTF3 SA1 ESTE+B2 GET *EST* ENTRY FOR DEFAULT EQUIPMENT
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00833.mac2 +++| RJ RDM 01114 M00S00834.mac2 +++| SA2 MSTB+PFGL-TDGL 01115 M00S00835.mac2 +++| MX0 42 01116 M00S00836.mac2 +++| BX1 X0*X2 01117 M00S00837.mac2 +++| RJ SFT SEARCH FAMILY TABLE FOR DEFAULT FAMILY 01118 M00S00838.mac2 +++| NE B7,B5,GTF4 IF MATCHING FAMILY FOUND 01119 M00S00839.mac2 +++| SB7 B0+ 01120 M00S00840.mac2 +++| GTF4 SX6 B7 SET DEFAULT FAMILY ORDINAL 01121 M00S00841.mac2 +++| SA2 DEFA 01122 M00S00842.mac2 +++| SA6 X2 01123 M00S00843.mac2 +++| 01124 M00S00844.mac2 +++|* SET LINK ORDINAL AND DEVICE TYPE. 01125 M00S00845.mac2 +++| 01126 M00S00846.mac2 +++| SB7 B0+
| Line S00847 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01127 M01S00847.ns22000 ---| ZR B3,GTF5 IF NO LINKED FAMILY 01128 M01S00848.ns22000 ---| SA1 ESTE+B3 GET *EST* FOR LINKED EQUIPMENT
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00849.mac2 +++| MX0 -11 GET LINK DEVICE TYPE 01135 M00S00850.mac2 +++| BX6 X1 01136 M00S00851.mac2 +++| LX6 -12 01137 M00S00852.mac2 +++| BX6 -X0*X6 01138 M00S00853.mac2 +++| SB3 X6 01139 M00S00854.mac2 +++| RJ RDM 01140 M00S00855.mac2 +++| SA2 MSTB+PFGL-TDGL 01141 M00S00856.mac2 +++| MX0 42 01142 M00S00857.mac2 +++| BX1 X0*X2 01143 M00S00858.mac2 +++| RJ SFT SEARCH FAMILY TABLE FOR LINKED FAMILY 01144 M00S00859.mac2 +++| NE B7,B5,GTF5 IF MATCHING FAMILY FOUND 01145 M00S00860.mac2 +++| SB7 B0+ 01146 M00S00861.mac2 +++| GTF5 SX5 B3 SET LINK ORDINAL AND DEVICE TYPE 01147 M00S00862.mac2 +++| SA2 LNKA 01148 M00S00863.mac2 +++| SX6 B7 01149 M00S00864.mac2 +++| LX5 48 01150 M00S00865.mac2 +++| BX6 X5+X6 01151 M00S00866.mac2 +++| SA6 X2 01152 M00S00867.mac2 +++| SX6 B5-B1 SET NUMBER OF ENTRIES IN FAMILY TABLE 01153 M00S00868.mac2 +++| SA1 NUMA 01154 M00S00869.mac2 +++| SA6 X1 01155 M00S00870.mac2 +++| EQ GETFAMX RETURN
| Line S00871 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01156 M01S00871.ns22000 ---| 01157 M00S00872.mac2 +++| RDM SPACE 4,15
| Line S00873 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01158 M01S00873.ns22000 ---|** RDM - READ WORDS *TDGL* TO *DULL* OF *MST* ENTRY.
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01159 M01S00090.ns22000 +++|** RDM - READ WORDS *TDGL* TO *DULL* OF MST ENTRY. 01160 M00S00874.mac2 +++|*
| Line S00875 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01161 M01S00875.ns22000 ---|* ENTRY (X1) = *EST* ENTRY.
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01162 M01S00091.ns22000 +++|* ENTRY (X1) = EST ENTRY. 01163 M00S00876.mac2 +++|*
| Line S00877 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01164 M01S00877.ns22000 ---|* EXIT (X3) = *MST* ADDRESS.
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01165 M01S00092.ns22000 +++|* EXIT (X3) = MST ADDRESS.
| Line S00878 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01166 M01S00878.ns22000 ---|* (MSTA) = *MST* POINTER PARAMETER.
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01167 M01S00093.ns22000 +++|* (MSTA) = MST POINTER PARAMETER. 01168 M00S00879.mac2 +++|* (MSTB) = *MSTN* CONTIGUOUS WORDS STARTING AT *TDGL*
| Line S00880 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01169 M01S00880.ns22000 ---|* OF THE *MST* ENTRY.
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01170 M01S00094.ns22000 +++|* OF THE MST ENTRY. 01171 M00S00881.mac2 +++|* 01172 M00S00882.mac2 +++|* USES A - 6, 7. 01173 M00S00883.mac2 +++|* X - 0, 2, 3, 6, 7. 01174 M00S00884.mac2 +++|* 01175 M00S00885.mac2 +++|* MACROS SYSTEM. 01176 M00S00886.mac2 +++| 01177 M00S00887.mac2 +++| 01178 M00S00888.mac2 +++| RDM SUBR ENTRY/EXIT 01179 M00S00889.mac2 +++| MX0 -12
| Line S00890 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01180 M01S00890.ns22000 ---| BX3 -X0*X1 GET ADDRESS OF *MST* ENTRY
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01181 M01S00095.ns22000 +++| BX3 -X0*X1 GET ADDRESS OF MST ENTRY 01182 M00S00891.mac2 +++| LX3 3
| Line S00892 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01183 M01S00892.ns22000 ---| SX2 X3+TDGL READ WORD *TDGL* OF *MST*
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01184 M01S00096.ns22000 +++| SX2 X3+TDGL READ WORD *TDGL* OF MST 01185 M00S00893.mac2 +++| LX2 35-17 01186 M00S00894.mac2 +++| MX7 1 01187 M00S00895.mac2 +++| SA7 MSTB
| Line S00896 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01188 M01S00896.ns22000 ---| SX7 MSTN NUMBER OF *MST* ENTRY WORDS TO READ
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01189 M01S00097.ns22000 +++| SX7 MSTN NUMBER OF MST ENTRY WORDS TO READ 01190 M00S00897.mac2 +++| LX7 59-23 01191 M00S00898.mac2 +++| BX6 X7+X2 01192 M00S00899.mac2 +++| SX2 MSTB 01193 M00S00900.mac2 +++| BX6 X2+X6 01194 M00S00901.mac2 +++| SA6 MSTA 01195 M00S00902.mac2 +++| SYSTEM RSB,R,A6 01196 M00S00903.mac2 +++| EQ RDMX RETURN
| Line S00904 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01197 M01S00904.ns22000 ---| 01198 M00S00905.mac2 +++| SFT SPACE 4,15 01199 M00S00906.mac2 +++|** SFT - SEARCH FAMILY TABLE FOR A GIVEN FAMILY NAME. 01200 M00S00907.mac2 +++|* 01201 M00S00908.mac2 +++|* ENTRY (X1) = FAMILY NAME (UPPER 42 BITS) TO 01202 M00S00909.mac2 +++|* BE MATCHED. 01203 M00S00910.mac2 +++|* (X5) = FWA - 1 OF FAMILY TABLE. 01204 M00S00911.mac2 +++|* (B5) = ORDINAL OF LAST ENTRY IN FAMILY TABLE + 1. 01205 M00S00912.mac2 +++|* 01206 M00S00913.mac2 +++|* EXIT (B7) = ORDINAL OF MATCHING ENTRY IN FAMILY TABLE. 01207 M00S00914.mac2 +++|* NOTE - (B7) = (B5), IF MATCHING ENTRY IS NOT FOUND. 01208 M00S00915.mac2 +++|* 01209 M00S00916.mac2 +++|* USES A - 2. 01210 M00S00917.mac2 +++|* B - 5, 7. 01211 M00S00918.mac2 +++|* X - 2, 4, 6. 01212 M00S00919.mac2 +++| 01213 M00S00920.mac2 +++| 01214 M00S00921.mac2 +++| SFT SUBR ENTRY/EXIT 01215 M00S00922.mac2 +++| MX0 42 01216 M00S00923.mac2 +++| SB7 B0 01217 M00S00924.mac2 +++| SFT1 SB7 B7+B1 01218 M00S00925.mac2 +++| EQ B7,B5,SFTX IF NO MATCHING FAMILY NAME 01219 M00S00926.mac2 +++| SA2 X5+B7 GET NEXT ENTRY IN FAMILY TABLE 01220 M00S00927.mac2 +++| BX4 X0*X2 01221 M00S00928.mac2 +++| BX6 X4-X1 01222 M00S00929.mac2 +++| ZR X6,SFTX IF MATCHING FAMILY FOUND 01223 M00S00930.mac2 +++| EQ SFT1 CHECK NEXT ENTRY 01224 M00S00931.mac2 +++| 01225 M00S00932.mac2 +++|*CALL COMSSSD 01226 M00S00933.mac2 +++| 01227 M00S00934.mac2 +++| SPACE 4,15 01228 M00S00935.mac2 +++| MMFA VFD 24/1,18/MMFL,18/MMFB *MMFL* POINTER PARAMETER 01229 M00S00936.mac2 +++| PFNA VFD 24/1,18/PFNL,18/PFNB *PFNL* POINTER PARAMETER 01230 M00S00937.mac2 +++| 01231 M00S00938.mac2 +++| DEFA BSS 1 ADDRESS OF DEFAULT FAMILY ORDINAL
| Line S00939 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01232 M01S00939.ns22000 ---| ESTE BSS 100B *EST* BUFFER 01233 M01S00940.ns22000 ---| ESTN BSS 1 NUMBER OF *EST* ENTRIES
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01234 M01S00098.ns22000 +++| ESTB BSS ESMX*ESTE EST BUFFER 01235 M01S00099.ns22000 +++| ESTN BSS 1 LAST MASS STORAGE ORDINAL + 1 01236 M00S00941.mac2 +++| FMTA BSS 1 ADDRESS OF FAMILY TABLE
| Line S00942 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01237 M01S00942.ns22000 ---| LNKA BSS 1 ADDRESS OF LINKED FAMILY ORDINAL
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01238 M01S00100.ns22000 +++| LNKA BSS 1 ADDRESS OF LINK FAMILY ORDINAL 01239 M00S00943.mac2 +++| MMFB BSS 1 *MMFL* WORD IN *CMR*
| Line S00944 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01240 M01S00944.ns22000 ---| MSTA BSS 1 *MST* POINTER PARAMETER WORD
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01241 M01S00101.ns22000 +++| MSTA BSS 1 MST POINTER PARAMETER WORD
| Line S00945 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01242 M01S00945.ns22000 ---| MSTB BSS MSTN *MST* ENTRY BUFFER
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01243 M01S00102.ns22000 +++| MSTB BSS MSTN MST ENTRY BUFFER 01244 M00S00946.mac2 +++| NUMA BSS 1 ADDRESS OF NUMBER OF FAMILY TABLE ENTRIES 01245 M00S00947.mac2 +++| PFNB BSS 1 *PFNL* WORD IN *CMR*
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01252 M02S00121.242l642 ---| CON ASSI AT=2, *MAS*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01253 M01S00003.242l642 +++| CON ASSI AT=2, *MSE* 01254 M00S00948.mac2 +++| 01255 M00S00949.mac2 +++| END 01256 M00S00950.mac2 +++| IDENT GETMI 01257 M00S00951.mac2 +++| ENTRY GETMI 01258 M00S00952.mac2 +++| SST 01259 M00S00953.mac2 +++| SYSCOM B1 01260 M00S00954.mac2 +++| TITLE GETMI - GET MACHINE INFORMATION. 01261 M00S00955.mac2 +++|*COMMENT GET MACHINE INFORMATION.
| Line S00956 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01262 M01S00956.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01263 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01264 M00S00957.mac2 +++| 01265 M00S00958.mac2 +++|*CALL COMCMAC
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01266 M01S00002.252l678 +++|*CALL COMSMMF 01267 M00S00959.mac2 +++| GETMI SPACE 4,20 01268 M00S00960.mac2 +++|*** GETMI - GET MACHINE INFORMATION. 01269 M00S00961.mac2 +++|* 01270 M00S00962.mac2 +++|* GETMI(STATUS,EVENT); (*SYMPL* CALL) 01271 M00S00963.mac2 +++|*
| Line S00964 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01272 M01S00964.v23l617 ---|* EXIT STATUS = MACHINE INFORMATION. 01273 M01S00965.v23l617 ---|* 1/EXI,1/MFI,4/,12/MID,39/,3/MFID 01274 M00S00966.mac2 +++|* EXIT (STATUS) = MACHINE INFORMATION.
| Line S00967 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01275 M01S00967.v23l617 ---|* 1/EXI,1/MFI,55/,3/MFID 01276 M01S00968.v23l617 ---|* EXI = 0, MASTER EXEC. 01277 M01S00969.v23l617 ---|* = 1, SLAVE EXEC.
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01278 M01S00122.v23l617 +++|* 1/MSX,1/MFI,1/ASX,3/,12/ MID,39/,3/MFID
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/mac2.txt · Last modified: by 127.0.0.1