Deck 1RM

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1rm     +++|          IDENT  1RM,RDM
00002  M00S00002.1rm     +++|          PERIPH
00003  M00S00003.1rm     +++|          BASE   M
00004  M00S00004.1rm     +++|          SST
00005  M00S00005.1rm     +++|          TITLE  1RM - REDEFINE MASS STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.ns22000 ---|  COMMENT 78/04/10. 80/02/25. 1RM - REDEFINE MASS STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.ns22000 +++|*COMMENT  1RM - REDEFINE MASS STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1976.

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M00S00008.1rm     +++| RDM      SPACE  4,10
00011  M00S00009.1rm     +++|*****     1RM - REDEFINE MASS STORAGE.
00012  M00S00010.1rm     +++|*
00013  M00S00011.1rm     +++|*         A. J. BEEKMAN.     77/04/25.
00014  M00S00012.1rm     +++|*         W. E. GOEBEL.      80/02/25.
00015  M00S00013.1rm     +++|*
00016  M00S00014.1rm     +++|*         *1RM* PROVIDES FUNCTIONS USED IN THE REDEFINITION OR REPAIR
00017  M00S00015.1rm     +++|*         OF 844 AND 885 TYPE MASS STORAGE DEVICES.
00018  M00S00016.1rm     +++|          SPACE  4,10
00019  M00S00017.1rm     +++|***       *1RM* USES PARAMETERS PASSED TO IT FROM THE CPU ROUTINE
00020  M00S00018.1rm     +++|*         *CONFIG* (CONFIGURATION MONITOR) TO PERFORM OPERATIONS
00021  M00S00019.1rm     +++|*         WHICH CONTROL THE ON-LINE RECONFIGURATION OR REPAIR OF
00022  M00S00020.1rm     +++|*         844 AND 885 TYPE MASS STORAGE DEVICES.
00023  M00S00021.1rm     +++|          SPACE  4,10
00024  M00S00022.1rm     +++|***       *1RM* PROCESSES THE FUNCTIONS AS DEFINED IN *COMS1RM*.
00025  M00S00023.1rm     +++|*         ALL *1RM* FUNCTIONS REQUIRE THAT THE CALLING JOB HAS MASS

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00024.242l642 ---|*         STORAGE SUBSYSTEM QUEUE PRIORITY.

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00001.242l642 +++|*         STORAGE SUBSYSTEM ID.
00028  M00S00025.1rm     +++|*
00029  M00S00026.1rm     +++|*         THE CALL TO *1RM* IS IN THE FOLLOWING FORM -
00030  M00S00027.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00028.241l630 ---|*T IR     24/ *1RMP*,18/ 0,18/ ADDR

Figure IR

Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00001.241l630 +++|*T IR     24/ *1RMP*,18/ KDMA,18/ ADDR

Figure IR

00033  M00S00029.1rm     +++|*
00034  M00S00030.1rm     +++|*         ADDR = ADDRESS OF CALL BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00002.241l630 +++|*         KDMA = K-DISPLAY MESSAGE LINE ADDRESS.
00036  M00S00031.1rm     +++|*
00037  M00S00032.1rm     +++|*                THE CALL BLOCK FORMAT IS DOCUMENTED IN *COMS1RM*.
00038  M00S00033.1rm     +++|          SPACE  4,10
00039  M00S00034.1rm     +++|***       K-DISPLAY COMMANDS.
00040  M00S00035.1rm     +++|*
00041  M00S00036.1rm     +++|*         THE FOLLOWING COMMANDS ARE ENTERED IN RESPONSE TO AN
00042  M00S00037.1rm     +++|*         ERROR CONDITION DETECTED BY *1RM*.
00043  M00S00038.1rm     +++|*
00044  M00S00039.1rm     +++|*         ABORT. THIS COMMAND IS ENTERED TO DISCONTINUE PROCESSING
00045  M00S00040.1rm     +++|*                OF THE CURRENT COMMAND IN PROGRESS.
00046  M00S00041.1rm     +++|*
00047  M00S00042.1rm     +++|*         IGNORE.  THE ERROR CONDITION DETECTED BY *1RM* IS TO
00048  M00S00043.1rm     +++|*                BE IGNORED.  THIS COMMAND SHOULD BE USED WITH
00049  M00S00044.1rm     +++|*                DISCRETION.  IT SHOULD BE USED ONLY WHEN THE
00050  M00S00045.1rm     +++|*                ERROR BEING POSTED IS WELL UNDERSTOOD AND
00051  M00S00046.1rm     +++|*                CAN LEGITIMATELY BE IGNORED.
00052  M00S00047.1rm     +++|*
00053  M00S00048.1rm     +++|*         NEXT.  THIS COMMAND IS ENTERED IN RESPONSE TO AN
00054  M00S00049.1rm     +++|*                885 SERVO TIMING CHECK WHEN THE TIMING DATA
00055  M00S00050.1rm     +++|*                IS IN THE REQUIRED RANGE.  ENTRY OF THIS
00056  M00S00051.1rm     +++|*                COMMAND WILL CAUSE PROCESSING TO CONTINUE
00057  M00S00052.1rm     +++|*                WITH EITHER THE NEXT UNIT OR THE NEXT STEP
00058  M00S00053.1rm     +++|*                OF PROCESSING.
00059  M00S00054.1rm     +++|*
00060  M00S00055.1rm     +++|*         RECHECK.  THIS COMMAND IS ENTERED TO RETRY A PROCESS
00061  M00S00056.1rm     +++|*                WHICH PREVIOUSLY GAVE AN ERROR.  IF THE ERROR
00062  M00S00057.1rm     +++|*                PERSISTS THE MESSAGE WILL BE POSTED AGAIN
00063  M00S00058.1rm     +++|*                WITH ANOTHER OPPORTUNITY FOR OPERATOR ACTION.
00064  M00S00059.1rm     +++|          SPACE  4,10
00065  M00S00060.1rm     +++|***       K-DISPLAY OPERATOR MESSAGES.
00066  M00S00061.1rm     +++|*
00067  M00S00062.1rm     +++|*
00068  M00S00063.1rm     +++|*         THE FOLLOWING COMMANDS ARE POSTED ON THE K-DISPLAY BY
00069  M00S00064.1rm     +++|*         *1RM*.  WHEN *1RM* DETECTS A CONDITION WHICH MAY BE
00070  M00S00065.1rm     +++|*         RESPONDED TO BY THE OPERATOR, A MESSAGE IS POSTED AND
00071  M00S00066.1rm     +++|*         THE LEGAL COMMANDS ARE POSTED ON THE K-DISPLAY.  THE
00072  M00S00067.1rm     +++|*         FOLLOWING LIST OF ERROR MESSAGES LISTS THOSE LEGAL
00073  M00S00068.1rm     +++|*         COMMANDS AND INDICATES IF AN OPERATOR RESPONSE IS
00074  M00S00069.1rm     +++|*         REQUIRED OR OPTIONAL.
00075  M00S00070.1rm     +++|*
00076  M00S00071.1rm     +++|*
00077  M00S00072.1rm     +++|*         UNIT XX, CHYY WRITE/READ VERIFY ERROR.
00078  M00S00073.1rm     +++|*                PART OF THE VALIDATION PROCEDURE WHEN RETURNING
00079  M00S00074.1rm     +++|*                AN EQUIPMENT FOR SYSTEM USE (CLEAR COMMAND) IS
00080  M00S00075.1rm     +++|*                TO WRITE A SECTOR OF DATA TO THE DEVICE, READ IT
00081  M00S00076.1rm     +++|*                BACK AND VERIFY THE DATA.  WHEN THIS VERIFICATION
00082  M00S00077.1rm     +++|*                FAILS THE ABOVE MESSAGE APPEARS.
00083  M00S00078.1rm     +++|*         COMMANDS - REQUIRED.
00084  M00S00079.1rm     +++|*                ABORT, IGNORE, RECHECK.
00085  M00S00080.1rm     +++|*
00086  M00S00081.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00082.ns22000 ---|*         *ERROR IN PERFORMING SERVO CHECK ON UNIT XX.*

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00002.ns22000 +++|*         ERROR IN PERFORMING SERVO CHECK ON UNIT XX.
00089  M00S00083.1rm     +++|*                THE SERVO ADJUSTMENT PROCEDURE HAS ENCOUNTERED
00090  M00S00084.1rm     +++|*                A DISK ERROR CONDITION.
00091  M00S00085.1rm     +++|*         COMMANDS - REQUIRED.
00092  M00S00086.1rm     +++|*                ABORT, IGNORE, RECHECK.
00093  M00S00087.1rm     +++|*
00094  M00S00088.1rm     +++|*
00095  M00S00089.1rm     +++|*         UNIT XX SERVO TIMING= XXX.  ACCEPTABLE RANGE IS 325 TO 345.
00096  M00S00090.1rm     +++|*                WHEN RECONFIGURING AN 885 HDA A SERVO ADJUSTMENT
00097  M00S00091.1rm     +++|*                PROCEDURE IS EXECUTED.  THIS PROCEDURE MEASURES
00098  M00S00092.1rm     +++|*                SERVO TIMING CHARACTERISTICS WHICH MUST BE IN THE
00099  M00S00093.1rm     +++|*                SPECIFIED RANGE.  A DRIVE ADJUSTMENT MUST BE MADE
00100  M00S00094.1rm     +++|*                BY A CE UNTIL THE TIMING IS IN THE SPECIFIED
00101  M00S00095.1rm     +++|*                RANGE.
00102  M00S00096.1rm     +++|*         COMMANDS - REQUIRED.
00103  M00S00097.1rm     +++|*                ABORT, RECHECK.
00104  M00S00098.1rm     +++|*                NEXT.  ONLY IF TIMING IS IN RANGE.
00105  M00S00099.1rm     +++|*                IGNORE.  ONLY IF TIMING IS NOT IN RANGE.
00106  M00S00100.1rm     +++|*
00107  M00S00101.1rm     +++|*
00108  M00S00102.1rm     +++|*         ERROR ON LINK DEVICE.
00109  M00S00103.1rm     +++|*                WHEN A DEVICE IS SHARED BETWEEN MAINFRAMES THE
00110  M00S00104.1rm     +++|*                LINK DEVICE IS READ TO SYNCHRONIZE PROCESSING
00111  M00S00105.1rm     +++|*                BETWEEN MACHINES.  WHEN AN ERROR OCCURS IN
00112  M00S00106.1rm     +++|*                READING THE LINK DEVICE THIS ERROR MESSAGE
00113  M00S00107.1rm     +++|*                IS ISSUED.
00114  M00S00108.1rm     +++|*         COMMANDS - REQUIRED.
00115  M00S00109.1rm     +++|*                ABORT, IGNORE.
00116  M00S00110.1rm     +++|*
00117  M00S00111.1rm     +++|*
00118  M00S00112.1rm     +++|*         SPIN DOWN UNIT XX.
00119  M00S00113.1rm     +++|*                THIS IS A DIRECTIVE TO THE OPERATOR OR CE TO
00120  M00S00114.1rm     +++|*                SPIN DOWN THE SPECIFIED UNIT IN PREPARATION
00121  M00S00115.1rm     +++|*                FOR MOVING THE PACK OR HDA.
00122  M00S00116.1rm     +++|*         COMMAND - OPTIONAL.
00123  M00S00117.1rm     +++|*                ABORT, IGNORE.
00124  M00S00118.1rm     +++|*
00125  M00S00119.1rm     +++|*
00126  M00S00120.1rm     +++|*         MOVE PACK FROM UNIT XX TO UNIT YY AND SPIN UP.
00127  M00S00121.1rm     +++|*                THIS DIRECTIVE IS ISSUED TO THE OPERATOR FOR
00128  M00S00122.1rm     +++|*                EACH UNIT TO BE MOVED DURING A RECONFIGURATION.
00129  M00S00123.1rm     +++|*                UNIT XX HAS PREVIOUSLY BEEN DIRECTED TO BE
00130  M00S00124.1rm     +++|*                SPUN DOWN AND ITS PACK OR HDA IS NOW TO BE
00131  M00S00125.1rm     +++|*                MOVED TO UNIT YY.
00132  M00S00126.1rm     +++|*         COMMANDS - OPTIONAL.
00133  M00S00127.1rm     +++|*                ABORT, IGNORE.
00134  M00S00128.1rm     +++|*
00135  M00S00129.1rm     +++|*
00136  M00S00130.1rm     +++|*         UNIT XX, CHYY LABEL READ ERROR.
00137  M00S00131.1rm     +++|*                IN VERIFYING THAT THE CORRECT LABEL IS PRESENT
00138  M00S00132.1rm     +++|*                ON UNIT XX A DISK ERROR OCCURRED WHICH PREVENTED
00139  M00S00133.1rm     +++|*                THE LABEL FROM BEING READ SUCCESSFULLY.
00140  M00S00134.1rm     +++|*                THE CHANNEL IS SPECIFIED IN THE MESSAGE AND
00141  M00S00135.1rm     +++|*                MAY BE HELPFUL IF THE VERIFY ERROR OCCURS
00142  M00S00136.1rm     +++|*                ONLY FROM A SINGLE CHANNEL IN A DUAL ACCESS
00143  M00S00137.1rm     +++|*                CONFIGURATION.
00144  M00S00138.1rm     +++|*         COMMANDS - REQUIRED.
00145  M00S00139.1rm     +++|*                ABORT, IGNORE, RECHECK.
00146  M00S00140.1rm     +++|*
00147  M00S00141.1rm     +++|*
00148  M00S00142.1rm     +++|*         UNIT XX, CHYY LABEL VERIFICATION ERROR.
00149  M00S00143.1rm     +++|*                THE LABEL SECTOR WAS READ BUT THE DATA IN THE
00150  M00S00144.1rm     +++|*                LABEL SECTOR IS NOT CORRECT.
00151  M00S00145.1rm     +++|*         COMMANDS - REQUIRED.
00152  M00S00146.1rm     +++|*                ABORT, IGNORE, RECHECK.
00153  M00S00147.1rm     +++|*
00154  M00S00148.1rm     +++|*
00155  M00S00149.1rm     +++|*         WAITING FOR MACHINE ID=XX.
00156  M00S00150.1rm     +++|*                A SHARED DEVICE IS BEING PROCESSED AND IT HAS
00157  M00S00151.1rm     +++|*                BEEN DETECTED THAT MACHINE IDXX IS NOT AT THE
00158  M00S00152.1rm     +++|*                SAME STAGE OF PROCESSING AS THIS MACHINE.
00159  M00S00153.1rm     +++|*         COMMANDS - REQUIRED.
00160  M00S00154.1rm     +++|*                ABORT, IGNORE.
00161  M00S00155.1rm     +++|*
00162  M00S00156.1rm     +++|*
00163  M00S00157.1rm     +++|*         COMMAND ABORTED.
00164  M00S00158.1rm     +++|*                INFORMATIVE MESSAGE STATING THAT THE ATTEMPTED
00165  M00S00159.1rm     +++|*                COMMAND WAS ABORTED AND ALL VALUES FOR THE CURRENT
00166  M00S00160.1rm     +++|*                EQUIPMENT BEING PROCESSED HAVE BEEN RESET TO THEIR
00167  M00S00161.1rm     +++|*                ORIGINAL VALUE.
00168  M00S00162.1rm     +++|*         COMMANDS - NONE.
00169  M00S00163.1rm     +++|*
00170  M00S00164.1rm     +++|*
00171  M00S00165.1rm     +++|*         UNIT XX SERVO TIMING IN PROGRESS.
00172  M00S00166.1rm     +++|*                INFORMATIVE MESSAGE STATING THAT ADJUSTMENTS ARE
00173  M00S00167.1rm     +++|*                BEING MADE ON THE SERVO TIMING.
00174  M00S00168.1rm     +++|*         COMMANDS - NONE.
00175  M00S00169.1rm     +++|*
00176  M00S00170.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00177  M01S00171.ns22000 ---|*         EQXX SYSTEM USAGE OF DEVICE SUSPENDED.

Seq #  *Modification Id* Act 
----------------------------+
00178  M01S00003.ns22000 +++|*         EQXXX, REDEFINITION COMPLETE.
00179  M01S00004.ns22000 +++|*                NORMAL COMPLETION MESSAGE.
00180  M01S00005.ns22000 +++|*
00181  M01S00006.ns22000 +++|*
00182  M01S00007.ns22000 +++|*         EQXXX, SYSTEM USAGE OF DEVICE SUSPENDED.
00183  M00S00172.1rm     +++|*                INFORMATIVE MESSAGE STATING THAT DEVICE USAGE HAS
00184  M00S00173.1rm     +++|*                BEEN SUSPENDED AS REQUESTED.
00185  M00S00174.1rm     +++|*         COMMANDS - NONE.
00186  M00S00175.1rm     +++|          SPACE  4,10
00187  M00S00176.1rm     +++|***       DAYFILE MESSAGES.
00188  M00S00177.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00189  M01S00178.v23l617 ---|*         * 1RM INVALID REQUEST.* = ILLEGAL FUNCTION CODE OR STATUS

Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00001.v23l617 +++|*         * 1RM INCORRECT REQUEST.* = INCORRECT FUNCTION CODE OR STATUS
00191  M00S00179.1rm     +++|*         WORD ADDRESS OUT OF RANGE.
00192  M00S00180.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00181.v23l617 ---|*         * 1RM INVALID USER ACCESS.* = CALLING JOB NOT MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00194  M01S00002.v23l617 +++|*         * 1RM USER ACCESS NOT VALID.* = CALLING JOB NOT MASS STORAGE
00195  M00S00182.1rm     +++|*         SUBSYSTEM QUEUE PRIORITY.

Seq #  *Modification Id* Act 
----------------------------+
00196  M01S00008.ns22000 +++|          SPACE  4,10
00197  M01S00009.ns22000 +++|**        ROUTINES USED.
00198  M01S00010.ns22000 +++|*
00199  M01S00011.ns22000 +++|*         0SI - SERVO TIMING.
00200  M00S00183.1rm     +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00012.ns22000 +++|**        COMMON DECKS.
00202  M01S00013.ns22000 +++|
00203  M01S00014.ns22000 +++|
00204  M00S00184.1rm     +++|*CALL     COMPMAC
00205  M00S00185.1rm     +++|*CALL     COMSCPS

Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00001.1rm1    +++|          QUAL   DSL
00207  M01S00002.1rm1    +++|*CALL     COMSDSL
00208  M01S00003.1rm1    +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00209  M01S00002.242l642 +++|*CALL     COMSEVT
00210  M00S00186.1rm     +++|*CALL     COMSLSD
00211  M00S00187.1rm     +++|*CALL     COMSMMF
00212  M00S00188.1rm     +++|*CALL     COMSMSP
00213  M00S00189.1rm     +++|*CALL     COMSMST
00214  M00S00190.1rm     +++|*CALL     COMSPIM
00215  M00S00191.1rm     +++|*CALL     COMSPRD
00216  M00S00192.1rm     +++|*CALL     COMSSSD
00217  M00S00193.1rm     +++|*CALL     COMSZOL
00218  M00S00194.1rm     +++|          LIST   X
00219  M00S00195.1rm     +++|*CALL     COMS1RM
00220  M00S00196.1rm     +++|          LIST   *
00221  M00S00197.1rm     +++|          TITLE  MACROS.
00222  M00S00198.1rm     +++| COMMAND  SPACE  4,10
00223  M00S00199.1rm     +++|**        COMMAND - SPECIFY LEGAL K-DISPLAY COMMANDS.
00224  M00S00200.1rm     +++|*
00225  M00S00201.1rm     +++|*         THE *TPAR* WORD INDICATES TO *CONFIG* WHICH K-DISPLAY
00226  M00S00202.1rm     +++|*         COMMANDS ARE LEGAL FOR *1RM* PROCESSING.  THIS
00227  M00S00203.1rm     +++|*         MACRO IS USED TO SET THE *TPAR* WORD TO THE LEGAL
00228  M00S00204.1rm     +++|*         COMMANDS.  WHEN *CONFIG* DETECTS A LEGAL COMMAND IT IS
00229  M00S00205.1rm     +++|*         PASSED TO *1RM* VIA WORD *TCOM* IN THE CALL BLOCK.
00230  M00S00206.1rm     +++|*         *1RM* CHECKS FOR COMMANDS WITH THE AID OF THE *IFCOM*
00231  M00S00207.1rm     +++|*         MACRO.
00232  M00S00208.1rm     +++|*
00233  M00S00209.1rm     +++|*         COMMAND  C
00234  M00S00210.1rm     +++|*                C = A LIST OF LEGAL COMMAND KEYWORDS.
00235  M00S00211.1rm     +++|
00236  M00S00212.1rm     +++|
00237  M00S00213.1rm     +++| COMMAND  MACRO  C
00238  M00S00214.1rm     +++|          MACREF COMMAND
00239  M00S00215.1rm     +++| .2       SET    0
00240  M00S00216.1rm     +++|          IRP    C

Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00217.1rm6    ---| .1       OCTMIC ._C-1

Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00001.1rm6    +++| .1       DECMIC ._C-1
00243  M00S00218.1rm     +++| .2       SET    .2+1BS".1"
00244  M00S00219.1rm     +++|          IRP
00245  M00S00220.1rm     +++|          IFGT   .2,77
00246  M00S00221.1rm     +++|          LDC    .2
00247  M00S00222.1rm     +++|          ELSE   1
00248  M00S00223.1rm     +++|          LDN    .2
00249  M00S00224.1rm     +++|          RJM    SLC
00250  M00S00225.1rm     +++|          ENDM
00251  M00S00226.1rm     +++| LDBUF    SPACE  4,10
00252  M00S00227.1rm     +++|**        LDBUF - LOAD ADDRESS OF CALL BUFFER WORD.
00253  M00S00228.1rm     +++|*
00254  M00S00229.1rm     +++|*         LDBUF  ADD
00255  M00S00230.1rm     +++|*                ADD = CALL BUFFER WORD INDEX.
00256  M00S00231.1rm     +++|
00257  M00S00232.1rm     +++|
00258  M00S00233.1rm     +++| LDBUF    MACRO  A
00259  M00S00234.1rm     +++|          MACREF LDBUF
00260  M00S00235.1rm     +++|          RJM    LDB
00261  M00S00236.1rm     +++|          IFNE   A,0,1
00262  M00S00237.1rm     +++|          ADN    A
00263  M00S00238.1rm     +++|          ENDM
00264  M00S00239.1rm     +++| IFCOM    SPACE  4,10
00265  M00S00240.1rm     +++|**        IFCOM - CHECK IF COMMAND ENTERED.
00266  M00S00241.1rm     +++|*
00267  M00S00242.1rm     +++|*         THIS MACRO CHECKS FOR A COMMAND PREVIOUSLY SPECIFIED
00268  M00S00243.1rm     +++|*         WITH THE COMMAND MACRO TO SEE IF IT HAS BEEN ENTERED
00269  M00S00244.1rm     +++|*         VIA THE K-DISPLAY.
00270  M00S00245.1rm     +++|*
00271  M00S00246.1rm     +++|*         IFCOM  C,TAG
00272  M00S00247.1rm     +++|*                C = COMMAND LIST TO BE CHECKED.
00273  M00S00248.1rm     +++|*                TAG = ADDRESS TO JUMP TO IF COMMAND ENTERED.
00274  M00S00249.1rm     +++|
00275  M00S00250.1rm     +++|
00276  M00S00251.1rm     +++| IFCOM    MACRO  C,TAG
00277  M00S00252.1rm     +++|          MACREF IFCOM
00278  M00S00253.1rm     +++| .2       SET    0
00279  M00S00254.1rm     +++|          IRP    C

Seq #  *Modification Id* Act 
----------------------------+
00280  M01S00255.1rm6    ---| .1       OCTMIC ._C-1

Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00002.1rm6    +++| .1       DECMIC ._C-1
00282  M00S00256.1rm     +++| .2       SET    .2+1BS".1"
00283  M00S00257.1rm     +++|          IRP
00284  M00S00258.1rm     +++|          IFGT   .2,77
00285  M00S00259.1rm     +++|          LDC    .2
00286  M00S00260.1rm     +++|          ELSE   1
00287  M00S00261.1rm     +++|          LDN    .2
00288  M00S00262.1rm     +++|          RJM    CLC
00289  M00S00263.1rm     +++|          IF     DEF,TAG
00290  M00S00264.1rm     +++|          IFLT   *-TAG,40
00291  M00S00265.1rm     +++|          NJN    TAG         IF TAG WITHIN RANGE
00292  M00S00266.1rm     +++|          ELSE   2
00293  M00S00267.1rm     +++|          ZJN    *+3         IF TAG OUT OF RANGE, REVERSE TEST LOGIC
00294  M00S00268.1rm     +++|          LJM    TAG         LONG JUMP TO TAG
00295  M00S00269.1rm     +++|          ENDM
00296  M00S00270.1rm     +++| MESG     SPACE  4,10
00297  M00S00271.1rm     +++|**        MESG - SEND MESSAGE TO K-DISPLAY.
00298  M00S00272.1rm     +++|*
00299  M00S00273.1rm     +++|*         MESG   ADD
00300  M00S00274.1rm     +++|*                ADD = ADDRESS OF K-DISPLAY MESSAGE.
00301  M00S00275.1rm     +++|
00302  M00S00276.1rm     +++|
00303  M00S00277.1rm     +++| MESG     MACRO  A
00304  M00S00278.1rm     +++|          MACREF MESG
00305  M00S00279.1rm     +++|          IFC    NE,=A=*=,1
00306  M00S00280.1rm     +++|          LDC    A
00307  M00S00281.1rm     +++|          RJM    KMS
00308  M00S00282.1rm     +++|          ENDM
00309  M00S00283.1rm     +++|          SPACE  4,10
00310  M00S00284.1rm     +++|****      DIRECT LOCATION ASSIGNMENTS.
00311  M00S00285.1rm     +++|
00312  M00S00286.1rm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00313  M01S00287.ns2483  ---|          LIST   G
00314  M00S00288.1rm     +++| BEGIN    BSSN   20
00315  M00S00289.1rm     +++| CN       BSSN   5           CM WORD BUFFER
00316  M00S00290.1rm     +++| CH       BSSN   1           CHANNEL CURRENTLY IN USE
00317  M00S00291.1rm     +++| DI       BSSN   1           DAT INDEX

Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00292.ns22000 ---| EQ       BSSN   1           EQUIPMENT NUMBER FOR RECONFIGURATION

Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00015.ns22000 +++| EQ       BSSN   1           EST ORDINAL FOR RECONFIGURATION
00320  M00S00293.1rm     +++| FN       BSSN   1           FUNCTION IN PROGRESS
00321  M00S00294.1rm     +++| GL       BSSN   1           DEVICE UNAVAILABLE FLAG
00322  M00S00295.1rm     +++| LU       BSSN   1           LOGICAL UNIT NUMBER OF CURRENT UNIT
00323  M00S00296.1rm     +++| LT       BSSN   1           LABEL TRACK FROM MST
00324  M00S00297.1rm     +++| MF       BSSN   1           MMF STATUS
00325  M00S00298.1rm     +++| MM       BSSN   1           MACHINE MASK FOR THIS MACHINE
00326  M00S00299.1rm     +++| MS       BSSN   1           MST ADDRESS/10B
00327  M00S00300.1rm     +++| NC       BSSN   1           FIRST OF SECOND CHANNEL FLAG
00328  M00S00301.1rm     +++| NU       BSSN   1           NUMBER OF UNITS FOR EQUIPMENT
00329  M00S00302.1rm     +++| PU       BSSN   1           PHYSICAL UNIT NUMBER OF CURRENT UNIT
00330  M00S00303.1rm     +++| RM       BSSN   1           *RD* DEVICE MST ADDRESS/10B
00331  M00S00304.1rm     +++| RU       BSSN   1           UNITS FOR RECONFIGURATION OR REPAIR
00332  M00S00305.1rm     +++| SC       BSSN   1           SUSPENDED DEVICE COUNT
00333  M00S00306.1rm     +++| SL       BSSN   1           SINGLE UNIT SECTOR LIMIT FOR EQUIPMENT
00334  M00S00307.1rm     +++| MX       BSSN   0           MAXIMUM DIRECT CELL
00335  M00S00308.1rm     +++| END      BSSN
00336  M00S00309.1rm     +++|          ERRPL  MX-50       DIRECT CELL OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
00337  M01S00310.ns2483  ---|          LIST   *
00338  M00S00311.1rm     +++|
00339  M00S00312.1rm     +++|
00340  M00S00313.1rm     +++|****
00341  M00S00314.1rm     +++|          TITLE  RDM - MAIN PROGRAM.
00342  M00S00315.1rm     +++|**        RDM - MAIN PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
00343  M01S00016.ns22000 +++|
00344  M00S00316.1rm     +++|
00345  M00S00317.1rm     +++|          ORG    PPFW
00346  M00S00318.1rm     +++| RDM      RJM    PRS         PRESET
00347  M00S00319.1rm     +++| RDM1     DELAY
00348  M00S00320.1rm     +++|          PAUSE
00349  M00S00321.1rm     +++|          LDBUF  RFNB        CHECK FOR FUNCTION REQUEST
00350  M00S00322.1rm     +++|          CRD    CN
00351  M00S00323.1rm     +++|          LDD    CM+1
00352  M00S00324.1rm     +++|          ZJN    RDM2        IF NO ERROR FLAG
00353  M00S00325.1rm     +++|          LDN    0
00354  M00S00326.1rm     +++|          LJM    RDM4        DROP PP
00355  M00S00327.1rm     +++|
00356  M00S00328.1rm     +++| RDM2     LDD    CN+4
00357  M00S00329.1rm     +++|          SHN    21
00358  M00S00330.1rm     +++|          PJN    RDM1        IF NO FUNCTION PRESENT
00359  M00S00331.1rm     +++|          STD    FN
00360  M00S00332.1rm     +++|          RJM    SEQ         SET EQUIPMENT PARAMETERS
00361  M00S00333.1rm     +++|          LDM    TFCN,FN
00362  M00S00334.1rm     +++|          STM    RDMA
00363  M00S00335.1rm     +++|          RJM    *           PROCESS REQUEST
00364  M00S00336.1rm     +++| RDMA     EQU    *-1
00365  M00S00337.1rm     +++|
00366  M00S00338.1rm     +++|*         RETURN FROM FUNCTION PROCESSOR.
00367  M00S00339.1rm     +++|*         IF A DEVICE SUSPEND REQUEST IS OUTSTANDING *1RM* MUST
00368  M00S00340.1rm     +++|*         REMAIN ASSIGNED UNTIL IT IS CLEARED.  IF *1RM* WERE
00369  M00S00341.1rm     +++|*         TO DROP OUT A DEADLOCK COULD BE CREATED BECAUSE OF
00370  M00S00342.1rm     +++|*         PP RESOURCES BEING TIED UP WAITING FOR THE SUSPENDED
00371  M00S00343.1rm     +++|*         DEVICE.
00372  M00S00344.1rm     +++|*
00373  M00S00345.1rm     +++|*         (A) = 0 IF COMMAND WAS NOT ABORTED.
00374  M00S00346.1rm     +++|*         (A) .NE. 0 IF *ABORT* WAS ENTERED.
00375  M00S00347.1rm     +++|
00376  M00S00348.1rm     +++|          ZJN    RDM3        IF COMMAND NOT ABORTED
00377  M00S00349.1rm     +++|          MESG   RDMB        *COMMAND ABORTED*
00378  M00S00350.1rm     +++| RDM3     RJM    RRD         RESET *RD* DEVICE
00379  M00S00351.1rm     +++|          LDBUF  RFNB        READ FUNCTION WORD
00380  M00S00352.1rm     +++|          CRD    CN
00381  M00S00353.1rm     +++|          LDD    SC          CHECK FOR SUSPENDED DEVICES
00382  M00S00354.1rm     +++|          ZJN    RDM4        IF NO DEVICE SUSPENDED - DROP PP
00383  M00S00355.1rm     +++|          LDD    CN+4
00384  M00S00356.1rm     +++|          SCN    1
00385  M00S00357.1rm     +++| RDM4     STD    CN+4
00386  M00S00358.1rm     +++|          LDBUF  RFNB
00387  M00S00359.1rm     +++|          CWD    CN
00388  M00S00360.1rm     +++|          LDD    CN+4
00389  M00S00361.1rm     +++|          ZJN    RDM5        IF DROP OF PP
00390  M00S00362.1rm     +++|          LJM    RDM1        CHECK FOR NEXT FUNCTION
00391  M00S00363.1rm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00392  M01S00364.242l642 ---| RDM5     MONITOR  DPPM

Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00003.1rm5    ---| RDM5     LDK    ZERL        RESTART JOBS WAITING ON THIS DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00394  M01S00001.1rm5    +++| RDM5     RJM    CSP         CLEAR EQUIPMENT ASSIGNMENT
00395  M01S00002.1rm5    +++|          LDK    ZERL        RESTART JOBS WAITING ON DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00396  M01S00004.242l642 +++|          CRD    CM
00397  M01S00005.242l642 +++|          LDD    EQ          EST ORDINAL
00398  M01S00006.242l642 +++|          STD    CM+3
00399  M01S00007.242l642 +++|*         LDN    0           *WISE* SUBFUNCTION
00400  M01S00008.242l642 +++|*         STD    CM+4
00401  M01S00009.242l642 +++|          ERRNZ  WISE        ADJUST CODE IF VALUE CHANGES
00402  M01S00010.242l642 +++|          MONITOR  EATM
00403  M01S00011.242l642 +++|          MONITOR  DPPM
00404  M00S00365.1rm     +++|          LJM    PPR         EXIT
00405  M00S00366.1rm     +++|
00406  M00S00367.1rm     +++| RDMB     DATA   C*COMMAND ABORTED.*
00407  M00S00368.1rm     +++|          SPACE  4,10
00408  M00S00369.1rm     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
00409  M00S00370.1rm     +++|*
00410  M00S00371.1rm     +++|*         ENTRY = 1 WORD INDEXED BY FUNCTION CODE.
00411  M00S00372.1rm     +++|*
00412  M00S00373.1rm     +++|*T        12/ ADDR

Figure

00413  M00S00374.1rm     +++|*                ADDR = ADDRESS OF FUNCTION PROCESSOR.
00414  M00S00375.1rm     +++|
00415  M00S00376.1rm     +++|
00416  M00S00377.1rm     +++| TFCN     INDEX              TABLE OF FUNCTION CODE PROCESSORS

Seq #  *Modification Id* Act 
----------------------------+
00417  M01S00378.v23l617 ---|          INDEX  RUMF,UMT    UPDATE MST-S FROM ECS

Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00003.v23l617 +++|          INDEX  RUMF,UMT    UPDATE MST-S FROM EXTENDED MEMORY
00419  M00S00379.1rm     +++|          INDEX  RCLF,CLR    CLEAR IDLE AND SUSPEND REQUESTS
00420  M00S00380.1rm     +++|          INDEX  RCDF,CDI    CLEAR DAT INTERLOCK
00421  M00S00381.1rm     +++|          INDEX  RDDF,RDD    REDEFINE DEVICE
00422  M00S00382.1rm     +++|          INDEX  RSPF,SPD    SUSPEND DEVICE ACTIVITY
00423  M00S00383.1rm     +++|          INDEX  RMXF
00424  M00S00384.1rm     +++| CDI      TITLE  CLEAR *DATI* INTERLOCK.
00425  M00S00385.1rm     +++|**        CDI - CLEAR *DATI* INTERLOCK.  (FUNCTION RCDF).
00426  M00S00386.1rm     +++|*
00427  M00S00387.1rm     +++|*         ENTRY  (MF) = MULTI-MAINFRAME LINK DEVICE.
00428  M00S00388.1rm     +++|*
00429  M00S00389.1rm     +++|*         USES   CN - CN+4.
00430  M00S00390.1rm     +++|*
00431  M00S00391.1rm     +++|*         CALLS  IFR.
00432  M00S00392.1rm     +++|
00433  M00S00393.1rm     +++|
00434  M00S00394.1rm     +++| CDI      SUBR               ENTRY/EXIT
00435  M00S00395.1rm     +++|          LDD    MF          CHECK FOR MULTI-MAINFRAME
00436  M00S00396.1rm     +++|          ZJN    CDIX        IF NOT MMF
00437  M00S00397.1rm     +++|          LDC    MMFL        READ *DATI* INTERLOCK INDICATION
00438  M00S00398.1rm     +++|          CRD    CN
00439  M00S00399.1rm     +++|          LDD    CN+2
00440  M00S00400.1rm     +++|          ZJN    CDIX        IF INTERLOCK NOT SET
00441  M00S00401.1rm     +++|          LCN    DATI
00442  M00S00402.1rm     +++|          RJM    IFR         CLEAR *DATI* FLAG REGISTER INTERLOCK
00443  M00S00403.1rm     +++|          LDN    0           CLEAR INTERLOCK INDICATOR
00444  M00S00404.1rm     +++|          STD    CN+2
00445  M00S00405.1rm     +++|          LDC    MMFL
00446  M00S00406.1rm     +++|          CWD    CN
00447  M00S00407.1rm     +++|          LDN    0
00448  M00S00408.1rm     +++|          UJN    CDIX        RETURN
00449  M00S00409.1rm     +++|          TITLE  CLR - CLEAR IDLE AND SUSPEND REQUEST.
00450  M00S00410.1rm     +++|**        CLR - CLEAR IDLE AND SUSPEND REQUEST.  (FUNCTION RCLF).
00451  M00S00411.1rm     +++|*
00452  M00S00412.1rm     +++|*         CLEAR THE IDLE AND SUSPEND REQUESTED BIT FOR THE SPECIFIED
00453  M00S00413.1rm     +++|*         EQUIPMENT.
00454  M00S00414.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00415.ns22000 ---|*         ENTRY  (EQ) = EQUIPMENT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00017.ns22000 +++|*         ENTRY  (EQ) = EST ORDINAL.
00457  M00S00416.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00458  M01S00417.242l642 ---|*         EXIT   (A) .NE. 0 IF OPERATION ABORTED.

Seq #  *Modification Id* Act 
----------------------------+
00459  M01S00012.242l642 +++|*         EXIT   (A) .NE. 0 IF THE OPERATION WAS ABORTED OR AN ERROR
00460  M01S00013.242l642 +++|*                           FLAG IS SET AT THE CONTROL POINT.
00461  M00S00418.1rm     +++|*
00462  M00S00419.1rm     +++|*         USES   LU, NC, T5, T7, CM - CM+4, CN - CN+4.
00463  M00S00420.1rm     +++|*
00464  M00S00421.1rm     +++|*         CALLS  CAS, CDI, CDP, CSP, MSV, PUE, SCF, SDI, SNC, VLB, WAM.
00465  M00S00422.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00466  M01S00423.ns22000 ---|*         MACROS CMSTF, LDBUF, MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
00467  M01S00018.ns22000 +++|*         MACROS CMSTF, LDBUF, MONITOR, SFA.
00468  M00S00424.1rm     +++|
00469  M00S00425.1rm     +++|
00470  M00S00426.1rm     +++| CLR      SUBR               ENTRY
00471  M00S00427.1rm     +++|          LDD    GL
00472  M00S00428.1rm     +++|          ZJN    CLR1        IF DEVICE AVAILABLE
00473  M00S00429.1rm     +++|          LJM    CLR6        CLEAR SUSPEND AND IDLE STATUS
00474  M00S00430.1rm     +++|
00475  M00S00431.1rm     +++| CLR1     LDN    MSTL        SET MST WORD COUNT
00476  M00S00432.1rm     +++|          STD    T7
00477  M00S00433.1rm     +++|          LDBUF  ESTD        READ EST ENTRY
00478  M00S00434.1rm     +++|          CRD    CN
00479  M00S00435.1rm     +++|          ADN    MSTD-ESTD   READ MST
00480  M00S00436.1rm     +++|          CRM    BFMS,T7
00481  M00S00437.1rm     +++|          RJM    SCF         SET COMMON FIELDS IN *RD* DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00482  M01S00014.242l642 +++|          NJN    CLRX        IF ERROR FLAG SET AT CP
00483  M00S00438.1rm     +++|
00484  M00S00439.1rm     +++|*         VERIFY FUNCTIONAL AND LOGICAL INTEGRITY OF EQUIPMENT.
00485  M00S00440.1rm     +++|
00486  M00S00441.1rm     +++| CLR2     LDN    1           SET FIRST CHANNEL
00487  M00S00442.1rm     +++|          STD    NC
00488  M00S00443.1rm     +++| CLR3     RJM    SNC         SET *NC* CHANNEL
00489  M00S00444.1rm     +++|          NJN    CLR5        IF CHANNEL NOT AVAILABLE
00490  M00S00445.1rm     +++|          RJM    VLB         VERIFY LABEL SECTOR
00491  M00S00446.1rm     +++|          NJN    CLR7        IF *ABORT*
00492  M00S00447.1rm     +++| CLR4     RJM    MSV         MASS STORAGE VERIFICATION
00493  M00S00448.1rm     +++|          ZJN    CLR5        IF VERIFY GOOD
00494  M00S00449.1rm     +++|          LDC    CLRA        * UNIT XX, CHYY WRITE/READ VERIFY ERROR.*
00495  M00S00450.1rm     +++|          RJM    PUE         PROCESS UNIT ERROR
00496  M00S00451.1rm     +++|          MJN    CLR4        IF *RECHECK*
00497  M00S00452.1rm     +++|          NJN    CLR7        IF *ABORT*
00498  M00S00453.1rm     +++| CLR5     SOD    NC
00499  M00S00454.1rm     +++|          PJN    CLR3        IF MORE CHANNELS TO PROCESS
00500  M00S00455.1rm     +++|
00501  M00S00456.1rm     +++|*         ADVANCE TO NEXT UNIT.
00502  M00S00457.1rm     +++|
00503  M00S00458.1rm     +++|          AOD    LU
00504  M00S00459.1rm     +++|          LDD    SL
00505  M00S00460.1rm     +++|          RAD    T7
00506  M00S00461.1rm     +++|          SBM    SLM
00507  M00S00462.1rm     +++|          MJN    CLR2        IF MORE UNITS TO PROCESS
00508  M00S00463.1rm     +++|
00509  M00S00464.1rm     +++|*         CLEAR SUSPEND AND IDLE STATUS.
00510  M00S00465.1rm     +++|
00511  M00S00466.1rm     +++| CLR6     RJM    SDI         SET DAT INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
00512  M01S00467.242l642 ---| CLR7     NJN    CLR8.1      IF *ABORT*

Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00015.242l642 +++| CLR7     NJN    CLR9        IF *ABORT*
00514  M00S00468.1rm     +++|          RJM    CSP         CLEAR SUSPEND STATUS
00515  M00S00469.1rm     +++|          RJM    CAS         CHECK ALL SUSPENDS CLEARED
00516  M00S00470.1rm     +++|          NJN    CLR8        IF SUSPEND SET FOR OTHER MACHINES
00517  M00S00471.1rm     +++|          LDD    EQ
00518  M00S00472.1rm     +++|          STD    T5
00519  M00S00473.1rm     +++|          CMSTF  GRDR        CLEAR REDEFINITION REQUESTED
00520  M00S00474.1rm     +++| CLR8     RJM    CDI         CLEAR DAT INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
00521  M01S00475.242l642 ---|          LDC    MJNI+WAM4-WAMB  USE CORRECT CONDITIONAL JUMP

Seq #  *Modification Id* Act 
----------------------------+
00522  M01S00016.242l642 +++|          LDC    ZJNI+WAM4-WAMB   USE CORRECT CONDITIONAL JUMP
00523  M00S00476.1rm     +++|          RJM    WAM         ENSURE SYNCHRONIZATION OF PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00477.242l642 ---| CLR8.1   NJN    CLR9        IF *ABORT*

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00478.242l642 ---|          LDD    EQ
00526  M02S00479.242l642 ---|          ADM    ESTS

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00019.242l642 ---|          SFA    EST,EQ      READ EST ENTRY
00528  M02S00020.242l642 ---|          ADK    EQDE

Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00480.242l642 ---|          CRD    CM
00530  M01S00481.242l642 ---|          LDD    CM
00531  M01S00482.242l642 ---|          LPC    2000
00532  M01S00483.242l642 ---|          ZJN    CLR8.2      IF NOT SYSTEM DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00484.242l642 ---|          LDD    EQ          SET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00021.242l642 ---|          LDD    EQ          SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
00535  M01S00485.242l642 ---|          STD    CM+1
00536  M01S00486.242l642 ---|          LDN    SSDS        RESTORE SYSTEM DEVICE TO LIST
00537  M01S00487.242l642 ---|          STD    CM+2
00538  M01S00488.242l642 ---|          MONITOR  SEQM
00539  M01S00489.242l642 ---| CLR8.2   RJM    CDP         COMPLETE DEVICE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
00540  M01S00017.242l642 +++|          NJN    CLR9        IF *ABORT*
00541  M01S00018.242l642 +++|          RJM    CDP         COMPLETE DEVICE PROCESSING
00542  M00S00490.1rm     +++|          LDN    0
00543  M00S00491.1rm     +++| CLR9     LJM    CLRX        RETURN
00544  M00S00492.1rm     +++|
00545  M00S00493.1rm     +++| CLRA     DATA   C* UNIT XX, CHYY WRITE/READ VERIFY ERROR.*
00546  M00S00494.1rm     +++| RDD      TITLE  REDEFINE UNITS FUNCTION PROCESSOR.
00547  M00S00495.1rm     +++|**        RDD - REDEFINE UNITS.  (FUNCTION RDDF).
00548  M00S00496.1rm     +++|*
00549  M00S00497.1rm     +++|*         REDEFINE AN EQUIPMENT BY CHANGING THE UNITS AND OPTIONALLY
00550  M00S00498.1rm     +++|*         THE CHANNELS.  THE CHANGE MAY INVOLVE PHYSICALLY MOVING
00551  M00S00499.1rm     +++|*         PACKS OR HDAS IN WHICH CASE THE PROCESS IS GUIDED BY
00552  M00S00500.1rm     +++|*         MESSAGES WHICH APPEAR ON THE *K* DISPLAY AND AT THE USER-S
00553  M00S00501.1rm     +++|*         CONTROL POINT.
00554  M00S00502.1rm     +++|*
00555  M00S00503.1rm     +++|*         ENTRY  (FG) = FLAGS.
00556  M00S00504.1rm     +++|*                       1 = SPIN DOWN UNITS BEING CHANGED.
00557  M00S00505.1rm     +++|*                       2 = VERIFY LABELS ON NEW CONFIGURATION.
00558  M00S00506.1rm     +++|*
00559  M00S00507.1rm     +++|*         EXIT   (A) .NE. 0 IF OPERATION ABORTED.
00560  M00S00508.1rm     +++|*
00561  M00S00509.1rm     +++|*         USES   CM - CM+4, CN - CN+4.
00562  M00S00510.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00563  M01S00511.1rm1    ---|*         CALLS  CLR, SCH, SDU, SPD, SUU, ULD.

Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00004.1rm1    +++|*         CALLS  CLR, GCI, SCH, SDU, SPD, SUU, ULD.
00565  M00S00512.1rm     +++|*
00566  M00S00513.1rm     +++|*         MACROS LDBUF.
00567  M00S00514.1rm     +++|
00568  M00S00515.1rm     +++|
00569  M00S00516.1rm     +++| RDD      SUBR               ENTRY/EXIT
00570  M00S00517.1rm     +++|          LDD    RU
00571  M00S00518.1rm     +++|          ZJN    RDD1        IF NO CHANGE OF UNITS
00572  M00S00519.1rm     +++|          RJM    SPD         SUSPEND DEVICE USAGE
00573  M00S00520.1rm     +++|          NJN    RDDX        IF REDEFINITION ABORTED
00574  M00S00521.1rm     +++|          LDD    GL
00575  M00S00522.1rm     +++|          NJN    RDD1        IF DEVICE UNAVAILABLE
00576  M00S00523.1rm     +++|          RJM    SDU         SPIN DOWN CHANGED UNITS

Seq #  *Modification Id* Act 
----------------------------+
00577  M01S00524.242l642 ---|          NJN    RDDX        IF *ABORT*

Seq #  *Modification Id* Act 
----------------------------+
00578  M01S00019.242l642 +++|          NJN    RDDX        IF *ABORT* OR ERROR FLAG SET
00579  M00S00525.1rm     +++|          RJM    SUU         SPIN UP UNITS

Seq #  *Modification Id* Act 
----------------------------+
00580  M01S00526.242l642 ---|          NJN    RDDX        IF *ABORT*

Seq #  *Modification Id* Act 
----------------------------+
00581  M01S00020.242l642 +++|          NJN    RDDX        IF *ABORT* OR ERROR FLAG SET
00582  M00S00527.1rm     +++|
00583  M00S00528.1rm     +++|*         SET NEW CONFIGURATION IN MST.
00584  M00S00529.1rm     +++|
00585  M00S00530.1rm     +++| RDD1     LDBUF  ESTD        SET NEW CHANNELS
00586  M00S00531.1rm     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00532.252l678 ---|          LDD    EQ
00588  M01S00533.252l678 ---|          SHN    14
00589  M01S00534.252l678 ---|          LMD    CN+1
00590  M01S00535.252l678 ---|          RJM    SCH         SET CHANNELS

Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00536.252l678 ---|          LDD    MS          READ CURRENT CONFIGURATION
00592  M02S00537.252l678 ---|          SHN    3
00593  M02S00538.252l678 ---|          ADN    DDLL

Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00005.252l678 ---|          LDD    CN+1        SET NEW CHANNELS IN MST

Seq #  *Modification Id* Act 
----------------------------+
00595  M01S00001.252l678 +++|          LDD    CN+1        SET NEW CHANNELS IN EST

Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00006.1rm1    +++|          RJM    GCI
00597  M01S00007.1rm1    +++|          ZJN    RDD2        IF FULL-TRACK CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00008.252l678 ---|          LDN    0
00599  M02S00009.252l678 ---|          UJN    RDD3        DO NOT SET FULL-TRACK FLAG
00600  M02S00010.252l678 ---|
00601  M02S00011.252l678 ---| RDD2     LDN    40          SET FULL-TRACK FLAG
00602  M02S00012.252l678 ---| RDD3     LMD    T2
00603  M02S00013.252l678 ---|          STD    CN          SAVE FIRST CHANNEL
00604  M02S00014.252l678 ---|          LDD    CN+1        PROCESS SECOND CHANNEL
00605  M02S00015.252l678 ---|          SHN    -6
00606  M02S00016.252l678 ---|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
00607  M01S00002.252l678 +++|          LDD    CN+1        SET HALF-TRACK FLAG
00608  M01S00003.252l678 +++|          LPC    7377
00609  M01S00004.252l678 +++|          LMC    400
00610  M01S00005.252l678 +++|          STD    CN+1
00611  M01S00006.252l678 +++| RDD2     LDD    CN+2        PROCESS SECOND CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
00612  M01S00017.1rm1    +++|          ZJN    RDD5        IF NO SECOND CHANNEL
00613  M01S00018.1rm1    +++|          RJM    GCI

Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00019.252l678 ---|          ZJN    RDD4        IF FULL-TRACK CHANNEL
00615  M02S00020.252l678 ---|          LDN    0
00616  M02S00021.252l678 ---|          UJN    RDD5        DO NOT SET FULL-TRACK CHANNEL
00617  M02S00022.252l678 ---|
00618  M02S00023.252l678 ---| RDD4     LDN    40          SET FULL-TRACK FLAG
00619  M02S00024.252l678 ---| RDD5     LMD    T2
00620  M02S00025.252l678 ---|          SHN    6
00621  M02S00026.252l678 ---|          RAD    CN          MERGE WITH FIRST CHANNEL
00622  M02S00027.252l678 ---|          LDD    MS
00623  M02S00028.252l678 ---|          SHN    3
00624  M02S00029.252l678 ---|          ADN    DILL
00625  M02S00030.252l678 ---|          CRD    CM
00626  M02S00031.252l678 ---|          LDD    CN          SET NEW CHANNELS IN MST
00627  M02S00032.252l678 ---|          STD    CM+1
00628  M02S00033.252l678 ---|          LDD    MS          REWRITE *DILL*
00629  M02S00034.252l678 ---|          SHN    3
00630  M02S00035.252l678 ---|          ADN    DILL
00631  M02S00036.252l678 ---|          CWD    CM
00632  M02S00037.252l678 ---|          ADN    DDLL-DILL

Seq #  *Modification Id* Act 
----------------------------+
00633  M01S00539.252l678 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
00634  M01S00007.252l678 +++|          ZJN    RDD5        IF FULL-TRACK CHANNEL
00635  M01S00008.252l678 +++|          LDD    CN+2        SET HALF-TRACK FLAG
00636  M01S00009.252l678 +++|          LPC    7377
00637  M01S00010.252l678 +++|          LMC    400
00638  M01S00011.252l678 +++|          STD    CN+2
00639  M01S00012.252l678 +++| RDD5     LDD    EQ          SET CHANNELS IN EST
00640  M01S00013.252l678 +++|          RJM    SCH
00641  M00S00540.1rm     +++|          LDBUF  MSTD+DDLL   SET NEW UNIT LIST
00642  M00S00541.1rm     +++|          CRD    CN
00643  M00S00542.1rm     +++|          LDD    CN
00644  M00S00543.1rm     +++|          LPC    3777
00645  M00S00544.1rm     +++|          STD    CN

Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00545.242l642 ---|          LDD    CM          PROPAGATE SUSPEND STATUS
00647  M01S00546.242l642 ---|          LPC    4000
00648  M01S00547.242l642 ---|          RAD    CN
00649  M00S00548.1rm     +++|          LDD    MS
00650  M00S00549.1rm     +++|          SHN    3
00651  M00S00550.1rm     +++|          ADN    DDLL
00652  M00S00551.1rm     +++|          CWD    CN
00653  M00S00552.1rm     +++|          RJM    ULD         UPDATE LINKED DEVICES MST-S
00654  M00S00553.1rm     +++|          RJM    CLR         CLEAR SUSPEND AND IDLE AFTER VALIDATION
00655  M00S00554.1rm     +++|          LJM    RDDX        RETURN
00656  M00S00555.1rm     +++| SPD      TITLE  SUSPEND PROCESSING ON DEVICE.
00657  M00S00556.1rm     +++|**        SPD - SUSPEND PROCESSING ON DEVICE.  (FUNCTION RSPF).
00658  M00S00557.1rm     +++|*
00659  M00S00558.1rm     +++|*         THIS FUNCTION SUSPENDS PROCESSING ON A DEVICE SO THAT
00660  M00S00559.1rm     +++|*         REPAIR OPERATIONS CAN BE EFFECTED.  ALSO A DEVICE MAY
00661  M00S00560.1rm     +++|*         BE SUSPENDED SO THAT A UNIT IN ITS CONFIGURATION MAY
00662  M00S00561.1rm     +++|*         BE ADDED TO ANOTHER EQUIPMENT.
00663  M00S00562.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00664  M01S00563.242l642 ---|*         EXIT   (A) .NE. 0 IF OPERATION ABORTED.

Seq #  *Modification Id* Act 
----------------------------+
00665  M01S00021.242l642 +++|*         EXIT   (A) .NE. 0 IF THE OPERATION WAS ABORTED OR AN ERROR
00666  M01S00022.242l642 +++|*                           FLAG IS SET AT THE CONTROL POINT.
00667  M00S00564.1rm     +++|*                (SC) UPDATED TO INDICATE NEW SUSPEND COUNT.
00668  M00S00565.1rm     +++|*
00669  M00S00566.1rm     +++|*         USES   CM - CM+4.
00670  M00S00567.1rm     +++|*
00671  M00S00568.1rm     +++|*         CALLS  CDI, SDI, SSP, WAM.
00672  M00S00569.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00673  M01S00570.ns22000 ---|*         MACROS MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
00674  M01S00022.ns22000 +++|*         MACROS MONITOR, SFA.
00675  M00S00571.1rm     +++|
00676  M00S00572.1rm     +++|
00677  M00S00573.1rm     +++| SPD      SUBR               ENTRY/EXIT
00678  M00S00574.1rm     +++|
00679  M00S00575.1rm     +++|*         THE *DATI* INTERLOCK IS HELD WHILE SETTING THE SUSPEND
00680  M00S00576.1rm     +++|*         STATUS ON A DEVICE.  SUSPEND STATUS REQUIRES THAT IDLE
00681  M00S00577.1rm     +++|*         BE SET ON THE DEVICE.  THE *DATI* INTERLOCK CONTROLS THE
00682  M00S00578.1rm     +++|*         CLEARING OF SUSPEND.  WHEN THE LAST MACHINE CLEARS IT-S
00683  M00S00579.1rm     +++|*         SUSPEND STATUS IT ALSO CLEARS DEVICE IDLE.  THUS WHEN
00684  M00S00580.1rm     +++|*         CHECKING TO ENSURE IDLE IS SET SO THAT SUSPEND MAY THEN BE
00685  M00S00581.1rm     +++|*         SET, THE *DATI* INTERLOCK IS HELD TO ENSURE THAT ANOTHER
00686  M00S00582.1rm     +++|*         MACHINE IS NOT CLEARING IDLE AT THE SAME TIME.
00687  M00S00583.1rm     +++|
00688  M00S00584.1rm     +++|          RJM    SDI         SET *DATI* INTERLOCK
00689  M00S00585.1rm     +++|          NJN    SPDX        IF SUSPEND ABORTED
00690  M00S00586.1rm     +++|
00691  M00S00587.1rm     +++|*         CHECK THAT THE DEVICE IDLE STATUS HAS NOT BEEN CLEARED
00692  M00S00588.1rm     +++|*         BY ANOTHER MACHINE.
00693  M00S00589.1rm     +++|
00694  M00S00590.1rm     +++|          LDD    EQ          OBTAIN UP-TO-DATE MST IN CM
00695  M00S00591.1rm     +++|          STD    CM+1
00696  M00S00592.1rm     +++|          LDN    UTRS
00697  M00S00593.1rm     +++|          STD    CM+3
00698  M00S00594.1rm     +++|          MONITOR  STBM

Seq #  *Modification Id* Act 
----------------------------+
00699  M01S00595.ns22000 ---|          LDD    EQ          READ *ACGL* OF MST
00700  M01S00596.ns22000 ---|          ADM    ESTS

Seq #  *Modification Id* Act 
----------------------------+
00701  M01S00023.ns22000 +++|          SFA    EST,EQ      READ *ACGL* WORD OF MST
00702  M01S00024.ns22000 +++|          ADK    EQDE
00703  M00S00597.1rm     +++|          CRD    CM
00704  M00S00598.1rm     +++|          LDD    CM+4
00705  M00S00599.1rm     +++|          SHN    3
00706  M00S00600.1rm     +++|          ADN    ACGL
00707  M00S00601.1rm     +++|          CRD    CM
00708  M00S00602.1rm     +++|          LDD    CM+4        CHECK REDEFINITION REQUESTED BIT
00709  M00S00603.1rm     +++|          SHN    21-GRDR
00710  M00S00604.1rm     +++|          PJN    SPD1        IF IDLE NOT SET
00711  M00S00605.1rm     +++|          RJM    SSP         SET SUSPEND STATUS
00712  M00S00606.1rm     +++| SPD1     RJM    CDI         CLEAR *DATI* INTERLOCK
00713  M00S00607.1rm     +++|
00714  M00S00608.1rm     +++|*         IN ORDER TO ENSURE ALL MACHINES ARE SYNCHRONIZED IN
00715  M00S00609.1rm     +++|*         THEIR PROCESSING OF A DEVICE THE FOLLOWING CODE WAITS
00716  M00S00610.1rm     +++|*         FOR ANY OTHER MACHINES SHARING THE DEVICE TO SUSPEND
00717  M00S00611.1rm     +++|*         ACTIVITY.
00718  M00S00612.1rm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00719  M01S00613.242l642 ---|          LDC    PJNI+WAM4-WAMB  USE CORRECT CONDITIONAL JUMP

Seq #  *Modification Id* Act 
----------------------------+
00720  M01S00023.242l642 +++|          LDC    NJNI+WAM4-WAMB  USE CORRECT CONDITIONAL JUMP
00721  M00S00614.1rm     +++|          RJM    WAM         WAIT FOR ALL MACHINES
00722  M00S00615.1rm     +++|          NJN    SPD2        IF *ABORT*

Seq #  *Modification Id* Act 
----------------------------+
00723  M01S00616.ns22000 ---|          LDD    EQ
00724  M01S00617.ns22000 ---|          ADM    ESTS

Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00025.242l642 ---|          SFA    EST,EQ      CHECK FOR SYSTEM DEVICE
00726  M02S00026.242l642 ---|          ADK    EQDE

Seq #  *Modification Id* Act 
----------------------------+
00727  M01S00618.242l642 ---|          CRD    CM
00728  M01S00619.242l642 ---|          LDD    CM
00729  M01S00620.242l642 ---|          LPC    2000
00730  M01S00621.242l642 ---|          ZJN    SPD2        IF NOT SYSTEM DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00622.242l642 ---|          LDD    EQ          SET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00027.242l642 ---|          LDD    EQ          SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
00733  M01S00623.242l642 ---|          STD    CM+1
00734  M01S00624.242l642 ---|          LDN    SSDS        REMOVE SYSTEM DEVICE FROM LIST
00735  M01S00625.242l642 ---|          STD    CM+2
00736  M01S00626.242l642 ---|          MONITOR  SEQM
00737  M01S00627.242l642 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
00738  M01S00024.242l642 +++|*         LDN    0           INDICATE NO ABORT
00739  M00S00628.1rm     +++| SPD2     LJM    SPDX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00629.v23l617 ---|          TITLE  UMT - UPDATE SHARED DEVICE MST FROM ECS.

Seq #  *Modification Id* Act 
----------------------------+
00741  M01S00004.v23l617 +++|          TITLE  UMT - UPDATE SHARED DEVICE MST FROM EXTENDED MEMORY.
00742  M00S00630.1rm     +++|**        UMT - UPDATE SHARED DEVICE MST FROM ECS.  (FUNCTION RUMF).
00743  M00S00631.1rm     +++|*
00744  M00S00632.1rm     +++|*         ENTRY  NO CALL BLOCK PARAMETERS NEEDED.
00745  M00S00633.1rm     +++|*
00746  M00S00634.1rm     +++|*         EXIT   MST-S FOR ALL SHARED DEVICES UPDATED FROM ECS.
00747  M00S00635.1rm     +++|*
00748  M00S00636.1rm     +++|*         USES   CM - CM+4, CN - CN+4.
00749  M00S00637.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00750  M01S00638.ns22000 ---|*         MACROS MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00028.ns22000 +++|*         MACROS MONITOR, SFA.
00752  M00S00639.1rm     +++|
00753  M00S00640.1rm     +++|
00754  M00S00641.1rm     +++| UMT      SUBR               ENTRY/EXIT
00755  M00S00642.1rm     +++|          LDD    MF
00756  M00S00643.1rm     +++|          ZJN    UMTX        IF NOT MULTI-MAINFRAME
00757  M00S00644.1rm     +++|          LDN    ESTP        INITIALIZE EST SEARCH
00758  M00S00645.1rm     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
00759  M01S00646.ns22000 ---| UMT1     AOD    CN          READ EST

Seq #  *Modification Id* Act 
----------------------------+
00760  M01S00029.ns22000 +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00761  M01S00030.ns22000 +++|          STD    CN
00762  M01S00031.ns22000 +++| UMT1     AOD    CN          ADVANCE EST ORDINAL
00763  M01S00032.ns22000 +++|          LMD    CN+3
00764  M01S00033.ns22000 +++|          ZJN    UMTX        IF END OF EQUIPMENTS
00765  M01S00034.ns22000 +++|          SFA    EST,CN      READ EST ENTRY
00766  M01S00035.ns22000 +++|          ADK    EQDE
00767  M00S00647.1rm     +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
00768  M01S00648.ns22000 ---|          LMD    CN+2
00769  M01S00649.ns22000 ---|          ZJN    UMTX        IF END OF EQUIPMENTS
00770  M00S00650.1rm     +++|          LDD    CM
00771  M00S00651.1rm     +++|          SHN    21-13
00772  M00S00652.1rm     +++|          PJN    UMT1        IF NOT MASS STORAGE
00773  M00S00653.1rm     +++|          SHN    21-11-21+13
00774  M00S00654.1rm     +++|          PJN    UMT1        IF NOT SHARED DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00775  M01S00655.v23l617 ---|          LDD    CN          UPDATE MST FROM ECS

Seq #  *Modification Id* Act 
----------------------------+
00776  M01S00005.v23l617 +++|          LDD    CN          UPDATE MST FROM EXTENDED MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00656.ns22000 ---|          SBM    ESTS
00778  M00S00657.1rm     +++|          STD    CM+1
00779  M00S00658.1rm     +++|          LDN    UTRS
00780  M00S00659.1rm     +++|          STD    CM+3
00781  M00S00660.1rm     +++|          MONITOR  STBM
00782  M00S00661.1rm     +++|          UJN    UMT1        NEXT EQUIPMENT
00783  M00S00662.1rm     +++| CAS      TITLE  SUBROUTINES.
00784  M00S00663.1rm     +++| CAS      SPACE  4,10
00785  M00S00664.1rm     +++|**        CAS - CHECK ALL SUSPENDS CLEARED.
00786  M00S00665.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00787  M01S00666.ns22000 ---|*         ENTRY  (EQ) = EQUIPMENT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
00788  M01S00036.ns22000 +++|*         ENTRY  (EQ) = EST ORDINAL.
00789  M00S00667.1rm     +++|*                (DI) = DAT INDEX.
00790  M00S00668.1rm     +++|*
00791  M00S00669.1rm     +++|*         EXIT   (A) = 0 IF SUSPEND CLEARED FOR ALL OTHER MACHINES.
00792  M00S00670.1rm     +++|*
00793  M00S00671.1rm     +++|*         USES   T1 - T3.
00794  M00S00672.1rm     +++|*
00795  M00S00673.1rm     +++|*         CALLS  RDE.

Seq #  *Modification Id* Act 
----------------------------+
00796  M01S00037.ns22000 +++|*
00797  M01S00038.ns22000 +++|*         MACROS SFA.
00798  M00S00674.1rm     +++|
00799  M00S00675.1rm     +++|
00800  M00S00676.1rm     +++| CAS      SUBR               ENTRY/EXIT
00801  M00S00677.1rm     +++|          LDD    MF
00802  M00S00678.1rm     +++|          ZJN    CASX        IF NOT MMF

Seq #  *Modification Id* Act 
----------------------------+
00803  M01S00679.ns22000 ---|          LDD    EQ          TEST FOR SHARED DEVICE
00804  M01S00680.ns22000 ---|          ADM    ESTS

Seq #  *Modification Id* Act 
----------------------------+
00805  M01S00039.ns22000 +++|          SFA    EST,EQ      TEST FOR SHARED DEVICE
00806  M01S00040.ns22000 +++|          ADK    EQDE
00807  M00S00681.1rm     +++|          CRD    CM
00808  M00S00682.1rm     +++|          LDD    CM
00809  M00S00683.1rm     +++|          LPC    1000
00810  M00S00684.1rm     +++|          ZJN    CASX        IF DEVICE NOT SHARED
00811  M00S00685.1rm     +++|          RJM    RDE         READ DAT ENTRY FOR DEVICE
00812  M00S00686.1rm     +++|          NJN    CASX        IF *ABORT*

Seq #  *Modification Id* Act 
----------------------------+
00813  M01S00687.242l642 ---|          LDC    BFMS+2+DDLL*5

Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00025.242l642 +++|          LDC    BFMS+2+DALL*5
00815  M00S00688.1rm     +++|          STD    T1
00816  M00S00689.1rm     +++|          LDN    1           PRESET SEARCH MASK
00817  M00S00690.1rm     +++|          STD    T2
00818  M00S00691.1rm     +++|          LDN    MXMF
00819  M00S00692.1rm     +++|          STD    T3
00820  M00S00693.1rm     +++| CAS1     LDM    TDAT+5+4
00821  M00S00694.1rm     +++|          LMD    T2
00822  M00S00695.1rm     +++|          SBM    TDAT+5+4
00823  M00S00696.1rm     +++|          PJN    CAS2        IF NOT SHARING WITH THIS MACHINE
00824  M00S00697.1rm     +++|          LDI    T1

Seq #  *Modification Id* Act 
----------------------------+
00825  M01S00698.242l642 ---|          SHN    21-13
00826  M01S00699.242l642 ---|          MJN    CASX        IF SUSPEND STATUS SET

Seq #  *Modification Id* Act 
----------------------------+
00827  M01S00026.242l642 +++|          SHN    0-10
00828  M01S00027.242l642 +++|          LMN    3
00829  M01S00028.242l642 +++|          ZJN    CAS4        IF DEVICE IS DOWN
00830  M00S00700.1rm     +++| CAS2     LDD    T2          ADVANCE MACHINE MASK AND INDEX
00831  M00S00701.1rm     +++|          RAD    T2
00832  M00S00702.1rm     +++|          LDN    LLLL*5
00833  M00S00703.1rm     +++|          RAD    T1
00834  M00S00704.1rm     +++|          SOD    T3
00835  M00S00705.1rm     +++|          NJN    CAS1        IF MORE MACHINES

Seq #  *Modification Id* Act 
----------------------------+
00836  M01S00706.242l642 ---|          LJM    CASX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00837  M01S00029.242l642 +++| CAS3     LJM    CASX        RETURN
00838  M01S00030.242l642 +++|
00839  M01S00031.242l642 +++| CAS4     LDN    1           SET REPLY STATUS
00840  M01S00032.242l642 +++|          UJN    CAS3        RETURN
00841  M00S00707.1rm     +++| CDP      SPACE  4,10
00842  M00S00708.1rm     +++|**        CDP - COMPLETE DEVICE PROCESSING.
00843  M00S00709.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00844  M01S00710.ns22000 ---|*         ENTRY  (EQ) = EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
00845  M01S00041.ns22000 +++|*         ENTRY  (EQ) = EST ORDINAL.
00846  M00S00711.1rm     +++|*
00847  M00S00712.1rm     +++|*         CALLS  C2D.
00848  M00S00713.1rm     +++|*
00849  M00S00714.1rm     +++|*         MACROS MESG.
00850  M00S00715.1rm     +++|
00851  M00S00716.1rm     +++|
00852  M00S00717.1rm     +++| CDP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00853  M01S00718.ns22000 ---|          LDD    EQ
00854  M01S00719.ns22000 ---|          RJM    C2D
00855  M01S00720.ns22000 ---|          STM    CDPA+1

Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00042.ns22000 +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
00857  M01S00043.ns22000 +++|          SHN    -3
00858  M01S00044.ns22000 +++|          RJM    C2D
00859  M01S00045.ns22000 +++|          STM    CDPA+1
00860  M01S00046.ns22000 +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
00861  M01S00047.ns22000 +++|          LPN    7
00862  M01S00048.ns22000 +++|          SHN    6
00863  M01S00049.ns22000 +++|          ADC    2R0,
00864  M01S00050.ns22000 +++|          STM    CDPA+2
00865  M00S00721.1rm     +++|          MESG   CDPA
00866  M00S00722.1rm     +++|          UJN    CDPX        RETURN
00867  M00S00723.1rm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00868  M01S00724.ns22000 ---| CDPA     DATA   C*EQXX PROCESSING COMPLETE.*

Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00051.ns22000 +++| CDPA     DATA   C*EQXXX, REDEFINITION COMPLETE.*
00870  M00S00725.1rm     +++| CLC      SPACE  4,10
00871  M00S00726.1rm     +++|**        CLC - CHECK FOR LEGAL COMMAND.
00872  M00S00727.1rm     +++|*
00873  M00S00728.1rm     +++|*         ENTRY  (A) = COMMAND MASK TO CHECK.
00874  M00S00729.1rm     +++|*
00875  M00S00730.1rm     +++|*         EXIT   (A) .NE. 0 IF COMMAND ENTERED.
00876  M00S00731.1rm     +++|*                LEGAL COMMANDS CLEARED WHEN (A) .NE. 0.
00877  M00S00732.1rm     +++|*
00878  M00S00733.1rm     +++|*         USES   CM - CM+4.
00879  M00S00734.1rm     +++|*
00880  M00S00735.1rm     +++|*         MACROS COMMAND, LDBUF, PAUSE.
00881  M00S00736.1rm     +++|
00882  M00S00737.1rm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00883  M01S00738.1rm6    ---| .1       OCTMIC .ABORT-1    SET BIT NUMBER MICRO FOR *ABORT*

Seq #  *Modification Id* Act 
----------------------------+
00884  M01S00003.1rm6    +++| .1       DECMIC .ABORT-1    SET BIT NUMBER MICRO FOR *ABORT*
00885  M00S00739.1rm     +++| CLC1     LDN    1BS".1"     ERROR FLAG TREATED AS *ABORT* COMMAND
00886  M00S00740.1rm     +++| CLC2     BSS    0
00887  M00S00741.1rm     +++| CLCA     LPC    *
00888  M00S00742.1rm     +++|          ZJN    CLCX        IF NO LEGAL COMMAND FOUND
00889  M00S00743.1rm     +++|          COMMAND            CLEAR LEGAL COMMANDS
00890  M00S00744.1rm     +++|          LDN    1           RETURN STATUS
00891  M00S00745.1rm     +++|
00892  M00S00746.1rm     +++| CLC      SUBR               ENTRY/EXIT
00893  M00S00747.1rm     +++|          STM    CLCA+1      SET LEGAL COMMAND MASK
00894  M00S00748.1rm     +++|          SHN    -14
00895  M00S00749.1rm     +++|          LMC    LPCI
00896  M00S00750.1rm     +++|          STM    CLCA
00897  M00S00751.1rm     +++|          PAUSE              CHECK ERROR FLAG
00898  M00S00752.1rm     +++|          LDD    CM+1
00899  M00S00753.1rm     +++|          SBN    ODET
00900  M00S00754.1rm     +++|          PJN    CLC1        IF ERROR FLAG SET
00901  M00S00755.1rm     +++|          LDBUF  TCOM        READ LEGAL COMMANDS
00902  M00S00756.1rm     +++|          CRD    CM
00903  M00S00757.1rm     +++|          LDD    CM+3
00904  M00S00758.1rm     +++|          SHN    14
00905  M00S00759.1rm     +++|          LMD    CM+4
00906  M00S00760.1rm     +++|          LJM    CLC2        RETURN
00907  M00S00761.1rm     +++| CNR      SPACE  4,10
00908  M00S00762.1rm     +++|**        CNR - CHECK NOT READY STATUS ON DEVICE.
00909  M00S00763.1rm     +++|*
00910  M00S00764.1rm     +++|*         ENTRY  (T6) = TRACK TO READ.

Seq #  *Modification Id* Act 
----------------------------+
00911  M01S00765.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
00912  M01S00052.ns22000 +++|*                (T5) = EST ORDINAL.
00913  M00S00766.1rm     +++|*
00914  M00S00767.1rm     +++|*         EXIT   (A) = 0 IF UNIT HAS NOT READY STATUS.
00915  M00S00768.1rm     +++|*                    .GT. 0 IF UNIT HAS READY STATUS.
00916  M00S00769.1rm     +++|*                    .LT. 0 IF MASS STORAGE READ ERROR.
00917  M00S00770.1rm     +++|*
00918  M00S00771.1rm     +++|*         CALLS  RDS.
00919  M00S00772.1rm     +++|*
00920  M00S00773.1rm     +++|*         MACROS ENDMS, SETMS.
00921  M00S00774.1rm     +++|
00922  M00S00775.1rm     +++|
00923  M00S00776.1rm     +++| CNR1     ENDMS
00924  M00S00777.1rm     +++|          LDN    1           SET READY STATUS
00925  M00S00778.1rm     +++|
00926  M00S00779.1rm     +++| CNR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00927  M01S00780.242l642 ---|          SETMS  READ,NR

Seq #  *Modification Id* Act 
----------------------------+
00928  M01S00033.242l642 +++|          SETMS  IO,(AD,DF,NR)
00929  M00S00781.1rm     +++|          LDC    BFMS        READ SECTOR
00930  M00S00782.1rm     +++|          RJM    RDS
00931  M00S00783.1rm     +++|          PJN    CNR1        IF NO MASS STORAGE ERROR

Seq #  *Modification Id* Act 
----------------------------+
00932  M01S00784.242l642 ---|          LDM    RDCT        CHECK NOT READY STATUS
00933  M01S00785.242l642 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00034.253l688 ---|          LPN    17          CHECK NOT READY STATUS

Seq #  *Modification Id* Act 
----------------------------+
00935  M01S00001.253l688 +++|          LPN    77          CHECK NOT READY STATUS
00936  M00S00786.1rm     +++|          LMN    NRDE
00937  M00S00787.1rm     +++|          ZJN    CNRX        IF NOT READY
00938  M00S00788.1rm     +++|          LCN    1           SET READ ERROR
00939  M00S00789.1rm     +++|          UJN    CNRX        RETURN
00940  M00S00790.1rm     +++| CSP      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00941  M01S00791.242l642 ---|**        CSP - CLEAR REDEFINITION IN PROGRESS BIT.

Seq #  *Modification Id* Act 
----------------------------+
00942  M01S00035.242l642 +++|**        CSP - CLEAR SUSPEND STATUS.
00943  M00S00792.1rm     +++|*
00944  M00S00793.1rm     +++|*         ENTRY  (MS) = MST ADDRESS/10B.
00945  M00S00794.1rm     +++|*                (SC) = SUSPEND COUNT.
00946  M00S00795.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00947  M01S00796.242l642 ---|*         USES   SC, T5, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
00948  M01S00036.242l642 +++|*         USES   SC, T5, CM - CM+7.
00949  M00S00797.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00950  M01S00798.242l642 ---|*         MACROS CMSTF.

Seq #  *Modification Id* Act 
----------------------------+
00951  M01S00037.242l642 +++|*         MACROS CMSTF, MONITOR.
00952  M00S00799.1rm     +++|
00953  M00S00800.1rm     +++|
00954  M00S00801.1rm     +++| CSP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00955  M01S00802.242l642 ---|          LDD    MS          READ UNIT LIST WORD
00956  M01S00803.242l642 ---|          SHN    3
00957  M01S00804.242l642 ---|          ADN    DDLL
00958  M01S00805.242l642 ---|          CRD    CM
00959  M01S00806.242l642 ---|          LDD    CM
00960  M01S00807.242l642 ---|          SHN    21-13
00961  M01S00808.242l642 ---|          PJN    CSPX        IF SUSPEND NOT SET
00962  M01S00809.242l642 ---|          LDC    -4000       CLEAR BIT
00963  M01S00810.242l642 ---|          RAD    CM
00964  M01S00811.242l642 ---|          LDD    MS          REWRITE UNIT LIST WORD
00965  M01S00812.242l642 ---|          SHN    3
00966  M01S00813.242l642 ---|          ADN    DDLL
00967  M01S00814.242l642 ---|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
00968  M01S00038.242l642 +++|          LDM    SCFA
00969  M01S00039.242l642 +++|          LPN    77
00970  M01S00040.242l642 +++|          ZJN    CSP1        IF EQUIPMENT NOT ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
00971  M01S00003.1rm5    +++|          SOM    SCFA        CLEAR ASSIGNMENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
00972  M01S00041.242l642 +++|          LDD    CP          GET EJT ORDINAL
00973  M01S00042.242l642 +++|          ADK    TERW
00974  M01S00043.242l642 +++|          CRD    CM+3
00975  M01S00044.242l642 +++|          LDD    EQ
00976  M01S00045.242l642 +++|          LMC    4000        INDICATE EJT ORDINAL PASSED
00977  M01S00046.242l642 +++|          STD    CM+1
00978  M01S00047.242l642 +++|          MONITOR  DEQM

Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00004.1rm5a   ---|          LDD    SC

Seq #  *Modification Id* Act 
----------------------------+
00980  M01S00001.1rm5a   +++| CSP1     LDD    SC

Seq #  *Modification Id* Act 
----------------------------+
00981  M01S00005.1rm5    +++|          ZJN    CSPX        IF EQUIPMENTS NOT SUSPENDED

Seq #  *Modification Id* Act 
----------------------------+
00982  M02S00048.1rm5a   ---| CSP1     LDD    EQ          SET DEVICE STATE = ON

Seq #  *Modification Id* Act 
----------------------------+
00983  M01S00002.1rm5a   +++|          LDD    EQ          SET DEVICE STATE = ON

Seq #  *Modification Id* Act 
----------------------------+
00984  M01S00049.242l642 +++|          STD    T5
00985  M01S00050.242l642 +++|          STD    CM+1
00986  M01S00051.242l642 +++|          LDN    **
00987  M01S00052.242l642 +++| CSPA     EQU    *-1
00988  M01S00053.242l642 +++|          ZJN    CSP2        IF DEVICE STATE UNCHANGED
00989  M01S00054.242l642 +++|          LDK    ONES
00990  M01S00055.242l642 +++|          STD    CM+2
00991  M01S00056.242l642 +++|          MONITOR  SEQM
00992  M00S00815.1rm     +++|          SOD    SC          UPDATE SUSPEND COUNT

Seq #  *Modification Id* Act 
----------------------------+
00993  M01S00816.242l642 ---|          LDD    EQ
00994  M01S00817.242l642 ---|          STD    T5
00995  M01S00818.242l642 ---|          CMSTF  LFPR        FORCE UPDATE OF LOCAL MST TO ECS
00996  M01S00819.242l642 ---|          UJN    CSPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00997  M01S00057.242l642 +++| CSP2     CMSTF  LFPR        FORCE UPDATE OF LOCAL MST TO ECS
00998  M01S00058.242l642 +++|          UJP    CSPX        RETURN
00999  M00S00820.1rm     +++| C3D      SPACE  4,10
01000  M00S00821.1rm     +++|**        C3D - CONVERT THREE DIGITS OF DECIMAL DISPLAY CODE.
01001  M00S00822.1rm     +++|*
01002  M00S00823.1rm     +++|*         ENTRY  (A) = NUMBER TO CONVERT.
01003  M00S00824.1rm     +++|*
01004  M00S00825.1rm     +++|*         EXIT   (A) = THREE DISPLAY CODE DIGITS.
01005  M00S00826.1rm     +++|*                (A) = 999 IN DISPLAY CODE IF .GT. THREE DIGITS.
01006  M00S00827.1rm     +++|*
01007  M00S00828.1rm     +++|*         USES   CM - CM+4.
01008  M00S00829.1rm     +++|
01009  M00S00830.1rm     +++|
01010  M00S00831.1rm     +++| C3D3     LDC    3R999
01011  M00S00832.1rm     +++|
01012  M00S00833.1rm     +++| C3D      SUBR               ENTRY/EXIT
01013  M00S00834.1rm     +++|          STD    CM+3
01014  M00S00835.1rm     +++|          ADC    -999D
01015  M00S00836.1rm     +++|          PJN    C3D3        IF .GE. 999
01016  M00S00837.1rm     +++|          LDN    2           PRESET DIVISION
01017  M00S00838.1rm     +++|          STD    CM+4
01018  M00S00839.1rm     +++|          LDN    0
01019  M00S00840.1rm     +++|          STD    CM
01020  M00S00841.1rm     +++|          STD    CM+1
01021  M00S00842.1rm     +++|          STD    CM+2
01022  M00S00843.1rm     +++| C3D1     LDD    CM+3
01023  M00S00844.1rm     +++|          SBM    C3DA,CM+4
01024  M00S00845.1rm     +++|          MJN    C3D2        IF NEXT DECIMAL PLACE
01025  M00S00846.1rm     +++|          STD    CM+3
01026  M00S00847.1rm     +++|          AOM    CM,CM+4
01027  M00S00848.1rm     +++|          UJN    C3D1        CONTINUE DIVISION
01028  M00S00849.1rm     +++|
01029  M00S00850.1rm     +++| C3D2     SOD    CM+4
01030  M00S00851.1rm     +++|          PJN    C3D1        IF NOT COMPLETE
01031  M00S00852.1rm     +++|          LDD    CM+2        ASSEMBLE DIGITS
01032  M00S00853.1rm     +++|          SHN    6
01033  M00S00854.1rm     +++|          ADD    CM+1
01034  M00S00855.1rm     +++|          SHN    6
01035  M00S00856.1rm     +++|          ADD    CM
01036  M00S00857.1rm     +++|          ADC    3R000
01037  M00S00858.1rm     +++|          UJN    C3DX        RETURN
01038  M00S00859.1rm     +++|
01039  M00S00860.1rm     +++| C3DA     CON    1,10D,100D  DIVISION TABLE
01040  M00S00861.1rm     +++| DOS      SPACE  4,20
01041  M00S00862.1rm     +++|**        DOS - DELAY APPROXIMATELY ONE SECOND.
01042  M00S00863.1rm     +++|*
01043  M00S00864.1rm     +++|*         THE PURPOSE OF THIS ROUTINE IS TO AVOID CHECKING THE DEVICE
01044  M00S00865.1rm     +++|*         TOO OFTEN.  THE TIME INTERVAL IS NOT REALLY IMPORTANT.
01045  M00S00866.1rm     +++|*
01046  M00S00867.1rm     +++|*         USES   T1, T2.
01047  M00S00868.1rm     +++|*
01048  M00S00869.1rm     +++|*         MACROS DELAY, PAUSE.
01049  M00S00870.1rm     +++|
01050  M00S00871.1rm     +++|
01051  M00S00872.1rm     +++| DOS      SUBR               ENTRY/EXIT
01052  M00S00873.1rm     +++|          LDN    40D         SET DELAY INCREMENT PARAMETERS
01053  M00S00874.1rm     +++|          STD    T2
01054  M00S00875.1rm     +++| DOS1     LDC    100D
01055  M00S00876.1rm     +++|          STD    T1
01056  M00S00877.1rm     +++| DOS2     DELAY
01057  M00S00878.1rm     +++|          PAUSE  NE
01058  M00S00879.1rm     +++|          SOD    T1
01059  M00S00880.1rm     +++|          NJN    DOS2        IF NOT END OF INNER INCREMENT
01060  M00S00881.1rm     +++|          SOD    T2
01061  M00S00882.1rm     +++|          NJN    DOS1        IF NOT END OF DELAY
01062  M00S00883.1rm     +++|          UJN    DOSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00038.1rm1    +++| GCI      SPACE  4,10
01064  M01S00039.1rm1    +++|**        GCI - GET CHANNEL CONTROLWARE TABLE INDEX.
01065  M01S00040.1rm1    +++|*
01066  M01S00041.1rm1    +++|*         ENTRY  (A) = CHANNEL(S).
01067  M01S00042.1rm1    +++|*
01068  M01S00043.1rm1    +++|*         EXIT   (A) = 0, IF FULL-TRACK CONTROLLER CHANNEL.
01069  M01S00044.1rm1    +++|*                    .NE. 0, OTHERWISE.
01070  M01S00045.1rm1    +++|*                (T2) = CHANNEL BEING PROCESSED.
01071  M01S00046.1rm1    +++|*
01072  M01S00047.1rm1    +++|*         USES   T0, T1, T2, CM - CM+4.
01073  M01S00048.1rm1    +++|
01074  M01S00049.1rm1    +++|
01075  M01S00050.1rm1    +++| GCI      SUBR               ENTRY/EXIT
01076  M01S00051.1rm1    +++|          LPN    37          SAVE CHANNEL NUMBER
01077  M01S00052.1rm1    +++|          STD    T1
01078  M01S00053.1rm1    +++|          STD    T2
01079  M01S00054.1rm1    +++|          LCN    0
01080  M01S00055.1rm1    +++|          STD    T0
01081  M01S00056.1rm1    +++| GCI1     AOD    T0          INCREMENT CM WORD OFFSET
01082  M01S00057.1rm1    +++|          LCN    5           DIVIDE BY 5
01083  M01S00058.1rm1    +++|          RAD    T1
01084  M01S00059.1rm1    +++|          PJN    GCI1        IF INCORRECT CM WORD OFFSET
01085  M01S00060.1rm1    +++|          LDC    **          FWA OF CHANNEL CONTROLWARE TABLE
01086  M01S00061.1rm1    +++| GCIA     EQU    *-2
01087  M01S00062.1rm1    +++|          ADD    T0          ADD CORRECT CM WORD OFFSET
01088  M01S00063.1rm1    +++|          CRD    CM
01089  M01S00064.1rm1    +++|          LDM    CM+5,T1
01090  M01S00065.1rm1    +++|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00066.ns2104b ---|          LMN    /DSL/FTBC
01092  M02S00067.ns2104b ---|          ZJN    GCIX        IF FULL-TRACK CONTROLLER CHANNEL
01093  M02S00068.ns2104b ---|          LMN    /DSL/FMBC&/DSL/FTBC

Seq #  *Modification Id* Act 
----------------------------+
01094  M01S00001.ns2104b +++|          LMN    /DSL/FTCW
01095  M01S00002.ns2104b +++|          ZJN    GCIX        IF FULL TRACK CONTROLWARE CHANNEL
01096  M01S00003.ns2104b +++|          LMN    /DSL/FMCW&/DSL/FTCW

Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00069.1rm1    +++|          UJN    GCIX        RETURN
01098  M00S00884.1rm     +++| KMS      SPACE  4,10
01099  M00S00885.1rm     +++|**        KMS - SEND MESSAGE TO K-DISPLAY.
01100  M00S00886.1rm     +++|*
01101  M00S00887.1rm     +++|*         ENTRY  (A) = MESSAGE ADDRESS.
01102  M00S00888.1rm     +++|*
01103  M00S00889.1rm     +++|*         USES   T1 - T2.
01104  M00S00890.1rm     +++|*
01105  M00S00891.1rm     +++|*         MACROS DELAY, PAUSE.
01106  M00S00892.1rm     +++|
01107  M00S00893.1rm     +++|
01108  M00S00894.1rm     +++| KMS      SUBR               ENTRY/EXIT
01109  M00S00895.1rm     +++|          STD    T1
01110  M00S00896.1rm     +++|          LDN    0
01111  M00S00897.1rm     +++|          STD    T2
01112  M00S00898.1rm     +++| KMS1     LDI    T1          MOVE MESSAGE TO BUFFER
01113  M00S00899.1rm     +++|          ZJN    KMS2        IF END OF MESSAGE
01114  M00S00900.1rm     +++|          STM    KMSA,T2
01115  M00S00901.1rm     +++|          AOD    T1
01116  M00S00902.1rm     +++|          AOD    T2
01117  M00S00903.1rm     +++|          LMN    60D/2
01118  M00S00904.1rm     +++|          NJN    KMS1        IF NOT END OF LINE
01119  M00S00905.1rm     +++| KMS2     LDC    2R          BLANK FILL MESSAGE
01120  M00S00906.1rm     +++|          STM    KMSA,T2
01121  M00S00907.1rm     +++|          AOD    T2
01122  M00S00908.1rm     +++|          SBN    60D/2
01123  M00S00909.1rm     +++|          MJN    KMS2        IF NOT END OF LINE
01124  M00S00910.1rm     +++|          LDN    6
01125  M00S00911.1rm     +++|          STD    T1
01126  M00S00912.1rm     +++|          LDD    IR+3        WRITE MESSAGE TO K-DISPLAY
01127  M00S00913.1rm     +++|          SCN    77
01128  M00S00914.1rm     +++|          SHN    6
01129  M00S00915.1rm     +++|          ADD    IR+2
01130  M00S00916.1rm     +++|          ADD    RA
01131  M00S00917.1rm     +++|          SHN    6
01132  M00S00918.1rm     +++|          CWM    KMSA,T1
01133  M00S00919.1rm     +++| KMS3     DELAY              PAUSE FOR MESSAGE TO BE SEEN
01134  M00S00920.1rm     +++|          PAUSE  NE
01135  M00S00921.1rm     +++|          SOD    T2
01136  M00S00922.1rm     +++|          PJN    KMS3        IF MORE DELAY
01137  M00S00923.1rm     +++|          LJM    KMSX        RETURN
01138  M00S00924.1rm     +++|
01139  M00S00925.1rm     +++| KMSA     BSS    60D/2+1
01140  M00S00926.1rm     +++| LDB      SPACE  4,10
01141  M00S00927.1rm     +++|**        LDB - LOAD CALL BLOCK BUFFER ADDRESS.
01142  M00S00928.1rm     +++|*
01143  M00S00929.1rm     +++|*         EXIT   (A) = ABSOLUTE ADDRESS OF CALL BLOCK.
01144  M00S00930.1rm     +++|
01145  M00S00931.1rm     +++|
01146  M00S00932.1rm     +++| LDB      SUBR               ENTRY/EXIT
01147  M00S00933.1rm     +++|          LDD    IR+3        GET CALL BLOCK ADDRESS FROM *IR*
01148  M00S00934.1rm     +++|          LPN    77
01149  M00S00935.1rm     +++|          SHN    6
01150  M00S00936.1rm     +++|          ADD    RA
01151  M00S00937.1rm     +++|          SHN    6
01152  M00S00938.1rm     +++|          ADD    IR+4
01153  M00S00939.1rm     +++|          UJN    LDBX        RETURN
01154  M00S00940.1rm     +++| PSA      SPACE  4,10
01155  M00S00941.1rm     +++|**        PSA - PROCESS SERVO ADJUSTMENT.
01156  M00S00942.1rm     +++|*
01157  M00S00943.1rm     +++|*         ENTRY  (T5) = 0.
01158  M00S00944.1rm     +++|*                (T6) = LABEL TRACK.
01159  M00S00945.1rm     +++|*                (T7) = CURRENT SECTOR.
01160  M00S00946.1rm     +++|*
01161  M00S00947.1rm     +++|*         EXIT   (A) .NE. 0 IF *ABORT*.
01162  M00S00948.1rm     +++|*
01163  M00S00949.1rm     +++|*         USES   CN - CN+1, T6 - T7.
01164  M00S00950.1rm     +++|*
01165  M00S00951.1rm     +++|*         CALLS  C3D, SPU, WFC.
01166  M00S00952.1rm     +++|*
01167  M00S00953.1rm     +++|*         MACROS COMMAND, EXECUTE, MESG, SETMS.
01168  M00S00954.1rm     +++|
01169  M00S00955.1rm     +++|
01170  M00S00956.1rm     +++| PSA9     LDN    0           RETURN STATUS
01171  M00S00957.1rm     +++|
01172  M00S00958.1rm     +++| PSA      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00959.242l642 ---|          SETMS

Seq #  *Modification Id* Act 
----------------------------+
01174  M01S00059.242l642 +++|          SETMS  STATUS
01175  M00S00960.1rm     +++|          LDD    CM+3
01176  M00S00961.1rm     +++|          LPC    3777
01177  M00S00962.1rm     +++|          LMC    2RDM
01178  M00S00963.1rm     +++|          ZJN    PSA1        IF 885
01179  M00S00964.1rm     +++|          LMN    2RDQ&2RDM
01180  M00S00965.1rm     +++|          NJN    PSA9        IF NOT 885
01181  M00S00966.1rm     +++| PSA1     LDD    T7          SAVE LOGICAL SECTOR NUMBER
01182  M00S00967.1rm     +++|          STD    CN
01183  M00S00968.1rm     +++|          LDD    RM          SET UNIT IN MESSAGES
01184  M00S00969.1rm     +++|          RJM    SPU
01185  M00S00970.1rm     +++|          STM    PSAB+24
01186  M00S00971.1rm     +++|          STM    PSAC+3
01187  M00S00972.1rm     +++|          STM    PSAD+3
01188  M00S00973.1rm     +++| PSA2     MESG   PSAD        * UNIT XX SERVO TIMING IN PROGRESS.*

Seq #  *Modification Id* Act 
----------------------------+
01189  M01S00974.ns22000 ---|          LDC    2000        SET *0PI* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
01190  M01S00053.ns22000 +++|          LDN    0           SET *0SI* FUNCTION
01191  M00S00975.1rm     +++|          STM    OVLA

Seq #  *Modification Id* Act 
----------------------------+
01192  M01S00976.ns22000 ---|          EXECUTE  0PI,OVLA+1

Seq #  *Modification Id* Act 
----------------------------+
01193  M01S00054.ns22000 +++|          EXECUTE  0SI,OVLA+1
01194  M00S00977.1rm     +++|          STM    PSAA        SET PROCESSOR ADDRESS
01195  M00S00978.1rm     +++|          LDN    0           SET TRACK TO ZERO
01196  M00S00979.1rm     +++|          STD    T6
01197  M00S00980.1rm     +++|          LDD    CN          RESTORE SECTOR NUMBER
01198  M00S00981.1rm     +++|          STD    T7
01199  M00S00982.1rm     +++|          RJM    *           PERFORM SERVO CHECK
01200  M00S00983.1rm     +++| PSAA     EQU    *-1
01201  M00S00984.1rm     +++|          MJN    PSA4        IF SERVO CHECK UNSUCCESSFUL
01202  M00S00985.1rm     +++|          STD    CN+1        SAVE TIME
01203  M00S00986.1rm     +++|          NJN    PSA3        IF NOT OUT OF RANGE
01204  M00S00987.1rm     +++|          LDC    999D        SET OUT OF RANGE
01205  M00S00988.1rm     +++| PSA3     RJM    C3D         CONVERT THREE DIGITS TO DECIMAL DISPLAY
01206  M00S00989.1rm     +++|          STM    PSAC+14
01207  M00S00990.1rm     +++|          SHN    -14
01208  M00S00991.1rm     +++|          LMC    2L
01209  M00S00992.1rm     +++|          STM    PSAC+13
01210  M00S00993.1rm     +++|          LDD    CN+1
01211  M00S00994.1rm     +++|          ADC    -325D
01212  M00S00995.1rm     +++|          MJN    PSA5        IF OUT OF RANGE

Seq #  *Modification Id* Act 
----------------------------+
01213  M01S00996.1rm4    ---|          SBN    346D-335D

Seq #  *Modification Id* Act 
----------------------------+
01214  M01S00001.1rm4    +++|          SBN    346D-325D
01215  M00S00997.1rm     +++|          PJN    PSA5        IF OUT OF RANGE
01216  M00S00998.1rm     +++|          COMMAND  (ABORT,NEXT,RECHECK)  ENABLE COMMANDS
01217  M00S00999.1rm     +++|          UJN    PSA6        SET MESSAGE
01218  M00S01000.1rm     +++|
01219  M00S01001.1rm     +++| PSA4     COMMAND  (ABORT,IGNORE,RECHECK)  ENABLE COMMANDS
01220  M00S01002.1rm     +++|          MESG   PSAB        SET ERROR MESSAGE
01221  M00S01003.1rm     +++|          UJN    PSA7        WAIT FOR COMMAND
01222  M00S01004.1rm     +++|
01223  M00S01005.1rm     +++| PSA5     COMMAND  (ABORT,IGNORE,RECHECK)  ENABLE COMMANDS
01224  M00S01006.1rm     +++| PSA6     MESG   PSAC        SET TIMING DATA MESSAGE
01225  M00S01007.1rm     +++| PSA7     LDD    LT          RESET TO LABEL TRACK
01226  M00S01008.1rm     +++|          STD    T6
01227  M00S01009.1rm     +++|          RJM    WFC         WAIT FOR COMMAND
01228  M00S01010.1rm     +++|          PJN    PSA8        IF NOT *RECHECK*
01229  M00S01011.1rm     +++|          LJM    PSA2        RECHECK SERVO TIMING
01230  M00S01012.1rm     +++|
01231  M00S01013.1rm     +++| PSA8     LJM    PSAX        RETURN WITH STATUS
01232  M00S01014.1rm     +++|
01233  M00S01015.1rm     +++| PSAB     DATA   C* ERROR IN PERFORMING SERVO CHECK ON UNITXX.*
01234  M00S01016.1rm     +++| PSAC     DATA   C* UNIT XX SERVO TIMING= XXX.  ACCEPTABLE RANGE IS 325
01235  M00S01017.1rm     +++|,TO 345.*
01236  M00S01018.1rm     +++| PSAD     DATA   C* UNIT XX SERVO TIMING IN PROGRESS.*
01237  M00S01019.1rm     +++| PUE      SPACE  4,10
01238  M00S01020.1rm     +++|**        PUE - PROCESS UNIT ERROR.
01239  M00S01021.1rm     +++|*
01240  M00S01022.1rm     +++|*         ENTRY  (A) = ERROR MESSAGE ADDRESS.
01241  M00S01023.1rm     +++|*                (CH) = CHANNEL.
01242  M00S01024.1rm     +++|*
01243  M00S01025.1rm     +++|*         EXIT   (A) .LT. 0 IF *RECHECK* COMMAND ENTERED.
01244  M00S01026.1rm     +++|*                (A) = 0 IF *IGNORE* OR *NEXT* COMMAND ENTERED.
01245  M00S01027.1rm     +++|*                (A) .GT. 0 IF *ABORT* COMMAND ENTERED.
01246  M00S01028.1rm     +++|*
01247  M00S01029.1rm     +++|*         USES   T1.
01248  M00S01030.1rm     +++|*
01249  M00S01031.1rm     +++|*         CALLS  C2D, SPU, WFC.
01250  M00S01032.1rm     +++|*
01251  M00S01033.1rm     +++|*         MACROS COMMAND, MESG.
01252  M00S01034.1rm     +++|
01253  M00S01035.1rm     +++|
01254  M00S01036.1rm     +++| PUE      SUBR               ENTRY/EXIT
01255  M00S01037.1rm     +++|          STD    T1
01256  M00S01038.1rm     +++|          LDD    RM          SET UNIT AND CHANNEL IN MESSAGE
01257  M00S01039.1rm     +++|          RJM    SPU
01258  M00S01040.1rm     +++|          STM    3,T1
01259  M00S01041.1rm     +++|          LDD    CH
01260  M00S01042.1rm     +++|          RJM    C2D
01261  M00S01043.1rm     +++|          STM    6,T1
01262  M00S01044.1rm     +++|          COMMAND  (ABORT,IGNORE,RECHECK)
01263  M00S01045.1rm     +++|          LDD    T1
01264  M00S01046.1rm     +++|          MESG   *
01265  M00S01047.1rm     +++|          RJM    WFC         WAIT FOR COMMAND
01266  M00S01048.1rm     +++|          LJM    PUEX        RETURN
01267  M00S01049.1rm     +++| RDE      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
01268  M01S01050.v23l617 ---|**        RDE - READ DAT ENTRY FROM ECS.

Seq #  *Modification Id* Act 
----------------------------+
01269  M01S00006.v23l617 +++|**        RDE - READ DAT ENTRY FROM EXTENDED MEMORY.
01270  M00S01051.1rm     +++|*
01271  M00S01052.1rm     +++|*         ENTRY  (MF) = LINK EQUIPMENT.
01272  M00S01053.1rm     +++|*                (DI) = DAT INDEX.
01273  M00S01054.1rm     +++|*
01274  M00S01055.1rm     +++|*         EXIT   (A) .NE. 0 IF *ABORT*.
01275  M00S01056.1rm     +++|*                (TDAT) = DAT ENTRY.
01276  M00S01057.1rm     +++|*                (BFMS) = DAT TRACK FOR THIS EQUIPMENT.
01277  M00S01058.1rm     +++|*
01278  M00S01059.1rm     +++|*         USES   T3, CM - CM+4, T5 - T7.
01279  M00S01060.1rm     +++|*
01280  M00S01061.1rm     +++|*         CALLS  RDS.
01281  M00S01062.1rm     +++|*
01282  M00S01063.1rm     +++|*         MACROS COMMAND, ENDMS, IFCOM, MESG, SETMS.
01283  M00S01064.1rm     +++|
01284  M00S01065.1rm     +++|
01285  M00S01066.1rm     +++| RDE      SUBR               ENTRY/EXIT
01286  M00S01067.1rm     +++|          LDD    MF          SET LINK EQUIPMENT
01287  M00S01068.1rm     +++|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
01288  M01S01069.242l642 ---|          SETMS  READ,NR

Seq #  *Modification Id* Act 
----------------------------+
01289  M01S00060.242l642 +++|          SETMS  IO,(NR,DF)
01290  M00S01070.1rm     +++|
01291  M00S01071.1rm     +++|*         SET POINTERS TO READ DAT.
01292  M00S01072.1rm     +++|
01293  M00S01073.1rm     +++|          LDD    CM+4        GET DAT POINTER
01294  M00S01074.1rm     +++|          SHN    3
01295  M00S01075.1rm     +++|          ADN    ALGL
01296  M00S01076.1rm     +++|          CRD    CM
01297  M00S01077.1rm     +++|          LDD    CM+4        SET DAT TRACK
01298  M00S01078.1rm     +++|          STD    T6
01299  M00S01079.1rm     +++|          LDD    DI          SET DAT SECTOR
01300  M00S01080.1rm     +++|          SHN    21-4
01301  M00S01081.1rm     +++|          STD    T7
01302  M00S01082.1rm     +++|          SHN    -14         SET DAT SECTOR INDEX
01303  M00S01083.1rm     +++|          STD    T3
01304  M00S01084.1rm     +++|          SHN    2           SET INDEX * 5
01305  M00S01085.1rm     +++|          RAD    T3
01306  M00S01086.1rm     +++|
01307  M00S01087.1rm     +++|*         READ DAT.
01308  M00S01088.1rm     +++|
01309  M00S01089.1rm     +++|          LDC    BFMS        READ SECTOR
01310  M00S01090.1rm     +++|          RJM    RDS
01311  M00S01091.1rm     +++|          PJN    RDE2        IF NO ERROR
01312  M00S01092.1rm     +++|          MESG   RDEA        ERROR ON LINK DEVICE
01313  M00S01093.1rm     +++|          COMMAND  (ABORT,IGNORE)  SET LEGAL COMMANDS
01314  M00S01094.1rm     +++| RDE1     IFCOM  IGNORE,RDE2 IF *IGNORE*
01315  M00S01095.1rm     +++|          IFCOM  ABORT,RDEX  IF *ABORT*
01316  M00S01096.1rm     +++|          UJN    RDE1        RECHECK COMMAND ENTRY
01317  M00S01097.1rm     +++|
01318  M00S01098.1rm     +++| RDE2     LDN    0           INITIALIZE BUFFER INDEX
01319  M00S01099.1rm     +++|          STD    CM
01320  M00S01100.1rm     +++| RDE3     LDM    BFMS+2,T3
01321  M00S01101.1rm     +++|          STM    TDAT,CM
01322  M00S01102.1rm     +++|          AOD    T3          ADVANCE POINTERS
01323  M00S01103.1rm     +++|          AOD    CM
01324  M00S01104.1rm     +++|          LMN    5*2
01325  M00S01105.1rm     +++|          NJN    RDE3        IF TWO WORDS NOT MOVED
01326  M00S01106.1rm     +++|          LDM    TDAT+4      SET DAT TRACK FOR THIS EQUIPMENT
01327  M00S01107.1rm     +++|          STD    T6
01328  M00S01108.1rm     +++|          LDN    0
01329  M00S01109.1rm     +++|          STD    T7
01330  M00S01110.1rm     +++|          LDC    BFMS        READ DAT TRACK
01331  M00S01111.1rm     +++|          RJM    RDS
01332  M00S01112.1rm     +++|          PJN    RDE5        IF NO ERROR
01333  M00S01113.1rm     +++|          MESG   RDEA        ERROR ON LINK DEVICE
01334  M00S01114.1rm     +++|          COMMAND  (ABORT,IGNORE)  SET LEGAL COMMANDS
01335  M00S01115.1rm     +++| RDE4     IFCOM  IGNORE,RDE5  IF *IGNORE*
01336  M00S01116.1rm     +++|          IFCOM  ABORT,RDEX  IF *ABORT*
01337  M00S01117.1rm     +++|          UJN    RDE4        RECHECK COMMAND ENTRY
01338  M00S01118.1rm     +++|
01339  M00S01119.1rm     +++| RDE5     ENDMS
01340  M00S01120.1rm     +++|          LJM    RDEX        RETURN
01341  M00S01121.1rm     +++|
01342  M00S01122.1rm     +++| RDEA     DATA   C*ERROR ON LINK DEVICE.*
01343  M00S01123.1rm     +++| RRD      SPACE  4,10
01344  M00S01124.1rm     +++|**        RRD - RESET *RD* DEVICE FIELDS.
01345  M00S01125.1rm     +++|*
01346  M00S01126.1rm     +++|*         ENTRY  (RM) = MST ADDRESS/10B OF *RD* DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
01347  M01S00061.242l642 +++|*                (EQ) = ORIGINAL EST ORDINAL.
01348  M00S01127.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01349  M01S01128.252l678 ---|*         USES   CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
01350  M01S00014.252l678 +++|*         USES   CM - CM+4, CN - CN+4.
01351  M00S01129.1rm     +++|*
01352  M00S01130.1rm     +++|*         CALLS  SCH.
01353  M00S01131.1rm     +++|*
01354  M00S01132.1rm     +++|*         MACROS MONITOR.
01355  M00S01133.1rm     +++|
01356  M00S01134.1rm     +++|
01357  M00S01135.1rm     +++| RRD      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01358  M01S01136.242l642 ---|
01359  M01S01137.242l642 ---|*         RESET EST FIELDS.

Seq #  *Modification Id* Act 
----------------------------+
01360  M02S00062.1rm5    ---|          LDM    SCFA
01361  M02S00063.1rm5    ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
01362  M01S00006.1rm5    +++|          LDM    SCFB

Seq #  *Modification Id* Act 
----------------------------+
01363  M01S00064.242l642 +++|          ZJN    RRDX        IF *RD* DOES NOT NEED TO BE RESET
01364  M01S00065.242l642 +++|
01365  M01S00066.242l642 +++|*         RESET EST/MST FIELDS.
01366  M00S01138.1rm     +++|
01367  M00S01139.1rm     +++|          LDN    ZERL        CLEAR CHANNELS
01368  M00S01140.1rm     +++|          CRD    CM
01369  M00S01141.1rm     +++|          LDD    RM          CLEAR MST WORDS
01370  M00S01142.1rm     +++|          SHN    3
01371  M00S01143.1rm     +++|          ADN    MDGL
01372  M00S01144.1rm     +++|          CWD    CM
01373  M00S01145.1rm     +++|          ADN    DILL-MDGL
01374  M00S01146.1rm     +++|          CWD    CM
01375  M00S01147.1rm     +++|          ADN    DDLL-DILL
01376  M00S01148.1rm     +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
01377  M01S01149.252l678 ---|          LDN    37          CLEAR CHANNELS

Seq #  *Modification Id* Act 
----------------------------+
01378  M01S00015.252l678 +++|          LDN    ZERL        CLEAR CHANNELS
01379  M01S00016.252l678 +++|          CRD    CN
01380  M01S00017.252l678 +++|          LDN    0
01381  M00S01150.1rm     +++|          RJM    SCH
01382  M00S01151.1rm     +++|          LDC    2RRD        RESET *RD* EQUIPMENT TYPE
01383  M00S01152.1rm     +++|          STD    CM+3
01384  M00S01153.1rm     +++|          LDN    SMNS        SET MNEMONIC
01385  M00S01154.1rm     +++|          STD    CM+2
01386  M00S01155.1rm     +++|          MONITOR  SEQM

Seq #  *Modification Id* Act 
----------------------------+
01387  M01S00007.1rm5    +++|*         LDN    0
01388  M01S00008.1rm5    +++|          STM    SCFB        CLEAR *RD* ALTERED FLAG
01389  M00S01156.1rm     +++|          LJM    RRDX        RETURN
01390  M00S01157.1rm     +++| SCF      SPACE  4,20
01391  M00S01158.1rm     +++|**        SCF - SET COMMON *RD* DEVICE FIELDS.
01392  M00S01159.1rm     +++|*
01393  M00S01160.1rm     +++|*         ENTRY  (CN - CN+4) = EST ENTRY.
01394  M00S01161.1rm     +++|*                (BFMS) = MST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01395  M01S00067.242l642 +++|*                (EQ) = ORIGINAL EST ORDINAL.
01396  M00S01162.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01397  M01S01163.242l642 ---|*         EXIT   (T5) = 0.

Seq #  *Modification Id* Act 
----------------------------+
01398  M01S00068.242l642 +++|*         EXIT   (A) .NE. 0 IF AN ERROR FLAG IS SET IN THE CPA.
01399  M01S00069.242l642 +++|*                (T5) = 0.
01400  M00S01164.1rm     +++|*                (T6) = LABEL TRACK.
01401  M00S01165.1rm     +++|*                (T7) = 0.
01402  M00S01166.1rm     +++|*                (LU) = 0.

Seq #  *Modification Id* Act 
----------------------------+
01403  M01S01167.242l642 ---|*                SETMS READ,NR EXECUTED.
01404  M00S01168.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01405  M01S01169.242l642 ---|*         USES   LU, CM+2 - CM+4, T5 - T7.

Seq #  *Modification Id* Act 
----------------------------+
01406  M01S00070.242l642 +++|*         USES   T5, T7 - CM+3.
01407  M00S01170.1rm     +++|*
01408  M00S01171.1rm     +++|*         CALLS  SCH.
01409  M00S01172.1rm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01410  M01S01173.242l642 ---|*         MACROS MONITOR, SETMS.

Seq #  *Modification Id* Act 
----------------------------+
01411  M01S00071.242l642 +++|*         MACROS DELAY, MONITOR, PAUSE.
01412  M00S01174.1rm     +++|
01413  M00S01175.1rm     +++|
01414  M00S01176.1rm     +++| SCF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01415  M01S01177.242l642 ---|          LDM    BFMS+DDLL*5 CLEAR SUSPEND BIT
01416  M01S01178.242l642 ---|          LPC    3777
01417  M01S01179.242l642 ---|          STM    BFMS+DDLL*5
01418  M01S01180.242l642 ---|          LDN    0           CLEAR DEVICE ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
01419  M01S00072.242l642 +++| SCFA     LDN    0
01420  M01S00073.242l642 +++|*         LDN    1           (ON SECOND CALL)

Seq #  *Modification Id* Act 
----------------------------+
01421  M02S00074.1rm5    ---|          NJP    SCF2        IF DEVICE ALREADY RESERVED

Seq #  *Modification Id* Act 
----------------------------+
01422  M01S00009.1rm5    +++|          NJP    SCF2        IF DEVICE ALREADY ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
01423  M01S00075.242l642 +++|          LDD    CP
01424  M01S00076.242l642 +++|          ADK    TERW
01425  M01S00077.242l642 +++|          CRD    T7
01426  M01S00078.242l642 +++|          LDD    EQ          SET ORIGINAL EST ORDINAL
01427  M01S00079.242l642 +++|          STD    T5
01428  M01S00080.242l642 +++| SCF1     DELAY
01429  M01S00081.242l642 +++|          PAUSE
01430  M01S00082.242l642 +++|          LDD    CM+1
01431  M01S00083.242l642 +++|          NJN    SCFX        IF ERROR FLAG IS SET
01432  M01S00084.242l642 +++|          LDD    T5          SET EST ORDINAL
01433  M01S00085.242l642 +++|          LMC    4000
01434  M01S00086.242l642 +++|          STD    CM+1
01435  M01S00087.242l642 +++|          LDK    RVES
01436  M01S00088.242l642 +++|          STD    CM+2
01437  M01S00089.242l642 +++|          LDD    T7          SPECIFY EJT ORDINAL
01438  M01S00090.242l642 +++|          STD    CM+3
01439  M01S00091.242l642 +++|          MONITOR  REQM
01440  M01S00092.242l642 +++|          LDD    CM+1
01441  M01S00093.242l642 +++|          ZJN    SCF1        IF EQUIPMENT NOT ASSIGNED
01442  M01S00094.242l642 +++|          AOM    SCFA        INDICATE ASSIGNED EQUIPMENT
01443  M01S00095.242l642 +++| SCF2     LDN    0           CLEAR DEVICE ACTIVITY/SET STATE = ON
01444  M00S01181.1rm     +++|          STM    BFMS+DALL*5
01445  M00S01182.1rm     +++|          STM    BFMS+DALL*5+1
01446  M00S01183.1rm     +++|          LDD    RM          SET PARAMETERS IN *RD* DEVICE
01447  M00S01184.1rm     +++|          SHN    3
01448  M00S01185.1rm     +++|          ADN    MDGL
01449  M00S01186.1rm     +++|          CWM    BFMS+MDGL*5,ON
01450  M00S01187.1rm     +++|          ADN    DILL-MDGL-1
01451  M00S01188.1rm     +++|          CWM    BFMS+DILL*5,ON
01452  M00S01189.1rm     +++|          ADN    DDLL-DILL-1
01453  M00S01190.1rm     +++|          CWM    BFMS+DDLL*5,ON

Seq #  *Modification Id* Act 
----------------------------+
01454  M01S01191.252l678 ---|          LDD    CN+1        SET CHANNELS

Seq #  *Modification Id* Act 
----------------------------+
01455  M01S00018.252l678 +++|          LDN    0           SET CHANNELS
01456  M00S01192.1rm     +++|          RJM    SCH

Seq #  *Modification Id* Act 
----------------------------+
01457  M01S00019.252l678 +++|          LDN    0
01458  M01S00020.252l678 +++|          STD    CM+1
01459  M00S01193.1rm     +++|          LDD    CN+3        SET EQUIPMENT TYPE IN EQUIPMENT 0
01460  M00S01194.1rm     +++|          STD    CM+3
01461  M00S01195.1rm     +++|          LDN    SMNS        SET MNEMONIC
01462  M00S01196.1rm     +++|          STD    CM+2
01463  M00S01197.1rm     +++|          MONITOR  SEQM

Seq #  *Modification Id* Act 
----------------------------+
01464  M02S00096.252l678 ---|*         LDN    0

Seq #  *Modification Id* Act 
----------------------------+
01465  M01S00021.252l678 +++|          SFA    EST,EQ
01466  M01S00022.252l678 +++|          ADN    EQAE
01467  M01S00023.252l678 +++|          CRD    CM
01468  M01S00024.252l678 +++|          LDD    CM+2        SET INSTRUCTION PLUG FOR DRIVER
01469  M01S00025.252l678 +++|          STM    SCFC+4
01470  M01S00026.252l678 +++|          LDN    1
01471  M01S00027.252l678 +++|          STD    CM+1
01472  M01S00028.252l678 +++|          LDD    MA
01473  M01S00029.252l678 +++|          CWM    SCFC,ON
01474  M01S00030.252l678 +++|          LDN    0           SET ADDRESS FOR *RD* DEVICE
01475  M01S00031.252l678 +++|          SFA    EST
01476  M01S00032.252l678 +++|          STD    CM+4
01477  M01S00033.252l678 +++|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
01478  M01S00097.242l642 +++|          STD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
01479  M02S00001.252l678 ---|          LDD    CN+2        SET INSTRUCTION PLUG FOR DRIVER
01480  M02S00002.252l678 ---|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
01481  M03S00003.252l678 ---|          LCN    0

Proceed to Part 1