User Tools

Site Tools


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

Deck MSI

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.msi     +++|          IDENT  MSI,ORIG
00002  M00S00002.msi     +++|          ABS
00003  M00S00003.msi     +++|          SST
00004  M00S00004.msi     +++|          ENTRY  MSI
00005  M00S00005.msi     +++|          ENTRY  FLAW
00006  M00S00006.msi     +++|          ENTRY  RFL=
00007  M00S00007.msi     +++|          ENTRY  SSJ=
00008  M00S00008.msi     +++|          ENTRY  UTL=
00009  M00S00009.msi     +++|          SYSCOM B1
00010  M00S00010.msi     +++|*COMMENT  MSI - MASS STORAGE DEVICE INITIALIZATION.
Line S00011 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00011.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M00S00012.msi     +++|          TITLE  MSI - MASS STORAGE DEVICE INITIALIZATION.
00014  M00S00013.msi     +++|          SPACE  4
00015  M00S00014.msi     +++|***       MSI - MASS STORAGE DEVICE INITIALIZATION.
00016  M00S00015.msi     +++|*         D. A. HIVELEY.     72/09/27.
00017  M00S00016.msi     +++|*         S.L. BETH.         73/01/23.
00018  M00S00017.msi     +++|          SPACE 4
00019  M00S00018.msi     +++|***       MSI - MASS STORAGE DEVICE INITIALIZATION.
00020  M00S00019.msi     +++|*
00021  M00S00020.msi     +++|*         THE FOLLOWING PARAMETERS MAY BE ENTERED VIA
00022  M00S00021.msi     +++|*         THE K-DISPLAY.
00023  M00S00022.msi     +++|*
00024  M00S00023.msi     +++|*         FM = FAMILY NAME / PACK NAME (DEPENDS ON *TY* VALUE).
00025  M00S00024.msi     +++|*         PN = FAMILY NAME / PACK NAME (DEPENDS ON *TY* VALUE).
00026  M00S00025.msi     +++|*         UN = USER NAME (FOR PRIVATE AUXILIARY PACK ONLY).
00027  M00S00026.msi     +++|*         DM = DEVICE MASK.
00028  M00S00027.msi     +++|*         SM = SECONDARY MASK.
00029  M00S00028.msi     +++|*         NC = NUMBER OF CATALOG TRACKS.
00030  M00S00029.msi     +++|*         NP = NUMBER OF PACKS.
00031  M00S00030.msi     +++|*         DN = DEVICE NUMBER.
00032  M00S00031.msi     +++|*         TY = TYPE
00033  M00S00032.msi     +++|*                F = FAMILY DEVICE.
00034  M00S00033.msi     +++|*                X = AUXILIARY DEVICE.
00035  M00S00034.msi     +++|*         LA = LOWER BOUND ACCESS LEVEL.
00036  M00S00035.msi     +++|*         UA = UPPER BOUND ACCESS LEVEL.
00037  M00S00036.msi     +++|*
00038  M00S00037.msi     +++|*         ENTER XX=0.        TO CLEAR ANY OF THE ENTRIES LISTED ABOVE.
00039  M00S00038.msi     +++|*         ENTER XX=NULL.     TO CLEAR THE FIELD IN THE MST (UN ONLY).
00040  M00S00039.msi     +++|*
00041  M00S00040.msi     +++|*         EQ = EST ORDINAL.  THIS OPTION IS ONLY VALID FOR *FLAW*
00042  M00S00041.msi     +++|*                PROCESSING.
00043  M00S00042.msi     +++|*
00044  M00S00043.msi     +++|*         NOTE   IT IS NECESSARY TO USE THE DSD/EQPDECK *INITIALIZE*
00045  M00S00044.msi     +++|*                ENTRY TO SELECT DEVICES AND OPTIONS TO BE INITIALIZED.
00046  M00S00045.msi     +++|*                DEVICE CHARACTERISTICS CAN ONLY BE CHANGED DURING
00047  M00S00046.msi     +++|*                *AL*, *FT*, OR *HT* INITIALIZATION.  IF THE *FP*
00048  M00S00047.msi     +++|*                OPTION IS SELECTED, INITIALIZATION WAITS FOR THE
00049  M00S00048.msi     +++|*                DEVICE TO BE FORMATTED.
00050  M00S00049.msi     +++|*
00051  M00S00050.msi     +++|*         THE FOLLOWING FLAW DIRECTIVES CAN ONLY BE ENTERED VIA
00052  M00S00051.msi     +++|*         THE K-DISPLAY.
00053  M00S00052.msi     +++|*
00054  M00S00053.msi     +++|*         SLF = SET LOGICAL TRACK FLAW ON *EQ*.
00055  M00S00054.msi     +++|*         CLF = CLEAR LOGICAL TRACK FLAW ON *EQ*.
00056  M00S00055.msi     +++|*         SPF = SET PHYSICAL TRACK FLAW ON *EQ*.
00057  M00S00056.msi     +++|*         CPF = CLEAR PHYSICAL TRACK FLAW ON *EQ*.
00058  M00S00057.msi     +++|*
00059  M00S00058.msi     +++|*         DEFAULT VALUES ARE -
00060  M00S00059.msi     +++|*
00061  M00S00060.msi     +++|*         FM = NO NAME       NC = (DEVICE DEPENDENT - SEE *COMSMSP*)
00062  M00S00061.msi     +++|*         UN = NO NAME       EQ = 0
00063  M00S00062.msi     +++|*         DM = 0             NP = 0
00064  M00S00063.msi     +++|*         TY = 0             DN = 1
00065  M00S00064.msi     +++|*         LA = VALUE CONTAINED IN EST.
00066  M00S00065.msi     +++|*         UA = VALUE CONTAINED IN EST.
00067  M00S00066.msi     +++|*
00068  M00S00067.msi     +++|*                       ********************
00069  M00S00068.msi     +++|*
00070  M00S00069.msi     +++|*         IT SHOULD BE NOTED THAT MSI INITIALIZES WITH THE NEW
00071  M00S00070.msi     +++|*         PARAMETER INPUT. THEREFORE IF A FAMILY MASK OR DEVICE
00072  M00S00071.msi     +++|*         NUMBER IS CHANGED THE RESULTANT EDIT OF THE OTHER DEVICES
00073  M00S00072.msi     +++|*         IN THE FAMILY MAY MISS SOME FILES LEAVING THE SPACE
00074  M00S00073.msi     +++|*         RESERVED BUT WITH NO CATALOG ENTRIES POINTING TO THE FILES.
00075  M00S00074.msi     +++|*         TO AVOID THIS SITUATION, FIRST PERFORM AN INITIALIZE OF THE
00076  M00S00075.msi     +++|*         DEVICE WITH ITS OLD PARAMETERS TO CLEAN UP THE FAMILY,
00077  M00S00076.msi     +++|*         THEN REINITIALIZE WITH THE NEW PARAMETERS.
00078  M00S00077.msi     +++|*
00079  M00S00078.msi     +++|*                       ********************
00080  M00S00079.msi     +++|*
00081  M00S00080.msi     +++|*
00082  M00S00081.msi     +++|*
00083  M00S00082.msi     +++|*         THE *FM* PARAMETER WILL BE CONSIDERED A PACK NAME IF THE
00084  M00S00083.msi     +++|*         DEVICE IS AN AUXILIARY DEVICE (*TY=X*).
00085  M00S00084.msi     +++|*
00086  M00S00085.msi     +++|*         BEFORE ENTERING PARAMETERS CHECK THE K DISPLAY FOR
00087  M00S00086.msi     +++|*         THE LIST OF EQUIPMENTS TO BE INITIALIZED, IF THE LIST
00088  M00S00087.msi     +++|*         IS NOT COMPLETE ENTER THE INITIALIZE REQUESTS FOR THE
00089  M00S00088.msi     +++|*         OTHER EQUIPMENTS AND ENTER *RERUN* TO UPDATE MSI.
00090  M00S00089.msi     +++|*
00091  M00S00090.msi     +++|*         THE DEVICE WHICH IS TO BE INITIALIZED MUST FULFILL
00092  M00S00091.msi     +++|*         CERTAIN REQUIRMENTS. IF THE DEVICE IS AVAILABLE AND/OR
00093  M00S00092.msi     +++|*         HAS NO LABEL ERROR STATUS, IT MUST BE THE FIRST EQUIPMENT IN
00094  M00S00093.msi     +++|*         THE CHAIN.  *MSI* WILL NOT ALLOW A CHAINED EQUIPMENT TO BE
00095  M00S00094.msi     +++|*         SPLIT IN THE MIDDLE OF THE CHAIN (SUCH AS INITIALIZING THE
00096  M00S00095.msi     +++|*         THIRD UNIT IN A FOUR DEVICE CHAIN).  DEVICES WHICH ARE TO BE
00097  M00S00096.msi     +++|*         CHAINED TOGETHER AND ARE AVAILABLE AND/OR HAVE RECOVERED
00098  M00S00097.msi     +++|*         LABELS, MUST HAVE THE INITIALIZE REQUESTS SET FOR EACH
00099  M00S00098.msi     +++|*         EST ORDINAL IN THE CHAIN.
00100  M00S00099.msi     +++|*
00101  M00S00100.msi     +++|*         THE INPUT TO THE FLAW ROUTINE IS CONSIDERED OCTAL
00102  M00S00101.msi     +++|*         UNLESS THE DIGITS 8 OR 9 APPEAR IN THE NUMBER, OR
00103  M00S00102.msi     +++|*         THE RADIX SYMBOL *D* IS APPENDED TO THE NUMBER.
00104  M00S00103.msi     +++|          SPACE  4
00105  M00S00104.msi     +++|***       DAYFILE MESSAGES.
00106  M00S00105.msi     +++|*
00107  M00S00106.msi     +++|*         * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
00108  M00S00107.msi     +++|*
00109  M00S00108.msi     +++|*         * EQXXX, INACTIVE QUEUES INITIALIZED.*
00110  M00S00109.msi     +++|*
00111  M00S00110.msi     +++|*         * EQXXX, UNABLE TO INITIALIZE IQFT.*
00112  M00S00111.msi     +++|*
00113  M00S00112.msi     +++|*         * USER ACCESS NOT VALID.*
00114  M00S00113.msi     +++|*
00115  M00S00114.msi     +++|*         * INTERNAL ERROR IN MSI.*
00116  M00S00115.msi     +++|*
00117  M00S00116.msi     +++|*         * IQFT FILE INTERLOCKED.*
00118  M00S00117.msi     +++|*
00119  M00S00118.msi     +++|*         * LINK DEVICE CANNOT BE ALTERED.*
00120  M00S00119.msi     +++|*
00121  M00S00120.msi     +++|*         * MSI ABORTED INITIALIZE MAY NOT BE COMPLETE.*
00122  M00S00121.msi     +++|*
00123  M00S00122.msi     +++|*         * NO INITIALIZE REQUESTS SET FOR MSI.*
00124  M00S00123.msi     +++|*
00125  M00S00124.msi     +++|*         * NO IQFT FILE FOUND.*
00126  M00S00125.msi     +++|*
00127  M00S00126.msi     +++|*         * UNABLE TO READ IQFT FILE.*
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00128  M01S00001.253l688 +++|*
00129  M01S00002.253l688 +++|*         * MSI HUNG.*
00130  M00S00127.msi     +++|          SPACE  4
00131  M00S00128.msi     +++|***       OPERATOR MESSAGES.
00132  M00S00129.msi     +++|*
00133  M00S00130.msi     +++|*         *ENTER OLD PACK NAME* THIS INPUT MUST MATCH THE
00134  M00S00131.msi     +++|*                OLD PACKNAME TO CONTINUE.
00135  M00S00132.msi     +++|*
00136  M00S00133.msi     +++|*         *ENTER OLD FAMILY NAME* MUST BE ENTERED TO CONTINUE.
00137  M00S00134.msi     +++|*
00138  M00S00135.msi     +++|*         *ENTER OLD USER NAME.*  MUST BE ENTERED TO CONTINUE.
00139  M00S00136.msi     +++|*
00140  M00S00137.msi     +++|*         *ENTER OLD DEVICE NUMBER* MUST BE ENTERED TO CONTINUE.
00141  M00S00138.msi     +++|*
00142  M00S00139.msi     +++|*         *ENTER EST ORDINAL.*  ENTER THE EST ORDINAL OF THE DEVICE
00143  M00S00140.msi     +++|*                TO BE FLAWED OR INITIALIZED.  THIS IS THE ONLY INPUT
00144  M00S00141.msi     +++|*                WHICH WILL BE ACCEPTED AT THIS POINT.
00145  M00S00142.msi     +++|*
00146  M00S00143.msi     +++|*         *ENTER PARAMETERS*  ENTER ANY LEGAL PARAMETERS, THEN
00147  M00S00144.msi     +++|*                ENTER *GO* TO PROCESS THE PARAMETERS.
00148  M00S00145.msi     +++|*
00149  M00S00146.msi     +++|*         *ENTER FLAWS* ENTER ALL FLAWS FOR THE CURRENT EQUIPMENT,
00150  M00S00147.msi     +++|*                ENTER *GO* TO PROCESS THE FLAWS. FLAWS MAY ALSO
00151  M00S00148.msi     +++|*                BE ENTERED DURING AN INITIALIZE RUN.
00152  M00S00149.msi     +++|*
00153  M00S00150.msi     +++|*         *ENTER IDENTITY OF EQXXX.*  THE CURRENT DEVICE IS GOING TO
00154  M00S00151.msi     +++|*                BE CHAINED TO ANOTHER DEVICE. TO VERIFY ITS
00155  M00S00152.msi     +++|*                AVAILABILITY ENTER ITS (PACKNAME AND USER NAME),
00156  M00S00153.msi     +++|*                (PACKNAME), (FAMILY NAME) OR (FAMILY NAME AND
00157  M00S00154.msi     +++|*                DEVICE NUMBER) THE ORDER OF ENTRY IS NOT IMPORTANT.
00158  M00S00155.msi     +++|*                THE ID ENTRIES MUST BE MADE TO CONTINUE PROCESSING.
00159  M00S00156.msi     +++|*
00160  M00S00157.msi     +++|*         *END OF RUN* MSI COMPLETED REQUESTED FUNCTIONS.
00161  M00S00158.msi     +++|*
00162  M00S00159.msi     +++|*         *ENTER CLEAR OR RERUN.* MSI WILL ONLY ACCEPT THE COMMANDS
00163  M00S00160.msi     +++|*                *CLEAR* AND *RERUN* AT THIS TIME.
00164  M00S00161.msi     +++|*
00165  M00S00162.msi     +++|          SPACE  4
00166  M00S00163.msi     +++|***       OPERATOR ERROR MESSAGES.
00167  M00S00164.msi     +++|*
00168  M00S00165.msi     +++|*         *UN MUST BE SPECIFIED.*  DEVICE IS FLAGGED AS PRIVATE
00169  M00S00166.msi     +++|*                THE USER NAME MUST BE SPECIFIED OR THE
00170  M00S00167.msi     +++|*                PACK NAME CLEARED.
00171  M00S00168.msi     +++|*
00172  M00S00169.msi     +++|*         *NC IS NOT A POWER OF 2.*  THE NUMBER OF CATALOG TRACKS
00173  M00S00170.msi     +++|*                MUST BE A POWER OF 2.  CORRECT AND ENTER *GO*.
00174  M00S00171.msi     +++|*
00175  M00S00172.msi     +++|*         *FAMILY MASK NOT EQUAL TO 377.*  THE DEVICE MASK FOR THE
00176  M00S00173.msi     +++|*                FAMILY DOES NOT EQUAL 377B, CORRECT AND ENTER
00177  M00S00174.msi     +++|*                *GO* OR ENTER *GO* TO OVERRIDE.  THIS IS THE ONLY
00178  M00S00175.msi     +++|*                INPUT ACCEPTED AT THIS TIME.
00179  M00S00176.msi     +++|*
00180  M00S00177.msi     +++|*         *EQ OR DN INCORRECT.*  EST ORDINAL TOO BIG, DEVICE SPECIFIED
00181  M00S00178.msi     +++|*                IS NOT MASS STORAGE, OR DEVICE NUMBER .GT. 77B WAS
00182  M00S00179.msi     +++|*                SPECIFIED.  CORRECT AND ENTER *GO.*.
00183  M00S00180.msi     +++|*
00184  M00S00181.msi     +++|*         *EQXXX, NO FULL TRACK ACCESS.*  INDICATES AN ATTEMPT TO
00185  M00S00182.msi     +++|*                INITIALIZE WITH *OP=FT* AND NO FULL TRACK ACCESS
00186  M00S00183.msi     +++|*                EXISTS.  ENTER *CLEAR* TO CLEAR THE INITIALIZE REQUEST
00187  M00S00184.msi     +++|*                OR *GO* TO INITIALIZE AS A HALF TRACK DEVICE.
00188  M00S00185.msi     +++|*
00189  M00S00186.msi     +++|*         *INCORRECT ENTRY.*  INPUT NOT ALLOWED - INCORRECT FORMAT OF
00190  M00S00187.msi     +++|*                INPUT LINE OR MODIFICATION OF A TRACK RESERVED FOR
00191  M00S00188.msi     +++|*                HARDWARE TESTING WAS ATTEMPTED.
00192  M00S00189.msi     +++|*
00193  M00S00190.msi     +++|*         *FM OR PN MUST BE SPECIFIED.*  ENTER THE REQUIRED
00194  M00S00191.msi     +++|*                PARAMETER AND ENTER *GO*.
00195  M00S00192.msi     +++|*
00196  M00S00193.msi     +++|*         *NP GREATER THAN 8.*  ENTER CORRECT NUMBER OF PACKS THEN
00197  M00S00194.msi     +++|*                ENTER *GO*.
00198  M00S00195.msi     +++|*
00199  M00S00196.msi     +++|*         *DUPLICATE PN.*  ANOTHER PACK IN THE SYSTEM HAS THE SAME
00200  M00S00197.msi     +++|*                NAME.  CHANGE THE PACKNAM OR REMOVE THE OTHER
00201  M00S00198.msi     +++|*                DEVICE FROM THE SYSTEM (IF THIS IS DONE *CMS* MUST
00202  M00S00199.msi     +++|*                RUN TO UPDATE THE MST TABLES).
00203  M00S00200.msi     +++|*
00204  M00S00201.msi     +++|*         *NC EXCEEDS 200B.*  THE NUMBER OF CATALOG TRACKS EXCEEDS
00205  M00S00202.msi     +++|*                200B.  CORRECT AND ENTER *GO*.
00206  M00S00203.msi     +++|*
00207  M00S00204.msi     +++|*         *CANNOT ALLOCATE DEVICE.*  CANNOT ALLOCATE A MULTI-SPINDLE
00208  M00S00205.msi     +++|*                DEVICE, NOT ENOUGH SPARE EQUIPMENT OR SPARES
00209  M00S00206.msi     +++|*                NOT UP AND ALLOCATABLE OR AN ATEMPT WAS MADE TO
00210  M00S00207.msi     +++|*                ALLOCATE A NONREMOVABLE DEVICE.  DECREASE THE PACK
00211  M00S00208.msi     +++|*                COUNT AND ENTER *GO* OR ENTER *CLEAR* TO VOID MSI RUN.
00212  M00S00209.msi     +++|*
00213  M00S00210.msi     +++|*         *NOT AUXILIARY PACK.*  ATTEMPT TO MAKE A PRIVATE PACK OUT
00214  M00S00211.msi     +++|*                OF A NONAUXILIARY DEVICE.  CORRECT AND ENTER *GO*.
00215  M00S00212.msi     +++|*
00216  M00S00213.msi     +++|*         *DUPLICATE DN.*  DEVICE NUMBER MATCHES ANOTHER IN THE
00217  M00S00214.msi     +++|*                FAMILY CORRECT AND ENTER *GO* OR OVERRIDE BY
00218  M00S00215.msi     +++|*                ENTERING *GO*.  THIS IS THE ONLY INPUT ACCEPTED AT
00219  M00S00216.msi     +++|*                THIS TIME.  THE OVERRIDE IS ONLY ALLOWED IF THE
00220  M00S00217.msi     +++|*                CONFLICTING DEVICE HAS THE FULL INITIALIZE STATUS SET.
00221  M00S00218.msi     +++|*
00222  M00S00219.msi     +++|*         *DEVICE NOT REMOVABLE.*  A NONREMOVABLE DEVICE WAS
00223  M00S00220.msi     +++|*                SELECTED FOR CHAINING IN A MULTIPACK STRING.
00224  M00S00221.msi     +++|*                ENTER *CLEAR* TO VOID THE MSI RUN.
00225  M00S00222.msi     +++|*
00226  M00S00223.msi     +++|*         *NP NOT ALLOWED.*  THE EQUIPMENT IS NOT A PACK TYPE
00227  M00S00224.msi     +++|*                DEVICE.  CORRECT AND ENTER *GO*.
00228  M00S00225.msi     +++|*
00229  M00S00226.msi     +++|*         *DUPLICATE BITS IN MASK.*  THE MASK FOR THE FAMILY HAS
00230  M00S00227.msi     +++|*                DUPLICATE BITS SET, THIS DESTROYS THE INTEGRITY OF
00231  M00S00228.msi     +++|*                THE PF SYSTEM BY CREATING AN AMBIGUOUS MAPING OF THE
00232  M00S00229.msi     +++|*                USER INDEX.  CORRECT AND ENTER *GO* OR ENTER *GO* TO
00233  M00S00230.msi     +++|*                OVERRIDE.  THIS IS THE ONLY INPUT ACCEPTED AT THIS
00234  M00S00231.msi     +++|*                TIME.  THE OVERRIDE IS ONLY ALLOWED IF THE CONFLICTING
00235  M00S00232.msi     +++|*                DEVICE HAS THE FULL INITIALIZE STATUS SET.
00236  M00S00233.msi     +++|*
00237  M00S00234.msi     +++|*         *DEVICE NOT FIRST IN CHAIN.*  TO PREVENT DESTROYING THE
00238  M00S00235.msi     +++|*                INTEGRITY OF A LINKED DEVICE INITIALIZATION WILL ONLY
00239  M00S00236.msi     +++|*                TAKE PLACE ON AN AVAILABLE DEVICE IF IT IS THE FIRST
00240  M00S00237.msi     +++|*                DEVICE IN THE CHAIN.  THE ONLY INPUT ACCEPTED AT THIS
00241  M00S00238.msi     +++|*                TIME IS *RERUN* OR *CLEAR*.
00242  M00S00239.msi     +++|*
00243  M00S00240.msi     +++|*         *EQXXX, INITIALIZE BIT NOT SET.*  EQXXX IS AVAILABLE AND HAS
00244  M00S00241.msi     +++|*                A GOOD LABEL, IT CANNOT BE LINKED TO ANOTHER EQUIPMENT
00245  M00S00242.msi     +++|*                UNLESS THE TOTAL INITIALIZE REQUEST IS SET.  ENTER DSD
00246  M00S00243.msi     +++|*                COMMAND *INITIALIZE,AL,XXX.*, THEN ENTER *K.RERUN.* TO
00247  M00S00244.msi     +++|*                UPDATE THE STATUS OF MSI, OR ENTER *CLEAR*
00248  M00S00245.msi     +++|*                TO VOID THE MSI RUN.
00249  M00S00246.msi     +++|*
00250  M00S00247.msi     +++|*         *DN CANNOT BE ZERO.*  A (DN = 0) WAS ENTERED TO CLEAR A
00251  M00S00248.msi     +++|*                DUPLICATE DEVICE NUMBER ERROR.  THE DN CANNOT BE ZERO
00252  M00S00249.msi     +++|*                FOR A FAMILY TYPE DEVICE.  ENTER A NONZERO VALUE
00253  M00S00250.msi     +++|*                TO CONTINUE OR ENTER *GO* TO OVERRIDE THE ERROR.
00254  M00S00251.msi     +++|*
00255  M00S00252.msi     +++|*         *EQXXX, FORMAT PENDING.*  EQXXX HAS THE FORMAT PENDING BIT
00256  M00S00253.msi     +++|*                SET AND CANNOT BE PROCESSED UNTIL FORMATTING IS
00257  M00S00254.msi     +++|*                COMPLETE.
00258  M00S00255.msi     +++|*
00259  M00S00256.msi     +++|*         *DEADSTART INITIALIZE REQUIRED.*  THE PENDING INITIALIZE IS
00260  M00S00257.msi     +++|*                FOR A NONREMOVABLE DEVICE WITH ERROR IDLE OR A LABEL
00261  M00S00258.msi     +++|*                ERROR STATUS.  THIS ERROR STATUS REQUIRES A DEADSTART
00262  M00S00259.msi     +++|*                INITIALIZE.
00263  M00S00260.msi     +++|*
00264  M00S00261.msi     +++|*         *DEFINED DEVICE ALREADY EXISTS.*  THE DEVICE AS DEFINED
00265  M00S00262.msi     +++|*                ALREADY EXISTS IN THE MULTI-MAINFRAME ENVIRONMENT.
00266  M00S00263.msi     +++|*                IF THIS IS AN AUXILIARY DEVICE CHANGE THE PACKNAME
00267  M00S00264.msi     +++|*                OR REMOVE THE OTHER PACK FROM THE COMPLEX.  IF A
00268  M00S00265.msi     +++|*                FAMILY DEVICE CHANGE THE DEVICE NUMBER TO A UNIQUE
00269  M00S00266.msi     +++|*                VALUE FOR THIS FAMILY.
00270  M00S00267.msi     +++|*
00271  M00S00268.msi     +++|*         *FULL INITIALIZE REQUIRED.*  THE PENDING INITIALIZE IS FOR
00272  M00S00269.msi     +++|*                A DEVICE WITH AN ERROR STATUS SET.  THIS DEVICE MUST
00273  M00S00270.msi     +++|*                BE INITIALIZED WITH A FULL INITIALIZE REQUEST.
00274  M00S00271.msi     +++|*
00275  M00S00272.msi     +++|*         *EQXXX, TRACK LIMIT.*  INSUFFICIENT SPACE ON THE DEVICE TO
00276  M00S00273.msi     +++|*                COMPLETE THE INITIALIZATION.  FREE UP SPACE AND ENTER
00277  M00S00274.msi     +++|*                *RERUN* OR ENTER *CLEAR*.  IF THIS ERROR OCCURS
00278  M00S00275.msi     +++|*                DURING DEADSTART, REDEADSTART AND CHECK EQUIPMENT
00279  M00S00276.msi     +++|*                USAGE IN THE *CMRDECK*.
00280  M00S00277.msi     +++|*
00281  M00S00278.msi     +++|*         *UA NOT WITHIN LIMIT.*  THE UPPER BOUND ACCESS LEVEL
00282  M00S00279.msi     +++|*                EXCEEDS THAT CONTAINED IN THE EST.  CORRECT AND
00283  M00S00280.msi     +++|*                ENTER *GO*.
00284  M00S00281.msi     +++|*
00285  M00S00282.msi     +++|*         *LA NOT WITHIN LIMIT.*  THE LOWER BOUND ACCESS LEVEL
00286  M00S00283.msi     +++|*                IS SMALLER THAN THAT CONTAINED IN THE EST. CORRECT
00287  M00S00284.msi     +++|*                AND ENTER *GO*.
00288  M00S00285.msi     +++|*
00289  M00S00286.msi     +++|*         *LA GREATER THAN UA.*  THE LOWER ACCESS LEVEL LIMIT
00290  M00S00287.msi     +++|*                IS GREATER THAN THE UPPER LIMIT.  CORRECT AND
00291  M00S00288.msi     +++|*                ENTER *GO*.
00292  M00S00289.msi     +++|*
00293  M00S00290.msi     +++|*         *UNKNOWN ACCESS LEVEL NAME.*  THE ACCESS LEVEL NAME
00294  M00S00291.msi     +++|*                ENTERED IS INCORRECT.  CORRECT AND ENTER *GO*.
00295  M00S00292.msi     +++|*
00296  M00S00293.msi     +++|*         TO HALT PROCESSING ON THE CURRENT EQUIPMENT ENTER *CLEAR*
00297  M00S00294.msi     +++|*         THE CURRENT INITIALIZE REQUEST WILL BE CLEARED AND MSI WILL
00298  M00S00295.msi     +++|*         ADVANCE TO THE NEXT DEVICE WITH AN INITIALIZE REQUEST UP.
00299  M00S00296.msi     +++|*
00300  M00S00297.msi     +++|*         TO CLEAR ALL PARAMETER INPUT WITHOUT CLEARING THE INITIALIZE
00301  M00S00298.msi     +++|*         REQUEST ENTER *RERUN*.
00302  M00S00299.msi     +++|          TITLE  MACROS.
00303  M00S00300.msi     +++|*CALL     COMCMAC
00304  M00S00301.msi     +++|*CALL     COMCDCM
00305  M00S00302.msi     +++| CLEAR    SPACE  4
00306  M00S00303.msi     +++|**        CLEAR - CLEAR STORAGE.
00307  M00S00304.msi     +++|*
00308  M00S00305.msi     +++|*         CLEAR  FWA,COUNT,MASK
00309  M00S00306.msi     +++|*
00310  M00S00307.msi     +++|*         IF *MASK* IS *X7* IT IS ASSUMED THAT (X7) = 0.
00311  M00S00308.msi     +++|
00312  M00S00309.msi     +++|
00313  M00S00310.msi     +++|          PURGMAC  CLEAR
00314  M00S00311.msi     +++| CLEAR    MACRO  L,C,M
00315  M00S00312.msi     +++|          LOCAL  A
00316  M00S00313.msi     +++|          MACREF CLEAR
00317  M00S00314.msi     +++|          IFNE   M,X7,1
00318  M00S00315.msi     +++|          MX7 0
00319  M00S00316.msi     +++|          R= B2,L
00320  M00S00317.msi     +++|          R= B3,L+C
00321  M00S00318.msi     +++| A        SA7 B2
00322  M00S00319.msi     +++|          SB2 B2+B1
00323  M00S00320.msi     +++|          NE B2,B3,A
00324  M00S00321.msi     +++|          ENDM
00325  M00S00322.msi     +++| ERROR    SPACE  4
00326  M00S00323.msi     +++|**        ERROR - DISPLAY KEYBOARD ERROR MESSAGE.
00327  M00S00324.msi     +++|*
00328  M00S00325.msi     +++|*         ERROR  NUMBER
00329  M00S00326.msi     +++|
00330  M00S00327.msi     +++|
00331  M00S00328.msi     +++|          PURGMAC  ERROR
00332  M00S00329.msi     +++| ERROR    MACRO  N
00333  M00S00330.msi     +++|          MACREF ERROR
00334  M00S00331.msi     +++| .N       MICRO  1,,*N*
00335  M00S00332.msi     +++|          SA1 ERROR".N"
00336  M00S00333.msi     +++|          RJ MTW
00337  M00S00334.msi     +++|          ENDM
00338  M00S00335.msi     +++|          SPACE  4
00339  M00S00336.msi     +++|**        KEYMES - DISPLAY KEYBOARD MESSAGE.
00340  M00S00337.msi     +++|*
00341  M00S00338.msi     +++|*         KEYMES MES
00342  M00S00339.msi     +++|
00343  M00S00340.msi     +++|
00344  M00S00341.msi     +++|          PURGMAC  KEYMES
00345  M00S00342.msi     +++|          MACREF KEYMES
00346  M00S00343.msi     +++| KEYMES   MACRO  N
00347  M00S00344.msi     +++|          SA1 N
00348  M00S00345.msi     +++|          RJ MTW
00349  M00S00346.msi     +++|          ENDM
00350  M00S00347.msi     +++|          SPACE  4,10
00351  M00S00348.msi     +++|**        COMMON DECKS.
00352  M00S00349.msi     +++|
00353  M00S00350.msi     +++|
00354  M00S00351.msi     +++|*CALL     COMSDSL
00355  M00S00352.msi     +++|*CALL     COMSDSP
00356  M00S00353.msi     +++|*CALL     COMSESS
00357  M00S00354.msi     +++|*CALL     COMSIOQ
00358  M00S00355.msi     +++|*CALL     COMSLSD
00359  M00S00356.msi     +++|*CALL     COMSMLS
Line S00357 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00357.253l688 ---|*CALL     COMSMSI
Line S00003 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00361  M01S00003.253l688 +++|          LIST   X
00362  M01S00004.253l688 +++|*CALL     COMSMSI
00363  M01S00005.253l688 +++|          LIST   *
00364  M00S00358.msi     +++|*CALL     COMSMSP
00365  M00S00359.msi     +++|*CALL     COMSMST
00366  M00S00360.msi     +++|*CALL     COMSPFM
00367  M00S00361.msi     +++|*CALL     COMSPRD
Line S00362 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00368  M01S00362.286l859 ---|*CALL     COMSPFS
00369  M00S00363.msi     +++|          QUAL   PFU
00370  M00S00364.msi     +++|*CALL     COMSPFU
00371  M00S00365.msi     +++|          QUAL   *
00372  M00S00366.msi     +++| CTCT     EQU    /PFU/CTCT
00373  M00S00367.msi     +++| CTCU     EQU    /PFU/CTCU
00374  M00S00368.msi     +++| CTLM     EQU    /PFU/CTLM
00375  M00S00369.msi     +++| CTOP     EQU    /PFU/CTOP
00376  M00S00370.msi     +++| CTSU     EQU    /PFU/CTSU
00377  M00S00371.msi     +++| FTCA     EQU    /PFU/FTCA
00378  M00S00372.msi     +++| FTPM     EQU    /PFU/FTPM
00379  M00S00373.msi     +++| FTSC     EQU    /PFU/FTSC
00380  M00S00374.msi     +++|*CALL     COMSSFM
Line S00006 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00381  M01S00006.253l688 +++|*CALL     COMSSSD
00382  M00S00375.msi     +++|*CALL     COMSSSJ
00383  M00S00376.msi     +++|          TITLE  ASSEMBLY CONSTANTS.
Line S00377 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00377.253l688 ---|
00385  M01S00378.253l688 ---|*         EQUATES FOR IMS FUNCTIONS.
00386  M01S00379.253l688 ---|
00387  M01S00380.253l688 ---|
00388  M01S00381.253l688 ---|
00389  M01S00382.253l688 ---| IND      EQU    0100B       INITIALIZE DEVICE
00390  M01S00383.253l688 ---| EDT      EQU    0200B       EDIT DA FILES ON DEVICE
00391  M01S00384.253l688 ---| SFL      EQU    0300B       SET FLAWS ON DEVICE
00392  M01S00385.253l688 ---| CSD      EQU    0400B       CHECK SHARED DEVICE
00393  M01S00386.253l688 ---| ILA      EQU    0500B       INITIALIZE LOCAL AREAS
00394  M01S00387.253l688 ---| MMS      EQU    0600B       MODIFY MASS STORAGE TABLES
00395  M01S00388.253l688 ---| CIN      EQU    0700B       CLEAR INITIALIZE BIT
00396  M01S00389.253l688 ---| IDF      EQU    1000B       INITIALIZE DAYFILES
00397  M01S00390.253l688 ---| CIT      EQU    1100B       CLEAR CMS INTERLOCK
00398  M01S00391.253l688 ---| ISD      EQU    1200B       INTERLOCK INDEPENDENT SHARED DEVICE
00399  M01S00392.253l688 ---|
Line S00007 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00400  M01S00007.253l688 +++|          SPACE  4,5
00401  M00S00393.msi     +++|*         TABLE AND BUFFER SIZES.
00402  M00S00394.msi     +++|
00403  M00S00395.msi     +++| PKLL     EQU    10B         LENGTH OF PACK LINK TABLE
00404  M00S00396.msi     +++| CATBL    EQU    1011B       CATALOG BUFFER LENGTH
00405  M00S00397.msi     +++| SCRBL    EQU    201B        SCRATCH BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00001.286l859 +++| PARAML   EQU    40B         PARAMETER AREA LENGTH
00407  M00S00398.msi     +++|          TITLE  DISPLAY BUFFER LINE NUMBER TABLES.
00408  M00S00399.msi     +++|          SPACE  4
00409  M00S00400.msi     +++|          TITLE  PARAMETER HOLD AREA.
00410  M00S00401.msi     +++|          ORG    106B
00411  M00S00402.msi     +++| ORIG     BSS    1           COMMAND NAME (FOR *UPC*)
Line S00403 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00412  M01S00403.286l859 ---| PAR      BSS    /COMSPFS/PARAML  PARAMETER AREA
Line S00002 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00413  M01S00002.286l859 +++| PAR      BSS    PARAML      PARAMETER AREA
00414  M00S00404.msi     +++|          SPACE  4
00415  M00S00405.msi     +++|*         OPTION TABLE.
00416  M00S00406.msi     +++|
00417  M00S00407.msi     +++| OTBL     EQU    *
00418  M00S00408.msi     +++|          LOC    0
00419  M00S00409.msi     +++| PMFN     BSS    1           FAMILY NAME
00420  M00S00410.msi     +++| PMUN     BSS    1           USER NAME
00421  M00S00411.msi     +++| PMID     BSS    1           ID ENTRY
00422  M00S00412.msi     +++|          BSS    1
00423  M00S00413.msi     +++| PMTY     BSS    1           TYPE ENTRY
00424  M00S00414.msi     +++| PMLA     BSS    1           LOWER ACCESS LEVEL
00425  M00S00415.msi     +++| PMUA     BSS    1           UPPER ACCESS LEVEL
00426  M00S00416.msi     +++| NNME     EQU    *-PMFN
00427  M00S00417.msi     +++| PMDM     BSS    1           DEVICE MASK
00428  M00S00418.msi     +++| PMSM     BSS    1           SECONDARY MASK
00429  M00S00419.msi     +++| PMNC     BSS    1           NUMBER CATALOG TRACKS
00430  M00S00420.msi     +++| PMNP     BSS    1           NUMBER OF PACKS
00431  M00S00421.msi     +++| PMDN     BSS    1           DEVICE NUMBER
00432  M00S00422.msi     +++| PMEQ     BSS    1           EST ORDINAL
00433  M00S00423.msi     +++| PMOP     BSS    1           OPTION
00434  M00S00424.msi     +++| PMXX     BSS    1           GARBAGE INPUT
00435  M00S00425.msi     +++| NOCT     EQU    *-PMDM
00436  M00S00426.msi     +++|          LOC    *O
00437  M00S00427.msi     +++| OTBLL    EQU    *-OTBL      OPTION TABLE LENGTH
00438  M00S00428.msi     +++|          ORG    OTBL
00439  M00S00429.msi     +++|          SPACE  4
00440  M00S00430.msi     +++|*         TENP - TABLE OF ENTERED PARAMETERS.
00441  M00S00431.msi     +++|
00442  M00S00432.msi     +++|
00443  M00S00433.msi     +++| TENP     BSS    0
00444  M00S00434.msi     +++|          BSS    OTBLL
00445  M00S00435.msi     +++|          SPACE  4
00446  M00S00436.msi     +++|*         PARC - TABLE OF CONVERTED PARAMETERS.
00447  M00S00437.msi     +++|
00448  M00S00438.msi     +++|
00449  M00S00439.msi     +++| PARC     BSS    0           42/FN,18/0
00450  M00S00440.msi     +++|          BSSZ   OTBLL       42/UI,18/0
00451  M00S00441.msi     +++|                             42/ID,18/0
00452  M00S00442.msi     +++|                             42/ID,18/0
00453  M00S00443.msi     +++|                             06/TY,54/0
00454  M00S00444.msi     +++|                             42/LA,18/0
00455  M00S00445.msi     +++|                             42/UA,18/0
00456  M00S00446.msi     +++|                             52/0,8/DM
00457  M00S00447.msi     +++|                             52/0,8/SM
00458  M00S00448.msi     +++|                             57/0,3/NC
00459  M00S00449.msi     +++|                             57/0,3/NP
00460  M00S00450.msi     +++|                             54/0,6/DN
00461  M00S00451.msi     +++|                             54/0,6/EQ
00462  M00S00452.msi     +++|                             57/0,3/OP
00463  M00S00453.msi     +++|                             60/TRASH
00464  M00S00454.msi     +++|          SPACE  4
00465  M00S00455.msi     +++|*         TARG - ARGUMENT TABLE.
00466  M00S00456.msi     +++|
00467  M00S00457.msi     +++|
00468  M00S00458.msi     +++| TARG     BSS    0
00469  M00S00459.msi     +++| FM       ARG    DARG,(TENP+PMFN),400B
00470  M00S00460.msi     +++| PN       ARG    DARG,(TENP+PMFN),400B
00471  M00S00461.msi     +++| UN       ARG    DARG,(TENP+PMUN),400B
00472  M00S00462.msi     +++| TY       ARG    DARG,(TENP+PMTY),400B
00473  M00S00463.msi     +++| ENLA     BSS    0
00474  M00S00464.msi     +++| LA       ARG    DARG,(TENP+PMLA),400B
00475  M00S00465.msi     +++| ENUA     BSS    0
00476  M00S00466.msi     +++| UA       ARG    DARG,(TENP+PMUA),400B
00477  M00S00467.msi     +++| DM       ARG    DARG,(TENP+PMDM),400B
00478  M00S00468.msi     +++| SM       ARG    DARG,(TENP+PMSM),400B
00479  M00S00469.msi     +++| NC       ARG    DARG,(TENP+PMNC),400B
00480  M00S00470.msi     +++| NP       ARG    DARG,(TENP+PMNP),400B
00481  M00S00471.msi     +++| DN       ARG    DARG,(TENP+PMDN),400B
00482  M00S00472.msi     +++| DARG     BSSZ   1           DEFAULT ENTRY
00483  M00S00473.msi     +++| ENDP     BSS    0
00484  M00S00474.msi     +++| OP       ARG    DARG,(TENP+PMOP),400B
00485  M00S00475.msi     +++|          BSSZ   1
00486  M00S00476.msi     +++| ENEQ     BSS    0
00487  M00S00477.msi     +++| EQ       ARG    DARG,(TENP+PMEQ),400B
00488  M00S00478.msi     +++|          BSSZ   1
00489  M00S00479.msi     +++| ENMS     BSS    0
00490  M00S00480.msi     +++| DM       ARG    DARG,(TENP+PMDM),400B
00491  M00S00481.msi     +++| NC       ARG    DARG,(TENP+PMNC),400B
00492  M00S00482.msi     +++|          BSSZ   1
00493  M00S00483.msi     +++| ENDN     BSS    0
00494  M00S00484.msi     +++| DN       ARG    DARG,(TENP+PMDN),400B
00495  M00S00485.msi     +++|          BSSZ   1
00496  M00S00486.msi     +++| EIDS     BSS    0
00497  M00S00487.msi     +++| FM       ARG    DARG,(TENP+PMID),400B
00498  M00S00488.msi     +++| PN       ARG    DARG,(TENP+PMID),400B
00499  M00S00489.msi     +++| UN       ARG    DARG,(TENP+PMID+1),400B
00500  M00S00490.msi     +++| DN       ARG    DARG,(TENP+PMID+1),400B
00501  M00S00491.msi     +++|          BSSZ   1
00502  M00S00492.msi     +++| HNGP     BSS    0
00503  M00S00493.msi     +++| XX       ARG    DARG,(TENP+PMXX),400B
00504  M00S00494.msi     +++|          BSSZ   1
00505  M00S00495.msi     +++| DATB     SPACE  4,10
00506  M00S00496.msi     +++|*         DATB - DISPLAY ADDRESS TABLE.
00507  M00S00497.msi     +++|
00508  M00S00498.msi     +++|
00509  M00S00499.msi     +++| DATB     BSS    0           DISPLAY ADDRESS TABLE
00510  M00S00500.msi     +++|          CON    FNDS+1
00511  M00S00501.msi     +++|          CON    UNDS+1
00512  M00S00502.msi     +++|          CON    SCRB
00513  M00S00503.msi     +++|          CON    SCRB
00514  M00S00504.msi     +++|          CON    TYDS+1
00515  M00S00505.msi     +++|          CON    LADS+1
00516  M00S00506.msi     +++|          CON    UADS+1
00517  M00S00507.msi     +++|          CON    DMDS+1
00518  M00S00508.msi     +++|          CON    SMDS+1
00519  M00S00509.msi     +++|          CON    NCDS+1
00520  M00S00510.msi     +++|          CON    NPDS+1
00521  M00S00511.msi     +++|          CON    DNDS+1
00522  M00S00512.msi     +++|          CON    EQDS+1
00523  M00S00513.msi     +++|          CON    SCRB
00524  M00S00514.msi     +++|          CON    SCRB
00525  M00S00515.msi     +++| DAST     CON    LTDS+1      LEFT SCREEN ADDRESS
00526  M00S00516.msi     +++| DASM     CON    LTDS+3      MATCH ADDRESS FOR TRT
00527  M00S00517.msi     +++|          SPACE  4
00528  M00S00518.msi     +++| FETS     SPACE  4,10
00529  M00S00519.msi     +++|*         FETS.
00530  M00S00520.msi     +++|
00531  M00S00521.msi     +++|
00532  M00S00522.msi     +++| QFET     FILEB  CATB,CATBL,EPR,FET=8  *QFM* FET
00533  M00S00523.msi     +++| CATS     FILEB  CATB,CATBL,FET=10     *PFU* FET
00534  M00S00524.msi     +++| UIFT     FILEB  0,0,FET=10            *PFU* UTILITY INTERLOCK FET
Line S00008 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00535  M01S00008.253l688 +++| OUTPUT   FILEC  0,0                   *ABT* PROCESSOR OUTPUT FET
00536  M00S00525.msi     +++| FLAGS    SPACE  4
00537  M00S00526.msi     +++|*         FLAGS (CLEARED BY *PRS*).
00538  M00S00527.msi     +++|
00539  M00S00528.msi     +++| FLGS     EQU    *           FWA OF FLAG BLOCK
00540  M00S00529.msi     +++| TEMP     BSS    1           TEMPORARY CELL
00541  M00S00530.msi     +++| FLAG     BSS    1           FLAGS NO PARAMETER INPUT NEEDED
00542  M00S00531.msi     +++| PVT      BSS    1           FLAGS DEVICE IS PRIVATE PACK
00543  M00S00532.msi     +++| DSI      BSS    1           FLAG DEADSTART INITIALIZE
00544  M00S00533.msi     +++| TOTL     BSS    1           FLAG TOTAL INITIALIZE (NEGATIVE)
00545  M00S00534.msi     +++| PALF     BSS    1           PACKS ALLOCATED FLAG 12/EQ NUMBER
00546  M00S00535.msi     +++| CNT      BSS    1           PARAMETER COUNT/ CATALOG TRACK COUNT
00547  M00S00536.msi     +++| LCRC     BSS    1           LOW CORE READ CONTROL WORD
00548  M00S00537.msi     +++| BUFI     BSS    1           INDEX TO MST RECORDS IN BUFFER
00549  M00S00538.msi     +++| ARGP     BSS    1           POINTER TO CURRENT ARGUMENT TABLE
00550  M00S00539.msi     +++| PFUF     BSS    1           FLAG *PFU* ACTIVE
00551  M00S00540.msi     +++| UIFL     BSS    1           UTILITY INTERLOCK FLAG (PFU)
00552  M00S00541.msi     +++| LINK     BSS    1           LINK EST ORDINAL
00553  M00S00542.msi     +++| CLF      BSS    1           FLAG *CLEAR* REQUEST ENTERED
00554  M00S00543.msi     +++| CLOV     BSS    1           *CLEAR* OVERRIDE EST ORDINAL
00555  M00S00544.msi     +++| SSFL     BSS    1           SECURE SYSTEM FLAG
Line S00009 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00009.253l688 +++| SSID     CON    MSSI        SUBSYSTEM ID
00557  M00S00545.msi     +++| FLGSL    EQU    *-FLGS      LENGTH OF FLAG BLOCK
00558  M00S00546.msi     +++|          SPACE  4
00559  M00S00547.msi     +++|**        TEMPORARY CELLS.
00560  M00S00548.msi     +++|
00561  M00S00549.msi     +++|
00562  M00S00550.msi     +++| EQ       CON    0           EST ORDINAL (DISPLAY CODE)
00563  M00S00551.msi     +++| RQ       CON    0           INITIALIZE REQUESTS PROCESSED
00564  M00S00552.msi     +++|
00565  M00S00553.msi     +++|*         FLAW FLAG.
00566  M00S00554.msi     +++|
00567  M00S00555.msi     +++| FLFG     CON    0           IF SET, FLAW PROCESSING
00568  M00S00556.msi     +++|          TITLE  MAIN LOOP.
00569  M00S00557.msi     +++|**        MSI - MAIN PROGRAM.
00570  M00S00558.msi     +++|
00571  M00S00559.msi     +++|
00572  M00S00560.msi     +++| MSI      SB1    1
Line S00561 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00573  M01S00561.253l688 ---|          EREXIT ABT         SET ABORT PROCESSOR ADDRESS
Line S00010 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00010.253l688 +++|          EREXIT  ABT1       SET ABORT PROCESSOR ADDRESS
00575  M00S00562.msi     +++|          BX6    X6-X6       CLEAR FLAW FLAG
00576  M00S00563.msi     +++|          SA6    FLFG
00577  M00S00564.msi     +++| MSI1     RJ     PRS         PRESET
00578  M00S00565.msi     +++|          RJ     CIR         CHECK INITIALIZATION REQUESTED
00579  M00S00566.msi     +++|          SA1    RQ
00580  M00S00567.msi     +++|          PL     B6,MSI3     IF INITIALIZATION REQUESTED
00581  M00S00568.msi     +++|          NZ     X1,MSI2     IF AT LEAST ONE REQUEST PROCESSED
00582  M00S00569.msi     +++|          MESSAGE  MESC      * NO INITIALIZE REQUESTS SET FOR MSI.*
00583  M00S00570.msi     +++| MSI2     KEYMES EDRN        *END OF RUN.*
00584  M00S00571.msi     +++|          SYSTEM IMS,R,,CIT  CLEAR *CMS* INTERLOCK
00585  M00S00572.msi     +++|          EXCST  =C*CMS.*    CALL *CMS* TO UPDATE SYSTEM CONFIGURATION
00586  M00S00573.msi     +++|          ENDRUN
00587  M00S00574.msi     +++|
00588  M00S00575.msi     +++|*         IF EQUIPMENT AVAILABLE AND NOT DEADSTART STATUS OR
00589  M00S00576.msi     +++|*         IF EQUIPMENT UNAVAILABLE AND IF THE LABEL WAS RECOVERED,
00590  M00S00577.msi     +++|*         REQUEST THE VERIFICATION OF THE DEVICES PARAMETERS AND COPY
00591  M00S00578.msi     +++|*         THE INFORMATION TO THE K DISPLAY. OTHERWISE GO REQUEST INPUT
00592  M00S00579.msi     +++|*         OF THE NEW PARAMETERS.
00593  M00S00580.msi     +++|
00594  M00S00581.msi     +++| MSI3     SX6    X1+B1       INCREMENT REQUESTS PROCESSED
00595  M00S00582.msi     +++|          SA6    A1
00596  M00S00583.msi     +++|          RJ     DSP         DISPLAY EQUIPMENTS TO BE PROCESSED
00597  M00S00584.msi     +++|          RJ     DIO         DISPLAY INITIALIZE OPTIONS
00598  M00S00585.msi     +++|          SA5    PARC+PMEQ
00599  M00S00586.msi     +++|          R=     X1,ESTE
00600  M00S00587.msi     +++|          IX1    X5*X1
00601  M00S00588.msi     +++|          SA1    ESTB+X1+EQDE  GET EST ENTRY
00602  M00S00589.msi     +++|          SX7    TARG
00603  M00S00590.msi     +++|          SA4    ESTF+X5
00604  M00S00591.msi     +++|          SA7    ARGP
00605  M00S00592.msi     +++|          SA3    X4+STLL
00606  M00S00593.msi     +++|          MX6    6
00607  M00S00594.msi     +++|          LX6    -18
00608  M00S00595.msi     +++|          BX7    -X6*X3      CLEAR ERROR STATUS
00609  M00S00596.msi     +++|          LX1    59-54
00610  M00S00597.msi     +++|          SA7    X4+STLL
00611  M00S00598.msi     +++|          BX3    X6*X3
00612  M00S00599.msi     +++|          LX7    59-LIAL
00613  M00S00600.msi     +++|          SA2    X4+PFGL
00614  M00S00601.msi     +++|          NG     X7,MSI4.1   IF DEADSTART INITIALIZE
00615  M00S00602.msi     +++|          LX3    24
00616  M00S00603.msi     +++|          AX2    12
00617  M00S00604.msi     +++|          ZR     X3,MSI5     IF NO ERROR STATUS
00618  M00S00605.msi     +++|          SA4    TOTL
00619  M00S00606.msi     +++|          NG     X4,MSI4     IF FULL INITIALIZE
00620  M00S00607.msi     +++|          ERROR  25          *FULL INITIALIZE REQUIRED.*
00621  M00S00608.msi     +++|          EQ     MSI6        HALT PROCESSING ON CURRENT DEVICE
00622  M00S00609.msi     +++|
00623  M00S00610.msi     +++| MSI4     NZ     X2,MSI7     IF RECOVERED LABEL
00624  M00S00611.msi     +++|          SX6    X3-STLE
00625  M00S00612.msi     +++|          NZ     X6,MSI4.1   IF NOT LABEL ERROR
00626  M00S00613.msi     +++|          LX1    54-56
00627  M00S00614.msi     +++|          PL     X1,MSI7.1   IF NOT REMOVABLE DEVICE
00628  M00S00615.msi     +++|          RJ     SAL         SET ACCESS LEVEL DEFAULTS
00629  M00S00616.msi     +++|          EQ     MSI10       PROCESS KEYBOARD INPUT
00630  M00S00617.msi     +++|
00631  M00S00618.msi     +++| MSI4.1   NG     X1,MSI5     IF EQUIPMENT UNAVAILABLE
00632  M00S00619.msi     +++|
00633  M00S00620.msi     +++|*         IF INITIALIZE SET, DEVICE AVAILABLE AND DEADSTART STATUS,
00634  M00S00621.msi     +++|*         INITIALIZE AND DO NOT STOP FOR OPERATOR INTERVENTION.
00635  M00S00622.msi     +++|
00636  M00S00623.msi     +++|          MX6    1
00637  M00S00624.msi     +++|          BX7    X7-X7
00638  M00S00625.msi     +++|          SA6    DSI         FLAG DEADSTART INITIALIZE
00639  M00S00626.msi     +++|          EQ     MSI9        DEADSTART INITIALIZE (COPY PARAMETERS)
00640  M00S00627.msi     +++|
00641  M00S00628.msi     +++| MSI5     SA4    ESTF+X5
00642  M00S00629.msi     +++|          SA3    X4+PFGL
00643  M00S00630.msi     +++|          MX1    -3
00644  M00S00631.msi     +++|          AX3    3
00645  M00S00632.msi     +++|          BX1    -X1*X3
00646  M00S00633.msi     +++|          BX6    -X5
00647  M00S00634.msi     +++|          ZR     X1,MSI7     IF ONE OF M
00648  M00S00635.msi     +++|          SA6    CLOV        SET OVERRIDE *CLEAR* INDICATOR
00649  M00S00636.msi     +++|          ERROR  18          *DEVICE NOT FIRST IN CHAIN.*
00650  M00S00637.msi     +++| MSI6     SX6    HNGP
00651  M00S00638.msi     +++|          SX7    7777B
00652  M00S00639.msi     +++|          SA6    ARGP
00653  M00S00640.msi     +++|          SA7    CNT
00654  M00S00641.msi     +++|          RJ     PKI         STOP FURTHER PROCESSING
00655  M00S00642.msi     +++|          KEYMES ENCL        *ENTER CLEAR OR RERUN.*
00656  M00S00643.msi     +++|          EQ     MSI6        LOOP
00657  M00S00644.msi     +++|
00658  M00S00645.msi     +++| MSI7     SA4    ESTF+X5     CHECK STATUS OF DEVICE
00659  M00S00646.msi     +++|          SA1    X4+DULL
00660  M00S00647.msi     +++|          SA2    X4+ACGL
00661  M00S00648.msi     +++|          SA3    X4+MDGL
00662  M00S00649.msi     +++|          SA4    X4+STLL
00663  M00S00650.msi     +++|          NG     X3,MSI8     IF DEVICE REMOVABLE
00664  M00S00651.msi     +++|          LX2    59-4
00665  M00S00652.msi     +++|          PL     X2,MSI8     IF ERROR IDLE NOT SET
00666  M00S00653.msi     +++| MSI7.1   ERROR  24          *DEADSTART INITIALIZE REQUIRED.*
00667  M00S00654.msi     +++|          EQ     MSI6        STOP PROCESSING
00668  M00S00655.msi     +++|
00669  M00S00656.msi     +++| MSI8     MX3    -12
00670  M00S00657.msi     +++|          LX4    -12
00671  M00S00658.msi     +++|          BX7    -X3*X4
00672  M00S00659.msi     +++|          MX3    -11
00673  M00S00660.msi     +++|          BX1    -X3*X1
00674  M00S00661.msi     +++|          MX0    18
00675  M00S00662.msi     +++|          LX4    59-LIPF+12
00676  M00S00663.msi     +++|          BX7    X7+X1
00677  M00S00664.msi     +++|          SA2    CLF         CHECK *CLEAR* FLAG
00678  M00S00665.msi     +++|          ZR     X7,MSI9     IF NO ACTIVE FILES/USERS
00679  M00S00666.msi     +++|          NZ     X2,CLEAR    IF *CLEAR* FLAG SET
00680  M00S00667.msi     +++|          PL     X4,MSI9     IF NOT INITIALIZING PF,S
00681  M00S00668.msi     +++|          LX0    -18
00682  M00S00669.msi     +++|          SA4    EQ
00683  M00S00670.msi     +++|          LX4    42-18
00684  M00S00671.msi     +++|          SA1    MESA
00685  M00S00672.msi     +++|          BX7    -X0*X1
00686  M00S00673.msi     +++|          BX7    X7+X4
00687  M00S00674.msi     +++|          SA7    A1
00688  M00S00675.msi     +++|          MESSAGE  MESA      * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
Line S00676 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00689  M01S00676.253l688 ---|          EQ     ABT         ABORT *MSI*
Line S00011 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00690  M01S00011.253l688 +++|          RJ     ABT         ABORT *MSI*
00691  M00S00677.msi     +++|
00692  M00S00678.msi     +++| MSI9     SA7    CLF         CLEAR *CLEAR* FLAG
00693  M00S00679.msi     +++|          RJ     CPY         COPY PARAMETERS TO K-DISPLAY
00694  M00S00680.msi     +++|          SX6    B1          ALLOW FLAW ENTRIES TO NOW BE MADE
00695  M00S00681.msi     +++|          SA6    CFEB
00696  M00S00682.msi     +++|          SA1    DSI
00697  M00S00683.msi     +++|          SA2    TOTL
00698  M00S00684.msi     +++|          MI     X1,MSI12    IF DEADSTART INITIALIZE
00699  M00S00685.msi     +++|          PL     X2,MSI12    IF NOT TOTAL INITIALIZE
00700  M00S00686.msi     +++| MSI10    SX7    200
00701  M00S00687.msi     +++|          SA7    CNT
00702  M00S00688.msi     +++|          KEYMES REQPM       *ENTER PARAMETERS.*
00703  M00S00689.msi     +++| MSI11    RJ     PKI         PROCESS KEYBOARD INPUT
00704  M00S00690.msi     +++| MSI12    RJ     PPM         PROCESS PARAMETERS
00705  M00S00691.msi     +++|          ZR     X7,MSI11    IF MORE INPUT NEEDED
00706  M00S00692.msi     +++|          RJ     CRE         CHECK REQUIRED ENTRIES
00707  M00S00693.msi     +++|          ZR     X6,MSI12    IF PARAMETERS TO PROCESS
00708  M00S00694.msi     +++|          SA4    TOTL
00709  M00S00695.msi     +++|          SA5    PARC+PMEQ
00710  M00S00696.msi     +++|          NG     X4,MSI12.1  IF TOTAL INITIALIZE
00711  M00S00697.msi     +++|          SA4    X5+ESTF
00712  M00S00698.msi     +++|          SA4    X4+STLL
00713  M00S00699.msi     +++|          LX4    59-LIPF
00714  M00S00700.msi     +++|          PL     X4,MSI14.1  IF NOT *PF* INITIALIZE
00715  M00S00701.msi     +++| MSI12.1  BSS    0
00716  M00S00702.msi     +++|          RJ     UMS         UPDATE MSTS
00717  M00S00703.msi     +++|          ZR     X1,MSI13    IF DEVICE ALLOWED
00718  M00S00704.msi     +++|          KEYMES ERROR22     *DEFINED DEVICE ALREADY EXISTS.*
00719  M00S00705.msi     +++|          EQ     MSI11       PROCESS NEW INPUT
00720  M00S00706.msi     +++|
00721  M00S00707.msi     +++| MSI13    RJ     EDF         SEPARATE FAMILY FROM OTHER EQUIPMENTS
00722  M00S00708.msi     +++|          SA1    ESTF+B7
00723  M00S00709.msi     +++|          SA4    X1+MDGL
00724  M00S00710.msi     +++|          LX4    59-58
00725  M00S00711.msi     +++|          NG     X4,MSI14    IF AUXILIARY DEVICE
00726  M00S00712.msi     +++|          RJ     CMS         CHECK MASKS
00727  M00S00713.msi     +++|          MI     X7,MSI12    PROCESS NEW PARAMETERS
00728  M00S00714.msi     +++|          SA5    PARC+PMEQ
00729  M00S00715.msi     +++|          SA1    ESTF+X5
00730  M00S00716.msi     +++|          LX1    59-54
00731  M00S00717.msi     +++|          NG     X1,MSI14    IF DEVICE UNAVAILABLE
00732  M00S00718.msi     +++|          RJ     ECT         EDIT CATALOGS
00733  M00S00719.msi     +++|          RJ     EDD         EDIT DIRECT ACCESS FILES IN FAMILY
00734  M00S00720.msi     +++| MSI14    SA5    PARC+PMEQ
00735  M00S00721.msi     +++|          SYSTEM IMS,R,X5,IND INITIALIZE PERMANENT FILES
00736  M00S00722.msi     +++| MSI14.1  RJ     ISF         INITIALIZE SPECIAL FILES
00737  M00S00723.msi     +++|          SA1    FLAI
00738  M00S00724.msi     +++|          SX1    X1-TFLA
00739  M00S00725.msi     +++|          ZR     X1,CLEAR    IF NO FLAWS
00740  M00S00726.msi     +++|          SA1    TFLA
00741  M00S00727.msi     +++|          BX2    X5
00742  M00S00728.msi     +++|          LX2    59-35
00743  M00S00729.msi     +++|          BX7    X2+X1       SET EQ NUMBER IN FLAW TABLE
00744  M00S00730.msi     +++|          SA7    A1          RESET TABLE WITH EQ NUMBER ADDED
00745  M00S00731.msi     +++|          SYSTEM IMS,R,TFLA,SFL    SET FLAWS
00746  M00S00732.msi     +++|
00747  M00S00733.msi     +++|*         CHECK FOR MORE DEVICES TO BE INITIALIZED.
00748  M00S00734.msi     +++|
00749  M00S00735.msi     +++| CLEAR    BSS    0           CLEAR INITIALIZE REQUEST
00750  M00S00736.msi     +++|          SA5    PARC+PMEQ
00751  M00S00737.msi     +++|          SA4    CLOV        CHECK OVERRIDE ON THIS EQUIPMENT
00752  M00S00738.msi     +++|          SA2    PKL-1
00753  M00S00739.msi     +++|          SA1    ESTF+X5
00754  M00S00740.msi     +++|          SA1    X1+STLL
00755  M00S00741.msi     +++|          SX6    B1
00756  M00S00742.msi     +++|          PL     X4,MSI15    IF OVERRIDE NOT SET
00757  M00S00743.msi     +++|          IX6    X5+X4       CHECK EQUIPMENT
00758  M00S00744.msi     +++| MSI15    MX3    60-LIRP     CLEAR CURRENT INITIALIZE REQUESTS
00759  M00S00745.msi     +++|          BX1    -X3*X1
00760  M00S00746.msi     +++|          MX3    48-LIMF
00761  M00S00747.msi     +++|          LX3    48
00762  M00S00748.msi     +++|          BX7    -X3*X1
00763  M00S00749.msi     +++|          SA7    A1
00764  M00S00750.msi     +++|          SA1    CLF         CHECK FOR CLEAR OPERATION
00765  M00S00751.msi     +++|          ZR     X1,MSI16    IF NOT *CLEAR*
00766  M00S00752.msi     +++|          ZR     X6,MSI16    IF OVERRIDE SET FOR THIS EST ORDINAL
00767  M00S00753.msi     +++|          RJ     EDF         SEPARATE THE FAMILY FROM OTHER DEVICES
00768  M00S00754.msi     +++|          RJ     CMS         CHECK MASKS
00769  M00S00755.msi     +++|          MI     X7,MSI      PROCESS NEW DATA AS A RERUN
00770  M00S00756.msi     +++|          SA2    PKL-1
00771  M00S00757.msi     +++|          SA5    PARC+PMEQ
00772  M00S00758.msi     +++| MSI16    ZR     X5,MSI17    IF EST ORDINAL ZERO
00773  M00S00759.msi     +++|          SB5    X5          SAVE EST ORDINAL
00774  M00S00760.msi     +++|          SYSTEM IMS,R,X5,CIN  CLEAR CURRENT INITIALIZE REQUEST
00775  M00S00761.msi     +++|          SA2    A2+B1
00776  M00S00762.msi     +++|          SX5    X2
00777  M00S00763.msi     +++|          NZ     X5,MSI16    IF LINKED PACKS CLEAR THEIR INITIALIZE
00778  M00S00764.msi     +++|                             REQUESTS.
00779  M00S00765.msi     +++|          SA1    ESTF+B5     CHECK *ISD* INTERLOCK
00780  M00S00766.msi     +++|          LX1    59-58
00781  M00S00767.msi     +++|          PL     X1,MSI17    IF NO INTERLOCK SET
00782  M00S00768.msi     +++| MSI16.1  SA2    PARC+PMEQ
00783  M00S00769.msi     +++|          BX6    X2
00784  M00S00770.msi     +++|          LX6    48
00785  M00S00771.msi     +++|          SA6    CIRB
00786  M00S00772.msi     +++|          SYSTEM IMS,R,CIRB,ISD  CLEAR DEVICE INTERLOCK
00787  M00S00773.msi     +++|          SA1    CIRB
00788  M00S00774.msi     +++|          PL     X1,MSI16.1  IF INTERLOCK NOT CLEAR
00789  M00S00775.msi     +++| MSI17    RJ     CDS         CLEAR THE DISPLAY
00790  M00S00776.msi     +++|          EQ     MSI1        LOOP FOR MORE EQUIPMENTS
00791  M00S00777.msi     +++|
00792  M00S00778.msi     +++|          TITLE  AUXILIARY PROCESSORS.
00793  M00S00779.msi     +++| RERUN    SPACE  4,10
00794  M00S00780.msi     +++|**        RERUN - RERUN *MSI*.
00795  M00S00781.msi     +++|
00796  M00S00782.msi     +++|
00797  M00S00783.msi     +++| RERUN    RJ     CDS         CLEAR DISPLAY
00798  M00S00784.msi     +++|          SA1    RERNA       LOAD RERUN ADDRESS
00799  M00S00785.msi     +++|          SB2    X1
00800  M00S00786.msi     +++|          JP     B2          RERUN THE SELECTED OPTION
00801  M00S00787.msi     +++|
00802  M00S00788.msi     +++| RERNA    VFD    42/0,18/MSI2
00803  M00S00789.msi     +++| TKL      SPACE  4,10
00804  M00S00790.msi     +++|**        TKL - TRACK LIMIT PROCESSING.
00805  M00S00791.msi     +++|
00806  M00S00792.msi     +++|
00807  M00S00793.msi     +++|
00808  M00S00794.msi     +++| TKL      SA1    PARC+PMEQ   SET EST ORDINAL IN TRACK LIMIT MESSAGE
00809  M00S00795.msi     +++|          RJ     COD
00810  M00S00796.msi     +++|          SA4    ERROR26
00811  M00S00797.msi     +++|          MX7    -18
00812  M00S00798.msi     +++|          LX6    48-18
00813  M00S00799.msi     +++|          LX7    48-18
00814  M00S00800.msi     +++|          BX6    -X7*X6
00815  M00S00801.msi     +++|          BX7    X7*X4
00816  M00S00802.msi     +++|          BX6    X6+X7
00817  M00S00803.msi     +++|          SA6    A4
00818  M00S00804.msi     +++|          ERROR  26          *EQXXX, TRACK LIMIT.*
00819  M00S00805.msi     +++|          EQ     MSI6        STOP PROCESSING
00820  M00S00806.msi     +++|          SPACE  4
00821  M00S00807.msi     +++|***       FLAW - ENTER DEVICE FLAWS.
00822  M00S00808.msi     +++|
00823  M00S00809.msi     +++|
00824  M00S00810.msi     +++| FLAW     SX6    FLAW        SET RERUN ADDRESS
00825  M00S00811.msi     +++|          SA6    RERNA
00826  M00S00812.msi     +++|          SB1    1
00827  M00S00813.msi     +++|          SX6    B1+         SET FLAW FLAG
00828  M00S00814.msi     +++|          SA6    FLFG
00829  M00S00815.msi     +++|          RJ     PRS
00830  M00S00816.msi     +++|          MX6    60          SET OVERRIDE CONTROL
00831  M00S00817.msi     +++|          SA6    CLOV
00832  M00S00818.msi     +++|          SETRNR NOROLL      PREVENT JOB ROLLOUT
00833  M00S00819.msi     +++|          SA5    LRDS        SET UP DISPLAY CONTROL WORD
00834  M00S00820.msi     +++|          BX7    X5
00835  M00S00821.msi     +++|          SA7    KDCW
00836  M00S00822.msi     +++|          SA5    BLK         CLEAR PAGE 2 OF 2 COMMENT
00837  M00S00823.msi     +++|          BX7    X5
00838  M00S00824.msi     +++|          SA7    LNDS+3
00839  M00S00825.msi     +++|          SA5    FLAA
00840  M00S00826.msi     +++|          BX7    X5
00841  M00S00827.msi     +++|          SA7    LNDS+4
00842  M00S00828.msi     +++|          SA5    FLAB
00843  M00S00829.msi     +++|          BX7    X5
00844  M00S00830.msi     +++|          SA7    L
00845  M00S00831.msi     +++|          SA7    R
00846  M00S00832.msi     +++|          RJ     REQ         REQUEST EQUIPMENT
00847  M00S00833.msi     +++|          SA1    PARC+PMEQ
00848  M00S00834.msi     +++|          BX6    -X1
00849  M00S00835.msi     +++|          SA6    CLOV        SET OVERRIDE CONTROL FOR THIS EQUIPMENT
00850  M00S00836.msi     +++|          RJ     COD
00851  M00S00837.msi     +++|          SX6    B1          ALLOW FLAW ENTRIES TO NOW BE MADE
00852  M00S00838.msi     +++|          SA6    CFEB
00853  M00S00839.msi     +++|          BX6    X4
00854  M00S00840.msi     +++|          SA6    INDS+1      SET EST ORDINAL
00855  M00S00841.msi     +++|          KEYMES ENFLS       *ENTER FLAWS.*
00856  M00S00842.msi     +++|          RJ     PKI         PROCESS KEYBOARD
00857  M00S00843.msi     +++|          SA1    PARC+PMEQ
00858  M00S00844.msi     +++|          SA2    TFLA
00859  M00S00845.msi     +++|          LX1    59-35
00860  M00S00846.msi     +++|          BX7    X1+X2       SET EQ NUMBER IN TABLE
00861  M00S00847.msi     +++|          SA7    TFLA
00862  M00S00848.msi     +++|          SYSTEM IMS,R,A7,SFL
00863  M00S00849.msi     +++|          ENDRUN
00864  M00S00850.msi     +++|
00865  M00S00851.msi     +++| FLAA     DATA   1L
00866  M00S00852.msi     +++| FLAB     VFD    18/0,18/KDTA,24/0  DISPLAY CONTROL WORD
00867  M00S00853.msi     +++| FLAI     CON    TFLA
00868  M00S00854.msi     +++|          SPACE  4,10
00869  M00S00855.msi     +++|**        FLAW TABLE FOR *IMS* CALL.
00870  M00S00856.msi     +++|*
00871  M00S00857.msi     +++|*T WORD1  12/ TYPE, 12/ 0, 12/ EQ, 12/ 0, 12/ TRACK
Figure WORD1

01112232429 TRACK 0 EQ303536474859 EQ 0 TYPE

00872  M00S00858.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  M00S00859.msi     +++|*
00874  M00S00860.msi     +++|*         EQ =    EST ORDINAL
00875  M00S00861.msi     +++|*         TYPE =  0 - END TABLE
00876  M00S00862.msi     +++|*                 1 - SET FLAW
00877  M00S00863.msi     +++|*                 2 - CLEAR FLAW
00878  M00S00864.msi     +++|*         TRACK = LOGICAL TRACK TO FLAW
00879  M00S00865.msi     +++|
00880  M00S00866.msi     +++|
00881  M00S00867.msi     +++| TFLA     BSSZ   PNFE        FLAW TABLE
00882  M00S00868.msi     +++|          TITLE  MAJOR PROCESSORS.
00883  M00S00869.msi     +++| REQ      SPACE  4,10
00884  M00S00870.msi     +++|**        REQ - REQUEST EST ORDINAL.
00885  M00S00871.msi     +++|*
00886  M00S00872.msi     +++|*         EXIT   (PARC+PMEQ) = EST ORDINAL.
00887  M00S00873.msi     +++|*
00888  M00S00874.msi     +++|*         USES   X - 1, 2, 4, 5, 6, 7.
00889  M00S00875.msi     +++|*                A - 1, 2, 4, 5, 6, 7.
00890  M00S00876.msi     +++|*
00891  M00S00877.msi     +++|*         CALLS  PKI, COD.
00892  M00S00878.msi     +++|*
00893  M00S00879.msi     +++|*         MACROS ERROR, KEYMES.
00894  M00S00880.msi     +++|
00895  M00S00881.msi     +++|
00896  M00S00882.msi     +++| REQ3     SA1    X4+ESTF
00897  M00S00883.msi     +++|          SA1    X1+STLL
00898  M00S00884.msi     +++|          MX2    1
00899  M00S00885.msi     +++|          MI     X1,REQ2     IF FORMAT PENDING
00900  M00S00886.msi     +++|          LX2    LIAL-59
00901  M00S00887.msi     +++|          BX7    X1+X2       SET INITIALIZE REQUEST IN MST IMAGE
00902  M00S00888.msi     +++|          LX2    LIRP-LIAL
00903  M00S00889.msi     +++|          BX7    X7+X2
00904  M00S00890.msi     +++|          SA7    A1
00905  M00S00891.msi     +++|
00906  M00S00892.msi     +++| REQ      SUBR               ENTRY/EXIT
00907  M00S00893.msi     +++|          SX6    ENEQ
00908  M00S00894.msi     +++|          SA6    ARGP
00909  M00S00895.msi     +++|          KEYMES REQEQ       *ENTER EST ORDINAL.*
00910  M00S00896.msi     +++| REQ1     SX7    B1+
00911  M00S00897.msi     +++|          SA7    CNT
00912  M00S00898.msi     +++|          RJ     PKI         REQUEST EQUIPMENT
00913  M00S00899.msi     +++|          SA4    PARC+PMEQ
00914  M00S00900.msi     +++|          R=     X5,ESTE
00915  M00S00901.msi     +++|          IX5    X4*X5
00916  M00S00902.msi     +++|          SA5    ESTB+X5+EQDE  GET EST ENTRY
00917  M00S00903.msi     +++|          MI     X5,REQ3     IF EQ IS MASS STORAGE DEVICE
00918  M00S00904.msi     +++|          ERROR  5           *EQ OR DN INCORRECT.*
00919  M00S00905.msi     +++|          EQ     REQ1        SEND ERROR MESSAGE AND WAIT ON CORRECTION
00920  M00S00906.msi     +++|
00921  M00S00907.msi     +++| REQ2     BX1    X4
00922  M00S00908.msi     +++|          RJ     COD
00923  M00S00909.msi     +++|          MX7    -18         SET EST ORDINAL IN FORMAT PENDING MESSAGE
00924  M00S00910.msi     +++|          LX6    30
00925  M00S00911.msi     +++|          SA4    ERROR21
00926  M00S00912.msi     +++|          LX7    30
00927  M00S00913.msi     +++|          BX6    -X7*X6
00928  M00S00914.msi     +++|          BX7    X7*X4
00929  M00S00915.msi     +++|          BX6    X6+X7
00930  M00S00916.msi     +++|          SA6    A4
00931  M00S00917.msi     +++|          ERROR  21          *EQXXX, FORMAT PENDING.*
00932  M00S00918.msi     +++|          EQ     REQ1        WAIT ON NEW INPUT
00933  M00S00919.msi     +++|
00934  M00S00920.msi     +++| DSP      SPACE  4,10
00935  M00S00921.msi     +++|**        DSP - DISPLAY EST ORDINALS.
00936  M00S00922.msi     +++|*
00937  M00S00923.msi     +++|*         USES   X - 1, 2, 3, 4, 5, 7.
00938  M00S00924.msi     +++|*                A - 1, 2, 7.
00939  M00S00925.msi     +++|*                B - 2, 3, 4, 5, 6, 7.
00940  M00S00926.msi     +++|*
00941  M00S00927.msi     +++|*         MACROS CLEAR.
00942  M00S00928.msi     +++|
00943  M00S00929.msi     +++|
00944  M00S00930.msi     +++| DSP      SUBR               ENTRY/EXIT
00945  M00S00931.msi     +++|          SB4    OPDS+1
00946  M00S00932.msi     +++|          SA1    BLK         CLEAR THE EQUIPMENT LIST
00947  M00S00933.msi     +++|          BX7    X1
00948  M00S00934.msi     +++|          CLEAR  B4,4,X7
00949  M00S00935.msi     +++|          CLEAR  INDSA+1,4,X7
00950  M00S00936.msi     +++|          SB2    B0
00951  M00S00937.msi     +++|          SB5    B0
00952  M00S00938.msi     +++|          MX4    -3
00953  M00S00939.msi     +++|          SB7    B0
00954  M00S00940.msi     +++| DSP1     SA1    ESTF+B2
00955  M00S00941.msi     +++|          SB2    B2+B1
00956  M00S00942.msi     +++|          SB3    B2-ESMX
00957  M00S00943.msi     +++|          ZR     B3,DSPX     IF END OF EQUIPMENTS
00958  M00S00944.msi     +++|          ZR     X1,DSP1     IF EMPTY LINK
00959  M00S00945.msi     +++|          SA2    X1+STLL
00960  M00S00946.msi     +++|          MI     X2,DSP1     IF FORMAT PENDING
00961  M00S00947.msi     +++|          LX2    59-LIRP
00962  M00S00948.msi     +++|          SX3    B2-B1
00963  M00S00949.msi     +++|          PL     X2,DSP1     IF NO INITIALIZE REQUESTS
00964  M00S00950.msi     +++|          SB5    B5+B1
00965  M00S00951.msi     +++|          BX5    -X4*X3
00966  M00S00952.msi     +++|          AX3    3
00967  M00S00953.msi     +++|          BX7    -X4*X3
00968  M00S00954.msi     +++|          LX7    6
00969  M00S00955.msi     +++|          BX3    X4*X3
00970  M00S00956.msi     +++|          LX3    9
00971  M00S00957.msi     +++|          IX7    X3+X7
00972  M00S00958.msi     +++|          SA3    DSPA
00973  M00S00959.msi     +++|          IX7    X7+X5
00974  M00S00960.msi     +++|          IX7    X7+X3
00975  M00S00961.msi     +++|          SA1    B4+B7       MERGE EQUIPMENT IN DISPLAY
00976  M00S00962.msi     +++|          LX7    42
00977  M00S00963.msi     +++|          EQ     B5,B1,DSP2  IF FIRST EQUIPMENT IN WORD
00978  M00S00964.msi     +++|          LX7    -30
00979  M00S00965.msi     +++|          SB5    B0
00980  M00S00966.msi     +++|          SX2    B7-3
00981  M00S00967.msi     +++|          SB7    B7+B1       NEXT WORD
00982  M00S00968.msi     +++|          NZ     X2,DSP2     IF NOT OVERFLOW TO SECOND LINE
00983  M00S00969.msi     +++|          SB6    INDSA+1
00984  M00S00970.msi     +++|          EQ     B4,B6,DSPX  IF OVERFLOW SECOND LINE
00985  M00S00971.msi     +++|          SB4    B6
00986  M00S00972.msi     +++|          SB7    B0
00987  M00S00973.msi     +++| DSP2     IX7    X7+X1       SET EST ORDINAL IN MESSAGE
00988  M00S00974.msi     +++|          SA7    A1
00989  M00S00975.msi     +++|          EQ     DSP1        LOOP
00990  M00S00976.msi     +++|
00991  M00S00977.msi     +++| DSPA     CON    3R000-3R
00992  M00S00978.msi     +++| CPY      SPACE  4,10
00993  M00S00979.msi     +++|**        CPY - COPY MST PARAMETERS TO DISPLAY BLOCK.
00994  M00S00980.msi     +++|*
00995  M00S00981.msi     +++|*         USES   ALL REGISTERS.
00996  M00S00982.msi     +++|*
00997  M00S00983.msi     +++|*         CALLS  PKI, COD.
00998  M00S00984.msi     +++|*
00999  M00S00985.msi     +++|*         MACROS KEYMES.
01000  M00S00986.msi     +++|
01001  M00S00987.msi     +++|
01002  M00S00988.msi     +++| CPY      SUBR               ENTRY/EXIT
01003  M00S00989.msi     +++|          SA1    DSI
01004  M00S00990.msi     +++|          SA5    PARC+PMEQ
01005  M00S00991.msi     +++|          MX7    1
01006  M00S00992.msi     +++|          SA7    FLAG        FLAG NO PARAMETER INPUT NEEDED
01007  M00S00993.msi     +++|          SA4    ESTF+X5     ADDRESS OF MST
01008  M00S00994.msi     +++|          MI     X1,CPY6     IF DEADSTART INITIALIZE
01009  M00S00995.msi     +++|          SA1    X4+PUGL
01010  M00S00996.msi     +++|          MX6    42
01011  M00S00997.msi     +++|          BX1    X6*X1
01012  M00S00998.msi     +++|          BX6    X4
01013  M00S00999.msi     +++|          SA6    TEMP        SAVE THE MST POINTER
01014  M00S01000.msi     +++|          MX7    1
01015  M00S01001.msi     +++|          ZR     X1,CPY2     IF NOT PRIVATE PACK
01016  M00S01002.msi     +++|          SA7    PVT         SET PRIVATE PACK FLAG
01017  M00S01003.msi     +++| CPY1     KEYMES ENOUN       *ENTER OLD USER NAME.*
01018  M00S01004.msi     +++|          SX7    01
01019  M00S01005.msi     +++|          SA7    CNT
01020  M00S01006.msi     +++|          RJ     PKI         PROCESS KEYBOARD INPUT
01021  M00S01007.msi     +++|          SA4    TEMP
01022  M00S01008.msi     +++|          SA2    PARC+PMUN
01023  M00S01009.msi     +++|          SA3    X4+PUGL
01024  M00S01010.msi     +++|          BX1    X2-X3
01025  M00S01011.msi     +++|          AX1    18
01026  M00S01012.msi     +++|          NZ     X1,CPY1     IF USER NAMES DO NOT MATCH
01027  M00S01013.msi     +++| CPY2     SA1    X4+MDGL
01028  M00S01014.msi     +++|          LX1    59-58
01029  M00S01015.msi     +++|          PL     X1,CPY4     IF NOT AN AUXILIARY DEVICE
01030  M00S01016.msi     +++| CPY3     KEYMES ENOPN       *ENTER OLD PACK NAME.*
01031  M00S01017.msi     +++|          SX7    1
01032  M00S01018.msi     +++|          SA7    CNT
01033  M00S01019.msi     +++|          RJ     PKI         PROCESS KEYBOARD
01034  M00S01020.msi     +++|          SA4    TEMP
01035  M00S01021.msi     +++|          SA2    PARC+PMFN
01036  M00S01022.msi     +++|          SA3    X4+PFGL
01037  M00S01023.msi     +++|          BX1    X2-X3
01038  M00S01024.msi     +++|          AX1    18
01039  M00S01025.msi     +++|          NZ     X1,CPY3     IF PACKNAMES DO NOT MATCH
01040  M00S01026.msi     +++|          EQ     CPY6        GO TO NEXT PARAMETER
01041  M00S01027.msi     +++|
01042  M00S01028.msi     +++| CPY4     SA1    X4+PFGL
01043  M00S01029.msi     +++|          MX0    42
01044  M00S01030.msi     +++|          BX1    X0*X1
01045  M00S01031.msi     +++|          ZR     X1,CPY6     IF NO FAMILY NAME
01046  M00S01032.msi     +++| CPY5     KEYMES ENOFN       *ENTER OLD FAMILY NAME.*
01047  M00S01033.msi     +++|          SX7    1
01048  M00S01034.msi     +++|          SA7    CNT
01049  M00S01035.msi     +++|          RJ     PKI         PROCESS KEYBOARD INPUT
01050  M00S01036.msi     +++|          SA4    TEMP
01051  M00S01037.msi     +++|          SA2    PARC+PMFN
01052  M00S01038.msi     +++|          SA3    X4+PFGL
01053  M00S01039.msi     +++|          MX0    42
01054  M00S01040.msi     +++|          BX1    X2-X3
01055  M00S01041.msi     +++|          BX1    X0*X1       TEST FAMILY NAME
01056  M00S01042.msi     +++|          NZ     X1,CPY5     IF FN DO NOT MATCH
01057  M00S01043.msi     +++|
01058  M00S01044.msi     +++| CPY6     SB5    X4          SET MST POINTER
01059  M00S01045.msi     +++|          RJ     PTY         PROCESS TYPE
01060  M00S01046.msi     +++|          MX0    -18
01061  M00S01047.msi     +++|          SA1    PARC+PMEQ
01062  M00S01048.msi     +++|          SX1    X1+1000B    ENSURE LEADING ZEROES
01063  M00S01049.msi     +++|          RJ     COD
01064  M00S01050.msi     +++|          SA2    =7L
01065  M00S01051.msi     +++|          BX6    -X0*X6
01066  M00S01052.msi     +++|          BX6    X6+X2
01067  M00S01053.msi     +++|          LX6    -18
01068  M00S01054.msi     +++|          SA6    EQDS+1      SET EST ORDINAL
01069  M00S01055.msi     +++|          SA1    B5+ALGL
01070  M00S01056.msi     +++|          MX6    -12
01071  M00S01057.msi     +++|          LX1    59-11
01072  M00S01058.msi     +++|          BX1    -X6*X1
01073  M00S01059.msi     +++|          RJ     COD         CONVERT NUMBER OF CATALOG TRACKS
01074  M00S01060.msi     +++|          BX6    X4
01075  M00S01061.msi     +++|          SA6    NCDS+1
01076  M00S01062.msi     +++|          RJ     SAL         SET ACCESS LEVEL DEFAULTS
01077  M00S01063.msi     +++|          SA4    B5+DDLL     GET PACK COUNT
01078  M00S01064.msi     +++|          MX6    -3
01079  M00S01065.msi     +++|          LX4    12
01080  M00S01066.msi     +++|          BX1    -X6*X4
01081  M00S01067.msi     +++|          SX1    X1+B1       ADJUST COUNT
01082  M00S01068.msi     +++|          RJ     DTY         CHECK FOR PACK TYPE DEVICE
01083  M00S01069.msi     +++|          PL     X3,CPY7     IF NOT PACK DEVICE
01084  M00S01070.msi     +++|          BX6    X1
01085  M00S01071.msi     +++|          SA6    PARC+PMNP   SET PACK COUNT IN PARM LIST
01086  M00S01072.msi     +++|+         RJ     COD         CONVERT NUMBER OF PACKS
01087  M00S01073.msi     +++|          BX6    X4
01088  M00S01074.msi     +++|          SA6    NPDS+1
01089  M00S01075.msi     +++| CPY7     SA1    B5+MDGL
01090  M00S01076.msi     +++|          SA2    DSI
01091  M00S01077.msi     +++|          LX1    59-58
01092  M00S01078.msi     +++|          MI     X1,CPY9     IF AUXILIARY PACK
01093  M00S01079.msi     +++|          SX7    B5
01094  M00S01080.msi     +++|          SA7    TEMP
01095  M00S01081.msi     +++|          SA3    B5+PFGL
01096  M00S01082.msi     +++|          MX6    -6
01097  M00S01083.msi     +++|          LX3    59-11
01098  M00S01084.msi     +++|          BX6    -X6*X3
01099  M00S01085.msi     +++|          BX7    X7-X7
01100  M00S01086.msi     +++|          SA6    PARC+PMDN   SET DEVICE NUMBER IN PARAMETER BLOCK
01101  M00S01087.msi     +++|          MI     X2,CPY9     IF DEADSTART INITIALIZE
01102  M00S01088.msi     +++|          ZR     X6,CPY10    IF DN EQUALS ZERO
01103  M00S01089.msi     +++|          SA7    A6+         CLEAR THE DEVICE NUMBER
01104  M00S01090.msi     +++| CPY8     KEYMES ENODN       *ENTER OLD DEVICE NUMBER.*
01105  M00S01091.msi     +++|          SX7    1
01106  M00S01092.msi     +++|          SA7    CNT
01107  M00S01093.msi     +++|          RJ     PKI         PROCESS KEYBOARD
01108  M00S01094.msi     +++|          SA4    TEMP
01109  M00S01095.msi     +++|          SA2    PARC+PMDN
01110  M00S01096.msi     +++|          SA3    X4+PFGL
01111  M00S01097.msi     +++|          MX6    -6
01112  M00S01098.msi     +++|          LX3    59-11
01113  M00S01099.msi     +++|          BX1    -X6*X3      MASK OFF OLD DN
01114  M00S01100.msi     +++|          BX1    X1-X2
01115  M00S01101.msi     +++|          NZ     X1,CPY8     IF DEVICE NUMBERS DO NOT MATCH
01116  M00S01102.msi     +++|          SB5    X4          SAVE MST ADDRESS
01117  M00S01103.msi     +++|          EQ     CPY10       CLEAR *ID* AND *NC*
01118  M00S01104.msi     +++|
01119  M00S01105.msi     +++| CPY9     SA1    B5+PFGL
01120  M00S01106.msi     +++|          MX6    -6
01121  M00S01107.msi     +++|          LX1    59-11
01122  M00S01108.msi     +++|          BX1    -X6*X1
01123  M00S01109.msi     +++|          RJ     COD         CONVERT DEVICE NUMBER
01124  M00S01110.msi     +++|          BX6    X4
01125  M00S01111.msi     +++|          SA6    DNDS+1
01126  M00S01112.msi     +++| CPY10    BX7    X7-X7
01127  M00S01113.msi     +++|          SA7    PARC+PMID   ID
01128  M00S01114.msi     +++|          SA7    A7+B1
01129  M00S01115.msi     +++|          SA7    PARC+PMNC   NC
01130  M00S01116.msi     +++|          EQ     CPYX        RETURN
01131  M00S01117.msi     +++| PPM      SPACE  4,10
01132  M00S01118.msi     +++|**        PPM - PROCESS PARAMETERS.
01133  M00S01119.msi     +++|*
01134  M00S01120.msi     +++|*         EXIT   (X7) = ZERO IF MORE PARAMETERS NEEDED.
01135  M00S01121.msi     +++|*                (B5) = MST POINTER.
01136  M00S01122.msi     +++|*
01137  M00S01123.msi     +++|*         USES   ALL REGISTERS.
01138  M00S01124.msi     +++|*
01139  M00S01125.msi     +++|*         CALLS  CPN, DTY, MTW, PTY, VLC.
01140  M00S01126.msi     +++|*
01141  M00S01127.msi     +++|*         MACROS ERROR, KEYMES.
01142  M00S01128.msi     +++|
01143  M00S01129.msi     +++|
01144  M00S01130.msi     +++| PPM      SUBR               ENTRY/EXIT
01145  M00S01131.msi     +++|          SB4    PARC
01146  M00S01132.msi     +++|          SB6    B0
01147  M00S01133.msi     +++|          SB3    PMEQ
01148  M00S01134.msi     +++|          SA1    PARC+PMEQ
01149  M00S01135.msi     +++|          SA1    X1+ESTF
01150  M00S01136.msi     +++|          SB5    X1          MST POINTER
01151  M00S01137.msi     +++| PPM1     SA5    B4+B6       CHECK PARAMETER LIST
01152  M00S01138.msi     +++|          NZ     X5,PPM2     IF PARAMETER ENTERED
01153  M00S01139.msi     +++|          SB6    B6+B1
01154  M00S01140.msi     +++|          NE     B3,B6,PPM1  IF NOT END OF PARAMETERS
01155  M00S01141.msi     +++|          KEYMES REQPM       *ENTER PARAMETERS.*
01156  M00S01142.msi     +++|          SA1    FLAG
01157  M00S01143.msi     +++|          BX7    X1
01158  M00S01144.msi     +++|          EQ     PPMX        EXIT PARAMETER ENTRY NEEDED
01159  M00S01145.msi     +++|
01160  M00S01146.msi     +++| PPM2     RJ     CMC         CHECK MODE CHANGE
01161  M00S01147.msi     +++|          ZR     X7,PPM23    IF NO FULL TRACK ACCESS
01162  M00S01148.msi     +++|          SA1    PARC+PMDM   PROCESS MASKS
01163  M00S01149.msi     +++|          SA2    PARC+PMSM
01164  M00S01150.msi     +++|          SA3    B5+PUGL
01165  M00S01151.msi     +++|          MX0    -16
01166  M00S01152.msi     +++|          LX2    8
01167  M00S01153.msi     +++|          BX3    X0*X3       CLEAR OLD MASKS
01168  M00S01154.msi     +++|          BX6    X1+X2
01169  M00S01155.msi     +++|          BX6    X6+X3
01170  M00S01156.msi     +++|          SA6    A3
01171  M00S01157.msi     +++|          RJ     PTY         PROCESS TYPE
01172  M00S01158.msi     +++| PPM3     SA1    PVT
01173  M00S01159.msi     +++|          SA2    PARC+PMFN
01174  M00S01160.msi     +++|          MX7    42
01175  M00S01161.msi     +++|          BX3    X2
01176  M00S01162.msi     +++|          SA4    PARC+PMUN
01177  M00S01163.msi     +++|          MI     X1,PPM5     IF PRIVATE PACK (PVT SET)
01178  M00S01164.msi     +++|          NZ     X4,PPM5     IF PRIVATE PACK (UN DEFINED)
01179  M00S01165.msi     +++|          ZR     X2,PPM10    IF NO FAMILY NAME DEFINED
01180  M00S01166.msi     +++|
01181  M00S01167.msi     +++|*         PROCESS FAMILY NAME.
01182  M00S01168.msi     +++|
01183  M00S01169.msi     +++|          SA1    B5+PFGL
01184  M00S01170.msi     +++|          BX6    -X7*X1
01185  M00S01171.msi     +++|          BX6    X2+X6
01186  M00S01172.msi     +++|          SA6    A1
01187  M00S01173.msi     +++|          BX6    X6-X6
01188  M00S01174.msi     +++|          SA6    PVT         CLEAR PRIVATE PACK FLAG
01189  M00S01175.msi     +++|          EQ     PPM10       GO TO NEXT PARAMETER
01190  M00S01176.msi     +++|
01191  M00S01177.msi     +++|*         PROCESS PACK NAME AND USER NAME.
01192  M00S01178.msi     +++|
01193  M00S01179.msi     +++| PPM5     SA5    B5+MDGL
01194  M00S01180.msi     +++|          SA1    B5+PFGL
01195  M00S01181.msi     +++|          SA2    B5+PUGL
01196  M00S01182.msi     +++|          BX6    X5
01197  M00S01183.msi     +++|          MX5    42
01198  M00S01184.msi     +++|          BX0    -X5*X1
01199  M00S01185.msi     +++|          LX6    59-58
01200  M00S01186.msi     +++|          BX1    X5*X1       OLD PACK NAME
01201  M00S01187.msi     +++|          BX7    -X5*X2
01202  M00S01188.msi     +++|          ZR     X4,PPM7     IF NO NEW UN USE OLD ONE
01203  M00S01189.msi     +++|          SA5    NULL
01204  M00S01190.msi     +++|          BX5    X5-X4       TEST FOR *NULL*
01205  M00S01191.msi     +++|          NZ     X5,PPM6     IF NOT NULL
01206  M00S01192.msi     +++|          MX6    0           CLEAR PVT
01207  M00S01193.msi     +++|          SA7    B5+PUGL
01208  M00S01194.msi     +++|          SA6    PVT
01209  M00S01195.msi     +++|          SA6    PARC+PMUN
01210  M00S01196.msi     +++|          EQ     PPM3        LOOP
01211  M00S01197.msi     +++|
01212  M00S01198.msi     +++| PPM6     PL     X6,PPM21    IF NOT AUXILIARY DEVICE
01213  M00S01199.msi     +++|          MX6    1
01214  M00S01200.msi     +++|          BX7    X7+X4       SET NEW USER NAME
01215  M00S01201.msi     +++|          SA6    PVT
01216  M00S01202.msi     +++|          SA7    A2          UPDATE MST
01217  M00S01203.msi     +++|          LX6    1
01218  M00S01204.msi     +++|          SA6    PARC+PMNC   FORCE NC TO 1
01219  M00S01205.msi     +++|          EQ     PPM8        CONTINUE
01220  M00S01206.msi     +++|
01221  M00S01207.msi     +++| PPM7     BX7    X5*X2       CHECK FOR OLD UN
01222  M00S01208.msi     +++|          ZR     X7,PPM22    IF NO OLD UN
01223  M00S01209.msi     +++| PPM8     NZ     X3,PPM9     IF PACKNAM DEFINED
01224  M00S01210.msi     +++|          NZ     X1,PPM10    GO TO NEXT PARAMETER
01225  M00S01211.msi     +++|          ERROR  7           *FN OR PN MUST BE SPECIFIED.*
01226  M00S01212.msi     +++|          MX7    0
01227  M00S01213.msi     +++|          SA7    PVT
01228  M00S01214.msi     +++|          EQ     PPMX        ERROR EXIT
01229  M00S01215.msi     +++|
01230  M00S01216.msi     +++| PPM9     BX6    X3+X0       SET NEW PACK NAME
01231  M00S01217.msi     +++|          SA6    A1
01232  M00S01218.msi     +++| PPM10    RJ     CPN         CHECK FOR DUPLICATE PACK NAME
01233  M00S01219.msi     +++|          ZR     X7,PPMX     IF ERROR
01234  M00S01220.msi     +++|
01235  M00S01221.msi     +++|*         PROCESS NUMBER OF CATALOG TRACKS.
01236  M00S01222.msi     +++|
01237  M00S01223.msi     +++|          SA4    B5+ALGL
01238  M00S01224.msi     +++|          MX0    -12
01239  M00S01225.msi     +++|          LX4    -12
01240  M00S01226.msi     +++|          SA3    B5+PUGL
01241  M00S01227.msi     +++|          MX1    -8
01242  M00S01228.msi     +++|          BX3    -X1*X3
01243  M00S01229.msi     +++|          BX6    X0*X4
01244  M00S01230.msi     +++|          LX6    12
01245  M00S01231.msi     +++|          ZR     X3,PPM13    IF NO MASK SET - NO CATALOGS NEEDED
01246  M00S01232.msi     +++|          SA3    PARC+PMNC
01247  M00S01233.msi     +++|          SA5    PARC+PMEQ
01248  M00S01234.msi     +++|          NZ     X3,PPM11    IF NC SPECIFIED
01249  M00S01235.msi     +++|          BX3    -X0*X4      DEFAULT COUNT FROM MST
01250  M00S01236.msi     +++| PPM11    NZ     X3,PPM12    IF NOT USING EQUIPMENT DEFAULT
01251  M00S01237.msi     +++|          RJ     DTY         GET DEFAULT FOR DEVICE
01252  M00S01238.msi     +++| PPM12    BX1    -X0*X3      VALIDATE NC
01253  M00S01239.msi     +++|          CX6    X1
01254  M00S01240.msi     +++|          SB4    X1-201B
01255  M00S01241.msi     +++|          BX4    X0*X4       CLEAR OLD COUNT
01256  M00S01242.msi     +++|          SB6    X6
01257  M00S01243.msi     +++|          PL     B4,PPM20    IF NC TOO LARGE
01258  M00S01244.msi     +++|          BX6    X4+X1       SET NEW COUNT
01259  M00S01245.msi     +++|          NE     B6,B1,PPM19 IF NC NOT POWER OF 2
01260  M00S01246.msi     +++|          LX6    12
01261  M00S01247.msi     +++|
01262  M00S01248.msi     +++|*         PROCESS NUMBER OF PACKS.
01263  M00S01249.msi     +++|
01264  M00S01250.msi     +++| PPM13    SA6    A4
01265  M00S01251.msi     +++|          SA1    PARC+PMNP
01266  M00S01252.msi     +++|          ZR     X1,PPM14    IF NUMBER OF PACKS NOT SPECIFIED
01267  M00S01253.msi     +++|          SA2    B5+DDLL
01268  M00S01254.msi     +++|          MX7    -57
01269  M00S01255.msi     +++|          MX0    -3
01270  M00S01256.msi     +++|          SX1    X1-1
01271  M00S01257.msi     +++|          BX6    X0*X1
01272  M00S01258.msi     +++|          LX7    -9
01273  M00S01259.msi     +++|          BX7    -X7*X2      CLEAR CURRENT UNIT COUNT
01274  M00S01260.msi     +++|          NZ     X6,PPM18    IF NP .GT. 7
01275  M00S01261.msi     +++|          LX1    -12         POSITION PACK COUNT
01276  M00S01262.msi     +++|          BX7    X7+X1
01277  M00S01263.msi     +++|          LX1    12
01278  M00S01264.msi     +++|          SA7    A2
01279  M00S01265.msi     +++|          RJ     DTY
01280  M00S01266.msi     +++|          AX3    59
01281  M00S01267.msi     +++|          BX3    -X3*X1
01282  M00S01268.msi     +++|          NZ     X3,PPM17    IF NOT PACK TYPE DEVICE AND NP .NE. 1
01283  M00S01269.msi     +++|          RJ     ALP         ALLOCATE PACKS
01284  M00S01270.msi     +++|          BX7    X7-X7
01285  M00S01271.msi     +++|          MX0    -3
01286  M00S01272.msi     +++|          PL     X5,PPMX     IF UNABLE TO ALLOCATE PACKS
01287  M00S01273.msi     +++| PPM14    SA2    PARC+PMEQ   RESTORE EST POINTER
01288  M00S01274.msi     +++|          SA2    X2+ESTF
01289  M00S01275.msi     +++|          SA1    X2+DDLL     GET NUMBER OF PACKS
01290  M00S01276.msi     +++|          SB5    X2
01291  M00S01277.msi     +++|          LX1    12
01292  M00S01278.msi     +++|          SA2    B5+MDGL     SET SECTOR LIMITS
01293  M00S01279.msi     +++|          BX1    -X0*X1
01294  M00S01280.msi     +++|          BX5    X1          SAVE PACK COUNT
01295  M00S01281.msi     +++|          SX1    X1+B1
01296  M00S01282.msi     +++|          MX0    -11
01297  M00S01283.msi     +++|          BX2    X0*X2
01298  M00S01284.msi     +++|          LX2    -36
01299  M00S01285.msi     +++|          BX6    -X0*X2
01300  M00S01286.msi     +++|          LX2    36
01301  M00S01287.msi     +++|          IX6    X1*X6
01302  M00S01288.msi     +++|          BX6    X2+X6
01303  M00S01289.msi     +++|          SA6    A2
01304  M00S01290.msi     +++|
01305  M00S01291.msi     +++|*         PROCESS DEVICE NUMBER.
01306  M00S01292.msi     +++|
01307  M00S01293.msi     +++|          SA1    PARC+PMDN
01308  M00S01294.msi     +++|          SA2    B5+PFGL
01309  M00S01295.msi     +++|          SA3    B5+MDGL
01310  M00S01296.msi     +++|          MX0    -6
01311  M00S01297.msi     +++|          BX2    X0*X2       CLEAR OLD N/M
01312  M00S01298.msi     +++|          BX2    X2+X5       SET NEW N/M
01313  M00S01299.msi     +++|          BX4    X0*X1
01314  M00S01300.msi     +++|          LX0    59-47
01315  M00S01301.msi     +++|          LX3    59-58
01316  M00S01302.msi     +++|          LX1    12
01317  M00S01303.msi     +++|          AX3    59
01318  M00S01304.msi     +++|          MX7    1
01319  M00S01305.msi     +++|          NZ     X1,PPM15    IF DN SPECIFIED
01320  M00S01306.msi     +++|          BX1    -X0*X2
01321  M00S01307.msi     +++|          NZ     X1,PPM15    IF OLD DN SET
01322  M00S01308.msi     +++|          SX1    10000B      SET DEFAULT TO *1*
01323  M00S01309.msi     +++| PPM15    NZ     X4,PPM16    IF *DN* TOO LARGE
01324  M00S01310.msi     +++|          BX2    X0*X2       CLEAR OLD DN
01325  M00S01311.msi     +++|          BX1    -X3*X1      CLEAR DN FOR AUXILIARY DEVICE
01326  M00S01312.msi     +++|          BX6    X2+X1       ADD IN NEW DN
01327  M00S01313.msi     +++|          SA6    A2          UPDATE PFGL
01328  M00S01314.msi     +++|
01329  M00S01315.msi     +++|*         PROCESS DEVICE ACCESS LEVEL LIMITS.  VERIFY THAT ACCESS
01330  M00S01316.msi     +++|*         LEVEL VALUES ENTERED ARE VALID ENTRIES.  WHEN RUNNING IN
01331  M00S01317.msi     +++|*         UNSECURED MODE, NO VALIDATION AGAINST THE EQUIPMENT-S
01332  M00S01318.msi     +++|*         DEFAULT LIMITS (IN THE EST) IS MADE, SINCE THESE DEFAULT
01333  M00S01319.msi     +++|*         VALUES WILL ALWAYS BE ZERO.
01334  M00S01320.msi     +++|
01335  M00S01321.msi     +++|          SA1    PARC+PMUA   DETERMINE IF KNOWN UPPER LEVEL ENTERED
01336  M00S01322.msi     +++|          SB2    B0
01337  M00S01323.msi     +++|          RJ     VLC         VERIFY UPPER ACCESS LEVEL
01338  M00S01324.msi     +++|          NG     X2,PPM27    IF UNKNOWN VALUE ENTERED
01339  M00S01325.msi     +++|          SB4    X2          STORE VALUE
01340  M00S01326.msi     +++|          SA1    PARC+PMLA   DETERMINE IF KNOWN LOWER LEVEL ENTERED
01341  M00S01327.msi     +++|          RJ     VLC         VERIFY LOWER ACCESS LEVEL
01342  M00S01328.msi     +++|          NG     X2,PPM27    IF UNKNOWN VALUE ENTERED
01343  M00S01329.msi     +++|          SB3    X2+         STORE VALUE
01344  M00S01330.msi     +++|          SA1    SSFL
01345  M00S01331.msi     +++|          GT     B3,B4,PPM26 IF LA .GT. UA
01346  M00S01332.msi     +++|          ZR     X1,PPM15.1  IF UNSECURED SYSTEM
01347  M00S01333.msi     +++|          SA1    PARC+PMEQ   GET DEFAULT LIMITS FROM EST
01348  M00S01334.msi     +++|          R=     X4,ESTE
01349  M00S01335.msi     +++|          IX4    X1*X4
01350  M00S01336.msi     +++|          SA4    ESTB+1+X4
01351  M00S01337.msi     +++|          LX4    -12         GET UPPER LIMIT
01352  M00S01338.msi     +++|          MX0    -3
01353  M00S01339.msi     +++|          BX2    -X0*X4
01354  M00S01340.msi     +++|          SB7    X2          (B7) = UPPER LIMIT
01355  M00S01341.msi     +++|          LX4    -3          GET LOWER LIMIT
01356  M00S01342.msi     +++|          BX2    -X0*X4
01357  M00S01343.msi     +++|          SB6    X2+         (B6) = UPPER LIMIT
01358  M00S01344.msi     +++|          GT     B4,B7,PPM24 IF VALUE SPECIFIED .GT. LIMIT
01359  M00S01345.msi     +++|          LT     B3,B6,PPM25 IF VALUE SPECIFIED .LT. LOWER LIMIT
01360  M00S01346.msi     +++| PPM15.1  SA1    B5+PFGL     SET VALUES INTO MST
01361  M00S01347.msi     +++|          MX0    -6
01362  M00S01348.msi     +++|          LX0    6
01363  M00S01349.msi     +++|          BX2    X0*X1
01364  M00S01350.msi     +++|          SX3    B3          POSITION LOWER LEVEL
01365  M00S01351.msi     +++|          LX3    9
01366  M00S01352.msi     +++|          SX4    B4          POSITION UPPER LEVEL
01367  M00S01353.msi     +++|          LX4    6
01368  M00S01354.msi     +++|          BX3    X3+X4       SET INTO *PFGL*
01369  M00S01355.msi     +++|          BX6    X2+X3
01370  M00S01356.msi     +++|          SA6    A1
01371  M00S01357.msi     +++|          EQ     PPMX        RETURN
01372  M00S01358.msi     +++|
01373  M00S01359.msi     +++| PPM16    ERROR  5           *EQ OR DN INCORRECT.*
01374  M00S01360.msi     +++|          MX7    0
01375  M00S01361.msi     +++|          EQ     PPMX        RETURN
01376  M00S01362.msi     +++|
01377  M00S01363.msi     +++| PPM17    ERROR  16          *NP NOT ALLOWED.*
01378  M00S01364.msi     +++|          MX7    0
01379  M00S01365.msi     +++|          EQ     PPMX        RETURN
01380  M00S01366.msi     +++|
01381  M00S01367.msi     +++| PPM18    ERROR  8           *NP GREATER THAN 8.*
01382  M00S01368.msi     +++|          MX7    0
01383  M00S01369.msi     +++|          EQ     PPMX        RETURN
01384  M00S01370.msi     +++|
01385  M00S01371.msi     +++| PPM19    ERROR  2           *NC IS NOT A POWER OF 2.*
01386  M00S01372.msi     +++|          MX7    0
01387  M00S01373.msi     +++|          EQ     PPMX        RETURN
01388  M00S01374.msi     +++|
01389  M00S01375.msi     +++| PPM20    ERROR  10          *NC EXCEEDS 200B.*
01390  M00S01376.msi     +++|          MX7    0
01391  M00S01377.msi     +++|          EQ     PPMX        RETURN
01392  M00S01378.msi     +++|
01393  M00S01379.msi     +++| PPM21    ERROR  12          *NOT AUXILIARY PACK.*
01394  M00S01380.msi     +++|          MX7    0
01395  M00S01381.msi     +++|          EQ     PPMX        RETURN
01396  M00S01382.msi     +++|
01397  M00S01383.msi     +++| PPM22    ERROR  1           *UN MUST BE SPECIFIED.*
01398  M00S01384.msi     +++|          MX7    0
01399  M00S01385.msi     +++|          SA7    PVT
01400  M00S01386.msi     +++|          EQ     PPMX        RETURN
01401  M00S01387.msi     +++|
01402  M00S01388.msi     +++| PPM23    ERROR  23          * EQXXX, NO FULL TRACK ACCESS.*
01403  M00S01389.msi     +++|          BX7    X7-X7
01404  M00S01390.msi     +++|          EQ     PPMX        RETURN
01405  M00S01391.msi     +++|
01406  M00S01392.msi     +++| PPM24    ERROR  27          *UA NOT WITHIN LIMIT.*
01407  M00S01393.msi     +++|          MX7    0
01408  M00S01394.msi     +++|          EQ     PPMX        RETURN
01409  M00S01395.msi     +++|
01410  M00S01396.msi     +++| PPM25    ERROR  28          *LA NOT WITHIN LIMIT.*
01411  M00S01397.msi     +++|          MX7    0
01412  M00S01398.msi     +++|          EQ     PPMX        RETURN
01413  M00S01399.msi     +++|
01414  M00S01400.msi     +++| PPM26    ERROR  29          *LA GREATER THAN UA.*
01415  M00S01401.msi     +++|          MX7    0
01416  M00S01402.msi     +++|          EQ     PPMX        RETURN
01417  M00S01403.msi     +++|
01418  M00S01404.msi     +++| PPM27    ERROR  30          *UNKNOWN ACCESS LEVEL NAME.*
01419  M00S01405.msi     +++|          MX7    0
01420  M00S01406.msi     +++|          EQ     PPMX        RETURN
01421  M00S01407.msi     +++|
01422  M00S01408.msi     +++| NULL     DATA   4LNULL
01423  M00S01409.msi     +++| CPN      SPACE  4,10
01424  M00S01410.msi     +++|**        CPN - CHECK PACKNAMES.
01425  M00S01411.msi     +++|*
01426  M00S01412.msi     +++|*         ENTRY  (B5) = MST POINTER OF CURRENT EQUIPMENT.
01427  M00S01413.msi     +++|*
01428  M00S01414.msi     +++|*         EXIT   (X7) = 0 IF DUPLICATES OCCURED.
01429  M00S01415.msi     +++|*
01430  M00S01416.msi     +++|*         USES   X - 1, 2, 3,4, 5, 6, 7.
01431  M00S01417.msi     +++|*                A - 1, 2, 3, 4, 5, 7.
01432  M00S01418.msi     +++|*                B - 7.
01433  M00S01419.msi     +++|*
01434  M00S01420.msi     +++|*         MACROS ERROR.
01435  M00S01421.msi     +++|
01436  M00S01422.msi     +++|
01437  M00S01423.msi     +++| CPN      SUBR               ENTRY/EXIT
01438  M00S01424.msi     +++|          SA1    B5+MDGL
01439  M00S01425.msi     +++|          SA2    ESTF-1
01440  M00S01426.msi     +++|          SA4    B5+PFGL
01441  M00S01427.msi     +++|          LX1    59-58
01442  M00S01428.msi     +++|          BX7    X1
01443  M00S01429.msi     +++|          SA7    CPNB
01444  M00S01430.msi     +++|          MX7    42
01445  M00S01431.msi     +++|          BX4    X7*X4       CURRENT PACKNAME
01446  M00S01432.msi     +++| CPN1     SA2    A2+B1
01447  M00S01433.msi     +++|          SB7    A2-ESTF-ESMX-1
01448  M00S01434.msi     +++|          ZR     B7,CPNX     IF END OF EQUIPMENTS
01449  M00S01435.msi     +++|          ZR     X2,CPN1     IF EMPTY LINK
01450  M00S01436.msi     +++|          SA3    X2+PFGL
01451  M00S01437.msi     +++|          BX1    X3-X4       TEST NAME
01452  M00S01438.msi     +++|          SX6    B5
01453  M00S01439.msi     +++|          BX1    X7*X1
01454  M00S01440.msi     +++|          IX6    X2-X6
01455  M00S01441.msi     +++|          NZ     X1,CPN1     IF NO MATCH
01456  M00S01442.msi     +++|          ZR     X6,CPN1     IF CURRENT EQUIPMENT
01457  M00S01443.msi     +++|          SA5    X2+MDGL
01458  M00S01444.msi     +++|          LX5    59-58
01459  M00S01445.msi     +++|          SA1    CPNB
01460  M00S01446.msi     +++|          NG     X1,CPN2     IF CURRENT DEVICE IS AUXILIARY
01461  M00S01447.msi     +++|          PL     X5,CPN1     IF PART OF SAME FAMILY
01462  M00S01448.msi     +++| CPN2     AX3    3
01463  M00S01449.msi     +++|          SA1    CPNA
01464  M00S01450.msi     +++|          MX6    -3
01465  M00S01451.msi     +++|          SA5    X2+STLL
01466  M00S01452.msi     +++|          BX6    -X6*X3
01467  M00S01453.msi     +++|          BX5    X1*X5       CHECK ERROR STATUS AND INITIALIZE
01468  M00S01454.msi     +++|          NZ     X6,CPN1     IF NOT 1 OF M PACKS
01469  M00S01455.msi     +++|          NZ     X5,CPN1     IF ERROR STATUS OR INITIALIZE
01470  M00S01456.msi     +++|          ERROR  9           *DUPLICATE PN.*
01471  M00S01457.msi     +++|          MX7    0
01472  M00S01458.msi     +++|          EQ     CPNX        ERROR EXIT
01473  M00S01459.msi     +++|
01474  M00S01460.msi     +++|
01475  M00S01461.msi     +++| CPNA     VFD    12/3600B,12/77B,36/0  INITIALIZE/STATUS MASK
01476  M00S01462.msi     +++| CPNB     CON    0           STATUS OF CURRENT DEVICE
01477  M00S01463.msi     +++| ALP      SPACE  4,10
01478  M00S01464.msi     +++|**        ALP - ALLOCATE PACKS.
01479  M00S01465.msi     +++|*
01480  M00S01466.msi     +++|*         ENTRY  (X1) = NUMBER OF UNITS-1 TO ALLOCATE.
01481  M00S01467.msi     +++|*
01482  M00S01468.msi     +++|*         EXIT   (X5) .LT. 0 IF ABLE TO ALLOCATE.
01483  M00S01469.msi     +++|*                TO *ABT* IF ACTIVE FILES ON LINKED EQUIPMENT.
01484  M00S01470.msi     +++|*
01485  M00S01471.msi     +++|*         USES   X - ALL.
01486  M00S01472.msi     +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01487  M00S01473.msi     +++|*                B - 2.
01488  M00S01474.msi     +++|*
01489  M00S01475.msi     +++|*         CALLS  ALD, COD.
01490  M00S01476.msi     +++|*
01491  M00S01477.msi     +++|*         MARCOS ERROR, MESSAGE.
01492  M00S01478.msi     +++|
01493  M00S01479.msi     +++|
01494  M00S01480.msi     +++| ALP6     MX6    1           SET PACK ALLOCATED FLAG
01495  M00S01481.msi     +++|          BX7    X7-X7       SET END OF PACK EQUIPMENT LIST
01496  M00S01482.msi     +++|          SA6    A5
01497  M00S01483.msi     +++|          SA7    B2
01498  M00S01484.msi     +++|
01499  M00S01485.msi     +++| ALP      SUBR               ENTRY/EXIT
01500  M00S01486.msi     +++|          SB2    PKL         PACK EQUIPMENT LIST ADDRESS
01501  M00S01487.msi     +++|          SA5    PALF        PACK ALLOCATION FLAG
01502  M00S01488.msi     +++|          NG     X5,ALPX     IF ALREADY ALLOCATED
01503  M00S01489.msi     +++|          SA2    PARC+PMEQ   FIRST EQUIPMENT OF PACK
01504  M00S01490.msi     +++|          SA4    ESTF+X2     MST ADDRESS
01505  M00S01491.msi     +++|          R=     X3,ESTE
01506  M00S01492.msi     +++|          IX3    X2*X3
01507  M00S01493.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01508  M00S01494.msi     +++|          SA4    X4+DDLL
01509  M00S01495.msi     +++|          MX0    -3
01510  M00S01496.msi     +++|          LX3    59-55
01511  M00S01497.msi     +++|          AX4    51
01512  M00S01498.msi     +++|          BX6    -X0*X4      SET ORIGINAL UNIT COUNT
01513  M00S01499.msi     +++|          SX7    X6+B1
01514  M00S01500.msi     +++|          IX5    X1-X7       UNIT COUNT-1 REMAINING TO ALLOCATE
01515  M00S01501.msi     +++|          NG     X5,ALP6     IF NO MORE UNITS TO ALLOCATE
01516  M00S01502.msi     +++|          PL     X3,ALP1     IF NOT *LDAM* DEVICE
01517  M00S01503.msi     +++|          RJ     ALD         ALLOCATE *LDAM* DEVICE
01518  M00S01504.msi     +++|          PL     X5,ALP4     IF DEVICE NOT ALLOCATED
01519  M00S01505.msi     +++|          EQ     ALP6        RETURN
01520  M00S01506.msi     +++|
01521  M00S01507.msi     +++| ALP1     SA3    A3+         GET EST ENTRY
01522  M00S01508.msi     +++|          SA1    ALPA        STATUS MASK
01523  M00S01509.msi     +++|          BX2    X1*X3       DESIRED EQUIPMENT STATUS
01524  M00S01510.msi     +++|          LX3    59-56
01525  M00S01511.msi     +++|          PL     X3,ALP3     IF DEVICE NOT REMOVABLE
01526  M00S01512.msi     +++| ALP2     SA4    ESTF+X2     READ *STLL* WORD OF MST
01527  M00S01513.msi     +++|          SA4    X4+STLL
01528  M00S01514.msi     +++|          AX4    3           POSITION EST LINK
01529  M00S01515.msi     +++|          MX6    -9
01530  M00S01516.msi     +++|          BX6    -X6*X4
01531  M00S01517.msi     +++|          LX7    39
01532  M00S01518.msi     +++|          ZR     X6,ALP4     IF END OF CHAINABLE DEVICE
01533  M00S01519.msi     +++|          SA6    ALPB
01534  M00S01520.msi     +++|          R=     X3,ESTE
01535  M00S01521.msi     +++|          IX3    X4*X3
01536  M00S01522.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01537  M00S01523.msi     +++|          BX6    X2-X3
01538  M00S01524.msi     +++|          SA4    ESTF+X4     MST ADDRESS
01539  M00S01525.msi     +++|          BX3    X1*X6
01540  M00S01526.msi     +++|          NZ     X3,ALP4     IF STATUS NOT CORRECT
01541  M00S01527.msi     +++|          SA3    ALPB        GET EST ORDINAL
01542  M00S01528.msi     +++|          BX6    X7+X3
01543  M00S01529.msi     +++|          SA6    B2          PUT IN PACK EQUIPMENT LIST
01544  M00S01530.msi     +++|          MX6    1
01545  M00S01531.msi     +++|          BX6    X6+X4
01546  M00S01532.msi     +++|          SA6    A4          FLAG EQUIPMENT AS LINKED DEVICE
01547  M00S01533.msi     +++|          MX6    -12
01548  M00S01534.msi     +++|          SA3    X4+DDLL
01549  M00S01535.msi     +++|          SA4    X4+STLL
01550  M00S01536.msi     +++|          LX4    -12
01551  M00S01537.msi     +++|          BX6    -X6*X4
01552  M00S01538.msi     +++|          NZ     X6,ALP5     IF ACTIVE USERS
01553  M00S01539.msi     +++|          AX3    51
01554  M00S01540.msi     +++|          BX7    -X0*X3      SET ORIGINAL UNIT COUNT
01555  M00S01541.msi     +++|          SB2    B2+1        ADVANCE PACK EQUIPMENT LIST ADDRESS
01556  M00S01542.msi     +++|          SX7    X7+B1
01557  M00S01543.msi     +++|          IX5    X5-X7       UNIT COUNT - 1 REMAINING TO ALLOCATE
01558  M00S01544.msi     +++|          NG     X5,ALP6     IF NO MORE UNITS TO ALLOCATE
01559  M00S01545.msi     +++|          EQ     ALP2        PROCESS NEXT EQUIPMENT
01560  M00S01546.msi     +++|
01561  M00S01547.msi     +++| ALP3     ERROR  15          *DEVICE NOT REMOVABLE.*
01562  M00S01548.msi     +++|          BX5    X5-X5
01563  M00S01549.msi     +++|          EQ     ALPX        ERROR EXIT
01564  M00S01550.msi     +++|
01565  M00S01551.msi     +++| ALP4     ERROR  11          *CANNOT ALLOCATE DEVICE.*
01566  M00S01552.msi     +++|          BX6    X6-X6
01567  M00S01553.msi     +++|          SX5    B0
01568  M00S01554.msi     +++|          SA6    PKL         CLEAR PACK EQUIPMENT LIST
01569  M00S01555.msi     +++|          EQ     ALPX        ERROR EXIT
01570  M00S01556.msi     +++|
01571  M00S01557.msi     +++| ALP5     SA1    ALPB        GET EST ORDINAL
01572  M00S01558.msi     +++|          RJ     COD         CONVERT EST ORDINAL TO DISPLAY CODE
01573  M00S01559.msi     +++|          MX7    -18         SET EST ORDINAL IN ACTIVE FILES MESSAGE
01574  M00S01560.msi     +++|          LX6    30
01575  M00S01561.msi     +++|          SA4    MESA
01576  M00S01562.msi     +++|          LX7    30
01577  M00S01563.msi     +++|          BX6    -X7*X6
01578  M00S01564.msi     +++|          BX7    X7*X4
01579  M00S01565.msi     +++|          BX6    X6+X7
01580  M00S01566.msi     +++|          SA6    A4
01581  M00S01567.msi     +++|          MESSAGE  A4        * EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
Line S01568 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01582  M01S01568.253l688 ---|          EQ     ABT         ABORT MSI
Line S00012 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01583  M01S00012.253l688 +++|          RJ     ABT         ABORT *MSI*
01584  M00S01569.msi     +++|
01585  M00S01570.msi     +++| ALPA     VFD    6/4,6/0,12/0,3/7,9/0,12/7777B,12/0
01586  M00S01571.msi     +++| ALPB     BSS    1           EST ORDINAL
01587  M00S01572.msi     +++| UMS      SPACE  4,10
01588  M00S01573.msi     +++|**        UMS - UPDATE MASS STORAGE.
01589  M00S01574.msi     +++|*
01590  M00S01575.msi     +++|*         ENTRY  INTERNAL EST,S AND MST,S REFLECT NEW DEVICE PARAMETERS.
01591  M00S01576.msi     +++|*                (PKL) = LIST OF EQUIPMENT MST,S TO BE MODIFIED.
01592  M00S01577.msi     +++|*
01593  M00S01578.msi     +++|*         EXIT   (X1) .NE. 0 IF DUPLICATE DAT ENTRY.
01594  M00S01579.msi     +++|*
01595  M00S01580.msi     +++|*         USES   X - ALL.
01596  M00S01581.msi     +++|*                A - ALL.
01597  M00S01582.msi     +++|*
01598  M00S01583.msi     +++|*         CALLS  COD, PKI, BPT.
01599  M00S01584.msi     +++|*
01600  M00S01585.msi     +++|*         MACROS ERROR, KEYMES, MESSAGE, SYSTEM.
01601  M00S01586.msi     +++|
01602  M00S01587.msi     +++|
01603  M00S01588.msi     +++| UMS11    MESSAGE  MESJ      *LINK DEVICE CANNOT BE ALTERED.*
01604  M00S01589.msi     +++|          BX1    X1-X1
01605  M00S01590.msi     +++|
01606  M00S01591.msi     +++| UMS      SUBR               ENTRY/EXIT
01607  M00S01592.msi     +++|          SA1    PARC+PMEQ   EQUIPMENT
01608  M00S01593.msi     +++|          SA5    PKL
01609  M00S01594.msi     +++|          RJ     BPT         BUILD MST UPDATING PARAMETER TABLE
01610  M00S01595.msi     +++|          SA4    LINK
01611  M00S01596.msi     +++|          SA3    DSI
01612  M00S01597.msi     +++|          BX4    X4-X1
01613  M00S01598.msi     +++|          SA1    PKL         CHECK FOR LINKED DEVICE
01614  M00S01599.msi     +++|          NG     X3,UMS1     IF DEADSTART INITIALIZE
01615  M00S01600.msi     +++|          ZR     X4,UMS11    IF LINK DEVICE
01616  M00S01601.msi     +++| UMS1     NZ     X1,UMS2     IF CHAINED DEVICE
01617  M00S01602.msi     +++|          RJ     DTY
01618  M00S01603.msi     +++|          SA4    DTYA
01619  M00S01604.msi     +++|          SX5    X4-2RDE
01620  M00S01605.msi     +++|          SX4    X4-2RDP
01621  M00S01606.msi     +++|          MX0    -2
01622  M00S01607.msi     +++|          IX4    X4*X5
01623  M00S01608.msi     +++|          NZ     X4,UMS1.1   IF NOT EXTENDED MEMORY DEVICE
01624  M00S01609.msi     +++|          SA4    PARC+PMEQ   EXTRACT XM SHIFT
01625  M00S01610.msi     +++|          R=     X5,ESTE
01626  M00S01611.msi     +++|          IX5    X4*X5
01627  M00S01612.msi     +++|          SA5    ESTB+X5+EQAE
01628  M00S01613.msi     +++|          LX5    -30
01629  M00S01614.msi     +++|          BX2    -X0*X5
01630  M00S01615.msi     +++|          SB2    X2
01631  M00S01616.msi     +++|          MX0    -11
01632  M00S01617.msi     +++|          SX5    20B
01633  M00S01618.msi     +++|          SA4    TUMS+3      CLEAR OLD SECTOR LIMITS
01634  M00S01619.msi     +++|          LX5    B2
01635  M00S01620.msi     +++|          BX6    X0*X4
01636  M00S01621.msi     +++|          LX0    36
01637  M00S01622.msi     +++|          BX6    X0*X6
01638  M00S01623.msi     +++|          BX6    X6+X5       MERGE NEW SECTOR LIMITS
01639  M00S01624.msi     +++|          LX5    36
01640  M00S01625.msi     +++|          BX6    X6+X5
01641  M00S01626.msi     +++|          SA6    A4
01642  M00S01627.msi     +++| UMS1.1   SYSTEM IMS,R,TUMS,MMS
01643  M00S01628.msi     +++|          SA1    TUMS+6      CHECK REPLY
01644  M00S01629.msi     +++|          EQ     UMSX        RETURN
01645  M00S01630.msi     +++|
01646  M00S01631.msi     +++|*         IF THE EQUIPMENT IN THE LINK LIST IS AVAILABLE AND HAS
01647  M00S01632.msi     +++|*         A GOOD LABEL, THE PACKNAME AND USER NAME OR FAMILY NAME
01648  M00S01633.msi     +++|*         AND DEVICE NUMBER OR JUST THE FAMILY NAME MUST BE
01649  M00S01634.msi     +++|*         VERIFIED TO INSURE THE CORRECT PACK IS BEING INITIALIZED.
01650  M00S01635.msi     +++|
01651  M00S01636.msi     +++| UMS2     SA2    ESTF+X1
01652  M00S01637.msi     +++|          R=     X3,ESTE
01653  M00S01638.msi     +++|          IX3    X1*X3
01654  M00S01639.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01655  M00S01640.msi     +++|          SA4    X2+STLL
01656  M00S01641.msi     +++|          MX0    -6
01657  M00S01642.msi     +++|          LX4    24
01658  M00S01643.msi     +++|          LX3    59-54
01659  M00S01644.msi     +++|          BX5    -X0*X4
01660  M00S01645.msi     +++|          SX6    A1
01661  M00S01646.msi     +++|          SA6    TEMP        SAVE PKL INDEX
01662  M00S01647.msi     +++|          PL     X3,UMS4     IF AVAILABLE
01663  M00S01648.msi     +++|          ZR     X5,UMS4     IF NO LABEL ERRORS
01664  M00S01649.msi     +++|          SA3    ELST        CHECK LABEL ERROR FOR NONRECOVERABLE TYPE
01665  M00S01650.msi     +++| UMS3     BX6    X3-X5
01666  M00S01651.msi     +++|          SA3    A3+B1
01667  M00S01652.msi     +++|          ZR     X6,UMS9     IF NONRECOVERABLE ERROR
01668  M00S01653.msi     +++|          NZ     X3,UMS3     IF NOT END LIST
01669  M00S01654.msi     +++| UMS4     SA3    X2+PFGL
01670  M00S01655.msi     +++|          SA4    X2+PUGL
01671  M00S01656.msi     +++|          SA5    X2+STLL
01672  M00S01657.msi     +++|          MX0    42
01673  M00S01658.msi     +++|          BX6    X0*X3       PACKNAME OR FAMILY NAME
01674  M00S01659.msi     +++|          LX5    59-LIRP
01675  M00S01660.msi     +++|          BX7    X0*X4       USER NAME
01676  M00S01661.msi     +++|          SX1    X1+
01677  M00S01662.msi     +++|          NG     X5,UMS6     IF INITIALIZE SET
01678  M00S01663.msi     +++|          RJ     COD         CONVERT EST ORDINAL TO DISPLAY CODE
01679  M00S01664.msi     +++|          MX7    -18         SET EST ORDINAL IN ACTIVE FILES MESSAGE
01680  M00S01665.msi     +++|          LX6    30
01681  M00S01666.msi     +++|          SA4    ERROR19
01682  M00S01667.msi     +++|          LX7    30
01683  M00S01668.msi     +++|          BX6    -X7*X6
01684  M00S01669.msi     +++|          BX7    X7*X4
01685  M00S01670.msi     +++|          BX6    X6+X7
01686  M00S01671.msi     +++|          SA6    A4
01687  M00S01672.msi     +++| UMS5     ERROR  19          * EQXXX, INITIALIZE BIT NOT SET.*
01688  M00S01673.msi     +++|          SX6    7777B
01689  M00S01674.msi     +++|          SX7    HNGP
01690  M00S01675.msi     +++|          SA6    CNT
01691  M00S01676.msi     +++|          SA7    ARGP
01692  M00S01677.msi     +++|          RJ     PKI
01693  M00S01678.msi     +++|          EQ     UMS5        LOOP
01694  M00S01679.msi     +++|
01695  M00S01680.msi     +++| UMS6     NZ     X7,UMS7     IF USER NAME SET
01696  M00S01681.msi     +++|          LX3    -12
01697  M00S01682.msi     +++|          MX0    -6
01698  M00S01683.msi     +++|          BX7    -X0*X3      DEVICE NUMBER
01699  M00S01684.msi     +++|          MX0    -3
01700  M00S01685.msi     +++|          ZR     X7,UMS7     IF DEVICE NUMBER EQ ZERO
01701  M00S01686.msi     +++|          BX2    -X0*X7
01702  M00S01687.msi     +++|          AX7    3
01703  M00S01688.msi     +++|          SX2    X2+2R00
01704  M00S01689.msi     +++|          LX7    6
01705  M00S01690.msi     +++|          IX7    X2+X7
01706  M00S01691.msi     +++|          LX7    59-11
01707  M00S01692.msi     +++| UMS7     SA6    SPN
01708  M00S01693.msi     +++|          SA7    SUN
01709  M00S01694.msi     +++|          SX1    X1          CLEAR PACK COUNT
01710  M00S01695.msi     +++|          MX0    1
01711  M00S01696.msi     +++|          RJ     COD         CONVERT EQ NUMBER
01712  M00S01697.msi     +++|          LX0    -22
01713  M00S01698.msi     +++|          BX6    X0+X4       ADD TRAILING PERIOD
01714  M00S01699.msi     +++|          SA6    ENID+2
01715  M00S01700.msi     +++| UMS8     SX7    B1
01716  M00S01701.msi     +++|          SX6    EIDS
01717  M00S01702.msi     +++|          SA6    ARGP
01718  M00S01703.msi     +++|          SA7    CNT
01719  M00S01704.msi     +++|          KEYMES ENID        *ENTER IDENTITY OF EQXXX.*
01720  M00S01705.msi     +++|          RJ     PKI         PROCESS KEYBOARD
01721  M00S01706.msi     +++|          SA1    PARC+PMID
01722  M00S01707.msi     +++|          SA5    PARC+PMID+1
01723  M00S01708.msi     +++|          SA2    SPN
01724  M00S01709.msi     +++|          SA3    SUN
01725  M00S01710.msi     +++|          BX4    X1-X2
01726  M00S01711.msi     +++|          BX5    X5-X3
01727  M00S01712.msi     +++|          NZ     X4,UMS8     IF FN OR PN DO NOT MATCH
01728  M00S01713.msi     +++|          ZR     X5,UMS9     IF UN OR DN MATCH
01729  M00S01714.msi     +++|          SA1    PARC+PMID+1
01730  M00S01715.msi     +++|          LX3    6
01731  M00S01716.msi     +++|          SX2    1R0
01732  M00S01717.msi     +++|          BX5    X3-X2
01733  M00S01718.msi     +++|          BX1    X5-X1
01734  M00S01719.msi     +++|          NZ     X1,UMS8     IF NO MATCH ON DN
01735  M00S01720.msi     +++| UMS9     SA2    TEMP
01736  M00S01721.msi     +++|          SA1    X2+B1       NEXT ENTRY IN PKL
01737  M00S01722.msi     +++|          NZ     X1,UMS2     IF NOT END OF LIST
01738  M00S01723.msi     +++|          SA5    PKL         START OF EQUIPMENTS
01739  M00S01724.msi     +++|
01740  M00S01725.msi     +++|*         UPDATE MST,S AND LINK EQUIPMENTS.
01741  M00S01726.msi     +++|
01742  M00S01727.msi     +++| UMS10    BX4    X5          SAVE LINKED PACK COUNT
01743  M00S01728.msi     +++|          AX4    36
01744  M00S01729.msi     +++|          SYSTEM IMS,R,TUMS,MMS  UPDATE MST
01745  M00S01730.msi     +++|          SA1    TUMS+6      CHECK REPLY
01746  M00S01731.msi     +++|          NZ     X1,UMSX     IF DUPLICATE DAT ENTRY
01747  M00S01732.msi     +++|          BX1    X5          SET EQUIPMENT
01748  M00S01733.msi     +++|          SA5    A5+B1       READ NEXT EQUIPMENT
01749  M00S01734.msi     +++|          ZR     X4,UMSX     IF END OF LIST
01750  M00S01735.msi     +++|          R=     X2,ESTE
01751  M00S01736.msi     +++|          IX2    X1*X2
01752  M00S01737.msi     +++|          SA2    ESTB+X2+EQDE  GET EST ENTRY
01753  M00S01738.msi     +++|          MX0    1
01754  M00S01739.msi     +++|          LX0    54-59
01755  M00S01740.msi     +++|          BX6    X0+X2
01756  M00S01741.msi     +++|          SA6    A2
01757  M00S01742.msi     +++|          SA2    ESTF+X1     SET DEVICE IN USE IN CHAIN
01758  M00S01743.msi     +++|          SA2    X2+STLL
01759  M00S01744.msi     +++|          SA3    TUMS+1      UPDATE N/M
01760  M00S01745.msi     +++|          SX4    X4
01761  M00S01746.msi     +++|          LX0    2-54
01762  M00S01747.msi     +++|          BX6    X2+X0
01763  M00S01748.msi     +++|          IX7    X4+X3       INCREMENT N/M
01764  M00S01749.msi     +++|          SA7    A2-STLL+PFGL
01765  M00S01750.msi     +++|          SA6    A2
01766  M00S01751.msi     +++|          RJ     BPT         BUILD PARAMETER TABLE
01767  M00S01752.msi     +++|          EQ     UMS10       LOOP FOR NEXT ENTRY
01768  M00S01753.msi     +++|
01769  M00S01754.msi     +++| SPN      CON    0
01770  M00S01755.msi     +++| SUN      CON    0
01771  M00S01756.msi     +++|
01772  M00S01757.msi     +++| ELST     CON    STLE        LABEL ERROR
01773  M00S01758.msi     +++|          CON    STNR        NOT READY
01774  M00S01759.msi     +++|          CON    0
01775  M00S01760.msi     +++| TUMS     SPACE  4,15
01776  M00S01761.msi     +++|**        TUMS - TABLE OF MST UPDATING PARAMETERS.
01777  M00S01762.msi     +++|*
01778  M00S01763.msi     +++|*T, TUMS  60/  EST ENTRY
Figure TUMS

029 EST ENTRY3059 EST ENTRY

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

029 PFGL MST WORD3059 PFGL MST WORD

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

029 PUGL MST WORD3059 PUGL MST WORD

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

029 MDGL MST WORD3059 MDGL MST WORD

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

01112232429 NE CI AI303536474859 AI EQ NC

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

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

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

029 REPLY WORD3059 REPLY WORD

01785  M00S01770.msi     +++|*         NC     NUMBER OF CATALOG TRACKS.
01786  M00S01771.msi     +++|*         EQ     EST ORDINAL.
01787  M00S01772.msi     +++|*         AI     ALGORITHM INDEX.
01788  M00S01773.msi     +++|*         CI     CLEAR IN USE AS CHAINED DEVICE.
01789  M00S01774.msi     +++|*         NE     NEXT EQUIPMENT IN LINKED DEVICE.
01790  M00S01775.msi     +++|
01791  M00S01776.msi     +++|
01792  M00S01777.msi     +++| TUMS     BSSZ   7
01793  M00S01778.msi     +++| EDF      SPACE  4,10
01794  M00S01779.msi     +++|**        EDF - SEPARATE FAMILY FROM OTHER MASS STORAGE.
01795  M00S01780.msi     +++|*
01796  M00S01781.msi     +++|*         EXIT   (B7) = EST ORDINAL.
01797  M00S01782.msi     +++|*
01798  M00S01783.msi     +++|*         USES   X - ALL.
01799  M00S01784.msi     +++|*                A - 1, 2, 4, 7.
01800  M00S01785.msi     +++|*                B - 2, 3, 7.
01801  M00S01786.msi     +++|
01802  M00S01787.msi     +++|
01803  M00S01788.msi     +++| EDF      SUBR               ENTRY/EXIT
01804  M00S01789.msi     +++|          SA1    PARC+PMEQ
01805  M00S01790.msi     +++|          SB7    X1          SAVE EST ORDINAL
01806  M00S01791.msi     +++|          SA1    ESTF+X1
01807  M00S01792.msi     +++|          SA1    X1+PFGL
01808  M00S01793.msi     +++|          MX0    42
01809  M00S01794.msi     +++|          BX5    X0*X1       FAMILY NAME
01810  M00S01795.msi     +++|          SA1    ESTF-1
01811  M00S01796.msi     +++| EDF1     SA1    A1+B1
01812  M00S01797.msi     +++|          MX3    42
01813  M00S01798.msi     +++|          MI     X1,EDF5     IF LINKED EQUIPMENT
01814  M00S01799.msi     +++|          ZR     X1,EDF2     IF EMPTY LINK
01815  M00S01800.msi     +++|          SA4    X1+PFGL
01816  M00S01801.msi     +++|          BX3    X0*X4
01817  M00S01802.msi     +++|          BX3    X3-X5       TEST FAMILY NAME
01818  M00S01803.msi     +++|          BX2    X1
01819  M00S01804.msi     +++| EDF2     SB3    A1-ESTF-ESMX
01820  M00S01805.msi     +++|          ZR     B3,EDFX     IF END OF EST
01821  M00S01806.msi     +++|          ZR     X3,EDF4     IF MATCH ON FAMILY
01822  M00S01807.msi     +++| EDF3     MX7    0
01823  M00S01808.msi     +++|          SA7    A1          CLEAR NON FAMILY LINK
01824  M00S01809.msi     +++|          EQ     EDF1        LOOP ON SEARCH
01825  M00S01810.msi     +++|
01826  M00S01811.msi     +++| EDF4     SB2    A1-ESTF
01827  M00S01812.msi     +++|          EQ     B2,B7,EDF1  IF CURRENT EQUIPMENT
01828  M00S01813.msi     +++|          SX4    B2
01829  M00S01814.msi     +++|          R=     X3,ESTE
01830  M00S01815.msi     +++|          IX3    X4*X3
01831  M00S01816.msi     +++|          SA4    X2+STLL
01832  M00S01817.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
01833  M00S01818.msi     +++|          SA2    X2+MDGL     CHECK FOR AUXILIARY DEVICE
01834  M00S01819.msi     +++|          LX4    59-LDIU
01835  M00S01820.msi     +++|          LX3    59-54
01836  M00S01821.msi     +++|          LX2    59-58
01837  M00S01822.msi     +++|          NG     X4,EDF3     IF DEVICE IN USE
01838  M00S01823.msi     +++|          MI     X2,EDF3     IF AUXILIARY DEVICE CLEAR ENTRY
01839  M00S01824.msi     +++|          PL     X3,EDF1     IF EQUIPMENT AVAILABLE LOOP FOR NEXT EQ
01840  M00S01825.msi     +++|          EQ     EDF3        IF NOT AVAILABLE CLEAR LINK
01841  M00S01826.msi     +++|
01842  M00S01827.msi     +++| EDF5     SA3    X1+STLL
01843  M00S01828.msi     +++|          MX6    60-LIRP
01844  M00S01829.msi     +++|          BX3    -X6*X3
01845  M00S01830.msi     +++|          MX6    48-LIMF
01846  M00S01831.msi     +++|          LX6    48
01847  M00S01832.msi     +++|          BX6    -X6*X3      CLEAR INITIALIZE REQUEST IN LINKED EQ
01848  M00S01833.msi     +++|          SA6    A3
01849  M00S01834.msi     +++|          EQ     EDF3        GO CLEAR LINK
01850  M00S01835.msi     +++| CMS      SPACE  4,10
01851  M00S01836.msi     +++|**        CMS - CHECK MASK AND DEVICE NUMBER.
01852  M00S01837.msi     +++|*
01853  M00S01838.msi     +++|*         ENTRY  (B7) = EQ NUMBER.
01854  M00S01839.msi     +++|*
01855  M00S01840.msi     +++|*         EXIT   (B6) = DEVICE NUMBER.
01856  M00S01841.msi     +++|*                (B7) = EQ NUMBER.
01857  M00S01842.msi     +++|*                (X7) .LT. 0 IF NEW PARAMETERS TO PROCESS.
01858  M00S01843.msi     +++|*
01859  M00S01844.msi     +++|*         USES   ALL REGISTERS.
01860  M00S01845.msi     +++|*
01861  M00S01846.msi     +++|*         CALLS  PKI.
01862  M00S01847.msi     +++|*
01863  M00S01848.msi     +++|*         MACROS ERROR.
01864  M00S01849.msi     +++|
01865  M00S01850.msi     +++|
01866  M00S01851.msi     +++| CMS11    SA1    PARC+PMEQ   SET EQUIPMENT
01867  M00S01852.msi     +++|          BX7    X7-X7
01868  M00S01853.msi     +++|          SB7    X1
01869  M00S01854.msi     +++|          SA1    ESTF+X1     SET DEVICE NUMBER
01870  M00S01855.msi     +++|          SA1    X1+PFGL
01871  M00S01856.msi     +++|          MX0    -6
01872  M00S01857.msi     +++|          AX1    12
01873  M00S01858.msi     +++|          BX1    -X0*X1
01874  M00S01859.msi     +++|          SB6    X1
01875  M00S01860.msi     +++|
01876  M00S01861.msi     +++| CMS      SUBR               ENTRY/EXIT
01877  M00S01862.msi     +++| CMS1     SA1    ESTF-1
01878  M00S01863.msi     +++|          MX6    0
01879  M00S01864.msi     +++|          SA5    ESTF+B7
01880  M00S01865.msi     +++|          SA5    X5+PFGL
01881  M00S01866.msi     +++|          MX0    -6
01882  M00S01867.msi     +++|          AX5    12
01883  M00S01868.msi     +++|          BX4    -X0*X5
01884  M00S01869.msi     +++|          SB6    X4          SAVE DN
01885  M00S01870.msi     +++| CMS2     SA1    A1+B1
01886  M00S01871.msi     +++|          ZR     X1,CMS5     IF EMPTY LINK
01887  M00S01872.msi     +++|          MX5    -8
01888  M00S01873.msi     +++|          SA2    X1+PUGL
01889  M00S01874.msi     +++|          BX3    X6*X2
01890  M00S01875.msi     +++|          BX2    -X5*X2
01891  M00S01876.msi     +++|          IX6    X6+X2
01892  M00S01877.msi     +++|          SA2    X1+PFGL
01893  M00S01878.msi     +++|          MX7    60-LIFD
01894  M00S01879.msi     +++|          SA5    X1+STLL     CHECK INITIALIZE STATUS
01895  M00S01880.msi     +++|          AX2    12
01896  M00S01881.msi     +++|          BX2    -X0*X2      DEVICE NUMBER
01897  M00S01882.msi     +++|          BX5    X7*X5       EXTRACT FULL INITIALIZE FLAGS
01898  M00S01883.msi     +++|          IX2    X2-X4       CHECK AGAINST CURRENT DEVICE NUMBER
01899  M00S01884.msi     +++|          CX5    X5
01900  M00S01885.msi     +++|          MX7    1           ALLOW *GO* IF FULL INITIALIZE SET
01901  M00S01886.msi     +++|          LX5    59
01902  M00S01887.msi     +++|          BX7    X7-X5
01903  M00S01888.msi     +++|          SA7    CMSA
01904  M00S01889.msi     +++|          ZR     X2,CMS8     IF DN MATCH
01905  M00S01890.msi     +++| CMS3     ZR     X3,CMS5     IF NO DUPLICATION OF BITS IN MASK
01906  M00S01891.msi     +++|          SB3    A1-ESTF
01907  M00S01892.msi     +++|          SX7    B3-B7
01908  M00S01893.msi     +++|          NZ     X7,CMS4     IF NOT CURRENT DEVICE
01909  M00S01894.msi     +++|          MX7    1
01910  M00S01895.msi     +++|          SA7    CMSA        INDICATE *GO* NOT ALLOWED
01911  M00S01896.msi     +++| CMS4     ERROR  17          *DUPLICATE BITS IN MASK.*
01912  M00S01897.msi     +++|          EQ     CMS6        DISPLAY ERROR
01913  M00S01898.msi     +++|
01914  M00S01899.msi     +++| CMS5     SB3    A1-ESTF-ESMX
01915  M00S01900.msi     +++|          NZ     B3,CMS2     IF NOT END OF FAMILY
01916  M00S01901.msi     +++|          SX7    377B
01917  M00S01902.msi     +++|          ZR     X6,CMSX     IF NO MASK BITS SET
01918  M00S01903.msi     +++|          BX6    X7-X6       TEST MASK
01919  M00S01904.msi     +++|          BX7    X7*X6
01920  M00S01905.msi     +++|          ZR     X7,CMSX     EXIT MASK OK
01921  M00S01906.msi     +++|
01922  M00S01907.msi     +++|*         PROCESS MASK OVER FLOW.
01923  M00S01908.msi     +++|
01924  M00S01909.msi     +++|          ERROR  3           *FAMILY MASK NOT EQUAL 377.*
01925  M00S01910.msi     +++|          SX7    0
01926  M00S01911.msi     +++|          SA7    CMSA        INDICATE *GO* ALLOWED FOR THIS ERROR
01927  M00S01912.msi     +++| CMS6     MX7    1
01928  M00S01913.msi     +++|          SX6    B1
01929  M00S01914.msi     +++|          SA7    PARC+PMDM   CLEAR DEVICE MASK
01930  M00S01915.msi     +++|          SA6    CNT
01931  M00S01916.msi     +++|          SX7    ENMS
01932  M00S01917.msi     +++|          SA7    ARGP
01933  M00S01918.msi     +++|          RJ     PKI         PROCESS MASK ERROR
01934  M00S01919.msi     +++|          SA1    PARC+PMDM
01935  M00S01920.msi     +++|          SA5    CMSA        CHECK IF *GO* ALLOWED
01936  M00S01921.msi     +++|          MX7    1
01937  M00S01922.msi     +++|          PL     X1,CMSX     IF NOT *GO*
01938  M00S01923.msi     +++| CMS7     ZR     X5,CMS11    IF *GO* ALLOWED
01939  M00S01924.msi     +++|          EQ     CMS1        LOOP
01940  M00S01925.msi     +++|
01941  M00S01926.msi     +++|*         PROCESS DUPLICATE DEVICE NUMBER.
01942  M00S01927.msi     +++|
01943  M00S01928.msi     +++| CMS8     SB3    A1-ESTF
01944  M00S01929.msi     +++|          EQ     B3,B7,CMS3        IF SAME EQUIPMENT
01945  M00S01930.msi     +++|          ERROR  13          *DUPLICATE DN.*
01946  M00S01931.msi     +++| CMS9     MX7    1
01947  M00S01932.msi     +++|          SA7    PARC+PMDN   CLEAR DEVICE NUMBER
01948  M00S01933.msi     +++|          SX6    B1
01949  M00S01934.msi     +++|          SX7    ENDN
01950  M00S01935.msi     +++|          SA6    CNT
01951  M00S01936.msi     +++|          SA7    ARGP
01952  M00S01937.msi     +++|          RJ     PKI         PROCESS DN ERROR
01953  M00S01938.msi     +++|          SA1    PARC+PMDN
01954  M00S01939.msi     +++|          SA5    CMSA        CHECK IF *GO* ALLOWED
01955  M00S01940.msi     +++|          MI     X1,CMS7     IF *GO* ENTERED
01956  M00S01941.msi     +++|          NZ     X1,CMS10    IF DN NOT ZERO
01957  M00S01942.msi     +++|          ERROR  20          *DN CANNOT BE ZERO.*
01958  M00S01943.msi     +++|          EQ     CMS9        PROCESS ERROR
01959  M00S01944.msi     +++|
01960  M00S01945.msi     +++| CMS10    MX7    1
01961  M00S01946.msi     +++|          EQ     CMSX        GO PROCESS NEW DN
01962  M00S01947.msi     +++|
01963  M00S01948.msi     +++| CMSA     CON    0           INDICATOR FOR ALLOWING *GO* ENTRY
01964  M00S01949.msi     +++| CRE      SPACE  4,15
01965  M00S01950.msi     +++|**        CRE - CHECK REQUIRED ENTRIES.
01966  M00S01951.msi     +++|*
01967  M00S01952.msi     +++|*         ENTRY  (B5) = ADDRESS OF MST FOR EQUIPMENT.
01968  M00S01953.msi     +++|*
01969  M00S01954.msi     +++|*         EXIT   (X6) = 0 IF NEW PARAMETERS TO PROCESS.
01970  M00S01955.msi     +++|*                (B5) = ADDRESS OF MST FOR EQUIPMENT.
01971  M00S01956.msi     +++|*
01972  M00S01957.msi     +++|*         USES   X - 0, 1, 2, 4, 6, 7.
01973  M00S01958.msi     +++|*                A - 1, 2, 4, 6, 7.
01974  M00S01959.msi     +++|*                B - 5.
01975  M00S01960.msi     +++|*
01976  M00S01961.msi     +++|*         CALLS  PKI.
01977  M00S01962.msi     +++|*
01978  M00S01963.msi     +++|*         MACROS KEYMES.
01979  M00S01964.msi     +++|
01980  M00S01965.msi     +++|
01981  M00S01966.msi     +++| CRE      SUBR               ENTRY/EXIT
01982  M00S01967.msi     +++|          MX0    42
01983  M00S01968.msi     +++|          SA1    B5+PFGL     CHECK FAMILY/PACK NAME
01984  M00S01969.msi     +++|          BX6    X0*X1
01985  M00S01970.msi     +++|          NZ     X6,CREX     IF FAMILY/PACK NAME SPECIFIED
01986  M00S01971.msi     +++|          SX6    B5+         SAVE MST POINTER
01987  M00S01972.msi     +++|          SA6    TEMP
01988  M00S01973.msi     +++| CRE1     KEYMES ENNFN       *ENTER NEW FAMILY/PACK NAME.*
01989  M00S01974.msi     +++|          SX7    B1+
01990  M00S01975.msi     +++|          SA7    CNT
01991  M00S01976.msi     +++|          RJ     PKI         PROCESS KEYBOARD INPUT
01992  M00S01977.msi     +++|          SA2    PARC+PMFN
01993  M00S01978.msi     +++|          ZR     X2,CRE1     IF FAMILY/PACK NAME NOT ENTERED
01994  M00S01979.msi     +++|          SA4    TEMP        RESTORE MST POINTER
01995  M00S01980.msi     +++|          SB5    X4
01996  M00S01981.msi     +++|          MX6    0           NEW PARAMETERS TO PROCESS
01997  M00S01982.msi     +++|          EQ     CREX        RETURN
01998  M00S01983.msi     +++| EDD      SPACE  4,10
01999  M00S01984.msi     +++|**        EDD - EDIT DEVICE TRTS.
02000  M00S01985.msi     +++|*
02001  M00S01986.msi     +++|*         ENTRY  (B6) = DEVICE NUMBER.
02002  M00S01987.msi     +++|*                (B7) = EST ORDINAL OF INITIALIZED EQUIPMENT.
02003  M00S01988.msi     +++|*
02004  M00S01989.msi     +++|*         EXIT   B6,B7 NOT CHANGED.
02005  M00S01990.msi     +++|*
02006  M00S01991.msi     +++|*         USES   X - 0, 1, 2, 4, 5, 6.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/msi.txt ยท Last modified: by 127.0.0.1