User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1mt.028

Deck 1MT Part 028

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S08611 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37108  M01S08611.274l797 +++|          UJN    WRT8.2
37109  M01S08612.274l797 +++| WRTD     EQU    *-1
37110  M01S08613.274l797 +++|
37111  M01S08614.274l797 +++|*         DELAY 10 MICROSECONDS TO PREVENT A HARDWARE ERROR IN THE
37112  M01S08615.274l797 +++|*         CCC.  THE DISCONNECT WOULD SOMETIMES CAUSE THE LAST BYTE TO
37113  M01S08616.274l797 +++|*         BE LOST.
37114  M01S08617.274l797 +++|
37115  M01S08618.274l797 +++|*         LDN    20          (CTS)
37116  M01S08619.274l797 +++|          SBN    1
37117  M01S08620.274l797 +++|          NJN    *-1
37118  M01S08621.274l797 +++| WRT8.2   DCN    CH+40
37119  M00S21252.1mt     +++| WRT9     STD    BT          SAVE BYTES REMAINING
37120  M00S21253.1mt     +++|          LDD    MA          SEND RESPONSE TO *1MT*
37121  M00S21254.1mt     +++|          CWD    CR
37122  M00S21255.1mt     +++|          LJM    WRT         LOOP FOR NEXT BLOCK
37123  M00S21256.1mt     +++|          TITLE  SUBROUTINES.
37124  M00S21257.1mt     +++| ADP      SPACE  4,10
37125  M00S21258.1mt     +++|**        ADP - ADVANCE POINTER.
37126  M00S21259.1mt     +++|*
37127  M00S21260.1mt     +++|*         ENTRY  (PT - PT+1) = IN POINTER.
37128  M00S21261.1mt     +++|*                (A) = WORDS TO INCREMENT IN POINTER BY.
37129  M00S21262.1mt     +++|*
37130  M00S21263.1mt     +++|*         EXIT   (T4 - T5) = STARTING IN POINTER.
37131  M00S21264.1mt     +++|*                (PT - PT+1) = UPDATED IN POINTER.
37132  M00S21265.1mt     +++|*                (T6) = FIRST PART WORD COUNT.
37133  M00S21266.1mt     +++|*
37134  M00S21267.1mt     +++|*         MACROS SADT.
37135  M00S21268.1mt     +++|
37136  M00S21269.1mt     +++|
37137  M00S21270.1mt     +++| ADP      SUBR               ENTRY/EXIT
37138  M00S21271.1mt     +++|          STD    T6
37139  M00S21272.1mt     +++| ADPA     UJN    ADP2        NOT READ SKIP
37140  M00S21273.1mt     +++|*         PSN                (READ SKIP)
37141  M00S21274.1mt     +++|          LDD    RS
37142  M00S21275.1mt     +++|          SHN    14
37143  M00S21276.1mt     +++|          LMD    RS+1
37144  M00S21277.1mt     +++|          SBD    T6
37145  M00S21278.1mt     +++|          PJN    ADP1        IF STILL ROOM FOR ENTIRE BLOCK
37146  M00S21279.1mt     +++|          RAD    T6          ADJUST WORD COUNT
37147  M00S21280.1mt     +++|          LDN    0           SET BUFFER FULL
37148  M00S21281.1mt     +++| ADP1     STD    RS+1
37149  M00S21282.1mt     +++|          SHN    -14
37150  M00S21283.1mt     +++|          STD    RS
37151  M00S21284.1mt     +++| ADP2     LDD    PT          SAVE IN
37152  M00S21285.1mt     +++|          STD    T4
37153  M00S21286.1mt     +++|          LDD    PT+1
37154  M00S21287.1mt     +++|          STD    T5
37155  M00S21288.1mt     +++|          LDN    0           PRESET SECOND PART WORD COUNT
37156  M00S21289.1mt     +++|          STD    T7
37157  M00S21290.1mt     +++|          LDD    T6          UPDATE IN
37158  M00S21291.1mt     +++|          RAD    PT+1
37159  M00S21292.1mt     +++|          SHN    -14
37160  M00S21293.1mt     +++|          RAD    PT
37161  M00S21294.1mt     +++|          SHN    14
37162  M00S21295.1mt     +++|          LMD    PT+1
37163  M00S21296.1mt     +++|          SADT   .LM,C
37164  M00S21297.1mt     +++|          ADC    -*          (-LIMIT)
37165  M00S21298.1mt     +++|          MJN    ADPX        IF NO WRAP AROUND
37166  M00S21299.1mt     +++|          STD    T7          SET SECOND PART WORD COUNT
37167  M00S21300.1mt     +++|          SADT   .FT
37168  M00S21301.1mt     +++|          ADC    *           (FIRST)
37169  M00S21302.1mt     +++|          STD    PT+1
37170  M00S21303.1mt     +++|          SHN    -14
37171  M00S21304.1mt     +++|          STD    PT
37172  M00S21305.1mt     +++|          LDD    T6          RESET FIRST PART WORD COUNT
37173  M00S21306.1mt     +++|          SBD    T7
37174  M00S21307.1mt     +++|          STD    T6
37175  M00S21308.1mt     +++|          LJM    ADPX        RETURN
37176  M00S21309.1mt     +++| CPD      SPACE  4,10
Line S21310 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37177  M01S21310.282l826 ---|**        CPD - CHECK PP (1MT) DROP OUT.
Line S01565 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37178  M01S01565.282l826 +++|**        CPD - CHECK PP DROP OUT.
37179  M00S21311.1mt     +++|*
Line S21312 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37180  M01S21312.282l826 ---|*         ENTRY  (IR+4) = PP INPUT REGISTER ADDRESS.
Line S01566 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37181  M01S01566.282l826 +++|*         ENTRY  (IR+4) = *1MT* INPUT REGISTER ADDRESS.
37182  M00S21313.1mt     +++|*
37183  M00S21314.1mt     +++|*         EXIT   EXIT TO DPP IF *1MT* GONE.
Line S01567 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37184  M01S01567.282l826 +++|*
Line S01568 Modification History
M01 (Added by) 282l826
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37185  M02S01568.1mt51   ---|*         USES   (CM - CM+4).
Line S00495 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37186  M01S00495.1mt51   +++|*         USES   CM - CM+4.
37187  M00S21315.1mt     +++|
37188  M00S21316.1mt     +++|
37189  M00S21317.1mt     +++| CPD      SUBR               ENTRY/EXIT
Line S21318 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37190  M01S21318.282l826 ---|          LDD    IR+4
Line S01569 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37191  M01S01569.282l826 +++| CPDA     LDC    0           (*ACPP* ADDRESS)
37192  M01S01570.282l826 +++|          CRD    CM          GET CP ASSIGNMENT
37193  M01S01571.282l826 +++|          LDD    CM+2
37194  M01S01572.282l826 +++|          LMD    CP
37195  M01S01573.282l826 +++|          NJN    CPD1        IF NOT CORRECT CP ASSIGNMENT
37196  M01S01574.282l826 +++|          LDD    IR+4        GET INPUT REGISTER
37197  M00S21319.1mt     +++|          CRD    CM
Line S21320 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37198  M01S21320.282l826 ---|          LDD    CM
37199  M01S21321.282l826 ---|          LMC    2R1M
37200  M01S21322.282l826 ---|          NJN    CPD1        IF NOT *1M*
37201  M01S21323.282l826 ---|          LDD    CP
37202  M01S21324.282l826 ---|          SHN    5
37203  M01S21325.282l826 ---|          LMN    1RT
Line S01575 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37204  M01S01575.282l826 +++|          LDD    CM+1
37205  M01S01576.282l826 +++|          SCN    77
37206  M00S21326.1mt     +++|          SHN    6
Line S21327 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37207  M01S21327.282l826 ---|          LMD    CM+1
37208  M01S21328.282l826 ---|          NJN    CPD1        IF NOT *1MT* AT CORRECT CP
37209  M01S21329.282l826 ---|          LDD    CM+2
37210  M01S21330.282l826 ---|          LPN    37
Line S01577 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37211  M01S01577.282l826 +++|          LMD    CM
37212  M01S01578.282l826 +++|          LMC    3RT1M
37213  M01S01579.282l826 +++|          NJN    CPD1        IF NOT *1MT*
37214  M01S01580.282l826 +++|          LDD    CM+3
37215  M00S21331.1mt     +++|          LMD    IR+3
Line S21332 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
37216  M01S21332.252l678 ---|          LPN    77
Line S01897 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
37217  M01S01897.252l678 +++|          LPN    37
37218  M00S21333.1mt     +++|          ZJN    CPDX        IF CORRECT CHANNEL
37219  M00S21334.1mt     +++| CPD1     LJM    DPP         DROP PPU
37220  M00S21335.1mt     +++| INM      SPACE  4,10
37221  M00S21336.1mt     +++|**        INM - INSTRUCTION MODIFICATION.
37222  M00S21337.1mt     +++|*
37223  M00S21338.1mt     +++|*         ENTRY  (A) = FWA OF INSTRUCTION MODIFICATION LIST.
37224  M00S21339.1mt     +++|*
37225  M00S21340.1mt     +++|*         NOTE   FET ADDRESS AND BLOCK SIZE ARE NOT AVAILABLE IN *1LT*.
37226  M00S21341.1mt     +++|*
37227  M00S21342.1mt     +++|*         USES   SC, CM+4, CM+5, T2 - CM+3.
37228  M00S21343.1mt     +++|
37229  M00S21344.1mt     +++|
37230  M00S21345.1mt     +++| INM      SUBR               ENTRY/EXIT
37231  M00S21346.1mt     +++|          ZJN    INMX        IF NO MODIFICATIONS
37232  M00S21347.1mt     +++|          STD    SC
37233  M00S21348.1mt     +++| INMA     LDC    *           SET FIRST
37234  M00S21349.1mt     +++|          STD    .FT+1
37235  M00S21350.1mt     +++|          SHN    -14
37236  M00S21351.1mt     +++|          STD    .FT
37237  M00S21352.1mt     +++| INMB     LDC    *           SET LIMIT
37238  M00S21353.1mt     +++|          STD    .LM+1
37239  M00S21354.1mt     +++|          SHN    -14
37240  M00S21355.1mt     +++|          STD    .LM
37241  M00S21356.1mt     +++|          SBD    .FT
37242  M00S21357.1mt     +++|          SHN    14
37243  M00S21358.1mt     +++|          ADD    .LM+1
37244  M00S21359.1mt     +++|          SBD    .FT+1
37245  M00S21360.1mt     +++|          STD    .LF+1
37246  M00S21361.1mt     +++|          SHN    -14
37247  M00S21362.1mt     +++|          STD    .LF
37248  M00S21363.1mt     +++| INM1     LDI    SC
37249  M00S21364.1mt     +++|          ZJN    INMX        IF END OF LIST
37250  M00S21365.1mt     +++|          SHN    21-0
37251  M00S21366.1mt     +++|          STD    T1          SAVE INSTRUCTION ADDRESS
37252  M00S21367.1mt     +++|          SHN    -21
37253  M00S21368.1mt     +++|          SHN    1           COMPLEMENT FLAG * 2
37254  M00S21369.1mt     +++|          LMC    UJNI+3
37255  M00S21370.1mt     +++|          STM    INMC
37256  M00S21371.1mt     +++|          LDI    T1          PRESERVE INSTRUCTION OP CODE
37257  M00S21372.1mt     +++|          SCN    77
37258  M00S21373.1mt     +++|          STI    T1
37259  M00S21374.1mt     +++|          LDM    1,SC        EXTRACT DIRECT CELL TO REFERENCE
37260  M00S21375.1mt     +++|          SHN    14
37261  M00S21376.1mt     +++|          STD    CM+4
37262  M00S21377.1mt     +++|          SCN    77          CLEAR DIRECT CELL ADDRESS
37263  M00S21378.1mt     +++|          SHN    3           EXTRACT BIAS
37264  M00S21379.1mt     +++|          STD    CM+5
37265  M00S21380.1mt     +++|          SCN    7           CLEAR BIAS
37266  M00S21381.1mt     +++|          ADI    CM+4        ADD UPPER PORTION OF VALUE
37267  M00S21382.1mt     +++|          PJN    INM2        IF RELATIVE VALUE DESIRED
37268  M00S21383.1mt     +++|          SHN    6
37269  M00S21384.1mt     +++|          SCN    40          CLEAR ABSOLUTE FLAG
37270  M00S21385.1mt     +++|          ADD    RA
37271  M00S21386.1mt     +++|          SHN    14
37272  M00S21387.1mt     +++| INM2     SHN    14
37273  M00S21388.1mt     +++|          ADM    1,CM+4      ADD LOWER PORTION OF VALUE
37274  M00S21389.1mt     +++|          ADD    CM+5        ADD BIAS
37275  M00S21390.1mt     +++|
37276  M00S21391.1mt     +++|*         NOTE CODE SHOULD NOT BE ADDED IN NEXT THREE LINES.
37277  M00S21392.1mt     +++|
37278  M00S21393.1mt     +++| INMC     UJN    3           COMPLEMENT NOT NEEDED
37279  M00S21394.1mt     +++|*         UJN    1           COMPLEMENT NEEDED
37280  M00S21395.1mt     +++|          LMC    -0
37281  M00S21396.1mt     +++|          STM    1,T1        MODIFY INSTRUCTION
37282  M00S21397.1mt     +++|          SHN    -14
37283  M00S21398.1mt     +++|          RAI    T1
37284  M00S21399.1mt     +++|          LDN    2           INCREMENT TO NEXT ITEM IN LIST
37285  M00S21400.1mt     +++|          RAD    SC
37286  M00S21401.1mt     +++|          LJM    INM1        LOOP
Line S00496 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37287  M01S00496.1mt51   +++| ITS      SPACE  4,10
37288  M01S00497.1mt51   +++|**        ITS - INDICATE *1LT* TRANSFER STARTED.
37289  M01S00498.1mt51   +++|*
37290  M01S00499.1mt51   +++|*         ENTRY  (A) = BYTE COUNT.
37291  M01S00500.1mt51   +++|*
37292  M01S00501.1mt51   +++|*         EXIT   (A) = BYTE COUNT.
37293  M01S00502.1mt51   +++|
37294  M01S00503.1mt51   +++|
37295  M01S00504.1mt51   +++| ITS      SUBR               ENTRY/EXIT
37296  M01S00505.1mt51   +++|          STD    T0          SAVE BYTE COUNT
37297  M01S00506.1mt51   +++|          LDD    MA          INDICATE *1LT* TRANSFER STARTED
37298  M01S00507.1mt51   +++|          ADN    1
37299  M01S00508.1mt51   +++|          CWD    ZR
37300  M01S00509.1mt51   +++|          LDD    T0          RESTORE (A)
37301  M01S00510.1mt51   +++|          UJN    ITSX        RETURN
37302  M00S21402.1mt     +++| OPA      SPACE  4,10
Line S21403 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37303  M01S21403.1mt51   ---|**        OPA - OUTPUT DATA TO ATS UNIT.
Line S00511 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37304  M01S00511.1mt51   +++|**        OPA - OUTPUT DATA TO ATS UNIT (NON-CYBER 180).
37305  M00S21404.1mt     +++|*
37306  M00S21405.1mt     +++|*         ENTRY  (A) = NUMBER OF BYTES TO OUTPUT.
37307  M00S21406.1mt     +++|*
37308  M00S21407.1mt     +++|*         EXIT   (A) = BYTES REMAINING IF INCOMPLETE TRANSFER.
37309  M00S21408.1mt     +++|
37310  M00S21409.1mt     +++|
37311  M00S21410.1mt     +++| OPA      SUBR               ENTRY/EXIT
37312  M00S21411.1mt     +++|          AJM    *,CH        WAIT FOR *1MT* TO OUTPUT CHUNK
37313  M00S21412.1mt     +++|          PSN                DELAY TO ALLOW *1MT* TO REACTIVE CHANNEL
37314  M00S21413.1mt     +++|          PSN
37315  M00S21414.1mt     +++|          OAM    BUFB,CH     OUTPUT DATA
37316  M00S21415.1mt     +++|          FJM    *,CH
37317  M00S21416.1mt     +++|          DCN    CH+40       INDICATE TO *1MT* TO RESUME OUTPUT
37318  M00S21417.1mt     +++|          NJN    OPAX        IF INCOMPLETE TRANSFER
37319  M00S21418.1mt     +++|          ACN    CH
37320  M00S21419.1mt     +++|          UJN    OPAX        RETURN
37321  M00S21420.1mt     +++| OPD      SPACE  4,10
Line S21421 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37322  M01S21421.1mt51   ---|**        OPD - OUTPUT DATA.
Line S00512 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37323  M01S00512.1mt51   +++|**        OPD - OUTPUT DATA TO MTS UNIT (NON-CYBER 180).
37324  M00S21422.1mt     +++|*
37325  M00S21423.1mt     +++|*         ENTRY  (A) = NUMBER OF BYTES TO OUTPUT.
37326  M00S21424.1mt     +++|*
37327  M00S21425.1mt     +++|*         EXIT   (A) = BYTES REMAINING IF INCOMPLETE TRANSFER.
37328  M00S21426.1mt     +++|
37329  M00S21427.1mt     +++|
37330  M00S21428.1mt     +++| OPD2     FJM    OPD1,CH     IF *1MT* OUTPUTTING DATA
37331  M00S21429.1mt     +++|          FJM    OPD1,CH     IF *1MT* OUTPUTTING DATA
37332  M00S21430.1mt     +++|          FJM    OPD1,CH     IF *1MT* OUTPUTTING DATA
37333  M00S21431.1mt     +++|          OAM    BUFB,CH     OUTPUT DATA
37334  M00S21432.1mt     +++|
37335  M00S21433.1mt     +++| OPD      SUBR               ENTRY/EXIT
37336  M00S21434.1mt     +++| OPD1     FJM    OPD1,CH     IF *1MT* OUTPUTTING DATA
37337  M00S21435.1mt     +++|          FJM    OPD1,CH     IF *1MT* OUTPUTTING DATA
37338  M00S21436.1mt     +++|          UJN    OPD2
37339  M00S21437.1mt     +++| OPI      SPACE  4,10
Line S21438 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37340  M01S21438.1mt51   ---|**        OPI - OUTPUT DATA FROM IOU.
Line S00513 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37341  M01S00513.1mt51   +++|**        OPI - OUTPUT DATA FROM CYBER 180 IOU.
37342  M00S21439.1mt     +++|*
37343  M00S21440.1mt     +++|*         ENTRY  (A) = NUMBER OF BYTES TO OUTPUT.
37344  M00S21441.1mt     +++|*
37345  M00S21442.1mt     +++|*         EXIT   (A) = BYTES REMAINING IF INCOMPLETE TRANSFER.
Line S00514 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37346  M01S00514.1mt51   +++|*
37347  M01S00515.1mt51   +++|*         CALLS  ITS, WTS.
37348  M00S21443.1mt     +++|
37349  M00S21444.1mt     +++|
37350  M00S21445.1mt     +++| OPI      SUBR               ENTRY/EXIT
Line S21446 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37351  M01S21446.1mt51   ---| OPI1     IJM    OPI2,CH     IF *1MT* OUTPUT SHORT CHUNK
37352  M01S21447.1mt51   ---|          SCF    OPI1,CH     WAIT FOR *1MT* TO CLEAR FLAG
37353  M01S21448.1mt51   ---| OPI2     OAM    BUFB,CH
Line S00516 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37354  M01S00516.1mt51   +++|          RJM    WTS         WAIT FOR *1MT* TRANSFER TO START
37355  M01S00517.1mt51   +++| OPI1     IJM    OPIX,CH     IF *1MT* OUTPUT SHORT CHUNK
37356  M01S00518.1mt51   +++|          SCF    OPI1,CH     WAIT FOR *1MT* TO CLEAR CHANNEL FLAG
37357  M01S00519.1mt51   +++|          RJM    ITS         INDICATE *1LT* TRANSFER STARTED
37358  M01S00520.1mt51   +++|          OAM    BUFB,CH
37359  M00S21449.1mt     +++|          NJN    OPIX        IF INCOMPLETE TRANSFER
Line S21450 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37360  M01S21450.1mt51   ---|          CCF    *,CH        SIGNAL *1MT* TO START OUTPUTTING
Line S00521 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37361  M01S00521.1mt51   +++|          CCF    *,CH        SIGNAL *1MT* TO START OUTPUT
37362  M00S21451.1mt     +++|          UJN    OPIX        RETURN
37363  M00S21452.1mt     +++| OPE      SPACE  4,10
Line S21453 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
37364  M01S21453.ns21000 ---|**        OPE - OUTPUT ENDING CHUNK FROM IOU ON CYBER 170-8X5.
Line S00292 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37365  M02S00292.1mt51   ---|**        OPE - OUTPUT ENDING CHUNK FROM IOU ON
37366  M02S00293.1mt51   ---|*         CYBER 170-815/825/835/855.
Line S00522 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37367  M01S00522.1mt51   +++|**        OPE - OUTPUT ENDING CHUNK FROM CYBER 180 IOU.
37368  M00S21454.1mt     +++|*
37369  M00S21455.1mt     +++|*         ENTRY  (A) = NUMBER OF BYTES TO OUTPUT.
37370  M00S21456.1mt     +++|*
37371  M00S21457.1mt     +++|*         EXIT   (A) = BYTES REMAINING IF INCOMPLETE TRANSFER.
Line S00523 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37372  M01S00523.1mt51   +++|*
37373  M01S00524.1mt51   +++|*         CALLS  ITS, WTS.
37374  M00S21458.1mt     +++|
37375  M00S21459.1mt     +++|
37376  M00S21460.1mt     +++| OPE      SUBR               ENTRY/EXIT
Line S21461 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37377  M01S21461.1mt51   ---| OPE1     IJM    OPEX,CH     IF *1MT* OUTPUT SHORT CHUNK
37378  M01S21462.1mt51   ---|          SCF    OPE1,CH     WAIT FOR *1MT* TO COMPLETE OUTPUTTING
Line S00525 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37379  M01S00525.1mt51   +++|          RJM    WTS         WAIT FOR *1MT* TRANSFER TO START
37380  M01S00526.1mt51   +++| OPE1     IJM    OPE2,CH     IF *1MT* OUTPUT SHORT CHUNK
37381  M01S00527.1mt51   +++|          SCF    OPE1,CH     WAIT FOR *1MT* TO CLEAR CHANNEL FLAG
37382  M01S00528.1mt51   +++|          RJM    ITS         INDICATE *1LT* TRANSFER STARTED
37383  M00S21463.1mt     +++|          OAM    BUFB,CH
Line S00529 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37384  M01S00529.1mt51   +++| OPE2     CCF    *,CH        CLEAR CHANNEL FLAG
37385  M00S21464.1mt     +++|          UJN    OPEX        RETURN
37386  M00S21465.1mt     +++| OPL      SPACE  4,10
Line S21466 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37387  M01S21466.1mt51   ---|**        OPL - OUTPUT LAST PARTIAL CHUNK TO ATS UNIT.
Line S00530 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37388  M01S00530.1mt51   +++|**        OPL - OUTPUT LAST PARTIAL CHUNK TO ATS UNIT (NON-CYBER 180).
37389  M00S21467.1mt     +++|*
37390  M00S21468.1mt     +++|*         ENTRY  (A) = NUMBER OF BYTES TO OUTPUT.
37391  M00S21469.1mt     +++|*
37392  M00S21470.1mt     +++|*         EXIT   (A) = BYTES REMAINING IF INCOMPLETE TRANSFER.
37393  M00S21471.1mt     +++|
37394  M00S21472.1mt     +++|
37395  M00S21473.1mt     +++| OPL      SUBR               ENTRY/EXIT
37396  M00S21474.1mt     +++|          AJM    *,CH        WAIT FOR *1MT* TO OUTPUT CHUNK
37397  M00S21475.1mt     +++|          PSN                DELAY TO ALLOW *1MT* TO REACTIVATE CHANNEL
37398  M00S21476.1mt     +++|          PSN
37399  M00S21477.1mt     +++|          OAM    BUFB,CH     OUTPUT LAST PARTIAL CHUNK
37400  M00S21478.1mt     +++|          UJN    OPLX        RETURN
37401  M00S21479.1mt     +++| RDA      SPACE  4,10
37402  M00S21480.1mt     +++|**        RDA - READ DATA FROM CENTRAL.
37403  M00S21481.1mt     +++|*
37404  M00S21482.1mt     +++|*         ENTRY  (T4 - T5) = IN POINTER.
37405  M00S21483.1mt     +++|*                (T6) = FIRST PART WORD COUNT.
37406  M00S21484.1mt     +++|*                (T7) = SECOND PART WORD COUNT.
37407  M00S21485.1mt     +++|*
37408  M00S21486.1mt     +++|*         MACROS SADT.
37409  M00S21487.1mt     +++|
37410  M00S21488.1mt     +++|
37411  M00S21489.1mt     +++| RDA      SUBR               ENTRY/EXIT
37412  M00S21490.1mt     +++|          LDD    T6
37413  M00S21491.1mt     +++|          ZJN    RDAX        IF NO FIRST PART
37414  M00S21492.1mt     +++|          SHN    2
37415  M00S21493.1mt     +++|          ADD    T6
37416  M00S21494.1mt     +++|          ADC    BUFB
37417  M00S21495.1mt     +++|          STM    RDAA
37418  M00S21496.1mt     +++|          LDD    T4          READ FIRST PART
37419  M00S21497.1mt     +++|          SHN    6
37420  M00S21498.1mt     +++|          ADD    RA
37421  M00S21499.1mt     +++|          SHN    6
37422  M00S21500.1mt     +++|          ADD    T5
37423  M00S21501.1mt     +++|          CRM    BUFB,T6
37424  M00S21502.1mt     +++|          LDD    T7
37425  M00S21503.1mt     +++|          ZJN    RDAX        IF NO SECOND PART
37426  M00S21504.1mt     +++|          SADT   .FT,,,A
37427  M00S21505.1mt     +++|          LDC    *           READ SECOND PART
37428  M00S21506.1mt     +++|          CRM    *,T7
37429  M00S21507.1mt     +++| RDAA     EQU    *-1
37430  M00S21508.1mt     +++|          UJN    RDAX        RETURN
37431  M00S21509.1mt     +++| WDA      SPACE  4,10
37432  M00S21510.1mt     +++|**        WDA - WRITE DATA TO CENTRAL.
37433  M00S21511.1mt     +++|*
37434  M00S21512.1mt     +++|*         ENTRY  (T4 - T5) = IN POINTER.
37435  M00S21513.1mt     +++|*                (T6) = FIRST PART WORD COUNT.
37436  M00S21514.1mt     +++|*                (T7) = SECOND PART WORD COUNT.
37437  M00S21515.1mt     +++|*
37438  M00S21516.1mt     +++|*         MACROS SADT.
37439  M00S21517.1mt     +++|
37440  M00S21518.1mt     +++|
37441  M00S21519.1mt     +++| WDA      SUBR               ENTRY/EXIT
37442  M00S21520.1mt     +++|          LDD    T6
37443  M00S21521.1mt     +++|          ZJN    WDAX        IF NO FIRST PART
37444  M00S21522.1mt     +++|          SHN    2
37445  M00S21523.1mt     +++|          ADD    T6
37446  M00S21524.1mt     +++|          ADC    BUFB
37447  M00S21525.1mt     +++|          STM    WDAA
37448  M00S21526.1mt     +++|          LDD    T4          TRANSFER FIRST PART
37449  M00S21527.1mt     +++|          SHN    6
37450  M00S21528.1mt     +++|          ADD    RA
37451  M00S21529.1mt     +++|          SHN    6
37452  M00S21530.1mt     +++|          ADD    T5
37453  M00S21531.1mt     +++|          CWM    BUFB,T6
37454  M00S21532.1mt     +++|          LDD    T7
37455  M00S21533.1mt     +++|          ZJN    WDAX        IF NO SECOND PART
37456  M00S21534.1mt     +++|          SADT   .FT,,,A
37457  M00S21535.1mt     +++|          LDC    *           TRANSFER SECOND PART
37458  M00S21536.1mt     +++|          CWM    *,T7
37459  M00S21537.1mt     +++| WDAA     EQU    *-1
37460  M00S21538.1mt     +++|          UJN    WDAX        RETURN
37461  M00S21539.1mt     +++| WSB      SPACE  4,10
37462  M00S21540.1mt     +++|**        WSB - WAIT START OF BLOCK FROM *1MT*.
37463  M00S21541.1mt     +++|*
Line S00531 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37464  M01S00531.1mt51   +++|*         USES   CM - CM+4.
37465  M01S00532.1mt51   +++|*
37466  M00S21542.1mt     +++|*         CALLS  CPD, INM.
37467  M00S21543.1mt     +++|*
37468  M00S21544.1mt     +++|*         MACROS PAUSE.
37469  M00S21545.1mt     +++|
37470  M00S21546.1mt     +++|
37471  M00S21547.1mt     +++| WSB      SUBR               ENTRY/EXIT
37472  M00S21548.1mt     +++| WSB1     LDN    CMCL
37473  M00S21549.1mt     +++|          CRD    CM
37474  M00S21550.1mt     +++|          LDD    CP
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
37475  M01S00006.271l716 +++|          SHN    -7
37476  M00S21551.1mt     +++|          LMD    CM
37477  M00S21552.1mt     +++|          NJN    WSB3        IF MOVE FLAG NOT SET FOR THIS CP
37478  M00S21553.1mt     +++|          LDD    IR+4        CHECK IF *1MT* PAUSED
37479  M00S21554.1mt     +++|          ADN    1
37480  M00S21555.1mt     +++|          CRD    CM
37481  M00S21556.1mt     +++|          LDD    CM
37482  M00S21557.1mt     +++|          ZJN    WSB3        IF NO FUNCTION
37483  M00S21558.1mt     +++|          SHN    21-10       CHECK STORAGE MOVE ALLOWED (BIT 56)
37484  M00S21559.1mt     +++|          MJN    WSB2        IF STORAGE MOVE ALLOWED
37485  M00S21560.1mt     +++|          SHN    10-21       RESTORE BYTE TO ORIGINAL POSITION
37486  M00S21561.1mt     +++|          SBN    SMAM
37487  M00S21562.1mt     +++|          MJN    WSB3        IF STORAGE MOVE NOT ALLOWED
37488  M00S21563.1mt     +++|          SBN    CPUM-SMAM
37489  M00S21564.1mt     +++|          PJN    WSB3        IF STORAGE MOVE NOT ALLOWED
37490  M00S21565.1mt     +++| WSB2     PAUSE  NE
37491  M00S21566.1mt     +++|          LDC    ADDR        MODIFY INSTRUCTIONS
37492  M00S21567.1mt     +++|          RJM    INM
37493  M00S21568.1mt     +++| WSB3     RJM    CPD         CHECK IF *1MT* STILL AROUND
37494  M00S21569.1mt     +++|          LDD    MA
37495  M00S21570.1mt     +++|          CRD    CC
37496  M00S21571.1mt     +++|          LDD    CC
37497  M00S21572.1mt     +++|          LMN    1
37498  M00S21573.1mt     +++|          NJN    WSB4        IF NOT START OF BLOCK
37499  M00S21574.1mt     +++|          STD    CC          ACKNOWLEDGE BLOCK START UP
37500  M00S21575.1mt     +++|          LDD    MA
37501  M00S21576.1mt     +++|          CWD    CC
37502  M00S21577.1mt     +++|          LJM    WSBX        RETURN
37503  M00S21578.1mt     +++|
37504  M00S21579.1mt     +++| WSB4     LMN    3&1
37505  M00S21580.1mt     +++|          NJN    WSB5        IF NOT READ SKIP OPERATION
37506  M00S21581.1mt     +++|          STD    CC
37507  M00S21582.1mt     +++|          STM    ADPA        ENABLE READ SKIP
37508  M00S21583.1mt     +++|          LDD    MA          ACKNOWLEDGE TRANSFER
37509  M00S21584.1mt     +++|          CWD    CC
37510  M00S21585.1mt     +++|          LDD    CC+3        SET AMOUNT OF SPACE IN BUFFER
37511  M00S21586.1mt     +++|          STD    RS
37512  M00S21587.1mt     +++|          LDD    CC+4
37513  M00S21588.1mt     +++|          STD    RS+1
37514  M00S21589.1mt     +++| WSB5     LJM    WSB1        LOOP
37515  M00S21590.1mt     +++|
37516  M00S21591.1mt     +++| ADDR     TSAD               ADDRESS RELOCATION INFORMATION
Line S00533 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37517  M01S00533.1mt51   +++| WTS      SPACE  4,10
37518  M01S00534.1mt51   +++|**        WTS - WAIT FOR *1MT* TRANSFER TO START.
37519  M01S00535.1mt51   +++|*
37520  M01S00536.1mt51   +++|*         ENTRY  (A) = BYTE COUNT.
37521  M01S00537.1mt51   +++|*
37522  M01S00538.1mt51   +++|*         EXIT   (A) = BYTE COUNT.
37523  M01S00539.1mt51   +++|*
37524  M01S00540.1mt51   +++|*         USES   CM - CM+4.
37525  M01S00541.1mt51   +++|*
37526  M01S00542.1mt51   +++|*         CALLS  CPD.
37527  M01S00543.1mt51   +++|
37528  M01S00544.1mt51   +++|
37529  M01S00545.1mt51   +++| WTS3     LDC    *           (BYTE COUNT)
37530  M01S00546.1mt51   +++| WTSA     EQU    *-1
37531  M01S00547.1mt51   +++|
37532  M01S00548.1mt51   +++| WTS      SUBR               ENTRY/EXIT
37533  M01S00549.1mt51   +++|          STM    WTSA        SAVE BYTE COUNT
37534  M01S00550.1mt51   +++| WTS1     LDD    MA          CHECK *1MT*/*1LT* INTERLOCK
37535  M01S00551.1mt51   +++|          ADN    1
37536  M01S00552.1mt51   +++|          CRD    CM
37537  M01S00553.1mt51   +++|          LDD    CM
37538  M01S00554.1mt51   +++|          NJN    WTS3        IF *1MT* TRANSFER STARTED
37539  M01S00555.1mt51   +++|          RJM    CPD         CHECK IF *1MT* PP DROPPED OUT
37540  M01S00556.1mt51   +++|          LDN    24          DELAY 10 MICROSECONDS
37541  M01S00557.1mt51   +++| WTS2     SBN    1
37542  M01S00558.1mt51   +++|          NJN    WTS2        IF NOT DONE
37543  M01S00559.1mt51   +++|          UJN    WTS1        CHECK INTERLOCK
37544  M00S21592.1mt     +++|          SPACE  4,10
37545  M00S21593.1mt     +++|          BUFFER BUFB
37546  M00S21594.1mt     +++|          TITLE  PRESET.
37547  M00S21595.1mt     +++| PRS      SPACE  4,10
37548  M00S21596.1mt     +++|**        PRS - PRESET.
37549  M00S21597.1mt     +++|*
37550  M00S21598.1mt     +++|*         CALLS  CPD, INM, MCH.
37551  M00S21599.1mt     +++|*
37552  M00S21600.1mt     +++|*         MACROS CHTL.
37553  M00S21601.1mt     +++|
37554  M00S21602.1mt     +++|
37555  M00S21603.1mt     +++| PRS      SUBR               ENTRY/EXIT
Line S01581 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
37556  M01S01581.282l826 +++|          LDK    PPCP
37557  M01S01582.282l826 +++|          CRD    CM
37558  M01S01583.282l826 +++|          LDD    IR+4
37559  M01S01584.282l826 +++|          SBD    CM+4
37560  M01S01585.282l826 +++|          SHN    PPXES-PPCES SET EXTENDED PP COMMUNICATION BLOCK OFFSET
37561  M01S01586.282l826 +++|          STD    T1
37562  M01S01587.282l826 +++|          LDD    CM          SET *ACPP* ADDRESS
37563  M01S01588.282l826 +++|          SHN    14
37564  M01S01589.282l826 +++|          ADD    CM+1
37565  M01S01590.282l826 +++|          ADD    T1
37566  M01S01591.282l826 +++|          ADK    ACPP
37567  M01S01592.282l826 +++|          STM    CPDA+1
37568  M01S01593.282l826 +++|          SHN    -14
37569  M01S01594.282l826 +++|          RAM    CPDA
37570  M00S21604.1mt     +++|          RJM    CPD         CHECK FOR DROP OUT OF *1MT*
37571  M00S21605.1mt     +++|          LDD    IR+4        READ PARAMETERS
37572  M00S21606.1mt     +++|          ADN    3
37573  M00S21607.1mt     +++|          CRD    CM
37574  M00S21608.1mt     +++|          LDD    CM+1        SET FIRST
37575  M00S21609.1mt     +++|          RAM    INMA
37576  M00S21610.1mt     +++|          LDD    CM+2
37577  M00S21611.1mt     +++|          STM    INMA+1
37578  M00S21612.1mt     +++|          LDD    CM+3        SET LIMIT
37579  M00S21613.1mt     +++|          RAM    INMB
37580  M00S21614.1mt     +++|          LDD    CM+4
37581  M00S21615.1mt     +++|          STM    INMB+1
37582  M00S21616.1mt     +++|          LDN    ZERL        SET ACKNOWLEDGE TO *1MT*
37583  M00S21617.1mt     +++|          CRD    ZR
37584  M00S21618.1mt     +++|          LDD    MA          SET UP FOR REQUESTS FOR *1MT*
37585  M00S21619.1mt     +++|          CWD    ZR
Line S00560 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37586  M01S00560.1mt51   +++|          ADN    1           PRESET *1MT*/*1LT* INTERLOCK
37587  M01S00561.1mt51   +++|          CWD    ZR
37588  M00S21620.1mt     +++|          LDN    2
37589  M00S21621.1mt     +++|          STD    CR
37590  M00S21622.1mt     +++|          LDD    IR+4        TELL *1MT* THAT *1LT* IS LOADED
37591  M00S21623.1mt     +++|          ADN    3
37592  M00S21624.1mt     +++|          CWD    ZR
37593  M00S21625.1mt     +++|          LDD    IR+3        SET MTS/ATS CONTROLLER FLAG
37594  M00S21626.1mt     +++|          SHN    14
37595  M00S21627.1mt     +++|          STM    PRSA
37596  M00S21628.1mt     +++|          STM    PRSB
37597  M00S21629.1mt     +++|          SHN    6
Line S21630 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
37598  M01S21630.252l678 ---|          LPN    77
Line S01898 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
37599  M01S01898.252l678 +++|          LPN    37
37600  M00S21631.1mt     +++|          STD    IR+3
37601  M00S21632.1mt     +++|          LDC    TCHS        MODIFY CHANNELS
37602  M00S21633.1mt     +++|          STD    T1
37603  M00S21634.1mt     +++|          UJN    PRS2        ENTER LOOP TO MODIFY INSTRUCTIONS
37604  M00S21635.1mt     +++|
37605  M00S21636.1mt     +++| PRS1     RAI    T2
37606  M00S21637.1mt     +++|          AOD    T1
37607  M00S21638.1mt     +++| PRS2     LDI    T1          MODIFY CHANNEL INSTRUCTIONS
37608  M00S21639.1mt     +++|          STD    T2
37609  M00S21640.1mt     +++|          LDD    IR+3
37610  M00S21641.1mt     +++|          CHTL   *
37611  M00S21642.1mt     +++|          SBN    CH
37612  M00S21643.1mt     +++|          NJN    PRS1        IF MORE CHANNELS TO MODIFY
37613  M00S21644.1mt     +++|          LDC    ADDR        MODIFY INSTRUCTIONS
37614  M00S21645.1mt     +++|          RJM    INM
Line S21646 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
37615  M01S21646.ns21000 ---|          LDN    CPUL
37616  M01S21647.ns21000 ---|          CRD    CM
37617  M01S21648.ns21000 ---|          LDD    CM+3
37618  M01S21649.ns21000 ---|          SHN    21-10
37619  M01S21650.ns21000 ---|          MJN    PRS3        IF CYBER 170-8X5 IOU
Line S00294 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37620  M02S00294.274l797 ---|          LDK    MABL
Line S08622 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37621  M01S08622.274l797 +++|          LDD    IR+2
37622  M01S08623.274l797 +++|          SHN    21-7
37623  M01S08624.274l797 +++|          PJN    PRS2.1      IF NOT CTS
37624  M01S08625.274l797 +++|          LDC    LDNI+20     DELAY BEFORE DISCONNECT
37625  M01S08626.274l797 +++|          STM    WRTD
37626  M01S08627.274l797 +++| PRS2.1   LDK    MABL
Line S00295 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
37627  M01S00295.ns21000 +++|          CRD    CM
37628  M01S00296.ns21000 +++|          LDD    CM+1
37629  M01S00297.ns21000 +++|          SHN    -6
37630  M01S00298.ns21000 +++|          LPN    41
37631  M01S00299.ns21000 +++|          LMN    1
Line S00300 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37632  M02S00300.1mt51   ---|          ZJN    PRS3        IF CYBER 170-815/825/835/855 IOU
Line S00562 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37633  M01S00562.1mt51   +++|          ZJN    PRS3        IF CYBER 180 IOU
37634  M00S21651.1mt     +++|          LDD    IR+2
Line S08628 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37635  M01S08628.274l797 +++|          LPN    77
37636  M00S21652.1mt     +++|          NJN    PRS4        IF WRITE
37637  M00S21653.1mt     +++|          LJM    PRS6        PRESET FOR READ
37638  M00S21654.1mt     +++|
Line S21655 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
37639  M01S21655.ns21000 ---| PRS3     LJM    PRS9        PRESET CYBER 170-8X5
Line S00301 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37640  M02S00301.1mt51   ---| PRS3     LJM    PRS9        PRESET FOR CYBER 170-815/825/835/855
Line S00563 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37641  M01S00563.1mt51   +++| PRS3     LJM    PRS9        PRESET FOR CYBER 180
37642  M00S21656.1mt     +++|
Line S21657 Modification History
M01 (Removed by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37643  M01S21657.ncccts  ---| PRS4     LDC    0
Line S00036 Modification History
M01 (Added by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37644  M01S00036.ncccts  +++| PRS4     LDD    IR+2
37645  M01S00037.ncccts  +++|          SHN    21-7
37646  M01S00038.ncccts  +++|          MJN    PRS4.1      IF CTS
37647  M01S00039.ncccts  +++|          LDC    0
37648  M00S21658.1mt     +++| PRSA     EQU    *-1
37649  M00S21659.1mt     +++|          SHN    21-4
37650  M00S21660.1mt     +++|          PJN    PRS5        IF MTS CONTROLLER
Line S21661 Modification History
M01 (Removed by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37651  M01S21661.ncccts  ---|          LDC    OPA         SET ATS OUTPUT ROUTINE
Line S00040 Modification History
M01 (Added by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37652  M01S00040.ncccts  +++| PRS4.1   LDC    OPA         SET ATS OUTPUT ROUTINE
Line S21662 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37653  M01S21662.ns2466  ---|          STM    WRTA
Line S00300 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37654  M01S00300.ns2466  +++|          STM    WRTB
37655  M00S21663.1mt     +++|          LDC    OPL
Line S21664 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37656  M01S21664.ns2466  ---|          STM    WRTB
Line S00301 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37657  M01S00301.ns2466  +++|          STM    WRTC
37658  M00S21665.1mt     +++| PRS5     LJM    PRSX        RETURN
37659  M00S21666.1mt     +++|
37660  M00S21667.1mt     +++| PRS6     LDM    DLYA
37661  M00S21668.1mt     +++|          LPN    10
37662  M00S21669.1mt     +++|          ZJN    PRS7        IF 1X PPU SPEED
37663  M00S21670.1mt     +++|          LDC    LDNI+77     RESET DELAY FOR 2X PPU SPEED
37664  M00S21671.1mt     +++|          STM    REDC
Line S21672 Modification History
M01 (Removed by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37665  M01S21672.ncccts  ---| PRS7     LDC    0           CHECK CONTROLLER TYPE
Line S00041 Modification History
M01 (Added by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37666  M01S00041.ncccts  +++| PRS7     LDD    IR+2
37667  M01S00042.ncccts  +++|          SHN    21-7
37668  M01S00043.ncccts  +++|          MJN    PRS8.1      IF CTS
37669  M01S00044.ncccts  +++|          LDC    0           CHECK CONTROLLER TYPE
37670  M00S21673.1mt     +++| PRSB     EQU    *-1
37671  M00S21674.1mt     +++|          SHN    21-4
37672  M00S21675.1mt     +++|          PJN    PRS5        IF MTS CONTROLLER
Line S21676 Modification History
M01 (Removed by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37673  M01S21676.ncccts  ---|          LDC    NJNI+.RED8-.REDB  MODIFY INSTRUCTIONS
Line S00045 Modification History
M01 (Added by) ncccts
Seq #  *Modification Id* Act 
----------------------------+
37674  M01S00045.ncccts  +++| PRS8.1   LDC    NJNI+.RED8-.REDB  MODIFY INSTRUCTIONS
37675  M00S21677.1mt     +++|          STM    REDA
37676  M00S21678.1mt     +++|          LDC    UJNI+.RED8-.REDB
37677  M00S21679.1mt     +++|          STM    REDD
37678  M00S21680.1mt     +++|          LDC    UJNI+RED3-REDB
37679  M00S21681.1mt     +++|          STM    REDB
37680  M00S21682.1mt     +++|          LDC    .REDB
Line S21683 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37681  M01S21683.1mt51   ---|          STM    REDA+2
37682  M01S21684.1mt51   ---|          STM    REDD+2
Line S00564 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37683  M01S00564.1mt51   +++|          STM    REDF
37684  M01S00565.1mt51   +++|          STM    REDG
37685  M00S21685.1mt     +++|          LDN    .REDRL-1    MOVE ATS INPUT LOOP
37686  M00S21686.1mt     +++|          STD    T1
37687  M00S21687.1mt     +++| PRS8     LDM    .REDR,T1
37688  M00S21688.1mt     +++|          STM    .REDA,T1
37689  M00S21689.1mt     +++|          SOD    T1
37690  M00S21690.1mt     +++|          PJN    PRS8        IF MOVE NOT DONE
37691  M00S21691.1mt     +++|          LDC    .REDC       MODIFY CHANNELS
37692  M00S21692.1mt     +++|          RJM    MCH
37693  M00S21693.1mt     +++|          LJM    PRSX        RETURN
37694  M00S21694.1mt     +++|
Line S21695 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
37695  M01S21695.ns21000 ---|*         PRESET FOR CYBER 170-8X5.
Line S00302 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37696  M02S00302.1mt51   ---|*         PRESET FOR CYBER 170-815/825/835/855.
Line S00566 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37697  M01S00566.1mt51   +++|*         PRESET FOR CYBER 180.
37698  M00S21696.1mt     +++|
37699  M00S21697.1mt     +++| PRS9     LDC    OPI         MODIFY INSTRUCTIONS
Line S21698 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37700  M01S21698.ns2466  ---|          STM    WRTA
Line S00302 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37701  M01S00302.ns2466  +++|          STM    WRTB
37702  M00S21699.1mt     +++|          LDC    OPE
Line S21700 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37703  M01S21700.ns2466  ---|          STM    WRTB
Line S00303 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37704  M01S00303.ns2466  +++|          STM    WRTC
37705  M00S21701.1mt     +++|          LDC    NJNI+RED8.-REDB.
37706  M00S21702.1mt     +++|          STM    REDA
37707  M00S21703.1mt     +++|          LDC    UJNI+RED8.-REDB.
37708  M00S21704.1mt     +++|          STM    REDD
37709  M00S21705.1mt     +++|          LDC    UJNI+RED3-REDB
37710  M00S21706.1mt     +++|          STM    REDB
37711  M00S21707.1mt     +++|          LDC    REDB.
Line S21708 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37712  M01S21708.1mt51   ---|          STM    REDA+2
37713  M01S21709.1mt51   ---|          STM    REDD+2
Line S00567 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37714  M01S00567.1mt51   +++|          STM    REDF
37715  M01S00568.1mt51   +++|          STM    REDG
37716  M00S21710.1mt     +++|          LDN    REDRL.-1    MOVE IOU LOOP
37717  M00S21711.1mt     +++|          STD    T1
37718  M00S21712.1mt     +++| PRS10    LDM    REDR.,T1
37719  M00S21713.1mt     +++|          STM    .REDA,T1
37720  M00S21714.1mt     +++|          SOD    T1
37721  M00S21715.1mt     +++|          PJN    PRS10       IF MOVE NOT COMPLETE
37722  M00S21716.1mt     +++|          LDC    REDC.       MODIFY CHANNELS
37723  M00S21717.1mt     +++|          RJM    MCH
Line S00304 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37724  M01S00304.ns2466  +++|          LDC    UJNI+WRT2-WRTA  MODIFY *WRTA*
37725  M01S00305.ns2466  +++|          STM    WRTA
37726  M00S21718.1mt     +++|          LJM    PRSX        RETURN
Line S21719 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37727  M01S21719.1mt51   ---|
37728  M01S21720.1mt51   ---|
Line S00569 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37729  M01S00569.1mt51   +++|          SPACE  4,10
37730  M00S21721.1mt     +++| TCHS     CHTB               CHANNEL TABLE
Line S00570 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37731  M01S00570.1mt51   +++|          TITLE  PRESET SUBROUTINES.
37732  M00S21722.1mt     +++| RED      SPACE  4,10
Line S21723 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37733  M01S21723.1mt51   ---|**        ATS INPUT LOOP.
Line S00571 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37734  M01S00571.1mt51   +++|**        ATS INPUT LOOP (NON-CYBER 180).
37735  M00S21724.1mt     +++|
37736  M00S21725.1mt     +++|
37737  M00S21726.1mt     +++| .REDR    BSS    0
37738  M00S21727.1mt     +++|          LOC    .REDA
37739  M00S21728.1mt     +++|
37740  M00S21729.1mt     +++| .RED6    AJM    *,CH        WAIT FOR *1MT* TO DCN CHANNEL
37741  M00S21730.1mt     +++|          STD    BI          SAVE BYTES TO INPUT
37742  M00S21731.1mt     +++|          STD    T1
37743  M00S21732.1mt     +++| .RED7    IJM    RED11,CH    IF *1MT* FINISHED INPUT
37744  M00S21733.1mt     +++|          EJM    .RED7,CH    IF DATA NOT AVAILABLE
37745  M00S21734.1mt     +++|          IAM    BUFB,CH
37746  M00S21735.1mt     +++|          DCN    CH+40       INDICATE TO *1MT* TO CONTINUE READ
37747  M00S21736.1mt     +++| .REDB    NJN    .RED8       IF END OF BLOCK
37748  M00S21737.1mt     +++|*         UJN    .RED8       (LAST PARTIAL BLOCK BEING READ)
37749  M00S21738.1mt     +++|          ACN    CH
37750  M00S21739.1mt     +++| .RED8    STD    T1          SAVE BYTES REMAINING
37751  M00S21740.1mt     +++| .RED9    IJM    RED10,CH    IF *1LT* FINISHED INPUT
37752  M00S21741.1mt     +++|          EJM    .RED9,CH    IF *1MT* NOT TAKING DATA YET
37753  M00S21742.1mt     +++|          UJN    RED10       COMPUTE WORD COUNT
37754  M00S21743.1mt     +++|
37755  M00S21744.1mt     +++|          LOC    *O
37756  M00S21745.1mt     +++| .REDRL   EQU    *-.REDR     LENGTH OF ATS INPUT LOOP
37757  M00S21746.1mt     +++|
37758  M00S21747.1mt     +++|          ERRMI  .REDAL-.REDRL  OVERLAID CODE OVERFLOWED
37759  M00S21748.1mt     +++| MCH      SPACE  4,10
37760  M00S21749.1mt     +++|**        MCH - MODIFY CHANNELS.
37761  M00S21750.1mt     +++|*
37762  M00S21751.1mt     +++|*         ENTRY  (A) = ADDRESS OF CHANNEL TABLE
37763  M00S21752.1mt     +++|*
37764  M00S21753.1mt     +++|*         USES   T1, T2.
37765  M00S21754.1mt     +++|*
37766  M00S21755.1mt     +++|*         MACROS CHTL.
37767  M00S21756.1mt     +++|
37768  M00S21757.1mt     +++|
37769  M00S21758.1mt     +++| MCH1     RAI    T2
37770  M00S21759.1mt     +++|          AOD    T1
37771  M00S21760.1mt     +++| MCH2     LDI    T1
37772  M00S21761.1mt     +++|          STD    T2
37773  M00S21762.1mt     +++|          LDD    IR+3
37774  M00S21763.1mt     +++|          CHTL   *
37775  M00S21764.1mt     +++| MCHA     SBN    CH
37776  M00S21765.1mt     +++|          NJN    MCH1        IF MORE CHANNEL TO MODIFY
37777  M00S21766.1mt     +++|
37778  M00S21767.1mt     +++| MCH      SUBR               ENTRY/EXIT
37779  M00S21768.1mt     +++|          STD    T1          SAVE ADDRESS
37780  M00S21769.1mt     +++|          UJN    MCH2        ENTER LOOP TO MODIFY CHANNELS
37781  M00S21770.1mt     +++|
37782  M00S21771.1mt     +++| .REDC    CHTB               CHANNEL TABLE FOR ATS INPUT LOOP
37783  M00S21772.1mt     +++| RED      SPACE  4,10
Line S21773 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37784  M01S21773.1mt51   ---|**        IOU INPUT LOOP.
Line S00572 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37785  M01S00572.1mt51   +++|**        IOU INPUT LOOP (CYBER 180).
37786  M00S21774.1mt     +++|
37787  M00S21775.1mt     +++| REDR.    BSS    0
37788  M00S21776.1mt     +++|          LOC    .REDA
37789  M00S21777.1mt     +++| RED6.    STD    BI          SAVE BYTES TO INPUT
37790  M00S21778.1mt     +++|          STD    T1
Line S00573 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37791  M01S00573.1mt51   +++|          RJM    WTS         WAIT FOR *1MT* TRANSFER TO START
37792  M00S21779.1mt     +++| RED7.    IJM    RED11,CH    IF *1MT* FINISHED INPUT
37793  M00S21780.1mt     +++|          SCF    RED7.,CH    WAIT FOR *1MT* TO READ ITS CHUNK
Line S00574 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37794  M01S00574.1mt51   +++|          RJM    ITS         INDICATE *1LT* TRANSFER STARTED
37795  M00S21781.1mt     +++|          IAM    BUFB,CH
37796  M00S21782.1mt     +++|          NJN    RED8.       IF INCOMPLETE TRANSFER
37797  M00S21783.1mt     +++|*         UJN    RED8.       LAST TRANSFER
37798  M00S21784.1mt     +++| REDB.    EQU    *-1
37799  M00S21785.1mt     +++|          CCF    *,CH        SIGNAL *1MT* TO CONTINUE INPUT
37800  M00S21786.1mt     +++| RED8.    STD    T1
37801  M00S21787.1mt     +++|          UJN    RED10       COMPUTE WORD COUNT
37802  M00S21788.1mt     +++|
37803  M00S21789.1mt     +++|          LOC    *O
37804  M00S21790.1mt     +++| REDRL.   EQU    *-REDR.     LENGTH OF IOU INPUT LOOP
37805  M00S21791.1mt     +++|
37806  M00S21792.1mt     +++|          ERRMI  .REDAL-REDRL.         OVERLAID CODE OVERFLOWED
37807  M00S21793.1mt     +++|
37808  M00S21794.1mt     +++|          CHTL   MCHA
37809  M00S21795.1mt     +++| REDC.    CHTB               CHANNEL TABLE FOR IOU INPUT LOOP
37810  M00S21796.1mt     +++|          SPACE  4,10
37811  M00S21797.1mt     +++|          TTL    1MT - PPU MAGNETIC TAPE EXECUTIVE.
37812  M00S21798.1mt     +++|          END
cdc/nos2.source/opl.opl871/deck/1mt.028.txt ยท Last modified: (external edit)