Deck MTE Part 002

10 Modifications

Seq #  *Modification Id* Act 
----------------------------+
03283  M00S01775.mte     +++|*         AND THE EXIT IS REPLACED WITH A JUMP TO *REC*.  THIS MAKES
03284  M00S01776.mte     +++|*         IT POSSIBLE FOR *REC* TO RESET THE RETRY COUNT TO ZERO FOR
03285  M00S01777.mte     +++|*         THE NEXT ERROR.
03286  M00S01778.mte     +++|
03287  M00S01779.mte     +++|
03288  M00S01780.mte     +++| REC      LDC    0           GET EXIT ADDRESS
03289  M00S01781.mte     +++| RECA     EQU    *-1         (EXIT ADDRESS)
03290  M00S01782.mte     +++|          STD    T1
03291  M00S01783.mte     +++|          LDN    0
03292  M00S01784.mte     +++|          STD    RC          RESET RETRY COUNT
03293  M00S01785.mte     +++|          STM    RECA        CLEAR EXIT ADDRESS
03294  M00S01786.mte     +++|          LJM    0,T1        RETURN
03295  M00S01787.mte     +++| SFN      SPACE  4,10
03296  M00S01788.mte     +++|**        SFN - SELECT FUNCTION.
03297  M00S01789.mte     +++|*
03298  M00S01790.mte     +++|*         ENTRY  (A) = FUNCTION CODE.
03299  M00S01791.mte     +++|*
03300  M00S01792.mte     +++|*         EXIT   (A) = 2.
03301  M00S01793.mte     +++|*                CHANNEL ACTIVATED.
03302  M00S01794.mte     +++|*                TO *ERR* IF FUNCTION TIMEOUT.
03303  M00S01795.mte     +++|
03304  M00S01796.mte     +++|
03305  M00S01797.mte     +++| SFN2     LDN    2
03306  M00S01798.mte     +++|          ACN    CH+40
03307  M00S01799.mte     +++|
03308  M00S01800.mte     +++| SFN      SUBR               ENTRY/EXIT
03309  M00S01801.mte     +++|          ADC    SC
03310  M00S01802.mte     +++|          FAN    CH+40
03311  M00S01803.mte     +++| SFN1     IJM    SFN2,CH     IF FUNCTION ACCEPTED
03312  M00S01804.mte     +++|          SBN    77
03313  M00S01805.mte     +++|          PJN    SFN1        IF NOT TIMED OUT
03314  M00S01806.mte     +++|          UJP    ERR         PROCESS ERROR
03315  M00S01807.mte     +++| DSW      SPACE  4,10
03316  M00S01808.mte     +++|**        DSW - DRIVER SERVICE PROCESSING.
03317  M00S01809.mte     +++|*
03318  M00S01810.mte     +++|*         ENTRY  (A) = 1,  RESERVE CHANNEL.
03319  M00S01811.mte     +++|*                (A) = 0,  RELEASE CHANNEL.
03320  M00S01812.mte     +++|*
03321  M00S01813.mte     +++|*         USES   T0, T1, CM - CM+4.
03322  M00S01814.mte     +++|*
03323  M00S01815.mte     +++|*         MACROS MONITOR.
03324  M00S01816.mte     +++|
03325  M00S01817.mte     +++|
03326  M00S01818.mte     +++| DSW2     RAI    T0          UPDATE CHANNEL INSTRUCTION
03327  M00S01819.mte     +++|          AOD    CM+4
03328  M00S01820.mte     +++| DSW3     LDI    CM+4
03329  M00S01821.mte     +++|          STD    T0
03330  M00S01822.mte     +++|          LDD    T4
03331  M00S01823.mte     +++| DSWA     SBN    CH
03332  M00S01824.mte     +++|          NJN    DSW2        IF MORE INSTRUCTIONS TO MODIFY
03333  M00S01825.mte     +++|
03334  M00S01826.mte     +++| DSW      SUBR               ENTRY/EXIT
03335  M00S01827.mte     +++|          STD    CM+3
03336  M00S01828.mte     +++|          LMN    1
03337  M00S01829.mte     +++|          STD    CM
03338  M00S01830.mte     +++|          LDD    MA          WRITE *DSWM* PARAMETERS
03339  M00S01831.mte     +++|          CWD    T4
03340  M00S01832.mte     +++|          MONITOR  DSWM
03341  M00S01833.mte     +++|          LDD    CM+4
03342  M00S01834.mte     +++|          SBD    T4
03343  M00S01835.mte     +++|          ZJN    DSWX        IF NOT TO MODIFY INSTRUCTIONS
03344  M00S01836.mte     +++|          RAD    T4
03345  M00S01837.mte     +++|          LDC    ADNI-1
03346  M00S01838.mte     +++|          STM    MTEB
03347  M00S01839.mte     +++| DSW1     AOM    MTEB
03348  M00S01840.mte     +++|          LCN    5
03349  M00S01841.mte     +++|          RAD    CM+4
03350  M00S01842.mte     +++|          PJN    DSW1        IF NOT END OF DIVIDE
03351  M00S01843.mte     +++|          ADC    LDDI+CM+5
03352  M00S01844.mte     +++|          STM    MTEC
03353  M00S01845.mte     +++|          LDC    TCHS        START OF CHANNEL LIST
03354  M00S01846.mte     +++|          STD    CM+4
03355  M00S01847.mte     +++|          LJM    DSW3        MODIFY INSTRUCTIONS
03356  M00S01848.mte     +++|          SPACE  4,10
03357  M00S01849.mte     +++|*         CHANNEL TABLE.
03358  M00S01850.mte     +++|
03359  M00S01851.mte     +++|
03360  M00S01852.mte     +++|          CHTL   DSWA        TERMINATE CHANNEL TABLE
03361  M00S01853.mte     +++| TCHS     CHTB
03362  M00S01854.mte     +++|
03363  M00S01855.mte     +++| EEMI     EQU    *           END OF EXTENDED MEMORY INTERFACE ROUTINES
03364  M00S01856.mte     +++|          TITLE  TABLES.
03365  M00S01857.mte     +++| TPPR     SPACE  4,10
03366  M00S01858.mte     +++|*         TPPR - TABLE OF *MTE* PP REQUESTS.
03367  M00S01859.mte     +++|*
03368  M00S01860.mte     +++|*         ENTRY = 1 WORD.
03369  M00S01861.mte     +++|*         INDEXED BY MONITOR FUNCTION CODE.
03370  M00S01862.mte     +++|*
03371  M00S01863.mte     +++|*T,       12/  ADDR

Figure

03372  M00S01864.mte     +++|
03373  M00S01865.mte     +++|
03374  M00S01866.mte     +++| TPPR     EQU    *-CPUM
03375  M00S01867.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
03376  M01S01868.271l716 ---|          DUP    ECSM+1-CPUM,1

Seq #  *Modification Id* Act 
----------------------------+
03377  M01S00014.271l716 +++|          DUP    MXFNC+1-CPUM,1
03378  M00S01869.mte     +++|          CON    HNG
03379  M00S01870.mte     +++|
03380  M00S01871.mte     +++|          LIST   G
03381  M00S01872.mte     +++| PPR      HERE   INSERT      REQUEST PROCESSOR ADDRESSES
03382  M00S01873.mte     +++|          LIST   *

Seq #  *Modification Id* Act 
----------------------------+
03383  M01S01874.271l716 ---|          ORG    TPPR+ECSM+1

Seq #  *Modification Id* Act 
----------------------------+
03384  M01S00015.271l716 +++|          ORG    TPPR+MXFNC+1
03385  M00S01875.mte     +++| FLAG     SPACE  4,10
03386  M00S01876.mte     +++|*         FLAG BIT SET/CLEAR FUNCTIONS.
03387  M00S01877.mte     +++|
03388  M00S01878.mte     +++|
03389  M00S01879.mte     +++| SCOMI    VFD    24/40000000+.COMI
03390  M00S01880.mte     +++| TCOMI    VFD    24/60000000+.COMI
03391  M00S01881.mte     +++| SFATI    VFD    24/40000000+.FATI
03392  M00S01882.mte     +++| CFATI    VFD    24/70000000+.FATI
03393  M00S01883.mte     +++| STRTI    VFD    24/40000000+.TRTI
03394  M00S01884.mte     +++| CTRTI    VFD    24/70000000+.TRTI

Seq #  *Modification Id* Act 
----------------------------+
03395  M01S01160.283l840 +++| SBATI    VFD    24/40000000+.BATI
03396  M01S01161.283l840 +++| CBATI    VFD    24/70000000+.BATI
03397  M01S01162.283l840 +++| SBDTI    VFD    24/40000000+.BDTI
03398  M01S01163.283l840 +++| CBDTI    VFD    24/70000000+.BDTI
03399  M01S01164.283l840 +++| SBDRI    VFD    24/40000000+.BDRI
03400  M01S01165.283l840 +++| TBDRI    VFD    24/60000000+.BDRI
03401  M01S01166.283l840 +++| CBDRI    VFD    24/70000000+.BDRI

Seq #  *Modification Id* Act 
----------------------------+
03402  M01S01885.273l780 ---|          INMOD  STRTI,MM    ADD MACHINE MASK TO *TRTI* FLAG OPERATIONS
03403  M01S01886.273l780 ---|          INMOD  CTRTI,MM

Seq #  *Modification Id* Act 
----------------------------+
03404  M01S00017.273l780 +++|          CREL   STRTI,MM    ADD MACHINE MASK TO *TRTI* FLAG OPERATIONS
03405  M01S00018.273l780 +++|          CREL   CTRTI,MM
03406  M00S01887.mte     +++|
03407  M00S01888.mte     +++| LWA      EQU    *L
03408  M00S01889.mte     +++| MAINL    EQU    LWA-FWA     LENGTH OF MAIN BLOCK
03409  M00S01890.mte     +++|
03410  M00S01891.mte     +++|          ERRNG  EPFW-*      CODE OVERFLOWS INTO ERROR PROCESSOR
03411  M00S01892.mte     +++|          TITLE  UEM SIMULATION OF EXTENDED MEMORY.
03412  M00S01893.mte     +++|**        UEM SIMULATION OF EXTENDED MEMORY.
03413  M00S01894.mte     +++|*
03414  M00S01895.mte     +++|*         THE FOLLOWING CODE OVERLAYS THE EXTENDED MEMORY INTERFACE
03415  M00S01896.mte     +++|*         ROUTINES WHEN UEM IS DECLARED AS THE LINK DEVICE.  THE
03416  M00S01897.mte     +++|*         ENTRY POINTS *IFR*, *RDW*, *WTW*, AND *DSW* MUST BE THE SAME
03417  M00S01898.mte     +++|*         IN THE OVERLAYED CODE.
03418  M00S01899.mte     +++|
03419  M00S01900.mte     +++|
03420  M00S01901.mte     +++| UEMI     BSS    0           BEGINING OF UEM INTERFACE CODE
03421  M00S01902.mte     +++| OEMI     EQU    RDW-1       ORIGIN OF INTERFACE ROUTINES
03422  M00S01903.mte     +++|          LOC    OEMI
03423  M00S01904.mte     +++|          QUAL   UEM
03424  M00S01905.mte     +++| IFR      EQU    //IFR       INSURE ENTRY POINTS MATCH
03425  M00S01906.mte     +++| RDW      EQU    //RDW
03426  M00S01907.mte     +++| WTW      EQU    //WTW
03427  M00S01908.mte     +++| DSW      EQU    //DSW
03428  M00S01909.mte     +++| RDW      SPACE  4,10
03429  M00S01910.mte     +++|**        RDW - READ UEM WORDS.
03430  M00S01911.mte     +++|*
03431  M00S01912.mte     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
03432  M00S01913.mte     +++|*                (EA - EA+1) = UEM ADDRESS TO READ FROM.
03433  M00S01914.mte     +++|*                (WC) = WORD COUNT OF TRANSFER.
03434  M00S01915.mte     +++|*
03435  M00S01916.mte     +++|*         EXIT   (A) .LT. 0, IF UNRECOVERABLE PARITY ERROR.
03436  M00S01917.mte     +++|*
03437  M00S01918.mte     +++|*         CALLS  SUA.
03438  M00S01919.mte     +++|
03439  M00S01920.mte     +++|
03440  M00S01921.mte     +++|          BSS    RDW-1-*     INSURE ENTRY POINT COINCIDES
03441  M00S01922.mte     +++| RDW      SUBR               ENTRY/EXIT
03442  M00S01923.mte     +++|          STM    RDWA        SAVE PP BUFFER ADDRESS
03443  M00S01924.mte     +++|          RJM    SUA         SET ADDRESS
03444  M00S01925.mte     +++|          CRM    *,WC
03445  M00S01926.mte     +++| RDWA     EQU    *-1         READ BUFFER ADDRESS
03446  M00S01927.mte     +++|          LDN    0
03447  M00S01928.mte     +++|          UJN    RDWX        RETURN
03448  M00S01929.mte     +++| WTW      SPACE  4,10
03449  M00S01930.mte     +++|**        WTW - WRITE WORDS TO UEM.
03450  M00S01931.mte     +++|*
03451  M00S01932.mte     +++|*         ENTRY  (A) = BYTE ADDRESS OF DATA TO WRITE.
03452  M00S01933.mte     +++|*                (EA - EA+1) = UEM ADDRESS TO READ FROM.
03453  M00S01934.mte     +++|*                (WC) = WORD COUNT OF TRANSFER.
03454  M00S01935.mte     +++|*
03455  M00S01936.mte     +++|*         EXIT   (A) .LT. 0, IF UNRECOVERABLE PARITY ERROR.
03456  M00S01937.mte     +++|*
03457  M00S01938.mte     +++|*         CALLS  SUA.
03458  M00S01939.mte     +++|
03459  M00S01940.mte     +++|
03460  M00S01941.mte     +++|          BSS    WTW-1-*-7   INSURE ENTRY POINT COINCIDES
03461  M00S01942.mte     +++| WTW1     STM    WTWA        SET BUFFER ADDRESS
03462  M00S01943.mte     +++|          RJM    SUA         SET ADDRESS
03463  M00S01944.mte     +++|          CWM    *,WC
03464  M00S01945.mte     +++| WTWA     EQU    *-1         WRITE BUFFER ADDRESS
03465  M00S01946.mte     +++|          LDN    0
03466  M00S01947.mte     +++|
03467  M00S01948.mte     +++| WTW      SUBR               ENTRY/EXIT
03468  M00S01949.mte     +++|          UJN    WTW1        PROCESS WRITE
03469  M00S01950.mte     +++| IFR      SPACE  4,10
03470  M00S01951.mte     +++|**        IFR - SIMULATE FLAG FUNCTION FOR UEM.
03471  M00S01952.mte     +++|*
03472  M00S01953.mte     +++|*         ENTRY  (A) = ADDRESS OF FLAG FUNCTION WORDS.
03473  M00S01954.mte     +++|*
03474  M00S01955.mte     +++|*         EXIT   (A) = 0, IF FLAG FUNCTION PERFORMED.
03475  M00S01956.mte     +++|*
03476  M00S01957.mte     +++|*         USES   T1, CM - CM+4.
03477  M00S01958.mte     +++|
03478  M00S01959.mte     +++|
03479  M00S01960.mte     +++|          BSS    IFR-1-*-13  INSURE ENTRY POINT COINCIDES
03480  M00S01961.mte     +++| IFR2     LDD    CM+3        CLEAR FLAG BITS
03481  M00S01962.mte     +++| IFRA     SCN    0
03482  M00S01963.mte     +++|          STD    CM+3
03483  M00S01964.mte     +++|          LDD    CM+4
03484  M00S01965.mte     +++|          LPC    7777
03485  M00S01966.mte     +++| IFRB     EQU    *-1
03486  M00S01967.mte     +++|          STD    CM+4
03487  M00S01968.mte     +++| IFR3     LDK    EFRL        REWRITE FLAG BITS TO CM
03488  M00S01969.mte     +++|          CWD    CM
03489  M00S01970.mte     +++|          LDN    0
03490  M00S01971.mte     +++|
03491  M00S01972.mte     +++| IFR      SUBR               ENTRY/EXIT
03492  M00S01973.mte     +++|          STD    T1
03493  M00S01974.mte     +++|          LDK    EFRL        READ CURRENT STATUS
03494  M00S01975.mte     +++|          CRD    CM
03495  M00S01976.mte     +++|          LDI    T1
03496  M00S01977.mte     +++|          SHN    21-11
03497  M00S01978.mte     +++|          MJN    IFR1        IF CLEAR FUNCTION
03498  M00S01979.mte     +++|
03499  M00S01980.mte     +++|*         TEST AND SET FLAG OPERATION.
03500  M00S01981.mte     +++|
03501  M00S01982.mte     +++|          SHN    11-21+22
03502  M00S01983.mte     +++|          LMD    CM+3
03503  M00S01984.mte     +++|          SBD    CM+3
03504  M00S01985.mte     +++|          LMI    T1
03505  M00S01986.mte     +++|          NJN    IFRX        IF BIT SET
03506  M00S01987.mte     +++|          LDM    1,T1
03507  M00S01988.mte     +++|          LMD    CM+4
03508  M00S01989.mte     +++|          SBD    CM+4
03509  M00S01990.mte     +++|          LMM    1,T1
03510  M00S01991.mte     +++|          NJN    IFRX        IF BIT SET
03511  M00S01992.mte     +++|          LDI    T1
03512  M00S01993.mte     +++|          SHN    -11
03513  M00S01994.mte     +++|          LMN    6
03514  M00S01995.mte     +++|          ZJN    IFRX        IF TEST FUNCTION
03515  M00S01996.mte     +++|          LDI    T1          SET BIT(S) IN CM WORD
03516  M00S01997.mte     +++|          LPN    77
03517  M00S01998.mte     +++|          RAD    CM+3
03518  M00S01999.mte     +++|          LDM    1,T1
03519  M00S02000.mte     +++|          RAD    CM+4
03520  M00S02001.mte     +++|          UJP    IFR3        RETURN STATUS
03521  M00S02002.mte     +++|
03522  M00S02003.mte     +++| IFR1     SHN    11-21       CLEAR FLAG BITS
03523  M00S02004.mte     +++|          ADK    SCNI-1000
03524  M00S02005.mte     +++|          STM    IFRA
03525  M00S02006.mte     +++|          LCN    0
03526  M00S02007.mte     +++|          LMM    1,T1
03527  M00S02008.mte     +++|          STM    IFRB
03528  M00S02009.mte     +++|          UJP    IFR2        CLEAR FLAG BITS
03529  M00S02010.mte     +++| SUA      SPACE  4,10
03530  M00S02011.mte     +++|**        SUA - SET UEM ADDRESS.
03531  M00S02012.mte     +++|*
03532  M00S02013.mte     +++|*         ENTRY  (EA - EA-1) = UEM ADDRESS TO SET.
03533  M00S02014.mte     +++|*
03534  M00S02015.mte     +++|*         EXIT   (A) = 400000 + UEM ADDRESS.
03535  M00S02016.mte     +++|*                R-REGISTER SET TO UEM BASE ADDRESS.
03536  M00S02017.mte     +++|*
03537  M00S02018.mte     +++|*         USES   CM - CM+4.
03538  M00S02019.mte     +++|
03539  M00S02020.mte     +++|
03540  M00S02021.mte     +++| SUA      SUBR               ENTRY/EXIT
03541  M00S02022.mte     +++|          LDK    UEML        SET R REGISTER
03542  M00S02023.mte     +++|          CRD    CM
03543  M00S02024.mte     +++|          LDD    EA          SET R-REGISTER
03544  M00S02025.mte     +++|          SCN    17
03545  M00S02026.mte     +++|          SHN    3
03546  M00S02027.mte     +++|          ADD    CM          ADD BASE ADDRESS
03547  M00S02028.mte     +++|          SHN    3
03548  M00S02029.mte     +++|          STD    CM+1
03549  M00S02030.mte     +++|          SHN    -14
03550  M00S02031.mte     +++|          STD    CM
03551  M00S02032.mte     +++|          LRD    CM
03552  M00S02033.mte     +++|          LDD    EA          SET RELATIVE ADDRESS
03553  M00S02034.mte     +++|          LPN    17
03554  M00S02035.mte     +++|          ADN    40
03555  M00S02036.mte     +++|          SHN    14
03556  M00S02037.mte     +++|          ADD    EA+1
03557  M00S02038.mte     +++|          UJN    SUAX        RETURN
03558  M00S02039.mte     +++| DSW      SPACE  4,10
03559  M00S02040.mte     +++|**        DSW - DRIVER SERVICE PROCESSING.
03560  M00S02041.mte     +++|*
03561  M00S02042.mte     +++|*         USES   T4.
03562  M00S02043.mte     +++|
03563  M00S02044.mte     +++|
03564  M00S02045.mte     +++|          BSS    DSW-1-*     INSURE ENTRY POINTS COINCIDE
03565  M00S02046.mte     +++| DSW      SUBR               ENTRY/EXIT
03566  M00S02047.mte     +++|          LDN    37          INSURE CHANNEL NUMBER IN BOUNDS
03567  M00S02048.mte     +++|          STD    T4
03568  M00S02049.mte     +++|          UJN    DSWX        RETURN
03569  M00S02050.mte     +++|
03570  M00S02051.mte     +++|          QUAL   *
03571  M00S02052.mte     +++|          LOC    *O
03572  M00S02053.mte     +++| UEMIL    EQU    *-UEMI      LENGTH OF UEM BLOCK
03573  M00S02054.mte     +++|          ERRPL  *-7777      CODE EXCEEDS PP
03574  M00S02055.mte     +++|          SPACE  4,10
03575  M00S02056.mte     +++|          TITLE  PRESET.
03576  M00S02057.mte     +++| PRS      SPACE  4,10
03577  M00S02058.mte     +++|*         PRS - PRESET TABLES AND CONSTANTS.
03578  M00S02059.mte     +++|
03579  M00S02060.mte     +++|
03580  M00S02061.mte     +++|          USE
03581  M00S02062.mte     +++|
03582  M00S02063.mte     +++| PRS      LDN    MXQP-1      PRESET QUEUE ENTRY
03583  M00S02064.mte     +++|          STD    QE
03584  M00S02065.mte     +++|          LDN    NPPU-1
03585  M00S02066.mte     +++|          STD    QH
03586  M00S02067.mte     +++|          STD    QT

Seq #  *Modification Id* Act 
----------------------------+
03587  M01S02068.283l840 ---|          LDN    LLLL
03588  M01S02069.283l840 ---|          STD    LL
03589  M00S02070.mte     +++|          LDD    OA          SET MESSAGE BUFFER ADDRESS
03590  M00S02071.mte     +++|          ADN    1
03591  M00S02072.mte     +++|          STD    MA
03592  M00S02073.mte     +++|          LDN    ZERL        SET ZERO WORD
03593  M00S02074.mte     +++|          CRD    ZR

Seq #  *Modification Id* Act 
----------------------------+
03594  M01S00019.273l780 +++|          LDK    PPCP
03595  M01S00020.273l780 +++|          CRD    CM
03596  M01S00021.273l780 +++|          AOD    CM+4        SET *MTR* OUTPUT REGISTER ADDRESS
03597  M01S00022.273l780 +++|          STD    OF
03598  M01S00023.273l780 +++|          LDD    CM          SET EXTENDED PP COMMUNICATION AREA ADDRESS
03599  M01S00024.273l780 +++|          STM    PPX
03600  M01S00025.273l780 +++|          LDD    CM+1
03601  M01S00026.273l780 +++|          STM    PPX+1
03602  M00S02075.mte     +++|          RJM    IFP         INITIALIZE *COMPGFP*
03603  M00S02076.mte     +++|          LDN    0           INITIALIZE DRIVER STATUS BYTES
03604  M00S02077.mte     +++|          STD    BR
03605  M00S02078.mte     +++|          STD    ST
03606  M00S02079.mte     +++|          STD    RC

Seq #  *Modification Id* Act 
----------------------------+
03607  M01S02080.ns2783  ---|          LDD    MA          INITIALIZE BREAKPOINT COMMUNICATION
03608  M01S02081.ns2783  ---|          ADN    5
03609  M01S02082.ns2783  ---|          CWM    BKDW,ON
03610  M00S02083.mte     +++|          LDK    CHTP        SET CHANNEL INTERLOCK TABLE ADDRESS
03611  M00S02084.mte     +++|          CRD    CM
03612  M00S02085.mte     +++|          LDD    CM+3
03613  M00S02086.mte     +++|          STM    MTEA+1
03614  M00S02087.mte     +++|          LDD    CM+2
03615  M00S02088.mte     +++|          RAM    MTEA
03616  M00S02089.mte     +++|          LDK    MABL        READ HARDWARE OPTIONS
03617  M00S02090.mte     +++|          CRD    CM
03618  M00S02091.mte     +++|          LDD    CM+1        CHECK MAINFRAME TYPE
03619  M00S02092.mte     +++|          SHN    21-13
03620  M00S02093.mte     +++|          MJN    PRS1        IF NOT CM EXTENSION
03621  M00S02094.mte     +++|          AOM    RWEA        CHANGE READ TO *FLSW*+1
03622  M00S02095.mte     +++| PRS1     LDK    MMFL        SET LINK DEVICE EQUIPMENT
03623  M00S02096.mte     +++|          CRD    CM
03624  M00S02097.mte     +++|          LDD    CM+1
03625  M00S02098.mte     +++|          LPC    777
03626  M00S02099.mte     +++|          STD    T5
03627  M00S02100.mte     +++|          SFA    EST         SET EXTENDED MEMORY EQUIPMENT TYPE

Seq #  *Modification Id* Act 
----------------------------+
03628  M01S00010.252l678 +++|          CRD    CM
03629  M01S00011.252l678 +++|          ADK    EQAE-EQDE
03630  M01S00012.252l678 +++|          CRD    FS
03631  M01S00013.252l678 +++|          LDD    FS+2
03632  M01S00014.252l678 +++|          SHN    -6
03633  M01S00015.252l678 +++|          LPN    3
03634  M01S00016.252l678 +++|          STD    CM+2        SAVE EXTENDED MEMORY SHIFT COUNT
03635  M01S00017.252l678 +++|          LDD    CM+2        PICK UP *EMSC*
03636  M01S00018.252l678 +++|          ADN    5
03637  M01S00019.252l678 +++|          LMN    77
03638  M01S00020.252l678 +++|          RAM    CLEE        MODIFY *CLE* TO ROUND TO *EMBS*
03639  M01S00021.252l678 +++|          LDN    4
03640  M01S00022.252l678 +++|          SBD    CM+2
03641  M01S00023.252l678 +++|          LMN    77
03642  M01S00024.252l678 +++|          RAM    PRSB
03643  M01S00025.252l678 +++|          LDC    377
03644  M01S00026.252l678 +++| PRSB     SHN    0
03645  M01S00027.252l678 +++|*         SHN    4-EMSC
03646  M01S00028.252l678 +++|          STM    CLED
03647  M01S00029.252l678 +++|          LDD    CM+2
03648  M01S00030.252l678 +++|          RAM    AFPA

Seq #  *Modification Id* Act 
----------------------------+
03649  M01S01167.283l840 +++|          STM    SEAA

Seq #  *Modification Id* Act 
----------------------------+
03650  M01S00031.252l678 +++|          LDD    CM+2
03651  M01S00032.252l678 +++|          RAM    ILDA
03652  M01S00033.252l678 +++|          STM    PRSC
03653  M01S00034.252l678 +++|          STM    CLEC
03654  M01S00035.252l678 +++|          LDN    20          MINIMUM SECTORS PER TRACK
03655  M01S00036.252l678 +++| PRSC     SHN    0           CALCULATE SECTORS PER TRACK
03656  M01S00037.252l678 +++|*         SHN    EMSC
03657  M01S00038.252l678 +++|          STD    CM+2
03658  M01S00039.252l678 +++|          STM    CLEB

Seq #  *Modification Id* Act 
----------------------------+
03659  M01S01168.283l840 +++|          STM    SEAB+1
03660  M01S01169.283l840 +++|          STM    EBRA+1
03661  M01S01170.283l840 +++|          STM    EBRB+1

Seq #  *Modification Id* Act 
----------------------------+
03662  M01S00040.252l678 +++|          RAM    AFAA+1
03663  M01S00041.252l678 +++|          SHN    -14
03664  M01S00042.252l678 +++|          RAM    AFAA
03665  M01S00043.252l678 +++|          LDD    CM+2
03666  M01S00044.252l678 +++|          RAM    SLAA+1
03667  M01S00045.252l678 +++|          SHN    -14
03668  M01S00046.252l678 +++|          RAM    SLAA
03669  M01S00047.252l678 +++|          LDD    T5
03670  M01S00048.252l678 +++|          SFA    EST
03671  M00S02101.mte     +++|          CRD    CM
03672  M00S02102.mte     +++|          LDD    CM+4
03673  M00S02103.mte     +++|          SHN    3
03674  M00S02104.mte     +++|          ADN    DILL
03675  M00S02105.mte     +++|          CRD    CM
03676  M00S02106.mte     +++|          SBN    DILL        SET *AFAM* PRESET
03677  M00S02107.mte     +++|          RAM    AFP+1
03678  M00S02108.mte     +++|          SHN    -14
03679  M00S02109.mte     +++|          RAM    AFP
03680  M00S02110.mte     +++|          LDD    CM+3
03681  M00S02111.mte     +++|          SHN    -6
03682  M00S02112.mte     +++|          LPN    7
03683  M00S02113.mte     +++|          STM    PRSA
03684  M00S02114.mte     +++|          LMN    4
03685  M00S02115.mte     +++|          NJN    PRS3        IF NOT UEM
03686  M00S02116.mte     +++|          LDC    UEMIL-1     MOVE EXTENDED MEMORY SIMULATION CODE
03687  M00S02117.mte     +++|          STD    T1
03688  M00S02118.mte     +++| PRS2     LDM    UEMI,T1
03689  M00S02119.mte     +++|          STM    OEMI,T1
03690  M00S02120.mte     +++|          SOD    T1
03691  M00S02121.mte     +++|          PJN    PRS2        IF MOVE NOT COMPLETE
03692  M00S02122.mte     +++|          UJP    PRS7        AVOID PORT PRESET
03693  M00S02123.mte     +++|
03694  M00S02124.mte     +++| PRS3     LDN    CH          PRESET CHANNEL NUMBER
03695  M00S02125.mte     +++|          STD    T4
03696  M00S02126.mte     +++|          LDN    1           RESERVE CHANNEL
03697  M00S02127.mte     +++|          RJM    DSW
03698  M00S02128.mte     +++|          RJM    SCP         SET CHANNEL IN PRESET INSTRUCTIONS
03699  M00S02129.mte     +++|          FNC    MCFN+SC,CH  MASTER CLEAR PORT
03700  M00S02130.mte     +++|          LDN    40
03701  M00S02131.mte     +++| PRS4     SBN    1
03702  M00S02132.mte     +++|          MJN    PRS6        IF FUNCTION TIMED OUT
03703  M00S02133.mte     +++|          AJM    PRS4,CH     IF CHANNEL ACTIVE
03704  M00S02134.mte     +++|          LDC    0
03705  M00S02135.mte     +++| PRSA     EQU    *-1         EXTENDED MEMORY TYPE

Seq #  *Modification Id* Act 
----------------------------+
03706  M01S02136.261l700 ---|          LMN    5
03707  M01S02137.261l700 ---|          NJN    PRS7        IF NOT ESM

Seq #  *Modification Id* Act 
----------------------------+
03708  M01S00001.261l700 +++|          SBN    5
03709  M01S00002.261l700 +++|          MJN    PRS7        IF NEITHER ESM NOR STORNET
03710  M01S00003.261l700 +++|          SBN    7-5
03711  M01S00004.261l700 +++|          PJN    PRS7        IF NEITHER ESM NOR STORNET
03712  M00S02138.mte     +++|          FNC    ESFN+SC,CH  SET ECS MODE ADDRESSING
03713  M00S02139.mte     +++|          LDN    40
03714  M00S02140.mte     +++| PRS5     SBN    1
03715  M00S02141.mte     +++|          IJM    PRS7,CH     IF CHANNEL INACTIVE
03716  M00S02142.mte     +++|          PJN    PRS5        IF FUNCTION NOT TIMED OUT
03717  M00S02143.mte     +++| PRS6     LDC    200+MS2W
03718  M00S02144.mte     +++|          CWM    MSGA,TR     *PORT PRESET FAILED ON MMF LINK.*
03719  M00S02145.mte     +++|          UJN    *           HANG

Seq #  *Modification Id* Act 
----------------------------+
03720  M01S02146.283l840 ---|

Seq #  *Modification Id* Act 
----------------------------+
03721  M02S02147.283l840 ---| PRS7     UJN    ILD         INITIALIZE LINK DEVICE

Seq #  *Modification Id* Act 
----------------------------+
03722  M02S00049.283l840 ---| PRS7     LJM    ILD         INITIATE LINK DEVICE
03723  M02S00050.283l840 ---|
03724  M02S00051.283l840 ---|*
03725  M02S00052.283l840 ---|*         FORM A BUFFER FOR USE IN EXTENDED MEMORY CLEARING
03726  M02S00053.283l840 ---|*         BY ROUTINE *CLE*. THE BUFFER IS SET UP SO THAT IT
03727  M02S00054.283l840 ---|*         OVERLAYS *PRS* CODE WHICH IS NO LONGER NEEDED.
03728  M02S00055.283l840 ---|*
03729  M02S00056.283l840 ---|
03730  M02S00057.283l840 ---| CLEA     EQU    PRS
03731  M02S00058.283l840 ---| .ILD     MAX    *,PRS+505
03732  M02S00059.283l840 ---|
03733  M00S02148.mte     +++| ILD      SPACE  4,10
03734  M00S02149.mte     +++|**        ILD - INITIALIZE MMF LINK DEVICE.
03735  M00S02150.mte     +++|*
03736  M00S02151.mte     +++|*         ENTRY  (IR+4) = RECOVERY MODE.
03737  M00S02152.mte     +++|*
03738  M00S02153.mte     +++|*         EXIT   TO MAIN LOOP.
03739  M00S02154.mte     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03740  M01S02155.273l780 ---|*         CALLS  CAM, CIR, CLE, INM, SLA.

Seq #  *Modification Id* Act 
----------------------------+
03741  M02S00027.ns2783  ---|*         CALLS  CAM, CIR, CLE, SIC, SLA.

Seq #  *Modification Id* Act 
----------------------------+
03742  M01S00240.ns2783  +++|*         USES   IR+2, RM, T1, T6, T8, CM - CM+4, EA - EA+4,
03743  M01S00241.ns2783  +++|*                FS - FS+4, OR - OR+4
03744  M00S02156.mte     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03745  M01S02157.ns2783  ---|*         MACROS CFLAG, DELAY, MONITOR, READEM, SFLAG, WRITEM.

Seq #  *Modification Id* Act 
----------------------------+
03746  M01S00242.ns2783  +++|*         CALLS  CAM, CIR, CLE, IBP, SIC, SLA.
03747  M01S00243.ns2783  +++|*
03748  M01S00244.ns2783  +++|*         MACROS CFLAG, DELAY, ISTORE, READEM, SFLAG, WRITEM.
03749  M00S02158.mte     +++|
03750  M00S02159.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
03751  M01S02160.252l678 ---| ILD      LDN    ZERL        ZERO LABEL TRACK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03752  M02S00060.283l840 ---|          ORG    .ILD
03753  M02S00061.283l840 ---| ILD      LDC    PRS         USE *PRS* CODE AS AN EM CLEARING BUFFER
03754  M02S00062.283l840 ---|          STD    CM
03755  M02S00063.283l840 ---|          LDC    505         NUMBER OF WORDS WHICH NEED TO BE ZEROED
03756  M02S00064.283l840 ---|          STD    CM+1
03757  M02S00065.283l840 ---| ILD0     LDN    0
03758  M02S00066.283l840 ---|          STI    CM
03759  M02S00067.283l840 ---|          AOD    CM
03760  M02S00068.283l840 ---|          SOD    CM+1
03761  M02S00069.283l840 ---|          NJN    ILD0        IF MORE WORDS TO CLEAR
03762  M02S00070.283l840 ---|          LDN    ZERL        ZERO LABEL TRACK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03763  M01S01171.283l840 +++| PRS7     BSS    0
03764  M01S01172.283l840 +++| ILD      LDN    ZERL        ZERO LABEL TRACK ADDRESS
03765  M00S02161.mte     +++|          CRD    EA
03766  M00S02162.mte     +++|          ADK    EFRL-ZERL   READ LINK DEVICE PARAMETERS
03767  M00S02163.mte     +++|          CRD    FS
03768  M00S02164.mte     +++|          CRD    CM
03769  M00S02165.mte     +++|          LDN    0
03770  M00S02166.mte     +++|          STD    CM+3
03771  M00S02167.mte     +++|          STD    CM+4
03772  M00S02168.mte     +++|          LDK    EFRL        CLEAR FLAG REGISTER STATUS
03773  M00S02169.mte     +++|          CWD    CM
03774  M00S02170.mte     +++|          LDD    FS+4
03775  M00S02171.mte     +++|          STD    IR+2
03776  M00S02172.mte     +++|          LPN    77
03777  M00S02173.mte     +++|          STD    T6
03778  M00S02174.mte     +++|          LDD    FS+2
03779  M00S02175.mte     +++|          LPN    20
03780  M00S02176.mte     +++|          ZJN    ILD3        IF NO INITIALIZE OF LINK DEVICE
03781  M00S02177.mte     +++| ILD1     SOD    T6          COMPUTE LABEL TRACK ADDRESS
03782  M00S02178.mte     +++|          MJN    ILD4        IF NOT END OF MULTIPLY

Seq #  *Modification Id* Act 
----------------------------+
03783  M01S02179.252l678 ---| ILD2     LDC    101*SLDP

Seq #  *Modification Id* Act 
----------------------------+
03784  M01S00071.252l678 +++| ILD2     LDC    2020        MINIMUM POSSIBLE WORDS PER TRACK
03785  M01S00072.252l678 +++| ILDA     SHN    0           CALCULATE WORDS PER TRACK
03786  M01S00073.252l678 +++|*         SHN    EMSC
03787  M00S02180.mte     +++|          RAD    EA+1
03788  M00S02181.mte     +++|          SHN    -14
03789  M00S02182.mte     +++|          RAD    EA
03790  M00S02183.mte     +++|          LDD    FS+2
03791  M00S02184.mte     +++|          LPN    20
03792  M00S02185.mte     +++|          NJN    ILD1        IF INITIALIZE OF LINK DEVICE
03793  M00S02186.mte     +++|
03794  M00S02187.mte     +++|*         SEARCH FOR LABEL TRACK.
03795  M00S02188.mte     +++|
03796  M00S02189.mte     +++| ILD3     READEM 1,OR        READ LABEL LINKAGE WORD
03797  M00S02190.mte     +++|          LDD    OR
03798  M00S02191.mte     +++|          ADD    OR+1
03799  M00S02192.mte     +++|          ADD    OR+2
03800  M00S02193.mte     +++|          ADD    OR+3
03801  M00S02194.mte     +++|          ADD    OR+4
03802  M00S02195.mte     +++|          LMC    3777+77+2RLA+2RBE+1RL*100
03803  M00S02196.mte     +++|          ZJN    ILD4        IF LABEL TRACK FOUND
03804  M00S02197.mte     +++|          AOD    IR+2
03805  M00S02198.mte     +++|          ADC    -LTKL
03806  M00S02199.mte     +++|          MJN    ILD2        IF MORE TRACKS TO CHECK
03807  M00S02200.mte     +++|          LDN    1           SET LABEL TRACK NOT FOUND ERROR
03808  M00S02201.mte     +++|          LJM    ILD18       PROCESS ERROR
03809  M00S02202.mte     +++|
03810  M00S02203.mte     +++| ILD4     LDD    EA+1        INSERT LABEL ADDRESS IN *SLA*
03811  M00S02204.mte     +++|          RAM    SLAA+1
03812  M00S02205.mte     +++|          SHN    -14
03813  M00S02206.mte     +++|          ADD    EA
03814  M00S02207.mte     +++|          RAM    SLAA
03815  M00S02208.mte     +++|          LDK    DSSL
03816  M00S02209.mte     +++|          CRD    CM
03817  M00S02210.mte     +++|          ADK    MMFL-DSSL
03818  M00S02211.mte     +++|          CRD    OR
03819  M00S02212.mte     +++|          LDD    CM+4        SET RECOVERY MODE
03820  M00S02213.mte     +++|          LPN    3
03821  M00S02214.mte     +++|          STD    RM
03822  M00S02215.mte     +++|          UJN    ILD6        SET PRESET INTERLOCK
03823  M00S02216.mte     +++|
03824  M00S02217.mte     +++| ILD5     LDD    FS+2
03825  M00S02218.mte     +++|          LPN    40
03826  M00S02219.mte     +++|          NJN    ILD7        IF TO PRESET
03827  M00S02220.mte     +++| ILD6     SFLAG  PRSI,ILD5   SET PRESET INTERLOCK
03828  M00S02221.mte     +++|
03829  M00S02222.mte     +++| ILD7     RJM    CAM         INITIALIZE MACHINE CLOCKS
03830  M00S02223.mte     +++|          LDD    FS+2
03831  M00S02224.mte     +++|          LPN    40
03832  M00S02225.mte     +++|          STD    T8
03833  M00S02226.mte     +++|          ZJP    ILD9        IF NO PRESET OF LINK DEVICE
03834  M00S02227.mte     +++|
03835  M00S02228.mte     +++|*         PRESET PROCESSING.
03836  M00S02229.mte     +++|*         CHECK FOR MACHINES ACTIVE BY STATUSING *MFET* WORDS.
03837  M00S02230.mte     +++|
03838  M00S02231.mte     +++|          LDC    200+MS2W
03839  M00S02232.mte     +++|          CWM    MSGB,TR     *CHECKING FOR ACTIVE MACHINES.*
03840  M00S02233.mte     +++|          DELAY  2048D*10    TOTAL DELAY IS 2048 MILLISECONDS
03841  M00S02234.mte     +++|          RJM    CAM         CHECK ACTIVE MACHINES
03842  M00S02235.mte     +++|          LDD    T9
03843  M00S02236.mte     +++|          ZJN    ILD8        IF NO ACTIVE MACHINE FOUND
03844  M00S02237.mte     +++|          LDN    6           MACHINE ACTIVITY PREVENTS PRESET
03845  M00S02238.mte     +++|          LJM    ILD18       PROCESS ERROR
03846  M00S02239.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
03847  M01S01173.283l840 +++|*         THE SECTOR OF ZERO WORDS THAT BEGINS AT *TBUF* MUST NOT
03848  M01S01174.283l840 +++|*         EXTEND PAST HERE, SINCE *CLE* CREATES AND USES THIS BUFFER.
03849  M01S01175.283l840 +++|
03850  M01S01176.283l840 +++|          ERRNG  *-TBUF-505
03851  M01S01177.283l840 +++|
03852  M00S02240.mte     +++| ILD8     CFLAG  FRGI,NW     CLEAR ALL FLAG INTERLOCKS EXCEPT *PRSI*
03853  M00S02241.mte     +++|          RJM    CLE         CLEAR EXTENDED MEMORY
03854  M00S02242.mte     +++|          NJP    ILD18       IF ERROR IN CLEARING MEMORY
03855  M00S02243.mte     +++|          LDC    200+MS2W
03856  M00S02244.mte     +++|          CWM    MSGC,TR     *LINK DEVICE PRESET COMPLETE.*
03857  M00S02245.mte     +++|          LDN    1
03858  M00S02246.mte     +++|          LJM    ILD20       SET MACHINE INDEX
03859  M00S02247.mte     +++|
03860  M00S02248.mte     +++|*         PROCESS NON-PRESET DEADSTARTS.
03861  M00S02249.mte     +++|
03862  M00S02250.mte     +++| ILD9     LDN    MFET        PRESET STATE TABLE
03863  M00S02251.mte     +++|          ADD    T8
03864  M00S02252.mte     +++|          RJM    SLA
03865  M00S02253.mte     +++|          READEM 1,FN        READ *MFET* WORD
03866  M00S02254.mte     +++|          LDK    EFRL        GET STATE TABLE ADDRESS
03867  M00S02255.mte     +++|          CRD    CM
03868  M00S02256.mte     +++|          LDN    0
03869  M00S02257.mte     +++|          STD    FN+3
03870  M00S02258.mte     +++|          STD    FN+4
03871  M00S02259.mte     +++|          LDD    CM          WRITE STATE TABLE WORD
03872  M00S02260.mte     +++|          SHN    14
03873  M00S02261.mte     +++|          ADD    CM+1
03874  M00S02262.mte     +++|          ADK    MFST
03875  M00S02263.mte     +++|          ADD    T8
03876  M00S02264.mte     +++|          CWD    FN
03877  M00S02265.mte     +++|          AOD    T8
03878  M00S02266.mte     +++|          LMN    MXMF
03879  M00S02267.mte     +++|          NJN    ILD9        IF NOT END OF STATE TABLE
03880  M00S02268.mte     +++|          LDD    RM
03881  M00S02269.mte     +++|          LMN    3
03882  M00S02270.mte     +++|          NJN    ILD11       IF NOT LEVEL THREE
03883  M00S02271.mte     +++|
03884  M00S02272.mte     +++|*         RECOVER *MFET* SLOT ON LEVEL THREE RECOVERY.  *MFET* ENTRY IS
03885  M00S02273.mte     +++|*         VERIFIED FOR CORRECT MACHINE ID, MACHINE INDEX AND THAT
03886  M00S02274.mte     +++|*         *MREC* HAS NOT RUN.
03887  M00S02275.mte     +++|
03888  M00S02276.mte     +++|          LDK    MFET-1
03889  M00S02277.mte     +++|          ADD    OR+4
03890  M00S02278.mte     +++|          RJM    SLA         SET ADDRESS IN LABEL TRACK
03891  M00S02279.mte     +++|          READEM 1,FN
03892  M00S02280.mte     +++|          LDD    OR
03893  M00S02281.mte     +++|          LMD    FN
03894  M00S02282.mte     +++|          NJN    ILD10       IF NO VERIFY ON MACHINE ID
03895  M00S02283.mte     +++|          LDD    OR+4
03896  M00S02284.mte     +++|          LMD    FN+4
03897  M00S02285.mte     +++| ILD10    NJN    ILD15       IF NO VERIFY ON MACHINE INDEX
03898  M00S02286.mte     +++|          UJN    ILD14       VERIFY *MREC* NOT RUN
03899  M00S02287.mte     +++|
03900  M00S02288.mte     +++|*         ASSIGN OR RECOVER *MFET* SLOT.
03901  M00S02289.mte     +++|
03902  M00S02290.mte     +++| ILD11    LDN    MXMF+1      PRESET MACHINE INDEX
03903  M00S02291.mte     +++|          STD    OR+4
03904  M00S02292.mte     +++|          LDN    0           SET EMPTY ENTRY INDEX
03905  M00S02293.mte     +++|          STD    T8
03906  M00S02294.mte     +++| ILD12    SOD    OR+4
03907  M00S02295.mte     +++|          ZJN    ILD16       IF MORE MID-S TO CHECK
03908  M00S02296.mte     +++|          ADK    MFET-1
03909  M00S02297.mte     +++|          RJM    SLA         SET ADDRESS IN LABEL TRACK
03910  M00S02298.mte     +++|          READEM 1,FN        READ *MFET* WORD
03911  M00S02299.mte     +++|          LDD    FN
03912  M00S02300.mte     +++|          NJN    ILD13       IF NOT EMPTY
03913  M00S02301.mte     +++|          LDD    OR+4        SET EMPTY INDEX
03914  M00S02302.mte     +++|          STD    T8
03915  M00S02303.mte     +++|          UJN    ILD12       TRY NEXT MIN
03916  M00S02304.mte     +++|
03917  M00S02305.mte     +++| ILD13    LMD    OR
03918  M00S02306.mte     +++|          NJN    ILD12       IF NO MATCH ON MID
03919  M00S02307.mte     +++|          LDD    RM
03920  M00S02308.mte     +++|          ZJN    ILD17       IF LEVEL ZERO
03921  M00S02309.mte     +++| ILD14    LDD    FN+1
03922  M00S02310.mte     +++|          NJN    ILD19       IF *MREC* NOT RUN
03923  M00S02311.mte     +++| ILD15    LDN    2           *RECOVERY DEADSTART PREVENTED THIS MID.*
03924  M00S02312.mte     +++|          UJN    ILD18       RETURN ERROR
03925  M00S02313.mte     +++|
03926  M00S02314.mte     +++|*         NO MATCHING MID FOUND IN EXTENDED MEMORY.
03927  M00S02315.mte     +++|
03928  M00S02316.mte     +++| ILD16    LDD    RM
03929  M00S02317.mte     +++|          NJN    ILD15       IF NOT LEVEL ZERO
03930  M00S02318.mte     +++|          LDD    T8

Seq #  *Modification Id* Act 
----------------------------+
03931  M01S01178.283l840 +++|          STD    OR+4

Seq #  *Modification Id* Act 
----------------------------+
03932  M01S02319.283l840 ---|          NJN    ILD20       IF EMPTY SLOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
03933  M01S01179.283l840 +++|          NJN    ILD19       IF EMPTY SLOT FOUND
03934  M00S02320.mte     +++|          LDN    4           *MID SPOT UNAVAILABLE.*
03935  M00S02321.mte     +++|          UJN    ILD18       RETURN ERROR
03936  M00S02322.mte     +++|
03937  M00S02323.mte     +++| ILD17    LDD    FN+1
03938  M00S02324.mte     +++|          ZJN    ILD19       IF *MREC* RUN
03939  M00S02325.mte     +++|          LDN    3           *MACHINE ID IN USE.*
03940  M00S02326.mte     +++| ILD18    STD    IR+2
03941  M00S02327.mte     +++|          LDD    OA          RETURN ERROR RESPONSE IN INPUT REGISTER
03942  M00S02328.mte     +++|          SBN    1
03943  M00S02329.mte     +++|          CWD    IR
03944  M00S02330.mte     +++|          CFLAG  PRSI
03945  M00S02331.mte     +++|          UJN    *           HANG
03946  M00S02332.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
03947  M01S02333.283l840 ---| ILD19    LDD    OR+4

Seq #  *Modification Id* Act 
----------------------------+
03948  M01S01180.283l840 +++| ILD19    RJM    IBP         INITIALIZE BRT/BDT PROCESSING
03949  M01S01181.283l840 +++|          LDD    OR+4
03950  M00S02334.mte     +++|
03951  M00S02335.mte     +++|*         SET MACHINE INDEX IN *MMFL* AND IN EXTENDED MEMORY.
03952  M00S02336.mte     +++|
03953  M00S02337.mte     +++| ILD20    STD    OR+4
03954  M00S02338.mte     +++|          STD    T1
03955  M00S02339.mte     +++|          STM    MI+1
03956  M00S02340.mte     +++|          SHN    1
03957  M00S02341.mte     +++|          STM    MI2+1
03958  M00S02342.mte     +++|          SHN    5

Seq #  *Modification Id* Act 
----------------------------+
03959  M01S02343.283l840 ---|          STM    MH+1

Seq #  *Modification Id* Act 
----------------------------+
03960  M01S01182.283l840 +++|          STM    MIH+1
03961  M00S02344.mte     +++|          SHN    2-6
03962  M00S02345.mte     +++|          ADD    OR+4
03963  M00S02346.mte     +++|          STM    MI5+1
03964  M00S02347.mte     +++|          LDM    TMMK-1,OR+4 SET MACHINE MASK
03965  M00S02348.mte     +++|          STD    OR+3
03966  M00S02349.mte     +++|          STM    MM+1

Seq #  *Modification Id* Act 
----------------------------+
03967  M01S02350.283l840 ---|          LDC    MMFL

Seq #  *Modification Id* Act 
----------------------------+
03968  M02S01183.ns2780  ---|          SHN    4           MASK FOR CLEARING R/W BAT ACCESS BITS
03969  M02S01184.ns2780  ---|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
03970  M01S01185.283l840 +++|          SHN    4

Seq #  *Modification Id* Act 
----------------------------+
03971  M02S01186.ns2780  ---|          ADD    T2
03972  M02S01187.ns2780  ---|          STM    RWMC+1

Seq #  *Modification Id* Act 
----------------------------+
03973  M01S00069.ns2780  +++|          STM    WM+1        MASK FOR WRITE BAT ACCESS BIT
03974  M01S00070.ns2780  +++|          SHN    4
03975  M01S00071.ns2780  +++|          ADM    WM+1
03976  M01S00072.ns2780  +++|          STM    RWM+1       MASK FOR READ/WRITE BAT ACCESS BITS

Seq #  *Modification Id* Act 
----------------------------+
03977  M01S01188.283l840 +++|          LMC    7777

Seq #  *Modification Id* Act 
----------------------------+
03978  M02S01189.ns2780  ---|          STM    RWM+1

Seq #  *Modification Id* Act 
----------------------------+
03979  M01S00073.ns2780  +++|          STM    RWMC+1      MASK FOR R/W BAT ACCESS BITS FOR OTHER MFS

Seq #  *Modification Id* Act 
----------------------------+
03980  M01S01190.283l840 +++|          LDD    OR+1
03981  M01S01191.283l840 +++|          SHN    21-11
03982  M01S01192.283l840 +++|          PJN    ILD20.1     IF NO SHARED BUFFERED DEVICES PRESENT
03983  M01S01193.283l840 +++|          ISTORE MTED,(PSN ) ENABLE BAT/BRT CODE
03984  M01S01194.283l840 +++| ILD20.1  LDK    MMFL
03985  M00S02351.mte     +++|          CWD    OR
03986  M00S02352.mte     +++| ILD21    LDN    LLLL        COMPUTE MACHINE INDEX * LLLL
03987  M00S02353.mte     +++|          RAM    ML+1
03988  M00S02354.mte     +++|          SOD    T1
03989  M00S02355.mte     +++|          NJN    ILD21       IF NOT END OF MULTIPLY
03990  M00S02356.mte     +++|          LDK    MFET-1      SET ADDRESS IN LABEL TRACK
03991  M00S02357.mte     +++|          ADD    OR+4
03992  M00S02358.mte     +++|          RJM    SLA
03993  M00S02359.mte     +++|          WRITEM 1,OR        WRITE *MMFL* WORD
03994  M00S02360.mte     +++|          RJM    CAM         INITIALIZE MACHINE CLOCKS
03995  M00S02361.mte     +++|          CFLAG  PRSI        CLEAR PRESET INTERLOCK
03996  M00S02362.mte     +++|          LDK    EFRL        SET *CPUMTR* REQUEST QUEUE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03997  M01S02363.283l840 ---|          CRM    PQ,ON

Seq #  *Modification Id* Act 
----------------------------+
03998  M01S01195.283l840 +++|          CRM    PQ,ON       (MUST PRECEDE READ INTO *SDA*)
03999  M01S01196.283l840 +++|          LDK    SDAP        SET STATISTICAL DATA AREA ADDRESS
04000  M01S01197.283l840 +++|          CRM    SDA,ON
04001  M01S01198.283l840 +++|          LDK    RTCL        INITIALIZE *MTE* CYCLE TIME
04002  M01S01199.283l840 +++|          CRD    CM
04003  M01S01200.283l840 +++|          LDD    CM+4
04004  M01S01201.283l840 +++|          STM    CYTM

Seq #  *Modification Id* Act 
----------------------------+
04005  M01S02364.273l780 ---|          RJM    INM         MODIFY INSTRUCTIONS

Seq #  *Modification Id* Act 
----------------------------+
04006  M01S00028.273l780 +++|          LDC    TSIC        SET RELOCATION TABLE ADDRESS
04007  M01S00029.273l780 +++|          RJM    SIC         RELOCATE INSTRUCTIONS
04008  M00S02365.mte     +++|          RJM    CIR         CLEAR INTERLOCKS ON LEVEL 3
04009  M00S02366.mte     +++|          LDD    OA          SIGNAL COMPLETION VIA INPUT REGISTER
04010  M00S02367.mte     +++|          SBN    1
04011  M00S02368.mte     +++|          CWD    IR

Seq #  *Modification Id* Act 
----------------------------+
04012  M01S02369.ns2783  ---|          LDN    NCPL        CHANGE TO SYSTEM CONTROL POINT
04013  M01S02370.ns2783  ---|          CRD    CM
04014  M01S02371.ns2783  ---|          AOD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
04015  M02S02372.ns2783  ---|          SHN    7
04016  M02S02373.ns2783  ---|          STD    CP

Seq #  *Modification Id* Act 
----------------------------+
04017  M01S02374.ns2783  ---|          MONITOR  CCAM
04018  M01S02375.ns2783  ---|          LDD    OA
04019  M01S02376.ns2783  ---|          SBN    1
04020  M01S02377.ns2783  ---|          CRD    IR
04021  M00S02378.mte     +++|          LJM    MTE         ENTER MAIN LOOP
04022  M00S02379.mte     +++|
04023  M00S02380.mte     +++|
04024  M00S02381.mte     +++| CFRGI    VFD    24/70777777-.PRSI
04025  M00S02382.mte     +++| SPRSI    VFD    24/40000000+.PRSI
04026  M00S02383.mte     +++| CPRSI    VFD    24/70000000+.PRSI
04027  M00S02384.mte     +++|
04028  M00S02385.mte     +++| IFP      HERE               *COMPGFP* INITIALIZATION CODE

Seq #  *Modification Id* Act 
----------------------------+
04029  M01S02386.ns2783  ---| CLE      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04030  M01S00245.ns2783  +++| CLE      SPACE  4,15
04031  M00S02387.mte     +++|**        CLE - CLEAR EXTENDED MEMORY.
04032  M00S02388.mte     +++|*
04033  M00S02389.mte     +++|*         ENTRY  PRESET DEADSTART SELECTED.
04034  M00S02390.mte     +++|*                (FS+2) = *EFRL* PARAMETERS.
04035  M00S02391.mte     +++|*
04036  M00S02392.mte     +++|*         EXIT   (A) = 0, IF NO WRITE ERROR DETECTED.
04037  M00S02393.mte     +++|*                (A) = 5, IF WRITE ERRORS.
04038  M00S02394.mte     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04039  M01S02395.252l678 ---|*         USES   WC, CM - CM+4, EA - EA+4.

Seq #  *Modification Id* Act 
----------------------------+
04040  M01S00074.252l678 +++|*         USES   WC, CM - CM+4, EA - EA+4, FN - FN+4.
04041  M00S02396.mte     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04042  M01S02397.252l678 ---|*         CALLS  SLA, WIT.

Seq #  *Modification Id* Act 
----------------------------+
04043  M01S00075.252l678 +++|*         CALLS  SLA.
04044  M00S02398.mte     +++|*
04045  M00S02399.mte     +++|*         MACROS WRITEM.
04046  M00S02400.mte     +++|
04047  M00S02401.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
04048  M01S02402.252l678 ---| CLE4     LDN    0           CLEAR ENVIRONMENT TABLE
04049  M01S02403.252l678 ---|          RJM    SLA

Seq #  *Modification Id* Act 
----------------------------+
04050  M01S00076.252l678 +++| CLE4     RJM    SLA         CLEAR ENVIRONMENT TABLE

Seq #  *Modification Id* Act 
----------------------------+
04051  M01S02404.283l840 ---|          WRITEM IBDT,CLEA

Seq #  *Modification Id* Act 
----------------------------+
04052  M01S01202.283l840 +++|          WRITEM IBDT,TBUF

Seq #  *Modification Id* Act 
----------------------------+
04053  M01S00077.252l678 +++|          ZJN    CLE5        IF NO ERROR
04054  M01S00078.252l678 +++|          LDN    5           SET ERROR STATUS
04055  M01S00079.252l678 +++|          STD    EA+2
04056  M01S00080.252l678 +++| CLE5     LDN    4           WRITE *IBDT*
04057  M01S00081.252l678 +++|          STD    WC
04058  M01S00082.252l678 +++|          LDK    DSDL+1
04059  M01S00083.252l678 +++|          CRM    TBUF,WC
04060  M01S00084.252l678 +++|          LDD    FN          COMPUTE LENGTH OF LINK DEVICE
04061  M01S00085.252l678 +++|          SHN    6
04062  M01S00086.252l678 +++|          ADD    FN
04063  M01S00087.252l678 +++| CLEC     SHN    0           TRACKS * 101B
04064  M01S00088.252l678 +++|*         SHN    EMSC        TRACKS * 101B * EMBS
04065  M01S00089.252l678 +++|          ADC    **          ROUND UP TO NEAREST *EMBS*
04066  M01S00090.252l678 +++| CLED     EQU    *-1
04067  M01S00091.252l678 +++|*         ADC    37          EMBS = 1000
04068  M01S00092.252l678 +++|*         ADC    77          EMBS = 2000
04069  M01S00093.252l678 +++|*         ADC    177         EMBS = 4000
04070  M01S00094.252l678 +++|*         ADC    377         EMBS = 10000
04071  M01S00095.252l678 +++|
04072  M01S00096.252l678 +++| CLEE     SHN    0
04073  M01S00097.252l678 +++|*         SHN    -5-EMSC
04074  M01S00098.252l678 +++|          STM    TBUF+5+3    FIRST MACHINE BUFFER START ADDRESS
04075  M01S00099.252l678 +++|          LDN    5           START ALLOCATION FOLLOWING THIS MACHINE
04076  M01S00100.252l678 +++|          STD    T2
04077  M01S00101.252l678 +++| CLE6     LDM    TBUF+3,T2
04078  M01S00102.252l678 +++|          ADM    TBUF+4,T2
04079  M01S00103.252l678 +++|          STM    TBUF+5+3,T2
04080  M01S00104.252l678 +++|          LDN    5
04081  M01S00105.252l678 +++|          RAD    T2
04082  M01S00106.252l678 +++|          LMN    5*4
04083  M01S00107.252l678 +++|          NJN    CLE6        IF NOT END OF MACHINES
04084  M01S00108.252l678 +++|          LDN    IBDT        SET I/O BUFFER TABLE
04085  M01S00109.252l678 +++|          RJM    SLA
04086  M01S00110.252l678 +++|          WRITEM *,TBUF      WRITE BUFFER ALLOCATION TABLE
04087  M01S00111.252l678 +++|          ZJN    CLE7        IF NO ERROR
04088  M01S00112.252l678 +++|          LDN    5           SET ERROR STATUS
04089  M01S00113.252l678 +++|          STD    EA+2
04090  M01S00114.252l678 +++| CLE7     LDD    EA+2        RETURN ERROR STATUS
04091  M00S02405.mte     +++|
04092  M00S02406.mte     +++| CLE      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
04093  M01S01203.283l840 +++|          RJM    CSZ         CREATE SECTOR OF ZERO WORDS

Seq #  *Modification Id* Act 
----------------------------+
04094  M01S02407.252l678 ---|          LDD    FS+2
04095  M01S02408.252l678 ---|          LPN    20
04096  M01S02409.252l678 ---|          ZJN    CLE4        IF NO INITIALIZE OF LINK
04097  M01S02410.252l678 ---|          LDC    200+MS2W
04098  M01S02411.252l678 ---|          CWM    MSGD,TR     *CLEARING EXTENDED MEMORY.*
04099  M00S02412.mte     +++|          SFA    EST,T5      READ EXTENDED MEMORY EST ENTRY
04100  M00S02413.mte     +++|          CRD    CM
04101  M00S02414.mte     +++|          LDD    CM+4        READ EXTENDED MEMORY TRACK COUNT
04102  M00S02415.mte     +++|          SHN    3
04103  M00S02416.mte     +++|          ADK    TDGL

Seq #  *Modification Id* Act 
----------------------------+
04104  M01S02417.252l678 ---|          CRD    EA

Seq #  *Modification Id* Act 
----------------------------+
04105  M01S00115.252l678 +++|          CRD    FN
04106  M01S00116.252l678 +++|          LDN    ZERL        CLEAR ERROR STATUS/UEM ADDRESS
04107  M01S00117.252l678 +++|          CRD    EA
04108  M01S00118.252l678 +++|          LDD    FS+2
04109  M01S00119.252l678 +++|          LPN    20
04110  M01S00120.252l678 +++|          ZJP    CLE4        IF NO INITIALIZE OF LINK
04111  M01S00121.252l678 +++|          LDC    /DSL/DSCP*CPAS+MS2W
04112  M01S00122.252l678 +++|          CWM    MSGD,TR     *CLEARING EXTENDED MEMORY.*
04113  M00S02418.mte     +++|          LDC    101         SET SECTOR WORD COUNT
04114  M00S02419.mte     +++|          STD    WC

Seq #  *Modification Id* Act 
----------------------------+
04115  M01S02420.252l678 ---|          LDD    EA          SET TOTAL TRACKS
04116  M01S02421.252l678 ---|          STD    EA+4
04117  M01S02422.252l678 ---|          LDN    0           CLEAR UEM ADDRESS
04118  M01S02423.252l678 ---|          STD    EA
04119  M01S02424.252l678 ---|          STD    EA+1
04120  M01S02425.252l678 ---|          STD    EA+2

Seq #  *Modification Id* Act 
----------------------------+
04121  M01S00123.252l678 +++|          LDD    FN          SET TOTAL TRACKS
04122  M01S00124.252l678 +++|          STD    EA+4
04123  M00S02426.mte     +++|
04124  M00S02427.mte     +++|*         CLEAR EXTENDED MEMORY.
04125  M00S02428.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
04126  M01S02429.252l678 ---| CLE1     LDN    SLDP        SET SECTOR COUNT FOR TRACK

Seq #  *Modification Id* Act 
----------------------------+
04127  M01S00125.252l678 +++| CLE1     LDC    **          SET SECTOR COUNT FOR TRACK
04128  M01S00126.252l678 +++| CLEB     EQU    *-1
04129  M01S00127.252l678 +++|*         LDC    20          TRACK SIZE = 20 SECTORS
04130  M01S00128.252l678 +++|*         LDC    40          TRACK SIZE = 40 SECTORS
04131  M01S00129.252l678 +++|*         LDC    100         TRACK SIZE = 100 SECTORS
04132  M01S00130.252l678 +++|*         LDC    200         TRACK SIZE = 200 SECTORS
04133  M01S00131.252l678 +++|
04134  M00S02430.mte     +++|          STD    EA+3

Seq #  *Modification Id* Act 
----------------------------+
04135  M01S02431.283l840 ---| CLE2     WRITEM *,CLEA      WRITE WORDS TO UEM

Seq #  *Modification Id* Act 
----------------------------+
04136  M01S01204.283l840 +++| CLE2     WRITEM *,TBUF      WRITE WORDS TO UEM
04137  M00S02432.mte     +++|          ZJN    CLE3        IF NO ERROR
04138  M00S02433.mte     +++|          LDN    5           WRITE ERROR STATUS
04139  M00S02434.mte     +++|          STD    EA+2
04140  M00S02435.mte     +++| CLE3     LDD    WC
04141  M00S02436.mte     +++|          RAD    EA+1
04142  M00S02437.mte     +++|          SHN    -14
04143  M00S02438.mte     +++|          RAD    EA
04144  M00S02439.mte     +++|          SOD    EA+3
04145  M00S02440.mte     +++|          NJN    CLE2        IF MORE SECTORS
04146  M00S02441.mte     +++|          SOD    EA+4
04147  M00S02442.mte     +++|          NJN    CLE1        IF MORE TRACKS

Seq #  *Modification Id* Act 
----------------------------+
04148  M01S02443.252l678 ---|          RJM    WIT         WRITE I/O BUFFER ALLOCATION TABLE
04149  M01S02444.252l678 ---|          LDD    EA+2        RETURN ERROR STATUS
04150  M01S02445.252l678 ---|          UJP    CLEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04151  M01S00132.252l678 +++|          UJP    CLE5        WRITE *IBDT*
04152  M00S02446.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
04153  M01S02447.252l678 ---| CLEA     BSSZ   505         SECTOR DATA

Seq #  *Modification Id* Act 
----------------------------+
04154  M01S02448.ns2783  ---| CIR      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04155  M01S00246.ns2783  +++| CIR      SPACE  4,20
04156  M00S02449.mte     +++|**        CIR - CLEAR FLAG REGISTER AND MST INTERLOCKS ON LEVEL 3.
04157  M00S02450.mte     +++|*
04158  M00S02451.mte     +++|*         ON LEVEL 3 RECOVERIES WHERE NO OTHER MACHINES ARE ACTIVE
04159  M00S02452.mte     +++|*         FLAG REGISTER INTERLOCKS AND DEVICE INTERLOCKS MUST BE
04160  M00S02453.mte     +++|*         CLEARED IN EXTENDED MEMORY.  THESE INTERLOCKS ARE CLEARED
04161  M00S02454.mte     +++|*         DURING DOWN MACHINE PROCESSING WHEN OTHER MACHINES ARE
04162  M00S02455.mte     +++|*         ACTIVE.
04163  M00S02456.mte     +++|*
04164  M00S02457.mte     +++|*         ENTRY  (RM) = RECOVERY MODE.
04165  M00S02458.mte     +++|*
04166  M00S02459.mte     +++|*         USES   T8, T9, CM - CM+4, EA - EA+4, FN - FN+1.
04167  M00S02460.mte     +++|*
04168  M00S02461.mte     +++|*         CALLS  IFR, SFA.
04169  M00S02462.mte     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04170  M01S02463.273l780 ---|*         MACROS CFLAG, INMOD, READEM, SFA, SFLAG, WRITEM.

Seq #  *Modification Id* Act 
----------------------------+
04171  M01S00030.273l780 +++|*         MACROS CFLAG, READEM, SFA, SFLAG, WRITEM.
04172  M00S02464.mte     +++|
04173  M00S02465.mte     +++|
04174  M00S02466.mte     +++| CIR6     CFLAG  CIRI        CLEAR INTERLOCK
04175  M00S02467.mte     +++|
04176  M00S02468.mte     +++| CIR      SUBR               ENTRY/EXIT
04177  M00S02469.mte     +++|          LDD    RM
04178  M00S02470.mte     +++|          LMN    3
04179  M00S02471.mte     +++|          NJN    CIRX        IF NOT LEVEL 3
04180  M00S02472.mte     +++|          LDN    18D         PRESET FLAG REGISTER BIT NUMBER
04181  M00S02473.mte     +++|          STD    T8
04182  M00S02474.mte     +++|          UJN    CIR2        SET *CIRI* INTERLOCK
04183  M00S02475.mte     +++|
04184  M00S02476.mte     +++| CIR1     LDN    FRET+CIRI   CHECK IF INTERLOCKED BY THIS MACHINE
04185  M00S02477.mte     +++|          RJM    SLA
04186  M00S02478.mte     +++|          READEM 1,FN,CIR2
04187  M00S02479.mte     +++|          LDD    FN+4

Seq #  *Modification Id* Act 
----------------------------+
04188  M01S02480.273l780 ---| CIRA     LMN    0
04189  M01S02481.273l780 ---|          INMOD  CIRA-1,MI

Seq #  *Modification Id* Act 
----------------------------+
04190  M01S00031.273l780 +++|          TLMN   0,MI
04191  M00S02482.mte     +++|          ZJN    CIR3        IF INTERLOCKED BY THIS MACHINE
04192  M00S02483.mte     +++| CIR2     SFLAG  CIRI,CIR1   SET FLAG INTERLOCK TO CLEAR INTERLOCKS
04193  M00S02484.mte     +++|
04194  M00S02485.mte     +++|*         CHECK FLAG OWNER WORDS TO SEE IF ANY OWNED BY THIS MACHINE.
04195  M00S02486.mte     +++|
04196  M00S02487.mte     +++| CIR3     SOD    T8
04197  M00S02488.mte     +++|          MJP    CIR4        IF END OF FLAG BITS
04198  M00S02489.mte     +++|          LMN    CIRI
04199  M00S02490.mte     +++|          ZJN    CIR3        IF CHECKING *CIRI* BIT
04200  M00S02491.mte     +++|          LDN    FRET        CHECK FLAG BIT
04201  M00S02492.mte     +++|          ADD    T8
04202  M00S02493.mte     +++|          RJM    SLA
04203  M00S02494.mte     +++|          READEM 1,FN,CIR3   TRY NEXT FLAG BIT ON READ ERROR
04204  M00S02495.mte     +++|          LDD    FN+4

Seq #  *Modification Id* Act 
----------------------------+
04205  M01S02496.273l780 ---| CIRB     LMN    0
04206  M01S02497.273l780 ---|          INMOD  CIRB-1,MI

Seq #  *Modification Id* Act 
----------------------------+
04207  M01S00032.273l780 +++|          TLMN   0,MI
04208  M00S02498.mte     +++|          ZJN    CIR3        IF NOT OWNED BY THIS MACHINE
04209  M00S02499.mte     +++|          WRITEM *,ZR        CLEAR FLAG OWNER
04210  M00S02500.mte     +++|          LDD    T8          CLEAR FLAG BIT
04211  M00S02501.mte     +++|          ADD    TH
04212  M00S02502.mte     +++|          ERRNZ  1000-SHNI
04213  M00S02503.mte     +++|          STM    CIRC
04214  M00S02504.mte     +++|          LDN    1           SET FLAG BIT
04215  M00S02505.mte     +++| CIRC     SHN    **
04216  M00S02506.mte     +++|          STD    FN+1
04217  M00S02507.mte     +++|          SHN    -14
04218  M00S02508.mte     +++|          ADC    7000        USE CLEAR FLAG FUNCTION
04219  M00S02509.mte     +++|          STD    FN
04220  M00S02510.mte     +++|          LDN    FN
04221  M00S02511.mte     +++|          RJM    IFR         ISSUE FLAG FUNCTION
04222  M00S02512.mte     +++|          UJP    CIR3        LOOP FOR NEXT BIT
04223  M00S02513.mte     +++|
04224  M00S02514.mte     +++| CIR4     LDK    ESTP        SET LAST EST ORDINAL
04225  M00S02515.mte     +++|          CRD    CM
04226  M00S02516.mte     +++|          LDD    CM+3
04227  M00S02517.mte     +++|          STD    T9
04228  M00S02518.mte     +++|
04229  M00S02519.mte     +++|*         CLEAR DEVICE INTERLOCKS IN EXTENDED MEMORY.
04230  M00S02520.mte     +++|
04231  M00S02521.mte     +++| CIR5     SOD    T9          TRY NEXT EQUIPMENT
04232  M00S02522.mte     +++|          ZJP    CIR6        IF END OF EST
04233  M00S02523.mte     +++|          SFA    EST
04234  M00S02524.mte     +++|          CRD    CM
04235  M00S02525.mte     +++|          LDD    CM
04236  M00S02526.mte     +++|          SHN    21-13
04237  M00S02527.mte     +++|          PJN    CIR5        IF NOT MASS STORAGE
04238  M00S02528.mte     +++|          LDD    CM+4
04239  M00S02529.mte     +++|          SHN    3
04240  M00S02530.mte     +++|          ADK    SDGL
04241  M00S02531.mte     +++|          CRD    EA
04242  M00S02532.mte     +++|          LDD    EA
04243  M00S02533.mte     +++|          ADD    EA+1
04244  M00S02534.mte     +++|          ZJN    CIR5        IF NOT SHARED
04245  M00S02535.mte     +++|          READEM SDGL+1,MBUF READ MST
04246  M00S02536.mte     +++|          LDM    MBUF+SDGL*5+4
04247  M00S02537.mte     +++|          LPN    77
04248  M00S02538.mte     +++|          SHN    -1

Seq #  *Modification Id* Act 
----------------------------+
04249  M01S02539.273l780 ---| CIRD     LMN    0
04250  M01S02540.273l780 ---|          INMOD  CIRD-1,MI

Seq #  *Modification Id* Act 
----------------------------+
04251  M01S00033.273l780 +++|          TLMN   0,MI
04252  M00S02541.mte     +++|          NJN    CIR5        IF NOT INTERLOCKED BY THIS MACHINE
04253  M00S02542.mte     +++|          LDM    MBUF+TDGL*5+2  SET TRT LENGTH
04254  M00S02543.mte     +++|          STM    CIRE+1
04255  M00S02544.mte     +++|          LDD    CM+4        SET MST ADDRESS
04256  M00S02545.mte     +++|          STM    CIRE+3

Seq #  *Modification Id* Act 
----------------------------+
04257  M01S02546.283l840 ---|          TLDC   MTET+MXQP,PQ  PP QUEUE POINTER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04258  M01S01205.283l840 +++|          TLDC   MTQP,PQ     PP QUEUE POINTER ADDRESS
04259  M00S02547.mte     +++|          CRD    CM
04260  M00S02548.mte     +++|          TLDC   MTET,PQ     PP QUEUE ADDRESS
04261  M00S02549.mte     +++|          ADD    CM+4
04262  M00S02550.mte     +++|          CWM    CIRE,ON     WRITE CLEAR DEVICE INTERLOCK REQUEST
04263  M00S02551.mte     +++|          SOD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
04264  M01S02552.283l840 ---|          TLDC   MTET+MXQP,PQ  WRITE NEW REQUEST QUEUE POINTER

Seq #  *Modification Id* Act 
----------------------------+
04265  M01S01206.283l840 +++|          TLDC   MTQP,PQ     WRITE NEW REQUEST QUEUE POINTER
04266  M00S02553.mte     +++|          CWD    CM
04267  M00S02554.mte     +++|          LJM    CIR5        LOOP FOR NEXT DEVICE
04268  M00S02555.mte     +++|
04269  M00S02556.mte     +++| CIRE     CON    0,777,4000,0,CDIF  CLEAR DEVICE INTERLOCK SKELETON
04270  M00S02557.mte     +++|
04271  M00S02558.mte     +++|
04272  M00S02559.mte     +++| SCIRI    VFD    24/40000000+.CIRI
04273  M00S02560.mte     +++| CCIRI    VFD    24/70000000+.CIRI

Seq #  *Modification Id* Act 
----------------------------+
04274  M02S01207.ns2783  ---| IBP      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04275  M01S00247.ns2783  +++| IBP      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
04276  M01S01208.283l840 +++|**        IBP - INITIALIZE BRT/BDT PROCESSING.
04277  M01S01209.283l840 +++|*
04278  M01S01210.283l840 +++|*         ON NON-PRESET DEADSTARTS, WHEN SHARED BUFFERED DEVICES ARE
04279  M01S01211.283l840 +++|*         PRESENT, CLEAR THE BRT FOR THIS MACHINE AND CLEAR ANY BDT
04280  M01S01212.283l840 +++|*         INTERLOCKS BELONGING TO THIS MACHINE.
04281  M01S01213.283l840 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04282  M02S01214.ns2783  ---|*         USES   T1, T8, FN - FN+4.

Seq #  *Modification Id* Act 
----------------------------+
04283  M01S00248.ns2783  +++|*         USES   EA, EA+1, T1, T8, FN - FN+4.

Seq #  *Modification Id* Act 
----------------------------+
04284  M01S01215.283l840 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04285  M02S01216.ns2783  ---|*         CALLS  CBA, CSZ, SEA, SLA.

Seq #  *Modification Id* Act 
----------------------------+
04286  M01S00249.ns2783  +++|*         CALLS  CBA, CBD, CBJ, CSZ, SEA, SLA.

Seq #  *Modification Id* Act 
----------------------------+
04287  M01S01217.283l840 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04288  M02S01218.ns2783  ---|*         MACROS CFLAG, DELAY, READEM, SFLAG, WRITEM.

Seq #  *Modification Id* Act 
----------------------------+
04289  M01S00250.ns2783  +++|*         MACROS DELAY, READEM, SFLAG, WRITEM.

Seq #  *Modification Id* Act 
----------------------------+
04290  M01S01219.283l840 +++|
04291  M01S01220.283l840 +++|
04292  M01S01221.283l840 +++| IBP      SUBR               ENTRY/EXIT
04293  M01S01222.283l840 +++|          LDD    OR+1
04294  M01S01223.283l840 +++|          SHN    21-11
04295  M01S01224.283l840 +++|          PJN    IBPX        IF NO SHARED BUFFERED DEVICES PRESENT
04296  M01S01225.283l840 +++|          LDN    BAET        PRESET BRT ADDRESS
04297  M01S01226.283l840 +++|          RJM    SLA
04298  M01S01227.283l840 +++|          READEM 1,FN
04299  M01S01228.283l840 +++|          LDD    FN          TRACK POINTER FOR BRT
04300  M01S01229.283l840 +++|          STM    BRTP
04301  M01S01230.283l840 +++|          RJM    SEA         SET ESM ADDRESS OF BRT
04302  M01S01231.283l840 +++|          RAM    CBAA+1
04303  M01S01232.283l840 +++|          SHN    -14
04304  M01S01233.283l840 +++|          RAM    CBAA
04305  M01S01234.283l840 +++|          LDD    FN+1        TRACK POINTER FOR BDT
04306  M01S01235.283l840 +++|          RJM    SEA         SET ESM ADDRESS OF BDT
04307  M01S01236.283l840 +++|          RAM    CBDA+1
04308  M01S01237.283l840 +++|          SHN    -14
04309  M01S01238.283l840 +++|          RAM    CBDA
04310  M01S01239.283l840 +++|
04311  M01S01240.283l840 +++|*         CLEAR BRT FOR THIS MACHINE.
04312  M01S01241.283l840 +++|
04313  M01S01242.283l840 +++|          RJM    CSZ         CREATE SECTOR OF ZERO WORDS
04314  M01S01243.283l840 +++|          LDD    OR+4
04315  M01S01244.283l840 +++|          RJM    CBA         GET ADDRESS OF BRT
04316  M01S01245.283l840 +++|          LDD    HN
04317  M01S01246.283l840 +++|          STD    WC
04318  M01S01247.283l840 +++|          LDN    BRTL/100
04319  M01S01248.283l840 +++|          STD    T8
04320  M01S01249.283l840 +++| IBP1     WRITEM *,TBUF      CLEAR BLOCK OF ESM
04321  M01S01250.283l840 +++|          LDD    WC
04322  M01S01251.283l840 +++|          RAD    EA+1
04323  M01S01252.283l840 +++|          SHN    -14
04324  M01S01253.283l840 +++|          RAD    EA
04325  M01S01254.283l840 +++|          SOD    T8
04326  M01S01255.283l840 +++|          NJN    IBP1        IF MORE TO CLEAR
04327  M01S01256.283l840 +++|
04328  M01S01257.283l840 +++|*         CLEAR BDT INTERLOCKS BELONGING TO THIS MACHINE.
04329  M01S01258.283l840 +++|
04330  M01S01259.283l840 +++| IBP2     DELAY
04331  M01S01260.283l840 +++|          SFLAG  BDTI,IBP2
04332  M01S01261.283l840 +++|          LDN    DAET
04333  M01S01262.283l840 +++|          RJM    SLA
04334  M01S01263.283l840 +++|          READEM 1,FN        READ DAET POINTER
04335  M01S01264.283l840 +++|          LDD    FN+4        NUMBER OF BDT ENTRIES
04336  M01S01265.283l840 +++|          STD    WC
04337  M01S01266.283l840 +++|          RJM    CBD         SET ESM ADDRESS OF BDT
04338  M01S01267.283l840 +++|          READEM *,TBUF      READ BDT
04339  M01S01268.283l840 +++|          LDC    TBUF-5      INITIALIZE SEARCH ADDRESS
04340  M01S01269.283l840 +++|          STD    T1
04341  M01S01270.283l840 +++| IBP3     LDN    5           ADVANCE TO NEXT BDT ENTRY
04342  M01S01271.283l840 +++|          RAD    T1
04343  M01S01272.283l840 +++|          LDC    4000
04344  M01S01273.283l840 +++|          ADD    OR+4        MACHINE INDEX

Seq #  *Modification Id* Act 
----------------------------+
04345  M02S01274.ns2783  ---|          LMI    T1

Seq #  *Modification Id* Act 
----------------------------+
04346  M01S00251.ns2783  +++|          LMI    T1          CHECK ERROR PROCESSING INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04347  M01S01275.283l840 +++|          NJN    IBP4        IF NOT INTERLOCKED BY THIS MACHINE

Seq #  *Modification Id* Act 
----------------------------+
04348  M02S01276.ns2783  ---|          STI    T1
04349  M02S01277.ns2783  ---| IBP4     SOD    FN+4

Seq #  *Modification Id* Act 
----------------------------+
04350  M01S00252.ns2783  +++|          STI    T1          CLEAR ERROR PROCESSING INTERLOCK
04351  M01S00253.ns2783  +++| IBP4     LDC    4000
04352  M01S00254.ns2783  +++|          ADD    OR+4        MACHINE INDEX
04353  M01S00255.ns2783  +++|          LMM    1,T1        CHECK RESTORE PARITY INTERLOCK
04354  M01S00256.ns2783  +++|          NJN    IBP5        IF NOT INTERLOCKED BY THIS MACHINE
04355  M01S00257.ns2783  +++|          STM    1,T1        CLEAR PARITY RESTORE INTERLOCK
04356  M01S00258.ns2783  +++|          STM    2,T1        CLEAR CONTROLLER SERIAL NUMBER
04357  M01S00259.ns2783  +++|          STM    3,T1
04358  M01S00260.ns2783  +++|          STM    4,T1
04359  M01S00261.ns2783  +++| IBP5     SOD    FN+4

Seq #  *Modification Id* Act 
----------------------------+
04360  M01S01278.283l840 +++|          NJN    IBP3        IF MORE TO CHECK
04361  M01S01279.283l840 +++|          WRITEM *,TBUF      UPDATE BDT
04362  M01S01280.283l840 +++|          RJM    CBJ         CLEAR *BDTI* INTERLOCK
04363  M01S01281.283l840 +++|          LJM    IBPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04364  M01S00262.ns2783  +++| TSIC     SPACE  4,10
04365  M01S00263.ns2783  +++|**        TSIC - INSTRUCTION RELOCATION TABLE.
04366  M01S00264.ns2783  +++|
04367  M01S00265.ns2783  +++|

Seq #  *Modification Id* Act 
----------------------------+
04368  M01S02561.273l780 ---| INM      SPACE  4,10
04369  M01S02562.273l780 ---|**        INM - INSTRUCTION MODIFICATION.
04370  M01S02563.273l780 ---|*
04371  M01S02564.273l780 ---|*         ENTRY  ALL MODIFICATION VALUES SET.
04372  M01S02565.273l780 ---|*
04373  M01S02566.273l780 ---|*         USES   T1, T2, T3.
04374  M01S02567.273l780 ---|
04375  M01S02568.273l780 ---|
04376  M01S02569.273l780 ---| INM      SUBR               ENTRY/EXIT
04377  M01S02570.273l780 ---|          LDN    0           INITIALIZE TABLE SEARCH
04378  M01S02571.273l780 ---|          STD    T1
04379  M01S02572.273l780 ---| INM1     LDM    TINM,T1     SET INSTRUCTION ADDRESS
04380  M01S02573.273l780 ---|          ZJN    INMX        IF END OF TABLE
04381  M01S02574.273l780 ---|          STD    T2
04382  M01S02575.273l780 ---|          LDM    TINM+1,T1
04383  M01S02576.273l780 ---|          STD    T3
04384  M01S02577.273l780 ---|          LDM    1,T3
04385  M01S02578.273l780 ---|          RAM    1,T2
04386  M01S02579.273l780 ---|          SHN    -14
04387  M01S02580.273l780 ---|          ADI    T3
04388  M01S02581.273l780 ---|          RAI    T2
04389  M01S02582.273l780 ---|          LDN    2
04390  M01S02583.273l780 ---|          RAD    T1
04391  M01S02584.273l780 ---|          UJN    INM1        PROCESS NEXT TABLE ENTRY
04392  M01S02585.273l780 ---|
04393  M01S02586.273l780 ---| TINM     BSS    0           INSTRUCTION MODIFICATION TABLE
04394  M01S02587.273l780 ---| INM      HERE

Seq #  *Modification Id* Act 
----------------------------+
04395  M01S00034.273l780 +++|          LIST   G
04396  M01S00035.273l780 +++| TSIC     BSS    0           INSTRUCTION RELOCATION TABLE
04397  M01S00036.273l780 +++| SIC      HERE
04398  M00S02588.mte     +++|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
04399  M01S00037.273l780 +++|          LIST   *
04400  M00S02589.mte     +++|          SPACE  4,10
04401  M00S02590.mte     +++|**        INSTRUCTION MODIFICATION VALUES.
04402  M00S02591.mte     +++|*
04403  M00S02592.mte     +++|*         NOTE - INSTRUCTION MODIFICATION VALUES ARE TWO BYTES.
04404  M00S02593.mte     +++|

Seq #  *Modification Id* Act 
----------------------------+
04405  M01S00038.273l780 +++| PPX      CON    0,0         EXTENDED PP COMMUNICATION AREA ADDRESS
04406  M00S02594.mte     +++| MI2      CON    0,0         MACHINE INDEX * 2
04407  M00S02595.mte     +++| MI5      CON    0,0         MACHINE INDEX * 5
04408  M00S02596.mte     +++| ML       CON    0,0         MACHINE INDEX * LLLL

Seq #  *Modification Id* Act 
----------------------------+
04409  M01S01282.283l840 +++| MIH      CON    0,0         MACHINE INDEX * 100
04410  M00S02597.mte     +++| MM       CON    0,0         MACHINE MASK

Seq #  *Modification Id* Act 
----------------------------+
04411  M01S02598.283l840 ---| MH       CON    0,0         MACHINE MASK * 100

Seq #  *Modification Id* Act 
----------------------------+
04412  M01S01283.283l840 +++| RWM      CON    0,0         READ/WRITE MASK FOR BAT ACCESS

Seq #  *Modification Id* Act 
----------------------------+
04413  M01S00074.ns2780  +++| WM       CON    0,0         WRITE MASK FOR BAT ACCESS

Seq #  *Modification Id* Act 
----------------------------+
04414  M01S01284.283l840 +++| RWMC     CON    0,0         COMPLEMENT OF READ/WRITE MASK
04415  M00S02599.mte     +++| PQ       CON    0,0         PP REQUEST QUEUE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04416  M01S02600.283l840 ---|          CON    0,0,0       ALLOW SPACE FOR READING INTO *PQ*

Seq #  *Modification Id* Act 
----------------------------+
04417  M01S01285.283l840 +++| SDA      CON    0,0         STATISTICAL DATA AREA ADDRESS
04418  M01S01286.283l840 +++|          CON    0,0,0       ALLOW SPACE FOR READING INTO *SDA*
04419  M00S02601.mte     +++| SCP      SPACE  4,10
04420  M00S02602.mte     +++|**        SCP - SET CHANNEL IN PRESET INSTRUCTIONS.
04421  M00S02603.mte     +++|*
04422  M00S02604.mte     +++|*         ENTRY  (T4) = CHANNEL TO SET IN INSTRUCTIONS.
04423  M00S02605.mte     +++|*
04424  M00S02606.mte     +++|*         USES   T0.
04425  M00S02607.mte     +++|
04426  M00S02608.mte     +++|
04427  M00S02609.mte     +++| SCP      SUBR               ENTRY/EXIT
04428  M00S02610.mte     +++| SCP1     LDM    TSCP
04429  M00S02611.mte     +++| SCPA     EQU    *-1
04430  M00S02612.mte     +++|          ZJN    SCPX        IF END OF TABLE
04431  M00S02613.mte     +++|          STD    T0
04432  M00S02614.mte     +++|          LDD    T4
04433  M00S02615.mte     +++|          RAI    T0
04434  M00S02616.mte     +++|          AOM    SCPA
04435  M00S02617.mte     +++|          UJN    SCP1        LOOP

Seq #  *Modification Id* Act 
----------------------------+
04436  M01S02618.252l678 ---| WIT      SPACE  4,10
04437  M01S02619.252l678 ---|**        WIT - WRITE *IBDT*.
04438  M01S02620.252l678 ---|*
04439  M01S02621.252l678 ---|*         EXIT   I/O BUFFER TABLE WRITTEN TO EXTENDED MEMORY.
04440  M01S02622.252l678 ---|*
04441  M01S02623.252l678 ---|*         USES   T1, T2, T3, CM - CM+4.
04442  M01S02624.252l678 ---|*
04443  M01S02625.252l678 ---|*         CALLS  SLA.
04444  M01S02626.252l678 ---|*
04445  M01S02627.252l678 ---|*         MACROS WRITEM.
04446  M01S02628.252l678 ---|
04447  M01S02629.252l678 ---|
04448  M01S02630.252l678 ---| WIT      SUBR               ENTRY/EXIT
04449  M01S02631.252l678 ---|          LDN    MXMF        READ EXTENDED MEMORY ALLOCATION TABLE
04450  M01S02632.252l678 ---|          STD    T1
04451  M01S02633.252l678 ---|          LDK    DSDL+1
04452  M01S02634.252l678 ---|          CRM    WITA,T1
04453  M01S02635.252l678 ---|          LDN    0
04454  M01S02636.252l678 ---|          STD    T2
04455  M01S02637.252l678 ---|          LDN    MXMF*5-5
04456  M01S02638.252l678 ---|          STD    T1
04457  M01S02639.252l678 ---| WIT1     LDM    WITA+4,T1   CALCULATE TOTAL BUFFER SPACE TO ALLOCATE
04458  M01S02640.252l678 ---|          RAD    T2
04459  M01S02641.252l678 ---|          LCN    5
04460  M01S02642.252l678 ---|          RAD    T1
04461  M01S02643.252l678 ---|          PJN    WIT1        IF MORE ENTRIES TO READ
04462  M01S02644.252l678 ---|          LDK    MEFL        READ MACHINE EXTENDED MEMORY SIZE
04463  M01S02645.252l678 ---|          CRD    CM
04464  M01S02646.252l678 ---|          LDD    CM+3        FWA OF BUFFERS = FL - TOTAL REQUIRED
04465  M01S02647.252l678 ---|          SBD    T2
04466  M01S02648.252l678 ---|          STD    T2
04467  M01S02649.252l678 ---|          LDN    MXMF*5-5
04468  M01S02650.252l678 ---|          STD    T1
04469  M01S02651.252l678 ---| WIT2     LDM    WITA+4,T1
04470  M01S02652.252l678 ---|          STD    T3
04471  M01S02653.252l678 ---|          ZJN    WIT3        IF NO I/O BUFFERS DEFINED
04472  M01S02654.252l678 ---|          LDD    T2
04473  M01S02655.252l678 ---| WIT3     STM    WITA+3,T1   SET FWA OF BUFFERS
04474  M01S02656.252l678 ---|          LDD    T3          ADVANCE FWA
04475  M01S02657.252l678 ---|          RAD    T2
04476  M01S02658.252l678 ---|          LCN    5
04477  M01S02659.252l678 ---|          RAD    T1
04478  M01S02660.252l678 ---|          PJN    WIT2        IF MORE ENTRIES TO CHECK
04479  M01S02661.252l678 ---|          LDK    IBDT        WRITE *IBDT*
04480  M01S02662.252l678 ---|          RJM    SLA
04481  M01S02663.252l678 ---|          WRITEM MXMF,WITA
04482  M01S02664.252l678 ---|          UJP    WITX        RETURN
04483  M01S02665.252l678 ---|
04484  M01S02666.252l678 ---|
04485  M01S02667.252l678 ---| WITA     BSS    MXMF*5      I/O BUFFER TABLE
04486  M00S02668.mte     +++| TSCP     SPACE  4,10
04487  M00S02669.mte     +++| TSCP     CHTB               PRESET CHANNEL TABLE
04488  M00S02670.mte     +++|          CON    0           TERMINATE TABLE
04489  M00S02671.mte     +++|
04490  M00S02672.mte     +++|*         PRESET MESSAGES.
04491  M00S02673.mte     +++|
04492  M00S02674.mte     +++| MSGA     DATA   30HPORT PRESET FAILED ON MMF LINK
04493  M00S02675.mte     +++| MSGB     DATA   C*CHECKING FOR ACTIVE MACHINES*
04494  M00S02676.mte     +++| MSGC     DATA   C*LINK DEVICE PRESET COMPLETE*
04495  M00S02677.mte     +++| MSGD     DATA   C*CLEARING EXTENDED MEMORY*

Seq #  *Modification Id* Act 
----------------------------+
04496  M01S02678.ns2783  ---|          TITLE  *MTE* BREAKPOINT PACKAGE.

Seq #  *Modification Id* Act 
----------------------------+
04497  M01S00039.273l780 +++|          SPACE  4,10
04498  M01S00040.273l780 +++|**        PRESET COMMON DECKS.
04499  M01S00041.273l780 +++|
04500  M01S00042.273l780 +++|
04501  M01S00043.273l780 +++|*CALL     COMPSIC

Seq #  *Modification Id* Act 
----------------------------+
04502  M01S02679.ns2783  ---| BKP      SPACE  4,40
04503  M01S02680.ns2783  ---|***       BKP - *MTE* BREAKPOINT PACKAGE.
04504  M01S02681.ns2783  ---|*
04505  M01S02682.ns2783  ---|*         ADAPTED FROM *7BK*.
04506  M01S02683.ns2783  ---|*
04507  M01S02684.ns2783  ---|*         BKP IS A BREAKPOINT PACKAGE FOR DEBUGGING MTE.  IT PRECEDES
04508  M01S02685.ns2783  ---|*         THE MAIN BLOCK AND MAY OVERLAP THE TRT BUFFER AREA.  THIS
04509  M01S02686.ns2783  ---|*         RESULTS IN TRT LENGTHS BEING LIMITED TO *MBTR* WORDS WHEN
04510  M01S02687.ns2783  ---|*         BREAKPOINTING.
04511  M01S02688.ns2783  ---|*
04512  M01S02689.ns2783  ---|*         A SET OF *DSD* COMMANDS AND A DISPLAY (V) ARE PROVIDED TO
04513  M01S02690.ns2783  ---|*         ALLOW ACCESS TO THE PACKAGE.  THESE COMMANDS INTERACT WITH
04514  M01S02691.ns2783  ---|*         BKP VIA THE LAST TWO WORDS OF THE MESSAGE BUFFER.
04515  M01S02692.ns2783  ---|*
04516  M01S02693.ns2783  ---|*         *MTE* USES MB+4 AND MB+5 AS FOLLOWS WHEN BREAKPOINTING.
04517  M01S02694.ns2783  ---|*
04518  M01S02695.ns2783  ---|*T, MB+5  12/ 7777,  12/ 7777,  24/ (A),  12/ (P).

Figure MB+5

04519  M01S02696.ns2783  ---|*
04520  M01S02697.ns2783  ---|*         THE 7777 FLAG IN BYTES 0-1 IS THE INDICATION THAT *MTE*
04521  M01S02698.ns2783  ---|*         CAN ACCEPT DIRECTIVES FROM *DSD*.  *DSD* SETS BYTE ZERO TO
04522  M01S02699.ns2783  ---|*         ONE TO INDICATE A DIRECTIVE IS PRESENT IN MB+5.
04523  M01S02700.ns2783  ---|*
04524  M01S02701.ns2783  ---|*         THE FOLLOWING ARE THE COMMANDS AVAILABLE FROM *DSD*.
04525  M01S02702.ns2783  ---|
04526  M01S02703.ns2783  ---|
04527  M01S02704.ns2783  ---|**        PPN.G        RELEASE PP FROM BREAKPOINT.
04528  M01S02705.ns2783  ---|*
04529  M01S02706.ns2783  ---|*T, MB+5  12/  1,24/,12/  PBRF,12/  0.

Figure MB+5

04530  M01S02707.ns2783  ---|
04531  M01S02708.ns2783  ---|
04532  M01S02709.ns2783  ---|**        PPN.C,ADDR.   DISPLAY PP MEMORY.
04533  M01S02710.ns2783  ---|*
04534  M01S02711.ns2783  ---|*T, MB+5  12/  1,24/,12/  PBCF,12/  ADDR.

Figure MB+5

04535  M01S02712.ns2783  ---|*
04536  M01S02713.ns2783  ---|*         RETURNS -
04537  M01S02714.ns2783  ---|*T, MB+4  60/  ADDR - ADDR+4.

Figure MB+4

04538  M01S02715.ns2783  ---|
04539  M01S02716.ns2783  ---|
04540  M01S02717.ns2783  ---|**        PPN.C,ADDR,DATA.  CHANGE PP MEMORY.
04541  M01S02718.ns2783  ---|*
04542  M01S02719.ns2783  ---|*T, MB+5  12/  1,12/,12/  DATA,12/  PBMF,12/  ADDR.

Figure MB+5

04543  M01S02720.ns2783  ---|
04544  M01S02721.ns2783  ---|
04545  M01S02722.ns2783  ---|**        PPN.G,ADDR.   SET BREAKPOINT TRAP.
04546  M01S02723.ns2783  ---|*
04547  M01S02724.ns2783  ---|*T, MB+5  12/  1,24/,12/  PBGF,12/  ADDR.

Figure MB+5

04548  M01S02725.ns2783  ---|
04549  M01S02726.ns2783  ---|
04550  M01S02727.ns2783  ---|**        PPN.A,VALUE.  SET *A* REGISTER.
04551  M01S02728.ns2783  ---|*
04552  M01S02729.ns2783  ---|*T, MB+5  12/  1,12/,12/  BITS 17-12,12/   PBAF,12/  BITS 11-0.

Figure MB+5

04553  M01S02730.ns2783  ---|
04554  M01S02731.ns2783  ---|
04555  M01S02732.ns2783  ---|**        PPN.P,ADDR.   SET *P* REGISTER.
04556  M01S02733.ns2783  ---|*
04557  M01S02734.ns2783  ---|*T, MB+5  12/  1,24/,12/  PBPF,12/  ADDR.

Figure MB+5

04558  M01S02735.ns2783  ---|
04559  M01S02736.ns2783  ---|
04560  M01S02737.ns2783  ---|**        PPN.S.        STEP ONE INSTRUCTION.
04561  M00S02738.mte     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04562  M01S02739.ns2783  ---|***       CAUTIONS.
04563  M01S02740.ns2783  ---|*
04564  M01S02741.ns2783  ---|*         SETTING A BREAKPOINT REPLACES TWO WORDS OF PP MEMORY BY
04565  M01S02742.ns2783  ---|*                RJM   BKP
04566  M01S02743.ns2783  ---|*         WHEN THE BREAKPOINT IS TAKEN, THESE TWO WORDS ARE RESTORED.
04567  M01S02744.ns2783  ---|*         THE BREAKPOINT MUST BE SET IN EXECUTABLE CODE.
04568  M01S02745.ns2783  ---|*         THE BREAKPOINT MUST BE SET ON A PP INSTRUCTION BOUNDARY.
04569  M01S02746.ns2783  ---| BKP      SPACE  4,10
04570  M01S02747.ns2783  ---|**        BKP - BREAKPOINT *MTE*.
04571  M01S02748.ns2783  ---|*         BKP IS ENTERED EITHER BY A RJM FROM THE MAIN LOOP OF *MTE*
04572  M01S02749.ns2783  ---|*         OR FROM A BREAKPOINT.
04573  M01S02750.ns2783  ---|*
04574  M01S02751.ns2783  ---|*         ENTRY  NONE.
04575  M01S02752.ns2783  ---|*
04576  M01S02753.ns2783  ---|*         EXIT   ALL DIRECT CELLS AND (A) RESTORED.
04577  M01S02754.ns2783  ---|*
04578  M01S02755.ns2783  ---|*         USES   T0.
04579  M01S02756.ns2783  ---|
04580  M01S02757.ns2783  ---|
04581  M01S02758.ns2783  ---|          BSS    EPFW-MAINL-*-221  INSURE MAIN IS UP AGAINST *EPFW*

Seq #  *Modification Id* Act 
----------------------------+
04582  M02S02759.ns2783  ---| .1       SET    *-TBUF
04583  M02S02760.ns2783  ---| MBTR     EQU    .1/5        MAXIMUM TRT LENGTH FOR BREAKPOINT

Seq #  *Modification Id* Act 
----------------------------+
04584  M02S01287.ns2783  ---|          ERRNG  *-TBUF-BRTL*5-5  INSURE TRT BUFFER FITS

Seq #  *Modification Id* Act 
----------------------------+
04585  M01S02761.ns2783  ---|
04586  M01S02762.ns2783  ---|*         DEFINE BREAKPOINT FUNCTIONS SO *BKPMODS* IS NOT NEEDED FOR
04587  M01S02763.ns2783  ---|*         ASSEMBLY OF *MTE*.
04588  M01S02764.ns2783  ---|
04589  M01S02765.ns2783  ---| PBRF     EQU    0           PPN.G.
04590  M01S02766.ns2783  ---| PBCF     EQU    1           PPN.C,XXXX.
04591  M01S02767.ns2783  ---| PBGF     EQU    2           PPN.G,XXXX.
04592  M01S02768.ns2783  ---| PBNF     EQU    3           PPN.C,XXXX,XXXX.
04593  M01S02769.ns2783  ---| PBAF     EQU    4           PPN.A,XXXXXX.
04594  M01S02770.ns2783  ---| PBPF     EQU    5           PPN.P,XXXX.
04595  M01S02771.ns2783  ---| PBFM     EQU    6           MAXIMUM FUNCTION + 1
04596  M01S02772.ns2783  ---|
04597  M01S02773.ns2783  ---|
04598  M01S02774.ns2783  ---| BKP4     LDC    **          BREAKPOINT ADDRESS
04599  M01S02775.ns2783  ---| BKPE     EQU    *-1
04600  M01S02776.ns2783  ---|          ZJN    BKP5        IF NO BREAKPOINT SET
04601  M01S02777.ns2783  ---|          STD    T0
04602  M01S02778.ns2783  ---|          LDI    T0          SAVE INSTRUCTION
04603  M01S02779.ns2783  ---|          STM    BKPA
04604  M01S02780.ns2783  ---|          LDC    RJMI        INSERT *RJM*
04605  M01S02781.ns2783  ---|          STI    T0
04606  M01S02782.ns2783  ---|          AOD    T0
04607  M01S02783.ns2783  ---|          LDI    T0          SAVE SECOND HALF OF *RJM*
04608  M01S02784.ns2783  ---|          STM    BKPB
04609  M01S02785.ns2783  ---|          LDC    BKP         INSERT  RJM ADDRESS
04610  M01S02786.ns2783  ---|          STI    T0
04611  M01S02787.ns2783  ---| BKP5     LDC    **          RESTORE (T0)
04612  M01S02788.ns2783  ---| BKPF     EQU    *-1
04613  M01S02789.ns2783  ---|          STD    T0
04614  M01S02790.ns2783  ---|          LDM    BKDW+2      (A)
04615  M01S02791.ns2783  ---|          SHN    14
04616  M01S02792.ns2783  ---|          LMM    BKDW+3
04617  M01S02793.ns2783  ---|
04618  M01S02794.ns2783  ---| BKP      SUBR               ENTRY/EXIT
04619  M01S02795.ns2783  ---|          STM    BKDW+3      SAVE (A)
04620  M01S02796.ns2783  ---|          SHN    -14
04621  M01S02797.ns2783  ---|          STM    BKDW+2
04622  M01S02798.ns2783  ---|          LDD    T0          SAVE (T0)
04623  M01S02799.ns2783  ---|          STM    BKPF
04624  M01S02800.ns2783  ---|          LDM    BKPE        GET BREAKPOINT ADDRESS
04625  M01S02801.ns2783  ---|          STD    T0
04626  M01S02802.ns2783  ---|          ZJN    BKP1        IF NO BREAKPOINT SET
04627  M01S02803.ns2783  ---|          LDC    **          RESTORE WORDS SAVED
04628  M01S02804.ns2783  ---| BKPA     EQU    *-1
04629  M01S02805.ns2783  ---|          STI    T0
04630  M01S02806.ns2783  ---|          AOD    T0
04631  M01S02807.ns2783  ---|          LDC    **
04632  M01S02808.ns2783  ---| BKPB     EQU    *-1
04633  M01S02809.ns2783  ---|          STI    T0
04634  M01S02810.ns2783  ---|          LDM    BKP         CHECK FOR ENTRY FROM BREAKPOINT
04635  M01S02811.ns2783  ---|          LMC    .BKP
04636  M01S02812.ns2783  ---|          ZJN    BKP1        IF NOT CALLED FROM BREAKPOINT
04637  M01S02813.ns2783  ---|          LCN    2           RESET RETURN
04638  M01S02814.ns2783  ---|          RAM    BKP
04639  M01S02815.ns2783  ---| BKP1     STM    BKPC
04640  M01S02816.ns2783  ---|
04641  M01S02817.ns2783  ---|*         LOOP FOR OPERATOR INTERACTION.
04642  M01S02818.ns2783  ---|
04643  M01S02819.ns2783  ---| BKP2     LDD    MA          READ COMMUNICATIONS WORD
04644  M01S02820.ns2783  ---|          ADN    5
04645  M01S02821.ns2783  ---|          CRM    BKCW,ON
04646  M01S02822.ns2783  ---|          SOM    BKCW
04647  M01S02823.ns2783  ---|          ZJN    BKP3        IF COMMAND FROM DSD
04648  M01S02824.ns2783  ---|          LDC    **
04649  M01S02825.ns2783  ---| BKPC     EQU    *-1         ZERO IF ENTERED FROM MAIN LOOP CALL
04650  M01S02826.ns2783  ---|          NJN    BKP2        IF AT BREAKPOINT
04651  M01S02827.ns2783  ---|          LJM    BKP4        RETURN
04652  M01S02828.ns2783  ---|
04653  M01S02829.ns2783  ---| BKP3     LDM    BKCW+3      CHECK COMMAND
04654  M01S02830.ns2783  ---|          SBN    PBFM
04655  M01S02831.ns2783  ---|          PJN    BCFX        IF OUTSIDE TABLE
04656  M01S02832.ns2783  ---|          ADC    PBFM+TCMD
04657  M01S02833.ns2783  ---|          STD    T0
04658  M01S02834.ns2783  ---|          LDI    T0          ADDRESS OF PROCESSOR
04659  M01S02835.ns2783  ---|          STM    BKPD
04660  M01S02836.ns2783  ---|          LDM    BKCW+4      ENTRY CONDITIONS
04661  M01S02837.ns2783  ---|          LJM    **          JUMP TO PROCESSOR
04662  M01S02838.ns2783  ---| BKPD     EQU    *-1
04663  M01S02839.ns2783  ---|          SPACE  4,10
04664  M01S02840.ns2783  ---|**        COMMAND PROCESSORS.
04665  M01S02841.ns2783  ---|*
04666  M01S02842.ns2783  ---|*         ENTRY  (A) = BYTE 4 OF MB+5.
04667  M01S02843.ns2783  ---|*
04668  M01S02844.ns2783  ---|*         EXIT   (MB+5) SET FOR NEXT COMMAND.
04669  M01S02845.ns2783  ---|
04670  M01S02846.ns2783  ---|
04671  M01S02847.ns2783  ---|*         PBNF - ALTER PP MEMORY.
04672  M01S02848.ns2783  ---|
04673  M01S02849.ns2783  ---| BNF      STD    T0
04674  M01S02850.ns2783  ---|          LDM    BKCW+2      STORE MEMORY VALUE
04675  M01S02851.ns2783  ---|          STI    T0
04676  M01S02852.ns2783  ---|          LDD    T0
04677  M01S02853.ns2783  ---|*         UJN    BCF         GO DISPLAY PP CMEMORY
04678  M01S02854.ns2783  ---|
04679  M01S02855.ns2783  ---|*         PBCF - WRITE 5 PP WORDS TO CENTRAL AT MB+4.
04680  M01S02856.ns2783  ---|
04681  M01S02857.ns2783  ---| BCF      ZJN    BCF1        IF DISPLAYING LOCATION ZERO
04682  M01S02858.ns2783  ---|          STM    BCFA
04683  M01S02859.ns2783  ---|          LDD    MA          CM ADDRESS
04684  M01S02860.ns2783  ---|          ADN    4
04685  M01S02861.ns2783  ---|          CWM    **,ON       WRITE TO CM
04686  M01S02862.ns2783  ---| BCFA     EQU    *-1
04687  M01S02863.ns2783  ---|          UJN    BCFX        LOOP
04688  M01S02864.ns2783  ---|
04689  M01S02865.ns2783  ---| BCF1     LDM    BKPF        RESTORE (T0)
04690  M01S02866.ns2783  ---|          STD    T0
04691  M01S02867.ns2783  ---|          LDD    MA          COPY DIRECT CELLS TO CM
04692  M01S02868.ns2783  ---|          ADN    4
04693  M01S02869.ns2783  ---|          CWD    T0
04694  M01S02870.ns2783  ---|
04695  M01S02871.ns2783  ---|*         COMMON PROCESSOR EXIT.
04696  M01S02872.ns2783  ---|
04697  M01S02873.ns2783  ---| BCFX     LDM    BKP
04698  M01S02874.ns2783  ---|          STM    BKDW+4      (P)
04699  M01S02875.ns2783  ---|          LDD    MA          WRITE INFORMATION TO MB+5
04700  M01S02876.ns2783  ---|          ADN    5
04701  M01S02877.ns2783  ---|          CWM    BKDW,ON
04702  M01S02878.ns2783  ---|          SBD    TH          DELAY
04703  M01S02879.ns2783  ---|          PJN    *-1         IF NOT END OF DELAY
04704  M01S02880.ns2783  ---|          LJM    BKP2        CHECK NEXT REQUEST
04705  M01S02881.ns2783  ---|
04706  M01S02882.ns2783  ---|*         PBGF - SET A PP BREAKPOINT AND START EXECUTION.
04707  M01S02883.ns2783  ---|
04708  M01S02884.ns2783  ---| BRF      BSS    0           CLEAR BREAKPOINT AND GO
04709  M01S02885.ns2783  ---| BGF      STM    BKPE
04710  M01S02886.ns2783  ---|          LDN    0           CLEAR BREAKPOINT ENTRY
04711  M01S02887.ns2783  ---|          STM    BKPC
04712  M01S02888.ns2783  ---|          UJN    BCFX        EXIT
04713  M01S02889.ns2783  ---|
04714  M01S02890.ns2783  ---|*         PBAF - SET A REGISTER.
04715  M01S02891.ns2783  ---|
04716  M01S02892.ns2783  ---| BAF      STM    BKDW+3      STORE A
04717  M01S02893.ns2783  ---|          LDM    BKCW+2      BITS 12 - 17
04718  M01S02894.ns2783  ---|          LPN    77
04719  M01S02895.ns2783  ---|          STM    BKDW+2
04720  M01S02896.ns2783  ---|          UJN    BCFX        LOOP
04721  M01S02897.ns2783  ---|
04722  M01S02898.ns2783  ---|*         PBPF - SET P REGISTER.
04723  M01S02899.ns2783  ---|
04724  M01S02900.ns2783  ---| BPF      STM    BKP         RESET P
04725  M01S02901.ns2783  ---|          UJN    BCFX        LOOP
04726  M01S02902.ns2783  ---|          SPACE  4,10
04727  M01S02903.ns2783  ---|**        TABLE OF COMMAND PROCESSORS.
04728  M01S02904.ns2783  ---|
04729  M01S02905.ns2783  ---|
04730  M01S02906.ns2783  ---| TCMD     INDEX
04731  M01S02907.ns2783  ---|          INDEX  PBRF,BRF    GO
04732  M01S02908.ns2783  ---|          INDEX  PBCF,BCF    DISPLAY PP MEMORY
04733  M01S02909.ns2783  ---|          INDEX  PBGF,BGF    SET BREAKPOINT AND GO
04734  M01S02910.ns2783  ---|          INDEX  PBNF,BNF    CHANGE PP MEMORY
04735  M01S02911.ns2783  ---|          INDEX  PBAF,BAF    CHANGE (A)
04736  M01S02912.ns2783  ---|          INDEX  PBPF,BPF    CHANGE (P)
04737  M01S02913.ns2783  ---|          INDEX  PBFM
04738  M01S02914.ns2783  ---|          SPACE  4,10
04739  M01S02915.ns2783  ---|*         COMMUNICATION WORDS.
04740  M01S02916.ns2783  ---|
04741  M01S02917.ns2783  ---|
04742  M01S02918.ns2783  ---| BKDW     CON    7777        DISPLAY WORD
04743  M01S02919.ns2783  ---|          CON    7777
04744  M01S02920.ns2783  ---|          BSS    2           (A)
04745  M01S02921.ns2783  ---|          BSS    1           (P)
04746  M01S02922.ns2783  ---| BKCW     EQU    *-1         COMMAND WORD
04747  M01S02923.ns2783  ---|          BSS    5-1
04748  M01S02924.ns2783  ---|
04749  M00S02925.mte     +++|          BSS    EPFW-MAINL-*  INSURE MAIN IS UP AGAINST *EPFW*

Seq #  *Modification Id* Act 
----------------------------+
04750  M01S00266.ns2783  +++|          ERRNG  *-EBUF      INSURE TRT BUFFER FITS
04751  M00S02926.mte     +++|          TITLE  MTE/2EA - DOWN MACHINE PROCESSING.
04752  M00S02927.mte     +++|          QUAL   2EA
04753  M00S02928.mte     +++|          IDENT  2EA,O2EA    DOWN MACHINE PROCESSING.
04754  M00S02929.mte     +++|*COMMENT  MTE - DOWN MACHINE PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
04755  M01S02930.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1985.

Seq #  *Modification Id* Act 
----------------------------+
04756  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04757  M00S02931.mte     +++| O2EA     EQU    PPFW
04758  M00S02932.mte     +++|          ORG    O2EA
04759  M00S02933.mte     +++|          SPACE  4,20
04760  M00S02934.mte     +++|***       2EA - DOWN MACHINE PROCESSING.
04761  M00S02935.mte     +++|*
04762  M00S02936.mte     +++|*         *2EA* IS CALLED BY *MTE* WHEN THE MACHINE CLOCK STATUS
04763  M00S02937.mte     +++|*         IS INAPPROPRIATE FOR THE STATE IN *TSTA*.  THIS OCCURS
04764  M00S02938.mte     +++|*         WHEN A MACHINE IS DEADSTARTED OR GOES DOWN.
04765  M00S02939.mte     +++|*
04766  M00S02940.mte     +++|*         *2EA* PERFORMS THE FOLLOWING MACHINE STATE PROCESSING.
04767  M00S02941.mte     +++|*
04768  M00S02942.mte     +++|*         MFDN   MACHINE DOWN STATE.
04769  M00S02943.mte     +++|*
04770  M00S02944.mte     +++|*                FOR A MACHINE PREVIOUSLY IN A DOWN STATE, OR ANY
04771  M00S02945.mte     +++|*         OTHER NON-ACTIVE STATE WHICH IS NOW ACTIVE, SET THE ACTIVE
04772  M00S02946.mte     +++|*         STATE (*MFAC*) IN THE INTERNAL TABLE *TSTA* AS WELL AS THE
04773  M00S02947.mte     +++|*         *MFST* TABLE POINTED TO BY *EFRL*.
04774  M00S02948.mte     +++|*
04775  M00S02949.mte     +++|*         MFAC   MACHINE ACTIVE STATE.
04776  M00S02950.mte     +++|*                IF A MACHINE IS NO LONGER UPDATING ITS EXTENDED
04777  M00S02951.mte     +++|*         MEMORY CLOCK IT IS PLACED IN THE *MFD1* STATE.
04778  M00S02952.mte     +++|*
04779  M00S02953.mte     +++|*         MFD1   MACHINE SENSED DOWN ONCE.
04780  M00S02954.mte     +++|*                IF A MACHINE IS NO LONGER UPDATING ITS EXTENDED
04781  M00S02955.mte     +++|*         MEMORY CLOCK AND IT IN THE *MFD1* STATE, IT IS PLACED IN THE
04782  M00S02956.mte     +++|*         *MFD2* STATE.
04783  M00S02957.mte     +++|*
04784  M00S02958.mte     +++|*         MFD2   MACHINE SENSED DOWN TWO OR MORE TIMES.
04785  M00S02959.mte     +++|*                IF A MACHINE IS NO LONGER UPDATING ITS EXTENDED
04786  M00S02960.mte     +++|*         MEMORY CLOCK AND IS IN THE *MFD2* STATE, A CHECK IS MADE
04787  M00S02961.mte     +++|*         TO SEE IF IT IS A LOW SPEED PORT MACHINE.  IF IT IS, THE
04788  M00S02962.mte     +++|*         MESSAGE
04789  M00S02963.mte     +++|*                IF XX DOWN, ENTER *DOWN,MID=XX*
04790  M00S02964.mte     +++|*         IS DISPLAYED AT THE SYSTEM CONTROL POINT.  THIS MESSAGE
04791  M00S02965.mte     +++|*         IS DISPLAYED UNTIL THE OPERATOR RESPONDS WITH THE
04792  M00S02966.mte     +++|*         *DOWN,MID=XX* COMMAND, OR A *GO,SYS*.  IF THE MESSAGE IS
04793  M00S02967.mte     +++|*         CLEARED BY A *GO,SYS*, BUT THE MACHINE DETECTED AS DOWN IS
04794  M00S02968.mte     +++|*         STILL IS NOT UPDATING ITS CLOCK, (DUE TO BEING IN STEP MODE
04795  M00S02969.mte     +++|*         OR A CHANNEL IS HUNG) THE MESSAGE WILL REAPPEAR.
04796  M00S02970.mte     +++|*         IF THE MACHINE IS NOT A LOW SPEED PORT MACHINE, THE STATE
04797  M00S02971.mte     +++|*         WILL BE ADVANCED TO *MFDA*.
04798  M00S02972.mte     +++|*         THE *DOWN,MID=XX* ADVANCES TO THE *MFDA* STATE FOR DOWN
04799  M00S02973.mte     +++|*         LOW SPPED PORT MACHINES.
04800  M00S02974.mte     +++|*
04801  M00S02975.mte     +++|*         MFDA   MAINFRAME DOWN IS ACKNOWLEGED.
04802  M00S02976.mte     +++|*                IF A MACHINE IS NO LONGER UPDATING ITS EM CLOCK
04803  M00S02977.mte     +++|*         AND IS IN THE *MFDA* STATE, INTERLOCKS WHICH IT HOLDS MUST
04804  M00S02978.mte     +++|*         BE RELEASED.  FLAG REGISTER AND DEVICE INTERLOCKS ARE
04805  M00S02979.mte     +++|*         CLEARED UNDER CONTROL OF THE *CIRI* INTERLOCK WHILE IN
04806  M00S02980.mte     +++|*         THE *MFDA* STATE.  WHEN THESE INTERLOCKS ARE CLEARED FOR
04807  M00S02981.mte     +++|*         THE DOWN MACHINE IT ADVANCES TO THE *MFCD* STATE.
04808  M00S02982.mte     +++|*
04809  M00S02983.mte     +++|*         MFCD   DEVICE AND FLAG INTERLOCK CLEARING DONE.
04810  M00S02984.mte     +++|*                IF A MACHINE IS NO LONGER UPDATING ITS EM CLOCK
04811  M00S02985.mte     +++|*         AND IS IN THE *MFCD* STATE, *1MR* IS CALLED TO CLEAR TRACK
04812  M00S02986.mte     +++|*         INTERLOCKS AND PF COUNTS.  IF A PP IS AVAILABLE FOR *1MR*
04813  M00S02987.mte     +++|*         THE DOWN MACHINE ADVANCES TO THE *MFMR* STATE.
04814  M00S02988.mte     +++|*
04815  M00S02989.mte     +++|*         MFMR   *1MR* CALLED STATE.
04816  M00S02990.mte     +++|*                WHEN *1MR* COMPLETES CLEARING TRACK INTERLOCKS
04817  M00S02991.mte     +++|*         AND PF COUNTS FOR THE DOWN MACHINE IT ADVANCES IT BACK
04818  M00S02992.mte     +++|*         TO THE *MFDN* STATE.
04819  M00S02993.mte     +++|*
04820  M00S02994.mte     +++|*         ENTRY  (T8) = MACHINES REQUIRING STATE PROCESSING.
04821  M00S02995.mte     +++|*                (T9) = ACTIVE MACHINE MASKS.
04822  M00S02996.mte     +++|*
04823  M00S02997.mte     +++|*         USES   T1, T3, FN - FN+4.
04824  M00S02998.mte     +++|*
04825  M00S02999.mte     +++|*         CALLS  SLA.
04826  M00S03000.mte     +++|*
04827  M00S03001.mte     +++|*         MACROS READEM.
04828  M00S03002.mte     +++|
04829  M00S03003.mte     +++|
04830  M00S03004.mte     +++| PDM      SUBR               ENTRY/EXIT
04831  M00S03005.mte     +++|          LDK    EFRL        SET STATE TABLE ADDRESS
04832  M00S03006.mte     +++|          CRD    FN
04833  M00S03007.mte     +++|          LDD    FN+1
04834  M00S03008.mte     +++|          RAM    PDMA+1
04835  M00S03009.mte     +++|          SHN    -14
04836  M00S03010.mte     +++|          ADD    FN
04837  M00S03011.mte     +++|          RAM    PDMA
04838  M00S03012.mte     +++|          LDN    MXMF        PRESET MACHINE INDEX
04839  M00S03013.mte     +++|          STD    T3
04840  M00S03014.mte     +++|          UJN    PDM2        ENTER SEARCH LOOP
04841  M00S03015.mte     +++|
04842  M00S03016.mte     +++|*         ADVANCE TO NEXT STATE.
04843  M00S03017.mte     +++|
04844  M00S03018.mte     +++| PDM1     AOD    FN+4        SET NEW STATE
04845  M00S03019.mte     +++|          STM    TSTA,T3
04846  M00S03020.mte     +++|          LDM    PDMA        WRITE STATE ENTRY TO MFST
04847  M00S03021.mte     +++|          LPN    77
04848  M00S03022.mte     +++|          SHN    14
04849  M00S03023.mte     +++|          ADM    PDMA+1
04850  M00S03024.mte     +++|          ADD    T3
04851  M00S03025.mte     +++|          CWD    FN
04852  M00S03026.mte     +++|
04853  M00S03027.mte     +++| PDM2     SOD    T3
04854  M00S03028.mte     +++|          MJN    PDMX        IF END OF MACHINE CHECK
04855  M00S03029.mte     +++| PDMA     ADC    MFST        GET MAINFRAME STATE TABLE ENTRY
04856  M00S03030.mte     +++|          CRD    FN
04857  M00S03031.mte     +++|          LDD    T8
04858  M00S03032.mte     +++|          LMM    TMMK,T3
04859  M00S03033.mte     +++|          SBD    T8
04860  M00S03034.mte     +++|          PJN    PDM2        IF NO STATE PROCESSING REQUIRED
04861  M00S03035.mte     +++|          LDD    T9
04862  M00S03036.mte     +++|          LMM    TMMK,T3
04863  M00S03037.mte     +++|          SBD    T9
04864  M00S03038.mte     +++|          PJN    PDM3        IF CLOCK NOT CHANGING
04865  M00S03039.mte     +++|
04866  M00S03040.mte     +++|*         SET MACHINE ACTIVE IN *MFST* AND INTERNAL TABLES.
04867  M00S03041.mte     +++|
04868  M00S03042.mte     +++|          LDN    MFET
04869  M00S03043.mte     +++|          ADD    T3
04870  M00S03044.mte     +++|          RJM    SLA
04871  M00S03045.mte     +++|          READEM 1,FN
04872  M00S03046.mte     +++|          LDN    0
04873  M00S03047.mte     +++|          STD    FN+3
04874  M00S03048.mte     +++|          LDN    MFAC-1      SET ACTIVE STATE
04875  M00S03049.mte     +++|          STD    FN+4
04876  M00S03050.mte     +++|          UJP    PDM1        STORE STATE
04877  M00S03051.mte     +++|
04878  M00S03052.mte     +++| PDM3     LDM    TPDM,FN+4   SET MACHINE STATE PROCESSOR
04879  M00S03053.mte     +++|          STD    T1
04880  M00S03054.mte     +++|          LJM    0,T1        ENTER STATE PROCESSOR
04881  M00S03055.mte     +++| STATE    SPACE  4,10
04882  M00S03056.mte     +++|**        STATE - SET STATE PROCESSOR.
04883  M00S03057.mte     +++|*
04884  M00S03058.mte     +++|*         STATE  STA,PRC
04885  M00S03059.mte     +++|*
04886  M00S03060.mte     +++|*         ENTRY  *STA* = STATE NAME.
04887  M00S03061.mte     +++|*                *PRC* = ALTERNATE PROCESSOR.
04888  M00S03062.mte     +++|*
04889  M00S03063.mte     +++|*         THIS MACRO BUILDS A TABLE OF STATE PROCESSORS.
04890  M00S03064.mte     +++|*         THE TABLE IS NAMED *TPDM*, AND EACH ENTRY IS THE
04891  M00S03065.mte     +++|*         ADDRESS OF THE PROCESSOR FOR THE STATE.
04892  M00S03066.mte     +++|
04893  M00S03067.mte     +++|
04894  M00S03068.mte     +++|          PURGMAC  STATE
04895  M00S03069.mte     +++|
04896  M00S03070.mte     +++| STATE    MACRO  STA,PRC
04897  M00S03071.mte     +++|          LOCAL  A
04898  M00S03072.mte     +++| .A       IFC    EQ,*PRC**
04899  M00S03073.mte     +++| A        MICRO  2,4, STA
04900  M00S03074.mte     +++| "A"      BSS    0
04901  M00S03075.mte     +++| .A       ELSE
04902  M00S03076.mte     +++| A        MICRO  1,, PRC
04903  M00S03077.mte     +++| .A       ENDIF
04904  M00S03078.mte     +++| TPDM     RMT
04905  M00S03079.mte     +++|          ORG    TPDM+STA
04906  M00S03080.mte     +++|          CON    "A"
04907  M00S03081.mte     +++| TPDM     RMT
04908  M00S03082.mte     +++| STATE    ENDM
04909  M00S03083.mte     +++| MFDN     SPACE  4,10
04910  M00S03084.mte     +++|*         DOWN STATE PROCESSOR.
04911  M00S03085.mte     +++|
04912  M00S03086.mte     +++|          STATE  MFDN        NO STATE CHANGE
04913  M00S03087.mte     +++|          LDN    MFDN        SET STATE IN INTERNAL TABLE
04914  M00S03088.mte     +++|          STM    TSTA,T3
04915  M00S03089.mte     +++|          LJM    PDM2        PROCESS NEXT MACHINE
04916  M00S03090.mte     +++| MFAC     SPACE  4,10
04917  M00S03091.mte     +++|*         ACTIVE STATE PROCESSOR.
04918  M00S03092.mte     +++|
04919  M00S03093.mte     +++|          STATE  MFAC,PDM1   ADVANCE TO *MFD1* STATE
04920  M00S03094.mte     +++| MFD1     SPACE  4,10
04921  M00S03095.mte     +++|*         DOWN SENSED ONCE STATE PROCESSOR.
04922  M00S03096.mte     +++|
04923  M00S03097.mte     +++|          STATE  MFD1,PDM1   ADVANCE TO *MFD2* STATE
04924  M00S03098.mte     +++| MFD2     SPACE  4,10
04925  M00S03099.mte     +++|*         DOWN SENSED TWICE OR MORE STATE PROCESSOR.
04926  M00S03100.mte     +++|
04927  M00S03101.mte     +++|          STATE  MFD2
04928  M00S03102.mte     +++|          LDD    FN+1        CHECK FOR LOW SPEED PORT MMF MACHINE
04929  M00S03103.mte     +++|          SHN    21-12
04930  M00S03104.mte     +++|          PJP    PDM1        IF NOT LOW SPEED PORT MMF MACHINE
04931  M00S03105.mte     +++|          LDD    FN
04932  M00S03106.mte     +++|          SHN    6
04933  M00S03107.mte     +++|          LMN    1R
04934  M00S03108.mte     +++|          STM    FD2A+2
04935  M00S03109.mte     +++|          SHN    6
04936  M00S03110.mte     +++|          STM    FD2A+1
04937  M00S03111.mte     +++|          LDD    FN
04938  M00S03112.mte     +++|          SHN    6
04939  M00S03113.mte     +++|          LMN    1R*
04940  M00S03114.mte     +++|          STM    FD2A+16
04941  M00S03115.mte     +++|          SCN    77
04942  M00S03116.mte     +++|          LMN    1R=
04943  M00S03117.mte     +++|          SHN    6
04944  M00S03118.mte     +++|          STM    FD2A+15
04945  M00S03119.mte     +++|          LDD    CP
04946  M00S03120.mte     +++|          ADN    MS2W
04947  M00S03121.mte     +++|          CWM    FD2A,TR
04948  M00S03122.mte     +++|          UJP    PDM2        PROCESS NEXT MACHINE
04949  M00S03123.mte     +++|
04950  M00S03124.mte     +++| FD2A     DATA   30HIF XX DOWN ENTER *DOWN,MID=XX*
04951  M00S03125.mte     +++| MFDA     SPACE  4,10
04952  M00S03126.mte     +++|*         DOWN MACHINE ACKNOWLEGED STATE PROCESSOR.
04953  M00S03127.mte     +++|
04954  M00S03128.mte     +++|          STATE  MFDA
04955  M00S03129.mte     +++|          LDD    FN          SET MACHINE ID IN MESSAGE
04956  M00S03130.mte     +++|          STM    FDAB+4
04957  M00S03131.mte     +++|          LDD    CP
04958  M00S03132.mte     +++|          ADN    MS2W
04959  M00S03133.mte     +++|          CWM    FDAB,TR
04960  M00S03134.mte     +++|          SFLAG  CIRI,PDM2   OBTAIN FLAG INTERLOCK TO CLEAR INTERLOCKS
04961  M00S03135.mte     +++|          LDM    TMMK,T3     CHECK DOWN MACHINE HAS *TRTI* INTERLOCK
04962  M00S03136.mte     +++|          STD    EA+1
04963  M00S03137.mte     +++|          LDC    6000        SET TEST FLAG FUNCTION
04964  M00S03138.mte     +++|          STD    EA
04965  M00S03139.mte     +++|          LDN    EA
04966  M00S03140.mte     +++|          RJM    IFR

Proceed to Part 3