User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:magnet.003

Deck MAGNET Part 003

50 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
03112  M02S00683.ns2765  ---|**        SNR - SET *NEXTREEL* FLAG.
03113  M02S00684.ns2765  ---|*
03114  M02S00685.ns2765  ---|*         ENTRY
03115  M02S00686.ns2765  ---|*
03116  M02S00687.ns2765  ---|*T XREQ   6/0, 6/ FC, 12/ UDTO, 36/
Figure XREQ

0293035364748535459 UDTO FC0

03117  M02S00688.ns2765  ---|*
03118  M02S00689.ns2765  ---|*         FC     FUNCTION CODE = *XNR*.
03119  M02S00690.ns2765  ---|*         UDTO   UDT ORDINAL.
Line S00039 Modification History
M01 (Added by) ns2755
M02 (Removed by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
03120  M02S00039.ns2765  ---|
Line S00040 Modification History
M01 (Added by) ns2755
M02 (Removed by) 282l826
M03 (Removed by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
03121  M03S00040.ns2765  ---| SCS6     BX6    -X3*X4      CLEAR SECONDARY ACCESS FLAG
03122  M03S00041.ns2765  ---|          LX6    52-52-0+52
03123  M03S00042.ns2765  ---|          SA6    A4+         UPDATE CHANNEL FLAGS
03124  M03S00043.ns2765  ---|          EQ     SCS3        CHECK NEXT UNIT
Line S00917 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
M03 (Removed by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
03125  M03S00917.ns2765  ---| SRT      SPACE  4,10
03126  M03S00918.ns2765  ---|**        SRT - SET *RETRY* FLAG.
Line S00919 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
03127  M02S00919.ns2765  ---|
Line S00691 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
03128  M02S00691.ns2765  ---| SNR      BSS    0           ENTRY
03129  M02S00692.ns2765  ---|          SB3    55
03130  M02S00693.ns2765  ---|          EQ     SFL         SET *NEXTREEL* FLAG
Line S00694 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03131  M01S00694.282l826 +++| UGO      SPACE  4,10
03132  M01S00695.282l826 +++|**        UGO - CLEAR TMS UNIT GO FLAG.
03133  M01S00696.282l826 +++|*
03134  M01S00697.282l826 +++|*         ENTRY
03135  M01S00698.282l826 +++|*
03136  M01S00699.282l826 +++|*T XREQ   6/0, 6/ FC, 12/ UDTO, 36/
Figure XREQ

0293035364748535459 UDTO FC0

03137  M01S00700.282l826 +++|*
03138  M01S00701.282l826 +++|*         FC     FUNCTION CODE = *XUG*.
03139  M01S00702.282l826 +++|*         UDTO   UDT ORDINAL.
Line S00920 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03140  M01S00920.274l797 +++|
Line S00921 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03141  M02S00921.282l826 ---| SRT      BSS    0           ENTRY
03142  M02S00922.282l826 ---|          MX3    1
03143  M02S00923.282l826 ---|          LX3    3-59
03144  M02S00924.282l826 ---|          EQ     STR1        SET *RETRY* FLAG
03145  M02S00925.282l826 ---| STR      SPACE  4,10
03146  M02S00926.282l826 ---|*         STR - SET *TERMINATE* FLAG.
Line S00927 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03147  M01S00927.274l797 +++|
Line S00703 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03148  M01S00703.282l826 +++| UGO      BSS    0           ENTRY
03149  M01S00704.282l826 +++|          SX6    B0+         DO NOT SET UNLOAD FLAG
03150  M01S00705.282l826 +++|          EQ     CUG         CLEAR UNIT GO FLAG
03151  M01S00706.282l826 +++| UST      SPACE  4,10
03152  M01S00707.282l826 +++|**        UST - SET TMS UNIT UNLOAD FLAG.
03153  M01S00708.282l826 +++|*
03154  M01S00709.282l826 +++|*         ENTRY
03155  M01S00710.282l826 +++|*
03156  M01S00711.282l826 +++|*T XREQ   6/0, 6/ FC, 12/ UDTO, 36/
Figure XREQ

0293035364748535459 UDTO FC0

03157  M01S00712.282l826 +++|*
03158  M01S00713.282l826 +++|*         FC     FUNCTION CODE = *XUS*.
03159  M01S00714.282l826 +++|*         UDTO   UDT ORDINAL.
Line S00928 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03160  M01S00928.274l797 +++|
Line S00929 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03161  M02S00929.282l826 ---| STR      BSS    0           ENTRY
03162  M02S00930.282l826 ---|          MX3    1
03163  M02S00931.282l826 ---|          LX3    4-59
Line S00932 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03164  M01S00932.274l797 +++|
Line S00933 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03165  M02S00933.282l826 ---|*         ENTRY FROM *SRT*.
Line S00715 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03166  M01S00715.282l826 +++| UST      BSS    0           ENTRY
03167  M01S00716.282l826 +++|          SX6    40000B      SET UNLOAD FLAG
03168  M01S00717.282l826 +++|          EQ     CUG         CLEAR UNIT GO FLAG
03169  M01S00718.282l826 +++| UNL      SPACE  4,10
03170  M01S00719.282l826 +++|**        UNL - UNLOAD UNIT.
03171  M01S00720.282l826 +++|*
03172  M01S00721.282l826 +++|*         ENTRY
03173  M01S00722.282l826 +++|*
03174  M01S00723.282l826 +++|*T XREQ   6/0, 6/ FC, 12/ UDTO, 36/
Figure XREQ

0293035364748535459 UDTO FC0

03175  M01S00724.282l826 +++|*
03176  M01S00725.282l826 +++|*         FC     FUNCTION CODE = *XUU*.
03177  M01S00726.282l826 +++|*         UDTO   UDT ORDINAL.
03178  M01S00727.282l826 +++|*
03179  M01S00728.282l826 +++|*         CALLS  CLS.
Line S00934 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03180  M01S00934.274l797 +++|
Line S00935 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03181  M02S00935.282l826 ---| STR1     SA2    A0+UST2
03182  M02S00936.282l826 ---|          BX6    X2+X3
03183  M02S00937.282l826 ---|          SA6    A2
03184  M02S00938.282l826 ---|          EQ     CXRX        EXIT
03185  M02S00939.282l826 ---| SNR      SPACE  4,10
03186  M02S00940.282l826 ---|**        SNR - SET *NEXTREEL* FLAG.
Line S00941 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03187  M01S00941.274l797 +++|
Line S00729 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03188  M01S00729.282l826 +++| UNL      BSS    0           ENTRY
03189  M01S00730.282l826 +++|          RJ     CLS         CHECK LABELS READ STATUS
03190  M01S00731.282l826 +++|          SX7    PULR        UNLOAD UNIT AND CLEAR VSN
03191  M01S00732.282l826 +++|          EQ     MQX         MAKE REQUEST AND EXIT
03192  M01S00733.282l826 +++| CUG      SPACE  4,10
03193  M01S00734.282l826 +++|**        CUG - CLEAR TMS WAIT UNIT GO FLAG.
03194  M01S00735.282l826 +++|*
03195  M01S00736.282l826 +++|*         ENTRY  (X6) = 0 IF CLEAR UNIT GO FLAG ONLY.
03196  M01S00737.282l826 +++|*                (X6) = 40000B IF CLEAR UNIT GO FLAG AND SET UNLOAD
03197  M01S00738.282l826 +++|*                       FLAG.
03198  M01S00739.282l826 +++|*
03199  M01S00740.282l826 +++|*         EXIT   WAIT UNIT GO FLAG CLEARED.
03200  M01S00741.282l826 +++|*                UNLOAD FLAG SET IF REQUESTED.
Line S00942 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03201  M01S00942.274l797 +++|
Line S00943 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03202  M02S00943.282l826 ---| SNR      BSS    0           ENTRY
03203  M02S00944.282l826 ---|          MX3    1
03204  M02S00945.282l826 ---|          LX3    55-59
03205  M02S00946.282l826 ---|          SA2    A0+UFLA
03206  M02S00947.282l826 ---|          BX6    X2+X3
03207  M02S00948.282l826 ---|          SA6    A2
03208  M02S00949.282l826 ---|          EQ     CXRX        EXIT
03209  M02S00950.282l826 ---| IXR      SPACE  4,15
03210  M02S00951.282l826 ---|**        IXR - PROCESS INCORRECT EXTERNAL REQUEST.
Line S00742 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03211  M01S00742.282l826 +++|
03212  M01S00743.282l826 +++| CUG      BSS    0           ENTRY
03213  M01S00744.282l826 +++|          SA1    A0+UTMS
03214  M01S00745.282l826 +++|          SA2    A0+UVRI
03215  M01S00746.282l826 +++|          LX1    59-23
03216  M01S00747.282l826 +++|          AX2    48
03217  M01S00748.282l826 +++|          ZR     X2,PXRX     IF UNIT NOT ASSIGNED
03218  M01S00749.282l826 +++|          MX7    -59
03219  M01S00750.282l826 +++|          PL     X1,PXRX     IF NOT WAITING FOR UNIT GO
03220  M01S00751.282l826 +++|          BX7    -X7*X1      CLEAR UNIT GO  FLAG
03221  M01S00752.282l826 +++|          LX7    23-23-59+23
03222  M01S00753.282l826 +++|          BX7    X7+X6       MERGE UNLOAD STATUS
03223  M01S00754.282l826 +++|          SA7    A1+
03224  M01S00755.282l826 +++|          EQ     PXRX        EXIT
03225  M01S00756.282l826 +++| IXP      SPACE  4,10
03226  M01S00757.282l826 +++|**        IXP - PROCESS INCORRECT EXTERNAL PP REQUEST.
Line S00952 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03227  M01S00952.274l797 +++|*
Line S00953 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03228  M02S00953.282l826 ---|*         ENTRY  (CXRA) = REQUEST.
Line S00758 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03229  M01S00758.282l826 +++|*         ENTRY  (XREQ) = REQUEST.
Line S00954 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03230  M01S00954.274l797 +++|*
Line S00955 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03231  M02S00955.282l826 ---|*         EXIT   TO *CXRX*.
Line S00759 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03232  M01S00759.282l826 +++|*         EXIT   TO *PXRX*.
Line S00956 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03233  M01S00956.274l797 +++|*
Line S00957 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03234  M02S00957.282l826 ---|*         USES   X - 1.
03235  M02S00958.282l826 ---|*                A - 1, 6, 7.
Line S00760 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03236  M01S00760.282l826 +++|*         USES   X - 1, 2.
03237  M01S00761.282l826 +++|*                A - 1, 2.
Line S00959 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03238  M01S00959.274l797 +++|*
Line S00960 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03239  M02S00960.282l826 ---|*         CALLS  WOD.
Line S00762 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03240  M01S00762.282l826 +++|*         CALLS  IXR.
03241  M01S00763.282l826 +++|
03242  M01S00764.282l826 +++|
03243  M01S00765.282l826 +++| IXP      BSS    0           ENTRY
03244  M01S00766.282l826 +++|          SA1    XREQ        GET REQUEST
03245  M01S00767.282l826 +++|          SA2    IXPA        SET EXTERNAL PP REQUEST
03246  M01S00768.282l826 +++|          RJ     IXR         ISSUE EXTERNAL REQUEST ERROR MESSAGE
03247  M01S00769.282l826 +++|          EQ     PXRX        RETURN
03248  M01S00770.282l826 +++|
03249  M01S00771.282l826 +++|
03250  M01S00772.282l826 +++| IXPA     DATA   5L PXR.
03251  M01S00773.282l826 +++| CLS      SPACE  4,10
03252  M01S00774.282l826 +++|**        CLS - CHECK LABELS READ STATUS.
Line S00961 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03253  M01S00961.274l797 +++|*
Line S00962 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03254  M02S00962.282l826 ---|*         MACROS MESSAGE.
Line S00775 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03255  M01S00775.282l826 +++|*         EXIT   (X2) = *UVSN*.
Line S00776 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
03256  M02S00776.ns2772  ---|*                (X6) .LT. 0 IF DENSITY MISMATCH.
Line S00777 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03257  M01S00777.282l826 +++|*                (A2) = ADDRESS OF *UVSN*.
03258  M01S00778.282l826 +++|*                TO CALLER IF INITIAL LABEL CHECK COMPLETE.
03259  M01S00779.282l826 +++|*                TO *PXRX* IF LABEL CHECK NOT PERFORMED OR IN PROGRESS.
03260  M01S00780.282l826 +++|*
03261  M01S00781.282l826 +++|*         USES   X - 2, 6.
03262  M01S00782.282l826 +++|*                A - 2.
Line S00963 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03263  M01S00963.274l797 +++|
03264  M01S00964.274l797 +++|
Line S00965 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03265  M02S00965.282l826 ---| IXR      BSS    0           ENTRY
03266  M02S00966.282l826 ---|          SA1    CXRA        GET REQUEST
03267  M02S00967.282l826 ---|          RJ     WOD         CONVERT BAD REQUEST
03268  M02S00968.282l826 ---|          SA6    IXRA+3
03269  M02S00969.282l826 ---|          SA7    IXRA+4
03270  M02S00970.282l826 ---|          MESSAGE IXRA       ISSUE BAD REQUEST MESSAGE
03271  M02S00971.282l826 ---|          EQ     CXRX        RETURN
03272  M02S00972.282l826 ---|
03273  M02S00973.282l826 ---|
03274  M02S00974.282l826 ---| IXRA     DATA   30H INCORRECT EXTERNAL REQUEST -
03275  M02S00975.282l826 ---|          BSSZ   2
03276  M02S00976.282l826 ---|          DATA   1L.
03277  M02S00977.282l826 ---| QXR      SPACE  4,15
03278  M02S00978.282l826 ---|**        QXR - QUEUE EXTERNAL REQUEST.
Line S00783 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03279  M01S00783.282l826 +++| CLS      SUBR               ENTRY/EXIT
03280  M01S00784.282l826 +++|          SA2    A0+UVSN
03281  M01S00785.282l826 +++|          ZR     X2,PXRX     IF LABEL CHECK NOT PERFORMED
03282  M01S00786.282l826 +++|          BX6    X2
03283  M01S00787.282l826 +++|          LX6    59-23
03284  M01S00788.282l826 +++|          NG     X6,PXRX     IF LABEL CHECK IN PROGRESS
Line S00789 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
03285  M02S00789.ns2772  ---|          LX6    59-20-59+23
Line S00790 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03286  M01S00790.282l826 +++|          EQ     CLSX        RETURN
03287  M01S00791.282l826 +++| MQX      SPACE  4,10
03288  M01S00792.282l826 +++|**        MQX - MAKE QUEUE ENTRY FOR EXTERNAL REQUEST.
Line S00979 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03289  M01S00979.274l797 +++|*
Line S00980 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03290  M02S00980.282l826 ---|*         ENTRY  (CXRA) = REQUEST.
03291  M02S00981.282l826 ---|*                (A0) = UDT ADDRESS.
Line S00793 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03292  M01S00793.282l826 +++|*         ENTRY  (X7) = REQUEST.
Line S00982 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03293  M01S00982.274l797 +++|*
Line S00983 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03294  M02S00983.282l826 ---|*         EXIT   TO CXRX.
Line S00794 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03295  M01S00794.282l826 +++|*         EXIT   TO *PXRX*.
Line S00984 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03296  M01S00984.274l797 +++|*
03297  M01S00985.274l797 +++|*         USES   X - 5.
Line S00986 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03298  M02S00986.282l826 ---|*                A - 5.
03299  M02S00987.282l826 ---|*                B - 2.
Line S00988 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03300  M01S00988.274l797 +++|*
03301  M01S00989.274l797 +++|*         CALLS  MQE.
03302  M01S00990.274l797 +++|
03303  M01S00991.274l797 +++|
Line S00992 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03304  M02S00992.282l826 ---| QXR      BSS    0           ENTRY
03305  M02S00993.282l826 ---|          SA5    CXRA        GET REQUEST
03306  M02S00994.282l826 ---|          SB2    B0+         QUEUE EXTERNAL REQUEST
03307  M02S00995.282l826 ---|          RJ     MQE         ENTER UDT EXTERNAL REQUEST IN QUEUE
03308  M02S00996.282l826 ---|          EQ     CXRX        EXIT
03309  M02S00997.282l826 ---| QXU      SPACE  4,15
03310  M02S00998.282l826 ---|**        QXU - QUEUE EXTERNAL REQUEST IF UNIT UNASSIGNED.
Line S00795 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03311  M01S00795.282l826 +++| MQX      BSS    0           ENTRY
03312  M01S00796.282l826 +++|          SX5    B0
03313  M01S00797.282l826 +++|          RJ     MQE         MAKE QUEUE ENTRY
03314  M01S00798.282l826 +++|          EQ     PXRX        EXIT
03315  M01S00799.282l826 +++| SFL      SPACE  4,10
03316  M01S00800.282l826 +++|**        SFL - SET FLAG IN *UFLA*.
Line S00999 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03317  M01S00999.274l797 +++|*
Line S01000 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03318  M02S01000.282l826 ---|*         ENTRY  (A0) = UDT ADDRESS.
03319  M02S01001.282l826 ---|*                (X3) = *UJID*.
03320  M02S01002.282l826 ---|*                (X5) = REQUEST SHIFTED LEFT CIRCULAR 24 BITS.
Line S00801 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03321  M01S00801.282l826 +++|*         ENTRY  (B3) = BIT LOCATION OF FLAG.
Line S01003 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03322  M01S01003.274l797 +++|*
Line S01004 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03323  M02S01004.282l826 ---|*         EXIT   TO *CXRX* IF REQUEST CANNOT BE PROCESSED.
03324  M02S01005.282l826 ---|*                TO *QXR* TO QUEUE REQUEST.
03325  M02S01006.282l826 ---|*
03326  M02S01007.282l826 ---|*         USES   X - 1, 2, 3, 6, 7.
03327  M02S01008.282l826 ---|*                A - 1, 2.
Line S00802 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03328  M01S00802.282l826 +++|*         USES   X - 1, 6.
03329  M01S00803.282l826 +++|*                A - 1, 6.
Line S01009 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03330  M01S01009.274l797 +++|
03331  M01S01010.274l797 +++|
Line S01011 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03332  M02S01011.282l826 ---| QXU      BSS    0           ENTRY
03333  M02S01012.282l826 ---|          SA1    USWP
03334  M02S01013.282l826 ---|          SA2    A0+UST1
03335  M02S01014.282l826 ---|          MX6    -12
03336  M02S01015.282l826 ---|          SX7    A0
03337  M02S01016.282l826 ---|          BX1    -X6*X1      UNIT SWAP UDT ADDRESS
03338  M02S01017.282l826 ---|          LX2    59-56
03339  M02S01018.282l826 ---|          SX3    X3
03340  M02S01019.282l826 ---|          BX7    X7-X1
03341  M02S01020.282l826 ---|          NZ     X3,CXRX     IF JOB ASSIGNED
03342  M02S01021.282l826 ---|          ZR     X7,CXRX     IF UNIT SELECTED FOR UNIT SWAP
03343  M02S01022.282l826 ---|          PL     X2,QXR      IF UNIT NOT DOWN
03344  M02S01023.282l826 ---|          LX5    -12
03345  M02S01024.282l826 ---|          BX6    -X6*X5      REQUEST CODE
03346  M02S01025.282l826 ---|          SX6    X6-XOF
03347  M02S01026.282l826 ---|          ZR     X6,QXR      IF *XOF* REQUEST
03348  M02S01027.282l826 ---|          EQ     CXRX        DO NOT PROCESS REQUEST
03349  M02S01028.282l826 ---| PQR      SPACE  4,10
03350  M02S01029.282l826 ---|**        PQR - PROCESS QUEUED EXTERNAL REQUEST.
03351  M02S01030.282l826 ---|*
03352  M02S01031.282l826 ---|*         ENTRY  (X5) = REQUEST.
03353  M02S01032.282l826 ---|*                (A0) = UDT ADDRESS.
03354  M02S01033.282l826 ---|*                (B2) = UDT NUMBER.
03355  M02S01034.282l826 ---|*
03356  M02S01035.282l826 ---|*         USES   X - 0, 1, 5, 6.
03357  M02S01036.282l826 ---|*                A - 1.
03358  M02S01037.282l826 ---|*                B - 3.
03359  M02S01038.282l826 ---|
03360  M02S01039.282l826 ---|
03361  M02S01040.282l826 ---| PQR      SUBR               ENTRY/EXIT
03362  M02S01041.282l826 ---|          MX0    -12
03363  M02S01042.282l826 ---|          LX5    12
03364  M02S01043.282l826 ---|          BX1    -X0*X5      FUNCTION CODE
03365  M02S01044.282l826 ---|          MX0    36
03366  M02S01045.282l826 ---|          LX5    12
03367  M02S01046.282l826 ---|          BX6    X0*X5       EXTRACT PARAMETER
03368  M02S01047.282l826 ---|          SA1    TXRP+X1     GET PROCESSOR ADDRESS
03369  M02S01048.282l826 ---|          AX1    18
03370  M02S01049.282l826 ---|          SB3    X1          QUEUED PROCESSOR ADDRESS
03371  M02S01050.282l826 ---|
03372  M02S01051.282l826 ---|*         EXIT TO PROCESSOR WITH -
03373  M02S01052.282l826 ---|*
03374  M02S01053.282l826 ---|*         (X6) = BITS 0 - 35 OF REQUEST LEFT JUSTIFIED.
03375  M02S01054.282l826 ---|*         (X5) = REQUEST SHIFTED LEFT CIRCULAR 24 BITS.
03376  M02S01055.282l826 ---|
03377  M02S01056.282l826 ---|          JP     B3          PROCESS FUNCTION
03378  M02S01057.282l826 ---| ESV      SPACE  4,10
03379  M02S01058.282l826 ---|**        ESV - ENTER SCRATCH VSN.
03380  M02S01059.282l826 ---|*
03381  M02S01060.282l826 ---|*         EXIT   TO *PQRX*.
03382  M02S01061.282l826 ---|
03383  M02S01062.282l826 ---|
03384  M02S01063.282l826 ---| ESV      BSS    0           ENTRY
03385  M02S01064.282l826 ---|          SA2    A0+UVSN
03386  M02S01065.282l826 ---|          MX3    36
03387  M02S01066.282l826 ---|          SX4    B1
03388  M02S01067.282l826 ---|          LX4    22-0
03389  M02S01068.282l826 ---|          BX3    X3*X2
03390  M02S01069.282l826 ---|          ZR     X3,PQRX     IF TAPE NOT MOUNTED
03391  M02S01070.282l826 ---|          BX6    X4+X2       SET SCRATCH FLAG
03392  M02S01071.282l826 ---|          SA6    A2
03393  M02S01072.282l826 ---|          EQ     PQRX        EXIT
03394  M02S01073.282l826 ---| EVS      SPACE  4,10
03395  M02S01074.282l826 ---|**        EVS - ENTER VSN.
03396  M02S01075.282l826 ---|*
03397  M02S01076.282l826 ---|*         EXIT   TO *PQRX*.
03398  M02S01077.282l826 ---|
03399  M02S01078.282l826 ---|
03400  M02S01079.282l826 ---| EVS      BSS    0           ENTRY
03401  M02S01080.282l826 ---|          SA2    A0+UVSN     PRESERVE FLAGS
03402  M02S01081.282l826 ---|          SX4    B1
03403  M02S01082.282l826 ---|          MX3    -24
03404  M02S01083.282l826 ---|          LX4    14-0
03405  M02S01084.282l826 ---|          BX7    -X3*X2
03406  M02S01085.282l826 ---|          ZR     X6,EVS1     IF CLEARING VSN
03407  M02S01086.282l826 ---|          BX2    X3*X2
03408  M02S01087.282l826 ---|          ZR     X2,PQRX     IF TAPE NOT MOUNTED
03409  M02S01088.282l826 ---|          BX6    X6+X7
03410  M02S01089.282l826 ---| EVS1     BX6    -X4*X6      CLEAR DEFAULT VSN FLAG
03411  M02S01090.282l826 ---|          SA6    A2          ENTER VSN
03412  M02S01091.282l826 ---|          EQ     PQRX        EXIT
03413  M02S01092.282l826 ---| RTU      SPACE  4,10
03414  M02S01093.282l826 ---|**        RTU - RETURN UNIT.
03415  M02S01094.282l826 ---|*
03416  M02S01095.282l826 ---|*         EXIT   TO *UNL1*.
03417  M02S01096.282l826 ---|
03418  M02S01097.282l826 ---|
03419  M02S01098.282l826 ---| RTU      BSS    0           ENTRY
Line S00804 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03420  M01S00804.282l826 +++| SFL      BSS    0           ENTRY
Line S01099 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03421  M01S01099.274l797 +++|          SA1    A0+UFLA
Line S01100 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03422  M02S01100.282l826 ---|          SA3    NTAS
03423  M02S01101.282l826 ---|          MX0    1
03424  M02S01102.282l826 ---|          LX0    52-59
03425  M02S01103.282l826 ---|          BX7    -X0*X1      CLEAR END OF SET FLAG
03426  M02S01104.282l826 ---|          LX0    57-59-52+59
03427  M02S01105.282l826 ---|          SX6    X3-1        DECREMENT ASSIGNED UNIT COUNT
03428  M02S01106.282l826 ---|          BX7    -X0*X7      CLEAR REWIND POSITIONING FLAG
03429  M02S01107.282l826 ---|          SA6    A3
03430  M02S01108.282l826 ---|          SA7    A1+
03431  M02S01109.282l826 ---|          SA1    A0+UST4
03432  M02S01110.282l826 ---|          SA3    A0+UJID
03433  M02S01111.282l826 ---|          SX0    PCNA        CLEAR JOB ASSIGNMENT
03434  M02S01112.282l826 ---|          SX7    PULR        SELECT UNLOAD
03435  M02S01113.282l826 ---|          LX3    -36
03436  M02S01114.282l826 ---|          LX1    59-5
03437  M02S01115.282l826 ---|          SX3    X3+
03438  M02S01116.282l826 ---|          PL     X1,UNL1     IF NOT INHIBIT UNLOAD
03439  M02S01117.282l826 ---|          NZ     X3,UNL1     IF ACS UNIT
03440  M02S01118.282l826 ---|          SX7    PRWR        SELECT REWIND
03441  M02S01119.282l826 ---|          EQ     UNL1        PROCESS UNLOAD
03442  M02S01120.282l826 ---| SES      SPACE  4,10
03443  M02S01121.282l826 ---|**        SES - SET EQUIPMENT STATE.
03444  M02S01122.282l826 ---|*
03445  M02S01123.282l826 ---|*         CALLS  MQE.
03446  M02S01124.282l826 ---|*
03447  M02S01125.282l826 ---|*         EXIT   TO *PQRX*.
03448  M02S01126.282l826 ---|
03449  M02S01127.282l826 ---|
03450  M02S01128.282l826 ---| SES      BSS    0           ENTRY
03451  M02S01129.282l826 ---|          SX7    PSES        SET EQUIPMENT STATE IN UDT
03452  M02S01130.282l826 ---|          SX5    B0+
03453  M02S01131.282l826 ---|          RJ     MQE
03454  M02S01132.282l826 ---|          SA1    A0+UST1
03455  M02S01133.282l826 ---|          SX6    B0
03456  M02S01134.282l826 ---|          MX7    -59
03457  M02S01135.282l826 ---|          SA6    A0+UESN     CLEAR EXTERNAL VSN
03458  M02S01136.282l826 ---|          SA6    A0+UVSN     CLEAR VSN
03459  M02S01137.282l826 ---|          LX1    59-56
03460  M02S01138.282l826 ---|          PL     X1,PQRX     IF UNIT NOT DOWN CURRENTLY
03461  M02S01139.282l826 ---|          BX7    -X7*X1      CLEAR UNIT DOWN FLAG
03462  M02S01140.282l826 ---|          LX7    56-56-59+56
03463  M02S01141.282l826 ---|          SA7    A1
03464  M02S01142.282l826 ---|          EQ     PQRX        EXIT
03465  M02S01143.282l826 ---| UNL      SPACE  4,10
03466  M02S01144.282l826 ---|**        UNL - UNLOAD UNIT.
03467  M02S01145.282l826 ---|*
03468  M02S01146.282l826 ---|*         CALLS  MQE.
03469  M02S01147.282l826 ---|*
03470  M02S01148.282l826 ---|*         EXIT   TO *PQRX*.
03471  M02S01149.282l826 ---|
03472  M02S01150.282l826 ---|
03473  M02S01151.282l826 ---| UNL      BSS    0           ENTRY
03474  M02S01152.282l826 ---|          SX6    B0
03475  M02S01153.282l826 ---|          SX0    B0          FLAG UNLOAD FUNCTION
03476  M02S01154.282l826 ---|          SX7    PULR        SELECT UNLOAD
03477  M02S01155.282l826 ---|          SA6    A0+UESN     CLEAR EXTERNAL VSN
03478  M02S01156.282l826 ---|          SA6    A0+UVSN     CLEAR VSN
03479  M02S01157.282l826 ---|
03480  M02S01158.282l826 ---|*         ENTRY FROM *RTU* WITH (X0) = *PCNA*.
03481  M02S01159.282l826 ---|
03482  M02S01160.282l826 ---| UNL1     SA1    A0+UST1
03483  M02S01161.282l826 ---|          BX2    X1
03484  M02S01162.282l826 ---|          LX1    59-56
03485  M02S01163.282l826 ---|          NG     X1,UNL3     IF UNIT DOWN
03486  M02S01164.282l826 ---|          MX1    -2
03487  M02S01165.282l826 ---|          BX3    -X1*X2
03488  M02S01166.282l826 ---|          NZ     X3,UNL2     IF READY OR BUSY
03489  M02S01167.282l826 ---|          SX7    PCFI        CLEAR FILE IDENTIFIER
03490  M02S01168.282l826 ---| UNL2     BX5    X5-X5       MAKE QUEUE ENTRY
03491  M02S01169.282l826 ---|          RJ     MQE
03492  M02S01170.282l826 ---| UNL3     ZR     X0,PQRX     IF NOT TO CLEAR ASSIGNMENT
03493  M02S01171.282l826 ---|          SA2    A0+UFLA     INDICATE CLEAR JOB ASSIGNMENT IN PROGRESS
03494  M02S01172.282l826 ---|          MX5    1
03495  M02S01173.282l826 ---|          LX5    54-59
03496  M02S01174.282l826 ---|          BX7    X5+X2
03497  M02S01175.282l826 ---|          SA7    A2
03498  M02S01176.282l826 ---|          BX7    X0
03499  M02S01177.282l826 ---|          BX5    X5-X5
03500  M02S01178.282l826 ---|          RJ     MQE
03501  M02S01179.282l826 ---|          EQ     PQRX        RETURN
03502  M02S01180.282l826 ---| CXU      SPACE  4,25
03503  M02S01181.282l826 ---|**        CXU - CHECK EXTERNAL UDT UPDATE REQUEST.
03504  M02S01182.282l826 ---|*
03505  M02S01183.282l826 ---|*         ENTRY  (X5) = REQUEST WORD (RCAL+0).
03506  M02S01184.282l826 ---|*                (A5) = CALL BLOCK ADDRESS (RCAL).
03507  M02S01185.282l826 ---|*
03508  M02S01186.282l826 ---|*         EXIT   (X5) = 0 IF UPDATE MADE OR ERROR.
03509  M02S01187.282l826 ---|*                (X5) UNCHANGED IF NOT *RUU* REQUEST.
03510  M02S01188.282l826 ---|*                (A5) = CALL BLOCK ADDRESS.
03511  M02S01189.282l826 ---|*
03512  M02S01190.282l826 ---|*T  RCAL  12/ FC,18/ 0,6/ FW,6/ WC,18/ UDT ADDRESS
Figure RCAL

01718232429 UDT ADDRESS WC FW30474859 0 FC

03513  M02S01191.282l826 ---|*T,       60/ UPDATE WORD 1
Figure

029 UPDATE WORD 13059 UPDATE WORD 1

03514  M02S01192.282l826 ---|*T,       60/ UPDATE WORD 2
Figure

029 UPDATE WORD 23059 UPDATE WORD 2

03515  M02S01193.282l826 ---|*T,       60/ UPDATE WORD 3
Figure

029 UPDATE WORD 33059 UPDATE WORD 3

03516  M02S01194.282l826 ---|*T,       60/ UPDATE WORD 4
Figure

029 UPDATE WORD 43059 UPDATE WORD 4

03517  M02S01195.282l826 ---|*T,       60/ UPDATE WORD 5
Figure

029 UPDATE WORD 53059 UPDATE WORD 5

03518  M02S01196.282l826 ---|*
03519  M02S01197.282l826 ---|*         UDT ADDRESS        ADDRESS OF UDT ENTRY TO UPDATE.
03520  M02S01198.282l826 ---|*         FW                 INDEX INTO ENTRY OF FIRST WORD TO UPDATE.
03521  M02S01199.282l826 ---|*         WC                 NUMBER OF WORDS TO UPDATE (1 - 5).
03522  M02S01200.282l826 ---|*
03523  M02S01201.282l826 ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
03524  M02S01202.282l826 ---|*                A - 0, 5, 7.
03525  M02S01203.282l826 ---|*                B - 2, 3, 4.
03526  M02S01204.282l826 ---|
03527  M02S01205.282l826 ---|
03528  M02S01206.282l826 ---| CXU2     SX7    B0          CLEAR REQUEST WORD
03529  M02S01207.282l826 ---|          SX5    B0
03530  M02S01208.282l826 ---|          SA7    RCAL
03531  M02S01209.282l826 ---|
03532  M02S01210.282l826 ---| CXU      SUBR               ENTRY/EXIT
03533  M02S01211.282l826 ---|          BX1    X5
03534  M02S01212.282l826 ---|          AX1    48
03535  M02S01213.282l826 ---|          SX6    X1-RUU
03536  M02S01214.282l826 ---|          NZ     X6,CXUX     IF NOT UDT UPDATE REQUEST
03537  M02S01215.282l826 ---|          TX7    X5,-UBUF
03538  M02S01216.282l826 ---|          TX3    X5,-UBUF,LWA
03539  M02S01217.282l826 ---|          BX2    -X3-X7
03540  M02S01218.282l826 ---|          NG     X2,CXU2     IF INCORRECT UDT ADDRESS
03541  M02S01219.282l826 ---|          SA0    X5          (A0) = UDT ADDRESS
03542  M02S01220.282l826 ---|          MX0    -6
03543  M02S01221.282l826 ---|          AX5    18
03544  M02S01222.282l826 ---|          BX6    -X0*X5
03545  M02S01223.282l826 ---|          AX5    6
03546  M02S01224.282l826 ---|          BX7    -X0*X5
03547  M02S01225.282l826 ---|          SB2    X6          (B2) = WORD COUNT
03548  M02S01226.282l826 ---|          SB3    X7          (B3) = UDT OFF-SET
03549  M02S01227.282l826 ---|          SB4    B2-5
03550  M02S01228.282l826 ---|          GT     B4,CXU2     IF WORD COUNT OUT OF RANGE
03551  M02S01229.282l826 ---| CXU1     LE     B2,CXU2     IF LAST UPDATE WORD
03552  M02S01230.282l826 ---|          SA5    A5+B1
03553  M02S01231.282l826 ---|          BX7    X5
03554  M02S01232.282l826 ---|          SA7    A0+B3
03555  M02S01233.282l826 ---|          SB2    B2-B1
03556  M02S01234.282l826 ---|          SB3    B3+B1
03557  M02S01235.282l826 ---|          EQ     CXU1        GET NEXT UPDATE WORD
03558  M02S01236.282l826 ---| IUN      SPACE  4,45
03559  M02S01237.282l826 ---|**        IUN - PROCESS INTERLOCKED REQUEST FOR A UNIT.
03560  M02S01238.282l826 ---|*
03561  M02S01239.282l826 ---|*         PROGRAMMING NOTE - THIS ROUTINE IS USED BY COPIES
03562  M02S01240.282l826 ---|*         OF *1MT* WHEN IT IS NECESSARY TO PROCESS AN INTERLOCKED
03563  M02S01241.282l826 ---|*         REQUEST.  THE PP ISSUING THE REQUEST WILL WAIT FOR
03564  M02S01242.282l826 ---|*         RESPONSE IN WORD *URIW* AND THEREFORE, IF A PP EVER
03565  M02S01243.282l826 ---|*         GETS A *TDAM* REJECT DUE TO WRITE TO NON-ZERO FIRST WORD,
03566  M02S01244.282l826 ---|*         THAT PP *MUST* DROP SINCE THIS ROUTINE MAY BE WAITING
03567  M02S01245.282l826 ---|*         FOR ALL QUIET.
03568  M02S01246.282l826 ---|*
03569  M02S01247.282l826 ---|*         ENTRY  (X1) = REQUEST FROM LOCATION *URIW*.
03570  M02S01248.282l826 ---|*
03571  M02S01249.282l826 ---|*         REQUEST WORD FROM *1MT* -
03572  M02S01250.282l826 ---|*T,URIW   12/UDT ADDR,12/CH,18/0,18/FC
Figure URIW

0171829FC03035364748590CHUDT ADDR

03573  M02S01251.282l826 ---|*
03574  M02S01252.282l826 ---|*         CH     CHANNEL INDEX
03575  M02S01253.282l826 ---|*
03576  M02S01254.282l826 ---|*         FC     FUNCTION CODE
03577  M02S01255.282l826 ---|*
03578  M02S01256.282l826 ---|*         0      INTERLOCK AND RESERVE A UNIT.  THIS MECHANISM IS
03579  M02S01257.282l826 ---|*                USED BY *1MT* WHEN THE CONNECT OPERATION FAILS.
03580  M02S01258.282l826 ---|*
03581  M02S01259.282l826 ---|*         1      DOWN A UNIT.  NOTE - IT IS THE RESPONSIBILITY OF
03582  M02S01260.282l826 ---|*                THE CALLING PP TO CLEAR *URIW* FOR THIS FUNCTION
03583  M02S01261.282l826 ---|*                IF THE FUNCTION IS REJECTED.  THIS FUNCTION
03584  M02S01262.282l826 ---|*                IS USED IF A *CONNECT REJECT* OCCURS TO
03585  M02S01263.282l826 ---|*                INTERLOCK DOWNING/ASSIGNING OF THE UNIT.
03586  M02S01264.282l826 ---|*
03587  M02S01265.282l826 ---|*         2      UNCONDITIONAL DOWN UNIT (NO REJECT CASES).
03588  M02S01266.282l826 ---|*                THIS FUNCTION IS USED BY THE TAPE CONTROLLER DIALOGUE
03589  M02S01267.282l826 ---|*                MONITORING PROGRAM TO SET THE DOWN FLAG ON THE
03590  M02S01268.282l826 ---|*                MONITORED UNIT BEFORE THE I/O FUNCTION IS INITIATED.
03591  M02S01269.282l826 ---|*                THIS PREVENTS AN ACTIVE *1MT* FROM PROCESSING THE
03592  M02S01270.282l826 ---|*                UNIT BEFORE IT DETECTS THAT MONITORING IS IN EFFECT.
03593  M02S01271.282l826 ---|*                *1MT* CLEARS THE DOWN FLAG IMMEDIATELY BEFORE
03594  M02S01272.282l826 ---|*                PROCESSING THE MONITORED UNIT.
03595  M02S01273.282l826 ---|*
03596  M02S01274.282l826 ---|*         EXIT   (URIW) = 0 FOR FUNCTIONS 0 AND 2.
03597  M02S01275.282l826 ---|*                (URIW) = 48/0,12/RC FOR FUNCTION 1.
03598  M02S01276.282l826 ---|*
03599  M02S01277.282l826 ---|*                RC = 0 IF UNIT SUCCESSFULLY DOWNED.
03600  M02S01278.282l826 ---|*                   = 1 IF UNIT NOT DOWNED. (REJECT)
03601  M02S01279.282l826 ---|
03602  M02S01280.282l826 ---|
03603  M02S01281.282l826 ---|*         DOWN UNIT.
03604  M02S01282.282l826 ---|
03605  M02S01283.282l826 ---| IUN3     SA1    X4+UST1
03606  M02S01284.282l826 ---|          MX0    1
03607  M02S01285.282l826 ---|          LX0    -3
03608  M02S01286.282l826 ---|          SX7    B0
03609  M02S01287.282l826 ---|          BX6    X1+X0       SET DOWN BIT
03610  M02S01288.282l826 ---|          NE     B2,B1,IUN4  IF UNCONDITIONAL DOWN UNIT FUNCTION
03611  M02S01289.282l826 ---|          BX2    X0*X1
03612  M02S01290.282l826 ---|          SX7    B1          SET REJECT RESPONSE
03613  M02S01291.282l826 ---|          NZ     X2,IUN5     IF UNIT ALREADY DOWNED
03614  M02S01292.282l826 ---|          SA3    X4+UJID
03615  M02S01293.282l826 ---|          SA5    X4+UREQ
03616  M02S01294.282l826 ---|          SX3    X3
03617  M02S01295.282l826 ---|          NZ     X5,IUN5     IF REQUEST
03618  M02S01296.282l826 ---|          NZ     X3,IUN5     IF JOB ASSIGNED
03619  M02S01297.282l826 ---|          BX7    X7-X7       SET UNIT DOWNED STATUS
03620  M02S01298.282l826 ---|          SA7    X4+UVSN     CLEAR VSN FIELD
03621  M02S01299.282l826 ---| IUN4     SA6    A1+         SET UNIT DOWN FLAG
03622  M02S01300.282l826 ---| IUN5     SA7    URIW
03623  M02S01301.282l826 ---|
03624  M02S01302.282l826 ---| IUN      SUBR               ENTRY/EXIT
03625  M02S01303.282l826 ---|          SA5    UITW-2
03626  M02S01304.282l826 ---|          SB2    X1
03627  M02S01305.282l826 ---|          MX0    -12
03628  M02S01306.282l826 ---|          LX1    12
03629  M02S01307.282l826 ---|          BX4    -X0*X1
03630  M02S01308.282l826 ---|          NZ     B2,IUN3     IF DOWN UNIT FUNCTION
03631  M02S01309.282l826 ---|          LX1    12
03632  M02S01310.282l826 ---|          SX1    X1+UITW-1
03633  M02S01311.282l826 ---|          BX7    -X0*X1
03634  M02S01312.282l826 ---|          SB3    59-52+1     SET SHIFT FOR CHANNEL CHECK
03635  M02S01313.282l826 ---|          SA2    X4+UST1
03636  M02S01314.282l826 ---|
03637  M02S01315.282l826 ---|*         WAIT ALL QUIET ON OTHER *1MT*S WHICH CAN ACCESS UNIT.
03638  M02S01316.282l826 ---|
03639  M02S01317.282l826 ---| IUN1     SB3    B3-B1       DECREMENT SHIFT COUNT
03640  M02S01318.282l826 ---|          SA5    A5+2
03641  M02S01319.282l826 ---|          SA3    A5+B1
03642  M02S01320.282l826 ---|          NG     X5,IUN2     IF END OF CHANNEL TABLE
03643  M02S01321.282l826 ---|          SX0    A5
03644  M02S01322.282l826 ---|          BX0    X0-X7
03645  M02S01323.282l826 ---|          ZR     X0,IUN1     IF *1MT* MAKING REQUEST
03646  M02S01324.282l826 ---|          PL     X3,IUN1     IF NO ACTIVITY
03647  M02S01325.282l826 ---|          LX3    X2,B3
03648  M02S01326.282l826 ---|          PL     X3,IUN1     IF UNIT NOT ACCESSABLE ON THIS CHANNEL
03649  M02S01327.282l826 ---|          SB3    B3+B1
03650  M02S01328.282l826 ---|          RECALL
03651  M02S01329.282l826 ---|          SA5    A5-2
03652  M02S01330.282l826 ---|          EQ     IUN1        RECHECK CHANNEL
03653  M02S01331.282l826 ---|
03654  M02S01332.282l826 ---| IUN2     SA1    X4          SET REQUEST IN PROGRESS
03655  M02S01333.282l826 ---|          SX2    RIP
03656  M02S01334.282l826 ---|          MX0    -48
03657  M02S01335.282l826 ---|          BX6    -X0*X1
03658  M02S01336.282l826 ---|          LX2    48
03659  M02S01337.282l826 ---|          MX7    0
03660  M02S01338.282l826 ---|          BX6    X6+X2
Line S00805 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03661  M01S00805.282l826 +++|          SX6    B1
03662  M01S00806.282l826 +++|          LX6    B3
03663  M01S00807.282l826 +++|          BX6    X1+X6
Line S01339 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03664  M01S01339.274l797 +++|          SA6    A1
Line S01340 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03665  M02S01340.282l826 ---|          EQ     IUN5        CLEAR INTERLOCK
Line S00808 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03666  M01S00808.282l826 +++|          EQ     PXRX        EXIT
Line S01341 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03667  M01S01341.274l797 +++|          TITLE  PERIODIC PROCESSING.
03668  M01S01342.274l797 +++| CAR      SPACE  4,10
03669  M01S01343.274l797 +++|**        CAR - CHECK ACS MOUNT REQUESTS.
03670  M01S01344.274l797 +++|*
Line S00809 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03671  M01S00809.282l826 +++|*         ENTRY  (X1) = (ACRF).
03672  M01S00810.282l826 +++|*                (A1) = ADDRESS OF *ACRF*.
03673  M01S00811.282l826 +++|*
Line S01345 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03674  M01S01345.274l797 +++|*         EXIT   MOUNT REQUEST MADE IF NECESSARY.
Line S01346 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03675  M02S01346.282l826 ---|*
03676  M02S01347.282l826 ---|*         USES   X - 1.
03677  M02S01348.282l826 ---|*                A - 1.
03678  M02S01349.282l826 ---|*                B - 7.
Line S01350 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03679  M01S01350.274l797 +++|*
03680  M01S01351.274l797 +++|*         CALLS  FAV, MAV.
03681  M01S01352.274l797 +++|
03682  M01S01353.274l797 +++|
Line S01354 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03683  M02S01354.282l826 ---| CAR4     SX6    B0+         CLEAR ACS REQUEST FLAG
03684  M02S01355.282l826 ---|          SA6    ACRF
03685  M02S01356.282l826 ---|
Line S01357 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03686  M01S01357.274l797 +++| CAR      SUBR               ENTRY/EXIT
Line S01358 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03687  M02S01358.282l826 ---|          SA2    USWP
03688  M02S01359.282l826 ---|          SA1    EXMR
03689  M02S01360.282l826 ---|          NZ     X2,CARX     IF UNIT SWAP IN PROGRESS
03690  M02S01361.282l826 ---|          ZR     X1,CAR2     IF NO EXTERNAL MOUNT REQUEST
03691  M02S01362.282l826 ---|
03692  M02S01363.282l826 ---|*         CHECK EXTERNAL MOUNT REQUEST.
03693  M02S01364.282l826 ---|
03694  M02S01365.282l826 ---|          SA3    X1+UJID
03695  M02S01366.282l826 ---|          SA4    X1+UST1
03696  M02S01367.282l826 ---|          MX6    36
03697  M02S01368.282l826 ---|          SX7    B0
03698  M02S01369.282l826 ---|          BX1    X6*X1       VSN
03699  M02S01370.282l826 ---|          SA7    A1          CLEAR EXTERNAL MOUNT REQUEST
03700  M02S01371.282l826 ---|          SX7    X3+
03701  M02S01372.282l826 ---|          LX4    59-56
03702  M02S01373.282l826 ---|          LX3    -36
03703  M02S01374.282l826 ---|          NZ     X7,CAR2     IF UNIT ASSIGNED
03704  M02S01375.282l826 ---|          SA3    X3+AMST
03705  M02S01376.282l826 ---|          NG     X4,CAR2     IF UNIT DOWN
03706  M02S01377.282l826 ---|          SB7    A3+         AST ADDRESS
03707  M02S01378.282l826 ---|          MX7    -3
03708  M02S01379.282l826 ---|          BX3    -X7*X3
03709  M02S01380.282l826 ---|          NZ     X3,CAR2     IF MOUNT OR DISMOUNT OR CONTROL PATH ERROR
03710  M02S01381.282l826 ---| CAR1     RJ     FAV         FIND ACS VSN
03711  M02S01382.282l826 ---|          NE     B3,B4,CAR2  IF ALREADY ACTIVITY ON VSN
03712  M02S01383.282l826 ---|          SB6    B7+         SET UNIT FOR MOUNT
Line S00812 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03713  M01S00812.282l826 +++|          SX6    B0
03714  M01S00813.282l826 +++|          SB7    MRT
03715  M01S00814.282l826 +++|          SA6    A1
03716  M01S00815.282l826 +++| CAR1     SA1    B7
03717  M01S00816.282l826 +++|          SB7    B7+B1       ADVANCE MRT POINTER
03718  M01S00817.282l826 +++|          ZR     X1,CARX     IF END OF MOUNT REQUESTS
03719  M01S00818.282l826 +++|          RJ     FAV         FIND VSN
03720  M01S00819.282l826 +++|          NZ     B3,CAR1     IF ACTIVITY OR ERROR ON VSN
03721  M01S00820.282l826 +++|          ZR     B6,CARX     IF NO UNIT AVAILABLE FOR MOUNT
Line S01384 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03722  M01S01384.274l797 +++|          RJ     MAV         MOUNT VSN
Line S01385 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03723  M02S01385.282l826 ---|
03724  M02S01386.282l826 ---|*         CHECK *RESEX* MOUNT REQUESTS.
03725  M02S01387.282l826 ---|
03726  M02S01388.282l826 ---| CAR2     SB7    MRT
03727  M02S01389.282l826 ---| CAR3     SA1    B7
03728  M02S01390.282l826 ---|          SB7    B7+B1       ADVANCE MRT POINTER
03729  M02S01391.282l826 ---|          ZR     X1,CAR4     IF END OF MRT
03730  M02S01392.282l826 ---|          RJ     FAV         FIND VSN
03731  M02S01393.282l826 ---|          NE     B3,B4,CAR3  IF ALREADY ACTIVITY ON VSN
03732  M02S01394.282l826 ---|          ZR     B6,CAR4     IF NO UNIT AVAILABLE FOR MOUNT
03733  M02S01395.282l826 ---|          RJ     MAV         MOUNT VSN
03734  M02S01396.282l826 ---|          EQ     CAR3        CHECK NEXT ENTRY
Line S00821 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03735  M01S00821.282l826 +++|          EQ     CAR1        CHECK NEXT ENTRY
Line S01397 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03736  M01S01397.274l797 +++| CAU      SPACE  4,10
03737  M01S01398.274l797 +++|**        CAU - CHECK ACS UNITS.
03738  M01S01399.274l797 +++|*
Line S01400 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03739  M02S01400.282l826 ---|*         EXIT   MOUNT OR DISMOUNT OPERATION TERMINATED IF ACS SERVER
Line S00822 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03740  M01S00822.282l826 +++|*         EXIT   VSN ERROR TABLE CLEARED.
03741  M01S00823.282l826 +++|*                MOUNT OR DISMOUNT OPERATION TERMINATED IF ACS SERVER
Line S01401 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03742  M01S01401.274l797 +++|*                  REQUEST TIMED OUT.
Line S01402 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03743  M02S01402.282l826 ---|*                CONTROL PATH ERROR AND VSN NOT AVAILABLE FLAGS
03744  M02S01403.282l826 ---|*                  CLEARED.
03745  M02S01404.282l826 ---|*
03746  M02S01405.282l826 ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
03747  M02S01406.282l826 ---|*                A - 2, 3, 4, 6.
Line S00824 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03748  M01S00824.282l826 +++|*                CONTROL PATH ERROR CLEARED IN ACS UNIT UDT ENTRIES.
Line S01407 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03749  M01S01407.274l797 +++|
03750  M01S01408.274l797 +++|
03751  M01S01409.274l797 +++| CAU      SUBR               ENTRY/EXIT
Line S01410 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03752  M02S01410.282l826 ---|          TA3    -ASTE,UAST
03753  M02S01411.282l826 ---|          SX0    101B
03754  M02S01412.282l826 ---|          SX7    14B
03755  M02S01413.282l826 ---| CAU1     SA3    A3+ASTE
03756  M02S01414.282l826 ---|          ZR     X3,CAUX     IF ALL UNITS CHECKED
Line S00825 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03757  M01S00825.282l826 +++|          SX6    B0+         CLEAR VSN ERROR TABLE
03758  M01S00826.282l826 +++|          SA6    VET
03759  M01S00827.282l826 +++|          TB3    -UNITL,UBUF
03760  M01S00828.282l826 +++|          TB4    0,UBUF,LWA
03761  M01S00829.282l826 +++|          SX0    11B
03762  M01S00830.282l826 +++|          SX7    4
03763  M01S00831.282l826 +++| CAU1     SB3    B3+UNITL
03764  M01S00832.282l826 +++|          EQ     B3,B4,CAUX  IF ALL UNITS CHECKED
03765  M01S00833.282l826 +++|          SA3    B3+UMST
Line S01415 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03766  M01S01415.274l797 +++|          BX1    X0*X3
03767  M01S01416.274l797 +++|          BX6    X7*X3
03768  M01S01417.274l797 +++|          SX1    X1-1
Line S01418 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03769  M02S01418.282l826 ---|          NZ     X6,CAU2     IF CONTROL PATH ERROR OR VSN NOT AVAILABLE
Line S00834 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03770  M01S00834.282l826 +++|          NZ     X6,CAU2     IF CONTROL PATH ERROR
Line S01419 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03771  M01S01419.274l797 +++|          NZ     X1,CAU1     IF NOT WAITING FOR RESPONSE FROM SERVER
03772  M01S01420.274l797 +++|          SA2    RTIM
Line S01421 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03773  M02S01421.282l826 ---|          SA4    A3+ARQP-AMST
Line S00835 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03774  M01S00835.282l826 +++|          SA4    B3+UARP
Line S01422 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03775  M01S01422.274l797 +++|          MX6    -24
03776  M01S01423.274l797 +++|          AX2    36          REAL TIME SECONDS
03777  M01S01424.274l797 +++|          BX1    -X6*X4      RESPONSE TIME OUT
03778  M01S01425.274l797 +++|          IX1    X2-X1
03779  M01S01426.274l797 +++|          NG     X1,CAU1     IF NOT TIMED OUT
03780  M01S01427.274l797 +++|          SA1    ATRC        COUNT RESPONSE TIME OUT
03781  M01S01428.274l797 +++|          SX6    B1
03782  M01S01429.274l797 +++|          IX6    X1+X6
03783  M01S01430.274l797 +++|          SA6    A1+
Line S01431 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03784  M02S01431.282l826 ---| CAU2     MX6    -17
03785  M02S01432.282l826 ---|          LX6    7
Line S00836 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03786  M01S00836.282l826 +++| CAU2     MX6    -20
03787  M01S00837.282l826 +++|          LX6    4
Line S01433 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03788  M01S01433.274l797 +++|          BX6    -X6*X3      CLEAR VSN AND STATUS FLAGS
03789  M01S01434.274l797 +++|          SA6    A3          SET DISMOUNTED STATUS
03790  M01S01435.274l797 +++|          EQ     CAU1        CHECK NEXT UNIT
Line S01436 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03791  M02S01436.282l826 ---| COR      SPACE  4,20
Line S00838 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03792  M01S00838.282l826 +++| COR      SPACE  4,15
Line S01437 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03793  M01S01437.274l797 +++|**        COR - CHECK OPERATOR REQUESTS.
03794  M01S01438.274l797 +++|*
03795  M01S01439.274l797 +++|*         ENTRY  (X1) = (OPRF) .LT. 0 IF NEW OPERATOR REQUEST.
03796  M01S01440.274l797 +++|*                (X1) = (OPRF) .GE. 0 IF NOT NEW OPERATOR REQUEST.
03797  M01S01441.274l797 +++|*                (A1) = ADDRESS OF *OPRF*.
03798  M01S01442.274l797 +++|*                (X5) = *ITIM* SET FOR 2 SECOND INTERVAL TEST.
03799  M01S01443.274l797 +++|*
03800  M01S01444.274l797 +++|*         EXIT   PREVIEW DISPLAY PROMPT ISSUED IF NEW OPERATOR REQUEST
03801  M01S01445.274l797 +++|*                  OR IF OLD OPERATOR REQUESTS AND DELAY EXPIRED.
03802  M01S01446.274l797 +++|*                PREVIEW DISPLAY PROMPT CLEARED IF NO OPERATOR
03803  M01S01447.274l797 +++|*                  REQUESTS.
03804  M01S01448.274l797 +++|*                (X5) = *ITIM* SET FOR 2 SECOND INTERVAL TEST.
03805  M01S01449.274l797 +++|*                (OPRF) = 0.
03806  M01S01450.274l797 +++|*
Line S01451 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03807  M02S01451.282l826 ---|*         USES   X - 1, 2, 3, 4, 6.
03808  M02S01452.282l826 ---|*                A - 1, 2, 3, 4, 6.
03809  M02S01453.282l826 ---|*
Line S01454 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03810  M01S01454.274l797 +++|*         MACROS MESSAGE.
03811  M01S01455.274l797 +++|
03812  M01S01456.274l797 +++|
03813  M01S01457.274l797 +++| COR      SUBR               ENTRY/EXIT
03814  M01S01458.274l797 +++|          SA4    RTIM
03815  M01S01459.274l797 +++|          SX6    B0+
03816  M01S01460.274l797 +++|          SA6    A1          CLEAR NEW REQUEST FLAG
03817  M01S01461.274l797 +++|          AX4    36          REAL TIME SECONDS
03818  M01S01462.274l797 +++|          NG     X1,COR3     IF NEW REQUEST
03819  M01S01463.274l797 +++|
03820  M01S01464.274l797 +++|*         CHECK FOR OLD OPERATOR REQUESTS.
03821  M01S01465.274l797 +++|
03822  M01S01466.274l797 +++|          SA3    PBFL
03823  M01S01467.274l797 +++|          TB3    B0,UBUF     SET UDT FWA
03824  M01S01468.274l797 +++|          TB4    B0,UBUF,LWA SET UDT LWA+1
03825  M01S01469.274l797 +++|          NZ     X3,COR2     IF PREVIEW REQUESTS PRESENT
Line S01470 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03826  M02S01470.282l826 ---|          SX6    171B
03827  M02S01471.282l826 ---|          LX6    12
03828  M02S01472.282l826 ---| COR1     SA3    B3+UVSN
03829  M02S01473.282l826 ---|          EQ     B3,B4,COR4  IF ALL UNITS CHECKED
Line S00839 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03830  M01S00839.282l826 +++| COR1     EQ     B3,B4,COR4  IF ALL UNITS CHECKED
03831  M01S00840.282l826 +++|          SA3    B3+UVRI
Line S01474 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03832  M01S01474.274l797 +++|          SB3    B3+UNITL    ADVANCE UDT ADDRESS
Line S01475 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03833  M02S01475.282l826 ---|          BX3    X6*X3       ERROR CODE AND MOUNT FLAG
03834  M02S01476.282l826 ---| COR2     ZR     X3,COR1     IF NO OPERATOR REQUEST
Line S00841 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03835  M01S00841.282l826 +++|          LX3    59-0
03836  M01S00842.282l826 +++|          PL     X3,COR1     IF NO PREVIEW DISPLAY MESSAGE
Line S01477 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03837  M01S01477.274l797 +++|
03838  M01S01478.274l797 +++|*         CHECK TIME DELAY.
03839  M01S01479.274l797 +++|
Line S01480 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03840  M02S01480.282l826 ---|          SA1    CORA
Line S00843 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03841  M01S00843.282l826 +++| COR2     SA1    CORA
Line S01481 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03842  M01S01481.274l797 +++|          ZR     X1,COR3     IF NO TIME DELAY
03843  M01S01482.274l797 +++|          IX1    X4-X1
03844  M01S01483.274l797 +++|          NG     X1,CORX     IF NOT TIME TO REISSUE MESSAGE
03845  M01S01484.274l797 +++|
03846  M01S01485.274l797 +++|*         ISSUE MESSAGE.
03847  M01S01486.274l797 +++|
03848  M01S01487.274l797 +++| COR3     MESSAGE  CORB,2    * CHECK E,P DISPLAY*
03849  M01S01488.274l797 +++|          SX6    NTIM
03850  M01S01489.274l797 +++|          IX6    X4+X6       SET TIME FOR NEXT MESSAGE ISSUE
03851  M01S01490.274l797 +++|          SA6    CORA
03852  M01S01491.274l797 +++|          EQ     CORX        RETURN
03853  M01S01492.274l797 +++|
03854  M01S01493.274l797 +++|*         INSURE MESSAGE CLEARED WHEN NO REQUESTS PRESENT.
03855  M01S01494.274l797 +++|
03856  M01S01495.274l797 +++| COR4     SA1    CORA
03857  M01S01496.274l797 +++|          ZR     X1,CORX     IF NO MESSAGE ISSUED
03858  M01S01497.274l797 +++|          SX6    B0          SET NO MESSAGE
03859  M01S01498.274l797 +++|          SA6    A1
03860  M01S01499.274l797 +++|          MESSAGE  =0,2      CLEAR MESSAGE
03861  M01S01500.274l797 +++|          EQ     CORX        RETURN
03862  M01S01501.274l797 +++|
03863  M01S01502.274l797 +++|
03864  M01S01503.274l797 +++| CORA     CON    0           TIME FOR DELAYED MESSAGE REISSUE
03865  M01S01504.274l797 +++| CORB     DATA   C*$CHECK E,P DISPLAY*
Line S01505 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03866  M02S01505.282l826 ---|*CORB     DATA   C*$CHECK TMSDIS,PRE*  (TMS ACTIVE)
Line S01506 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03867  M01S01506.274l797 +++| CUA      SPACE  4,15
03868  M01S01507.274l797 +++|**        CUA - CHECK UNIT ACTIVITY.
03869  M01S01508.274l797 +++|*
03870  M01S01509.274l797 +++|*         ENTRY  (X5) = *ITIM* SET FOR 2 SECOND INTERVAL TEST.
Line S00844 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03871  M01S00844.282l826 +++|*                (X1) = (CUAF).
03872  M01S00845.282l826 +++|*                (A1) = ADDRESS OF *CUAF*.
Line S01510 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03873  M01S01510.274l797 +++|*
03874  M01S01511.274l797 +++|*         EXIT   (X5) = *ITIM* SET FOR 2 SECOND INTERVAL TEST.
03875  M01S01512.274l797 +++|*                LABEL CHECK INITIATED ON READY UNASSIGNED UNITS.
Line S01513 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03876  M02S01513.282l826 ---|*                ACS UNITS UNLOADED IF ASSIGNMENT TIMEOUT EXPIRED.
03877  M02S01514.282l826 ---|*                LABEL INFORMATION CLEARED ON UNASSIGNED UNITS IF READY
03878  M02S01515.282l826 ---|*                  DROP DETECTED.
03879  M02S01516.282l826 ---|*
Line S01032 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03880  M02S01032.282l826 ---| CXR      SPACE  4,40
03881  M02S01033.282l826 ---|**        CXR - CHECK EXTERNAL REQUEST.
03882  M02S01034.282l826 ---|*         THIS HANDLES *MAGNET* INTERFACE WITH THE *DSD/1DS* AND
03883  M02S01035.282l826 ---|*         *0DF*/*0RT*.
03884  M02S01036.282l826 ---|*
03885  M02S01037.282l826 ---|*         ENTRY  (X5) = REQUEST
03886  M02S01038.282l826 ---|*                (A5) = ADDRESS OF REQUEST.
03887  M02S01039.282l826 ---|*                (A0) = UDT ADDRESS IF UDT REQUEST TO BE PROCESSED.
03888  M02S01040.282l826 ---|*                (B2) = 0 IF UDT REQUEST TO BE QUEUED.
03889  M02S01041.282l826 ---|*                (B2) = UDT NUMBER IF UDT REQUEST TO BE PROCESSED.
03890  M02S01042.282l826 ---|*
Line S01043 Modification History
M01 (Removed by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03891  M03S01043.282l826 ---|*T XREQ   6/0, 6/ FC, 12/ UDT, 36/ PARAMETER
Figure XREQ

029 PARAMETER3035364748535459 PARAMETER UDT FC0

03892  M03S01044.282l826 ---|*         FC     FUNCTION.
Line S00001 Modification History
M01 (Added by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03893  M03S00001.282l826 ---|*T XREQ   6/0, 6/ FC, 12/ UDT, 36/ PARAM
Figure XREQ

029 PARAM3035364748535459 PARAM UDT FC0

03894  M03S00002.282l826 ---|*         FC     FUNCTION CODE.
Line S01045 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03895  M02S01045.282l826 ---|*         0      RETURN UNIT.
03896  M02S01046.282l826 ---|*         1      ENTER VSN FOR UNIT.
Line S01047 Modification History
M01 (Removed by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03897  M03S01047.282l826 ---|*                (PARM) = VSN, LEFT JUSTIFIED WITH SPACE FILL.
Line S01048 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03898  M02S01048.282l826 ---|*         2      UNLOAD UNIT.
03899  M02S01049.282l826 ---|*         3      SCRATCH VSN.
Line S01050 Modification History
M01 (Removed by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03900  M03S01050.282l826 ---|*         5      ON/OFF UNIT.
03901  M03S01051.282l826 ---|*                (PARM) = 0 IF ON UNIT.
03902  M03S01052.282l826 ---|*                (PARM) .NE. 0 IF OFF UNIT.
Line S00003 Modification History
M01 (Added by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03903  M03S00003.282l826 ---|*         5      ON/OFF/DOWN UNIT.
Line S00089 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03904  M03S00089.282l826 ---|*         6      SET *RETRY* BIT IN *UST2*.
03905  M03S00090.282l826 ---|*         7      UNIT GO FOR AUTO-BLANK (TMS).
03906  M03S00091.282l826 ---|*         10     UNIT STOP FOR AUTO-BLANK (TMS).
03907  M03S00092.282l826 ---|*         12     SET *TERMINATE* BIT IN *UST2*.
Line S00001 Modification History
M01 (Added by) ns2581
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03908  M03S00001.282l826 ---|*         13     SET *NEXTREEL* BIT IN *UFLA*.
Line S01053 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03909  M02S01053.282l826 ---|*         UDT    UDT ADDRESS.
Line S00004 Modification History
M01 (Added by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03910  M03S00004.282l826 ---|*         PARAM  VALUE DEPENDS ON FUNCTION CODE.
03911  M03S00005.282l826 ---|*                FC=1, PARAM=VSN (LEFT JUSTIFIED/SPACE FILLED).
03912  M03S00006.282l826 ---|*                UNDEFINED OTHERWISE.
Line S01054 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03913  M02S01054.282l826 ---|*
03914  M02S01055.282l826 ---|*T XREQ   6/0, 6/ FC, 12/0, 12/ UITW, 12/0, 12/ CF
Figure XREQ

01112232429 CF0 UITW3035364748535459 UITW0 FC0

03915  M02S01056.282l826 ---|*         FC     FUNCTION.
03916  M02S01057.282l826 ---|*         4      UP/DOWN CHANNEL.
03917  M02S01058.282l826 ---|*         UITW   CHANNEL CONTROL WORD ADDRESS.
03918  M02S01059.282l826 ---|*         CF     CHANNEL FUNCTION.
03919  M02S01060.282l826 ---|*         0      UP CHANNEL.
03920  M02S01061.282l826 ---|*         1      DOWN CHANNEL.
03921  M02S01062.282l826 ---|*
03922  M02S01063.282l826 ---|*         USES   A - 0, 1, 2, 3, 6, 7.
03923  M02S01064.282l826 ---|*                B - 3, 5.
03924  M02S01065.282l826 ---|*                X - ALL.
03925  M02S01066.282l826 ---|*
Line S01067 Modification History
M01 (Removed by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03926  M03S01067.282l826 ---|*         CALLS  MQE.
Line S00001 Modification History
M01 (Added by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03927  M03S00001.282l826 ---|*         CALLS  MQE, WOD, ZTB.
Line S01068 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03928  M02S01068.282l826 ---|*
03929  M02S01069.282l826 ---|*         MACROS RECALL.
03930  M02S01070.282l826 ---|
03931  M02S01071.282l826 ---|
03932  M02S01072.282l826 ---|*         QUEUE UDT EXTERNAL REQUEST.
03933  M02S01073.282l826 ---|
Line S01074 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03934  M03S01074.282l826 ---| CXR14    TX1    X2,-UBUF    CHECK FOR GOOD UDT ADDRESS
Line S00093 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03935  M03S00093.282l826 ---| CXR19    TX1    X2,-UBUF    CHECK FOR GOOD UDT ADDRESS
Line S01075 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03936  M02S01075.282l826 ---|          TX7    X2,-UBUF,LWA
03937  M02S01076.282l826 ---|          BX7    -X1*X7
Line S01077 Modification History
M01 (Removed by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03938  M03S01077.282l826 ---|          PL     X7,CXRX     IF BAD REQUEST
Line S00002 Modification History
M01 (Added by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03939  M03S00002.282l826 ---|          PL     X7,CXR18.2  IF BAD REQUEST
Line S01078 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03940  M02S01078.282l826 ---|          BX7    X7-X7       CLEAR EXTERNAL REQUEST WORD
03941  M02S01079.282l826 ---|          LX3    59-58
03942  M02S01080.282l826 ---|          SA7    A5
Line S01081 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03943  M03S01081.282l826 ---|          PL     X3,CXR15    IF NOT TO IGNORE REQUEST IF JOB ASSIGNED
Line S00094 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03944  M03S00094.282l826 ---|          PL     X3,CXR20    IF NOT TO IGNORE REQUEST IF JOB ASSIGNED
Line S01082 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03945  M02S01082.282l826 ---|          SA1    X2+UJID
03946  M02S01083.282l826 ---|          NZ     X1,CXRX     IF JOB ASSIGNED
Line S01084 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03947  M03S01084.282l826 ---| CXR15    NZ     B5,CXR16    IF NOT RETURN FUNCTION
Line S00095 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03948  M03S00095.282l826 ---| CXR20    NZ     B5,CXR21    IF NOT RETURN FUNCTION
Line S01085 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03949  M02S01085.282l826 ---|          SA1    X2+UJID     SET RETURN IN PROGRESS FLAG
03950  M02S01086.282l826 ---|          MX6    1
03951  M02S01087.282l826 ---|          BX6    X6+X1
03952  M02S01088.282l826 ---|          SA6    A1+
03953  M02S01089.282l826 ---|          SA1    X2+UCIA     CHECK IF LOST JOB
03954  M02S01090.282l826 ---|          SX6    X1-1
Line S01091 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03955  M03S01091.282l826 ---|          NZ     X6,CXR16    IF NOT RETURN OF LOST TAPE
Line S00096 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03956  M03S00096.282l826 ---|          NZ     X6,CXR21    IF NOT RETURN OF LOST TAPE
Line S01092 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03957  M02S01092.282l826 ---|          SA6    A1+         CLEAR FAKE *CIO* FUNCTION
03958  M02S01093.282l826 ---|          SA1    NTAS        INCREMENT ASSIGNED TAPE UNIT COUNT
03959  M02S01094.282l826 ---|          SX6    X1+B1
03960  M02S01095.282l826 ---|          SA6    A1
Line S01096 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03961  M03S01096.282l826 ---| CXR16    LX5    -24         EXTERNAL REQUEST
Line S00097 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03962  M03S00097.282l826 ---| CXR21    LX5    -24         EXTERNAL REQUEST
Line S01097 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03963  M02S01097.282l826 ---|          SA0    X2          UDT ADDRESS
03964  M02S01098.282l826 ---|          RJ     MQE         ENTER UDT EXTERNAL REQUEST IN QUEUE
03965  M02S01099.282l826 ---|
03966  M02S01100.282l826 ---| CXR      SUBR               ENTRY/EXIT
03967  M02S01101.282l826 ---|          MX0    -12         EXTRACT FUNCTION CODE
03968  M02S01102.282l826 ---|          LX5    12
03969  M02S01103.282l826 ---|          BX3    -X0*X5
03970  M02S01104.282l826 ---|          LX5    12          EXTRACT UDT ADDRESS
03971  M02S01105.282l826 ---|          BX2    -X0*X5
03972  M02S01106.282l826 ---|          SB5    X3          FUNCTION CODE
03973  M02S01107.282l826 ---|          MX0    36
03974  M02S01108.282l826 ---|          BX6    X0*X5       EXTRACT PARAMETER
03975  M02S01109.282l826 ---|          SB3    B5-TXRPL
Line S01110 Modification History
M01 (Removed by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03976  M03S01110.282l826 ---|          PL     B3,CXRX     IF ILLEGAL FUNCTION
Line S00003 Modification History
M01 (Added by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03977  M03S00003.282l826 ---|          PL     B3,CXR18.2  IF ILLEGAL FUNCTION
Line S01111 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03978  M02S01111.282l826 ---|          SA3    TXRP+B5     GET PROCESSOR ADDRESS AND FUNCTION FLAGS
03979  M02S01112.282l826 ---|          PL     X3,CXR1     IF NOT UDT FUNCTION
Line S01113 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03980  M03S01113.282l826 ---|          ZR     B2,CXR14    IF UDT REQUEST TO BE QUEUED
Line S00098 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03981  M03S00098.282l826 ---|          ZR     B2,CXR19    IF UDT REQUEST TO BE QUEUED
Line S01114 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03982  M02S01114.282l826 ---|          SA1    A0+UST1
03983  M02S01115.282l826 ---|          BX0    X0-X0
03984  M02S01116.282l826 ---|          SX4    B1
03985  M02S01117.282l826 ---| CXR1     SB3    X3
03986  M02S01118.282l826 ---|          JP     B3          PROCESS FUNCTION
03987  M02S01119.282l826 ---|
03988  M02S01120.282l826 ---|*         ENTER VSN PROCESSOR.
03989  M02S01121.282l826 ---|
03990  M02S01122.282l826 ---| CXR2     SA2    A0+UVSN     PRESERVE FLAGS
03991  M02S01123.282l826 ---|          MX3    -24
03992  M02S01124.282l826 ---|          BX7    -X3*X2
03993  M02S01125.282l826 ---|          ZR     X6,CXR3     IF CLEARING VSN
03994  M02S01126.282l826 ---|          BX2    X3*X2
03995  M02S01127.282l826 ---|          LX4    14
03996  M02S01128.282l826 ---|          ZR     X2,CXRX     IF TAPE NOT MOUNTED
03997  M02S01129.282l826 ---|          IX6    X6+X7
03998  M02S01130.282l826 ---|          BX6    -X4*X6
03999  M02S01131.282l826 ---| CXR3     SA6    A0+UVSN     ENTER VSN
Line S00004 Modification History
M01 (Added by) ns2522
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04000  M03S00004.282l826 ---|          SA3    A0+UST2     CLEAR *SUSPECT* FLAG
04001  M03S00005.282l826 ---|          SX2    B1+
04002  M03S00006.282l826 ---|          LX2    5
04003  M03S00007.282l826 ---|          BX7    -X2*X3
04004  M03S00008.282l826 ---|          SA7    A3+
Line S01132 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04005  M02S01132.282l826 ---|          SX2    B1          CHECK DOWN FLAG
04006  M02S01133.282l826 ---|          LX2    56
04007  M02S01134.282l826 ---|          BX3    X2*X1
04008  M02S01135.282l826 ---|          BX6    -X2*X1
04009  M02S01136.282l826 ---|          ZR     X3,CXRX     IF DOWN FLAG NOT SET
Line S01137 Modification History
M01 (Removed by) ns2522
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04010  M03S01137.282l826 ---|          SA6    A1          CLEAR DOWN FLAG
Line S00009 Modification History
M01 (Added by) ns2522
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04011  M03S00009.282l826 ---|          SA6    A1+         CLEAR DOWN FLAG
Line S01138 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04012  M02S01138.282l826 ---|          EQ     CXRX        RETURN
04013  M02S01139.282l826 ---|
04014  M02S01140.282l826 ---|*         ENTER SCRATCH VSN PROCESSOR.
04015  M02S01141.282l826 ---|
04016  M02S01142.282l826 ---| CXR4     SA2    A0+UVSN     SET SCRATCH BIT
04017  M02S01143.282l826 ---|          LX4    22
04018  M02S01144.282l826 ---|          BX6    X4+X2
04019  M02S01145.282l826 ---|          EQ     CXR3        ENTER VSN
04020  M02S01146.282l826 ---|
04021  M02S01147.282l826 ---|*         RETURN UNIT PROCESSOR.
04022  M02S01148.282l826 ---|
04023  M02S01149.282l826 ---| CXR5     SA3    A0+UST4     CHECK FOR UNLOAD
04024  M02S01150.282l826 ---|          MX0    1           CLEAR END OF SET FLAG
04025  M02S01151.282l826 ---|          LX0    43-59
04026  M02S01152.282l826 ---|          BX7    -X0*X1
04027  M02S01153.282l826 ---|          LX3    59-5
04028  M02S01154.282l826 ---|          SA2    A0+UFLA     CLEAR REWIND REPOSITIONING REQUIRED FLAG
04029  M02S01155.282l826 ---|          LX0    57-59-43+59
04030  M02S01156.282l826 ---|          SA7    A1
04031  M02S01157.282l826 ---|          BX7    -X0*X2
04032  M02S01158.282l826 ---|          SA7    A2
04033  M02S01159.282l826 ---|          SA2    NTAS        DECREMENT ASSIGNED UNIT COUNT
04034  M02S01160.282l826 ---|          SX0    PCNA        CLEAR JOB ASSIGNMENT
04035  M02S01161.282l826 ---|          SX6    X2-1
04036  M02S01162.282l826 ---|          SX7    PRWR        SELECT REWIND
04037  M02S01163.282l826 ---|          SA6    A2
04038  M02S01164.282l826 ---|          BX6    X6-X6
04039  M02S01165.282l826 ---|          NG     X3,CXR7     IF INHIBIT UNLOAD
Line S00010 Modification History
M01 (Added by) ns2522
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04040  M03S00010.282l826 ---|          SA3    A0+UST2     CHECK IF UNIT IS *SUSPECT*
04041  M03S00011.282l826 ---|          LX3    59-5
04042  M03S00012.282l826 ---|          NG     X3,CXR7     IF *SUSPECT*, DO NOT UNLOAD
Line S00005 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04043  M03S00005.282l826 ---|          EQ     CXR6.1      PROCESS UNLOAD
Line S01166 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04044  M02S01166.282l826 ---|
04045  M02S01167.282l826 ---|*         UNLOAD UNIT PROCESSOR.
04046  M02S01168.282l826 ---|
Line S01169 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04047  M03S01169.282l826 ---| CXR6     SX7    PULR        SELECT UNLOAD
04048  M03S01170.282l826 ---|          SX6    B0+
04049  M03S01171.282l826 ---| CXR7     SA6    A0+UVSN     CLEAR VSN
04050  M03S01172.282l826 ---|          BX2    X1
Line S00006 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns2522
M03 (Removed by) 274l797
M04 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04051  M04S00006.282l826 ---| CXR6     SX6    B0+
Line S00013 Modification History
M01 (Added by) ns2522
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04052  M03S00013.282l826 ---| CXR6     SX6    B0
04053  M03S00014.282l826 ---|          SA3    A0+UST2     CHECK IF UNIT IS *SUSPECT*
04054  M03S00015.282l826 ---|          LX3    59-5
04055  M03S00016.282l826 ---|          NG     X3,CXR6.1   IF *SUSPECT*, DO NOT CLEAR VSN
Line S00007 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04056  M03S00007.282l826 ---|          SA6    A0+UVSN     CLEAR VSN FOR CONSOLE UNLOAD
04057  M03S00008.282l826 ---| CXR6.1   SX7    PULR        SELECT UNLOAD
04058  M03S00009.282l826 ---| CXR7     BX2    X1
Line S01173 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04059  M02S01173.282l826 ---|          LX1    59-56
04060  M02S01174.282l826 ---|          NG     X1,CXR9     IF UNIT DOWN
04061  M02S01175.282l826 ---|          MX1    -2
04062  M02S01176.282l826 ---|          BX3    -X1*X2
04063  M02S01177.282l826 ---|          NZ     X3,CXR8     IF READY OR BUSY
04064  M02S01178.282l826 ---|          SX7    PCFI        CLEAR FILE IDENTIFIER
04065  M02S01179.282l826 ---| CXR8     BX5    X5-X5       MAKE QUEUE ENTRY
04066  M02S01180.282l826 ---|          RJ     MQE
04067  M02S01181.282l826 ---| CXR9     ZR     X0,CXRX     IF NOT TO CLEAR ASSIGNMENT
Line S00002 Modification History
M01 (Added by) ns2581a
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04068  M03S00002.282l826 ---|          SA2    A0+UFLA     INDICATE CLEAR JOB ASSIGNMENT IN PROGRESS
04069  M03S00003.282l826 ---|          MX5    1
04070  M03S00004.282l826 ---|          LX5    54-59
04071  M03S00005.282l826 ---|          BX7    X5+X2
04072  M03S00006.282l826 ---|          SA7    A2
Line S01182 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04073  M02S01182.282l826 ---|          BX7    X0
04074  M02S01183.282l826 ---|          BX5    X5-X5
04075  M02S01184.282l826 ---|          RJ     MQE
04076  M02S01185.282l826 ---|          EQ     CXRX        RETURN
04077  M02S01186.282l826 ---|
04078  M02S01187.282l826 ---|*         UP/DOWN CHANNEL PROCESSOR.
04079  M02S01188.282l826 ---|
04080  M02S01189.282l826 ---| CXR10    LX5    12          SET *UITW* POINTERS
04081  M02S01190.282l826 ---|          BX2    -X0*X5
04082  M02S01191.282l826 ---|          SX3    X2-UITW
04083  M02S01192.282l826 ---|          SX4    X2-FLST
04084  M02S01193.282l826 ---|          BX3    -X3*X4
04085  M02S01194.282l826 ---|          MX0    1
Line S01195 Modification History
M01 (Removed by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04086  M03S01195.282l826 ---|          PL     X3,CXRX     IF ILLEGAL CHANNEL ADDRESS
Line S00004 Modification History
M01 (Added by) magne17
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04087  M03S00004.282l826 ---|          PL     X3,CXR18.2  IF ILLEGAL CHANNEL ADDRESS
Line S01196 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04088  M02S01196.282l826 ---|          SA2    X2          PROCESS CHANNEL
04089  M02S01197.282l826 ---|          BX7    X7-X7       CLEAR REQUEST
04090  M02S01198.282l826 ---|          SA7    A5
04091  M02S01199.282l826 ---|          LX5    23          PROCESS UP/DOWN FLAG
04092  M02S01200.282l826 ---|          BX4    X2
04093  M02S01201.282l826 ---|          BX5    X0*X5
04094  M02S01202.282l826 ---|          LX4    59-32
04095  M02S01203.282l826 ---|          BX3    X4-X5
04096  M02S01204.282l826 ---|          PL     X3,CXRX     IF REQUESTED STATUS ALREADY SET
04097  M02S01205.282l826 ---|          PL     X5,CXR12    IF UP CHANNEL
04098  M02S01206.282l826 ---| CXR11    RECALL
04099  M02S01207.282l826 ---|          SA3    A2+B1       CHECK IF CHANNEL ACTIVE
04100  M02S01208.282l826 ---|          NG     X3,CXR11    IF ACTIVE
04101  M02S01209.282l826 ---| CXR12    LX5    32-59
04102  M02S01210.282l826 ---|          LX0    32-59
04103  M02S01211.282l826 ---|          BX6    -X0*X2
04104  M02S01212.282l826 ---|          BX6    X6+X5
04105  M02S01213.282l826 ---|          SA6    A2
04106  M02S01214.282l826 ---|
04107  M02S01215.282l826 ---|*         MODIFY INSTRUCTION AT (.MCH4+PROCESSOR NUMBER-1) TO IGNORE
04108  M02S01216.282l826 ---|*         CHANNEL IF *DOWN CHANNEL* REQUEST OR TO PROCESS CHANNEL
04109  M02S01217.282l826 ---|*         IF *UP CHANNEL* REQUEST.  I.E.  IF *DOWN,CHXX.* IS
04110  M02S01218.282l826 ---|*         PERFORMED ON THE FIRST CHANNEL, THE WORD
04111  M02S01219.282l826 ---|*         AT (.MCH4+0) WOULD BE CHANGED TO THE FOLLOWING.
04112  M02S01220.282l826 ---|*
04113  M02S01221.282l826 ---|*         BX3    X7-X7       INSURE NO REQUEST
04114  M02S01222.282l826 ---|*         NZ     X3,PPU8     IF REQUEST FOR THIS PROCESSOR
04115  M02S01223.282l826 ---|*         SB4    B4+B1
04116  M02S01224.282l826 ---|
04117  M02S01225.282l826 ---|          MX0    -3          SET CHANNEL INDEX
04118  M02S01226.282l826 ---|          AX2    33
04119  M02S01227.282l826 ---|          BX3    -X0*X2
04120  M02S01228.282l826 ---|          AX3    1
04121  M02S01229.282l826 ---|          MX0    2
04122  M02S01230.282l826 ---|          SA1    .MCH4+X3    SET INSTRUCTION TO MODIFY
04123  M02S01231.282l826 ---|          LX0    56
04124  M02S01232.282l826 ---|          SB3    X3
04125  M02S01233.282l826 ---|          BX6    X0-X1       MERGE INSTRUCTION
04126  M02S01234.282l826 ---|          SA2    CHAN        UPDATE CHANNEL STATUS WORD
04127  M02S01235.282l826 ---|          SX0    B1
04128  M02S01236.282l826 ---|          SA6    A1          REWRITE INSTRUCTION
04129  M02S01237.282l826 ---|          LX0    B3          TOGGLE CHANNEL BIT
04130  M02S01238.282l826 ---|          BX6    X0-X2
04131  M02S01239.282l826 ---|          SA6    A2          REWRITE CHANNEL STATUS WORD
04132  M02S01240.282l826 ---|          EQ     CXRX        RETURN
04133  M02S01241.282l826 ---|
Line S01242 Modification History
M01 (Removed by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04134  M03S01242.282l826 ---|*         ON/OFF UNIT PROCESSOR.
Line S00007 Modification History
M01 (Added by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04135  M03S00007.282l826 ---|*         ON/OFF/DOWN UNIT PROCESSOR.
Line S01243 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04136  M02S01243.282l826 ---|
Line S01244 Modification History
M01 (Removed by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04137  M03S01244.282l826 ---| CXR13    ZR     X6,CXR3     IF ON UNIT
04138  M03S01245.282l826 ---|          BX6    X6-X6
Line S00008 Modification History
M01 (Added by) ns2424
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04139  M03S00008.282l826 ---| CXR13    BX6    X6-X6
Line S01517 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04140  M02S01517.282l826 ---|*         USES   X - ALL.
04141  M02S01518.282l826 ---|*                A - 0, 1, 2, 3, 4, 5, 6.
04142  M02S01519.282l826 ---|*                B - 2, 3.
Line S00846 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04143  M01S00846.282l826 +++|*                UNLOAD INITIATED ON ACS UNITS IF ASSIGNMENT TIMEOUT
04144  M01S00847.282l826 +++|*                  EXPIRED.
04145  M01S00848.282l826 +++|*                CLEAR OF LABEL INFORMATION INITIATED IF READY DROP
04146  M01S00849.282l826 +++|*                  DETECTED ON UNASSIGNED UNIT.
Line S01520 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04147  M01S01520.274l797 +++|*
04148  M01S01521.274l797 +++|*         CALLS  MQE.
04149  M01S01522.274l797 +++|
04150  M01S01523.274l797 +++|
04151  M01S01524.274l797 +++| CUA      SUBR               ENTRY/EXIT
04152  M01S01525.274l797 +++|
04153  M01S01526.274l797 +++|*         INITIALIZE UNIT SCAN.
04154  M01S01527.274l797 +++|
Line S01528 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04155  M02S01528.282l826 ---|          SA1    USWP
04156  M02S01529.282l826 ---|          NZ     X1,CUAX     IF UNIT SWAP IN PROGRESS
Line S00850 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04157  M01S00850.282l826 +++|          SX6    B0+
Line S01530 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04158  M01S01530.274l797 +++|          TA0    -UNITL,UBUF
Line S01531 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04159  M02S01531.282l826 ---|          SB2    B0+
Line S00851 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04160  M01S00851.282l826 +++|          SB2    -1
04161  M01S00852.282l826 +++|          SA6    CUAF        CLEAR CHECK UNIT FLAG
Line S01532 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04162  M01S01532.274l797 +++|
04163  M01S01533.274l797 +++|*         CHECK FOR UNASSIGNED UNIT WITH NO ACTIVITY.
04164  M01S01534.274l797 +++|
04165  M01S01535.274l797 +++| CUA1     SA0    A0+UNITL    ADVANCE UDT ADDRESS
Line S01536 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04166  M02S01536.282l826 ---|          SA1    A0+UJID
Line S01537 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04167  M01S01537.274l797 +++|          TB3    A0,-UBUF,LWA
04168  M01S01538.274l797 +++|          ZR     B3,CUAX     IF ALL UNITS CHECKED
Line S01539 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04169  M02S01539.282l826 ---|          SB2    B2+B1       ADVANCE UDT NUMBER
04170  M02S01540.282l826 ---|          SX7    X1
04171  M02S01541.282l826 ---|          NZ     X7,CUA1     IF UNIT ASSIGNED TO JOB
Line S00853 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04172  M01S00853.282l826 +++|          SA1    A0+UVRI
04173  M01S00854.282l826 +++|          SB2    B2+1        ADVANCE UDT ORDINAL
04174  M01S00855.282l826 +++|          NZ     X1,CUA1     IF UNIT ASSIGNED OR SELECTED FOR UNIT SWAP
04175  M01S00856.282l826 +++|          SA1    ACCU
Line S01542 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04176  M01S01542.274l797 +++|          SA2    A0+UST1
04177  M01S01543.274l797 +++|          SA3    A0+UREQ
Line S01544 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04178  M02S01544.282l826 ---|          SA4    A0+UFLA
04179  M02S01545.282l826 ---|          LX1    -36
04180  M02S01546.282l826 ---|          SB3    X1          AST ADDRESS IF ACS UNIT
Line S00857 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04181  M01S00857.282l826 +++|          MX0    -2
04182  M01S00858.282l826 +++|          LX6    X1,B2
Line S01547 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04183  M01S01547.274l797 +++|          SA1    A0+UVSN
Line S01548 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04184  M02S01548.282l826 ---|          MX6    1
04185  M02S01549.282l826 ---|          MX7    2
04186  M02S01550.282l826 ---|          LX6    56-59
04187  M02S01551.282l826 ---|          BX6    X6*X2       UNIT DOWN FLAG
04188  M02S01552.282l826 ---|          BX7    X7*X4       STACKED AND EXTERNAL REQUEST FLAGS
04189  M02S01553.282l826 ---|          MX0    -2
04190  M02S01554.282l826 ---|          NZ     X3,CUA1     IF REQUEST
04191  M02S01555.282l826 ---|          BX6    X6+X7
Line S00859 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04192  M01S00859.282l826 +++|          NZ     X3,CUA1     IF PROCESSOR ACTIVE
Line S01556 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04193  M01S01556.274l797 +++|          BX0    -X0*X2      BUSY AND READY STATUS
Line S01557 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04194  M02S01557.282l826 ---|          NZ     X6,CUA1     IF UNIT DOWN OR STACKED/EXTERNAL REQUEST
Line S00860 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04195  M01S00860.282l826 +++|          LX2    59-49       SET FOR ACS UNIT CHECK
Line S01558 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04196  M01S01558.274l797 +++|          ZR     X1,CUA4     IF VSN NOT DEFINED
04197  M01S01559.274l797 +++|          ZR     X0,CUA3     IF UNIT NOT READY AND NOT BUSY
Line S00861 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04198  M01S00861.282l826 +++|          PL     X6,CUA3     IF UNIT NOT ACCESSIBLE
Line S01560 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04199  M01S01560.274l797 +++|
04200  M01S01561.274l797 +++|*         CHECK FOR INCOMPLETE INITIAL LABEL CHECK.
04201  M01S01562.274l797 +++|*         THIS CAN OCCUR IF *1MT* RETURNED AN ERROR THAT TERMINATED THE
04202  M01S01563.274l797 +++|*         *PCLA* REQUEST PROCESSOR.
04203  M01S01564.274l797 +++|
Line S01565 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04204  M02S01565.282l826 ---|          SA3    A0+UESN
04205  M02S01566.282l826 ---|          NZ     X3,CUA2     IF LABEL CHECK COMPLETE
Line S00862 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04206  M01S00862.282l826 +++|          LX1    59-23
04207  M01S00863.282l826 +++|          PL     X1,CUA2     IF NOT LABEL CHECK IN PROGRESS
04208  M01S00864.282l826 +++|          MX6    -59
04209  M01S00865.282l826 +++|          BX6    -X6*X1      CLEAR LABEL CHECK IN PROGRESS
04210  M01S00866.282l826 +++|          LX6    23-23-59+23
04211  M01S00867.282l826 +++|          SA6    A1+
Line S01567 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04212  M01S01567.274l797 +++|          SX7    PCIL        COMPLETE LABEL CHECK
04213  M01S01568.274l797 +++|          EQ     CUA5        QUEUE REQUEST
04214  M01S01569.274l797 +++|
04215  M01S01570.274l797 +++|*         CHECK TIME TO UNLOAD ACS UNIT.
04216  M01S01571.274l797 +++|
Line S01572 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04217  M02S01572.282l826 ---| CUA2     ZR     B3,CUA1     IF NOT ACS UNIT
Line S00868 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04218  M01S00868.282l826 +++| CUA2     PL     X2,CUA1     IF NOT ACS UNIT
04219  M01S00869.282l826 +++|          SA1    A0+UTIM
Line S01573 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04220  M01S01573.274l797 +++|          SA2    RTIM
Line S01574 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04221  M02S01574.282l826 ---|          MX6    -24
04222  M02S01575.282l826 ---|          BX3    -X6*X3      LABELS READ TIME
Line S01576 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04223  M01S01576.274l797 +++|          SX6    ULTO        INACTIVE ACS UNIT UNLOAD TIMEOUT
Line S01577 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04224  M02S01577.282l826 ---|          AX2    36
04225  M02S01578.282l826 ---|          IX3    X3+X6
04226  M02S01579.282l826 ---|          IX2    X2-X3
04227  M02S01580.282l826 ---|          SX6    B0
Line S00870 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04228  M01S00870.282l826 +++|          AX1    36          LABELS READ TIME
04229  M01S00871.282l826 +++|          AX2    36          CURRENT TIME
04230  M01S00872.282l826 +++|          IX1    X1+X6       TIME TO UNLOAD UNASSIGNED UNIT
04231  M01S00873.282l826 +++|          IX2    X2-X1
Line S01581 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04232  M01S01581.274l797 +++|          NG     X2,CUA1     IF NOT TIME TO UNLOAD UNIT
Line S01582 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04233  M02S01582.282l826 ---|          SA6    A1          CLEAR VSN
04234  M02S01583.282l826 ---|          SA6    A3          CLEAR EXTERNAL VSN AND LABELS READ TIME
04235  M02S01584.282l826 ---|          SX7    PUNL        UNLOAD UNIT
Line S00874 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04236  M01S00874.282l826 +++|          SX7    PULR        UNLOAD UNIT
Line S01585 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04237  M01S01585.274l797 +++|          EQ     CUA5        QUEUE REQUEST
04238  M01S01586.274l797 +++|
Line S01587 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04239  M02S01587.282l826 ---|*         CLEAR LABEL INFORMATION ON UNLOADED UNIT.
Line S00875 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04240  M01S00875.282l826 +++|*         CLEAR LABEL INFORMATION ON UNLOADED OR INACCESSIBLE UNIT.
Line S01588 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04241  M01S01588.274l797 +++|*         IF AN ACS UNIT, DISMOUNTED STATUS WILL BE SET ON THE
04242  M01S01589.274l797 +++|*         ASSUMPTION THAT A FORCED DISMOUNT WAS INITIATED FROM THE
04243  M01S01590.274l797 +++|*         LIBRARY SERVER CONSOLE.
04244  M01S01591.274l797 +++|
Line S01592 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04245  M02S01592.282l826 ---| CUA3     SA2    A0+UFSN
04246  M02S01593.282l826 ---|          SX6    B0
04247  M02S01594.282l826 ---|          SA6    A1          CLEAR VSN
04248  M02S01595.282l826 ---|          SA6    A0+UESN     CLEAR EXTERNAL VSN AND LABELS READ TIME
04249  M02S01596.282l826 ---|          SA6    A0+UFID     CLEAR FILE ID
04250  M02S01597.282l826 ---|          MX6    -18
04251  M02S01598.282l826 ---|          BX6    -X6*X2
04252  M02S01599.282l826 ---|          SA6    A2+
04253  M02S01600.282l826 ---|          ZR     B3,CUA1     IF NOT ACS UNIT
04254  M02S01601.282l826 ---|          SA3    B3+AMST
04255  M02S01602.282l826 ---|          MX6    -17
04256  M02S01603.282l826 ---|          LX6    7
Line S00876 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04257  M01S00876.282l826 +++| CUA3     SX7    PCVS
04258  M01S00877.282l826 +++|          PL     X2,CUA5     IF NOT ACS UNIT
04259  M01S00878.282l826 +++|          SA3    A0+UMST
04260  M01S00879.282l826 +++|          MX6    -20
04261  M01S00880.282l826 +++|          LX6    4
Line S01604 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04262  M01S01604.274l797 +++|          BX6    -X6*X3      CLEAR VSN AND STATUS FLAGS
04263  M01S01605.274l797 +++|          SA6    A3          SET DISMOUNTED STATUS
Line S01606 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04264  M02S01606.282l826 ---|          EQ     CUA1        CHECK NEXT UNIT
Line S00881 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04265  M01S00881.282l826 +++|          EQ     CUA5        QUEUE REQUEST
Line S01607 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04266  M01S01607.274l797 +++|
Line S01608 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04267  M02S01608.282l826 ---|*         INITIATE LABEL CHECK.
Line S00882 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04268  M01S00882.282l826 +++|*         INITIATE LABEL READ OR UNIT CHECK.
04269  M01S00883.282l826 +++|*         *PCLA* WILL BE CALLED IMMEDIATELY WHEN AN ATS OR MTS UNIT
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/magnet.003.txt ยท Last modified: by 127.0.0.1