User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:msi

Deck MSI

8 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.msi     +++|          IDENT  MSI,ORIG
00002  M01S00002.msi     +++|          ABS
00003  M01S00003.msi     +++|          SST
00004  M01S00004.msi     +++|          ENTRY  MSI
00005  M01S00005.msi     +++|          ENTRY  FLAW
00006  M01S00006.msi     +++|          ENTRY  RFL=
00007  M01S00007.msi     +++|          ENTRY  SSJ=
00008  M01S00008.msi     +++|          ENTRY  UTL=
00009  M01S00009.msi     +++|          SYSCOM B1
00010  M01S00010.msi     +++|*COMMENT  MSI - MASS STORAGE DEVICE INITIALIZATION.
Line S00011 Modification History
M01 (Added by) msi
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M02S00011.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
00012  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M01S00012.msi     +++|          TITLE  MSI - MASS STORAGE DEVICE INITIALIZATION.
00014  M01S00013.msi     +++|          SPACE  4
00015  M01S00014.msi     +++|***       MSI - MASS STORAGE DEVICE INITIALIZATION.
00016  M01S00015.msi     +++|*         D. A. HIVELEY.     72/09/27.
00017  M01S00016.msi     +++|*         S.L. BETH.         73/01/23.
00018  M01S00017.msi     +++|          SPACE 4
00019  M01S00018.msi     +++|***       MSI - MASS STORAGE DEVICE INITIALIZATION.
00020  M01S00019.msi     +++|*
00021  M01S00020.msi     +++|*         THE FOLLOWING PARAMETERS MAY BE ENTERED VIA
00022  M01S00021.msi     +++|*         THE K-DISPLAY.
00023  M01S00022.msi     +++|*
00024  M01S00023.msi     +++|*         FM = FAMILY NAME / PACK NAME (DEPENDS ON *TY* VALUE).
00025  M01S00024.msi     +++|*         PN = FAMILY NAME / PACK NAME (DEPENDS ON *TY* VALUE).
00026  M01S00025.msi     +++|*         UN = USER NAME (FOR PRIVATE AUXILIARY PACK ONLY).
00027  M01S00026.msi     +++|*         DM = DEVICE MASK.
00028  M01S00027.msi     +++|*         SM = SECONDARY MASK.
00029  M01S00028.msi     +++|*         NC = NUMBER OF CATALOG TRACKS.
00030  M01S00029.msi     +++|*         NP = NUMBER OF PACKS.
00031  M01S00030.msi     +++|*         DN = DEVICE NUMBER.
00032  M01S00031.msi     +++|*         TY = TYPE
00033  M01S00032.msi     +++|*                F = FAMILY DEVICE.
00034  M01S00033.msi     +++|*                X = AUXILIARY DEVICE.
00035  M01S00034.msi     +++|*         LA = LOWER BOUND ACCESS LEVEL.
00036  M01S00035.msi     +++|*         UA = UPPER BOUND ACCESS LEVEL.
00037  M01S00036.msi     +++|*
00038  M01S00037.msi     +++|*         ENTER XX=0.        TO CLEAR ANY OF THE ENTRIES LISTED ABOVE.
00039  M01S00038.msi     +++|*         ENTER XX=NULL.     TO CLEAR THE FIELD IN THE MST (UN ONLY).
00040  M01S00039.msi     +++|*
00041  M01S00040.msi     +++|*         EQ = EST ORDINAL.  THIS OPTION IS ONLY VALID FOR *FLAW*
00042  M01S00041.msi     +++|*                PROCESSING.
00043  M01S00042.msi     +++|*
00044  M01S00043.msi     +++|*         NOTE   IT IS NECESSARY TO USE THE DSD/EQPDECK *INITIALIZE*
00045  M01S00044.msi     +++|*                ENTRY TO SELECT DEVICES AND OPTIONS TO BE INITIALIZED.
00046  M01S00045.msi     +++|*                DEVICE CHARACTERISTICS CAN ONLY BE CHANGED DURING
00047  M01S00046.msi     +++|*                *AL*, *FT*, OR *HT* INITIALIZATION.  IF THE *FP*
00048  M01S00047.msi     +++|*                OPTION IS SELECTED, INITIALIZATION WAITS FOR THE
00049  M01S00048.msi     +++|*                DEVICE TO BE FORMATTED.
00050  M01S00049.msi     +++|*
00051  M01S00050.msi     +++|*         THE FOLLOWING FLAW DIRECTIVES CAN ONLY BE ENTERED VIA
00052  M01S00051.msi     +++|*         THE K-DISPLAY.
00053  M01S00052.msi     +++|*
00054  M01S00053.msi     +++|*         SLF = SET LOGICAL TRACK FLAW ON *EQ*.
00055  M01S00054.msi     +++|*         CLF = CLEAR LOGICAL TRACK FLAW ON *EQ*.
00056  M01S00055.msi     +++|*         SPF = SET PHYSICAL TRACK FLAW ON *EQ*.
00057  M01S00056.msi     +++|*         CPF = CLEAR PHYSICAL TRACK FLAW ON *EQ*.
00058  M01S00057.msi     +++|*
00059  M01S00058.msi     +++|*         DEFAULT VALUES ARE -
00060  M01S00059.msi     +++|*
00061  M01S00060.msi     +++|*         FM = NO NAME       NC = (DEVICE DEPENDENT - SEE *COMSMSP*)
00062  M01S00061.msi     +++|*         UN = NO NAME       EQ = 0
00063  M01S00062.msi     +++|*         DM = 0             NP = 0
00064  M01S00063.msi     +++|*         TY = 0             DN = 1
00065  M01S00064.msi     +++|*         LA = VALUE CONTAINED IN EST.
00066  M01S00065.msi     +++|*         UA = VALUE CONTAINED IN EST.
00067  M01S00066.msi     +++|*
00068  M01S00067.msi     +++|*                       ********************
00069  M01S00068.msi     +++|*
00070  M01S00069.msi     +++|*         IT SHOULD BE NOTED THAT MSI INITIALIZES WITH THE NEW
00071  M01S00070.msi     +++|*         PARAMETER INPUT. THEREFORE IF A FAMILY MASK OR DEVICE
00072  M01S00071.msi     +++|*         NUMBER IS CHANGED THE RESULTANT EDIT OF THE OTHER DEVICES
00073  M01S00072.msi     +++|*         IN THE FAMILY MAY MISS SOME FILES LEAVING THE SPACE
00074  M01S00073.msi     +++|*         RESERVED BUT WITH NO CATALOG ENTRIES POINTING TO THE FILES.
00075  M01S00074.msi     +++|*         TO AVOID THIS SITUATION, FIRST PERFORM AN INITIALIZE OF THE
00076  M01S00075.msi     +++|*         DEVICE WITH ITS OLD PARAMETERS TO CLEAN UP THE FAMILY,
00077  M01S00076.msi     +++|*         THEN REINITIALIZE WITH THE NEW PARAMETERS.
00078  M01S00077.msi     +++|*
00079  M01S00078.msi     +++|*                       ********************
00080  M01S00079.msi     +++|*
00081  M01S00080.msi     +++|*
00082  M01S00081.msi     +++|*
00083  M01S00082.msi     +++|*         THE *FM* PARAMETER WILL BE CONSIDERED A PACK NAME IF THE
00084  M01S00083.msi     +++|*         DEVICE IS AN AUXILIARY DEVICE (*TY=X*).
00085  M01S00084.msi     +++|*
00086  M01S00085.msi     +++|*         BEFORE ENTERING PARAMETERS CHECK THE K DISPLAY FOR
00087  M01S00086.msi     +++|*         THE LIST OF EQUIPMENTS TO BE INITIALIZED, IF THE LIST
00088  M01S00087.msi     +++|*         IS NOT COMPLETE ENTER THE INITIALIZE REQUESTS FOR THE
00089  M01S00088.msi     +++|*         OTHER EQUIPMENTS AND ENTER *RERUN* TO UPDATE MSI.
00090  M01S00089.msi     +++|*
00091  M01S00090.msi     +++|*         THE DEVICE WHICH IS TO BE INITIALIZED MUST FULFILL
00092  M01S00091.msi     +++|*         CERTAIN REQUIRMENTS. IF THE DEVICE IS AVAILABLE AND/OR
00093  M01S00092.msi     +++|*         HAS NO LABEL ERROR STATUS, IT MUST BE THE FIRST EQUIPMENT IN
00094  M01S00093.msi     +++|*         THE CHAIN.  *MSI* WILL NOT ALLOW A CHAINED EQUIPMENT TO BE
00095  M01S00094.msi     +++|*         SPLIT IN THE MIDDLE OF THE CHAIN (SUCH AS INITIALIZING THE
00096  M01S00095.msi     +++|*         THIRD UNIT IN A FOUR DEVICE CHAIN).  DEVICES WHICH ARE TO BE
00097  M01S00096.msi     +++|*         CHAINED TOGETHER AND ARE AVAILABLE AND/OR HAVE RECOVERED
00098  M01S00097.msi     +++|*         LABELS, MUST HAVE THE INITIALIZE REQUESTS SET FOR EACH
00099  M01S00098.msi     +++|*         EST ORDINAL IN THE CHAIN.
00100  M01S00099.msi     +++|*
00101  M01S00100.msi     +++|*         THE INPUT TO THE FLAW ROUTINE IS CONSIDERED OCTAL
00102  M01S00101.msi     +++|*         UNLESS THE DIGITS 8 OR 9 APPEAR IN THE NUMBER, OR
00103  M01S00102.msi     +++|*         THE RADIX SYMBOL *D* IS APPENDED TO THE NUMBER.
00104  M01S00103.msi     +++|          SPACE  4
00105  M01S00104.msi     +++|***       DAYFILE MESSAGES.
00106  M01S00105.msi     +++|*
00107  M01S00106.msi     +++|*         * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
00108  M01S00107.msi     +++|*
00109  M01S00108.msi     +++|*         * EQXXX, INACTIVE QUEUES INITIALIZED.*
00110  M01S00109.msi     +++|*
00111  M01S00110.msi     +++|*         * EQXXX, UNABLE TO INITIALIZE IQFT.*
00112  M01S00111.msi     +++|*
00113  M01S00112.msi     +++|*         * USER ACCESS NOT VALID.*
00114  M01S00113.msi     +++|*
00115  M01S00114.msi     +++|*         * INTERNAL ERROR IN MSI.*
00116  M01S00115.msi     +++|*
00117  M01S00116.msi     +++|*         * IQFT FILE INTERLOCKED.*
00118  M01S00117.msi     +++|*
00119  M01S00118.msi     +++|*         * LINK DEVICE CANNOT BE ALTERED.*
00120  M01S00119.msi     +++|*
00121  M01S00120.msi     +++|*         * MSI ABORTED INITIALIZE MAY NOT BE COMPLETE.*
00122  M01S00121.msi     +++|*
00123  M01S00122.msi     +++|*         * NO INITIALIZE REQUESTS SET FOR MSI.*
00124  M01S00123.msi     +++|*
00125  M01S00124.msi     +++|*         * NO IQFT FILE FOUND.*
00126  M01S00125.msi     +++|*
00127  M01S00126.msi     +++|*         * UNABLE TO READ IQFT FILE.*
00128  M01S00001.253l688 +++|*
00129  M01S00002.253l688 +++|*         * MSI HUNG.*
00130  M01S00127.msi     +++|          SPACE  4
00131  M01S00128.msi     +++|***       OPERATOR MESSAGES.
00132  M01S00129.msi     +++|*
00133  M01S00130.msi     +++|*         *ENTER OLD PACK NAME* THIS INPUT MUST MATCH THE
00134  M01S00131.msi     +++|*                OLD PACKNAME TO CONTINUE.
00135  M01S00132.msi     +++|*
00136  M01S00133.msi     +++|*         *ENTER OLD FAMILY NAME* MUST BE ENTERED TO CONTINUE.
00137  M01S00134.msi     +++|*
00138  M01S00135.msi     +++|*         *ENTER OLD USER NAME.*  MUST BE ENTERED TO CONTINUE.
00139  M01S00136.msi     +++|*
00140  M01S00137.msi     +++|*         *ENTER OLD DEVICE NUMBER* MUST BE ENTERED TO CONTINUE.
00141  M01S00138.msi     +++|*
00142  M01S00139.msi     +++|*         *ENTER EST ORDINAL.*  ENTER THE EST ORDINAL OF THE DEVICE
00143  M01S00140.msi     +++|*                TO BE FLAWED OR INITIALIZED.  THIS IS THE ONLY INPUT
00144  M01S00141.msi     +++|*                WHICH WILL BE ACCEPTED AT THIS POINT.
00145  M01S00142.msi     +++|*
00146  M01S00143.msi     +++|*         *ENTER PARAMETERS*  ENTER ANY LEGAL PARAMETERS, THEN
00147  M01S00144.msi     +++|*                ENTER *GO* TO PROCESS THE PARAMETERS.
00148  M01S00145.msi     +++|*
00149  M01S00146.msi     +++|*         *ENTER FLAWS* ENTER ALL FLAWS FOR THE CURRENT EQUIPMENT,
00150  M01S00147.msi     +++|*                ENTER *GO* TO PROCESS THE FLAWS. FLAWS MAY ALSO
00151  M01S00148.msi     +++|*                BE ENTERED DURING AN INITIALIZE RUN.
00152  M01S00149.msi     +++|*
00153  M01S00150.msi     +++|*         *ENTER IDENTITY OF EQXXX.*  THE CURRENT DEVICE IS GOING TO
00154  M01S00151.msi     +++|*                BE CHAINED TO ANOTHER DEVICE. TO VERIFY ITS
00155  M01S00152.msi     +++|*                AVAILABILITY ENTER ITS (PACKNAME AND USER NAME),
00156  M01S00153.msi     +++|*                (PACKNAME), (FAMILY NAME) OR (FAMILY NAME AND
00157  M01S00154.msi     +++|*                DEVICE NUMBER) THE ORDER OF ENTRY IS NOT IMPORTANT.
00158  M01S00155.msi     +++|*                THE ID ENTRIES MUST BE MADE TO CONTINUE PROCESSING.
00159  M01S00156.msi     +++|*
00160  M01S00157.msi     +++|*         *END OF RUN* MSI COMPLETED REQUESTED FUNCTIONS.
00161  M01S00158.msi     +++|*
00162  M01S00159.msi     +++|*         *ENTER CLEAR OR RERUN.* MSI WILL ONLY ACCEPT THE COMMANDS
00163  M01S00160.msi     +++|*                *CLEAR* AND *RERUN* AT THIS TIME.
00164  M01S00161.msi     +++|*
00165  M01S00162.msi     +++|          SPACE  4
00166  M01S00163.msi     +++|***       OPERATOR ERROR MESSAGES.
00167  M01S00164.msi     +++|*
00168  M01S00165.msi     +++|*         *UN MUST BE SPECIFIED.*  DEVICE IS FLAGGED AS PRIVATE
00169  M01S00166.msi     +++|*                THE USER NAME MUST BE SPECIFIED OR THE
00170  M01S00167.msi     +++|*                PACK NAME CLEARED.
00171  M01S00168.msi     +++|*
00172  M01S00169.msi     +++|*         *NC IS NOT A POWER OF 2.*  THE NUMBER OF CATALOG TRACKS
00173  M01S00170.msi     +++|*                MUST BE A POWER OF 2.  CORRECT AND ENTER *GO*.
00174  M01S00171.msi     +++|*
00175  M01S00172.msi     +++|*         *FAMILY MASK NOT EQUAL TO 377.*  THE DEVICE MASK FOR THE
00176  M01S00173.msi     +++|*                FAMILY DOES NOT EQUAL 377B, CORRECT AND ENTER
00177  M01S00174.msi     +++|*                *GO* OR ENTER *GO* TO OVERRIDE.  THIS IS THE ONLY
00178  M01S00175.msi     +++|*                INPUT ACCEPTED AT THIS TIME.
00179  M01S00176.msi     +++|*
00180  M01S00177.msi     +++|*         *EQ OR DN INCORRECT.*  EST ORDINAL TOO BIG, DEVICE SPECIFIED
00181  M01S00178.msi     +++|*                IS NOT MASS STORAGE, OR DEVICE NUMBER .GT. 77B WAS
00182  M01S00179.msi     +++|*                SPECIFIED.  CORRECT AND ENTER *GO.*.
00183  M01S00180.msi     +++|*
00184  M01S00181.msi     +++|*         *EQXXX, NO FULL TRACK ACCESS.*  INDICATES AN ATTEMPT TO
00185  M01S00182.msi     +++|*                INITIALIZE WITH *OP=FT* AND NO FULL TRACK ACCESS
00186  M01S00183.msi     +++|*                EXISTS.  ENTER *CLEAR* TO CLEAR THE INITIALIZE REQUEST
00187  M01S00184.msi     +++|*                OR *GO* TO INITIALIZE AS A HALF TRACK DEVICE.
00188  M01S00185.msi     +++|*
00189  M01S00186.msi     +++|*         *INCORRECT ENTRY.*  INPUT NOT ALLOWED - INCORRECT FORMAT OF
00190  M01S00187.msi     +++|*                INPUT LINE OR MODIFICATION OF A TRACK RESERVED FOR
00191  M01S00188.msi     +++|*                HARDWARE TESTING WAS ATTEMPTED.
00192  M01S00189.msi     +++|*
00193  M01S00190.msi     +++|*         *FM OR PN MUST BE SPECIFIED.*  ENTER THE REQUIRED
00194  M01S00191.msi     +++|*                PARAMETER AND ENTER *GO*.
00195  M01S00192.msi     +++|*
00196  M01S00193.msi     +++|*         *NP GREATER THAN 8.*  ENTER CORRECT NUMBER OF PACKS THEN
00197  M01S00194.msi     +++|*                ENTER *GO*.
00198  M01S00195.msi     +++|*
00199  M01S00196.msi     +++|*         *DUPLICATE PN.*  ANOTHER PACK IN THE SYSTEM HAS THE SAME
00200  M01S00197.msi     +++|*                NAME.  CHANGE THE PACKNAM OR REMOVE THE OTHER
00201  M01S00198.msi     +++|*                DEVICE FROM THE SYSTEM (IF THIS IS DONE *CMS* MUST
00202  M01S00199.msi     +++|*                RUN TO UPDATE THE MST TABLES).
00203  M01S00200.msi     +++|*
00204  M01S00201.msi     +++|*         *NC EXCEEDS 200B.*  THE NUMBER OF CATALOG TRACKS EXCEEDS
00205  M01S00202.msi     +++|*                200B.  CORRECT AND ENTER *GO*.
00206  M01S00203.msi     +++|*
00207  M01S00204.msi     +++|*         *CANNOT ALLOCATE DEVICE.*  CANNOT ALLOCATE A MULTI-SPINDLE
00208  M01S00205.msi     +++|*                DEVICE, NOT ENOUGH SPARE EQUIPMENT OR SPARES
00209  M01S00206.msi     +++|*                NOT UP AND ALLOCATABLE OR AN ATEMPT WAS MADE TO
00210  M01S00207.msi     +++|*                ALLOCATE A NONREMOVABLE DEVICE.  DECREASE THE PACK
00211  M01S00208.msi     +++|*                COUNT AND ENTER *GO* OR ENTER *CLEAR* TO VOID MSI RUN.
00212  M01S00209.msi     +++|*
00213  M01S00210.msi     +++|*         *NOT AUXILIARY PACK.*  ATTEMPT TO MAKE A PRIVATE PACK OUT
00214  M01S00211.msi     +++|*                OF A NONAUXILIARY DEVICE.  CORRECT AND ENTER *GO*.
00215  M01S00212.msi     +++|*
00216  M01S00213.msi     +++|*         *DUPLICATE DN.*  DEVICE NUMBER MATCHES ANOTHER IN THE
00217  M01S00214.msi     +++|*                FAMILY CORRECT AND ENTER *GO* OR OVERRIDE BY
00218  M01S00215.msi     +++|*                ENTERING *GO*.  THIS IS THE ONLY INPUT ACCEPTED AT
00219  M01S00216.msi     +++|*                THIS TIME.  THE OVERRIDE IS ONLY ALLOWED IF THE
00220  M01S00217.msi     +++|*                CONFLICTING DEVICE HAS THE FULL INITIALIZE STATUS SET.
00221  M01S00218.msi     +++|*
00222  M01S00219.msi     +++|*         *DEVICE NOT REMOVABLE.*  A NONREMOVABLE DEVICE WAS
00223  M01S00220.msi     +++|*                SELECTED FOR CHAINING IN A MULTIPACK STRING.
00224  M01S00221.msi     +++|*                ENTER *CLEAR* TO VOID THE MSI RUN.
00225  M01S00222.msi     +++|*
00226  M01S00223.msi     +++|*         *NP NOT ALLOWED.*  THE EQUIPMENT IS NOT A PACK TYPE
00227  M01S00224.msi     +++|*                DEVICE.  CORRECT AND ENTER *GO*.
00228  M01S00225.msi     +++|*
00229  M01S00226.msi     +++|*         *DUPLICATE BITS IN MASK.*  THE MASK FOR THE FAMILY HAS
00230  M01S00227.msi     +++|*                DUPLICATE BITS SET, THIS DESTROYS THE INTEGRITY OF
00231  M01S00228.msi     +++|*                THE PF SYSTEM BY CREATING AN AMBIGUOUS MAPING OF THE
00232  M01S00229.msi     +++|*                USER INDEX.  CORRECT AND ENTER *GO* OR ENTER *GO* TO
00233  M01S00230.msi     +++|*                OVERRIDE.  THIS IS THE ONLY INPUT ACCEPTED AT THIS
00234  M01S00231.msi     +++|*                TIME.  THE OVERRIDE IS ONLY ALLOWED IF THE CONFLICTING
00235  M01S00232.msi     +++|*                DEVICE HAS THE FULL INITIALIZE STATUS SET.
00236  M01S00233.msi     +++|*
00237  M01S00234.msi     +++|*         *DEVICE NOT FIRST IN CHAIN.*  TO PREVENT DESTROYING THE
00238  M01S00235.msi     +++|*                INTEGRITY OF A LINKED DEVICE INITIALIZATION WILL ONLY
00239  M01S00236.msi     +++|*                TAKE PLACE ON AN AVAILABLE DEVICE IF IT IS THE FIRST
00240  M01S00237.msi     +++|*                DEVICE IN THE CHAIN.  THE ONLY INPUT ACCEPTED AT THIS
00241  M01S00238.msi     +++|*                TIME IS *RERUN* OR *CLEAR*.
00242  M01S00239.msi     +++|*
00243  M01S00240.msi     +++|*         *EQXXX, INITIALIZE BIT NOT SET.*  EQXXX IS AVAILABLE AND HAS
00244  M01S00241.msi     +++|*                A GOOD LABEL, IT CANNOT BE LINKED TO ANOTHER EQUIPMENT
00245  M01S00242.msi     +++|*                UNLESS THE TOTAL INITIALIZE REQUEST IS SET.  ENTER DSD
00246  M01S00243.msi     +++|*                COMMAND *INITIALIZE,AL,XXX.*, THEN ENTER *K.RERUN.* TO
00247  M01S00244.msi     +++|*                UPDATE THE STATUS OF MSI, OR ENTER *CLEAR*
00248  M01S00245.msi     +++|*                TO VOID THE MSI RUN.
00249  M01S00246.msi     +++|*
00250  M01S00247.msi     +++|*         *DN CANNOT BE ZERO.*  A (DN = 0) WAS ENTERED TO CLEAR A
00251  M01S00248.msi     +++|*                DUPLICATE DEVICE NUMBER ERROR.  THE DN CANNOT BE ZERO
00252  M01S00249.msi     +++|*                FOR A FAMILY TYPE DEVICE.  ENTER A NONZERO VALUE
00253  M01S00250.msi     +++|*                TO CONTINUE OR ENTER *GO* TO OVERRIDE THE ERROR.
00254  M01S00251.msi     +++|*
00255  M01S00252.msi     +++|*         *EQXXX, FORMAT PENDING.*  EQXXX HAS THE FORMAT PENDING BIT
00256  M01S00253.msi     +++|*                SET AND CANNOT BE PROCESSED UNTIL FORMATTING IS
00257  M01S00254.msi     +++|*                COMPLETE.
00258  M01S00255.msi     +++|*
00259  M01S00256.msi     +++|*         *DEADSTART INITIALIZE REQUIRED.*  THE PENDING INITIALIZE IS
00260  M01S00257.msi     +++|*                FOR A NONREMOVABLE DEVICE WITH ERROR IDLE OR A LABEL
00261  M01S00258.msi     +++|*                ERROR STATUS.  THIS ERROR STATUS REQUIRES A DEADSTART
00262  M01S00259.msi     +++|*                INITIALIZE.
00263  M01S00260.msi     +++|*
00264  M01S00261.msi     +++|*         *DEFINED DEVICE ALREADY EXISTS.*  THE DEVICE AS DEFINED
00265  M01S00262.msi     +++|*                ALREADY EXISTS IN THE MULTI-MAINFRAME ENVIRONMENT.
00266  M01S00263.msi     +++|*                IF THIS IS AN AUXILIARY DEVICE CHANGE THE PACKNAME
00267  M01S00264.msi     +++|*                OR REMOVE THE OTHER PACK FROM THE COMPLEX.  IF A
00268  M01S00265.msi     +++|*                FAMILY DEVICE CHANGE THE DEVICE NUMBER TO A UNIQUE
00269  M01S00266.msi     +++|*                VALUE FOR THIS FAMILY.
00270  M01S00267.msi     +++|*
00271  M01S00268.msi     +++|*         *FULL INITIALIZE REQUIRED.*  THE PENDING INITIALIZE IS FOR
00272  M01S00269.msi     +++|*                A DEVICE WITH AN ERROR STATUS SET.  THIS DEVICE MUST
00273  M01S00270.msi     +++|*                BE INITIALIZED WITH A FULL INITIALIZE REQUEST.
00274  M01S00271.msi     +++|*
00275  M01S00272.msi     +++|*         *EQXXX, TRACK LIMIT.*  INSUFFICIENT SPACE ON THE DEVICE TO
00276  M01S00273.msi     +++|*                COMPLETE THE INITIALIZATION.  FREE UP SPACE AND ENTER
00277  M01S00274.msi     +++|*                *RERUN* OR ENTER *CLEAR*.  IF THIS ERROR OCCURS
00278  M01S00275.msi     +++|*                DURING DEADSTART, REDEADSTART AND CHECK EQUIPMENT
00279  M01S00276.msi     +++|*                USAGE IN THE *CMRDECK*.
00280  M01S00277.msi     +++|*
00281  M01S00278.msi     +++|*         *UA NOT WITHIN LIMIT.*  THE UPPER BOUND ACCESS LEVEL
00282  M01S00279.msi     +++|*                EXCEEDS THAT CONTAINED IN THE EST.  CORRECT AND
00283  M01S00280.msi     +++|*                ENTER *GO*.
00284  M01S00281.msi     +++|*
00285  M01S00282.msi     +++|*         *LA NOT WITHIN LIMIT.*  THE LOWER BOUND ACCESS LEVEL
00286  M01S00283.msi     +++|*                IS SMALLER THAN THAT CONTAINED IN THE EST. CORRECT
00287  M01S00284.msi     +++|*                AND ENTER *GO*.
00288  M01S00285.msi     +++|*
00289  M01S00286.msi     +++|*         *LA GREATER THAN UA.*  THE LOWER ACCESS LEVEL LIMIT
00290  M01S00287.msi     +++|*                IS GREATER THAN THE UPPER LIMIT.  CORRECT AND
00291  M01S00288.msi     +++|*                ENTER *GO*.
00292  M01S00289.msi     +++|*
00293  M01S00290.msi     +++|*         *UNKNOWN ACCESS LEVEL NAME.*  THE ACCESS LEVEL NAME
00294  M01S00291.msi     +++|*                ENTERED IS INCORRECT.  CORRECT AND ENTER *GO*.
00295  M01S00292.msi     +++|*
00296  M01S00293.msi     +++|*         TO HALT PROCESSING ON THE CURRENT EQUIPMENT ENTER *CLEAR*
00297  M01S00294.msi     +++|*         THE CURRENT INITIALIZE REQUEST WILL BE CLEARED AND MSI WILL
00298  M01S00295.msi     +++|*         ADVANCE TO THE NEXT DEVICE WITH AN INITIALIZE REQUEST UP.
00299  M01S00296.msi     +++|*
00300  M01S00297.msi     +++|*         TO CLEAR ALL PARAMETER INPUT WITHOUT CLEARING THE INITIALIZE
00301  M01S00298.msi     +++|*         REQUEST ENTER *RERUN*.
00302  M01S00299.msi     +++|          TITLE  MACROS.
00303  M01S00300.msi     +++|*CALL     COMCMAC
00304  M01S00301.msi     +++|*CALL     COMCDCM
00305  M01S00302.msi     +++| CLEAR    SPACE  4
00306  M01S00303.msi     +++|**        CLEAR - CLEAR STORAGE.
00307  M01S00304.msi     +++|*
00308  M01S00305.msi     +++|*         CLEAR  FWA,COUNT,MASK
00309  M01S00306.msi     +++|*
00310  M01S00307.msi     +++|*         IF *MASK* IS *X7* IT IS ASSUMED THAT (X7) = 0.
00311  M01S00308.msi     +++|
00312  M01S00309.msi     +++|
00313  M01S00310.msi     +++|          PURGMAC  CLEAR
00314  M01S00311.msi     +++| CLEAR    MACRO  L,C,M
00315  M01S00312.msi     +++|          LOCAL  A
00316  M01S00313.msi     +++|          MACREF CLEAR
00317  M01S00314.msi     +++|          IFNE   M,X7,1
00318  M01S00315.msi     +++|          MX7 0
00319  M01S00316.msi     +++|          R= B2,L
00320  M01S00317.msi     +++|          R= B3,L+C
00321  M01S00318.msi     +++| A        SA7 B2
00322  M01S00319.msi     +++|          SB2 B2+B1
00323  M01S00320.msi     +++|          NE B2,B3,A
00324  M01S00321.msi     +++|          ENDM
00325  M01S00322.msi     +++| ERROR    SPACE  4
00326  M01S00323.msi     +++|**        ERROR - DISPLAY KEYBOARD ERROR MESSAGE.
00327  M01S00324.msi     +++|*
00328  M01S00325.msi     +++|*         ERROR  NUMBER
00329  M01S00326.msi     +++|
00330  M01S00327.msi     +++|
00331  M01S00328.msi     +++|          PURGMAC  ERROR
00332  M01S00329.msi     +++| ERROR    MACRO  N
00333  M01S00330.msi     +++|          MACREF ERROR
00334  M01S00331.msi     +++| .N       MICRO  1,,*N*
00335  M01S00332.msi     +++|          SA1 ERROR".N"
00336  M01S00333.msi     +++|          RJ MTW
00337  M01S00334.msi     +++|          ENDM
00338  M01S00335.msi     +++|          SPACE  4
00339  M01S00336.msi     +++|**        KEYMES - DISPLAY KEYBOARD MESSAGE.
00340  M01S00337.msi     +++|*
00341  M01S00338.msi     +++|*         KEYMES MES
00342  M01S00339.msi     +++|
00343  M01S00340.msi     +++|
00344  M01S00341.msi     +++|          PURGMAC  KEYMES
00345  M01S00342.msi     +++|          MACREF KEYMES
00346  M01S00343.msi     +++| KEYMES   MACRO  N
00347  M01S00344.msi     +++|          SA1 N
00348  M01S00345.msi     +++|          RJ MTW
00349  M01S00346.msi     +++|          ENDM
00350  M01S00347.msi     +++|          SPACE  4,10
00351  M01S00348.msi     +++|**        COMMON DECKS.
00352  M01S00349.msi     +++|
00353  M01S00350.msi     +++|
00354  M01S00351.msi     +++|*CALL     COMSDSL
00355  M01S00352.msi     +++|*CALL     COMSDSP
00356  M01S00353.msi     +++|*CALL     COMSESS
00357  M01S00354.msi     +++|*CALL     COMSIOQ
00358  M01S00355.msi     +++|*CALL     COMSLSD
00359  M01S00356.msi     +++|*CALL     COMSMLS
Line S00357 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00357.253l688 ---|*CALL     COMSMSI
00361  M01S00003.253l688 +++|          LIST   X
00362  M01S00004.253l688 +++|*CALL     COMSMSI
00363  M01S00005.253l688 +++|          LIST   *
00364  M01S00358.msi     +++|*CALL     COMSMSP
00365  M01S00359.msi     +++|*CALL     COMSMST
00366  M01S00360.msi     +++|*CALL     COMSPFM
00367  M01S00361.msi     +++|*CALL     COMSPRD
Line S00362 Modification History
M01 (Added by) msi
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00362.286l859 ---|*CALL     COMSPFS
00369  M01S00363.msi     +++|          QUAL   PFU
00370  M01S00364.msi     +++|*CALL     COMSPFU
00371  M01S00365.msi     +++|          QUAL   *
00372  M01S00366.msi     +++| CTCT     EQU    /PFU/CTCT
00373  M01S00367.msi     +++| CTCU     EQU    /PFU/CTCU
00374  M01S00368.msi     +++| CTLM     EQU    /PFU/CTLM
00375  M01S00369.msi     +++| CTOP     EQU    /PFU/CTOP
00376  M01S00370.msi     +++| CTSU     EQU    /PFU/CTSU
00377  M01S00371.msi     +++| FTCA     EQU    /PFU/FTCA
00378  M01S00372.msi     +++| FTPM     EQU    /PFU/FTPM
00379  M01S00373.msi     +++| FTSC     EQU    /PFU/FTSC
00380  M01S00374.msi     +++|*CALL     COMSSFM
00381  M01S00006.253l688 +++|*CALL     COMSSSD
00382  M01S00375.msi     +++|*CALL     COMSSSJ
00383  M01S00376.msi     +++|          TITLE  ASSEMBLY CONSTANTS.
Line S00377 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00377.253l688 ---|
Line S00378 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00378.253l688 ---|*         EQUATES FOR IMS FUNCTIONS.
Line S00379 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00379.253l688 ---|
Line S00380 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00380.253l688 ---|
Line S00381 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00381.253l688 ---|
Line S00382 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00382.253l688 ---| IND      EQU    0100B       INITIALIZE DEVICE
Line S00383 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00383.253l688 ---| EDT      EQU    0200B       EDIT DA FILES ON DEVICE
Line S00384 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00384.253l688 ---| SFL      EQU    0300B       SET FLAWS ON DEVICE
Line S00385 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00385.253l688 ---| CSD      EQU    0400B       CHECK SHARED DEVICE
Line S00386 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00386.253l688 ---| ILA      EQU    0500B       INITIALIZE LOCAL AREAS
Line S00387 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00387.253l688 ---| MMS      EQU    0600B       MODIFY MASS STORAGE TABLES
Line S00388 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00388.253l688 ---| CIN      EQU    0700B       CLEAR INITIALIZE BIT
Line S00389 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00396  M02S00389.253l688 ---| IDF      EQU    1000B       INITIALIZE DAYFILES
Line S00390 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00390.253l688 ---| CIT      EQU    1100B       CLEAR CMS INTERLOCK
Line S00391 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00391.253l688 ---| ISD      EQU    1200B       INTERLOCK INDEPENDENT SHARED DEVICE
Line S00392 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00392.253l688 ---|
00400  M01S00007.253l688 +++|          SPACE  4,5
00401  M01S00393.msi     +++|*         TABLE AND BUFFER SIZES.
00402  M01S00394.msi     +++|
00403  M01S00395.msi     +++| PKLL     EQU    10B         LENGTH OF PACK LINK TABLE
00404  M01S00396.msi     +++| CATBL    EQU    1011B       CATALOG BUFFER LENGTH
00405  M01S00397.msi     +++| SCRBL    EQU    201B        SCRATCH BUFFER LENGTH
00406  M01S00001.286l859 +++| PARAML   EQU    40B         PARAMETER AREA LENGTH
00407  M01S00398.msi     +++|          TITLE  DISPLAY BUFFER LINE NUMBER TABLES.
00408  M01S00399.msi     +++|          SPACE  4
00409  M01S00400.msi     +++|          TITLE  PARAMETER HOLD AREA.
00410  M01S00401.msi     +++|          ORG    106B
00411  M01S00402.msi     +++| ORIG     BSS    1           COMMAND NAME (FOR *UPC*)
Line S00403 Modification History
M01 (Added by) msi
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00403.286l859 ---| PAR      BSS    /COMSPFS/PARAML  PARAMETER AREA
00413  M01S00002.286l859 +++| PAR      BSS    PARAML      PARAMETER AREA
00414  M01S00404.msi     +++|          SPACE  4
00415  M01S00405.msi     +++|*         OPTION TABLE.
00416  M01S00406.msi     +++|
00417  M01S00407.msi     +++| OTBL     EQU    *
00418  M01S00408.msi     +++|          LOC    0
00419  M01S00409.msi     +++| PMFN     BSS    1           FAMILY NAME
00420  M01S00410.msi     +++| PMUN     BSS    1           USER NAME
00421  M01S00411.msi     +++| PMID     BSS    1           ID ENTRY
00422  M01S00412.msi     +++|          BSS    1
00423  M01S00413.msi     +++| PMTY     BSS    1           TYPE ENTRY
00424  M01S00414.msi     +++| PMLA     BSS    1           LOWER ACCESS LEVEL
00425  M01S00415.msi     +++| PMUA     BSS    1           UPPER ACCESS LEVEL
00426  M01S00416.msi     +++| NNME     EQU    *-PMFN
00427  M01S00417.msi     +++| PMDM     BSS    1           DEVICE MASK
00428  M01S00418.msi     +++| PMSM     BSS    1           SECONDARY MASK
00429  M01S00419.msi     +++| PMNC     BSS    1           NUMBER CATALOG TRACKS
00430  M01S00420.msi     +++| PMNP     BSS    1           NUMBER OF PACKS
00431  M01S00421.msi     +++| PMDN     BSS    1           DEVICE NUMBER
00432  M01S00422.msi     +++| PMEQ     BSS    1           EST ORDINAL
00433  M01S00423.msi     +++| PMOP     BSS    1           OPTION
00434  M01S00424.msi     +++| PMXX     BSS    1           GARBAGE INPUT
00435  M01S00425.msi     +++| NOCT     EQU    *-PMDM
00436  M01S00426.msi     +++|          LOC    *O
00437  M01S00427.msi     +++| OTBLL    EQU    *-OTBL      OPTION TABLE LENGTH
00438  M01S00428.msi     +++|          ORG    OTBL
00439  M01S00429.msi     +++|          SPACE  4
00440  M01S00430.msi     +++|*         TENP - TABLE OF ENTERED PARAMETERS.
00441  M01S00431.msi     +++|
00442  M01S00432.msi     +++|
00443  M01S00433.msi     +++| TENP     BSS    0
00444  M01S00434.msi     +++|          BSS    OTBLL
00445  M01S00435.msi     +++|          SPACE  4
00446  M01S00436.msi     +++|*         PARC - TABLE OF CONVERTED PARAMETERS.
00447  M01S00437.msi     +++|
00448  M01S00438.msi     +++|
00449  M01S00439.msi     +++| PARC     BSS    0           42/FN,18/0
00450  M01S00440.msi     +++|          BSSZ   OTBLL       42/UI,18/0
00451  M01S00441.msi     +++|                             42/ID,18/0
00452  M01S00442.msi     +++|                             42/ID,18/0
00453  M01S00443.msi     +++|                             06/TY,54/0
00454  M01S00444.msi     +++|                             42/LA,18/0
00455  M01S00445.msi     +++|                             42/UA,18/0
00456  M01S00446.msi     +++|                             52/0,8/DM
00457  M01S00447.msi     +++|                             52/0,8/SM
00458  M01S00448.msi     +++|                             57/0,3/NC
00459  M01S00449.msi     +++|                             57/0,3/NP
00460  M01S00450.msi     +++|                             54/0,6/DN
00461  M01S00451.msi     +++|                             54/0,6/EQ
00462  M01S00452.msi     +++|                             57/0,3/OP
00463  M01S00453.msi     +++|                             60/TRASH
00464  M01S00454.msi     +++|          SPACE  4
00465  M01S00455.msi     +++|*         TARG - ARGUMENT TABLE.
00466  M01S00456.msi     +++|
00467  M01S00457.msi     +++|
00468  M01S00458.msi     +++| TARG     BSS    0
00469  M01S00459.msi     +++| FM       ARG    DARG,(TENP+PMFN),400B
00470  M01S00460.msi     +++| PN       ARG    DARG,(TENP+PMFN),400B
00471  M01S00461.msi     +++| UN       ARG    DARG,(TENP+PMUN),400B
00472  M01S00462.msi     +++| TY       ARG    DARG,(TENP+PMTY),400B
00473  M01S00463.msi     +++| ENLA     BSS    0
00474  M01S00464.msi     +++| LA       ARG    DARG,(TENP+PMLA),400B
00475  M01S00465.msi     +++| ENUA     BSS    0
00476  M01S00466.msi     +++| UA       ARG    DARG,(TENP+PMUA),400B
00477  M01S00467.msi     +++| DM       ARG    DARG,(TENP+PMDM),400B
00478  M01S00468.msi     +++| SM       ARG    DARG,(TENP+PMSM),400B
00479  M01S00469.msi     +++| NC       ARG    DARG,(TENP+PMNC),400B
00480  M01S00470.msi     +++| NP       ARG    DARG,(TENP+PMNP),400B
00481  M01S00471.msi     +++| DN       ARG    DARG,(TENP+PMDN),400B
00482  M01S00472.msi     +++| DARG     BSSZ   1           DEFAULT ENTRY
00483  M01S00473.msi     +++| ENDP     BSS    0
00484  M01S00474.msi     +++| OP       ARG    DARG,(TENP+PMOP),400B
00485  M01S00475.msi     +++|          BSSZ   1
00486  M01S00476.msi     +++| ENEQ     BSS    0
00487  M01S00477.msi     +++| EQ       ARG    DARG,(TENP+PMEQ),400B
00488  M01S00478.msi     +++|          BSSZ   1
00489  M01S00479.msi     +++| ENMS     BSS    0
00490  M01S00480.msi     +++| DM       ARG    DARG,(TENP+PMDM),400B
00491  M01S00481.msi     +++| NC       ARG    DARG,(TENP+PMNC),400B
00492  M01S00482.msi     +++|          BSSZ   1
00493  M01S00483.msi     +++| ENDN     BSS    0
00494  M01S00484.msi     +++| DN       ARG    DARG,(TENP+PMDN),400B
00495  M01S00485.msi     +++|          BSSZ   1
00496  M01S00486.msi     +++| EIDS     BSS    0
00497  M01S00487.msi     +++| FM       ARG    DARG,(TENP+PMID),400B
00498  M01S00488.msi     +++| PN       ARG    DARG,(TENP+PMID),400B
00499  M01S00489.msi     +++| UN       ARG    DARG,(TENP+PMID+1),400B
00500  M01S00490.msi     +++| DN       ARG    DARG,(TENP+PMID+1),400B
00501  M01S00491.msi     +++|          BSSZ   1
00502  M01S00492.msi     +++| HNGP     BSS    0
00503  M01S00493.msi     +++| XX       ARG    DARG,(TENP+PMXX),400B
00504  M01S00494.msi     +++|          BSSZ   1
00505  M01S00495.msi     +++| DATB     SPACE  4,10
00506  M01S00496.msi     +++|*         DATB - DISPLAY ADDRESS TABLE.
00507  M01S00497.msi     +++|
00508  M01S00498.msi     +++|
00509  M01S00499.msi     +++| DATB     BSS    0           DISPLAY ADDRESS TABLE
00510  M01S00500.msi     +++|          CON    FNDS+1
00511  M01S00501.msi     +++|          CON    UNDS+1
00512  M01S00502.msi     +++|          CON    SCRB
00513  M01S00503.msi     +++|          CON    SCRB
00514  M01S00504.msi     +++|          CON    TYDS+1
00515  M01S00505.msi     +++|          CON    LADS+1
00516  M01S00506.msi     +++|          CON    UADS+1
00517  M01S00507.msi     +++|          CON    DMDS+1
00518  M01S00508.msi     +++|          CON    SMDS+1
00519  M01S00509.msi     +++|          CON    NCDS+1
00520  M01S00510.msi     +++|          CON    NPDS+1
00521  M01S00511.msi     +++|          CON    DNDS+1
00522  M01S00512.msi     +++|          CON    EQDS+1
00523  M01S00513.msi     +++|          CON    SCRB
00524  M01S00514.msi     +++|          CON    SCRB
00525  M01S00515.msi     +++| DAST     CON    LTDS+1      LEFT SCREEN ADDRESS
00526  M01S00516.msi     +++| DASM     CON    LTDS+3      MATCH ADDRESS FOR TRT
00527  M01S00517.msi     +++|          SPACE  4
00528  M01S00518.msi     +++| FETS     SPACE  4,10
00529  M01S00519.msi     +++|*         FETS.
00530  M01S00520.msi     +++|
00531  M01S00521.msi     +++|
00532  M01S00522.msi     +++| QFET     FILEB  CATB,CATBL,EPR,FET=8  *QFM* FET
00533  M01S00523.msi     +++| CATS     FILEB  CATB,CATBL,FET=10     *PFU* FET
00534  M01S00524.msi     +++| UIFT     FILEB  0,0,FET=10            *PFU* UTILITY INTERLOCK FET
00535  M01S00008.253l688 +++| OUTPUT   FILEC  0,0                   *ABT* PROCESSOR OUTPUT FET
00536  M01S00525.msi     +++| FLAGS    SPACE  4
00537  M01S00526.msi     +++|*         FLAGS (CLEARED BY *PRS*).
00538  M01S00527.msi     +++|
00539  M01S00528.msi     +++| FLGS     EQU    *           FWA OF FLAG BLOCK
00540  M01S00529.msi     +++| TEMP     BSS    1           TEMPORARY CELL
00541  M01S00530.msi     +++| FLAG     BSS    1           FLAGS NO PARAMETER INPUT NEEDED
00542  M01S00531.msi     +++| PVT      BSS    1           FLAGS DEVICE IS PRIVATE PACK
00543  M01S00532.msi     +++| DSI      BSS    1           FLAG DEADSTART INITIALIZE
00544  M01S00533.msi     +++| TOTL     BSS    1           FLAG TOTAL INITIALIZE (NEGATIVE)
00545  M01S00534.msi     +++| PALF     BSS    1           PACKS ALLOCATED FLAG 12/EQ NUMBER
00546  M01S00535.msi     +++| CNT      BSS    1           PARAMETER COUNT/ CATALOG TRACK COUNT
00547  M01S00536.msi     +++| LCRC     BSS    1           LOW CORE READ CONTROL WORD
00548  M01S00537.msi     +++| BUFI     BSS    1           INDEX TO MST RECORDS IN BUFFER
00549  M01S00538.msi     +++| ARGP     BSS    1           POINTER TO CURRENT ARGUMENT TABLE
00550  M01S00539.msi     +++| PFUF     BSS    1           FLAG *PFU* ACTIVE
00551  M01S00540.msi     +++| UIFL     BSS    1           UTILITY INTERLOCK FLAG (PFU)
00552  M01S00541.msi     +++| LINK     BSS    1           LINK EST ORDINAL
00553  M01S00542.msi     +++| CLF      BSS    1           FLAG *CLEAR* REQUEST ENTERED
00554  M01S00543.msi     +++| CLOV     BSS    1           *CLEAR* OVERRIDE EST ORDINAL
00555  M01S00544.msi     +++| SSFL     BSS    1           SECURE SYSTEM FLAG
00556  M01S00009.253l688 +++| SSID     CON    MSSI        SUBSYSTEM ID
00557  M01S00545.msi     +++| FLGSL    EQU    *-FLGS      LENGTH OF FLAG BLOCK
00558  M01S00546.msi     +++|          SPACE  4
00559  M01S00547.msi     +++|**        TEMPORARY CELLS.
00560  M01S00548.msi     +++|
00561  M01S00549.msi     +++|
00562  M01S00550.msi     +++| EQ       CON    0           EST ORDINAL (DISPLAY CODE)
00563  M01S00551.msi     +++| RQ       CON    0           INITIALIZE REQUESTS PROCESSED
00564  M01S00552.msi     +++|
00565  M01S00553.msi     +++|*         FLAW FLAG.
00566  M01S00554.msi     +++|
00567  M01S00555.msi     +++| FLFG     CON    0           IF SET, FLAW PROCESSING
00568  M01S00556.msi     +++|          TITLE  MAIN LOOP.
00569  M01S00557.msi     +++|**        MSI - MAIN PROGRAM.
00570  M01S00558.msi     +++|
00571  M01S00559.msi     +++|
00572  M01S00560.msi     +++| MSI      SB1    1
Line S00561 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00561.253l688 ---|          EREXIT ABT         SET ABORT PROCESSOR ADDRESS
00574  M01S00010.253l688 +++|          EREXIT  ABT1       SET ABORT PROCESSOR ADDRESS
00575  M01S00562.msi     +++|          BX6    X6-X6       CLEAR FLAW FLAG
00576  M01S00563.msi     +++|          SA6    FLFG
00577  M01S00564.msi     +++| MSI1     RJ     PRS         PRESET
00578  M01S00565.msi     +++|          RJ     CIR         CHECK INITIALIZATION REQUESTED
00579  M01S00566.msi     +++|          SA1    RQ
00580  M01S00567.msi     +++|          PL     B6,MSI3     IF INITIALIZATION REQUESTED
00581  M01S00568.msi     +++|          NZ     X1,MSI2     IF AT LEAST ONE REQUEST PROCESSED
00582  M01S00569.msi     +++|          MESSAGE  MESC      * NO INITIALIZE REQUESTS SET FOR MSI.*
00583  M01S00570.msi     +++| MSI2     KEYMES EDRN        *END OF RUN.*
00584  M01S00571.msi     +++|          SYSTEM IMS,R,,CIT  CLEAR *CMS* INTERLOCK
00585  M01S00572.msi     +++|          EXCST  =C*CMS.*    CALL *CMS* TO UPDATE SYSTEM CONFIGURATION
00586  M01S00573.msi     +++|          ENDRUN
00587  M01S00574.msi     +++|
00588  M01S00575.msi     +++|*         IF EQUIPMENT AVAILABLE AND NOT DEADSTART STATUS OR
00589  M01S00576.msi     +++|*         IF EQUIPMENT UNAVAILABLE AND IF THE LABEL WAS RECOVERED,
00590  M01S00577.msi     +++|*         REQUEST THE VERIFICATION OF THE DEVICES PARAMETERS AND COPY
00591  M01S00578.msi     +++|*         THE INFORMATION TO THE K DISPLAY. OTHERWISE GO REQUEST INPUT
00592  M01S00579.msi     +++|*         OF THE NEW PARAMETERS.
00593  M01S00580.msi     +++|
00594  M01S00581.msi     +++| MSI3     SX6    X1+B1       INCREMENT REQUESTS PROCESSED
00595  M01S00582.msi     +++|          SA6    A1
00596  M01S00583.msi     +++|          RJ     DSP         DISPLAY EQUIPMENTS TO BE PROCESSED
00597  M01S00584.msi     +++|          RJ     DIO         DISPLAY INITIALIZE OPTIONS
00598  M01S00585.msi     +++|          SA5    PARC+PMEQ
00599  M01S00586.msi     +++|          R=     X1,ESTE
00600  M01S00587.msi     +++|          IX1    X5*X1
00601  M01S00588.msi     +++|          SA1    ESTB+X1+EQDE  GET EST ENTRY
00602  M01S00589.msi     +++|          SX7    TARG
00603  M01S00590.msi     +++|          SA4    ESTF+X5
00604  M01S00591.msi     +++|          SA7    ARGP
00605  M01S00592.msi     +++|          SA3    X4+STLL
00606  M01S00593.msi     +++|          MX6    6
00607  M01S00594.msi     +++|          LX6    -18
00608  M01S00595.msi     +++|          BX7    -X6*X3      CLEAR ERROR STATUS
00609  M01S00596.msi     +++|          LX1    59-54
00610  M01S00597.msi     +++|          SA7    X4+STLL
00611  M01S00598.msi     +++|          BX3    X6*X3
00612  M01S00599.msi     +++|          LX7    59-LIAL
00613  M01S00600.msi     +++|          SA2    X4+PFGL
00614  M01S00601.msi     +++|          NG     X7,MSI4.1   IF DEADSTART INITIALIZE
00615  M01S00602.msi     +++|          LX3    24
00616  M01S00603.msi     +++|          AX2    12
00617  M01S00604.msi     +++|          ZR     X3,MSI5     IF NO ERROR STATUS
00618  M01S00605.msi     +++|          SA4    TOTL
00619  M01S00606.msi     +++|          NG     X4,MSI4     IF FULL INITIALIZE
00620  M01S00607.msi     +++|          ERROR  25          *FULL INITIALIZE REQUIRED.*
00621  M01S00608.msi     +++|          EQ     MSI6        HALT PROCESSING ON CURRENT DEVICE
00622  M01S00609.msi     +++|
00623  M01S00610.msi     +++| MSI4     NZ     X2,MSI7     IF RECOVERED LABEL
00624  M01S00611.msi     +++|          SX6    X3-STLE
00625  M01S00612.msi     +++|          NZ     X6,MSI4.1   IF NOT LABEL ERROR
00626  M01S00613.msi     +++|          LX1    54-56
00627  M01S00614.msi     +++|          PL     X1,MSI7.1   IF NOT REMOVABLE DEVICE
00628  M01S00615.msi     +++|          RJ     SAL         SET ACCESS LEVEL DEFAULTS
00629  M01S00616.msi     +++|          EQ     MSI10       PROCESS KEYBOARD INPUT
00630  M01S00617.msi     +++|
00631  M01S00618.msi     +++| MSI4.1   NG     X1,MSI5     IF EQUIPMENT UNAVAILABLE
00632  M01S00619.msi     +++|
00633  M01S00620.msi     +++|*         IF INITIALIZE SET, DEVICE AVAILABLE AND DEADSTART STATUS,
00634  M01S00621.msi     +++|*         INITIALIZE AND DO NOT STOP FOR OPERATOR INTERVENTION.
00635  M01S00622.msi     +++|
00636  M01S00623.msi     +++|          MX6    1
00637  M01S00624.msi     +++|          BX7    X7-X7
00638  M01S00625.msi     +++|          SA6    DSI         FLAG DEADSTART INITIALIZE
00639  M01S00626.msi     +++|          EQ     MSI9        DEADSTART INITIALIZE (COPY PARAMETERS)
00640  M01S00627.msi     +++|
00641  M01S00628.msi     +++| MSI5     SA4    ESTF+X5
00642  M01S00629.msi     +++|          SA3    X4+PFGL
00643  M01S00630.msi     +++|          MX1    -3
00644  M01S00631.msi     +++|          AX3    3
00645  M01S00632.msi     +++|          BX1    -X1*X3
00646  M01S00633.msi     +++|          BX6    -X5
00647  M01S00634.msi     +++|          ZR     X1,MSI7     IF ONE OF M
00648  M01S00635.msi     +++|          SA6    CLOV        SET OVERRIDE *CLEAR* INDICATOR
00649  M01S00636.msi     +++|          ERROR  18          *DEVICE NOT FIRST IN CHAIN.*
00650  M01S00637.msi     +++| MSI6     SX6    HNGP
00651  M01S00638.msi     +++|          SX7    7777B
00652  M01S00639.msi     +++|          SA6    ARGP
00653  M01S00640.msi     +++|          SA7    CNT
00654  M01S00641.msi     +++|          RJ     PKI         STOP FURTHER PROCESSING
00655  M01S00642.msi     +++|          KEYMES ENCL        *ENTER CLEAR OR RERUN.*
00656  M01S00643.msi     +++|          EQ     MSI6        LOOP
00657  M01S00644.msi     +++|
00658  M01S00645.msi     +++| MSI7     SA4    ESTF+X5     CHECK STATUS OF DEVICE
00659  M01S00646.msi     +++|          SA1    X4+DULL
00660  M01S00647.msi     +++|          SA2    X4+ACGL
00661  M01S00648.msi     +++|          SA3    X4+MDGL
00662  M01S00649.msi     +++|          SA4    X4+STLL
00663  M01S00650.msi     +++|          NG     X3,MSI8     IF DEVICE REMOVABLE
00664  M01S00651.msi     +++|          LX2    59-4
00665  M01S00652.msi     +++|          PL     X2,MSI8     IF ERROR IDLE NOT SET
00666  M01S00653.msi     +++| MSI7.1   ERROR  24          *DEADSTART INITIALIZE REQUIRED.*
00667  M01S00654.msi     +++|          EQ     MSI6        STOP PROCESSING
00668  M01S00655.msi     +++|
00669  M01S00656.msi     +++| MSI8     MX3    -12
00670  M01S00657.msi     +++|          LX4    -12
00671  M01S00658.msi     +++|          BX7    -X3*X4
00672  M01S00659.msi     +++|          MX3    -11
00673  M01S00660.msi     +++|          BX1    -X3*X1
00674  M01S00661.msi     +++|          MX0    18
00675  M01S00662.msi     +++|          LX4    59-LIPF+12
00676  M01S00663.msi     +++|          BX7    X7+X1
00677  M01S00664.msi     +++|          SA2    CLF         CHECK *CLEAR* FLAG
00678  M01S00665.msi     +++|          ZR     X7,MSI9     IF NO ACTIVE FILES/USERS
00679  M01S00666.msi     +++|          NZ     X2,CLEAR    IF *CLEAR* FLAG SET
00680  M01S00667.msi     +++|          PL     X4,MSI9     IF NOT INITIALIZING PF,S
00681  M01S00668.msi     +++|          LX0    -18
00682  M01S00669.msi     +++|          SA4    EQ
00683  M01S00670.msi     +++|          LX4    42-18
00684  M01S00671.msi     +++|          SA1    MESA
00685  M01S00672.msi     +++|          BX7    -X0*X1
00686  M01S00673.msi     +++|          BX7    X7+X4
00687  M01S00674.msi     +++|          SA7    A1
00688  M01S00675.msi     +++|          MESSAGE  MESA      * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
Line S00676 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00676.253l688 ---|          EQ     ABT         ABORT *MSI*
00690  M01S00011.253l688 +++|          RJ     ABT         ABORT *MSI*
00691  M01S00677.msi     +++|
00692  M01S00678.msi     +++| MSI9     SA7    CLF         CLEAR *CLEAR* FLAG
00693  M01S00679.msi     +++|          RJ     CPY         COPY PARAMETERS TO K-DISPLAY
00694  M01S00680.msi     +++|          SX6    B1          ALLOW FLAW ENTRIES TO NOW BE MADE
00695  M01S00681.msi     +++|          SA6    CFEB
00696  M01S00682.msi     +++|          SA1    DSI
00697  M01S00683.msi     +++|          SA2    TOTL
00698  M01S00684.msi     +++|          MI     X1,MSI12    IF DEADSTART INITIALIZE
00699  M01S00685.msi     +++|          PL     X2,MSI12    IF NOT TOTAL INITIALIZE
00700  M01S00686.msi     +++| MSI10    SX7    200
00701  M01S00687.msi     +++|          SA7    CNT
00702  M01S00688.msi     +++|          KEYMES REQPM       *ENTER PARAMETERS.*
00703  M01S00689.msi     +++| MSI11    RJ     PKI         PROCESS KEYBOARD INPUT
00704  M01S00690.msi     +++| MSI12    RJ     PPM         PROCESS PARAMETERS
00705  M01S00691.msi     +++|          ZR     X7,MSI11    IF MORE INPUT NEEDED
00706  M01S00692.msi     +++|          RJ     CRE         CHECK REQUIRED ENTRIES
00707  M01S00693.msi     +++|          ZR     X6,MSI12    IF PARAMETERS TO PROCESS
00708  M01S00694.msi     +++|          SA4    TOTL
00709  M01S00695.msi     +++|          SA5    PARC+PMEQ
00710  M01S00696.msi     +++|          NG     X4,MSI12.1  IF TOTAL INITIALIZE
00711  M01S00697.msi     +++|          SA4    X5+ESTF
00712  M01S00698.msi     +++|          SA4    X4+STLL
00713  M01S00699.msi     +++|          LX4    59-LIPF
00714  M01S00700.msi     +++|          PL     X4,MSI14.1  IF NOT *PF* INITIALIZE
00715  M01S00701.msi     +++| MSI12.1  BSS    0
00716  M01S00702.msi     +++|          RJ     UMS         UPDATE MSTS
00717  M01S00703.msi     +++|          ZR     X1,MSI13    IF DEVICE ALLOWED
00718  M01S00704.msi     +++|          KEYMES ERROR22     *DEFINED DEVICE ALREADY EXISTS.*
00719  M01S00705.msi     +++|          EQ     MSI11       PROCESS NEW INPUT
00720  M01S00706.msi     +++|
00721  M01S00707.msi     +++| MSI13    RJ     EDF         SEPARATE FAMILY FROM OTHER EQUIPMENTS
00722  M01S00708.msi     +++|          SA1    ESTF+B7
00723  M01S00709.msi     +++|          SA4    X1+MDGL
00724  M01S00710.msi     +++|          LX4    59-58
00725  M01S00711.msi     +++|          NG     X4,MSI14    IF AUXILIARY DEVICE
00726  M01S00712.msi     +++|          RJ     CMS         CHECK MASKS
00727  M01S00713.msi     +++|          MI     X7,MSI12    PROCESS NEW PARAMETERS
00728  M01S00714.msi     +++|          SA5    PARC+PMEQ
00729  M01S00715.msi     +++|          SA1    ESTF+X5
00730  M01S00716.msi     +++|          LX1    59-54
00731  M01S00717.msi     +++|          NG     X1,MSI14    IF DEVICE UNAVAILABLE
00732  M01S00718.msi     +++|          RJ     ECT         EDIT CATALOGS
00733  M01S00719.msi     +++|          RJ     EDD         EDIT DIRECT ACCESS FILES IN FAMILY
00734  M01S00720.msi     +++| MSI14    SA5    PARC+PMEQ
00735  M01S00721.msi     +++|          SYSTEM IMS,R,X5,IND INITIALIZE PERMANENT FILES
00736  M01S00722.msi     +++| MSI14.1  RJ     ISF         INITIALIZE SPECIAL FILES
00737  M01S00723.msi     +++|          SA1    FLAI
00738  M01S00724.msi     +++|          SX1    X1-TFLA
00739  M01S00725.msi     +++|          ZR     X1,CLEAR    IF NO FLAWS
00740  M01S00726.msi     +++|          SA1    TFLA
00741  M01S00727.msi     +++|          BX2    X5
00742  M01S00728.msi     +++|          LX2    59-35
00743  M01S00729.msi     +++|          BX7    X2+X1       SET EQ NUMBER IN FLAW TABLE
00744  M01S00730.msi     +++|          SA7    A1          RESET TABLE WITH EQ NUMBER ADDED
00745  M01S00731.msi     +++|          SYSTEM IMS,R,TFLA,SFL    SET FLAWS
00746  M01S00732.msi     +++|
00747  M01S00733.msi     +++|*         CHECK FOR MORE DEVICES TO BE INITIALIZED.
00748  M01S00734.msi     +++|
00749  M01S00735.msi     +++| CLEAR    BSS    0           CLEAR INITIALIZE REQUEST
00750  M01S00736.msi     +++|          SA5    PARC+PMEQ
00751  M01S00737.msi     +++|          SA4    CLOV        CHECK OVERRIDE ON THIS EQUIPMENT
00752  M01S00738.msi     +++|          SA2    PKL-1
00753  M01S00739.msi     +++|          SA1    ESTF+X5
00754  M01S00740.msi     +++|          SA1    X1+STLL
00755  M01S00741.msi     +++|          SX6    B1
00756  M01S00742.msi     +++|          PL     X4,MSI15    IF OVERRIDE NOT SET
00757  M01S00743.msi     +++|          IX6    X5+X4       CHECK EQUIPMENT
00758  M01S00744.msi     +++| MSI15    MX3    60-LIRP     CLEAR CURRENT INITIALIZE REQUESTS
00759  M01S00745.msi     +++|          BX1    -X3*X1
00760  M01S00746.msi     +++|          MX3    48-LIMF
00761  M01S00747.msi     +++|          LX3    48
00762  M01S00748.msi     +++|          BX7    -X3*X1
00763  M01S00749.msi     +++|          SA7    A1
00764  M01S00750.msi     +++|          SA1    CLF         CHECK FOR CLEAR OPERATION
00765  M01S00751.msi     +++|          ZR     X1,MSI16    IF NOT *CLEAR*
00766  M01S00752.msi     +++|          ZR     X6,MSI16    IF OVERRIDE SET FOR THIS EST ORDINAL
00767  M01S00753.msi     +++|          RJ     EDF         SEPARATE THE FAMILY FROM OTHER DEVICES
00768  M01S00754.msi     +++|          RJ     CMS         CHECK MASKS
00769  M01S00755.msi     +++|          MI     X7,MSI      PROCESS NEW DATA AS A RERUN
00770  M01S00756.msi     +++|          SA2    PKL-1
00771  M01S00757.msi     +++|          SA5    PARC+PMEQ
00772  M01S00758.msi     +++| MSI16    ZR     X5,MSI17    IF EST ORDINAL ZERO
00773  M01S00759.msi     +++|          SB5    X5          SAVE EST ORDINAL
00774  M01S00760.msi     +++|          SYSTEM IMS,R,X5,CIN  CLEAR CURRENT INITIALIZE REQUEST
00775  M01S00761.msi     +++|          SA2    A2+B1
00776  M01S00762.msi     +++|          SX5    X2
00777  M01S00763.msi     +++|          NZ     X5,MSI16    IF LINKED PACKS CLEAR THEIR INITIALIZE
00778  M01S00764.msi     +++|                             REQUESTS.
00779  M01S00765.msi     +++|          SA1    ESTF+B5     CHECK *ISD* INTERLOCK
00780  M01S00766.msi     +++|          LX1    59-58
00781  M01S00767.msi     +++|          PL     X1,MSI17    IF NO INTERLOCK SET
00782  M01S00768.msi     +++| MSI16.1  SA2    PARC+PMEQ
00783  M01S00769.msi     +++|          BX6    X2
00784  M01S00770.msi     +++|          LX6    48
00785  M01S00771.msi     +++|          SA6    CIRB
00786  M01S00772.msi     +++|          SYSTEM IMS,R,CIRB,ISD  CLEAR DEVICE INTERLOCK
00787  M01S00773.msi     +++|          SA1    CIRB
00788  M01S00774.msi     +++|          PL     X1,MSI16.1  IF INTERLOCK NOT CLEAR
00789  M01S00775.msi     +++| MSI17    RJ     CDS         CLEAR THE DISPLAY
00790  M01S00776.msi     +++|          EQ     MSI1        LOOP FOR MORE EQUIPMENTS
00791  M01S00777.msi     +++|
00792  M01S00778.msi     +++|          TITLE  AUXILIARY PROCESSORS.
00793  M01S00779.msi     +++| RERUN    SPACE  4,10
00794  M01S00780.msi     +++|**        RERUN - RERUN *MSI*.
00795  M01S00781.msi     +++|
00796  M01S00782.msi     +++|
00797  M01S00783.msi     +++| RERUN    RJ     CDS         CLEAR DISPLAY
00798  M01S00784.msi     +++|          SA1    RERNA       LOAD RERUN ADDRESS
00799  M01S00785.msi     +++|          SB2    X1
00800  M01S00786.msi     +++|          JP     B2          RERUN THE SELECTED OPTION
00801  M01S00787.msi     +++|
00802  M01S00788.msi     +++| RERNA    VFD    42/0,18/MSI2
00803  M01S00789.msi     +++| TKL      SPACE  4,10
00804  M01S00790.msi     +++|**        TKL - TRACK LIMIT PROCESSING.
00805  M01S00791.msi     +++|
00806  M01S00792.msi     +++|
00807  M01S00793.msi     +++|
00808  M01S00794.msi     +++| TKL      SA1    PARC+PMEQ   SET EST ORDINAL IN TRACK LIMIT MESSAGE
00809  M01S00795.msi     +++|          RJ     COD
00810  M01S00796.msi     +++|          SA4    ERROR26
00811  M01S00797.msi     +++|          MX7    -18
00812  M01S00798.msi     +++|          LX6    48-18
00813  M01S00799.msi     +++|          LX7    48-18
00814  M01S00800.msi     +++|          BX6    -X7*X6
00815  M01S00801.msi     +++|          BX7    X7*X4
00816  M01S00802.msi     +++|          BX6    X6+X7
00817  M01S00803.msi     +++|          SA6    A4
00818  M01S00804.msi     +++|          ERROR  26          *EQXXX, TRACK LIMIT.*
00819  M01S00805.msi     +++|          EQ     MSI6        STOP PROCESSING
00820  M01S00806.msi     +++|          SPACE  4
00821  M01S00807.msi     +++|***       FLAW - ENTER DEVICE FLAWS.
00822  M01S00808.msi     +++|
00823  M01S00809.msi     +++|
00824  M01S00810.msi     +++| FLAW     SX6    FLAW        SET RERUN ADDRESS
00825  M01S00811.msi     +++|          SA6    RERNA
00826  M01S00812.msi     +++|          SB1    1
00827  M01S00813.msi     +++|          SX6    B1+         SET FLAW FLAG
00828  M01S00814.msi     +++|          SA6    FLFG
00829  M01S00815.msi     +++|          RJ     PRS
00830  M01S00816.msi     +++|          MX6    60          SET OVERRIDE CONTROL
00831  M01S00817.msi     +++|          SA6    CLOV
00832  M01S00818.msi     +++|          SETRNR NOROLL      PREVENT JOB ROLLOUT
00833  M01S00819.msi     +++|          SA5    LRDS        SET UP DISPLAY CONTROL WORD
00834  M01S00820.msi     +++|          BX7    X5
00835  M01S00821.msi     +++|          SA7    KDCW
00836  M01S00822.msi     +++|          SA5    BLK         CLEAR PAGE 2 OF 2 COMMENT
00837  M01S00823.msi     +++|          BX7    X5
00838  M01S00824.msi     +++|          SA7    LNDS+3
00839  M01S00825.msi     +++|          SA5    FLAA
00840  M01S00826.msi     +++|          BX7    X5
00841  M01S00827.msi     +++|          SA7    LNDS+4
00842  M01S00828.msi     +++|          SA5    FLAB
00843  M01S00829.msi     +++|          BX7    X5
00844  M01S00830.msi     +++|          SA7    L
00845  M01S00831.msi     +++|          SA7    R
00846  M01S00832.msi     +++|          RJ     REQ         REQUEST EQUIPMENT
00847  M01S00833.msi     +++|          SA1    PARC+PMEQ
00848  M01S00834.msi     +++|          BX6    -X1
00849  M01S00835.msi     +++|          SA6    CLOV        SET OVERRIDE CONTROL FOR THIS EQUIPMENT
00850  M01S00836.msi     +++|          RJ     COD
00851  M01S00837.msi     +++|          SX6    B1          ALLOW FLAW ENTRIES TO NOW BE MADE
00852  M01S00838.msi     +++|          SA6    CFEB
00853  M01S00839.msi     +++|          BX6    X4
00854  M01S00840.msi     +++|          SA6    INDS+1      SET EST ORDINAL
00855  M01S00841.msi     +++|          KEYMES ENFLS       *ENTER FLAWS.*
00856  M01S00842.msi     +++|          RJ     PKI         PROCESS KEYBOARD
00857  M01S00843.msi     +++|          SA1    PARC+PMEQ
00858  M01S00844.msi     +++|          SA2    TFLA
00859  M01S00845.msi     +++|          LX1    59-35
00860  M01S00846.msi     +++|          BX7    X1+X2       SET EQ NUMBER IN TABLE
00861  M01S00847.msi     +++|          SA7    TFLA
00862  M01S00848.msi     +++|          SYSTEM IMS,R,A7,SFL
00863  M01S00849.msi     +++|          ENDRUN
00864  M01S00850.msi     +++|
00865  M01S00851.msi     +++| FLAA     DATA   1L
00866  M01S00852.msi     +++| FLAB     VFD    18/0,18/KDTA,24/0  DISPLAY CONTROL WORD
00867  M01S00853.msi     +++| FLAI     CON    TFLA
00868  M01S00854.msi     +++|          SPACE  4,10
00869  M01S00855.msi     +++|**        FLAW TABLE FOR *IMS* CALL.
00870  M01S00856.msi     +++|*
00871  M01S00857.msi     +++|*T WORD1  12/ TYPE, 12/ 0, 12/ EQ, 12/ 0, 12/ TRACK
Figure WORD1

01112232429 TRACK 0 EQ303536474859 EQ 0 TYPE

00872  M01S00858.msi     +++|*T,WORD2-N  12/ TYPE, 12/ 0, 12/ 0, 12/ 0, 12/ TRACK
Figure WORD2-N

01112232429 TRACK 0 0303536474859 0 0 TYPE

00873  M01S00859.msi     +++|*
00874  M01S00860.msi     +++|*         EQ =    EST ORDINAL
00875  M01S00861.msi     +++|*         TYPE =  0 - END TABLE
00876  M01S00862.msi     +++|*                 1 - SET FLAW
00877  M01S00863.msi     +++|*                 2 - CLEAR FLAW
00878  M01S00864.msi     +++|*         TRACK = LOGICAL TRACK TO FLAW
00879  M01S00865.msi     +++|
00880  M01S00866.msi     +++|
00881  M01S00867.msi     +++| TFLA     BSSZ   PNFE        FLAW TABLE
00882  M01S00868.msi     +++|          TITLE  MAJOR PROCESSORS.
00883  M01S00869.msi     +++| REQ      SPACE  4,10
00884  M01S00870.msi     +++|**        REQ - REQUEST EST ORDINAL.
00885  M01S00871.msi     +++|*
00886  M01S00872.msi     +++|*         EXIT   (PARC+PMEQ) = EST ORDINAL.
00887  M01S00873.msi     +++|*
00888  M01S00874.msi     +++|*         USES   X - 1, 2, 4, 5, 6, 7.
00889  M01S00875.msi     +++|*                A - 1, 2, 4, 5, 6, 7.
00890  M01S00876.msi     +++|*
00891  M01S00877.msi     +++|*         CALLS  PKI, COD.
00892  M01S00878.msi     +++|*
00893  M01S00879.msi     +++|*         MACROS ERROR, KEYMES.
00894  M01S00880.msi     +++|
00895  M01S00881.msi     +++|
00896  M01S00882.msi     +++| REQ3     SA1    X4+ESTF
00897  M01S00883.msi     +++|          SA1    X1+STLL
00898  M01S00884.msi     +++|          MX2    1
00899  M01S00885.msi     +++|          MI     X1,REQ2     IF FORMAT PENDING
00900  M01S00886.msi     +++|          LX2    LIAL-59
00901  M01S00887.msi     +++|          BX7    X1+X2       SET INITIALIZE REQUEST IN MST IMAGE
00902  M01S00888.msi     +++|          LX2    LIRP-LIAL
00903  M01S00889.msi     +++|          BX7    X7+X2
00904  M01S00890.msi     +++|          SA7    A1
00905  M01S00891.msi     +++|
00906  M01S00892.msi     +++| REQ      SUBR               ENTRY/EXIT
00907  M01S00893.msi     +++|          SX6    ENEQ
00908  M01S00894.msi     +++|          SA6    ARGP
00909  M01S00895.msi     +++|          KEYMES REQEQ       *ENTER EST ORDINAL.*
00910  M01S00896.msi     +++| REQ1     SX7    B1+
00911  M01S00897.msi     +++|          SA7    CNT
00912  M01S00898.msi     +++|          RJ     PKI         REQUEST EQUIPMENT
00913  M01S00899.msi     +++|          SA4    PARC+PMEQ
00914  M01S00900.msi     +++|          R=     X5,ESTE
00915  M01S00901.msi     +++|          IX5    X4*X5
00916  M01S00902.msi     +++|          SA5    ESTB+X5+EQDE  GET EST ENTRY
00917  M01S00903.msi     +++|          MI     X5,REQ3     IF EQ IS MASS STORAGE DEVICE
00918  M01S00904.msi     +++|          ERROR  5           *EQ OR DN INCORRECT.*
00919  M01S00905.msi     +++|          EQ     REQ1        SEND ERROR MESSAGE AND WAIT ON CORRECTION
00920  M01S00906.msi     +++|
00921  M01S00907.msi     +++| REQ2     BX1    X4
00922  M01S00908.msi     +++|          RJ     COD
00923  M01S00909.msi     +++|          MX7    -18         SET EST ORDINAL IN FORMAT PENDING MESSAGE
00924  M01S00910.msi     +++|          LX6    30
00925  M01S00911.msi     +++|          SA4    ERROR21
00926  M01S00912.msi     +++|          LX7    30
00927  M01S00913.msi     +++|          BX6    -X7*X6
00928  M01S00914.msi     +++|          BX7    X7*X4
00929  M01S00915.msi     +++|          BX6    X6+X7
00930  M01S00916.msi     +++|          SA6    A4
00931  M01S00917.msi     +++|          ERROR  21          *EQXXX, FORMAT PENDING.*
00932  M01S00918.msi     +++|          EQ     REQ1        WAIT ON NEW INPUT
00933  M01S00919.msi     +++|
00934  M01S00920.msi     +++| DSP      SPACE  4,10
00935  M01S00921.msi     +++|**        DSP - DISPLAY EST ORDINALS.
00936  M01S00922.msi     +++|*
00937  M01S00923.msi     +++|*         USES   X - 1, 2, 3, 4, 5, 7.
00938  M01S00924.msi     +++|*                A - 1, 2, 7.
00939  M01S00925.msi     +++|*                B - 2, 3, 4, 5, 6, 7.
00940  M01S00926.msi     +++|*
00941  M01S00927.msi     +++|*         MACROS CLEAR.
00942  M01S00928.msi     +++|
00943  M01S00929.msi     +++|
00944  M01S00930.msi     +++| DSP      SUBR               ENTRY/EXIT
00945  M01S00931.msi     +++|          SB4    OPDS+1
00946  M01S00932.msi     +++|          SA1    BLK         CLEAR THE EQUIPMENT LIST
00947  M01S00933.msi     +++|          BX7    X1
00948  M01S00934.msi     +++|          CLEAR  B4,4,X7
00949  M01S00935.msi     +++|          CLEAR  INDSA+1,4,X7
00950  M01S00936.msi     +++|          SB2    B0
00951  M01S00937.msi     +++|          SB5    B0
00952  M01S00938.msi     +++|          MX4    -3
00953  M01S00939.msi     +++|          SB7    B0
00954  M01S00940.msi     +++| DSP1     SA1    ESTF+B2
00955  M01S00941.msi     +++|          SB2    B2+B1
00956  M01S00942.msi     +++|          SB3    B2-ESMX
00957  M01S00943.msi     +++|          ZR     B3,DSPX     IF END OF EQUIPMENTS
00958  M01S00944.msi     +++|          ZR     X1,DSP1     IF EMPTY LINK
00959  M01S00945.msi     +++|          SA2    X1+STLL
00960  M01S00946.msi     +++|          MI     X2,DSP1     IF FORMAT PENDING
00961  M01S00947.msi     +++|          LX2    59-LIRP
00962  M01S00948.msi     +++|          SX3    B2-B1
00963  M01S00949.msi     +++|          PL     X2,DSP1     IF NO INITIALIZE REQUESTS
00964  M01S00950.msi     +++|          SB5    B5+B1
00965  M01S00951.msi     +++|          BX5    -X4*X3
00966  M01S00952.msi     +++|          AX3    3
00967  M01S00953.msi     +++|          BX7    -X4*X3
00968  M01S00954.msi     +++|          LX7    6
00969  M01S00955.msi     +++|          BX3    X4*X3
00970  M01S00956.msi     +++|          LX3    9
00971  M01S00957.msi     +++|          IX7    X3+X7
00972  M01S00958.msi     +++|          SA3    DSPA
00973  M01S00959.msi     +++|          IX7    X7+X5
00974  M01S00960.msi     +++|          IX7    X7+X3
00975  M01S00961.msi     +++|          SA1    B4+B7       MERGE EQUIPMENT IN DISPLAY
00976  M01S00962.msi     +++|          LX7    42
00977  M01S00963.msi     +++|          EQ     B5,B1,DSP2  IF FIRST EQUIPMENT IN WORD
00978  M01S00964.msi     +++|          LX7    -30
00979  M01S00965.msi     +++|          SB5    B0
00980  M01S00966.msi     +++|          SX2    B7-3
00981  M01S00967.msi     +++|          SB7    B7+B1       NEXT WORD
00982  M01S00968.msi     +++|          NZ     X2,DSP2     IF NOT OVERFLOW TO SECOND LINE
00983  M01S00969.msi     +++|          SB6    INDSA+1
00984  M01S00970.msi     +++|          EQ     B4,B6,DSPX  IF OVERFLOW SECOND LINE
00985  M01S00971.msi     +++|          SB4    B6
00986  M01S00972.msi     +++|          SB7    B0
00987  M01S00973.msi     +++| DSP2     IX7    X7+X1       SET EST ORDINAL IN MESSAGE
00988  M01S00974.msi     +++|          SA7    A1
00989  M01S00975.msi     +++|          EQ     DSP1        LOOP
00990  M01S00976.msi     +++|
00991  M01S00977.msi     +++| DSPA     CON    3R000-3R
00992  M01S00978.msi     +++| CPY      SPACE  4,10
00993  M01S00979.msi     +++|**        CPY - COPY MST PARAMETERS TO DISPLAY BLOCK.
00994  M01S00980.msi     +++|*
00995  M01S00981.msi     +++|*         USES   ALL REGISTERS.
00996  M01S00982.msi     +++|*
00997  M01S00983.msi     +++|*         CALLS  PKI, COD.
00998  M01S00984.msi     +++|*
00999  M01S00985.msi     +++|*         MACROS KEYMES.
01000  M01S00986.msi     +++|
01001  M01S00987.msi     +++|
01002  M01S00988.msi     +++| CPY      SUBR               ENTRY/EXIT
01003  M01S00989.msi     +++|          SA1    DSI
01004  M01S00990.msi     +++|          SA5    PARC+PMEQ
01005  M01S00991.msi     +++|          MX7    1
01006  M01S00992.msi     +++|          SA7    FLAG        FLAG NO PARAMETER INPUT NEEDED
01007  M01S00993.msi     +++|          SA4    ESTF+X5     ADDRESS OF MST
01008  M01S00994.msi     +++|          MI     X1,CPY6     IF DEADSTART INITIALIZE
01009  M01S00995.msi     +++|          SA1    X4+PUGL
01010  M01S00996.msi     +++|          MX6    42
01011  M01S00997.msi     +++|          BX1    X6*X1
01012  M01S00998.msi     +++|          BX6    X4
01013  M01S00999.msi     +++|          SA6    TEMP        SAVE THE MST POINTER
01014  M01S01000.msi     +++|          MX7    1
01015  M01S01001.msi     +++|          ZR     X1,CPY2     IF NOT PRIVATE PACK
01016  M01S01002.msi     +++|          SA7    PVT         SET PRIVATE PACK FLAG
01017  M01S01003.msi     +++| CPY1     KEYMES ENOUN       *ENTER OLD USER NAME.*
01018  M01S01004.msi     +++|          SX7    01
01019  M01S01005.msi     +++|          SA7    CNT
01020  M01S01006.msi     +++|          RJ     PKI         PROCESS KEYBOARD INPUT
01021  M01S01007.msi     +++|          SA4    TEMP
01022  M01S01008.msi     +++|          SA2    PARC+PMUN
01023  M01S01009.msi     +++|          SA3    X4+PUGL
01024  M01S01010.msi     +++|          BX1    X2-X3
01025  M01S01011.msi     +++|          AX1    18
01026  M01S01012.msi     +++|          NZ     X1,CPY1     IF USER NAMES DO NOT MATCH
01027  M01S01013.msi     +++| CPY2     SA1    X4+MDGL
01028  M01S01014.msi     +++|          LX1    59-58
01029  M01S01015.msi     +++|          PL     X1,CPY4     IF NOT AN AUXILIARY DEVICE
01030  M01S01016.msi     +++| CPY3     KEYMES ENOPN       *ENTER OLD PACK NAME.*
01031  M01S01017.msi     +++|          SX7    1
01032  M01S01018.msi     +++|          SA7    CNT
01033  M01S01019.msi     +++|          RJ     PKI         PROCESS KEYBOARD
01034  M01S01020.msi     +++|          SA4    TEMP
01035  M01S01021.msi     +++|          SA2    PARC+PMFN
01036  M01S01022.msi     +++|          SA3    X4+PFGL
01037  M01S01023.msi     +++|          BX1    X2-X3
01038  M01S01024.msi     +++|          AX1    18
01039  M01S01025.msi     +++|          NZ     X1,CPY3     IF PACKNAMES DO NOT MATCH
01040  M01S01026.msi     +++|          EQ     CPY6        GO TO NEXT PARAMETER
01041  M01S01027.msi     +++|
01042  M01S01028.msi     +++| CPY4     SA1    X4+PFGL
01043  M01S01029.msi     +++|          MX0    42
01044  M01S01030.msi     +++|          BX1    X0*X1
01045  M01S01031.msi     +++|          ZR     X1,CPY6     IF NO FAMILY NAME
01046  M01S01032.msi     +++| CPY5     KEYMES ENOFN       *ENTER OLD FAMILY NAME.*
01047  M01S01033.msi     +++|          SX7    1
01048  M01S01034.msi     +++|          SA7    CNT
01049  M01S01035.msi     +++|          RJ     PKI         PROCESS KEYBOARD INPUT
01050  M01S01036.msi     +++|          SA4    TEMP
01051  M01S01037.msi     +++|          SA2    PARC+PMFN
01052  M01S01038.msi     +++|          SA3    X4+PFGL
01053  M01S01039.msi     +++|          MX0    42
01054  M01S01040.msi     +++|          BX1    X2-X3
01055  M01S01041.msi     +++|          BX1    X0*X1       TEST FAMILY NAME
01056  M01S01042.msi     +++|          NZ     X1,CPY5     IF FN DO NOT MATCH
01057  M01S01043.msi     +++|
01058  M01S01044.msi     +++| CPY6     SB5    X4          SET MST POINTER
01059  M01S01045.msi     +++|          RJ     PTY         PROCESS TYPE
01060  M01S01046.msi     +++|          MX0    -18
01061  M01S01047.msi     +++|          SA1    PARC+PMEQ
01062  M01S01048.msi     +++|          SX1    X1+1000B    ENSURE LEADING ZEROES
01063  M01S01049.msi     +++|          RJ     COD
01064  M01S01050.msi     +++|          SA2    =7L
01065  M01S01051.msi     +++|          BX6    -X0*X6
01066  M01S01052.msi     +++|          BX6    X6+X2
01067  M01S01053.msi     +++|          LX6    -18
01068  M01S01054.msi     +++|          SA6    EQDS+1      SET EST ORDINAL
01069  M01S01055.msi     +++|          SA1    B5+ALGL
01070  M01S01056.msi     +++|          MX6    -12
01071  M01S01057.msi     +++|          LX1    59-11
01072  M01S01058.msi     +++|          BX1    -X6*X1
01073  M01S01059.msi     +++|          RJ     COD         CONVERT NUMBER OF CATALOG TRACKS
01074  M01S01060.msi     +++|          BX6    X4
01075  M01S01061.msi     +++|          SA6    NCDS+1
01076  M01S01062.msi     +++|          RJ     SAL         SET ACCESS LEVEL DEFAULTS
01077  M01S01063.msi     +++|          SA4    B5+DDLL     GET PACK COUNT
01078  M01S01064.msi     +++|          MX6    -3
01079  M01S01065.msi     +++|          LX4    12
01080  M01S01066.msi     +++|          BX1    -X6*X4
01081  M01S01067.msi     +++|          SX1    X1+B1       ADJUST COUNT
01082  M01S01068.msi     +++|          RJ     DTY         CHECK FOR PACK TYPE DEVICE
01083  M01S01069.msi     +++|          PL     X3,CPY7     IF NOT PACK DEVICE
01084  M01S01070.msi     +++|          BX6    X1
01085  M01S01071.msi     +++|          SA6    PARC+PMNP   SET PACK COUNT IN PARM LIST
01086  M01S01072.msi     +++|+         RJ     COD         CONVERT NUMBER OF PACKS
01087  M01S01073.msi     +++|          BX6    X4
01088  M01S01074.msi     +++|          SA6    NPDS+1
01089  M01S01075.msi     +++| CPY7     SA1    B5+MDGL
01090  M01S01076.msi     +++|          SA2    DSI
01091  M01S01077.msi     +++|          LX1    59-58
01092  M01S01078.msi     +++|          MI     X1,CPY9     IF AUXILIARY PACK
01093  M01S01079.msi     +++|          SX7    B5
01094  M01S01080.msi     +++|          SA7    TEMP
01095  M01S01081.msi     +++|          SA3    B5+PFGL
01096  M01S01082.msi     +++|          MX6    -6
01097  M01S01083.msi     +++|          LX3    59-11
01098  M01S01084.msi     +++|          BX6    -X6*X3
01099  M01S01085.msi     +++|          BX7    X7-X7
01100  M01S01086.msi     +++|          SA6    PARC+PMDN   SET DEVICE NUMBER IN PARAMETER BLOCK
01101  M01S01087.msi     +++|          MI     X2,CPY9     IF DEADSTART INITIALIZE
01102  M01S01088.msi     +++|          ZR     X6,CPY10    IF DN EQUALS ZERO
01103  M01S01089.msi     +++|          SA7    A6+         CLEAR THE DEVICE NUMBER
01104  M01S01090.msi     +++| CPY8     KEYMES ENODN       *ENTER OLD DEVICE NUMBER.*
01105  M01S01091.msi     +++|          SX7    1
01106  M01S01092.msi     +++|          SA7    CNT
01107  M01S01093.msi     +++|          RJ     PKI         PROCESS KEYBOARD
01108  M01S01094.msi     +++|          SA4    TEMP
01109  M01S01095.msi     +++|          SA2    PARC+PMDN
01110  M01S01096.msi     +++|          SA3    X4+PFGL
01111  M01S01097.msi     +++|          MX6    -6
01112  M01S01098.msi     +++|          LX3    59-11
01113  M01S01099.msi     +++|          BX1    -X6*X3      MASK OFF OLD DN
01114  M01S01100.msi     +++|          BX1    X1-X2
01115  M01S01101.msi     +++|          NZ     X1,CPY8     IF DEVICE NUMBERS DO NOT MATCH
01116  M01S01102.msi     +++|          SB5    X4          SAVE MST ADDRESS
01117  M01S01103.msi     +++|          EQ     CPY10       CLEAR *ID* AND *NC*
01118  M01S01104.msi     +++|
01119  M01S01105.msi     +++| CPY9     SA1    B5+PFGL
01120  M01S01106.msi     +++|          MX6    -6
01121  M01S01107.msi     +++|          LX1    59-11
01122  M01S01108.msi     +++|          BX1    -X6*X1
01123  M01S01109.msi     +++|          RJ     COD         CONVERT DEVICE NUMBER
01124  M01S01110.msi     +++|          BX6    X4
01125  M01S01111.msi     +++|          SA6    DNDS+1
01126  M01S01112.msi     +++| CPY10    BX7    X7-X7
01127  M01S01113.msi     +++|          SA7    PARC+PMID   ID
01128  M01S01114.msi     +++|          SA7    A7+B1
01129  M01S01115.msi     +++|          SA7    PARC+PMNC   NC
01130  M01S01116.msi     +++|          EQ     CPYX        RETURN
01131  M01S01117.msi     +++| PPM      SPACE  4,10
01132  M01S01118.msi     +++|**        PPM - PROCESS PARAMETERS.
01133  M01S01119.msi     +++|*
01134  M01S01120.msi     +++|*         EXIT   (X7) = ZERO IF MORE PARAMETERS NEEDED.
01135  M01S01121.msi     +++|*                (B5) = MST POINTER.
01136  M01S01122.msi     +++|*
01137  M01S01123.msi     +++|*         USES   ALL REGISTERS.
01138  M01S01124.msi     +++|*
01139  M01S01125.msi     +++|*         CALLS  CPN, DTY, MTW, PTY, VLC.
01140  M01S01126.msi     +++|*
01141  M01S01127.msi     +++|*         MACROS ERROR, KEYMES.
01142  M01S01128.msi     +++|
01143  M01S01129.msi     +++|
01144  M01S01130.msi     +++| PPM      SUBR               ENTRY/EXIT
01145  M01S01131.msi     +++|          SB4    PARC
01146  M01S01132.msi     +++|          SB6    B0
01147  M01S01133.msi     +++|          SB3    PMEQ
01148  M01S01134.msi     +++|          SA1    PARC+PMEQ
01149  M01S01135.msi     +++|          SA1    X1+ESTF
01150  M01S01136.msi     +++|          SB5    X1          MST POINTER
01151  M01S01137.msi     +++| PPM1     SA5    B4+B6       CHECK PARAMETER LIST
01152  M01S01138.msi     +++|          NZ     X5,PPM2     IF PARAMETER ENTERED
01153  M01S01139.msi     +++|          SB6    B6+B1
01154  M01S01140.msi     +++|          NE     B3,B6,PPM1  IF NOT END OF PARAMETERS
01155  M01S01141.msi     +++|          KEYMES REQPM       *ENTER PARAMETERS.*
01156  M01S01142.msi     +++|          SA1    FLAG
01157  M01S01143.msi     +++|          BX7    X1
01158  M01S01144.msi     +++|          EQ     PPMX        EXIT PARAMETER ENTRY NEEDED
01159  M01S01145.msi     +++|
01160  M01S01146.msi     +++| PPM2     RJ     CMC         CHECK MODE CHANGE
01161  M01S01147.msi     +++|          ZR     X7,PPM23    IF NO FULL TRACK ACCESS
01162  M01S01148.msi     +++|          SA1    PARC+PMDM   PROCESS MASKS
01163  M01S01149.msi     +++|          SA2    PARC+PMSM
01164  M01S01150.msi     +++|          SA3    B5+PUGL
01165  M01S01151.msi     +++|          MX0    -16
01166  M01S01152.msi     +++|          LX2    8
01167  M01S01153.msi     +++|          BX3    X0*X3       CLEAR OLD MASKS
01168  M01S01154.msi     +++|          BX6    X1+X2
01169  M01S01155.msi     +++|          BX6    X6+X3
01170  M01S01156.msi     +++|          SA6    A3
01171  M01S01157.msi     +++|          RJ     PTY         PROCESS TYPE
01172  M01S01158.msi     +++| PPM3     SA1    PVT
01173  M01S01159.msi     +++|          SA2    PARC+PMFN
01174  M01S01160.msi     +++|          MX7    42
01175  M01S01161.msi     +++|          BX3    X2
01176  M01S01162.msi     +++|          SA4    PARC+PMUN
01177  M01S01163.msi     +++|          MI     X1,PPM5     IF PRIVATE PACK (PVT SET)
01178  M01S01164.msi     +++|          NZ     X4,PPM5     IF PRIVATE PACK (UN DEFINED)
01179  M01S01165.msi     +++|          ZR     X2,PPM10    IF NO FAMILY NAME DEFINED
01180  M01S01166.msi     +++|
01181  M01S01167.msi     +++|*         PROCESS FAMILY NAME.
01182  M01S01168.msi     +++|
01183  M01S01169.msi     +++|          SA1    B5+PFGL
01184  M01S01170.msi     +++|          BX6    -X7*X1
01185  M01S01171.msi     +++|          BX6    X2+X6
01186  M01S01172.msi     +++|          SA6    A1
01187  M01S01173.msi     +++|          BX6    X6-X6
01188  M01S01174.msi     +++|          SA6    PVT         CLEAR PRIVATE PACK FLAG
01189  M01S01175.msi     +++|          EQ     PPM10       GO TO NEXT PARAMETER
01190  M01S01176.msi     +++|
01191  M01S01177.msi     +++|*         PROCESS PACK NAME AND USER NAME.
01192  M01S01178.msi     +++|
01193  M01S01179.msi     +++| PPM5     SA5    B5+MDGL
01194  M01S01180.msi     +++|          SA1    B5+PFGL
01195  M01S01181.msi     +++|          SA2    B5+PUGL
01196  M01S01182.msi     +++|          BX6    X5
01197  M01S01183.msi     +++|          MX5    42
01198  M01S01184.msi     +++|          BX0    -X5*X1
01199  M01S01185.msi     +++|          LX6    59-58
01200  M01S01186.msi     +++|          BX1    X5*X1       OLD PACK NAME
01201  M01S01187.msi     +++|          BX7    -X5*X2
01202  M01S01188.msi     +++|          ZR     X4,PPM7     IF NO NEW UN USE OLD ONE
01203  M01S01189.msi     +++|          SA5    NULL
01204  M01S01190.msi     +++|          BX5    X5-X4       TEST FOR *NULL*
01205  M01S01191.msi     +++|          NZ     X5,PPM6     IF NOT NULL
01206  M01S01192.msi     +++|          MX6    0           CLEAR PVT
01207  M01S01193.msi     +++|          SA7    B5+PUGL
01208  M01S01194.msi     +++|          SA6    PVT
01209  M01S01195.msi     +++|          SA6    PARC+PMUN
01210  M01S01196.msi     +++|          EQ     PPM3        LOOP
01211  M01S01197.msi     +++|
01212  M01S01198.msi     +++| PPM6     PL     X6,PPM21    IF NOT AUXILIARY DEVICE
01213  M01S01199.msi     +++|          MX6    1
01214  M01S01200.msi     +++|          BX7    X7+X4       SET NEW USER NAME
01215  M01S01201.msi     +++|          SA6    PVT
01216  M01S01202.msi     +++|          SA7    A2          UPDATE MST
01217  M01S01203.msi     +++|          LX6    1
01218  M01S01204.msi     +++|          SA6    PARC+PMNC   FORCE NC TO 1
01219  M01S01205.msi     +++|          EQ     PPM8        CONTINUE
01220  M01S01206.msi     +++|
01221  M01S01207.msi     +++| PPM7     BX7    X5*X2       CHECK FOR OLD UN
01222  M01S01208.msi     +++|          ZR     X7,PPM22    IF NO OLD UN
01223  M01S01209.msi     +++| PPM8     NZ     X3,PPM9     IF PACKNAM DEFINED
01224  M01S01210.msi     +++|          NZ     X1,PPM10    GO TO NEXT PARAMETER
01225  M01S01211.msi     +++|          ERROR  7           *FN OR PN MUST BE SPECIFIED.*
01226  M01S01212.msi     +++|          MX7    0
01227  M01S01213.msi     +++|          SA7    PVT
01228  M01S01214.msi     +++|          EQ     PPMX        ERROR EXIT
01229  M01S01215.msi     +++|
01230  M01S01216.msi     +++| PPM9     BX6    X3+X0       SET NEW PACK NAME
01231  M01S01217.msi     +++|          SA6    A1
01232  M01S01218.msi     +++| PPM10    RJ     CPN         CHECK FOR DUPLICATE PACK NAME
01233  M01S01219.msi     +++|          ZR     X7,PPMX     IF ERROR
01234  M01S01220.msi     +++|
01235  M01S01221.msi     +++|*         PROCESS NUMBER OF CATALOG TRACKS.
01236  M01S01222.msi     +++|
01237  M01S01223.msi     +++|          SA4    B5+ALGL
01238  M01S01224.msi     +++|          MX0    -12
01239  M01S01225.msi     +++|          LX4    -12
01240  M01S01226.msi     +++|          SA3    B5+PUGL
01241  M01S01227.msi     +++|          MX1    -8
01242  M01S01228.msi     +++|          BX3    -X1*X3
01243  M01S01229.msi     +++|          BX6    X0*X4
01244  M01S01230.msi     +++|          LX6    12
01245  M01S01231.msi     +++|          ZR     X3,PPM13    IF NO MASK SET - NO CATALOGS NEEDED
01246  M01S01232.msi     +++|          SA3    PARC+PMNC
01247  M01S01233.msi     +++|          SA5    PARC+PMEQ
01248  M01S01234.msi     +++|          NZ     X3,PPM11    IF NC SPECIFIED
01249  M01S01235.msi     +++|          BX3    -X0*X4      DEFAULT COUNT FROM MST
01250  M01S01236.msi     +++| PPM11    NZ     X3,PPM12    IF NOT USING EQUIPMENT DEFAULT
01251  M01S01237.msi     +++|          RJ     DTY         GET DEFAULT FOR DEVICE
01252  M01S01238.msi     +++| PPM12    BX1    -X0*X3      VALIDATE NC
01253  M01S01239.msi     +++|          CX6    X1
01254  M01S01240.msi     +++|          SB4    X1-201B
01255  M01S01241.msi     +++|          BX4    X0*X4       CLEAR OLD COUNT
01256  M01S01242.msi     +++|          SB6    X6
01257  M01S01243.msi     +++|          PL     B4,PPM20    IF NC TOO LARGE
01258  M01S01244.msi     +++|          BX6    X4+X1       SET NEW COUNT
01259  M01S01245.msi     +++|          NE     B6,B1,PPM19 IF NC NOT POWER OF 2
01260  M01S01246.msi     +++|          LX6    12
01261  M01S01247.msi     +++|
01262  M01S01248.msi     +++|*         PROCESS NUMBER OF PACKS.
01263  M01S01249.msi     +++|
01264  M01S01250.msi     +++| PPM13    SA6    A4
01265  M01S01251.msi     +++|          SA1    PARC+PMNP
01266  M01S01252.msi     +++|          ZR     X1,PPM14    IF NUMBER OF PACKS NOT SPECIFIED
01267  M01S01253.msi     +++|          SA2    B5+DDLL
01268  M01S01254.msi     +++|          MX7    -57
01269  M01S01255.msi     +++|          MX0    -3
01270  M01S01256.msi     +++|          SX1    X1-1
01271  M01S01257.msi     +++|          BX6    X0*X1
01272  M01S01258.msi     +++|          LX7    -9
01273  M01S01259.msi     +++|          BX7    -X7*X2      CLEAR CURRENT UNIT COUNT
01274  M01S01260.msi     +++|          NZ     X6,PPM18    IF NP .GT. 7
01275  M01S01261.msi     +++|          LX1    -12         POSITION PACK COUNT
01276  M01S01262.msi     +++|          BX7    X7+X1
01277  M01S01263.msi     +++|          LX1    12
01278  M01S01264.msi     +++|          SA7    A2
01279  M01S01265.msi     +++|          RJ     DTY
01280  M01S01266.msi     +++|          AX3    59
01281  M01S01267.msi     +++|          BX3    -X3*X1
01282  M01S01268.msi     +++|          NZ     X3,PPM17    IF NOT PACK TYPE DEVICE AND NP .NE. 1
01283  M01S01269.msi     +++|          RJ     ALP         ALLOCATE PACKS
01284  M01S01270.msi     +++|          BX7    X7-X7
01285  M01S01271.msi     +++|          MX0    -3
01286  M01S01272.msi     +++|          PL     X5,PPMX     IF UNABLE TO ALLOCATE PACKS
01287  M01S01273.msi     +++| PPM14    SA2    PARC+PMEQ   RESTORE EST POINTER
01288  M01S01274.msi     +++|          SA2    X2+ESTF
01289  M01S01275.msi     +++|          SA1    X2+DDLL     GET NUMBER OF PACKS
01290  M01S01276.msi     +++|          SB5    X2
01291  M01S01277.msi     +++|          LX1    12
01292  M01S01278.msi     +++|          SA2    B5+MDGL     SET SECTOR LIMITS
01293  M01S01279.msi     +++|          BX1    -X0*X1
01294  M01S01280.msi     +++|          BX5    X1          SAVE PACK COUNT
01295  M01S01281.msi     +++|          SX1    X1+B1
01296  M01S01282.msi     +++|          MX0    -11
01297  M01S01283.msi     +++|          BX2    X0*X2
01298  M01S01284.msi     +++|          LX2    -36
01299  M01S01285.msi     +++|          BX6    -X0*X2
01300  M01S01286.msi     +++|          LX2    36
01301  M01S01287.msi     +++|          IX6    X1*X6
01302  M01S01288.msi     +++|          BX6    X2+X6
01303  M01S01289.msi     +++|          SA6    A2
01304  M01S01290.msi     +++|
01305  M01S01291.msi     +++|*         PROCESS DEVICE NUMBER.
01306  M01S01292.msi     +++|
01307  M01S01293.msi     +++|          SA1    PARC+PMDN
01308  M01S01294.msi     +++|          SA2    B5+PFGL
01309  M01S01295.msi     +++|          SA3    B5+MDGL
01310  M01S01296.msi     +++|          MX0    -6
01311  M01S01297.msi     +++|          BX2    X0*X2       CLEAR OLD N/M
01312  M01S01298.msi     +++|          BX2    X2+X5       SET NEW N/M
01313  M01S01299.msi     +++|          BX4    X0*X1
01314  M01S01300.msi     +++|          LX0    59-47
01315  M01S01301.msi     +++|          LX3    59-58
01316  M01S01302.msi     +++|          LX1    12
01317  M01S01303.msi     +++|          AX3    59
01318  M01S01304.msi     +++|          MX7    1
01319  M01S01305.msi     +++|          NZ     X1,PPM15    IF DN SPECIFIED
01320  M01S01306.msi     +++|          BX1    -X0*X2
01321  M01S01307.msi     +++|          NZ     X1,PPM15    IF OLD DN SET
01322  M01S01308.msi     +++|          SX1    10000B      SET DEFAULT TO *1*
01323  M01S01309.msi     +++| PPM15    NZ     X4,PPM16    IF *DN* TOO LARGE
01324  M01S01310.msi     +++|          BX2    X0*X2       CLEAR OLD DN
01325  M01S01311.msi     +++|          BX1    -X3*X1      CLEAR DN FOR AUXILIARY DEVICE
01326  M01S01312.msi     +++|          BX6    X2+X1       ADD IN NEW DN
01327  M01S01313.msi     +++|          SA6    A2          UPDATE PFGL
01328  M01S01314.msi     +++|
01329  M01S01315.msi     +++|*         PROCESS DEVICE ACCESS LEVEL LIMITS.  VERIFY THAT ACCESS
01330  M01S01316.msi     +++|*         LEVEL VALUES ENTERED ARE VALID ENTRIES.  WHEN RUNNING IN
01331  M01S01317.msi     +++|*         UNSECURED MODE, NO VALIDATION AGAINST THE EQUIPMENT-S
01332  M01S01318.msi     +++|*         DEFAULT LIMITS (IN THE EST) IS MADE, SINCE THESE DEFAULT
01333  M01S01319.msi     +++|*         VALUES WILL ALWAYS BE ZERO.
01334  M01S01320.msi     +++|
01335  M01S01321.msi     +++|          SA1    PARC+PMUA   DETERMINE IF KNOWN UPPER LEVEL ENTERED
01336  M01S01322.msi     +++|          SB2    B0
01337  M01S01323.msi     +++|          RJ     VLC         VERIFY UPPER ACCESS LEVEL
01338  M01S01324.msi     +++|          NG     X2,PPM27    IF UNKNOWN VALUE ENTERED
01339  M01S01325.msi     +++|          SB4    X2          STORE VALUE
01340  M01S01326.msi     +++|          SA1    PARC+PMLA   DETERMINE IF KNOWN LOWER LEVEL ENTERED
01341  M01S01327.msi     +++|          RJ     VLC         VERIFY LOWER ACCESS LEVEL
01342  M01S01328.msi     +++|          NG     X2,PPM27    IF UNKNOWN VALUE ENTERED
01343  M01S01329.msi     +++|          SB3    X2+         STORE VALUE
01344  M01S01330.msi     +++|          SA1    SSFL
01345  M01S01331.msi     +++|          GT     B3,B4,PPM26 IF LA .GT. UA
01346  M01S01332.msi     +++|          ZR     X1,PPM15.1  IF UNSECURED SYSTEM
01347  M01S01333.msi     +++|          SA1    PARC+PMEQ   GET DEFAULT LIMITS FROM EST
01348  M01S01334.msi     +++|          R=     X4,ESTE
01349  M01S01335.msi     +++|          IX4    X1*X4
01350  M01S01336.msi     +++|          SA4    ESTB+1+X4
01351  M01S01337.msi     +++|          LX4    -12         GET UPPER LIMIT
01352  M01S01338.msi     +++|          MX0    -3
01353  M01S01339.msi     +++|          BX2    -X0*X4
01354  M01S01340.msi     +++|          SB7    X2          (B7) = UPPER LIMIT
01355  M01S01341.msi     +++|          LX4    -3          GET LOWER LIMIT
01356  M01S01342.msi     +++|          BX2    -X0*X4
01357  M01S01343.msi     +++|          SB6    X2+         (B6) = UPPER LIMIT
01358  M01S01344.msi     +++|          GT     B4,B7,PPM24 IF VALUE SPECIFIED .GT. LIMIT
01359  M01S01345.msi     +++|          LT     B3,B6,PPM25 IF VALUE SPECIFIED .LT. LOWER LIMIT
01360  M01S01346.msi     +++| PPM15.1  SA1    B5+PFGL     SET VALUES INTO MST
01361  M01S01347.msi     +++|          MX0    -6
01362  M01S01348.msi     +++|          LX0    6
01363  M01S01349.msi     +++|          BX2    X0*X1
01364  M01S01350.msi     +++|          SX3    B3          POSITION LOWER LEVEL
01365  M01S01351.msi     +++|          LX3    9
01366  M01S01352.msi     +++|          SX4    B4          POSITION UPPER LEVEL
01367  M01S01353.msi     +++|          LX4    6
01368  M01S01354.msi     +++|          BX3    X3+X4       SET INTO *PFGL*
01369  M01S01355.msi     +++|          BX6    X2+X3
01370  M01S01356.msi     +++|          SA6    A1
01371  M01S01357.msi     +++|          EQ     PPMX        RETURN
01372  M01S01358.msi     +++|
01373  M01S01359.msi     +++| PPM16    ERROR  5           *EQ OR DN INCORRECT.*
01374  M01S01360.msi     +++|          MX7    0
01375  M01S01361.msi     +++|          EQ     PPMX        RETURN
01376  M01S01362.msi     +++|
01377  M01S01363.msi     +++| PPM17    ERROR  16          *NP NOT ALLOWED.*
01378  M01S01364.msi     +++|          MX7    0
01379  M01S01365.msi     +++|          EQ     PPMX        RETURN
01380  M01S01366.msi     +++|
01381  M01S01367.msi     +++| PPM18    ERROR  8           *NP GREATER THAN 8.*
01382  M01S01368.msi     +++|          MX7    0
01383  M01S01369.msi     +++|          EQ     PPMX        RETURN
01384  M01S01370.msi     +++|
01385  M01S01371.msi     +++| PPM19    ERROR  2           *NC IS NOT A POWER OF 2.*
01386  M01S01372.msi     +++|          MX7    0
01387  M01S01373.msi     +++|          EQ     PPMX        RETURN
01388  M01S01374.msi     +++|
01389  M01S01375.msi     +++| PPM20    ERROR  10          *NC EXCEEDS 200B.*
01390  M01S01376.msi     +++|          MX7    0
01391  M01S01377.msi     +++|          EQ     PPMX        RETURN
01392  M01S01378.msi     +++|
01393  M01S01379.msi     +++| PPM21    ERROR  12          *NOT AUXILIARY PACK.*
01394  M01S01380.msi     +++|          MX7    0
01395  M01S01381.msi     +++|          EQ     PPMX        RETURN
01396  M01S01382.msi     +++|
01397  M01S01383.msi     +++| PPM22    ERROR  1           *UN MUST BE SPECIFIED.*
01398  M01S01384.msi     +++|          MX7    0
01399  M01S01385.msi     +++|          SA7    PVT
01400  M01S01386.msi     +++|          EQ     PPMX        RETURN
01401  M01S01387.msi     +++|
01402  M01S01388.msi     +++| PPM23    ERROR  23          * EQXXX, NO FULL TRACK ACCESS.*
01403  M01S01389.msi     +++|          BX7    X7-X7
01404  M01S01390.msi     +++|          EQ     PPMX        RETURN
01405  M01S01391.msi     +++|
01406  M01S01392.msi     +++| PPM24    ERROR  27          *UA NOT WITHIN LIMIT.*
01407  M01S01393.msi     +++|          MX7    0
01408  M01S01394.msi     +++|          EQ     PPMX        RETURN
01409  M01S01395.msi     +++|
01410  M01S01396.msi     +++| PPM25    ERROR  28          *LA NOT WITHIN LIMIT.*
01411  M01S01397.msi     +++|          MX7    0
01412  M01S01398.msi     +++|          EQ     PPMX        RETURN
01413  M01S01399.msi     +++|
01414  M01S01400.msi     +++| PPM26    ERROR  29          *LA GREATER THAN UA.*
01415  M01S01401.msi     +++|          MX7    0
01416  M01S01402.msi     +++|          EQ     PPMX        RETURN
01417  M01S01403.msi     +++|
01418  M01S01404.msi     +++| PPM27    ERROR  30          *UNKNOWN ACCESS LEVEL NAME.*
01419  M01S01405.msi     +++|          MX7    0
01420  M01S01406.msi     +++|          EQ     PPMX        RETURN
01421  M01S01407.msi     +++|
01422  M01S01408.msi     +++| NULL     DATA   4LNULL
01423  M01S01409.msi     +++| CPN      SPACE  4,10
01424  M01S01410.msi     +++|**        CPN - CHECK PACKNAMES.
01425  M01S01411.msi     +++|*
01426  M01S01412.msi     +++|*         ENTRY  (B5) = MST POINTER OF CURRENT EQUIPMENT.
01427  M01S01413.msi     +++|*
01428  M01S01414.msi     +++|*         EXIT   (X7) = 0 IF DUPLICATES OCCURED.
01429  M01S01415.msi     +++|*
01430  M01S01416.msi     +++|*         USES   X - 1, 2, 3,4, 5, 6, 7.
01431  M01S01417.msi     +++|*                A - 1, 2, 3, 4, 5, 7.
01432  M01S01418.msi     +++|*                B - 7.
01433  M01S01419.msi     +++|*
01434  M01S01420.msi     +++|*         MACROS ERROR.
01435  M01S01421.msi     +++|
01436  M01S01422.msi     +++|
01437  M01S01423.msi     +++| CPN      SUBR               ENTRY/EXIT
01438  M01S01424.msi     +++|          SA1    B5+MDGL
01439  M01S01425.msi     +++|          SA2    ESTF-1
01440  M01S01426.msi     +++|          SA4    B5+PFGL
01441  M01S01427.msi     +++|          LX1    59-58
01442  M01S01428.msi     +++|          BX7    X1
01443  M01S01429.msi     +++|          SA7    CPNB
01444  M01S01430.msi     +++|          MX7    42
01445  M01S01431.msi     +++|          BX4    X7*X4       CURRENT PACKNAME
01446  M01S01432.msi     +++| CPN1     SA2    A2+B1
01447  M01S01433.msi     +++|          SB7    A2-ESTF-ESMX-1
01448  M01S01434.msi     +++|          ZR     B7,CPNX     IF END OF EQUIPMENTS
01449  M01S01435.msi     +++|          ZR     X2,CPN1     IF EMPTY LINK
01450  M01S01436.msi     +++|          SA3    X2+PFGL
01451  M01S01437.msi     +++|          BX1    X3-X4       TEST NAME
01452  M01S01438.msi     +++|          SX6    B5
01453  M01S01439.msi     +++|          BX1    X7*X1
01454  M01S01440.msi     +++|          IX6    X2-X6
01455  M01S01441.msi     +++|          NZ     X1,CPN1     IF NO MATCH
01456  M01S01442.msi     +++|          ZR     X6,CPN1     IF CURRENT EQUIPMENT
01457  M01S01443.msi     +++|          SA5    X2+MDGL
01458  M01S01444.msi     +++|          LX5    59-58
01459  M01S01445.msi     +++|          SA1    CPNB
01460  M01S01446.msi     +++|          NG     X1,CPN2     IF CURRENT DEVICE IS AUXILIARY
01461  M01S01447.msi     +++|          PL     X5,CPN1     IF PART OF SAME FAMILY
01462  M01S01448.msi     +++| CPN2     AX3    3
01463  M01S01449.msi     +++|          SA1    CPNA
01464  M01S01450.msi     +++|          MX6    -3
01465  M01S01451.msi     +++|          SA5    X2+STLL
01466  M01S01452.msi     +++|          BX6    -X6*X3
01467  M01S01453.msi     +++|          BX5    X1*X5       CHECK ERROR STATUS AND INITIALIZE
01468  M01S01454.msi     +++|          NZ     X6,CPN1     IF NOT 1 OF M PACKS
01469  M01S01455.msi     +++|          NZ     X5,CPN1     IF ERROR STATUS OR INITIALIZE
01470  M01S01456.msi     +++|          ERROR  9           *DUPLICATE PN.*
01471  M01S01457.msi     +++|          MX7    0
01472  M01S01458.msi     +++|          EQ     CPNX        ERROR EXIT
01473  M01S01459.msi     +++|
01474  M01S01460.msi     +++|
01475  M01S01461.msi     +++| CPNA     VFD    12/3600B,12/77B,36/0  INITIALIZE/STATUS MASK
01476  M01S01462.msi     +++| CPNB     CON    0           STATUS OF CURRENT DEVICE
01477  M01S01463.msi     +++| ALP      SPACE  4,10
01478  M01S01464.msi     +++|**        ALP - ALLOCATE PACKS.
01479  M01S01465.msi     +++|*
01480  M01S01466.msi     +++|*         ENTRY  (X1) = NUMBER OF UNITS-1 TO ALLOCATE.
01481  M01S01467.msi     +++|*
01482  M01S01468.msi     +++|*         EXIT   (X5) .LT. 0 IF ABLE TO ALLOCATE.
01483  M01S01469.msi     +++|*                TO *ABT* IF ACTIVE FILES ON LINKED EQUIPMENT.
01484  M01S01470.msi     +++|*
01485  M01S01471.msi     +++|*         USES   X - ALL.
01486  M01S01472.msi     +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01487  M01S01473.msi     +++|*                B - 2.
01488  M01S01474.msi     +++|*
01489  M01S01475.msi     +++|*         CALLS  ALD, COD.
01490  M01S01476.msi     +++|*
01491  M01S01477.msi     +++|*         MARCOS ERROR, MESSAGE.
01492  M01S01478.msi     +++|
01493  M01S01479.msi     +++|
01494  M01S01480.msi     +++| ALP6     MX6    1           SET PACK ALLOCATED FLAG
01495  M01S01481.msi     +++|          BX7    X7-X7       SET END OF PACK EQUIPMENT LIST
01496  M01S01482.msi     +++|          SA6    A5
01497  M01S01483.msi     +++|          SA7    B2
01498  M01S01484.msi     +++|
01499  M01S01485.msi     +++| ALP      SUBR               ENTRY/EXIT
01500  M01S01486.msi     +++|          SB2    PKL         PACK EQUIPMENT LIST ADDRESS
01501  M01S01487.msi     +++|          SA5    PALF        PACK ALLOCATION FLAG
01502  M01S01488.msi     +++|          NG     X5,ALPX     IF ALREADY ALLOCATED
01503  M01S01489.msi     +++|          SA2    PARC+PMEQ   FIRST EQUIPMENT OF PACK
01504  M01S01490.msi     +++|          SA4    ESTF+X2     MST ADDRESS
01505  M01S01491.msi     +++|          R=     X3,ESTE
01506  M01S01492.msi     +++|          IX3    X2*X3
01507  M01S01493.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01508  M01S01494.msi     +++|          SA4    X4+DDLL
01509  M01S01495.msi     +++|          MX0    -3
01510  M01S01496.msi     +++|          LX3    59-55
01511  M01S01497.msi     +++|          AX4    51
01512  M01S01498.msi     +++|          BX6    -X0*X4      SET ORIGINAL UNIT COUNT
01513  M01S01499.msi     +++|          SX7    X6+B1
01514  M01S01500.msi     +++|          IX5    X1-X7       UNIT COUNT-1 REMAINING TO ALLOCATE
01515  M01S01501.msi     +++|          NG     X5,ALP6     IF NO MORE UNITS TO ALLOCATE
01516  M01S01502.msi     +++|          PL     X3,ALP1     IF NOT *LDAM* DEVICE
01517  M01S01503.msi     +++|          RJ     ALD         ALLOCATE *LDAM* DEVICE
01518  M01S01504.msi     +++|          PL     X5,ALP4     IF DEVICE NOT ALLOCATED
01519  M01S01505.msi     +++|          EQ     ALP6        RETURN
01520  M01S01506.msi     +++|
01521  M01S01507.msi     +++| ALP1     SA3    A3+         GET EST ENTRY
01522  M01S01508.msi     +++|          SA1    ALPA        STATUS MASK
01523  M01S01509.msi     +++|          BX2    X1*X3       DESIRED EQUIPMENT STATUS
01524  M01S01510.msi     +++|          LX3    59-56
01525  M01S01511.msi     +++|          PL     X3,ALP3     IF DEVICE NOT REMOVABLE
01526  M01S01512.msi     +++| ALP2     SA4    ESTF+X2     READ *STLL* WORD OF MST
01527  M01S01513.msi     +++|          SA4    X4+STLL
01528  M01S01514.msi     +++|          AX4    3           POSITION EST LINK
01529  M01S01515.msi     +++|          MX6    -9
01530  M01S01516.msi     +++|          BX6    -X6*X4
01531  M01S01517.msi     +++|          LX7    39
01532  M01S01518.msi     +++|          ZR     X6,ALP4     IF END OF CHAINABLE DEVICE
01533  M01S01519.msi     +++|          SA6    ALPB
01534  M01S01520.msi     +++|          R=     X3,ESTE
01535  M01S01521.msi     +++|          IX3    X4*X3
01536  M01S01522.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01537  M01S01523.msi     +++|          BX6    X2-X3
01538  M01S01524.msi     +++|          SA4    ESTF+X4     MST ADDRESS
01539  M01S01525.msi     +++|          BX3    X1*X6
01540  M01S01526.msi     +++|          NZ     X3,ALP4     IF STATUS NOT CORRECT
01541  M01S01527.msi     +++|          SA3    ALPB        GET EST ORDINAL
01542  M01S01528.msi     +++|          BX6    X7+X3
01543  M01S01529.msi     +++|          SA6    B2          PUT IN PACK EQUIPMENT LIST
01544  M01S01530.msi     +++|          MX6    1
01545  M01S01531.msi     +++|          BX6    X6+X4
01546  M01S01532.msi     +++|          SA6    A4          FLAG EQUIPMENT AS LINKED DEVICE
01547  M01S01533.msi     +++|          MX6    -12
01548  M01S01534.msi     +++|          SA3    X4+DDLL
01549  M01S01535.msi     +++|          SA4    X4+STLL
01550  M01S01536.msi     +++|          LX4    -12
01551  M01S01537.msi     +++|          BX6    -X6*X4
01552  M01S01538.msi     +++|          NZ     X6,ALP5     IF ACTIVE USERS
01553  M01S01539.msi     +++|          AX3    51
01554  M01S01540.msi     +++|          BX7    -X0*X3      SET ORIGINAL UNIT COUNT
01555  M01S01541.msi     +++|          SB2    B2+1        ADVANCE PACK EQUIPMENT LIST ADDRESS
01556  M01S01542.msi     +++|          SX7    X7+B1
01557  M01S01543.msi     +++|          IX5    X5-X7       UNIT COUNT - 1 REMAINING TO ALLOCATE
01558  M01S01544.msi     +++|          NG     X5,ALP6     IF NO MORE UNITS TO ALLOCATE
01559  M01S01545.msi     +++|          EQ     ALP2        PROCESS NEXT EQUIPMENT
01560  M01S01546.msi     +++|
01561  M01S01547.msi     +++| ALP3     ERROR  15          *DEVICE NOT REMOVABLE.*
01562  M01S01548.msi     +++|          BX5    X5-X5
01563  M01S01549.msi     +++|          EQ     ALPX        ERROR EXIT
01564  M01S01550.msi     +++|
01565  M01S01551.msi     +++| ALP4     ERROR  11          *CANNOT ALLOCATE DEVICE.*
01566  M01S01552.msi     +++|          BX6    X6-X6
01567  M01S01553.msi     +++|          SX5    B0
01568  M01S01554.msi     +++|          SA6    PKL         CLEAR PACK EQUIPMENT LIST
01569  M01S01555.msi     +++|          EQ     ALPX        ERROR EXIT
01570  M01S01556.msi     +++|
01571  M01S01557.msi     +++| ALP5     SA1    ALPB        GET EST ORDINAL
01572  M01S01558.msi     +++|          RJ     COD         CONVERT EST ORDINAL TO DISPLAY CODE
01573  M01S01559.msi     +++|          MX7    -18         SET EST ORDINAL IN ACTIVE FILES MESSAGE
01574  M01S01560.msi     +++|          LX6    30
01575  M01S01561.msi     +++|          SA4    MESA
01576  M01S01562.msi     +++|          LX7    30
01577  M01S01563.msi     +++|          BX6    -X7*X6
01578  M01S01564.msi     +++|          BX7    X7*X4
01579  M01S01565.msi     +++|          BX6    X6+X7
01580  M01S01566.msi     +++|          SA6    A4
01581  M01S01567.msi     +++|          MESSAGE  A4        * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
Line S01568 Modification History
M01 (Added by) msi
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01582  M02S01568.253l688 ---|          EQ     ABT         ABORT MSI
01583  M01S00012.253l688 +++|          RJ     ABT         ABORT *MSI*
01584  M01S01569.msi     +++|
01585  M01S01570.msi     +++| ALPA     VFD    6/4,6/0,12/0,3/7,9/0,12/7777B,12/0
01586  M01S01571.msi     +++| ALPB     BSS    1           EST ORDINAL
01587  M01S01572.msi     +++| UMS      SPACE  4,10
01588  M01S01573.msi     +++|**        UMS - UPDATE MASS STORAGE.
01589  M01S01574.msi     +++|*
01590  M01S01575.msi     +++|*         ENTRY  INTERNAL EST,S AND MST,S REFLECT NEW DEVICE PARAMETERS.
01591  M01S01576.msi     +++|*                (PKL) = LIST OF EQUIPMENT MST,S TO BE MODIFIED.
01592  M01S01577.msi     +++|*
01593  M01S01578.msi     +++|*         EXIT   (X1) .NE. 0 IF DUPLICATE DAT ENTRY.
01594  M01S01579.msi     +++|*
01595  M01S01580.msi     +++|*         USES   X - ALL.
01596  M01S01581.msi     +++|*                A - ALL.
01597  M01S01582.msi     +++|*
01598  M01S01583.msi     +++|*         CALLS  COD, PKI, BPT.
01599  M01S01584.msi     +++|*
01600  M01S01585.msi     +++|*         MACROS ERROR, KEYMES, MESSAGE, SYSTEM.
01601  M01S01586.msi     +++|
01602  M01S01587.msi     +++|
01603  M01S01588.msi     +++| UMS11    MESSAGE  MESJ      *LINK DEVICE CANNOT BE ALTERED.*
01604  M01S01589.msi     +++|          BX1    X1-X1
01605  M01S01590.msi     +++|
01606  M01S01591.msi     +++| UMS      SUBR               ENTRY/EXIT
01607  M01S01592.msi     +++|          SA1    PARC+PMEQ   EQUIPMENT
01608  M01S01593.msi     +++|          SA5    PKL
01609  M01S01594.msi     +++|          RJ     BPT         BUILD MST UPDATING PARAMETER TABLE
01610  M01S01595.msi     +++|          SA4    LINK
01611  M01S01596.msi     +++|          SA3    DSI
01612  M01S01597.msi     +++|          BX4    X4-X1
01613  M01S01598.msi     +++|          SA1    PKL         CHECK FOR LINKED DEVICE
01614  M01S01599.msi     +++|          NG     X3,UMS1     IF DEADSTART INITIALIZE
01615  M01S01600.msi     +++|          ZR     X4,UMS11    IF LINK DEVICE
01616  M01S01601.msi     +++| UMS1     NZ     X1,UMS2     IF CHAINED DEVICE
01617  M01S01602.msi     +++|          RJ     DTY
01618  M01S01603.msi     +++|          SA4    DTYA
01619  M01S01604.msi     +++|          SX5    X4-2RDE
01620  M01S01605.msi     +++|          SX4    X4-2RDP
01621  M01S01606.msi     +++|          MX0    -2
01622  M01S01607.msi     +++|          IX4    X4*X5
01623  M01S01608.msi     +++|          NZ     X4,UMS1.1   IF NOT EXTENDED MEMORY DEVICE
01624  M01S01609.msi     +++|          SA4    PARC+PMEQ   EXTRACT XM SHIFT
01625  M01S01610.msi     +++|          R=     X5,ESTE
01626  M01S01611.msi     +++|          IX5    X4*X5
01627  M01S01612.msi     +++|          SA5    ESTB+X5+EQAE
01628  M01S01613.msi     +++|          LX5    -30
01629  M01S01614.msi     +++|          BX2    -X0*X5
01630  M01S01615.msi     +++|          SB2    X2
01631  M01S01616.msi     +++|          MX0    -11
01632  M01S01617.msi     +++|          SX5    20B
01633  M01S01618.msi     +++|          SA4    TUMS+3      CLEAR OLD SECTOR LIMITS
01634  M01S01619.msi     +++|          LX5    B2
01635  M01S01620.msi     +++|          BX6    X0*X4
01636  M01S01621.msi     +++|          LX0    36
01637  M01S01622.msi     +++|          BX6    X0*X6
01638  M01S01623.msi     +++|          BX6    X6+X5       MERGE NEW SECTOR LIMITS
01639  M01S01624.msi     +++|          LX5    36
01640  M01S01625.msi     +++|          BX6    X6+X5
01641  M01S01626.msi     +++|          SA6    A4
01642  M01S01627.msi     +++| UMS1.1   SYSTEM IMS,R,TUMS,MMS
01643  M01S01628.msi     +++|          SA1    TUMS+6      CHECK REPLY
01644  M01S01629.msi     +++|          EQ     UMSX        RETURN
01645  M01S01630.msi     +++|
01646  M01S01631.msi     +++|*         IF THE EQUIPMENT IN THE LINK LIST IS AVAILABLE AND HAS
01647  M01S01632.msi     +++|*         A GOOD LABEL, THE PACKNAME AND USER NAME OR FAMILY NAME
01648  M01S01633.msi     +++|*         AND DEVICE NUMBER OR JUST THE FAMILY NAME MUST BE
01649  M01S01634.msi     +++|*         VERIFIED TO INSURE THE CORRECT PACK IS BEING INITIALIZED.
01650  M01S01635.msi     +++|
01651  M01S01636.msi     +++| UMS2     SA2    ESTF+X1
01652  M01S01637.msi     +++|          R=     X3,ESTE
01653  M01S01638.msi     +++|          IX3    X1*X3
01654  M01S01639.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01655  M01S01640.msi     +++|          SA4    X2+STLL
01656  M01S01641.msi     +++|          MX0    -6
01657  M01S01642.msi     +++|          LX4    24
01658  M01S01643.msi     +++|          LX3    59-54
01659  M01S01644.msi     +++|          BX5    -X0*X4
01660  M01S01645.msi     +++|          SX6    A1
01661  M01S01646.msi     +++|          SA6    TEMP        SAVE PKL INDEX
01662  M01S01647.msi     +++|          PL     X3,UMS4     IF AVAILABLE
01663  M01S01648.msi     +++|          ZR     X5,UMS4     IF NO LABEL ERRORS
01664  M01S01649.msi     +++|          SA3    ELST        CHECK LABEL ERROR FOR NONRECOVERABLE TYPE
01665  M01S01650.msi     +++| UMS3     BX6    X3-X5
01666  M01S01651.msi     +++|          SA3    A3+B1
01667  M01S01652.msi     +++|          ZR     X6,UMS9     IF NONRECOVERABLE ERROR
01668  M01S01653.msi     +++|          NZ     X3,UMS3     IF NOT END LIST
01669  M01S01654.msi     +++| UMS4     SA3    X2+PFGL
01670  M01S01655.msi     +++|          SA4    X2+PUGL
01671  M01S01656.msi     +++|          SA5    X2+STLL
01672  M01S01657.msi     +++|          MX0    42
01673  M01S01658.msi     +++|          BX6    X0*X3       PACKNAME OR FAMILY NAME
01674  M01S01659.msi     +++|          LX5    59-LIRP
01675  M01S01660.msi     +++|          BX7    X0*X4       USER NAME
01676  M01S01661.msi     +++|          SX1    X1+
01677  M01S01662.msi     +++|          NG     X5,UMS6     IF INITIALIZE SET
01678  M01S01663.msi     +++|          RJ     COD         CONVERT EST ORDINAL TO DISPLAY CODE
01679  M01S01664.msi     +++|          MX7    -18         SET EST ORDINAL IN ACTIVE FILES MESSAGE
01680  M01S01665.msi     +++|          LX6    30
01681  M01S01666.msi     +++|          SA4    ERROR19
01682  M01S01667.msi     +++|          LX7    30
01683  M01S01668.msi     +++|          BX6    -X7*X6
01684  M01S01669.msi     +++|          BX7    X7*X4
01685  M01S01670.msi     +++|          BX6    X6+X7
01686  M01S01671.msi     +++|          SA6    A4
01687  M01S01672.msi     +++| UMS5     ERROR  19          * EQXXX, INITIALIZE BIT NOT SET.*
01688  M01S01673.msi     +++|          SX6    7777B
01689  M01S01674.msi     +++|          SX7    HNGP
01690  M01S01675.msi     +++|          SA6    CNT
01691  M01S01676.msi     +++|          SA7    ARGP
01692  M01S01677.msi     +++|          RJ     PKI
01693  M01S01678.msi     +++|          EQ     UMS5        LOOP
01694  M01S01679.msi     +++|
01695  M01S01680.msi     +++| UMS6     NZ     X7,UMS7     IF USER NAME SET
01696  M01S01681.msi     +++|          LX3    -12
01697  M01S01682.msi     +++|          MX0    -6
01698  M01S01683.msi     +++|          BX7    -X0*X3      DEVICE NUMBER
01699  M01S01684.msi     +++|          MX0    -3
01700  M01S01685.msi     +++|          ZR     X7,UMS7     IF DEVICE NUMBER EQ ZERO
01701  M01S01686.msi     +++|          BX2    -X0*X7
01702  M01S01687.msi     +++|          AX7    3
01703  M01S01688.msi     +++|          SX2    X2+2R00
01704  M01S01689.msi     +++|          LX7    6
01705  M01S01690.msi     +++|          IX7    X2+X7
01706  M01S01691.msi     +++|          LX7    59-11
01707  M01S01692.msi     +++| UMS7     SA6    SPN
01708  M01S01693.msi     +++|          SA7    SUN
01709  M01S01694.msi     +++|          SX1    X1          CLEAR PACK COUNT
01710  M01S01695.msi     +++|          MX0    1
01711  M01S01696.msi     +++|          RJ     COD         CONVERT EQ NUMBER
01712  M01S01697.msi     +++|          LX0    -22
01713  M01S01698.msi     +++|          BX6    X0+X4       ADD TRAILING PERIOD
01714  M01S01699.msi     +++|          SA6    ENID+2
01715  M01S01700.msi     +++| UMS8     SX7    B1
01716  M01S01701.msi     +++|          SX6    EIDS
01717  M01S01702.msi     +++|          SA6    ARGP
01718  M01S01703.msi     +++|          SA7    CNT
01719  M01S01704.msi     +++|          KEYMES ENID        *ENTER IDENTITY OF EQXXX.*
01720  M01S01705.msi     +++|          RJ     PKI         PROCESS KEYBOARD
01721  M01S01706.msi     +++|          SA1    PARC+PMID
01722  M01S01707.msi     +++|          SA5    PARC+PMID+1
01723  M01S01708.msi     +++|          SA2    SPN
01724  M01S01709.msi     +++|          SA3    SUN
01725  M01S01710.msi     +++|          BX4    X1-X2
01726  M01S01711.msi     +++|          BX5    X5-X3
01727  M01S01712.msi     +++|          NZ     X4,UMS8     IF FN OR PN DO NOT MATCH
01728  M01S01713.msi     +++|          ZR     X5,UMS9     IF UN OR DN MATCH
01729  M01S01714.msi     +++|          SA1    PARC+PMID+1
01730  M01S01715.msi     +++|          LX3    6
01731  M01S01716.msi     +++|          SX2    1R0
01732  M01S01717.msi     +++|          BX5    X3-X2
01733  M01S01718.msi     +++|          BX1    X5-X1
01734  M01S01719.msi     +++|          NZ     X1,UMS8     IF NO MATCH ON DN
01735  M01S01720.msi     +++| UMS9     SA2    TEMP
01736  M01S01721.msi     +++|          SA1    X2+B1       NEXT ENTRY IN PKL
01737  M01S01722.msi     +++|          NZ     X1,UMS2     IF NOT END OF LIST
01738  M01S01723.msi     +++|          SA5    PKL         START OF EQUIPMENTS
01739  M01S01724.msi     +++|
01740  M01S01725.msi     +++|*         UPDATE MST,S AND LINK EQUIPMENTS.
01741  M01S01726.msi     +++|
01742  M01S01727.msi     +++| UMS10    BX4    X5          SAVE LINKED PACK COUNT
01743  M01S01728.msi     +++|          AX4    36
01744  M01S01729.msi     +++|          SYSTEM IMS,R,TUMS,MMS  UPDATE MST
01745  M01S01730.msi     +++|          SA1    TUMS+6      CHECK REPLY
01746  M01S01731.msi     +++|          NZ     X1,UMSX     IF DUPLICATE DAT ENTRY
01747  M01S01732.msi     +++|          BX1    X5          SET EQUIPMENT
01748  M01S01733.msi     +++|          SA5    A5+B1       READ NEXT EQUIPMENT
01749  M01S01734.msi     +++|          ZR     X4,UMSX     IF END OF LIST
01750  M01S01735.msi     +++|          R=     X2,ESTE
01751  M01S01736.msi     +++|          IX2    X1*X2
01752  M01S01737.msi     +++|          SA2    ESTB+X2+EQDE  GET EST ENTRY
01753  M01S01738.msi     +++|          MX0    1
01754  M01S01739.msi     +++|          LX0    54-59
01755  M01S01740.msi     +++|          BX6    X0+X2
01756  M01S01741.msi     +++|          SA6    A2
01757  M01S01742.msi     +++|          SA2    ESTF+X1     SET DEVICE IN USE IN CHAIN
01758  M01S01743.msi     +++|          SA2    X2+STLL
01759  M01S01744.msi     +++|          SA3    TUMS+1      UPDATE N/M
01760  M01S01745.msi     +++|          SX4    X4
01761  M01S01746.msi     +++|          LX0    2-54
01762  M01S01747.msi     +++|          BX6    X2+X0
01763  M01S01748.msi     +++|          IX7    X4+X3       INCREMENT N/M
01764  M01S01749.msi     +++|          SA7    A2-STLL+PFGL
01765  M01S01750.msi     +++|          SA6    A2
01766  M01S01751.msi     +++|          RJ     BPT         BUILD PARAMETER TABLE
01767  M01S01752.msi     +++|          EQ     UMS10       LOOP FOR NEXT ENTRY
01768  M01S01753.msi     +++|
01769  M01S01754.msi     +++| SPN      CON    0
01770  M01S01755.msi     +++| SUN      CON    0
01771  M01S01756.msi     +++|
01772  M01S01757.msi     +++| ELST     CON    STLE        LABEL ERROR
01773  M01S01758.msi     +++|          CON    STNR        NOT READY
01774  M01S01759.msi     +++|          CON    0
01775  M01S01760.msi     +++| TUMS     SPACE  4,15
01776  M01S01761.msi     +++|**        TUMS - TABLE OF MST UPDATING PARAMETERS.
01777  M01S01762.msi     +++|*
01778  M01S01763.msi     +++|*T, TUMS  60/  EST ENTRY
Figure TUMS

029 EST ENTRY3059 EST ENTRY

01779  M01S01764.msi     +++|*T,       60/  PFGL MST WORD
Figure

029 PFGL MST WORD3059 PFGL MST WORD

01780  M01S01765.msi     +++|*T,       60/  PUGL MST WORD
Figure

029 PUGL MST WORD3059 PUGL MST WORD

01781  M01S01766.msi     +++|*T,       60/  MDGL MST WORD
Figure

029 MDGL MST WORD3059 MDGL MST WORD

01782  M01S01767.msi     +++|*T,       12/  NC,12/  EQ,12/  AI,12/  CI,12/  NE
Figure

01112232429 NE CI AI303536474859 AI EQ NC

01783  M01S01768.msi     +++|*T,       12/  NP, 48/  UNIT LIST (*LDAM* DEVICES)
Figure

029 UNIT LIST (*LDAM* DEVICES)30474859 UNIT LIST (*LDAM* DEVICES) NP

01784  M01S01769.msi     +++|*T,       60/  REPLY WORD
Figure

029 REPLY WORD3059 REPLY WORD

01785  M01S01770.msi     +++|*         NC     NUMBER OF CATALOG TRACKS.
01786  M01S01771.msi     +++|*         EQ     EST ORDINAL.
01787  M01S01772.msi     +++|*         AI     ALGORITHM INDEX.
01788  M01S01773.msi     +++|*         CI     CLEAR IN USE AS CHAINED DEVICE.
01789  M01S01774.msi     +++|*         NE     NEXT EQUIPMENT IN LINKED DEVICE.
01790  M01S01775.msi     +++|
01791  M01S01776.msi     +++|
01792  M01S01777.msi     +++| TUMS     BSSZ   7
01793  M01S01778.msi     +++| EDF      SPACE  4,10
01794  M01S01779.msi     +++|**        EDF - SEPARATE FAMILY FROM OTHER MASS STORAGE.
01795  M01S01780.msi     +++|*
01796  M01S01781.msi     +++|*         EXIT   (B7) = EST ORDINAL.
01797  M01S01782.msi     +++|*
01798  M01S01783.msi     +++|*         USES   X - ALL.
01799  M01S01784.msi     +++|*                A - 1, 2, 4, 7.
01800  M01S01785.msi     +++|*                B - 2, 3, 7.
01801  M01S01786.msi     +++|
01802  M01S01787.msi     +++|
01803  M01S01788.msi     +++| EDF      SUBR               ENTRY/EXIT
01804  M01S01789.msi     +++|          SA1    PARC+PMEQ
01805  M01S01790.msi     +++|          SB7    X1          SAVE EST ORDINAL
01806  M01S01791.msi     +++|          SA1    ESTF+X1
01807  M01S01792.msi     +++|          SA1    X1+PFGL
01808  M01S01793.msi     +++|          MX0    42
01809  M01S01794.msi     +++|          BX5    X0*X1       FAMILY NAME
01810  M01S01795.msi     +++|          SA1    ESTF-1
01811  M01S01796.msi     +++| EDF1     SA1    A1+B1
01812  M01S01797.msi     +++|          MX3    42
01813  M01S01798.msi     +++|          MI     X1,EDF5     IF LINKED EQUIPMENT
01814  M01S01799.msi     +++|          ZR     X1,EDF2     IF EMPTY LINK
01815  M01S01800.msi     +++|          SA4    X1+PFGL
01816  M01S01801.msi     +++|          BX3    X0*X4
01817  M01S01802.msi     +++|          BX3    X3-X5       TEST FAMILY NAME
01818  M01S01803.msi     +++|          BX2    X1
01819  M01S01804.msi     +++| EDF2     SB3    A1-ESTF-ESMX
01820  M01S01805.msi     +++|          ZR     B3,EDFX     IF END OF EST
01821  M01S01806.msi     +++|          ZR     X3,EDF4     IF MATCH ON FAMILY
01822  M01S01807.msi     +++| EDF3     MX7    0
01823  M01S01808.msi     +++|          SA7    A1          CLEAR NON FAMILY LINK
01824  M01S01809.msi     +++|          EQ     EDF1        LOOP ON SEARCH
01825  M01S01810.msi     +++|
01826  M01S01811.msi     +++| EDF4     SB2    A1-ESTF
01827  M01S01812.msi     +++|          EQ     B2,B7,EDF1  IF CURRENT EQUIPMENT
01828  M01S01813.msi     +++|          SX4    B2
01829  M01S01814.msi     +++|          R=     X3,ESTE
01830  M01S01815.msi     +++|          IX3    X4*X3
01831  M01S01816.msi     +++|          SA4    X2+STLL
01832  M01S01817.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01833  M01S01818.msi     +++|          SA2    X2+MDGL     CHECK FOR AUXILIARY DEVICE
01834  M01S01819.msi     +++|          LX4    59-LDIU
01835  M01S01820.msi     +++|          LX3    59-54
01836  M01S01821.msi     +++|          LX2    59-58
01837  M01S01822.msi     +++|          NG     X4,EDF3     IF DEVICE IN USE
01838  M01S01823.msi     +++|          MI     X2,EDF3     IF AUXILIARY DEVICE CLEAR ENTRY
01839  M01S01824.msi     +++|          PL     X3,EDF1     IF EQUIPMENT AVAILABLE LOOP FOR NEXT EQ
01840  M01S01825.msi     +++|          EQ     EDF3        IF NOT AVAILABLE CLEAR LINK
01841  M01S01826.msi     +++|
01842  M01S01827.msi     +++| EDF5     SA3    X1+STLL
01843  M01S01828.msi     +++|          MX6    60-LIRP
01844  M01S01829.msi     +++|          BX3    -X6*X3
01845  M01S01830.msi     +++|          MX6    48-LIMF
01846  M01S01831.msi     +++|          LX6    48
01847  M01S01832.msi     +++|          BX6    -X6*X3      CLEAR INITIALIZE REQUEST IN LINKED EQ
01848  M01S01833.msi     +++|          SA6    A3
01849  M01S01834.msi     +++|          EQ     EDF3        GO CLEAR LINK
01850  M01S01835.msi     +++| CMS      SPACE  4,10
01851  M01S01836.msi     +++|**        CMS - CHECK MASK AND DEVICE NUMBER.
01852  M01S01837.msi     +++|*
01853  M01S01838.msi     +++|*         ENTRY  (B7) = EQ NUMBER.
01854  M01S01839.msi     +++|*
01855  M01S01840.msi     +++|*         EXIT   (B6) = DEVICE NUMBER.
01856  M01S01841.msi     +++|*                (B7) = EQ NUMBER.
01857  M01S01842.msi     +++|*                (X7) .LT. 0 IF NEW PARAMETERS TO PROCESS.
01858  M01S01843.msi     +++|*
01859  M01S01844.msi     +++|*         USES   ALL REGISTERS.
01860  M01S01845.msi     +++|*
01861  M01S01846.msi     +++|*         CALLS  PKI.
01862  M01S01847.msi     +++|*
01863  M01S01848.msi     +++|*         MACROS ERROR.
01864  M01S01849.msi     +++|
01865  M01S01850.msi     +++|
01866  M01S01851.msi     +++| CMS11    SA1    PARC+PMEQ   SET EQUIPMENT
01867  M01S01852.msi     +++|          BX7    X7-X7
01868  M01S01853.msi     +++|          SB7    X1
01869  M01S01854.msi     +++|          SA1    ESTF+X1     SET DEVICE NUMBER
01870  M01S01855.msi     +++|          SA1    X1+PFGL
01871  M01S01856.msi     +++|          MX0    -6
01872  M01S01857.msi     +++|          AX1    12
01873  M01S01858.msi     +++|          BX1    -X0*X1
01874  M01S01859.msi     +++|          SB6    X1
01875  M01S01860.msi     +++|
01876  M01S01861.msi     +++| CMS      SUBR               ENTRY/EXIT
01877  M01S01862.msi     +++| CMS1     SA1    ESTF-1
01878  M01S01863.msi     +++|          MX6    0
01879  M01S01864.msi     +++|          SA5    ESTF+B7
01880  M01S01865.msi     +++|          SA5    X5+PFGL
01881  M01S01866.msi     +++|          MX0    -6
01882  M01S01867.msi     +++|          AX5    12
01883  M01S01868.msi     +++|          BX4    -X0*X5
01884  M01S01869.msi     +++|          SB6    X4          SAVE DN
01885  M01S01870.msi     +++| CMS2     SA1    A1+B1
01886  M01S01871.msi     +++|          ZR     X1,CMS5     IF EMPTY LINK
01887  M01S01872.msi     +++|          MX5    -8
01888  M01S01873.msi     +++|          SA2    X1+PUGL
01889  M01S01874.msi     +++|          BX3    X6*X2
01890  M01S01875.msi     +++|          BX2    -X5*X2
01891  M01S01876.msi     +++|          IX6    X6+X2
01892  M01S01877.msi     +++|          SA2    X1+PFGL
01893  M01S01878.msi     +++|          MX7    60-LIFD
01894  M01S01879.msi     +++|          SA5    X1+STLL     CHECK INITIALIZE STATUS
01895  M01S01880.msi     +++|          AX2    12
01896  M01S01881.msi     +++|          BX2    -X0*X2      DEVICE NUMBER
01897  M01S01882.msi     +++|          BX5    X7*X5       EXTRACT FULL INITIALIZE FLAGS
01898  M01S01883.msi     +++|          IX2    X2-X4       CHECK AGAINST CURRENT DEVICE NUMBER
01899  M01S01884.msi     +++|          CX5    X5
01900  M01S01885.msi     +++|          MX7    1           ALLOW *GO* IF FULL INITIALIZE SET
01901  M01S01886.msi     +++|          LX5    59
01902  M01S01887.msi     +++|          BX7    X7-X5
01903  M01S01888.msi     +++|          SA7    CMSA
01904  M01S01889.msi     +++|          ZR     X2,CMS8     IF DN MATCH
01905  M01S01890.msi     +++| CMS3     ZR     X3,CMS5     IF NO DUPLICATION OF BITS IN MASK
01906  M01S01891.msi     +++|          SB3    A1-ESTF
01907  M01S01892.msi     +++|          SX7    B3-B7
01908  M01S01893.msi     +++|          NZ     X7,CMS4     IF NOT CURRENT DEVICE
01909  M01S01894.msi     +++|          MX7    1
01910  M01S01895.msi     +++|          SA7    CMSA        INDICATE *GO* NOT ALLOWED
01911  M01S01896.msi     +++| CMS4     ERROR  17          *DUPLICATE BITS IN MASK.*
01912  M01S01897.msi     +++|          EQ     CMS6        DISPLAY ERROR
01913  M01S01898.msi     +++|
01914  M01S01899.msi     +++| CMS5     SB3    A1-ESTF-ESMX
01915  M01S01900.msi     +++|          NZ     B3,CMS2     IF NOT END OF FAMILY
01916  M01S01901.msi     +++|          SX7    377B
01917  M01S01902.msi     +++|          ZR     X6,CMSX     IF NO MASK BITS SET
01918  M01S01903.msi     +++|          BX6    X7-X6       TEST MASK
01919  M01S01904.msi     +++|          BX7    X7*X6
01920  M01S01905.msi     +++|          ZR     X7,CMSX     EXIT MASK OK
01921  M01S01906.msi     +++|
01922  M01S01907.msi     +++|*         PROCESS MASK OVER FLOW.
01923  M01S01908.msi     +++|
01924  M01S01909.msi     +++|          ERROR  3           *FAMILY MASK NOT EQUAL 377.*
01925  M01S01910.msi     +++|          SX7    0
01926  M01S01911.msi     +++|          SA7    CMSA        INDICATE *GO* ALLOWED FOR THIS ERROR
01927  M01S01912.msi     +++| CMS6     MX7    1
01928  M01S01913.msi     +++|          SX6    B1
01929  M01S01914.msi     +++|          SA7    PARC+PMDM   CLEAR DEVICE MASK
01930  M01S01915.msi     +++|          SA6    CNT
01931  M01S01916.msi     +++|          SX7    ENMS
01932  M01S01917.msi     +++|          SA7    ARGP
01933  M01S01918.msi     +++|          RJ     PKI         PROCESS MASK ERROR
01934  M01S01919.msi     +++|          SA1    PARC+PMDM
01935  M01S01920.msi     +++|          SA5    CMSA        CHECK IF *GO* ALLOWED
01936  M01S01921.msi     +++|          MX7    1
01937  M01S01922.msi     +++|          PL     X1,CMSX     IF NOT *GO*
01938  M01S01923.msi     +++| CMS7     ZR     X5,CMS11    IF *GO* ALLOWED
01939  M01S01924.msi     +++|          EQ     CMS1        LOOP
01940  M01S01925.msi     +++|
01941  M01S01926.msi     +++|*         PROCESS DUPLICATE DEVICE NUMBER.
01942  M01S01927.msi     +++|
01943  M01S01928.msi     +++| CMS8     SB3    A1-ESTF
01944  M01S01929.msi     +++|          EQ     B3,B7,CMS3        IF SAME EQUIPMENT
01945  M01S01930.msi     +++|          ERROR  13          *DUPLICATE DN.*
01946  M01S01931.msi     +++| CMS9     MX7    1
01947  M01S01932.msi     +++|          SA7    PARC+PMDN   CLEAR DEVICE NUMBER
01948  M01S01933.msi     +++|          SX6    B1
01949  M01S01934.msi     +++|          SX7    ENDN
01950  M01S01935.msi     +++|          SA6    CNT
01951  M01S01936.msi     +++|          SA7    ARGP
01952  M01S01937.msi     +++|          RJ     PKI         PROCESS DN ERROR
01953  M01S01938.msi     +++|          SA1    PARC+PMDN
01954  M01S01939.msi     +++|          SA5    CMSA        CHECK IF *GO* ALLOWED
01955  M01S01940.msi     +++|          MI     X1,CMS7     IF *GO* ENTERED
01956  M01S01941.msi     +++|          NZ     X1,CMS10    IF DN NOT ZERO
01957  M01S01942.msi     +++|          ERROR  20          *DN CANNOT BE ZERO.*
01958  M01S01943.msi     +++|          EQ     CMS9        PROCESS ERROR
01959  M01S01944.msi     +++|
01960  M01S01945.msi     +++| CMS10    MX7    1
01961  M01S01946.msi     +++|          EQ     CMSX        GO PROCESS NEW DN
01962  M01S01947.msi     +++|
01963  M01S01948.msi     +++| CMSA     CON    0           INDICATOR FOR ALLOWING *GO* ENTRY
01964  M01S01949.msi     +++| CRE      SPACE  4,15
01965  M01S01950.msi     +++|**        CRE - CHECK REQUIRED ENTRIES.
01966  M01S01951.msi     +++|*
01967  M01S01952.msi     +++|*         ENTRY  (B5) = ADDRESS OF MST FOR EQUIPMENT.
01968  M01S01953.msi     +++|*
01969  M01S01954.msi     +++|*         EXIT   (X6) = 0 IF NEW PARAMETERS TO PROCESS.
01970  M01S01955.msi     +++|*                (B5) = ADDRESS OF MST FOR EQUIPMENT.
01971  M01S01956.msi     +++|*
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/msi.txt ยท Last modified: by 127.0.0.1