Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.msi +++| IDENT MSI,ORIG
00002 M00S00002.msi +++| ABS
00003 M00S00003.msi +++| SST
00004 M00S00004.msi +++| ENTRY MSI
00005 M00S00005.msi +++| ENTRY FLAW
00006 M00S00006.msi +++| ENTRY RFL=
00007 M00S00007.msi +++| ENTRY SSJ=
00008 M00S00008.msi +++| ENTRY UTL=
00009 M00S00009.msi +++| SYSCOM B1
00010 M00S00010.msi +++|*COMMENT MSI - MASS STORAGE DEVICE INITIALIZATION.
Line S00011 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00011 M01S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00013 M00S00012.msi +++| TITLE MSI - MASS STORAGE DEVICE INITIALIZATION.
00014 M00S00013.msi +++| SPACE 4
00015 M00S00014.msi +++|*** MSI - MASS STORAGE DEVICE INITIALIZATION.
00016 M00S00015.msi +++|* D. A. HIVELEY. 72/09/27.
00017 M00S00016.msi +++|* S.L. BETH. 73/01/23.
00018 M00S00017.msi +++| SPACE 4
00019 M00S00018.msi +++|*** MSI - MASS STORAGE DEVICE INITIALIZATION.
00020 M00S00019.msi +++|*
00021 M00S00020.msi +++|* THE FOLLOWING PARAMETERS MAY BE ENTERED VIA
00022 M00S00021.msi +++|* THE K-DISPLAY.
00023 M00S00022.msi +++|*
00024 M00S00023.msi +++|* FM = FAMILY NAME / PACK NAME (DEPENDS ON *TY* VALUE).
00025 M00S00024.msi +++|* PN = FAMILY NAME / PACK NAME (DEPENDS ON *TY* VALUE).
00026 M00S00025.msi +++|* UN = USER NAME (FOR PRIVATE AUXILIARY PACK ONLY).
00027 M00S00026.msi +++|* DM = DEVICE MASK.
00028 M00S00027.msi +++|* SM = SECONDARY MASK.
00029 M00S00028.msi +++|* NC = NUMBER OF CATALOG TRACKS.
00030 M00S00029.msi +++|* NP = NUMBER OF PACKS.
00031 M00S00030.msi +++|* DN = DEVICE NUMBER.
00032 M00S00031.msi +++|* TY = TYPE
00033 M00S00032.msi +++|* F = FAMILY DEVICE.
00034 M00S00033.msi +++|* X = AUXILIARY DEVICE.
00035 M00S00034.msi +++|* LA = LOWER BOUND ACCESS LEVEL.
00036 M00S00035.msi +++|* UA = UPPER BOUND ACCESS LEVEL.
00037 M00S00036.msi +++|*
00038 M00S00037.msi +++|* ENTER XX=0. TO CLEAR ANY OF THE ENTRIES LISTED ABOVE.
00039 M00S00038.msi +++|* ENTER XX=NULL. TO CLEAR THE FIELD IN THE MST (UN ONLY).
00040 M00S00039.msi +++|*
00041 M00S00040.msi +++|* EQ = EST ORDINAL. THIS OPTION IS ONLY VALID FOR *FLAW*
00042 M00S00041.msi +++|* PROCESSING.
00043 M00S00042.msi +++|*
00044 M00S00043.msi +++|* NOTE IT IS NECESSARY TO USE THE DSD/EQPDECK *INITIALIZE*
00045 M00S00044.msi +++|* ENTRY TO SELECT DEVICES AND OPTIONS TO BE INITIALIZED.
00046 M00S00045.msi +++|* DEVICE CHARACTERISTICS CAN ONLY BE CHANGED DURING
00047 M00S00046.msi +++|* *AL*, *FT*, OR *HT* INITIALIZATION. IF THE *FP*
00048 M00S00047.msi +++|* OPTION IS SELECTED, INITIALIZATION WAITS FOR THE
00049 M00S00048.msi +++|* DEVICE TO BE FORMATTED.
00050 M00S00049.msi +++|*
00051 M00S00050.msi +++|* THE FOLLOWING FLAW DIRECTIVES CAN ONLY BE ENTERED VIA
00052 M00S00051.msi +++|* THE K-DISPLAY.
00053 M00S00052.msi +++|*
00054 M00S00053.msi +++|* SLF = SET LOGICAL TRACK FLAW ON *EQ*.
00055 M00S00054.msi +++|* CLF = CLEAR LOGICAL TRACK FLAW ON *EQ*.
00056 M00S00055.msi +++|* SPF = SET PHYSICAL TRACK FLAW ON *EQ*.
00057 M00S00056.msi +++|* CPF = CLEAR PHYSICAL TRACK FLAW ON *EQ*.
00058 M00S00057.msi +++|*
00059 M00S00058.msi +++|* DEFAULT VALUES ARE -
00060 M00S00059.msi +++|*
00061 M00S00060.msi +++|* FM = NO NAME NC = (DEVICE DEPENDENT - SEE *COMSMSP*)
00062 M00S00061.msi +++|* UN = NO NAME EQ = 0
00063 M00S00062.msi +++|* DM = 0 NP = 0
00064 M00S00063.msi +++|* TY = 0 DN = 1
00065 M00S00064.msi +++|* LA = VALUE CONTAINED IN EST.
00066 M00S00065.msi +++|* UA = VALUE CONTAINED IN EST.
00067 M00S00066.msi +++|*
00068 M00S00067.msi +++|* ********************
00069 M00S00068.msi +++|*
00070 M00S00069.msi +++|* IT SHOULD BE NOTED THAT MSI INITIALIZES WITH THE NEW
00071 M00S00070.msi +++|* PARAMETER INPUT. THEREFORE IF A FAMILY MASK OR DEVICE
00072 M00S00071.msi +++|* NUMBER IS CHANGED THE RESULTANT EDIT OF THE OTHER DEVICES
00073 M00S00072.msi +++|* IN THE FAMILY MAY MISS SOME FILES LEAVING THE SPACE
00074 M00S00073.msi +++|* RESERVED BUT WITH NO CATALOG ENTRIES POINTING TO THE FILES.
00075 M00S00074.msi +++|* TO AVOID THIS SITUATION, FIRST PERFORM AN INITIALIZE OF THE
00076 M00S00075.msi +++|* DEVICE WITH ITS OLD PARAMETERS TO CLEAN UP THE FAMILY,
00077 M00S00076.msi +++|* THEN REINITIALIZE WITH THE NEW PARAMETERS.
00078 M00S00077.msi +++|*
00079 M00S00078.msi +++|* ********************
00080 M00S00079.msi +++|*
00081 M00S00080.msi +++|*
00082 M00S00081.msi +++|*
00083 M00S00082.msi +++|* THE *FM* PARAMETER WILL BE CONSIDERED A PACK NAME IF THE
00084 M00S00083.msi +++|* DEVICE IS AN AUXILIARY DEVICE (*TY=X*).
00085 M00S00084.msi +++|*
00086 M00S00085.msi +++|* BEFORE ENTERING PARAMETERS CHECK THE K DISPLAY FOR
00087 M00S00086.msi +++|* THE LIST OF EQUIPMENTS TO BE INITIALIZED, IF THE LIST
00088 M00S00087.msi +++|* IS NOT COMPLETE ENTER THE INITIALIZE REQUESTS FOR THE
00089 M00S00088.msi +++|* OTHER EQUIPMENTS AND ENTER *RERUN* TO UPDATE MSI.
00090 M00S00089.msi +++|*
00091 M00S00090.msi +++|* THE DEVICE WHICH IS TO BE INITIALIZED MUST FULFILL
00092 M00S00091.msi +++|* CERTAIN REQUIRMENTS. IF THE DEVICE IS AVAILABLE AND/OR
00093 M00S00092.msi +++|* HAS NO LABEL ERROR STATUS, IT MUST BE THE FIRST EQUIPMENT IN
00094 M00S00093.msi +++|* THE CHAIN. *MSI* WILL NOT ALLOW A CHAINED EQUIPMENT TO BE
00095 M00S00094.msi +++|* SPLIT IN THE MIDDLE OF THE CHAIN (SUCH AS INITIALIZING THE
00096 M00S00095.msi +++|* THIRD UNIT IN A FOUR DEVICE CHAIN). DEVICES WHICH ARE TO BE
00097 M00S00096.msi +++|* CHAINED TOGETHER AND ARE AVAILABLE AND/OR HAVE RECOVERED
00098 M00S00097.msi +++|* LABELS, MUST HAVE THE INITIALIZE REQUESTS SET FOR EACH
00099 M00S00098.msi +++|* EST ORDINAL IN THE CHAIN.
00100 M00S00099.msi +++|*
00101 M00S00100.msi +++|* THE INPUT TO THE FLAW ROUTINE IS CONSIDERED OCTAL
00102 M00S00101.msi +++|* UNLESS THE DIGITS 8 OR 9 APPEAR IN THE NUMBER, OR
00103 M00S00102.msi +++|* THE RADIX SYMBOL *D* IS APPENDED TO THE NUMBER.
00104 M00S00103.msi +++| SPACE 4
00105 M00S00104.msi +++|*** DAYFILE MESSAGES.
00106 M00S00105.msi +++|*
00107 M00S00106.msi +++|* * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
00108 M00S00107.msi +++|*
00109 M00S00108.msi +++|* * EQXXX, INACTIVE QUEUES INITIALIZED.*
00110 M00S00109.msi +++|*
00111 M00S00110.msi +++|* * EQXXX, UNABLE TO INITIALIZE IQFT.*
00112 M00S00111.msi +++|*
00113 M00S00112.msi +++|* * USER ACCESS NOT VALID.*
00114 M00S00113.msi +++|*
00115 M00S00114.msi +++|* * INTERNAL ERROR IN MSI.*
00116 M00S00115.msi +++|*
00117 M00S00116.msi +++|* * IQFT FILE INTERLOCKED.*
00118 M00S00117.msi +++|*
00119 M00S00118.msi +++|* * LINK DEVICE CANNOT BE ALTERED.*
00120 M00S00119.msi +++|*
00121 M00S00120.msi +++|* * MSI ABORTED INITIALIZE MAY NOT BE COMPLETE.*
00122 M00S00121.msi +++|*
00123 M00S00122.msi +++|* * NO INITIALIZE REQUESTS SET FOR MSI.*
00124 M00S00123.msi +++|*
00125 M00S00124.msi +++|* * NO IQFT FILE FOUND.*
00126 M00S00125.msi +++|*
00127 M00S00126.msi +++|* * UNABLE TO READ IQFT FILE.*
Line S00001 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00128 M01S00001.253l688 +++|*
00129 M01S00002.253l688 +++|* * MSI HUNG.*
00130 M00S00127.msi +++| SPACE 4
00131 M00S00128.msi +++|*** OPERATOR MESSAGES.
00132 M00S00129.msi +++|*
00133 M00S00130.msi +++|* *ENTER OLD PACK NAME* THIS INPUT MUST MATCH THE
00134 M00S00131.msi +++|* OLD PACKNAME TO CONTINUE.
00135 M00S00132.msi +++|*
00136 M00S00133.msi +++|* *ENTER OLD FAMILY NAME* MUST BE ENTERED TO CONTINUE.
00137 M00S00134.msi +++|*
00138 M00S00135.msi +++|* *ENTER OLD USER NAME.* MUST BE ENTERED TO CONTINUE.
00139 M00S00136.msi +++|*
00140 M00S00137.msi +++|* *ENTER OLD DEVICE NUMBER* MUST BE ENTERED TO CONTINUE.
00141 M00S00138.msi +++|*
00142 M00S00139.msi +++|* *ENTER EST ORDINAL.* ENTER THE EST ORDINAL OF THE DEVICE
00143 M00S00140.msi +++|* TO BE FLAWED OR INITIALIZED. THIS IS THE ONLY INPUT
00144 M00S00141.msi +++|* WHICH WILL BE ACCEPTED AT THIS POINT.
00145 M00S00142.msi +++|*
00146 M00S00143.msi +++|* *ENTER PARAMETERS* ENTER ANY LEGAL PARAMETERS, THEN
00147 M00S00144.msi +++|* ENTER *GO* TO PROCESS THE PARAMETERS.
00148 M00S00145.msi +++|*
00149 M00S00146.msi +++|* *ENTER FLAWS* ENTER ALL FLAWS FOR THE CURRENT EQUIPMENT,
00150 M00S00147.msi +++|* ENTER *GO* TO PROCESS THE FLAWS. FLAWS MAY ALSO
00151 M00S00148.msi +++|* BE ENTERED DURING AN INITIALIZE RUN.
00152 M00S00149.msi +++|*
00153 M00S00150.msi +++|* *ENTER IDENTITY OF EQXXX.* THE CURRENT DEVICE IS GOING TO
00154 M00S00151.msi +++|* BE CHAINED TO ANOTHER DEVICE. TO VERIFY ITS
00155 M00S00152.msi +++|* AVAILABILITY ENTER ITS (PACKNAME AND USER NAME),
00156 M00S00153.msi +++|* (PACKNAME), (FAMILY NAME) OR (FAMILY NAME AND
00157 M00S00154.msi +++|* DEVICE NUMBER) THE ORDER OF ENTRY IS NOT IMPORTANT.
00158 M00S00155.msi +++|* THE ID ENTRIES MUST BE MADE TO CONTINUE PROCESSING.
00159 M00S00156.msi +++|*
00160 M00S00157.msi +++|* *END OF RUN* MSI COMPLETED REQUESTED FUNCTIONS.
00161 M00S00158.msi +++|*
00162 M00S00159.msi +++|* *ENTER CLEAR OR RERUN.* MSI WILL ONLY ACCEPT THE COMMANDS
00163 M00S00160.msi +++|* *CLEAR* AND *RERUN* AT THIS TIME.
00164 M00S00161.msi +++|*
00165 M00S00162.msi +++| SPACE 4
00166 M00S00163.msi +++|*** OPERATOR ERROR MESSAGES.
00167 M00S00164.msi +++|*
00168 M00S00165.msi +++|* *UN MUST BE SPECIFIED.* DEVICE IS FLAGGED AS PRIVATE
00169 M00S00166.msi +++|* THE USER NAME MUST BE SPECIFIED OR THE
00170 M00S00167.msi +++|* PACK NAME CLEARED.
00171 M00S00168.msi +++|*
00172 M00S00169.msi +++|* *NC IS NOT A POWER OF 2.* THE NUMBER OF CATALOG TRACKS
00173 M00S00170.msi +++|* MUST BE A POWER OF 2. CORRECT AND ENTER *GO*.
00174 M00S00171.msi +++|*
00175 M00S00172.msi +++|* *FAMILY MASK NOT EQUAL TO 377.* THE DEVICE MASK FOR THE
00176 M00S00173.msi +++|* FAMILY DOES NOT EQUAL 377B, CORRECT AND ENTER
00177 M00S00174.msi +++|* *GO* OR ENTER *GO* TO OVERRIDE. THIS IS THE ONLY
00178 M00S00175.msi +++|* INPUT ACCEPTED AT THIS TIME.
00179 M00S00176.msi +++|*
00180 M00S00177.msi +++|* *EQ OR DN INCORRECT.* EST ORDINAL TOO BIG, DEVICE SPECIFIED
00181 M00S00178.msi +++|* IS NOT MASS STORAGE, OR DEVICE NUMBER .GT. 77B WAS
00182 M00S00179.msi +++|* SPECIFIED. CORRECT AND ENTER *GO.*.
00183 M00S00180.msi +++|*
00184 M00S00181.msi +++|* *EQXXX, NO FULL TRACK ACCESS.* INDICATES AN ATTEMPT TO
00185 M00S00182.msi +++|* INITIALIZE WITH *OP=FT* AND NO FULL TRACK ACCESS
00186 M00S00183.msi +++|* EXISTS. ENTER *CLEAR* TO CLEAR THE INITIALIZE REQUEST
00187 M00S00184.msi +++|* OR *GO* TO INITIALIZE AS A HALF TRACK DEVICE.
00188 M00S00185.msi +++|*
00189 M00S00186.msi +++|* *INCORRECT ENTRY.* INPUT NOT ALLOWED - INCORRECT FORMAT OF
00190 M00S00187.msi +++|* INPUT LINE OR MODIFICATION OF A TRACK RESERVED FOR
00191 M00S00188.msi +++|* HARDWARE TESTING WAS ATTEMPTED.
00192 M00S00189.msi +++|*
00193 M00S00190.msi +++|* *FM OR PN MUST BE SPECIFIED.* ENTER THE REQUIRED
00194 M00S00191.msi +++|* PARAMETER AND ENTER *GO*.
00195 M00S00192.msi +++|*
00196 M00S00193.msi +++|* *NP GREATER THAN 8.* ENTER CORRECT NUMBER OF PACKS THEN
00197 M00S00194.msi +++|* ENTER *GO*.
00198 M00S00195.msi +++|*
00199 M00S00196.msi +++|* *DUPLICATE PN.* ANOTHER PACK IN THE SYSTEM HAS THE SAME
00200 M00S00197.msi +++|* NAME. CHANGE THE PACKNAM OR REMOVE THE OTHER
00201 M00S00198.msi +++|* DEVICE FROM THE SYSTEM (IF THIS IS DONE *CMS* MUST
00202 M00S00199.msi +++|* RUN TO UPDATE THE MST TABLES).
00203 M00S00200.msi +++|*
00204 M00S00201.msi +++|* *NC EXCEEDS 200B.* THE NUMBER OF CATALOG TRACKS EXCEEDS
00205 M00S00202.msi +++|* 200B. CORRECT AND ENTER *GO*.
00206 M00S00203.msi +++|*
00207 M00S00204.msi +++|* *CANNOT ALLOCATE DEVICE.* CANNOT ALLOCATE A MULTI-SPINDLE
00208 M00S00205.msi +++|* DEVICE, NOT ENOUGH SPARE EQUIPMENT OR SPARES
00209 M00S00206.msi +++|* NOT UP AND ALLOCATABLE OR AN ATEMPT WAS MADE TO
00210 M00S00207.msi +++|* ALLOCATE A NONREMOVABLE DEVICE. DECREASE THE PACK
00211 M00S00208.msi +++|* COUNT AND ENTER *GO* OR ENTER *CLEAR* TO VOID MSI RUN.
00212 M00S00209.msi +++|*
00213 M00S00210.msi +++|* *NOT AUXILIARY PACK.* ATTEMPT TO MAKE A PRIVATE PACK OUT
00214 M00S00211.msi +++|* OF A NONAUXILIARY DEVICE. CORRECT AND ENTER *GO*.
00215 M00S00212.msi +++|*
00216 M00S00213.msi +++|* *DUPLICATE DN.* DEVICE NUMBER MATCHES ANOTHER IN THE
00217 M00S00214.msi +++|* FAMILY CORRECT AND ENTER *GO* OR OVERRIDE BY
00218 M00S00215.msi +++|* ENTERING *GO*. THIS IS THE ONLY INPUT ACCEPTED AT
00219 M00S00216.msi +++|* THIS TIME. THE OVERRIDE IS ONLY ALLOWED IF THE
00220 M00S00217.msi +++|* CONFLICTING DEVICE HAS THE FULL INITIALIZE STATUS SET.
00221 M00S00218.msi +++|*
00222 M00S00219.msi +++|* *DEVICE NOT REMOVABLE.* A NONREMOVABLE DEVICE WAS
00223 M00S00220.msi +++|* SELECTED FOR CHAINING IN A MULTIPACK STRING.
00224 M00S00221.msi +++|* ENTER *CLEAR* TO VOID THE MSI RUN.
00225 M00S00222.msi +++|*
00226 M00S00223.msi +++|* *NP NOT ALLOWED.* THE EQUIPMENT IS NOT A PACK TYPE
00227 M00S00224.msi +++|* DEVICE. CORRECT AND ENTER *GO*.
00228 M00S00225.msi +++|*
00229 M00S00226.msi +++|* *DUPLICATE BITS IN MASK.* THE MASK FOR THE FAMILY HAS
00230 M00S00227.msi +++|* DUPLICATE BITS SET, THIS DESTROYS THE INTEGRITY OF
00231 M00S00228.msi +++|* THE PF SYSTEM BY CREATING AN AMBIGUOUS MAPING OF THE
00232 M00S00229.msi +++|* USER INDEX. CORRECT AND ENTER *GO* OR ENTER *GO* TO
00233 M00S00230.msi +++|* OVERRIDE. THIS IS THE ONLY INPUT ACCEPTED AT THIS
00234 M00S00231.msi +++|* TIME. THE OVERRIDE IS ONLY ALLOWED IF THE CONFLICTING
00235 M00S00232.msi +++|* DEVICE HAS THE FULL INITIALIZE STATUS SET.
00236 M00S00233.msi +++|*
00237 M00S00234.msi +++|* *DEVICE NOT FIRST IN CHAIN.* TO PREVENT DESTROYING THE
00238 M00S00235.msi +++|* INTEGRITY OF A LINKED DEVICE INITIALIZATION WILL ONLY
00239 M00S00236.msi +++|* TAKE PLACE ON AN AVAILABLE DEVICE IF IT IS THE FIRST
00240 M00S00237.msi +++|* DEVICE IN THE CHAIN. THE ONLY INPUT ACCEPTED AT THIS
00241 M00S00238.msi +++|* TIME IS *RERUN* OR *CLEAR*.
00242 M00S00239.msi +++|*
00243 M00S00240.msi +++|* *EQXXX, INITIALIZE BIT NOT SET.* EQXXX IS AVAILABLE AND HAS
00244 M00S00241.msi +++|* A GOOD LABEL, IT CANNOT BE LINKED TO ANOTHER EQUIPMENT
00245 M00S00242.msi +++|* UNLESS THE TOTAL INITIALIZE REQUEST IS SET. ENTER DSD
00246 M00S00243.msi +++|* COMMAND *INITIALIZE,AL,XXX.*, THEN ENTER *K.RERUN.* TO
00247 M00S00244.msi +++|* UPDATE THE STATUS OF MSI, OR ENTER *CLEAR*
00248 M00S00245.msi +++|* TO VOID THE MSI RUN.
00249 M00S00246.msi +++|*
00250 M00S00247.msi +++|* *DN CANNOT BE ZERO.* A (DN = 0) WAS ENTERED TO CLEAR A
00251 M00S00248.msi +++|* DUPLICATE DEVICE NUMBER ERROR. THE DN CANNOT BE ZERO
00252 M00S00249.msi +++|* FOR A FAMILY TYPE DEVICE. ENTER A NONZERO VALUE
00253 M00S00250.msi +++|* TO CONTINUE OR ENTER *GO* TO OVERRIDE THE ERROR.
00254 M00S00251.msi +++|*
00255 M00S00252.msi +++|* *EQXXX, FORMAT PENDING.* EQXXX HAS THE FORMAT PENDING BIT
00256 M00S00253.msi +++|* SET AND CANNOT BE PROCESSED UNTIL FORMATTING IS
00257 M00S00254.msi +++|* COMPLETE.
00258 M00S00255.msi +++|*
00259 M00S00256.msi +++|* *DEADSTART INITIALIZE REQUIRED.* THE PENDING INITIALIZE IS
00260 M00S00257.msi +++|* FOR A NONREMOVABLE DEVICE WITH ERROR IDLE OR A LABEL
00261 M00S00258.msi +++|* ERROR STATUS. THIS ERROR STATUS REQUIRES A DEADSTART
00262 M00S00259.msi +++|* INITIALIZE.
00263 M00S00260.msi +++|*
00264 M00S00261.msi +++|* *DEFINED DEVICE ALREADY EXISTS.* THE DEVICE AS DEFINED
00265 M00S00262.msi +++|* ALREADY EXISTS IN THE MULTI-MAINFRAME ENVIRONMENT.
00266 M00S00263.msi +++|* IF THIS IS AN AUXILIARY DEVICE CHANGE THE PACKNAME
00267 M00S00264.msi +++|* OR REMOVE THE OTHER PACK FROM THE COMPLEX. IF A
00268 M00S00265.msi +++|* FAMILY DEVICE CHANGE THE DEVICE NUMBER TO A UNIQUE
00269 M00S00266.msi +++|* VALUE FOR THIS FAMILY.
00270 M00S00267.msi +++|*
00271 M00S00268.msi +++|* *FULL INITIALIZE REQUIRED.* THE PENDING INITIALIZE IS FOR
00272 M00S00269.msi +++|* A DEVICE WITH AN ERROR STATUS SET. THIS DEVICE MUST
00273 M00S00270.msi +++|* BE INITIALIZED WITH A FULL INITIALIZE REQUEST.
00274 M00S00271.msi +++|*
00275 M00S00272.msi +++|* *EQXXX, TRACK LIMIT.* INSUFFICIENT SPACE ON THE DEVICE TO
00276 M00S00273.msi +++|* COMPLETE THE INITIALIZATION. FREE UP SPACE AND ENTER
00277 M00S00274.msi +++|* *RERUN* OR ENTER *CLEAR*. IF THIS ERROR OCCURS
00278 M00S00275.msi +++|* DURING DEADSTART, REDEADSTART AND CHECK EQUIPMENT
00279 M00S00276.msi +++|* USAGE IN THE *CMRDECK*.
00280 M00S00277.msi +++|*
00281 M00S00278.msi +++|* *UA NOT WITHIN LIMIT.* THE UPPER BOUND ACCESS LEVEL
00282 M00S00279.msi +++|* EXCEEDS THAT CONTAINED IN THE EST. CORRECT AND
00283 M00S00280.msi +++|* ENTER *GO*.
00284 M00S00281.msi +++|*
00285 M00S00282.msi +++|* *LA NOT WITHIN LIMIT.* THE LOWER BOUND ACCESS LEVEL
00286 M00S00283.msi +++|* IS SMALLER THAN THAT CONTAINED IN THE EST. CORRECT
00287 M00S00284.msi +++|* AND ENTER *GO*.
00288 M00S00285.msi +++|*
00289 M00S00286.msi +++|* *LA GREATER THAN UA.* THE LOWER ACCESS LEVEL LIMIT
00290 M00S00287.msi +++|* IS GREATER THAN THE UPPER LIMIT. CORRECT AND
00291 M00S00288.msi +++|* ENTER *GO*.
00292 M00S00289.msi +++|*
00293 M00S00290.msi +++|* *UNKNOWN ACCESS LEVEL NAME.* THE ACCESS LEVEL NAME
00294 M00S00291.msi +++|* ENTERED IS INCORRECT. CORRECT AND ENTER *GO*.
00295 M00S00292.msi +++|*
00296 M00S00293.msi +++|* TO HALT PROCESSING ON THE CURRENT EQUIPMENT ENTER *CLEAR*
00297 M00S00294.msi +++|* THE CURRENT INITIALIZE REQUEST WILL BE CLEARED AND MSI WILL
00298 M00S00295.msi +++|* ADVANCE TO THE NEXT DEVICE WITH AN INITIALIZE REQUEST UP.
00299 M00S00296.msi +++|*
00300 M00S00297.msi +++|* TO CLEAR ALL PARAMETER INPUT WITHOUT CLEARING THE INITIALIZE
00301 M00S00298.msi +++|* REQUEST ENTER *RERUN*.
00302 M00S00299.msi +++| TITLE MACROS.
00303 M00S00300.msi +++|*CALL COMCMAC
00304 M00S00301.msi +++|*CALL COMCDCM
00305 M00S00302.msi +++| CLEAR SPACE 4
00306 M00S00303.msi +++|** CLEAR - CLEAR STORAGE.
00307 M00S00304.msi +++|*
00308 M00S00305.msi +++|* CLEAR FWA,COUNT,MASK
00309 M00S00306.msi +++|*
00310 M00S00307.msi +++|* IF *MASK* IS *X7* IT IS ASSUMED THAT (X7) = 0.
00311 M00S00308.msi +++|
00312 M00S00309.msi +++|
00313 M00S00310.msi +++| PURGMAC CLEAR
00314 M00S00311.msi +++| CLEAR MACRO L,C,M
00315 M00S00312.msi +++| LOCAL A
00316 M00S00313.msi +++| MACREF CLEAR
00317 M00S00314.msi +++| IFNE M,X7,1
00318 M00S00315.msi +++| MX7 0
00319 M00S00316.msi +++| R= B2,L
00320 M00S00317.msi +++| R= B3,L+C
00321 M00S00318.msi +++| A SA7 B2
00322 M00S00319.msi +++| SB2 B2+B1
00323 M00S00320.msi +++| NE B2,B3,A
00324 M00S00321.msi +++| ENDM
00325 M00S00322.msi +++| ERROR SPACE 4
00326 M00S00323.msi +++|** ERROR - DISPLAY KEYBOARD ERROR MESSAGE.
00327 M00S00324.msi +++|*
00328 M00S00325.msi +++|* ERROR NUMBER
00329 M00S00326.msi +++|
00330 M00S00327.msi +++|
00331 M00S00328.msi +++| PURGMAC ERROR
00332 M00S00329.msi +++| ERROR MACRO N
00333 M00S00330.msi +++| MACREF ERROR
00334 M00S00331.msi +++| .N MICRO 1,,*N*
00335 M00S00332.msi +++| SA1 ERROR".N"
00336 M00S00333.msi +++| RJ MTW
00337 M00S00334.msi +++| ENDM
00338 M00S00335.msi +++| SPACE 4
00339 M00S00336.msi +++|** KEYMES - DISPLAY KEYBOARD MESSAGE.
00340 M00S00337.msi +++|*
00341 M00S00338.msi +++|* KEYMES MES
00342 M00S00339.msi +++|
00343 M00S00340.msi +++|
00344 M00S00341.msi +++| PURGMAC KEYMES
00345 M00S00342.msi +++| MACREF KEYMES
00346 M00S00343.msi +++| KEYMES MACRO N
00347 M00S00344.msi +++| SA1 N
00348 M00S00345.msi +++| RJ MTW
00349 M00S00346.msi +++| ENDM
00350 M00S00347.msi +++| SPACE 4,10
00351 M00S00348.msi +++|** COMMON DECKS.
00352 M00S00349.msi +++|
00353 M00S00350.msi +++|
00354 M00S00351.msi +++|*CALL COMSDSL
00355 M00S00352.msi +++|*CALL COMSDSP
00356 M00S00353.msi +++|*CALL COMSESS
00357 M00S00354.msi +++|*CALL COMSIOQ
00358 M00S00355.msi +++|*CALL COMSLSD
00359 M00S00356.msi +++|*CALL COMSMLS
Line S00357 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
00360 M01S00357.253l688 ---|*CALL COMSMSI
Line S00003 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00361 M01S00003.253l688 +++| LIST X
00362 M01S00004.253l688 +++|*CALL COMSMSI
00363 M01S00005.253l688 +++| LIST *
00364 M00S00358.msi +++|*CALL COMSMSP
00365 M00S00359.msi +++|*CALL COMSMST
00366 M00S00360.msi +++|*CALL COMSPFM
00367 M00S00361.msi +++|*CALL COMSPRD
Line S00362 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
00368 M01S00362.286l859 ---|*CALL COMSPFS
00369 M00S00363.msi +++| QUAL PFU
00370 M00S00364.msi +++|*CALL COMSPFU
00371 M00S00365.msi +++| QUAL *
00372 M00S00366.msi +++| CTCT EQU /PFU/CTCT
00373 M00S00367.msi +++| CTCU EQU /PFU/CTCU
00374 M00S00368.msi +++| CTLM EQU /PFU/CTLM
00375 M00S00369.msi +++| CTOP EQU /PFU/CTOP
00376 M00S00370.msi +++| CTSU EQU /PFU/CTSU
00377 M00S00371.msi +++| FTCA EQU /PFU/FTCA
00378 M00S00372.msi +++| FTPM EQU /PFU/FTPM
00379 M00S00373.msi +++| FTSC EQU /PFU/FTSC
00380 M00S00374.msi +++|*CALL COMSSFM
Line S00006 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00381 M01S00006.253l688 +++|*CALL COMSSSD
00382 M00S00375.msi +++|*CALL COMSSSJ
00383 M00S00376.msi +++| TITLE ASSEMBLY CONSTANTS.
Line S00377 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
00384 M01S00377.253l688 ---|
00385 M01S00378.253l688 ---|* EQUATES FOR IMS FUNCTIONS.
00386 M01S00379.253l688 ---|
00387 M01S00380.253l688 ---|
00388 M01S00381.253l688 ---|
00389 M01S00382.253l688 ---| IND EQU 0100B INITIALIZE DEVICE
00390 M01S00383.253l688 ---| EDT EQU 0200B EDIT DA FILES ON DEVICE
00391 M01S00384.253l688 ---| SFL EQU 0300B SET FLAWS ON DEVICE
00392 M01S00385.253l688 ---| CSD EQU 0400B CHECK SHARED DEVICE
00393 M01S00386.253l688 ---| ILA EQU 0500B INITIALIZE LOCAL AREAS
00394 M01S00387.253l688 ---| MMS EQU 0600B MODIFY MASS STORAGE TABLES
00395 M01S00388.253l688 ---| CIN EQU 0700B CLEAR INITIALIZE BIT
00396 M01S00389.253l688 ---| IDF EQU 1000B INITIALIZE DAYFILES
00397 M01S00390.253l688 ---| CIT EQU 1100B CLEAR CMS INTERLOCK
00398 M01S00391.253l688 ---| ISD EQU 1200B INTERLOCK INDEPENDENT SHARED DEVICE
00399 M01S00392.253l688 ---|
Line S00007 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00400 M01S00007.253l688 +++| SPACE 4,5
00401 M00S00393.msi +++|* TABLE AND BUFFER SIZES.
00402 M00S00394.msi +++|
00403 M00S00395.msi +++| PKLL EQU 10B LENGTH OF PACK LINK TABLE
00404 M00S00396.msi +++| CATBL EQU 1011B CATALOG BUFFER LENGTH
00405 M00S00397.msi +++| SCRBL EQU 201B SCRATCH BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
00406 M01S00001.286l859 +++| PARAML EQU 40B PARAMETER AREA LENGTH
00407 M00S00398.msi +++| TITLE DISPLAY BUFFER LINE NUMBER TABLES.
00408 M00S00399.msi +++| SPACE 4
00409 M00S00400.msi +++| TITLE PARAMETER HOLD AREA.
00410 M00S00401.msi +++| ORG 106B
00411 M00S00402.msi +++| ORIG BSS 1 COMMAND NAME (FOR *UPC*)
Line S00403 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
00412 M01S00403.286l859 ---| PAR BSS /COMSPFS/PARAML PARAMETER AREA
Line S00002 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
00413 M01S00002.286l859 +++| PAR BSS PARAML PARAMETER AREA
00414 M00S00404.msi +++| SPACE 4
00415 M00S00405.msi +++|* OPTION TABLE.
00416 M00S00406.msi +++|
00417 M00S00407.msi +++| OTBL EQU *
00418 M00S00408.msi +++| LOC 0
00419 M00S00409.msi +++| PMFN BSS 1 FAMILY NAME
00420 M00S00410.msi +++| PMUN BSS 1 USER NAME
00421 M00S00411.msi +++| PMID BSS 1 ID ENTRY
00422 M00S00412.msi +++| BSS 1
00423 M00S00413.msi +++| PMTY BSS 1 TYPE ENTRY
00424 M00S00414.msi +++| PMLA BSS 1 LOWER ACCESS LEVEL
00425 M00S00415.msi +++| PMUA BSS 1 UPPER ACCESS LEVEL
00426 M00S00416.msi +++| NNME EQU *-PMFN
00427 M00S00417.msi +++| PMDM BSS 1 DEVICE MASK
00428 M00S00418.msi +++| PMSM BSS 1 SECONDARY MASK
00429 M00S00419.msi +++| PMNC BSS 1 NUMBER CATALOG TRACKS
00430 M00S00420.msi +++| PMNP BSS 1 NUMBER OF PACKS
00431 M00S00421.msi +++| PMDN BSS 1 DEVICE NUMBER
00432 M00S00422.msi +++| PMEQ BSS 1 EST ORDINAL
00433 M00S00423.msi +++| PMOP BSS 1 OPTION
00434 M00S00424.msi +++| PMXX BSS 1 GARBAGE INPUT
00435 M00S00425.msi +++| NOCT EQU *-PMDM
00436 M00S00426.msi +++| LOC *O
00437 M00S00427.msi +++| OTBLL EQU *-OTBL OPTION TABLE LENGTH
00438 M00S00428.msi +++| ORG OTBL
00439 M00S00429.msi +++| SPACE 4
00440 M00S00430.msi +++|* TENP - TABLE OF ENTERED PARAMETERS.
00441 M00S00431.msi +++|
00442 M00S00432.msi +++|
00443 M00S00433.msi +++| TENP BSS 0
00444 M00S00434.msi +++| BSS OTBLL
00445 M00S00435.msi +++| SPACE 4
00446 M00S00436.msi +++|* PARC - TABLE OF CONVERTED PARAMETERS.
00447 M00S00437.msi +++|
00448 M00S00438.msi +++|
00449 M00S00439.msi +++| PARC BSS 0 42/FN,18/0
00450 M00S00440.msi +++| BSSZ OTBLL 42/UI,18/0
00451 M00S00441.msi +++| 42/ID,18/0
00452 M00S00442.msi +++| 42/ID,18/0
00453 M00S00443.msi +++| 06/TY,54/0
00454 M00S00444.msi +++| 42/LA,18/0
00455 M00S00445.msi +++| 42/UA,18/0
00456 M00S00446.msi +++| 52/0,8/DM
00457 M00S00447.msi +++| 52/0,8/SM
00458 M00S00448.msi +++| 57/0,3/NC
00459 M00S00449.msi +++| 57/0,3/NP
00460 M00S00450.msi +++| 54/0,6/DN
00461 M00S00451.msi +++| 54/0,6/EQ
00462 M00S00452.msi +++| 57/0,3/OP
00463 M00S00453.msi +++| 60/TRASH
00464 M00S00454.msi +++| SPACE 4
00465 M00S00455.msi +++|* TARG - ARGUMENT TABLE.
00466 M00S00456.msi +++|
00467 M00S00457.msi +++|
00468 M00S00458.msi +++| TARG BSS 0
00469 M00S00459.msi +++| FM ARG DARG,(TENP+PMFN),400B
00470 M00S00460.msi +++| PN ARG DARG,(TENP+PMFN),400B
00471 M00S00461.msi +++| UN ARG DARG,(TENP+PMUN),400B
00472 M00S00462.msi +++| TY ARG DARG,(TENP+PMTY),400B
00473 M00S00463.msi +++| ENLA BSS 0
00474 M00S00464.msi +++| LA ARG DARG,(TENP+PMLA),400B
00475 M00S00465.msi +++| ENUA BSS 0
00476 M00S00466.msi +++| UA ARG DARG,(TENP+PMUA),400B
00477 M00S00467.msi +++| DM ARG DARG,(TENP+PMDM),400B
00478 M00S00468.msi +++| SM ARG DARG,(TENP+PMSM),400B
00479 M00S00469.msi +++| NC ARG DARG,(TENP+PMNC),400B
00480 M00S00470.msi +++| NP ARG DARG,(TENP+PMNP),400B
00481 M00S00471.msi +++| DN ARG DARG,(TENP+PMDN),400B
00482 M00S00472.msi +++| DARG BSSZ 1 DEFAULT ENTRY
00483 M00S00473.msi +++| ENDP BSS 0
00484 M00S00474.msi +++| OP ARG DARG,(TENP+PMOP),400B
00485 M00S00475.msi +++| BSSZ 1
00486 M00S00476.msi +++| ENEQ BSS 0
00487 M00S00477.msi +++| EQ ARG DARG,(TENP+PMEQ),400B
00488 M00S00478.msi +++| BSSZ 1
00489 M00S00479.msi +++| ENMS BSS 0
00490 M00S00480.msi +++| DM ARG DARG,(TENP+PMDM),400B
00491 M00S00481.msi +++| NC ARG DARG,(TENP+PMNC),400B
00492 M00S00482.msi +++| BSSZ 1
00493 M00S00483.msi +++| ENDN BSS 0
00494 M00S00484.msi +++| DN ARG DARG,(TENP+PMDN),400B
00495 M00S00485.msi +++| BSSZ 1
00496 M00S00486.msi +++| EIDS BSS 0
00497 M00S00487.msi +++| FM ARG DARG,(TENP+PMID),400B
00498 M00S00488.msi +++| PN ARG DARG,(TENP+PMID),400B
00499 M00S00489.msi +++| UN ARG DARG,(TENP+PMID+1),400B
00500 M00S00490.msi +++| DN ARG DARG,(TENP+PMID+1),400B
00501 M00S00491.msi +++| BSSZ 1
00502 M00S00492.msi +++| HNGP BSS 0
00503 M00S00493.msi +++| XX ARG DARG,(TENP+PMXX),400B
00504 M00S00494.msi +++| BSSZ 1
00505 M00S00495.msi +++| DATB SPACE 4,10
00506 M00S00496.msi +++|* DATB - DISPLAY ADDRESS TABLE.
00507 M00S00497.msi +++|
00508 M00S00498.msi +++|
00509 M00S00499.msi +++| DATB BSS 0 DISPLAY ADDRESS TABLE
00510 M00S00500.msi +++| CON FNDS+1
00511 M00S00501.msi +++| CON UNDS+1
00512 M00S00502.msi +++| CON SCRB
00513 M00S00503.msi +++| CON SCRB
00514 M00S00504.msi +++| CON TYDS+1
00515 M00S00505.msi +++| CON LADS+1
00516 M00S00506.msi +++| CON UADS+1
00517 M00S00507.msi +++| CON DMDS+1
00518 M00S00508.msi +++| CON SMDS+1
00519 M00S00509.msi +++| CON NCDS+1
00520 M00S00510.msi +++| CON NPDS+1
00521 M00S00511.msi +++| CON DNDS+1
00522 M00S00512.msi +++| CON EQDS+1
00523 M00S00513.msi +++| CON SCRB
00524 M00S00514.msi +++| CON SCRB
00525 M00S00515.msi +++| DAST CON LTDS+1 LEFT SCREEN ADDRESS
00526 M00S00516.msi +++| DASM CON LTDS+3 MATCH ADDRESS FOR TRT
00527 M00S00517.msi +++| SPACE 4
00528 M00S00518.msi +++| FETS SPACE 4,10
00529 M00S00519.msi +++|* FETS.
00530 M00S00520.msi +++|
00531 M00S00521.msi +++|
00532 M00S00522.msi +++| QFET FILEB CATB,CATBL,EPR,FET=8 *QFM* FET
00533 M00S00523.msi +++| CATS FILEB CATB,CATBL,FET=10 *PFU* FET
00534 M00S00524.msi +++| UIFT FILEB 0,0,FET=10 *PFU* UTILITY INTERLOCK FET
Line S00008 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00535 M01S00008.253l688 +++| OUTPUT FILEC 0,0 *ABT* PROCESSOR OUTPUT FET
00536 M00S00525.msi +++| FLAGS SPACE 4
00537 M00S00526.msi +++|* FLAGS (CLEARED BY *PRS*).
00538 M00S00527.msi +++|
00539 M00S00528.msi +++| FLGS EQU * FWA OF FLAG BLOCK
00540 M00S00529.msi +++| TEMP BSS 1 TEMPORARY CELL
00541 M00S00530.msi +++| FLAG BSS 1 FLAGS NO PARAMETER INPUT NEEDED
00542 M00S00531.msi +++| PVT BSS 1 FLAGS DEVICE IS PRIVATE PACK
00543 M00S00532.msi +++| DSI BSS 1 FLAG DEADSTART INITIALIZE
00544 M00S00533.msi +++| TOTL BSS 1 FLAG TOTAL INITIALIZE (NEGATIVE)
00545 M00S00534.msi +++| PALF BSS 1 PACKS ALLOCATED FLAG 12/EQ NUMBER
00546 M00S00535.msi +++| CNT BSS 1 PARAMETER COUNT/ CATALOG TRACK COUNT
00547 M00S00536.msi +++| LCRC BSS 1 LOW CORE READ CONTROL WORD
00548 M00S00537.msi +++| BUFI BSS 1 INDEX TO MST RECORDS IN BUFFER
00549 M00S00538.msi +++| ARGP BSS 1 POINTER TO CURRENT ARGUMENT TABLE
00550 M00S00539.msi +++| PFUF BSS 1 FLAG *PFU* ACTIVE
00551 M00S00540.msi +++| UIFL BSS 1 UTILITY INTERLOCK FLAG (PFU)
00552 M00S00541.msi +++| LINK BSS 1 LINK EST ORDINAL
00553 M00S00542.msi +++| CLF BSS 1 FLAG *CLEAR* REQUEST ENTERED
00554 M00S00543.msi +++| CLOV BSS 1 *CLEAR* OVERRIDE EST ORDINAL
00555 M00S00544.msi +++| SSFL BSS 1 SECURE SYSTEM FLAG
Line S00009 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00556 M01S00009.253l688 +++| SSID CON MSSI SUBSYSTEM ID
00557 M00S00545.msi +++| FLGSL EQU *-FLGS LENGTH OF FLAG BLOCK
00558 M00S00546.msi +++| SPACE 4
00559 M00S00547.msi +++|** TEMPORARY CELLS.
00560 M00S00548.msi +++|
00561 M00S00549.msi +++|
00562 M00S00550.msi +++| EQ CON 0 EST ORDINAL (DISPLAY CODE)
00563 M00S00551.msi +++| RQ CON 0 INITIALIZE REQUESTS PROCESSED
00564 M00S00552.msi +++|
00565 M00S00553.msi +++|* FLAW FLAG.
00566 M00S00554.msi +++|
00567 M00S00555.msi +++| FLFG CON 0 IF SET, FLAW PROCESSING
00568 M00S00556.msi +++| TITLE MAIN LOOP.
00569 M00S00557.msi +++|** MSI - MAIN PROGRAM.
00570 M00S00558.msi +++|
00571 M00S00559.msi +++|
00572 M00S00560.msi +++| MSI SB1 1
Line S00561 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
00573 M01S00561.253l688 ---| EREXIT ABT SET ABORT PROCESSOR ADDRESS
Line S00010 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00574 M01S00010.253l688 +++| EREXIT ABT1 SET ABORT PROCESSOR ADDRESS
00575 M00S00562.msi +++| BX6 X6-X6 CLEAR FLAW FLAG
00576 M00S00563.msi +++| SA6 FLFG
00577 M00S00564.msi +++| MSI1 RJ PRS PRESET
00578 M00S00565.msi +++| RJ CIR CHECK INITIALIZATION REQUESTED
00579 M00S00566.msi +++| SA1 RQ
00580 M00S00567.msi +++| PL B6,MSI3 IF INITIALIZATION REQUESTED
00581 M00S00568.msi +++| NZ X1,MSI2 IF AT LEAST ONE REQUEST PROCESSED
00582 M00S00569.msi +++| MESSAGE MESC * NO INITIALIZE REQUESTS SET FOR MSI.*
00583 M00S00570.msi +++| MSI2 KEYMES EDRN *END OF RUN.*
00584 M00S00571.msi +++| SYSTEM IMS,R,,CIT CLEAR *CMS* INTERLOCK
00585 M00S00572.msi +++| EXCST =C*CMS.* CALL *CMS* TO UPDATE SYSTEM CONFIGURATION
00586 M00S00573.msi +++| ENDRUN
00587 M00S00574.msi +++|
00588 M00S00575.msi +++|* IF EQUIPMENT AVAILABLE AND NOT DEADSTART STATUS OR
00589 M00S00576.msi +++|* IF EQUIPMENT UNAVAILABLE AND IF THE LABEL WAS RECOVERED,
00590 M00S00577.msi +++|* REQUEST THE VERIFICATION OF THE DEVICES PARAMETERS AND COPY
00591 M00S00578.msi +++|* THE INFORMATION TO THE K DISPLAY. OTHERWISE GO REQUEST INPUT
00592 M00S00579.msi +++|* OF THE NEW PARAMETERS.
00593 M00S00580.msi +++|
00594 M00S00581.msi +++| MSI3 SX6 X1+B1 INCREMENT REQUESTS PROCESSED
00595 M00S00582.msi +++| SA6 A1
00596 M00S00583.msi +++| RJ DSP DISPLAY EQUIPMENTS TO BE PROCESSED
00597 M00S00584.msi +++| RJ DIO DISPLAY INITIALIZE OPTIONS
00598 M00S00585.msi +++| SA5 PARC+PMEQ
00599 M00S00586.msi +++| R= X1,ESTE
00600 M00S00587.msi +++| IX1 X5*X1
00601 M00S00588.msi +++| SA1 ESTB+X1+EQDE GET EST ENTRY
00602 M00S00589.msi +++| SX7 TARG
00603 M00S00590.msi +++| SA4 ESTF+X5
00604 M00S00591.msi +++| SA7 ARGP
00605 M00S00592.msi +++| SA3 X4+STLL
00606 M00S00593.msi +++| MX6 6
00607 M00S00594.msi +++| LX6 -18
00608 M00S00595.msi +++| BX7 -X6*X3 CLEAR ERROR STATUS
00609 M00S00596.msi +++| LX1 59-54
00610 M00S00597.msi +++| SA7 X4+STLL
00611 M00S00598.msi +++| BX3 X6*X3
00612 M00S00599.msi +++| LX7 59-LIAL
00613 M00S00600.msi +++| SA2 X4+PFGL
00614 M00S00601.msi +++| NG X7,MSI4.1 IF DEADSTART INITIALIZE
00615 M00S00602.msi +++| LX3 24
00616 M00S00603.msi +++| AX2 12
00617 M00S00604.msi +++| ZR X3,MSI5 IF NO ERROR STATUS
00618 M00S00605.msi +++| SA4 TOTL
00619 M00S00606.msi +++| NG X4,MSI4 IF FULL INITIALIZE
00620 M00S00607.msi +++| ERROR 25 *FULL INITIALIZE REQUIRED.*
00621 M00S00608.msi +++| EQ MSI6 HALT PROCESSING ON CURRENT DEVICE
00622 M00S00609.msi +++|
00623 M00S00610.msi +++| MSI4 NZ X2,MSI7 IF RECOVERED LABEL
00624 M00S00611.msi +++| SX6 X3-STLE
00625 M00S00612.msi +++| NZ X6,MSI4.1 IF NOT LABEL ERROR
00626 M00S00613.msi +++| LX1 54-56
00627 M00S00614.msi +++| PL X1,MSI7.1 IF NOT REMOVABLE DEVICE
00628 M00S00615.msi +++| RJ SAL SET ACCESS LEVEL DEFAULTS
00629 M00S00616.msi +++| EQ MSI10 PROCESS KEYBOARD INPUT
00630 M00S00617.msi +++|
00631 M00S00618.msi +++| MSI4.1 NG X1,MSI5 IF EQUIPMENT UNAVAILABLE
00632 M00S00619.msi +++|
00633 M00S00620.msi +++|* IF INITIALIZE SET, DEVICE AVAILABLE AND DEADSTART STATUS,
00634 M00S00621.msi +++|* INITIALIZE AND DO NOT STOP FOR OPERATOR INTERVENTION.
00635 M00S00622.msi +++|
00636 M00S00623.msi +++| MX6 1
00637 M00S00624.msi +++| BX7 X7-X7
00638 M00S00625.msi +++| SA6 DSI FLAG DEADSTART INITIALIZE
00639 M00S00626.msi +++| EQ MSI9 DEADSTART INITIALIZE (COPY PARAMETERS)
00640 M00S00627.msi +++|
00641 M00S00628.msi +++| MSI5 SA4 ESTF+X5
00642 M00S00629.msi +++| SA3 X4+PFGL
00643 M00S00630.msi +++| MX1 -3
00644 M00S00631.msi +++| AX3 3
00645 M00S00632.msi +++| BX1 -X1*X3
00646 M00S00633.msi +++| BX6 -X5
00647 M00S00634.msi +++| ZR X1,MSI7 IF ONE OF M
00648 M00S00635.msi +++| SA6 CLOV SET OVERRIDE *CLEAR* INDICATOR
00649 M00S00636.msi +++| ERROR 18 *DEVICE NOT FIRST IN CHAIN.*
00650 M00S00637.msi +++| MSI6 SX6 HNGP
00651 M00S00638.msi +++| SX7 7777B
00652 M00S00639.msi +++| SA6 ARGP
00653 M00S00640.msi +++| SA7 CNT
00654 M00S00641.msi +++| RJ PKI STOP FURTHER PROCESSING
00655 M00S00642.msi +++| KEYMES ENCL *ENTER CLEAR OR RERUN.*
00656 M00S00643.msi +++| EQ MSI6 LOOP
00657 M00S00644.msi +++|
00658 M00S00645.msi +++| MSI7 SA4 ESTF+X5 CHECK STATUS OF DEVICE
00659 M00S00646.msi +++| SA1 X4+DULL
00660 M00S00647.msi +++| SA2 X4+ACGL
00661 M00S00648.msi +++| SA3 X4+MDGL
00662 M00S00649.msi +++| SA4 X4+STLL
00663 M00S00650.msi +++| NG X3,MSI8 IF DEVICE REMOVABLE
00664 M00S00651.msi +++| LX2 59-4
00665 M00S00652.msi +++| PL X2,MSI8 IF ERROR IDLE NOT SET
00666 M00S00653.msi +++| MSI7.1 ERROR 24 *DEADSTART INITIALIZE REQUIRED.*
00667 M00S00654.msi +++| EQ MSI6 STOP PROCESSING
00668 M00S00655.msi +++|
00669 M00S00656.msi +++| MSI8 MX3 -12
00670 M00S00657.msi +++| LX4 -12
00671 M00S00658.msi +++| BX7 -X3*X4
00672 M00S00659.msi +++| MX3 -11
00673 M00S00660.msi +++| BX1 -X3*X1
00674 M00S00661.msi +++| MX0 18
00675 M00S00662.msi +++| LX4 59-LIPF+12
00676 M00S00663.msi +++| BX7 X7+X1
00677 M00S00664.msi +++| SA2 CLF CHECK *CLEAR* FLAG
00678 M00S00665.msi +++| ZR X7,MSI9 IF NO ACTIVE FILES/USERS
00679 M00S00666.msi +++| NZ X2,CLEAR IF *CLEAR* FLAG SET
00680 M00S00667.msi +++| PL X4,MSI9 IF NOT INITIALIZING PF,S
00681 M00S00668.msi +++| LX0 -18
00682 M00S00669.msi +++| SA4 EQ
00683 M00S00670.msi +++| LX4 42-18
00684 M00S00671.msi +++| SA1 MESA
00685 M00S00672.msi +++| BX7 -X0*X1
00686 M00S00673.msi +++| BX7 X7+X4
00687 M00S00674.msi +++| SA7 A1
00688 M00S00675.msi +++| MESSAGE MESA * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
Line S00676 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
00689 M01S00676.253l688 ---| EQ ABT ABORT *MSI*
Line S00011 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00690 M01S00011.253l688 +++| RJ ABT ABORT *MSI*
00691 M00S00677.msi +++|
00692 M00S00678.msi +++| MSI9 SA7 CLF CLEAR *CLEAR* FLAG
00693 M00S00679.msi +++| RJ CPY COPY PARAMETERS TO K-DISPLAY
00694 M00S00680.msi +++| SX6 B1 ALLOW FLAW ENTRIES TO NOW BE MADE
00695 M00S00681.msi +++| SA6 CFEB
00696 M00S00682.msi +++| SA1 DSI
00697 M00S00683.msi +++| SA2 TOTL
00698 M00S00684.msi +++| MI X1,MSI12 IF DEADSTART INITIALIZE
00699 M00S00685.msi +++| PL X2,MSI12 IF NOT TOTAL INITIALIZE
00700 M00S00686.msi +++| MSI10 SX7 200
00701 M00S00687.msi +++| SA7 CNT
00702 M00S00688.msi +++| KEYMES REQPM *ENTER PARAMETERS.*
00703 M00S00689.msi +++| MSI11 RJ PKI PROCESS KEYBOARD INPUT
00704 M00S00690.msi +++| MSI12 RJ PPM PROCESS PARAMETERS
00705 M00S00691.msi +++| ZR X7,MSI11 IF MORE INPUT NEEDED
00706 M00S00692.msi +++| RJ CRE CHECK REQUIRED ENTRIES
00707 M00S00693.msi +++| ZR X6,MSI12 IF PARAMETERS TO PROCESS
00708 M00S00694.msi +++| SA4 TOTL
00709 M00S00695.msi +++| SA5 PARC+PMEQ
00710 M00S00696.msi +++| NG X4,MSI12.1 IF TOTAL INITIALIZE
00711 M00S00697.msi +++| SA4 X5+ESTF
00712 M00S00698.msi +++| SA4 X4+STLL
00713 M00S00699.msi +++| LX4 59-LIPF
00714 M00S00700.msi +++| PL X4,MSI14.1 IF NOT *PF* INITIALIZE
00715 M00S00701.msi +++| MSI12.1 BSS 0
00716 M00S00702.msi +++| RJ UMS UPDATE MSTS
00717 M00S00703.msi +++| ZR X1,MSI13 IF DEVICE ALLOWED
00718 M00S00704.msi +++| KEYMES ERROR22 *DEFINED DEVICE ALREADY EXISTS.*
00719 M00S00705.msi +++| EQ MSI11 PROCESS NEW INPUT
00720 M00S00706.msi +++|
00721 M00S00707.msi +++| MSI13 RJ EDF SEPARATE FAMILY FROM OTHER EQUIPMENTS
00722 M00S00708.msi +++| SA1 ESTF+B7
00723 M00S00709.msi +++| SA4 X1+MDGL
00724 M00S00710.msi +++| LX4 59-58
00725 M00S00711.msi +++| NG X4,MSI14 IF AUXILIARY DEVICE
00726 M00S00712.msi +++| RJ CMS CHECK MASKS
00727 M00S00713.msi +++| MI X7,MSI12 PROCESS NEW PARAMETERS
00728 M00S00714.msi +++| SA5 PARC+PMEQ
00729 M00S00715.msi +++| SA1 ESTF+X5
00730 M00S00716.msi +++| LX1 59-54
00731 M00S00717.msi +++| NG X1,MSI14 IF DEVICE UNAVAILABLE
00732 M00S00718.msi +++| RJ ECT EDIT CATALOGS
00733 M00S00719.msi +++| RJ EDD EDIT DIRECT ACCESS FILES IN FAMILY
00734 M00S00720.msi +++| MSI14 SA5 PARC+PMEQ
00735 M00S00721.msi +++| SYSTEM IMS,R,X5,IND INITIALIZE PERMANENT FILES
00736 M00S00722.msi +++| MSI14.1 RJ ISF INITIALIZE SPECIAL FILES
00737 M00S00723.msi +++| SA1 FLAI
00738 M00S00724.msi +++| SX1 X1-TFLA
00739 M00S00725.msi +++| ZR X1,CLEAR IF NO FLAWS
00740 M00S00726.msi +++| SA1 TFLA
00741 M00S00727.msi +++| BX2 X5
00742 M00S00728.msi +++| LX2 59-35
00743 M00S00729.msi +++| BX7 X2+X1 SET EQ NUMBER IN FLAW TABLE
00744 M00S00730.msi +++| SA7 A1 RESET TABLE WITH EQ NUMBER ADDED
00745 M00S00731.msi +++| SYSTEM IMS,R,TFLA,SFL SET FLAWS
00746 M00S00732.msi +++|
00747 M00S00733.msi +++|* CHECK FOR MORE DEVICES TO BE INITIALIZED.
00748 M00S00734.msi +++|
00749 M00S00735.msi +++| CLEAR BSS 0 CLEAR INITIALIZE REQUEST
00750 M00S00736.msi +++| SA5 PARC+PMEQ
00751 M00S00737.msi +++| SA4 CLOV CHECK OVERRIDE ON THIS EQUIPMENT
00752 M00S00738.msi +++| SA2 PKL-1
00753 M00S00739.msi +++| SA1 ESTF+X5
00754 M00S00740.msi +++| SA1 X1+STLL
00755 M00S00741.msi +++| SX6 B1
00756 M00S00742.msi +++| PL X4,MSI15 IF OVERRIDE NOT SET
00757 M00S00743.msi +++| IX6 X5+X4 CHECK EQUIPMENT
00758 M00S00744.msi +++| MSI15 MX3 60-LIRP CLEAR CURRENT INITIALIZE REQUESTS
00759 M00S00745.msi +++| BX1 -X3*X1
00760 M00S00746.msi +++| MX3 48-LIMF
00761 M00S00747.msi +++| LX3 48
00762 M00S00748.msi +++| BX7 -X3*X1
00763 M00S00749.msi +++| SA7 A1
00764 M00S00750.msi +++| SA1 CLF CHECK FOR CLEAR OPERATION
00765 M00S00751.msi +++| ZR X1,MSI16 IF NOT *CLEAR*
00766 M00S00752.msi +++| ZR X6,MSI16 IF OVERRIDE SET FOR THIS EST ORDINAL
00767 M00S00753.msi +++| RJ EDF SEPARATE THE FAMILY FROM OTHER DEVICES
00768 M00S00754.msi +++| RJ CMS CHECK MASKS
00769 M00S00755.msi +++| MI X7,MSI PROCESS NEW DATA AS A RERUN
00770 M00S00756.msi +++| SA2 PKL-1
00771 M00S00757.msi +++| SA5 PARC+PMEQ
00772 M00S00758.msi +++| MSI16 ZR X5,MSI17 IF EST ORDINAL ZERO
00773 M00S00759.msi +++| SB5 X5 SAVE EST ORDINAL
00774 M00S00760.msi +++| SYSTEM IMS,R,X5,CIN CLEAR CURRENT INITIALIZE REQUEST
00775 M00S00761.msi +++| SA2 A2+B1
00776 M00S00762.msi +++| SX5 X2
00777 M00S00763.msi +++| NZ X5,MSI16 IF LINKED PACKS CLEAR THEIR INITIALIZE
00778 M00S00764.msi +++| REQUESTS.
00779 M00S00765.msi +++| SA1 ESTF+B5 CHECK *ISD* INTERLOCK
00780 M00S00766.msi +++| LX1 59-58
00781 M00S00767.msi +++| PL X1,MSI17 IF NO INTERLOCK SET
00782 M00S00768.msi +++| MSI16.1 SA2 PARC+PMEQ
00783 M00S00769.msi +++| BX6 X2
00784 M00S00770.msi +++| LX6 48
00785 M00S00771.msi +++| SA6 CIRB
00786 M00S00772.msi +++| SYSTEM IMS,R,CIRB,ISD CLEAR DEVICE INTERLOCK
00787 M00S00773.msi +++| SA1 CIRB
00788 M00S00774.msi +++| PL X1,MSI16.1 IF INTERLOCK NOT CLEAR
00789 M00S00775.msi +++| MSI17 RJ CDS CLEAR THE DISPLAY
00790 M00S00776.msi +++| EQ MSI1 LOOP FOR MORE EQUIPMENTS
00791 M00S00777.msi +++|
00792 M00S00778.msi +++| TITLE AUXILIARY PROCESSORS.
00793 M00S00779.msi +++| RERUN SPACE 4,10
00794 M00S00780.msi +++|** RERUN - RERUN *MSI*.
00795 M00S00781.msi +++|
00796 M00S00782.msi +++|
00797 M00S00783.msi +++| RERUN RJ CDS CLEAR DISPLAY
00798 M00S00784.msi +++| SA1 RERNA LOAD RERUN ADDRESS
00799 M00S00785.msi +++| SB2 X1
00800 M00S00786.msi +++| JP B2 RERUN THE SELECTED OPTION
00801 M00S00787.msi +++|
00802 M00S00788.msi +++| RERNA VFD 42/0,18/MSI2
00803 M00S00789.msi +++| TKL SPACE 4,10
00804 M00S00790.msi +++|** TKL - TRACK LIMIT PROCESSING.
00805 M00S00791.msi +++|
00806 M00S00792.msi +++|
00807 M00S00793.msi +++|
00808 M00S00794.msi +++| TKL SA1 PARC+PMEQ SET EST ORDINAL IN TRACK LIMIT MESSAGE
00809 M00S00795.msi +++| RJ COD
00810 M00S00796.msi +++| SA4 ERROR26
00811 M00S00797.msi +++| MX7 -18
00812 M00S00798.msi +++| LX6 48-18
00813 M00S00799.msi +++| LX7 48-18
00814 M00S00800.msi +++| BX6 -X7*X6
00815 M00S00801.msi +++| BX7 X7*X4
00816 M00S00802.msi +++| BX6 X6+X7
00817 M00S00803.msi +++| SA6 A4
00818 M00S00804.msi +++| ERROR 26 *EQXXX, TRACK LIMIT.*
00819 M00S00805.msi +++| EQ MSI6 STOP PROCESSING
00820 M00S00806.msi +++| SPACE 4
00821 M00S00807.msi +++|*** FLAW - ENTER DEVICE FLAWS.
00822 M00S00808.msi +++|
00823 M00S00809.msi +++|
00824 M00S00810.msi +++| FLAW SX6 FLAW SET RERUN ADDRESS
00825 M00S00811.msi +++| SA6 RERNA
00826 M00S00812.msi +++| SB1 1
00827 M00S00813.msi +++| SX6 B1+ SET FLAW FLAG
00828 M00S00814.msi +++| SA6 FLFG
00829 M00S00815.msi +++| RJ PRS
00830 M00S00816.msi +++| MX6 60 SET OVERRIDE CONTROL
00831 M00S00817.msi +++| SA6 CLOV
00832 M00S00818.msi +++| SETRNR NOROLL PREVENT JOB ROLLOUT
00833 M00S00819.msi +++| SA5 LRDS SET UP DISPLAY CONTROL WORD
00834 M00S00820.msi +++| BX7 X5
00835 M00S00821.msi +++| SA7 KDCW
00836 M00S00822.msi +++| SA5 BLK CLEAR PAGE 2 OF 2 COMMENT
00837 M00S00823.msi +++| BX7 X5
00838 M00S00824.msi +++| SA7 LNDS+3
00839 M00S00825.msi +++| SA5 FLAA
00840 M00S00826.msi +++| BX7 X5
00841 M00S00827.msi +++| SA7 LNDS+4
00842 M00S00828.msi +++| SA5 FLAB
00843 M00S00829.msi +++| BX7 X5
00844 M00S00830.msi +++| SA7 L
00845 M00S00831.msi +++| SA7 R
00846 M00S00832.msi +++| RJ REQ REQUEST EQUIPMENT
00847 M00S00833.msi +++| SA1 PARC+PMEQ
00848 M00S00834.msi +++| BX6 -X1
00849 M00S00835.msi +++| SA6 CLOV SET OVERRIDE CONTROL FOR THIS EQUIPMENT
00850 M00S00836.msi +++| RJ COD
00851 M00S00837.msi +++| SX6 B1 ALLOW FLAW ENTRIES TO NOW BE MADE
00852 M00S00838.msi +++| SA6 CFEB
00853 M00S00839.msi +++| BX6 X4
00854 M00S00840.msi +++| SA6 INDS+1 SET EST ORDINAL
00855 M00S00841.msi +++| KEYMES ENFLS *ENTER FLAWS.*
00856 M00S00842.msi +++| RJ PKI PROCESS KEYBOARD
00857 M00S00843.msi +++| SA1 PARC+PMEQ
00858 M00S00844.msi +++| SA2 TFLA
00859 M00S00845.msi +++| LX1 59-35
00860 M00S00846.msi +++| BX7 X1+X2 SET EQ NUMBER IN TABLE
00861 M00S00847.msi +++| SA7 TFLA
00862 M00S00848.msi +++| SYSTEM IMS,R,A7,SFL
00863 M00S00849.msi +++| ENDRUN
00864 M00S00850.msi +++|
00865 M00S00851.msi +++| FLAA DATA 1L
00866 M00S00852.msi +++| FLAB VFD 18/0,18/KDTA,24/0 DISPLAY CONTROL WORD
00867 M00S00853.msi +++| FLAI CON TFLA
00868 M00S00854.msi +++| SPACE 4,10
00869 M00S00855.msi +++|** FLAW TABLE FOR *IMS* CALL.
00870 M00S00856.msi +++|*
00871 M00S00857.msi +++|*T WORD1 12/ TYPE, 12/ 0, 12/ EQ, 12/ 0, 12/ TRACK
Figure
WORD1
0 11 12 23 24 29 TRACK 0 EQ 30 35 36 47 48 59 EQ 0 TYPE
00872 M00S00858.msi +++|*T,WORD2-N 12/ TYPE, 12/ 0, 12/ 0, 12/ 0, 12/ TRACK
Figure
WORD2-N
0 11 12 23 24 29 TRACK 0 0 30 35 36 47 48 59 0 0 TYPE
00873 M00S00859.msi +++|*
00874 M00S00860.msi +++|* EQ = EST ORDINAL
00875 M00S00861.msi +++|* TYPE = 0 - END TABLE
00876 M00S00862.msi +++|* 1 - SET FLAW
00877 M00S00863.msi +++|* 2 - CLEAR FLAW
00878 M00S00864.msi +++|* TRACK = LOGICAL TRACK TO FLAW
00879 M00S00865.msi +++|
00880 M00S00866.msi +++|
00881 M00S00867.msi +++| TFLA BSSZ PNFE FLAW TABLE
00882 M00S00868.msi +++| TITLE MAJOR PROCESSORS.
00883 M00S00869.msi +++| REQ SPACE 4,10
00884 M00S00870.msi +++|** REQ - REQUEST EST ORDINAL.
00885 M00S00871.msi +++|*
00886 M00S00872.msi +++|* EXIT (PARC+PMEQ) = EST ORDINAL.
00887 M00S00873.msi +++|*
00888 M00S00874.msi +++|* USES X - 1, 2, 4, 5, 6, 7.
00889 M00S00875.msi +++|* A - 1, 2, 4, 5, 6, 7.
00890 M00S00876.msi +++|*
00891 M00S00877.msi +++|* CALLS PKI, COD.
00892 M00S00878.msi +++|*
00893 M00S00879.msi +++|* MACROS ERROR, KEYMES.
00894 M00S00880.msi +++|
00895 M00S00881.msi +++|
00896 M00S00882.msi +++| REQ3 SA1 X4+ESTF
00897 M00S00883.msi +++| SA1 X1+STLL
00898 M00S00884.msi +++| MX2 1
00899 M00S00885.msi +++| MI X1,REQ2 IF FORMAT PENDING
00900 M00S00886.msi +++| LX2 LIAL-59
00901 M00S00887.msi +++| BX7 X1+X2 SET INITIALIZE REQUEST IN MST IMAGE
00902 M00S00888.msi +++| LX2 LIRP-LIAL
00903 M00S00889.msi +++| BX7 X7+X2
00904 M00S00890.msi +++| SA7 A1
00905 M00S00891.msi +++|
00906 M00S00892.msi +++| REQ SUBR ENTRY/EXIT
00907 M00S00893.msi +++| SX6 ENEQ
00908 M00S00894.msi +++| SA6 ARGP
00909 M00S00895.msi +++| KEYMES REQEQ *ENTER EST ORDINAL.*
00910 M00S00896.msi +++| REQ1 SX7 B1+
00911 M00S00897.msi +++| SA7 CNT
00912 M00S00898.msi +++| RJ PKI REQUEST EQUIPMENT
00913 M00S00899.msi +++| SA4 PARC+PMEQ
00914 M00S00900.msi +++| R= X5,ESTE
00915 M00S00901.msi +++| IX5 X4*X5
00916 M00S00902.msi +++| SA5 ESTB+X5+EQDE GET EST ENTRY
00917 M00S00903.msi +++| MI X5,REQ3 IF EQ IS MASS STORAGE DEVICE
00918 M00S00904.msi +++| ERROR 5 *EQ OR DN INCORRECT.*
00919 M00S00905.msi +++| EQ REQ1 SEND ERROR MESSAGE AND WAIT ON CORRECTION
00920 M00S00906.msi +++|
00921 M00S00907.msi +++| REQ2 BX1 X4
00922 M00S00908.msi +++| RJ COD
00923 M00S00909.msi +++| MX7 -18 SET EST ORDINAL IN FORMAT PENDING MESSAGE
00924 M00S00910.msi +++| LX6 30
00925 M00S00911.msi +++| SA4 ERROR21
00926 M00S00912.msi +++| LX7 30
00927 M00S00913.msi +++| BX6 -X7*X6
00928 M00S00914.msi +++| BX7 X7*X4
00929 M00S00915.msi +++| BX6 X6+X7
00930 M00S00916.msi +++| SA6 A4
00931 M00S00917.msi +++| ERROR 21 *EQXXX, FORMAT PENDING.*
00932 M00S00918.msi +++| EQ REQ1 WAIT ON NEW INPUT
00933 M00S00919.msi +++|
00934 M00S00920.msi +++| DSP SPACE 4,10
00935 M00S00921.msi +++|** DSP - DISPLAY EST ORDINALS.
00936 M00S00922.msi +++|*
00937 M00S00923.msi +++|* USES X - 1, 2, 3, 4, 5, 7.
00938 M00S00924.msi +++|* A - 1, 2, 7.
00939 M00S00925.msi +++|* B - 2, 3, 4, 5, 6, 7.
00940 M00S00926.msi +++|*
00941 M00S00927.msi +++|* MACROS CLEAR.
00942 M00S00928.msi +++|
00943 M00S00929.msi +++|
00944 M00S00930.msi +++| DSP SUBR ENTRY/EXIT
00945 M00S00931.msi +++| SB4 OPDS+1
00946 M00S00932.msi +++| SA1 BLK CLEAR THE EQUIPMENT LIST
00947 M00S00933.msi +++| BX7 X1
00948 M00S00934.msi +++| CLEAR B4,4,X7
00949 M00S00935.msi +++| CLEAR INDSA+1,4,X7
00950 M00S00936.msi +++| SB2 B0
00951 M00S00937.msi +++| SB5 B0
00952 M00S00938.msi +++| MX4 -3
00953 M00S00939.msi +++| SB7 B0
00954 M00S00940.msi +++| DSP1 SA1 ESTF+B2
00955 M00S00941.msi +++| SB2 B2+B1
00956 M00S00942.msi +++| SB3 B2-ESMX
00957 M00S00943.msi +++| ZR B3,DSPX IF END OF EQUIPMENTS
00958 M00S00944.msi +++| ZR X1,DSP1 IF EMPTY LINK
00959 M00S00945.msi +++| SA2 X1+STLL
00960 M00S00946.msi +++| MI X2,DSP1 IF FORMAT PENDING
00961 M00S00947.msi +++| LX2 59-LIRP
00962 M00S00948.msi +++| SX3 B2-B1
00963 M00S00949.msi +++| PL X2,DSP1 IF NO INITIALIZE REQUESTS
00964 M00S00950.msi +++| SB5 B5+B1
00965 M00S00951.msi +++| BX5 -X4*X3
00966 M00S00952.msi +++| AX3 3
00967 M00S00953.msi +++| BX7 -X4*X3
00968 M00S00954.msi +++| LX7 6
00969 M00S00955.msi +++| BX3 X4*X3
00970 M00S00956.msi +++| LX3 9
00971 M00S00957.msi +++| IX7 X3+X7
00972 M00S00958.msi +++| SA3 DSPA
00973 M00S00959.msi +++| IX7 X7+X5
00974 M00S00960.msi +++| IX7 X7+X3
00975 M00S00961.msi +++| SA1 B4+B7 MERGE EQUIPMENT IN DISPLAY
00976 M00S00962.msi +++| LX7 42
00977 M00S00963.msi +++| EQ B5,B1,DSP2 IF FIRST EQUIPMENT IN WORD
00978 M00S00964.msi +++| LX7 -30
00979 M00S00965.msi +++| SB5 B0
00980 M00S00966.msi +++| SX2 B7-3
00981 M00S00967.msi +++| SB7 B7+B1 NEXT WORD
00982 M00S00968.msi +++| NZ X2,DSP2 IF NOT OVERFLOW TO SECOND LINE
00983 M00S00969.msi +++| SB6 INDSA+1
00984 M00S00970.msi +++| EQ B4,B6,DSPX IF OVERFLOW SECOND LINE
00985 M00S00971.msi +++| SB4 B6
00986 M00S00972.msi +++| SB7 B0
00987 M00S00973.msi +++| DSP2 IX7 X7+X1 SET EST ORDINAL IN MESSAGE
00988 M00S00974.msi +++| SA7 A1
00989 M00S00975.msi +++| EQ DSP1 LOOP
00990 M00S00976.msi +++|
00991 M00S00977.msi +++| DSPA CON 3R000-3R
00992 M00S00978.msi +++| CPY SPACE 4,10
00993 M00S00979.msi +++|** CPY - COPY MST PARAMETERS TO DISPLAY BLOCK.
00994 M00S00980.msi +++|*
00995 M00S00981.msi +++|* USES ALL REGISTERS.
00996 M00S00982.msi +++|*
00997 M00S00983.msi +++|* CALLS PKI, COD.
00998 M00S00984.msi +++|*
00999 M00S00985.msi +++|* MACROS KEYMES.
01000 M00S00986.msi +++|
01001 M00S00987.msi +++|
01002 M00S00988.msi +++| CPY SUBR ENTRY/EXIT
01003 M00S00989.msi +++| SA1 DSI
01004 M00S00990.msi +++| SA5 PARC+PMEQ
01005 M00S00991.msi +++| MX7 1
01006 M00S00992.msi +++| SA7 FLAG FLAG NO PARAMETER INPUT NEEDED
01007 M00S00993.msi +++| SA4 ESTF+X5 ADDRESS OF MST
01008 M00S00994.msi +++| MI X1,CPY6 IF DEADSTART INITIALIZE
01009 M00S00995.msi +++| SA1 X4+PUGL
01010 M00S00996.msi +++| MX6 42
01011 M00S00997.msi +++| BX1 X6*X1
01012 M00S00998.msi +++| BX6 X4
01013 M00S00999.msi +++| SA6 TEMP SAVE THE MST POINTER
01014 M00S01000.msi +++| MX7 1
01015 M00S01001.msi +++| ZR X1,CPY2 IF NOT PRIVATE PACK
01016 M00S01002.msi +++| SA7 PVT SET PRIVATE PACK FLAG
01017 M00S01003.msi +++| CPY1 KEYMES ENOUN *ENTER OLD USER NAME.*
01018 M00S01004.msi +++| SX7 01
01019 M00S01005.msi +++| SA7 CNT
01020 M00S01006.msi +++| RJ PKI PROCESS KEYBOARD INPUT
01021 M00S01007.msi +++| SA4 TEMP
01022 M00S01008.msi +++| SA2 PARC+PMUN
01023 M00S01009.msi +++| SA3 X4+PUGL
01024 M00S01010.msi +++| BX1 X2-X3
01025 M00S01011.msi +++| AX1 18
01026 M00S01012.msi +++| NZ X1,CPY1 IF USER NAMES DO NOT MATCH
01027 M00S01013.msi +++| CPY2 SA1 X4+MDGL
01028 M00S01014.msi +++| LX1 59-58
01029 M00S01015.msi +++| PL X1,CPY4 IF NOT AN AUXILIARY DEVICE
01030 M00S01016.msi +++| CPY3 KEYMES ENOPN *ENTER OLD PACK NAME.*
01031 M00S01017.msi +++| SX7 1
01032 M00S01018.msi +++| SA7 CNT
01033 M00S01019.msi +++| RJ PKI PROCESS KEYBOARD
01034 M00S01020.msi +++| SA4 TEMP
01035 M00S01021.msi +++| SA2 PARC+PMFN
01036 M00S01022.msi +++| SA3 X4+PFGL
01037 M00S01023.msi +++| BX1 X2-X3
01038 M00S01024.msi +++| AX1 18
01039 M00S01025.msi +++| NZ X1,CPY3 IF PACKNAMES DO NOT MATCH
01040 M00S01026.msi +++| EQ CPY6 GO TO NEXT PARAMETER
01041 M00S01027.msi +++|
01042 M00S01028.msi +++| CPY4 SA1 X4+PFGL
01043 M00S01029.msi +++| MX0 42
01044 M00S01030.msi +++| BX1 X0*X1
01045 M00S01031.msi +++| ZR X1,CPY6 IF NO FAMILY NAME
01046 M00S01032.msi +++| CPY5 KEYMES ENOFN *ENTER OLD FAMILY NAME.*
01047 M00S01033.msi +++| SX7 1
01048 M00S01034.msi +++| SA7 CNT
01049 M00S01035.msi +++| RJ PKI PROCESS KEYBOARD INPUT
01050 M00S01036.msi +++| SA4 TEMP
01051 M00S01037.msi +++| SA2 PARC+PMFN
01052 M00S01038.msi +++| SA3 X4+PFGL
01053 M00S01039.msi +++| MX0 42
01054 M00S01040.msi +++| BX1 X2-X3
01055 M00S01041.msi +++| BX1 X0*X1 TEST FAMILY NAME
01056 M00S01042.msi +++| NZ X1,CPY5 IF FN DO NOT MATCH
01057 M00S01043.msi +++|
01058 M00S01044.msi +++| CPY6 SB5 X4 SET MST POINTER
01059 M00S01045.msi +++| RJ PTY PROCESS TYPE
01060 M00S01046.msi +++| MX0 -18
01061 M00S01047.msi +++| SA1 PARC+PMEQ
01062 M00S01048.msi +++| SX1 X1+1000B ENSURE LEADING ZEROES
01063 M00S01049.msi +++| RJ COD
01064 M00S01050.msi +++| SA2 =7L
01065 M00S01051.msi +++| BX6 -X0*X6
01066 M00S01052.msi +++| BX6 X6+X2
01067 M00S01053.msi +++| LX6 -18
01068 M00S01054.msi +++| SA6 EQDS+1 SET EST ORDINAL
01069 M00S01055.msi +++| SA1 B5+ALGL
01070 M00S01056.msi +++| MX6 -12
01071 M00S01057.msi +++| LX1 59-11
01072 M00S01058.msi +++| BX1 -X6*X1
01073 M00S01059.msi +++| RJ COD CONVERT NUMBER OF CATALOG TRACKS
01074 M00S01060.msi +++| BX6 X4
01075 M00S01061.msi +++| SA6 NCDS+1
01076 M00S01062.msi +++| RJ SAL SET ACCESS LEVEL DEFAULTS
01077 M00S01063.msi +++| SA4 B5+DDLL GET PACK COUNT
01078 M00S01064.msi +++| MX6 -3
01079 M00S01065.msi +++| LX4 12
01080 M00S01066.msi +++| BX1 -X6*X4
01081 M00S01067.msi +++| SX1 X1+B1 ADJUST COUNT
01082 M00S01068.msi +++| RJ DTY CHECK FOR PACK TYPE DEVICE
01083 M00S01069.msi +++| PL X3,CPY7 IF NOT PACK DEVICE
01084 M00S01070.msi +++| BX6 X1
01085 M00S01071.msi +++| SA6 PARC+PMNP SET PACK COUNT IN PARM LIST
01086 M00S01072.msi +++|+ RJ COD CONVERT NUMBER OF PACKS
01087 M00S01073.msi +++| BX6 X4
01088 M00S01074.msi +++| SA6 NPDS+1
01089 M00S01075.msi +++| CPY7 SA1 B5+MDGL
01090 M00S01076.msi +++| SA2 DSI
01091 M00S01077.msi +++| LX1 59-58
01092 M00S01078.msi +++| MI X1,CPY9 IF AUXILIARY PACK
01093 M00S01079.msi +++| SX7 B5
01094 M00S01080.msi +++| SA7 TEMP
01095 M00S01081.msi +++| SA3 B5+PFGL
01096 M00S01082.msi +++| MX6 -6
01097 M00S01083.msi +++| LX3 59-11
01098 M00S01084.msi +++| BX6 -X6*X3
01099 M00S01085.msi +++| BX7 X7-X7
01100 M00S01086.msi +++| SA6 PARC+PMDN SET DEVICE NUMBER IN PARAMETER BLOCK
01101 M00S01087.msi +++| MI X2,CPY9 IF DEADSTART INITIALIZE
01102 M00S01088.msi +++| ZR X6,CPY10 IF DN EQUALS ZERO
01103 M00S01089.msi +++| SA7 A6+ CLEAR THE DEVICE NUMBER
01104 M00S01090.msi +++| CPY8 KEYMES ENODN *ENTER OLD DEVICE NUMBER.*
01105 M00S01091.msi +++| SX7 1
01106 M00S01092.msi +++| SA7 CNT
01107 M00S01093.msi +++| RJ PKI PROCESS KEYBOARD
01108 M00S01094.msi +++| SA4 TEMP
01109 M00S01095.msi +++| SA2 PARC+PMDN
01110 M00S01096.msi +++| SA3 X4+PFGL
01111 M00S01097.msi +++| MX6 -6
01112 M00S01098.msi +++| LX3 59-11
01113 M00S01099.msi +++| BX1 -X6*X3 MASK OFF OLD DN
01114 M00S01100.msi +++| BX1 X1-X2
01115 M00S01101.msi +++| NZ X1,CPY8 IF DEVICE NUMBERS DO NOT MATCH
01116 M00S01102.msi +++| SB5 X4 SAVE MST ADDRESS
01117 M00S01103.msi +++| EQ CPY10 CLEAR *ID* AND *NC*
01118 M00S01104.msi +++|
01119 M00S01105.msi +++| CPY9 SA1 B5+PFGL
01120 M00S01106.msi +++| MX6 -6
01121 M00S01107.msi +++| LX1 59-11
01122 M00S01108.msi +++| BX1 -X6*X1
01123 M00S01109.msi +++| RJ COD CONVERT DEVICE NUMBER
01124 M00S01110.msi +++| BX6 X4
01125 M00S01111.msi +++| SA6 DNDS+1
01126 M00S01112.msi +++| CPY10 BX7 X7-X7
01127 M00S01113.msi +++| SA7 PARC+PMID ID
01128 M00S01114.msi +++| SA7 A7+B1
01129 M00S01115.msi +++| SA7 PARC+PMNC NC
01130 M00S01116.msi +++| EQ CPYX RETURN
01131 M00S01117.msi +++| PPM SPACE 4,10
01132 M00S01118.msi +++|** PPM - PROCESS PARAMETERS.
01133 M00S01119.msi +++|*
01134 M00S01120.msi +++|* EXIT (X7) = ZERO IF MORE PARAMETERS NEEDED.
01135 M00S01121.msi +++|* (B5) = MST POINTER.
01136 M00S01122.msi +++|*
01137 M00S01123.msi +++|* USES ALL REGISTERS.
01138 M00S01124.msi +++|*
01139 M00S01125.msi +++|* CALLS CPN, DTY, MTW, PTY, VLC.
01140 M00S01126.msi +++|*
01141 M00S01127.msi +++|* MACROS ERROR, KEYMES.
01142 M00S01128.msi +++|
01143 M00S01129.msi +++|
01144 M00S01130.msi +++| PPM SUBR ENTRY/EXIT
01145 M00S01131.msi +++| SB4 PARC
01146 M00S01132.msi +++| SB6 B0
01147 M00S01133.msi +++| SB3 PMEQ
01148 M00S01134.msi +++| SA1 PARC+PMEQ
01149 M00S01135.msi +++| SA1 X1+ESTF
01150 M00S01136.msi +++| SB5 X1 MST POINTER
01151 M00S01137.msi +++| PPM1 SA5 B4+B6 CHECK PARAMETER LIST
01152 M00S01138.msi +++| NZ X5,PPM2 IF PARAMETER ENTERED
01153 M00S01139.msi +++| SB6 B6+B1
01154 M00S01140.msi +++| NE B3,B6,PPM1 IF NOT END OF PARAMETERS
01155 M00S01141.msi +++| KEYMES REQPM *ENTER PARAMETERS.*
01156 M00S01142.msi +++| SA1 FLAG
01157 M00S01143.msi +++| BX7 X1
01158 M00S01144.msi +++| EQ PPMX EXIT PARAMETER ENTRY NEEDED
01159 M00S01145.msi +++|
01160 M00S01146.msi +++| PPM2 RJ CMC CHECK MODE CHANGE
01161 M00S01147.msi +++| ZR X7,PPM23 IF NO FULL TRACK ACCESS
01162 M00S01148.msi +++| SA1 PARC+PMDM PROCESS MASKS
01163 M00S01149.msi +++| SA2 PARC+PMSM
01164 M00S01150.msi +++| SA3 B5+PUGL
01165 M00S01151.msi +++| MX0 -16
01166 M00S01152.msi +++| LX2 8
01167 M00S01153.msi +++| BX3 X0*X3 CLEAR OLD MASKS
01168 M00S01154.msi +++| BX6 X1+X2
01169 M00S01155.msi +++| BX6 X6+X3
01170 M00S01156.msi +++| SA6 A3
01171 M00S01157.msi +++| RJ PTY PROCESS TYPE
01172 M00S01158.msi +++| PPM3 SA1 PVT
01173 M00S01159.msi +++| SA2 PARC+PMFN
01174 M00S01160.msi +++| MX7 42
01175 M00S01161.msi +++| BX3 X2
01176 M00S01162.msi +++| SA4 PARC+PMUN
01177 M00S01163.msi +++| MI X1,PPM5 IF PRIVATE PACK (PVT SET)
01178 M00S01164.msi +++| NZ X4,PPM5 IF PRIVATE PACK (UN DEFINED)
01179 M00S01165.msi +++| ZR X2,PPM10 IF NO FAMILY NAME DEFINED
01180 M00S01166.msi +++|
01181 M00S01167.msi +++|* PROCESS FAMILY NAME.
01182 M00S01168.msi +++|
01183 M00S01169.msi +++| SA1 B5+PFGL
01184 M00S01170.msi +++| BX6 -X7*X1
01185 M00S01171.msi +++| BX6 X2+X6
01186 M00S01172.msi +++| SA6 A1
01187 M00S01173.msi +++| BX6 X6-X6
01188 M00S01174.msi +++| SA6 PVT CLEAR PRIVATE PACK FLAG
01189 M00S01175.msi +++| EQ PPM10 GO TO NEXT PARAMETER
01190 M00S01176.msi +++|
01191 M00S01177.msi +++|* PROCESS PACK NAME AND USER NAME.
01192 M00S01178.msi +++|
01193 M00S01179.msi +++| PPM5 SA5 B5+MDGL
01194 M00S01180.msi +++| SA1 B5+PFGL
01195 M00S01181.msi +++| SA2 B5+PUGL
01196 M00S01182.msi +++| BX6 X5
01197 M00S01183.msi +++| MX5 42
01198 M00S01184.msi +++| BX0 -X5*X1
01199 M00S01185.msi +++| LX6 59-58
01200 M00S01186.msi +++| BX1 X5*X1 OLD PACK NAME
01201 M00S01187.msi +++| BX7 -X5*X2
01202 M00S01188.msi +++| ZR X4,PPM7 IF NO NEW UN USE OLD ONE
01203 M00S01189.msi +++| SA5 NULL
01204 M00S01190.msi +++| BX5 X5-X4 TEST FOR *NULL*
01205 M00S01191.msi +++| NZ X5,PPM6 IF NOT NULL
01206 M00S01192.msi +++| MX6 0 CLEAR PVT
01207 M00S01193.msi +++| SA7 B5+PUGL
01208 M00S01194.msi +++| SA6 PVT
01209 M00S01195.msi +++| SA6 PARC+PMUN
01210 M00S01196.msi +++| EQ PPM3 LOOP
01211 M00S01197.msi +++|
01212 M00S01198.msi +++| PPM6 PL X6,PPM21 IF NOT AUXILIARY DEVICE
01213 M00S01199.msi +++| MX6 1
01214 M00S01200.msi +++| BX7 X7+X4 SET NEW USER NAME
01215 M00S01201.msi +++| SA6 PVT
01216 M00S01202.msi +++| SA7 A2 UPDATE MST
01217 M00S01203.msi +++| LX6 1
01218 M00S01204.msi +++| SA6 PARC+PMNC FORCE NC TO 1
01219 M00S01205.msi +++| EQ PPM8 CONTINUE
01220 M00S01206.msi +++|
01221 M00S01207.msi +++| PPM7 BX7 X5*X2 CHECK FOR OLD UN
01222 M00S01208.msi +++| ZR X7,PPM22 IF NO OLD UN
01223 M00S01209.msi +++| PPM8 NZ X3,PPM9 IF PACKNAM DEFINED
01224 M00S01210.msi +++| NZ X1,PPM10 GO TO NEXT PARAMETER
01225 M00S01211.msi +++| ERROR 7 *FN OR PN MUST BE SPECIFIED.*
01226 M00S01212.msi +++| MX7 0
01227 M00S01213.msi +++| SA7 PVT
01228 M00S01214.msi +++| EQ PPMX ERROR EXIT
01229 M00S01215.msi +++|
01230 M00S01216.msi +++| PPM9 BX6 X3+X0 SET NEW PACK NAME
01231 M00S01217.msi +++| SA6 A1
01232 M00S01218.msi +++| PPM10 RJ CPN CHECK FOR DUPLICATE PACK NAME
01233 M00S01219.msi +++| ZR X7,PPMX IF ERROR
01234 M00S01220.msi +++|
01235 M00S01221.msi +++|* PROCESS NUMBER OF CATALOG TRACKS.
01236 M00S01222.msi +++|
01237 M00S01223.msi +++| SA4 B5+ALGL
01238 M00S01224.msi +++| MX0 -12
01239 M00S01225.msi +++| LX4 -12
01240 M00S01226.msi +++| SA3 B5+PUGL
01241 M00S01227.msi +++| MX1 -8
01242 M00S01228.msi +++| BX3 -X1*X3
01243 M00S01229.msi +++| BX6 X0*X4
01244 M00S01230.msi +++| LX6 12
01245 M00S01231.msi +++| ZR X3,PPM13 IF NO MASK SET - NO CATALOGS NEEDED
01246 M00S01232.msi +++| SA3 PARC+PMNC
01247 M00S01233.msi +++| SA5 PARC+PMEQ
01248 M00S01234.msi +++| NZ X3,PPM11 IF NC SPECIFIED
01249 M00S01235.msi +++| BX3 -X0*X4 DEFAULT COUNT FROM MST
01250 M00S01236.msi +++| PPM11 NZ X3,PPM12 IF NOT USING EQUIPMENT DEFAULT
01251 M00S01237.msi +++| RJ DTY GET DEFAULT FOR DEVICE
01252 M00S01238.msi +++| PPM12 BX1 -X0*X3 VALIDATE NC
01253 M00S01239.msi +++| CX6 X1
01254 M00S01240.msi +++| SB4 X1-201B
01255 M00S01241.msi +++| BX4 X0*X4 CLEAR OLD COUNT
01256 M00S01242.msi +++| SB6 X6
01257 M00S01243.msi +++| PL B4,PPM20 IF NC TOO LARGE
01258 M00S01244.msi +++| BX6 X4+X1 SET NEW COUNT
01259 M00S01245.msi +++| NE B6,B1,PPM19 IF NC NOT POWER OF 2
01260 M00S01246.msi +++| LX6 12
01261 M00S01247.msi +++|
01262 M00S01248.msi +++|* PROCESS NUMBER OF PACKS.
01263 M00S01249.msi +++|
01264 M00S01250.msi +++| PPM13 SA6 A4
01265 M00S01251.msi +++| SA1 PARC+PMNP
01266 M00S01252.msi +++| ZR X1,PPM14 IF NUMBER OF PACKS NOT SPECIFIED
01267 M00S01253.msi +++| SA2 B5+DDLL
01268 M00S01254.msi +++| MX7 -57
01269 M00S01255.msi +++| MX0 -3
01270 M00S01256.msi +++| SX1 X1-1
01271 M00S01257.msi +++| BX6 X0*X1
01272 M00S01258.msi +++| LX7 -9
01273 M00S01259.msi +++| BX7 -X7*X2 CLEAR CURRENT UNIT COUNT
01274 M00S01260.msi +++| NZ X6,PPM18 IF NP .GT. 7
01275 M00S01261.msi +++| LX1 -12 POSITION PACK COUNT
01276 M00S01262.msi +++| BX7 X7+X1
01277 M00S01263.msi +++| LX1 12
01278 M00S01264.msi +++| SA7 A2
01279 M00S01265.msi +++| RJ DTY
01280 M00S01266.msi +++| AX3 59
01281 M00S01267.msi +++| BX3 -X3*X1
01282 M00S01268.msi +++| NZ X3,PPM17 IF NOT PACK TYPE DEVICE AND NP .NE. 1
01283 M00S01269.msi +++| RJ ALP ALLOCATE PACKS
01284 M00S01270.msi +++| BX7 X7-X7
01285 M00S01271.msi +++| MX0 -3
01286 M00S01272.msi +++| PL X5,PPMX IF UNABLE TO ALLOCATE PACKS
01287 M00S01273.msi +++| PPM14 SA2 PARC+PMEQ RESTORE EST POINTER
01288 M00S01274.msi +++| SA2 X2+ESTF
01289 M00S01275.msi +++| SA1 X2+DDLL GET NUMBER OF PACKS
01290 M00S01276.msi +++| SB5 X2
01291 M00S01277.msi +++| LX1 12
01292 M00S01278.msi +++| SA2 B5+MDGL SET SECTOR LIMITS
01293 M00S01279.msi +++| BX1 -X0*X1
01294 M00S01280.msi +++| BX5 X1 SAVE PACK COUNT
01295 M00S01281.msi +++| SX1 X1+B1
01296 M00S01282.msi +++| MX0 -11
01297 M00S01283.msi +++| BX2 X0*X2
01298 M00S01284.msi +++| LX2 -36
01299 M00S01285.msi +++| BX6 -X0*X2
01300 M00S01286.msi +++| LX2 36
01301 M00S01287.msi +++| IX6 X1*X6
01302 M00S01288.msi +++| BX6 X2+X6
01303 M00S01289.msi +++| SA6 A2
01304 M00S01290.msi +++|
01305 M00S01291.msi +++|* PROCESS DEVICE NUMBER.
01306 M00S01292.msi +++|
01307 M00S01293.msi +++| SA1 PARC+PMDN
01308 M00S01294.msi +++| SA2 B5+PFGL
01309 M00S01295.msi +++| SA3 B5+MDGL
01310 M00S01296.msi +++| MX0 -6
01311 M00S01297.msi +++| BX2 X0*X2 CLEAR OLD N/M
01312 M00S01298.msi +++| BX2 X2+X5 SET NEW N/M
01313 M00S01299.msi +++| BX4 X0*X1
01314 M00S01300.msi +++| LX0 59-47
01315 M00S01301.msi +++| LX3 59-58
01316 M00S01302.msi +++| LX1 12
01317 M00S01303.msi +++| AX3 59
01318 M00S01304.msi +++| MX7 1
01319 M00S01305.msi +++| NZ X1,PPM15 IF DN SPECIFIED
01320 M00S01306.msi +++| BX1 -X0*X2
01321 M00S01307.msi +++| NZ X1,PPM15 IF OLD DN SET
01322 M00S01308.msi +++| SX1 10000B SET DEFAULT TO *1*
01323 M00S01309.msi +++| PPM15 NZ X4,PPM16 IF *DN* TOO LARGE
01324 M00S01310.msi +++| BX2 X0*X2 CLEAR OLD DN
01325 M00S01311.msi +++| BX1 -X3*X1 CLEAR DN FOR AUXILIARY DEVICE
01326 M00S01312.msi +++| BX6 X2+X1 ADD IN NEW DN
01327 M00S01313.msi +++| SA6 A2 UPDATE PFGL
01328 M00S01314.msi +++|
01329 M00S01315.msi +++|* PROCESS DEVICE ACCESS LEVEL LIMITS. VERIFY THAT ACCESS
01330 M00S01316.msi +++|* LEVEL VALUES ENTERED ARE VALID ENTRIES. WHEN RUNNING IN
01331 M00S01317.msi +++|* UNSECURED MODE, NO VALIDATION AGAINST THE EQUIPMENT-S
01332 M00S01318.msi +++|* DEFAULT LIMITS (IN THE EST) IS MADE, SINCE THESE DEFAULT
01333 M00S01319.msi +++|* VALUES WILL ALWAYS BE ZERO.
01334 M00S01320.msi +++|
01335 M00S01321.msi +++| SA1 PARC+PMUA DETERMINE IF KNOWN UPPER LEVEL ENTERED
01336 M00S01322.msi +++| SB2 B0
01337 M00S01323.msi +++| RJ VLC VERIFY UPPER ACCESS LEVEL
01338 M00S01324.msi +++| NG X2,PPM27 IF UNKNOWN VALUE ENTERED
01339 M00S01325.msi +++| SB4 X2 STORE VALUE
01340 M00S01326.msi +++| SA1 PARC+PMLA DETERMINE IF KNOWN LOWER LEVEL ENTERED
01341 M00S01327.msi +++| RJ VLC VERIFY LOWER ACCESS LEVEL
01342 M00S01328.msi +++| NG X2,PPM27 IF UNKNOWN VALUE ENTERED
01343 M00S01329.msi +++| SB3 X2+ STORE VALUE
01344 M00S01330.msi +++| SA1 SSFL
01345 M00S01331.msi +++| GT B3,B4,PPM26 IF LA .GT. UA
01346 M00S01332.msi +++| ZR X1,PPM15.1 IF UNSECURED SYSTEM
01347 M00S01333.msi +++| SA1 PARC+PMEQ GET DEFAULT LIMITS FROM EST
01348 M00S01334.msi +++| R= X4,ESTE
01349 M00S01335.msi +++| IX4 X1*X4
01350 M00S01336.msi +++| SA4 ESTB+1+X4
01351 M00S01337.msi +++| LX4 -12 GET UPPER LIMIT
01352 M00S01338.msi +++| MX0 -3
01353 M00S01339.msi +++| BX2 -X0*X4
01354 M00S01340.msi +++| SB7 X2 (B7) = UPPER LIMIT
01355 M00S01341.msi +++| LX4 -3 GET LOWER LIMIT
01356 M00S01342.msi +++| BX2 -X0*X4
01357 M00S01343.msi +++| SB6 X2+ (B6) = UPPER LIMIT
01358 M00S01344.msi +++| GT B4,B7,PPM24 IF VALUE SPECIFIED .GT. LIMIT
01359 M00S01345.msi +++| LT B3,B6,PPM25 IF VALUE SPECIFIED .LT. LOWER LIMIT
01360 M00S01346.msi +++| PPM15.1 SA1 B5+PFGL SET VALUES INTO MST
01361 M00S01347.msi +++| MX0 -6
01362 M00S01348.msi +++| LX0 6
01363 M00S01349.msi +++| BX2 X0*X1
01364 M00S01350.msi +++| SX3 B3 POSITION LOWER LEVEL
01365 M00S01351.msi +++| LX3 9
01366 M00S01352.msi +++| SX4 B4 POSITION UPPER LEVEL
01367 M00S01353.msi +++| LX4 6
01368 M00S01354.msi +++| BX3 X3+X4 SET INTO *PFGL*
01369 M00S01355.msi +++| BX6 X2+X3
01370 M00S01356.msi +++| SA6 A1
01371 M00S01357.msi +++| EQ PPMX RETURN
01372 M00S01358.msi +++|
01373 M00S01359.msi +++| PPM16 ERROR 5 *EQ OR DN INCORRECT.*
01374 M00S01360.msi +++| MX7 0
01375 M00S01361.msi +++| EQ PPMX RETURN
01376 M00S01362.msi +++|
01377 M00S01363.msi +++| PPM17 ERROR 16 *NP NOT ALLOWED.*
01378 M00S01364.msi +++| MX7 0
01379 M00S01365.msi +++| EQ PPMX RETURN
01380 M00S01366.msi +++|
01381 M00S01367.msi +++| PPM18 ERROR 8 *NP GREATER THAN 8.*
01382 M00S01368.msi +++| MX7 0
01383 M00S01369.msi +++| EQ PPMX RETURN
01384 M00S01370.msi +++|
01385 M00S01371.msi +++| PPM19 ERROR 2 *NC IS NOT A POWER OF 2.*
01386 M00S01372.msi +++| MX7 0
01387 M00S01373.msi +++| EQ PPMX RETURN
01388 M00S01374.msi +++|
01389 M00S01375.msi +++| PPM20 ERROR 10 *NC EXCEEDS 200B.*
01390 M00S01376.msi +++| MX7 0
01391 M00S01377.msi +++| EQ PPMX RETURN
01392 M00S01378.msi +++|
01393 M00S01379.msi +++| PPM21 ERROR 12 *NOT AUXILIARY PACK.*
01394 M00S01380.msi +++| MX7 0
01395 M00S01381.msi +++| EQ PPMX RETURN
01396 M00S01382.msi +++|
01397 M00S01383.msi +++| PPM22 ERROR 1 *UN MUST BE SPECIFIED.*
01398 M00S01384.msi +++| MX7 0
01399 M00S01385.msi +++| SA7 PVT
01400 M00S01386.msi +++| EQ PPMX RETURN
01401 M00S01387.msi +++|
01402 M00S01388.msi +++| PPM23 ERROR 23 * EQXXX, NO FULL TRACK ACCESS.*
01403 M00S01389.msi +++| BX7 X7-X7
01404 M00S01390.msi +++| EQ PPMX RETURN
01405 M00S01391.msi +++|
01406 M00S01392.msi +++| PPM24 ERROR 27 *UA NOT WITHIN LIMIT.*
01407 M00S01393.msi +++| MX7 0
01408 M00S01394.msi +++| EQ PPMX RETURN
01409 M00S01395.msi +++|
01410 M00S01396.msi +++| PPM25 ERROR 28 *LA NOT WITHIN LIMIT.*
01411 M00S01397.msi +++| MX7 0
01412 M00S01398.msi +++| EQ PPMX RETURN
01413 M00S01399.msi +++|
01414 M00S01400.msi +++| PPM26 ERROR 29 *LA GREATER THAN UA.*
01415 M00S01401.msi +++| MX7 0
01416 M00S01402.msi +++| EQ PPMX RETURN
01417 M00S01403.msi +++|
01418 M00S01404.msi +++| PPM27 ERROR 30 *UNKNOWN ACCESS LEVEL NAME.*
01419 M00S01405.msi +++| MX7 0
01420 M00S01406.msi +++| EQ PPMX RETURN
01421 M00S01407.msi +++|
01422 M00S01408.msi +++| NULL DATA 4LNULL
01423 M00S01409.msi +++| CPN SPACE 4,10
01424 M00S01410.msi +++|** CPN - CHECK PACKNAMES.
01425 M00S01411.msi +++|*
01426 M00S01412.msi +++|* ENTRY (B5) = MST POINTER OF CURRENT EQUIPMENT.
01427 M00S01413.msi +++|*
01428 M00S01414.msi +++|* EXIT (X7) = 0 IF DUPLICATES OCCURED.
01429 M00S01415.msi +++|*
01430 M00S01416.msi +++|* USES X - 1, 2, 3,4, 5, 6, 7.
01431 M00S01417.msi +++|* A - 1, 2, 3, 4, 5, 7.
01432 M00S01418.msi +++|* B - 7.
01433 M00S01419.msi +++|*
01434 M00S01420.msi +++|* MACROS ERROR.
01435 M00S01421.msi +++|
01436 M00S01422.msi +++|
01437 M00S01423.msi +++| CPN SUBR ENTRY/EXIT
01438 M00S01424.msi +++| SA1 B5+MDGL
01439 M00S01425.msi +++| SA2 ESTF-1
01440 M00S01426.msi +++| SA4 B5+PFGL
01441 M00S01427.msi +++| LX1 59-58
01442 M00S01428.msi +++| BX7 X1
01443 M00S01429.msi +++| SA7 CPNB
01444 M00S01430.msi +++| MX7 42
01445 M00S01431.msi +++| BX4 X7*X4 CURRENT PACKNAME
01446 M00S01432.msi +++| CPN1 SA2 A2+B1
01447 M00S01433.msi +++| SB7 A2-ESTF-ESMX-1
01448 M00S01434.msi +++| ZR B7,CPNX IF END OF EQUIPMENTS
01449 M00S01435.msi +++| ZR X2,CPN1 IF EMPTY LINK
01450 M00S01436.msi +++| SA3 X2+PFGL
01451 M00S01437.msi +++| BX1 X3-X4 TEST NAME
01452 M00S01438.msi +++| SX6 B5
01453 M00S01439.msi +++| BX1 X7*X1
01454 M00S01440.msi +++| IX6 X2-X6
01455 M00S01441.msi +++| NZ X1,CPN1 IF NO MATCH
01456 M00S01442.msi +++| ZR X6,CPN1 IF CURRENT EQUIPMENT
01457 M00S01443.msi +++| SA5 X2+MDGL
01458 M00S01444.msi +++| LX5 59-58
01459 M00S01445.msi +++| SA1 CPNB
01460 M00S01446.msi +++| NG X1,CPN2 IF CURRENT DEVICE IS AUXILIARY
01461 M00S01447.msi +++| PL X5,CPN1 IF PART OF SAME FAMILY
01462 M00S01448.msi +++| CPN2 AX3 3
01463 M00S01449.msi +++| SA1 CPNA
01464 M00S01450.msi +++| MX6 -3
01465 M00S01451.msi +++| SA5 X2+STLL
01466 M00S01452.msi +++| BX6 -X6*X3
01467 M00S01453.msi +++| BX5 X1*X5 CHECK ERROR STATUS AND INITIALIZE
01468 M00S01454.msi +++| NZ X6,CPN1 IF NOT 1 OF M PACKS
01469 M00S01455.msi +++| NZ X5,CPN1 IF ERROR STATUS OR INITIALIZE
01470 M00S01456.msi +++| ERROR 9 *DUPLICATE PN.*
01471 M00S01457.msi +++| MX7 0
01472 M00S01458.msi +++| EQ CPNX ERROR EXIT
01473 M00S01459.msi +++|
01474 M00S01460.msi +++|
01475 M00S01461.msi +++| CPNA VFD 12/3600B,12/77B,36/0 INITIALIZE/STATUS MASK
01476 M00S01462.msi +++| CPNB CON 0 STATUS OF CURRENT DEVICE
01477 M00S01463.msi +++| ALP SPACE 4,10
01478 M00S01464.msi +++|** ALP - ALLOCATE PACKS.
01479 M00S01465.msi +++|*
01480 M00S01466.msi +++|* ENTRY (X1) = NUMBER OF UNITS-1 TO ALLOCATE.
01481 M00S01467.msi +++|*
01482 M00S01468.msi +++|* EXIT (X5) .LT. 0 IF ABLE TO ALLOCATE.
01483 M00S01469.msi +++|* TO *ABT* IF ACTIVE FILES ON LINKED EQUIPMENT.
01484 M00S01470.msi +++|*
01485 M00S01471.msi +++|* USES X - ALL.
01486 M00S01472.msi +++|* A - 1, 2, 3, 4, 5, 6, 7.
01487 M00S01473.msi +++|* B - 2.
01488 M00S01474.msi +++|*
01489 M00S01475.msi +++|* CALLS ALD, COD.
01490 M00S01476.msi +++|*
01491 M00S01477.msi +++|* MARCOS ERROR, MESSAGE.
01492 M00S01478.msi +++|
01493 M00S01479.msi +++|
01494 M00S01480.msi +++| ALP6 MX6 1 SET PACK ALLOCATED FLAG
01495 M00S01481.msi +++| BX7 X7-X7 SET END OF PACK EQUIPMENT LIST
01496 M00S01482.msi +++| SA6 A5
01497 M00S01483.msi +++| SA7 B2
01498 M00S01484.msi +++|
01499 M00S01485.msi +++| ALP SUBR ENTRY/EXIT
01500 M00S01486.msi +++| SB2 PKL PACK EQUIPMENT LIST ADDRESS
01501 M00S01487.msi +++| SA5 PALF PACK ALLOCATION FLAG
01502 M00S01488.msi +++| NG X5,ALPX IF ALREADY ALLOCATED
01503 M00S01489.msi +++| SA2 PARC+PMEQ FIRST EQUIPMENT OF PACK
01504 M00S01490.msi +++| SA4 ESTF+X2 MST ADDRESS
01505 M00S01491.msi +++| R= X3,ESTE
01506 M00S01492.msi +++| IX3 X2*X3
01507 M00S01493.msi +++| SA3 ESTB+X3+EQDE GET EST ENTRY
01508 M00S01494.msi +++| SA4 X4+DDLL
01509 M00S01495.msi +++| MX0 -3
01510 M00S01496.msi +++| LX3 59-55
01511 M00S01497.msi +++| AX4 51
01512 M00S01498.msi +++| BX6 -X0*X4 SET ORIGINAL UNIT COUNT
01513 M00S01499.msi +++| SX7 X6+B1
01514 M00S01500.msi +++| IX5 X1-X7 UNIT COUNT-1 REMAINING TO ALLOCATE
01515 M00S01501.msi +++| NG X5,ALP6 IF NO MORE UNITS TO ALLOCATE
01516 M00S01502.msi +++| PL X3,ALP1 IF NOT *LDAM* DEVICE
01517 M00S01503.msi +++| RJ ALD ALLOCATE *LDAM* DEVICE
01518 M00S01504.msi +++| PL X5,ALP4 IF DEVICE NOT ALLOCATED
01519 M00S01505.msi +++| EQ ALP6 RETURN
01520 M00S01506.msi +++|
01521 M00S01507.msi +++| ALP1 SA3 A3+ GET EST ENTRY
01522 M00S01508.msi +++| SA1 ALPA STATUS MASK
01523 M00S01509.msi +++| BX2 X1*X3 DESIRED EQUIPMENT STATUS
01524 M00S01510.msi +++| LX3 59-56
01525 M00S01511.msi +++| PL X3,ALP3 IF DEVICE NOT REMOVABLE
01526 M00S01512.msi +++| ALP2 SA4 ESTF+X2 READ *STLL* WORD OF MST
01527 M00S01513.msi +++| SA4 X4+STLL
01528 M00S01514.msi +++| AX4 3 POSITION EST LINK
01529 M00S01515.msi +++| MX6 -9
01530 M00S01516.msi +++| BX6 -X6*X4
01531 M00S01517.msi +++| LX7 39
01532 M00S01518.msi +++| ZR X6,ALP4 IF END OF CHAINABLE DEVICE
01533 M00S01519.msi +++| SA6 ALPB
01534 M00S01520.msi +++| R= X3,ESTE
01535 M00S01521.msi +++| IX3 X4*X3
01536 M00S01522.msi +++| SA3 ESTB+X3+EQDE GET EST ENTRY
01537 M00S01523.msi +++| BX6 X2-X3
01538 M00S01524.msi +++| SA4 ESTF+X4 MST ADDRESS
01539 M00S01525.msi +++| BX3 X1*X6
01540 M00S01526.msi +++| NZ X3,ALP4 IF STATUS NOT CORRECT
01541 M00S01527.msi +++| SA3 ALPB GET EST ORDINAL
01542 M00S01528.msi +++| BX6 X7+X3
01543 M00S01529.msi +++| SA6 B2 PUT IN PACK EQUIPMENT LIST
01544 M00S01530.msi +++| MX6 1
01545 M00S01531.msi +++| BX6 X6+X4
01546 M00S01532.msi +++| SA6 A4 FLAG EQUIPMENT AS LINKED DEVICE
01547 M00S01533.msi +++| MX6 -12
01548 M00S01534.msi +++| SA3 X4+DDLL
01549 M00S01535.msi +++| SA4 X4+STLL
01550 M00S01536.msi +++| LX4 -12
01551 M00S01537.msi +++| BX6 -X6*X4
01552 M00S01538.msi +++| NZ X6,ALP5 IF ACTIVE USERS
01553 M00S01539.msi +++| AX3 51
01554 M00S01540.msi +++| BX7 -X0*X3 SET ORIGINAL UNIT COUNT
01555 M00S01541.msi +++| SB2 B2+1 ADVANCE PACK EQUIPMENT LIST ADDRESS
01556 M00S01542.msi +++| SX7 X7+B1
01557 M00S01543.msi +++| IX5 X5-X7 UNIT COUNT - 1 REMAINING TO ALLOCATE
01558 M00S01544.msi +++| NG X5,ALP6 IF NO MORE UNITS TO ALLOCATE
01559 M00S01545.msi +++| EQ ALP2 PROCESS NEXT EQUIPMENT
01560 M00S01546.msi +++|
01561 M00S01547.msi +++| ALP3 ERROR 15 *DEVICE NOT REMOVABLE.*
01562 M00S01548.msi +++| BX5 X5-X5
01563 M00S01549.msi +++| EQ ALPX ERROR EXIT
01564 M00S01550.msi +++|
01565 M00S01551.msi +++| ALP4 ERROR 11 *CANNOT ALLOCATE DEVICE.*
01566 M00S01552.msi +++| BX6 X6-X6
01567 M00S01553.msi +++| SX5 B0
01568 M00S01554.msi +++| SA6 PKL CLEAR PACK EQUIPMENT LIST
01569 M00S01555.msi +++| EQ ALPX ERROR EXIT
01570 M00S01556.msi +++|
01571 M00S01557.msi +++| ALP5 SA1 ALPB GET EST ORDINAL
01572 M00S01558.msi +++| RJ COD CONVERT EST ORDINAL TO DISPLAY CODE
01573 M00S01559.msi +++| MX7 -18 SET EST ORDINAL IN ACTIVE FILES MESSAGE
01574 M00S01560.msi +++| LX6 30
01575 M00S01561.msi +++| SA4 MESA
01576 M00S01562.msi +++| LX7 30
01577 M00S01563.msi +++| BX6 -X7*X6
01578 M00S01564.msi +++| BX7 X7*X4
01579 M00S01565.msi +++| BX6 X6+X7
01580 M00S01566.msi +++| SA6 A4
01581 M00S01567.msi +++| MESSAGE A4 * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
Line S01568 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
01582 M01S01568.253l688 ---| EQ ABT ABORT MSI
Line S00012 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
01583 M01S00012.253l688 +++| RJ ABT ABORT *MSI*
01584 M00S01569.msi +++|
01585 M00S01570.msi +++| ALPA VFD 6/4,6/0,12/0,3/7,9/0,12/7777B,12/0
01586 M00S01571.msi +++| ALPB BSS 1 EST ORDINAL
01587 M00S01572.msi +++| UMS SPACE 4,10
01588 M00S01573.msi +++|** UMS - UPDATE MASS STORAGE.
01589 M00S01574.msi +++|*
01590 M00S01575.msi +++|* ENTRY INTERNAL EST,S AND MST,S REFLECT NEW DEVICE PARAMETERS.
01591 M00S01576.msi +++|* (PKL) = LIST OF EQUIPMENT MST,S TO BE MODIFIED.
01592 M00S01577.msi +++|*
01593 M00S01578.msi +++|* EXIT (X1) .NE. 0 IF DUPLICATE DAT ENTRY.
01594 M00S01579.msi +++|*
01595 M00S01580.msi +++|* USES X - ALL.
01596 M00S01581.msi +++|* A - ALL.
01597 M00S01582.msi +++|*
01598 M00S01583.msi +++|* CALLS COD, PKI, BPT.
01599 M00S01584.msi +++|*
01600 M00S01585.msi +++|* MACROS ERROR, KEYMES, MESSAGE, SYSTEM.
01601 M00S01586.msi +++|
01602 M00S01587.msi +++|
01603 M00S01588.msi +++| UMS11 MESSAGE MESJ *LINK DEVICE CANNOT BE ALTERED.*
01604 M00S01589.msi +++| BX1 X1-X1
01605 M00S01590.msi +++|
01606 M00S01591.msi +++| UMS SUBR ENTRY/EXIT
01607 M00S01592.msi +++| SA1 PARC+PMEQ EQUIPMENT
01608 M00S01593.msi +++| SA5 PKL
01609 M00S01594.msi +++| RJ BPT BUILD MST UPDATING PARAMETER TABLE
01610 M00S01595.msi +++| SA4 LINK
01611 M00S01596.msi +++| SA3 DSI
01612 M00S01597.msi +++| BX4 X4-X1
01613 M00S01598.msi +++| SA1 PKL CHECK FOR LINKED DEVICE
01614 M00S01599.msi +++| NG X3,UMS1 IF DEADSTART INITIALIZE
01615 M00S01600.msi +++| ZR X4,UMS11 IF LINK DEVICE
01616 M00S01601.msi +++| UMS1 NZ X1,UMS2 IF CHAINED DEVICE
01617 M00S01602.msi +++| RJ DTY
01618 M00S01603.msi +++| SA4 DTYA
01619 M00S01604.msi +++| SX5 X4-2RDE
01620 M00S01605.msi +++| SX4 X4-2RDP
01621 M00S01606.msi +++| MX0 -2
01622 M00S01607.msi +++| IX4 X4*X5
01623 M00S01608.msi +++| NZ X4,UMS1.1 IF NOT EXTENDED MEMORY DEVICE
01624 M00S01609.msi +++| SA4 PARC+PMEQ EXTRACT XM SHIFT
01625 M00S01610.msi +++| R= X5,ESTE
01626 M00S01611.msi +++| IX5 X4*X5
01627 M00S01612.msi +++| SA5 ESTB+X5+EQAE
01628 M00S01613.msi +++| LX5 -30
01629 M00S01614.msi +++| BX2 -X0*X5
01630 M00S01615.msi +++| SB2 X2
01631 M00S01616.msi +++| MX0 -11
01632 M00S01617.msi +++| SX5 20B
01633 M00S01618.msi +++| SA4 TUMS+3 CLEAR OLD SECTOR LIMITS
01634 M00S01619.msi +++| LX5 B2
01635 M00S01620.msi +++| BX6 X0*X4
01636 M00S01621.msi +++| LX0 36
01637 M00S01622.msi +++| BX6 X0*X6
01638 M00S01623.msi +++| BX6 X6+X5 MERGE NEW SECTOR LIMITS
01639 M00S01624.msi +++| LX5 36
01640 M00S01625.msi +++| BX6 X6+X5
01641 M00S01626.msi +++| SA6 A4
01642 M00S01627.msi +++| UMS1.1 SYSTEM IMS,R,TUMS,MMS
01643 M00S01628.msi +++| SA1 TUMS+6 CHECK REPLY
01644 M00S01629.msi +++| EQ UMSX RETURN
01645 M00S01630.msi +++|
01646 M00S01631.msi +++|* IF THE EQUIPMENT IN THE LINK LIST IS AVAILABLE AND HAS
01647 M00S01632.msi +++|* A GOOD LABEL, THE PACKNAME AND USER NAME OR FAMILY NAME
01648 M00S01633.msi +++|* AND DEVICE NUMBER OR JUST THE FAMILY NAME MUST BE
01649 M00S01634.msi +++|* VERIFIED TO INSURE THE CORRECT PACK IS BEING INITIALIZED.
01650 M00S01635.msi +++|
01651 M00S01636.msi +++| UMS2 SA2 ESTF+X1
01652 M00S01637.msi +++| R= X3,ESTE
01653 M00S01638.msi +++| IX3 X1*X3
01654 M00S01639.msi +++| SA3 ESTB+X3+EQDE GET EST ENTRY
01655 M00S01640.msi +++| SA4 X2+STLL
01656 M00S01641.msi +++| MX0 -6
01657 M00S01642.msi +++| LX4 24
01658 M00S01643.msi +++| LX3 59-54
01659 M00S01644.msi +++| BX5 -X0*X4
01660 M00S01645.msi +++| SX6 A1
01661 M00S01646.msi +++| SA6 TEMP SAVE PKL INDEX
01662 M00S01647.msi +++| PL X3,UMS4 IF AVAILABLE
01663 M00S01648.msi +++| ZR X5,UMS4 IF NO LABEL ERRORS
01664 M00S01649.msi +++| SA3 ELST CHECK LABEL ERROR FOR NONRECOVERABLE TYPE
01665 M00S01650.msi +++| UMS3 BX6 X3-X5
01666 M00S01651.msi +++| SA3 A3+B1
01667 M00S01652.msi +++| ZR X6,UMS9 IF NONRECOVERABLE ERROR
01668 M00S01653.msi +++| NZ X3,UMS3 IF NOT END LIST
01669 M00S01654.msi +++| UMS4 SA3 X2+PFGL
01670 M00S01655.msi +++| SA4 X2+PUGL
01671 M00S01656.msi +++| SA5 X2+STLL
01672 M00S01657.msi +++| MX0 42
01673 M00S01658.msi +++| BX6 X0*X3 PACKNAME OR FAMILY NAME
01674 M00S01659.msi +++| LX5 59-LIRP
01675 M00S01660.msi +++| BX7 X0*X4 USER NAME
01676 M00S01661.msi +++| SX1 X1+
01677 M00S01662.msi +++| NG X5,UMS6 IF INITIALIZE SET
01678 M00S01663.msi +++| RJ COD CONVERT EST ORDINAL TO DISPLAY CODE
01679 M00S01664.msi +++| MX7 -18 SET EST ORDINAL IN ACTIVE FILES MESSAGE
01680 M00S01665.msi +++| LX6 30
01681 M00S01666.msi +++| SA4 ERROR19
01682 M00S01667.msi +++| LX7 30
01683 M00S01668.msi +++| BX6 -X7*X6
01684 M00S01669.msi +++| BX7 X7*X4
01685 M00S01670.msi +++| BX6 X6+X7
01686 M00S01671.msi +++| SA6 A4
01687 M00S01672.msi +++| UMS5 ERROR 19 * EQXXX, INITIALIZE BIT NOT SET.*
01688 M00S01673.msi +++| SX6 7777B
01689 M00S01674.msi +++| SX7 HNGP
01690 M00S01675.msi +++| SA6 CNT
01691 M00S01676.msi +++| SA7 ARGP
01692 M00S01677.msi +++| RJ PKI
01693 M00S01678.msi +++| EQ UMS5 LOOP
01694 M00S01679.msi +++|
01695 M00S01680.msi +++| UMS6 NZ X7,UMS7 IF USER NAME SET
01696 M00S01681.msi +++| LX3 -12
01697 M00S01682.msi +++| MX0 -6
01698 M00S01683.msi +++| BX7 -X0*X3 DEVICE NUMBER
01699 M00S01684.msi +++| MX0 -3
01700 M00S01685.msi +++| ZR X7,UMS7 IF DEVICE NUMBER EQ ZERO
01701 M00S01686.msi +++| BX2 -X0*X7
01702 M00S01687.msi +++| AX7 3
01703 M00S01688.msi +++| SX2 X2+2R00
01704 M00S01689.msi +++| LX7 6
01705 M00S01690.msi +++| IX7 X2+X7
01706 M00S01691.msi +++| LX7 59-11
01707 M00S01692.msi +++| UMS7 SA6 SPN
01708 M00S01693.msi +++| SA7 SUN
01709 M00S01694.msi +++| SX1 X1 CLEAR PACK COUNT
01710 M00S01695.msi +++| MX0 1
01711 M00S01696.msi +++| RJ COD CONVERT EQ NUMBER
01712 M00S01697.msi +++| LX0 -22
01713 M00S01698.msi +++| BX6 X0+X4 ADD TRAILING PERIOD
01714 M00S01699.msi +++| SA6 ENID+2
01715 M00S01700.msi +++| UMS8 SX7 B1
01716 M00S01701.msi +++| SX6 EIDS
01717 M00S01702.msi +++| SA6 ARGP
01718 M00S01703.msi +++| SA7 CNT
01719 M00S01704.msi +++| KEYMES ENID *ENTER IDENTITY OF EQXXX.*
01720 M00S01705.msi +++| RJ PKI PROCESS KEYBOARD
01721 M00S01706.msi +++| SA1 PARC+PMID
01722 M00S01707.msi +++| SA5 PARC+PMID+1
01723 M00S01708.msi +++| SA2 SPN
01724 M00S01709.msi +++| SA3 SUN
01725 M00S01710.msi +++| BX4 X1-X2
01726 M00S01711.msi +++| BX5 X5-X3
01727 M00S01712.msi +++| NZ X4,UMS8 IF FN OR PN DO NOT MATCH
01728 M00S01713.msi +++| ZR X5,UMS9 IF UN OR DN MATCH
01729 M00S01714.msi +++| SA1 PARC+PMID+1
01730 M00S01715.msi +++| LX3 6
01731 M00S01716.msi +++| SX2 1R0
01732 M00S01717.msi +++| BX5 X3-X2
01733 M00S01718.msi +++| BX1 X5-X1
01734 M00S01719.msi +++| NZ X1,UMS8 IF NO MATCH ON DN
01735 M00S01720.msi +++| UMS9 SA2 TEMP
01736 M00S01721.msi +++| SA1 X2+B1 NEXT ENTRY IN PKL
01737 M00S01722.msi +++| NZ X1,UMS2 IF NOT END OF LIST
01738 M00S01723.msi +++| SA5 PKL START OF EQUIPMENTS
01739 M00S01724.msi +++|
01740 M00S01725.msi +++|* UPDATE MST,S AND LINK EQUIPMENTS.
01741 M00S01726.msi +++|
01742 M00S01727.msi +++| UMS10 BX4 X5 SAVE LINKED PACK COUNT
01743 M00S01728.msi +++| AX4 36
01744 M00S01729.msi +++| SYSTEM IMS,R,TUMS,MMS UPDATE MST
01745 M00S01730.msi +++| SA1 TUMS+6 CHECK REPLY
01746 M00S01731.msi +++| NZ X1,UMSX IF DUPLICATE DAT ENTRY
01747 M00S01732.msi +++| BX1 X5 SET EQUIPMENT
01748 M00S01733.msi +++| SA5 A5+B1 READ NEXT EQUIPMENT
01749 M00S01734.msi +++| ZR X4,UMSX IF END OF LIST
01750 M00S01735.msi +++| R= X2,ESTE
01751 M00S01736.msi +++| IX2 X1*X2
01752 M00S01737.msi +++| SA2 ESTB+X2+EQDE GET EST ENTRY
01753 M00S01738.msi +++| MX0 1
01754 M00S01739.msi +++| LX0 54-59
01755 M00S01740.msi +++| BX6 X0+X2
01756 M00S01741.msi +++| SA6 A2
01757 M00S01742.msi +++| SA2 ESTF+X1 SET DEVICE IN USE IN CHAIN
01758 M00S01743.msi +++| SA2 X2+STLL
01759 M00S01744.msi +++| SA3 TUMS+1 UPDATE N/M
01760 M00S01745.msi +++| SX4 X4
01761 M00S01746.msi +++| LX0 2-54
01762 M00S01747.msi +++| BX6 X2+X0
01763 M00S01748.msi +++| IX7 X4+X3 INCREMENT N/M
01764 M00S01749.msi +++| SA7 A2-STLL+PFGL
01765 M00S01750.msi +++| SA6 A2
01766 M00S01751.msi +++| RJ BPT BUILD PARAMETER TABLE
01767 M00S01752.msi +++| EQ UMS10 LOOP FOR NEXT ENTRY
01768 M00S01753.msi +++|
01769 M00S01754.msi +++| SPN CON 0
01770 M00S01755.msi +++| SUN CON 0
01771 M00S01756.msi +++|
01772 M00S01757.msi +++| ELST CON STLE LABEL ERROR
01773 M00S01758.msi +++| CON STNR NOT READY
01774 M00S01759.msi +++| CON 0
01775 M00S01760.msi +++| TUMS SPACE 4,15
01776 M00S01761.msi +++|** TUMS - TABLE OF MST UPDATING PARAMETERS.
01777 M00S01762.msi +++|*
01778 M00S01763.msi +++|*T, TUMS 60/ EST ENTRY
Figure
TUMS
0 29 EST ENTRY 30 59 EST ENTRY
01779 M00S01764.msi +++|*T, 60/ PFGL MST WORD
Figure
0 29 PFGL MST WORD 30 59 PFGL MST WORD
01780 M00S01765.msi +++|*T, 60/ PUGL MST WORD
Figure
0 29 PUGL MST WORD 30 59 PUGL MST WORD
01781 M00S01766.msi +++|*T, 60/ MDGL MST WORD
Figure
0 29 MDGL MST WORD 30 59 MDGL MST WORD
01782 M00S01767.msi +++|*T, 12/ NC,12/ EQ,12/ AI,12/ CI,12/ NE
Figure
0 11 12 23 24 29 NE CI AI 30 35 36 47 48 59 AI EQ NC
01783 M00S01768.msi +++|*T, 12/ NP, 48/ UNIT LIST (*LDAM* DEVICES)
Figure
0 29 UNIT LIST (*LDAM* DEVICES) 30 47 48 59 UNIT LIST (*LDAM* DEVICES) NP
01784 M00S01769.msi +++|*T, 60/ REPLY WORD
Figure
0 29 REPLY WORD 30 59 REPLY WORD
01785 M00S01770.msi +++|* NC NUMBER OF CATALOG TRACKS.
01786 M00S01771.msi +++|* EQ EST ORDINAL.
01787 M00S01772.msi +++|* AI ALGORITHM INDEX.
01788 M00S01773.msi +++|* CI CLEAR IN USE AS CHAINED DEVICE.
01789 M00S01774.msi +++|* NE NEXT EQUIPMENT IN LINKED DEVICE.
01790 M00S01775.msi +++|
01791 M00S01776.msi +++|
01792 M00S01777.msi +++| TUMS BSSZ 7
01793 M00S01778.msi +++| EDF SPACE 4,10
01794 M00S01779.msi +++|** EDF - SEPARATE FAMILY FROM OTHER MASS STORAGE.
01795 M00S01780.msi +++|*
01796 M00S01781.msi +++|* EXIT (B7) = EST ORDINAL.
01797 M00S01782.msi +++|*
01798 M00S01783.msi +++|* USES X - ALL.
01799 M00S01784.msi +++|* A - 1, 2, 4, 7.
01800 M00S01785.msi +++|* B - 2, 3, 7.
01801 M00S01786.msi +++|
01802 M00S01787.msi +++|
01803 M00S01788.msi +++| EDF SUBR ENTRY/EXIT
01804 M00S01789.msi +++| SA1 PARC+PMEQ
01805 M00S01790.msi +++| SB7 X1 SAVE EST ORDINAL
01806 M00S01791.msi +++| SA1 ESTF+X1
01807 M00S01792.msi +++| SA1 X1+PFGL
01808 M00S01793.msi +++| MX0 42
01809 M00S01794.msi +++| BX5 X0*X1 FAMILY NAME
01810 M00S01795.msi +++| SA1 ESTF-1
01811 M00S01796.msi +++| EDF1 SA1 A1+B1
01812 M00S01797.msi +++| MX3 42
01813 M00S01798.msi +++| MI X1,EDF5 IF LINKED EQUIPMENT
01814 M00S01799.msi +++| ZR X1,EDF2 IF EMPTY LINK
01815 M00S01800.msi +++| SA4 X1+PFGL
01816 M00S01801.msi +++| BX3 X0*X4
01817 M00S01802.msi +++| BX3 X3-X5 TEST FAMILY NAME
01818 M00S01803.msi +++| BX2 X1
01819 M00S01804.msi +++| EDF2 SB3 A1-ESTF-ESMX
01820 M00S01805.msi +++| ZR B3,EDFX IF END OF EST
01821 M00S01806.msi +++| ZR X3,EDF4 IF MATCH ON FAMILY
01822 M00S01807.msi +++| EDF3 MX7 0
01823 M00S01808.msi +++| SA7 A1 CLEAR NON FAMILY LINK
01824 M00S01809.msi +++| EQ EDF1 LOOP ON SEARCH
01825 M00S01810.msi +++|
01826 M00S01811.msi +++| EDF4 SB2 A1-ESTF
01827 M00S01812.msi +++| EQ B2,B7,EDF1 IF CURRENT EQUIPMENT
01828 M00S01813.msi +++| SX4 B2
01829 M00S01814.msi +++| R= X3,ESTE
01830 M00S01815.msi +++| IX3 X4*X3
01831 M00S01816.msi +++| SA4 X2+STLL
01832 M00S01817.msi +++| SA3 ESTB+X3+EQDE GET EST ENTRY
01833 M00S01818.msi +++| SA2 X2+MDGL CHECK FOR AUXILIARY DEVICE
01834 M00S01819.msi +++| LX4 59-LDIU
01835 M00S01820.msi +++| LX3 59-54
01836 M00S01821.msi +++| LX2 59-58
01837 M00S01822.msi +++| NG X4,EDF3 IF DEVICE IN USE
01838 M00S01823.msi +++| MI X2,EDF3 IF AUXILIARY DEVICE CLEAR ENTRY
01839 M00S01824.msi +++| PL X3,EDF1 IF EQUIPMENT AVAILABLE LOOP FOR NEXT EQ
01840 M00S01825.msi +++| EQ EDF3 IF NOT AVAILABLE CLEAR LINK
01841 M00S01826.msi +++|
01842 M00S01827.msi +++| EDF5 SA3 X1+STLL
01843 M00S01828.msi +++| MX6 60-LIRP
01844 M00S01829.msi +++| BX3 -X6*X3
01845 M00S01830.msi +++| MX6 48-LIMF
01846 M00S01831.msi +++| LX6 48
01847 M00S01832.msi +++| BX6 -X6*X3 CLEAR INITIALIZE REQUEST IN LINKED EQ
01848 M00S01833.msi +++| SA6 A3
01849 M00S01834.msi +++| EQ EDF3 GO CLEAR LINK
01850 M00S01835.msi +++| CMS SPACE 4,10
01851 M00S01836.msi +++|** CMS - CHECK MASK AND DEVICE NUMBER.
01852 M00S01837.msi +++|*
01853 M00S01838.msi +++|* ENTRY (B7) = EQ NUMBER.
01854 M00S01839.msi +++|*
01855 M00S01840.msi +++|* EXIT (B6) = DEVICE NUMBER.
01856 M00S01841.msi +++|* (B7) = EQ NUMBER.
01857 M00S01842.msi +++|* (X7) .LT. 0 IF NEW PARAMETERS TO PROCESS.
01858 M00S01843.msi +++|*
01859 M00S01844.msi +++|* USES ALL REGISTERS.
01860 M00S01845.msi +++|*
01861 M00S01846.msi +++|* CALLS PKI.
01862 M00S01847.msi +++|*
01863 M00S01848.msi +++|* MACROS ERROR.
01864 M00S01849.msi +++|
01865 M00S01850.msi +++|
01866 M00S01851.msi +++| CMS11 SA1 PARC+PMEQ SET EQUIPMENT
01867 M00S01852.msi +++| BX7 X7-X7
01868 M00S01853.msi +++| SB7 X1
01869 M00S01854.msi +++| SA1 ESTF+X1 SET DEVICE NUMBER
01870 M00S01855.msi +++| SA1 X1+PFGL
01871 M00S01856.msi +++| MX0 -6
01872 M00S01857.msi +++| AX1 12
01873 M00S01858.msi +++| BX1 -X0*X1
01874 M00S01859.msi +++| SB6 X1
01875 M00S01860.msi +++|
01876 M00S01861.msi +++| CMS SUBR ENTRY/EXIT
01877 M00S01862.msi +++| CMS1 SA1 ESTF-1
01878 M00S01863.msi +++| MX6 0
01879 M00S01864.msi +++| SA5 ESTF+B7
01880 M00S01865.msi +++| SA5 X5+PFGL
01881 M00S01866.msi +++| MX0 -6
01882 M00S01867.msi +++| AX5 12
01883 M00S01868.msi +++| BX4 -X0*X5
01884 M00S01869.msi +++| SB6 X4 SAVE DN
01885 M00S01870.msi +++| CMS2 SA1 A1+B1
01886 M00S01871.msi +++| ZR X1,CMS5 IF EMPTY LINK
01887 M00S01872.msi +++| MX5 -8
01888 M00S01873.msi +++| SA2 X1+PUGL
01889 M00S01874.msi +++| BX3 X6*X2
01890 M00S01875.msi +++| BX2 -X5*X2
01891 M00S01876.msi +++| IX6 X6+X2
01892 M00S01877.msi +++| SA2 X1+PFGL
01893 M00S01878.msi +++| MX7 60-LIFD
01894 M00S01879.msi +++| SA5 X1+STLL CHECK INITIALIZE STATUS
01895 M00S01880.msi +++| AX2 12
01896 M00S01881.msi +++| BX2 -X0*X2 DEVICE NUMBER
01897 M00S01882.msi +++| BX5 X7*X5 EXTRACT FULL INITIALIZE FLAGS
01898 M00S01883.msi +++| IX2 X2-X4 CHECK AGAINST CURRENT DEVICE NUMBER
01899 M00S01884.msi +++| CX5 X5
01900 M00S01885.msi +++| MX7 1 ALLOW *GO* IF FULL INITIALIZE SET
01901 M00S01886.msi +++| LX5 59
01902 M00S01887.msi +++| BX7 X7-X5
01903 M00S01888.msi +++| SA7 CMSA
01904 M00S01889.msi +++| ZR X2,CMS8 IF DN MATCH
01905 M00S01890.msi +++| CMS3 ZR X3,CMS5 IF NO DUPLICATION OF BITS IN MASK
01906 M00S01891.msi +++| SB3 A1-ESTF
01907 M00S01892.msi +++| SX7 B3-B7
01908 M00S01893.msi +++| NZ X7,CMS4 IF NOT CURRENT DEVICE
01909 M00S01894.msi +++| MX7 1
01910 M00S01895.msi +++| SA7 CMSA INDICATE *GO* NOT ALLOWED
01911 M00S01896.msi +++| CMS4 ERROR 17 *DUPLICATE BITS IN MASK.*
01912 M00S01897.msi +++| EQ CMS6 DISPLAY ERROR
01913 M00S01898.msi +++|
01914 M00S01899.msi +++| CMS5 SB3 A1-ESTF-ESMX
01915 M00S01900.msi +++| NZ B3,CMS2 IF NOT END OF FAMILY
01916 M00S01901.msi +++| SX7 377B
01917 M00S01902.msi +++| ZR X6,CMSX IF NO MASK BITS SET
01918 M00S01903.msi +++| BX6 X7-X6 TEST MASK
01919 M00S01904.msi +++| BX7 X7*X6
01920 M00S01905.msi +++| ZR X7,CMSX EXIT MASK OK
01921 M00S01906.msi +++|
01922 M00S01907.msi +++|* PROCESS MASK OVER FLOW.
01923 M00S01908.msi +++|
01924 M00S01909.msi +++| ERROR 3 *FAMILY MASK NOT EQUAL 377.*
01925 M00S01910.msi +++| SX7 0
01926 M00S01911.msi +++| SA7 CMSA INDICATE *GO* ALLOWED FOR THIS ERROR
01927 M00S01912.msi +++| CMS6 MX7 1
01928 M00S01913.msi +++| SX6 B1
01929 M00S01914.msi +++| SA7 PARC+PMDM CLEAR DEVICE MASK
01930 M00S01915.msi +++| SA6 CNT
01931 M00S01916.msi +++| SX7 ENMS
01932 M00S01917.msi +++| SA7 ARGP
01933 M00S01918.msi +++| RJ PKI PROCESS MASK ERROR
01934 M00S01919.msi +++| SA1 PARC+PMDM
01935 M00S01920.msi +++| SA5 CMSA CHECK IF *GO* ALLOWED
01936 M00S01921.msi +++| MX7 1
01937 M00S01922.msi +++| PL X1,CMSX IF NOT *GO*
01938 M00S01923.msi +++| CMS7 ZR X5,CMS11 IF *GO* ALLOWED
01939 M00S01924.msi +++| EQ CMS1 LOOP
01940 M00S01925.msi +++|
01941 M00S01926.msi +++|* PROCESS DUPLICATE DEVICE NUMBER.
01942 M00S01927.msi +++|
01943 M00S01928.msi +++| CMS8 SB3 A1-ESTF
01944 M00S01929.msi +++| EQ B3,B7,CMS3 IF SAME EQUIPMENT
01945 M00S01930.msi +++| ERROR 13 *DUPLICATE DN.*
01946 M00S01931.msi +++| CMS9 MX7 1
01947 M00S01932.msi +++| SA7 PARC+PMDN CLEAR DEVICE NUMBER
01948 M00S01933.msi +++| SX6 B1
01949 M00S01934.msi +++| SX7 ENDN
01950 M00S01935.msi +++| SA6 CNT
01951 M00S01936.msi +++| SA7 ARGP
01952 M00S01937.msi +++| RJ PKI PROCESS DN ERROR
01953 M00S01938.msi +++| SA1 PARC+PMDN
01954 M00S01939.msi +++| SA5 CMSA CHECK IF *GO* ALLOWED
01955 M00S01940.msi +++| MI X1,CMS7 IF *GO* ENTERED
01956 M00S01941.msi +++| NZ X1,CMS10 IF DN NOT ZERO
01957 M00S01942.msi +++| ERROR 20 *DN CANNOT BE ZERO.*
01958 M00S01943.msi +++| EQ CMS9 PROCESS ERROR
01959 M00S01944.msi +++|
01960 M00S01945.msi +++| CMS10 MX7 1
01961 M00S01946.msi +++| EQ CMSX GO PROCESS NEW DN
01962 M00S01947.msi +++|
01963 M00S01948.msi +++| CMSA CON 0 INDICATOR FOR ALLOWING *GO* ENTRY
01964 M00S01949.msi +++| CRE SPACE 4,15
01965 M00S01950.msi +++|** CRE - CHECK REQUIRED ENTRIES.
01966 M00S01951.msi +++|*
01967 M00S01952.msi +++|* ENTRY (B5) = ADDRESS OF MST FOR EQUIPMENT.
01968 M00S01953.msi +++|*
01969 M00S01954.msi +++|* EXIT (X6) = 0 IF NEW PARAMETERS TO PROCESS.
01970 M00S01955.msi +++|* (B5) = ADDRESS OF MST FOR EQUIPMENT.
01971 M00S01956.msi +++|*
01972 M00S01957.msi +++|* USES X - 0, 1, 2, 4, 6, 7.
01973 M00S01958.msi +++|* A - 1, 2, 4, 6, 7.
01974 M00S01959.msi +++|* B - 5.
01975 M00S01960.msi +++|*
01976 M00S01961.msi +++|* CALLS PKI.
01977 M00S01962.msi +++|*
01978 M00S01963.msi +++|* MACROS KEYMES.
01979 M00S01964.msi +++|
01980 M00S01965.msi +++|
01981 M00S01966.msi +++| CRE SUBR ENTRY/EXIT
01982 M00S01967.msi +++| MX0 42
01983 M00S01968.msi +++| SA1 B5+PFGL CHECK FAMILY/PACK NAME
01984 M00S01969.msi +++| BX6 X0*X1
01985 M00S01970.msi +++| NZ X6,CREX IF FAMILY/PACK NAME SPECIFIED
01986 M00S01971.msi +++| SX6 B5+ SAVE MST POINTER
01987 M00S01972.msi +++| SA6 TEMP
01988 M00S01973.msi +++| CRE1 KEYMES ENNFN *ENTER NEW FAMILY/PACK NAME.*
01989 M00S01974.msi +++| SX7 B1+
01990 M00S01975.msi +++| SA7 CNT
01991 M00S01976.msi +++| RJ PKI PROCESS KEYBOARD INPUT
01992 M00S01977.msi +++| SA2 PARC+PMFN
01993 M00S01978.msi +++| ZR X2,CRE1 IF FAMILY/PACK NAME NOT ENTERED
01994 M00S01979.msi +++| SA4 TEMP RESTORE MST POINTER
01995 M00S01980.msi +++| SB5 X4
01996 M00S01981.msi +++| MX6 0 NEW PARAMETERS TO PROCESS
01997 M00S01982.msi +++| EQ CREX RETURN
01998 M00S01983.msi +++| EDD SPACE 4,10
01999 M00S01984.msi +++|** EDD - EDIT DEVICE TRTS.
02000 M00S01985.msi +++|*
02001 M00S01986.msi +++|* ENTRY (B6) = DEVICE NUMBER.
02002 M00S01987.msi +++|* (B7) = EST ORDINAL OF INITIALIZED EQUIPMENT.
02003 M00S01988.msi +++|*
02004 M00S01989.msi +++|* EXIT B6,B7 NOT CHANGED.
02005 M00S01990.msi +++|*
02006 M00S01991.msi +++|* USES X - 0, 1, 2, 4, 5, 6.