User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:mte.002

Deck MTE Part 002

10 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03055  M01S01088.283l840 +++|          RAD    CM+1
03056  M01S01089.283l840 +++| UMS1     LDM    BRTR        BRT ENTRIES REJECTED
03057  M01S01090.283l840 +++|          RAD    CM+2
03058  M01S01091.283l840 +++|          LDM    BRTT        TOTAL BRT ENTRIES
03059  M01S01092.283l840 +++|          RAD    CM+4
03060  M01S01093.283l840 +++|          SHN    -14
03061  M01S01094.283l840 +++|          RAD    CM+3
03062  M01S01095.283l840 +++|          LDK    RTCL
03063  M01S01096.283l840 +++|          CRD    FS
03064  M01S01097.283l840 +++|          LDD    FS+4
03065  M01S01098.283l840 +++|          SBM    CYTM
03066  M01S01099.283l840 +++|          PJN    UMS2        IF NO OVERFLOW
03067  M01S01100.283l840 +++|          ADC    10000
03068  M01S01101.283l840 +++| UMS2     STD    FN          CURRENT CYCLE TIME
03069  M01S01102.283l840 +++|          RAM    CYTM
03070  M01S01103.283l840 +++|          LDD    FN
03071  M01S01104.283l840 +++|          SBD    FN+1
03072  M01S01105.283l840 +++|          MJN    UMS3        IF NOT NEW WORST CASE
03073  M01S01106.283l840 +++|          RAD    FN+1
03074  M01S01107.283l840 +++| UMS3     LDM    BIAA        *BATI* INTERLOCK ATTEMPTS ABANDONED
03075  M01S01108.283l840 +++|          RAD    FN+2
03076  M01S01109.283l840 +++|          LDM    BATT        TOTAL BAT REQUESTS
03077  M01S01110.283l840 +++|          RAD    FN+4
03078  M01S01111.283l840 +++|          SHN    -14
03079  M01S01112.283l840 +++|          RAD    FN+3
03080  M01S01113.283l840 +++|          TLDC   DM1S,SDA    WRITE STATISTICS WORDS
03081  M01S01114.283l840 +++|          CWD    CM
03082  M01S01115.283l840 +++|          ADK    DM2S-DM1S
03083  M01S01116.283l840 +++|          CWD    FN
03084  M01S01117.283l840 +++|          LDN    ZERL        CLEAR CURRENT TOTALS
03085  M01S01118.283l840 +++|          CRM    BRTS,ON
03086  M01S01119.283l840 +++|          UJP    UMSX        RETURN
Line S01120 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03087  M02S01120.ns2783  ---| WIC      SPACE  4,10
Line S01121 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03088  M02S01121.ns2783  ---|**        WIC - WAIT FOR BDT INTERLOCKS TO CLEAR.
Line S01122 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03089  M02S01122.ns2783  ---|*
Line S01123 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03090  M02S01123.ns2783  ---|*         EXIT   (A) = 0, IF NO BDT INTERLOCKS ARE HELD
Line S01124 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03091  M02S01124.ns2783  ---|*                         BY OTHER MAINFRAMES.
Line S01125 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03092  M02S01125.ns2783  ---|*
Line S01126 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03093  M02S01126.ns2783  ---|*         USES   T8, FN - FN+4.
Line S01127 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03094  M02S01127.ns2783  ---|*
Line S01128 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03095  M02S01128.ns2783  ---|*         CALLS  CBD, SLA.
Line S01129 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03096  M02S01129.ns2783  ---|*
Line S01130 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03097  M02S01130.ns2783  ---|*         MACROS READEM.
Line S01131 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03098  M02S01131.ns2783  ---|
Line S01132 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03099  M02S01132.ns2783  ---|
Line S01133 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03100  M02S01133.ns2783  ---| WIC      SUBR               ENTRY/EXIT
Line S01134 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03101  M02S01134.ns2783  ---|          LDN    DAET
Line S01135 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03102  M02S01135.ns2783  ---|          RJM    SLA
Line S01136 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03103  M02S01136.ns2783  ---|          READEM 1,FN        READ DAET POINTER
Line S01137 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03104  M02S01137.ns2783  ---|          LDD    FN+4        NUMBER OF BDT ENTRIES
Line S01138 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03105  M02S01138.ns2783  ---|          STD    WC
Line S01139 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03106  M02S01139.ns2783  ---|          RJM    CBD         SET ADDRESS OF BDT
Line S01140 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03107  M02S01140.ns2783  ---|          READEM *,TBUF      READ BDT
Line S01141 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03108  M02S01141.ns2783  ---|          LDC    TBUF-5      INITIALIZE SEARCH ADDRESS
Line S01142 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03109  M02S01142.ns2783  ---|          STD    T8
Line S01143 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03110  M02S01143.ns2783  ---| WIC1     LDN    5           ADVANCE TO NEXT BDT ENTRY
Line S01144 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03111  M02S01144.ns2783  ---|          RAD    T8
Line S01145 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03112  M02S01145.ns2783  ---|          LDI    T8
Line S01146 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03113  M02S01146.ns2783  ---|          ZJN    WIC2        IF NOT INTERLOCKED
Line S01147 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03114  M02S01147.ns2783  ---|          LPC    3777
Line S01148 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03115  M02S01148.ns2783  ---|          TLMN   0,MI
Line S01149 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03116  M02S01149.ns2783  ---|          NJN    WICX        IF INTERLOCKED BY ANOTHER M/F
Line S01150 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03117  M02S01150.ns2783  ---| WIC2     SOD    FN+4
Line S01151 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03118  M02S01151.ns2783  ---|          NJN    WIC1        IF MORE ENTRIES TO CHECK
Line S01152 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03119  M02S01152.ns2783  ---|          UJP    WICX        RETURN
03120  M01S01621.mte     +++|          SPACE  4,10
03121  M01S01622.mte     +++|*         COMMON DECKS.
03122  M01S01623.mte     +++|
03123  M01S01624.mte     +++|
03124  M01S01625.mte     +++| FNT$     EQU    1           SELECT FNT PROCESSOR
03125  M01S01626.mte     +++| IFP$     EQU    1           SELECT REMOTE INITIALIZATION
03126  M01S01627.mte     +++|*CALL     COMPGFP
03127  M01S01628.mte     +++|          TITLE  EXTENDED MEMORY INTERFACE ROUTINES.
03128  M01S01629.mte     +++| FUNCTION SPACE  4,15
03129  M01S01630.mte     +++|**        FUNCTION - ISSUE EXTENDED MEMORY FUNCTION.
03130  M01S01631.mte     +++|*
03131  M01S01632.mte     +++|*         THE FUNCTION MACRO ISSUES A FUNCTION TO THE ESM LOW SPEED
03132  M01S01633.mte     +++|*         PORT, AS WELL AS GENERATING A REMOTE TABLE FOR THE
03133  M01S01634.mte     +++|*         DETERMINATION OF THE OPERATION (READ, WRITE, FLAG) BEING
03134  M01S01635.mte     +++|*         PERFORMED.
03135  M01S01636.mte     +++|*
03136  M01S01637.mte     +++|*         FUNCTION CD,RTN
03137  M01S01638.mte     +++|*
03138  M01S01639.mte     +++|*         ENTRY  *CD* = FUNCTION CODE TO ISSUE.
03139  M01S01640.mte     +++|*                      *ST* = STATUS.
03140  M01S01641.mte     +++|*                      *RD* = READ.
03141  M01S01642.mte     +++|*                      *WT* = WRITE.
03142  M01S01643.mte     +++|*                *RTN* = ROUTINE WHICH ISSUES FUNCTION.
03143  M01S01644.mte     +++|*
03144  M01S01645.mte     +++|*         CALLS  SFN.
03145  M01S01646.mte     +++|
03146  M01S01647.mte     +++|
03147  M01S01648.mte     +++|          PURGMAC FUNCTION
03148  M01S01649.mte     +++|
03149  M01S01650.mte     +++| FUNCTION MACRO  CD,OP
03150  M01S01651.mte     +++|          LOCAL  A
03151  M01S01652.mte     +++|          LDN    CD_FN
03152  M01S01653.mte     +++|          RJM    SFN
03153  M01S01654.mte     +++| A        BSS    0
03154  M01S01655.mte     +++| .SFN     MICRO  1,, ".SFN"A,OP,
03155  M01S01656.mte     +++| FUNCTION ENDM
03156  M01S01657.mte     +++|
03157  M01S01658.mte     +++| .SFN     MICRO  1,,         INITIALIZE FUNCTION CALLER MICRO
Line S01659 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03158  M02S01659.ns2783  ---| RDW      SPACE  4,10
03159  M01S00238.ns2783  +++| RDW      SPACE  4,15
03160  M01S01660.mte     +++|**        RDW - READ EXTENDED MEMORY WORDS.
03161  M01S01661.mte     +++|*
03162  M01S01662.mte     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
03163  M01S01663.mte     +++|*                (EA - EA+1) = ADDRESS TO READ FROM.
03164  M01S01664.mte     +++|*                (WC) = WORD COUNT OF TRANSFER.
03165  M01S01665.mte     +++|*
03166  M01S01666.mte     +++|*         EXIT   (A) .LT. 0, IF UNRECOVERABLE PARITY ERROR.
03167  M01S01667.mte     +++|*
03168  M01S01668.mte     +++|*         USES   BR.
03169  M01S01669.mte     +++|*
03170  M01S01670.mte     +++|*         CALLS  CKS.
03171  M01S01671.mte     +++|*
03172  M01S01672.mte     +++|*         MACROS FUNCTION.
03173  M01S01673.mte     +++|
03174  M01S01674.mte     +++|
Line S01675 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03175  M02S01675.283l840 ---| RDW2     RJM    CKS         CHECK STATUS
03176  M01S01153.283l840 +++| RDW2     LDN    RDFN
03177  M01S01154.283l840 +++|          RJM    CKS         CHECK STATUS
03178  M01S01676.mte     +++|
03179  M01S01677.mte     +++| RDW      SUBR               ENTRY/EXIT
03180  M01S01678.mte     +++|          STM    RDWA        SAVE PP BUFFER ADDRESS
03181  M01S01679.mte     +++|          FUNCTION  RD,RDW   ISSUE READ FUNCTION
03182  M01S01680.mte     +++|          OAM    EA,CH       OUTPUT ADDRESS
03183  M01S01681.mte     +++|          LDD    WC          SET BYTE COUNT TO INPUT
03184  M01S01682.mte     +++|          SHN    2
03185  M01S01683.mte     +++|          ADD    WC
03186  M01S01684.mte     +++|          IAM    *,CH
03187  M01S01685.mte     +++| RDWA     EQU    *-1         READ BUFFER ADDRESS
03188  M01S01686.mte     +++|          STD    BR          SAVE BYTE COUNT
03189  M01S01687.mte     +++|          DCN    CH+40
03190  M01S01688.mte     +++|          UJN    RDW2        CHECK STATUS
Line S01689 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03191  M02S01689.ns2783  ---| WTW      SPACE  4,10
03192  M01S00239.ns2783  +++| WTW      SPACE  4,15
03193  M01S01690.mte     +++|**        WTW - WRITE WORDS TO EXTENDED MEMORY.
03194  M01S01691.mte     +++|*
03195  M01S01692.mte     +++|*         ENTRY  (A) = BYTE ADDRESS OF DATA TO WRITE.
03196  M01S01693.mte     +++|*                (EA - EA+1) =ADDRESS TO READ FROM.
03197  M01S01694.mte     +++|*                (WC) = WORD COUNT OF TRANSFER.
03198  M01S01695.mte     +++|*
03199  M01S01696.mte     +++|*         EXIT   (A) .LT. 0, IF UNRECOVERABLE PARITY ERROR.
03200  M01S01697.mte     +++|*
03201  M01S01698.mte     +++|*         USES   BR.
03202  M01S01699.mte     +++|*
03203  M01S01700.mte     +++|*         CALLS  CKS.
03204  M01S01701.mte     +++|*
03205  M01S01702.mte     +++|*         MACROS FUNCTION.
03206  M01S01703.mte     +++|
03207  M01S01704.mte     +++|
Line S01705 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03208  M02S01705.283l840 ---| WTW2     RJM    CKS         CHECK STATUS OF WRITE
03209  M01S01155.283l840 +++| WTW2     LDN    WTFN
03210  M01S01156.283l840 +++|          RJM    CKS         CHECK STATUS OF WRITE
03211  M01S01706.mte     +++|
03212  M01S01707.mte     +++| WTW      SUBR               ENTRY/EXIT
03213  M01S01708.mte     +++|          STM    WTWA        SET BUFFER ADDRESS
03214  M01S01709.mte     +++|          FUNCTION  WT,WTW   ISSUE WRITE FUNCTION
03215  M01S01710.mte     +++|          OAM    EA,CH       OUTPUT ADDRESS
03216  M01S01711.mte     +++|          LDD    WC          SET BYTE COUNT OF TRANSFER
03217  M01S01712.mte     +++|          SHN    2
03218  M01S01713.mte     +++|          ADD    WC
03219  M01S01714.mte     +++|          OAM    *,CH
03220  M01S01715.mte     +++| WTWA     EQU    *-1
03221  M01S01716.mte     +++|          FJM    *,CH        IF DATA NOT ACCEPTED
03222  M01S01717.mte     +++|          STD    BR          SAVE BYTE COUNT
03223  M01S01718.mte     +++|          DCN    CH+40
03224  M01S01719.mte     +++|          UJN    WTW2        CHECK STATUS
03225  M01S01720.mte     +++| IFR      SPACE  4,10
03226  M01S01721.mte     +++|**        IFR - ISSUE FLAG FUNCTION.
03227  M01S01722.mte     +++|*
03228  M01S01723.mte     +++|*         ENTRY  (A) = ADDRESS OF FLAG FUNCTION WORDS.
03229  M01S01724.mte     +++|*
03230  M01S01725.mte     +++|*         EXIT   (A) = 0, IF FLAG FUNCTION PERFORMED.
03231  M01S01726.mte     +++|*
03232  M01S01727.mte     +++|*         USES   ST.
03233  M01S01728.mte     +++|*
03234  M01S01729.mte     +++|*         MACROS FUNCTION.
03235  M01S01730.mte     +++|
03236  M01S01731.mte     +++|
03237  M01S01732.mte     +++| IFR      SUBR               ENTRY/EXIT
03238  M01S01733.mte     +++|          STM    IFRA
03239  M01S01734.mte     +++|          FUNCTION  RD,IFR   ISSUE READ FUNCTION
03240  M01S01735.mte     +++|          OAM    **,CH       OUTPUT ADDRESS
03241  M01S01736.mte     +++| IFRA     EQU    *-1
03242  M01S01737.mte     +++|          FJM    *,CH        IF CHANNEL STILL FULL
03243  M01S01738.mte     +++|          DCN    CH+40
03244  M01S01739.mte     +++|          FUNCTION  ST,IFR   ISSUE STATUS FUNCTION
03245  M01S01740.mte     +++|          IAN    CH+40
03246  M01S01741.mte     +++|          DCN    CH+40
03247  M01S01742.mte     +++|          STD    ST
03248  M01S01743.mte     +++|          LMN    2
03249  M01S01744.mte     +++|          UJN    IFRX        RETURN STATUS
03250  M01S01745.mte     +++| CKS      SPACE  4,10
03251  M01S01746.mte     +++|**        CKS - CHECK STATUS OF TRANSFER.
03252  M01S01747.mte     +++|*
03253  M01S01748.mte     +++|*         ENTRY  (BR) = BYTES REMAINING IN TRANSFER.
03254  M01S01749.mte     +++|*
03255  M01S01750.mte     +++|*         EXIT   (A) = 0, IF NO ERROR.
03256  M01S01751.mte     +++|*
03257  M01S01752.mte     +++|*         MACROS EXECUTE, FUNCTION.
03258  M01S01753.mte     +++|
03259  M01S01754.mte     +++|
03260  M01S01755.mte     +++| CKS      SUBR               ENTRY/EXIT
03261  M01S01157.283l840 +++|          STM    CKSA        SAVE CALLER FUNCTION
03262  M01S01756.mte     +++| CKS1     FUNCTION  ST,CKS   ISSUE STATUS FUNCTION
03263  M01S01757.mte     +++|          IAN    CH+40
03264  M01S01758.mte     +++|          DCN    CH+40
03265  M01S01759.mte     +++|          STD    ST
03266  M01S01760.mte     +++|          LMN    2
03267  M01S01761.mte     +++|          ADD    BR          CHECK REMAINING BYTE COUNT
03268  M01S01762.mte     +++|          ZJN    CKSX        IF COMPLETE TRANSFER
03269  M01S01763.mte     +++|          LDD    ST
03270  M01S01764.mte     +++|          LPN    10
03271  M01S01765.mte     +++|          NJN    CKS1        IF WRITE IN PROGRESS BIT SET
03272  M01S01766.mte     +++| ERR      EXECUTE  7EA       PROCESS INCOMPLETE TRANSFER / STATUS ERROR
03273  M01S01158.283l840 +++|
03274  M01S01159.283l840 +++| CKSA     CON    0           CALLER FUNCTION CODE
03275  M01S01767.mte     +++| REC      SPACE  4,10
03276  M01S01768.mte     +++|**        REC - RECOVERED ERROR PROCESSOR.
03277  M01S01769.mte     +++|*
03278  M01S01770.mte     +++|*         ENTRY  (RECA) = EXIT ADDRESS.
03279  M01S01771.mte     +++|*
03280  M01S01772.mte     +++|*         USES   RC.
03281  M01S01773.mte     +++|*
03282  M01S01774.mte     +++|*         WHEN AN ESM ERROR OCCURS THE EXIT ADDRESS IS SAVED IN *RECA*,
03283  M01S01775.mte     +++|*         AND THE EXIT IS REPLACED WITH A JUMP TO *REC*.  THIS MAKES
03284  M01S01776.mte     +++|*         IT POSSIBLE FOR *REC* TO RESET THE RETRY COUNT TO ZERO FOR
03285  M01S01777.mte     +++|*         THE NEXT ERROR.
03286  M01S01778.mte     +++|
03287  M01S01779.mte     +++|
03288  M01S01780.mte     +++| REC      LDC    0           GET EXIT ADDRESS
03289  M01S01781.mte     +++| RECA     EQU    *-1         (EXIT ADDRESS)
03290  M01S01782.mte     +++|          STD    T1
03291  M01S01783.mte     +++|          LDN    0
03292  M01S01784.mte     +++|          STD    RC          RESET RETRY COUNT
03293  M01S01785.mte     +++|          STM    RECA        CLEAR EXIT ADDRESS
03294  M01S01786.mte     +++|          LJM    0,T1        RETURN
03295  M01S01787.mte     +++| SFN      SPACE  4,10
03296  M01S01788.mte     +++|**        SFN - SELECT FUNCTION.
03297  M01S01789.mte     +++|*
03298  M01S01790.mte     +++|*         ENTRY  (A) = FUNCTION CODE.
03299  M01S01791.mte     +++|*
03300  M01S01792.mte     +++|*         EXIT   (A) = 2.
03301  M01S01793.mte     +++|*                CHANNEL ACTIVATED.
03302  M01S01794.mte     +++|*                TO *ERR* IF FUNCTION TIMEOUT.
03303  M01S01795.mte     +++|
03304  M01S01796.mte     +++|
03305  M01S01797.mte     +++| SFN2     LDN    2
03306  M01S01798.mte     +++|          ACN    CH+40
03307  M01S01799.mte     +++|
03308  M01S01800.mte     +++| SFN      SUBR               ENTRY/EXIT
03309  M01S01801.mte     +++|          ADC    SC
03310  M01S01802.mte     +++|          FAN    CH+40
03311  M01S01803.mte     +++| SFN1     IJM    SFN2,CH     IF FUNCTION ACCEPTED
03312  M01S01804.mte     +++|          SBN    77
03313  M01S01805.mte     +++|          PJN    SFN1        IF NOT TIMED OUT
03314  M01S01806.mte     +++|          UJP    ERR         PROCESS ERROR
03315  M01S01807.mte     +++| DSW      SPACE  4,10
03316  M01S01808.mte     +++|**        DSW - DRIVER SERVICE PROCESSING.
03317  M01S01809.mte     +++|*
03318  M01S01810.mte     +++|*         ENTRY  (A) = 1,  RESERVE CHANNEL.
03319  M01S01811.mte     +++|*                (A) = 0,  RELEASE CHANNEL.
03320  M01S01812.mte     +++|*
03321  M01S01813.mte     +++|*         USES   T0, T1, CM - CM+4.
03322  M01S01814.mte     +++|*
03323  M01S01815.mte     +++|*         MACROS MONITOR.
03324  M01S01816.mte     +++|
03325  M01S01817.mte     +++|
03326  M01S01818.mte     +++| DSW2     RAI    T0          UPDATE CHANNEL INSTRUCTION
03327  M01S01819.mte     +++|          AOD    CM+4
03328  M01S01820.mte     +++| DSW3     LDI    CM+4
03329  M01S01821.mte     +++|          STD    T0
03330  M01S01822.mte     +++|          LDD    T4
03331  M01S01823.mte     +++| DSWA     SBN    CH
03332  M01S01824.mte     +++|          NJN    DSW2        IF MORE INSTRUCTIONS TO MODIFY
03333  M01S01825.mte     +++|
03334  M01S01826.mte     +++| DSW      SUBR               ENTRY/EXIT
03335  M01S01827.mte     +++|          STD    CM+3
03336  M01S01828.mte     +++|          LMN    1
03337  M01S01829.mte     +++|          STD    CM
03338  M01S01830.mte     +++|          LDD    MA          WRITE *DSWM* PARAMETERS
03339  M01S01831.mte     +++|          CWD    T4
03340  M01S01832.mte     +++|          MONITOR  DSWM
03341  M01S01833.mte     +++|          LDD    CM+4
03342  M01S01834.mte     +++|          SBD    T4
03343  M01S01835.mte     +++|          ZJN    DSWX        IF NOT TO MODIFY INSTRUCTIONS
03344  M01S01836.mte     +++|          RAD    T4
03345  M01S01837.mte     +++|          LDC    ADNI-1
03346  M01S01838.mte     +++|          STM    MTEB
03347  M01S01839.mte     +++| DSW1     AOM    MTEB
03348  M01S01840.mte     +++|          LCN    5
03349  M01S01841.mte     +++|          RAD    CM+4
03350  M01S01842.mte     +++|          PJN    DSW1        IF NOT END OF DIVIDE
03351  M01S01843.mte     +++|          ADC    LDDI+CM+5
03352  M01S01844.mte     +++|          STM    MTEC
03353  M01S01845.mte     +++|          LDC    TCHS        START OF CHANNEL LIST
03354  M01S01846.mte     +++|          STD    CM+4
03355  M01S01847.mte     +++|          LJM    DSW3        MODIFY INSTRUCTIONS
03356  M01S01848.mte     +++|          SPACE  4,10
03357  M01S01849.mte     +++|*         CHANNEL TABLE.
03358  M01S01850.mte     +++|
03359  M01S01851.mte     +++|
03360  M01S01852.mte     +++|          CHTL   DSWA        TERMINATE CHANNEL TABLE
03361  M01S01853.mte     +++| TCHS     CHTB
03362  M01S01854.mte     +++|
03363  M01S01855.mte     +++| EEMI     EQU    *           END OF EXTENDED MEMORY INTERFACE ROUTINES
03364  M01S01856.mte     +++|          TITLE  TABLES.
03365  M01S01857.mte     +++| TPPR     SPACE  4,10
03366  M01S01858.mte     +++|*         TPPR - TABLE OF *MTE* PP REQUESTS.
03367  M01S01859.mte     +++|*
03368  M01S01860.mte     +++|*         ENTRY = 1 WORD.
03369  M01S01861.mte     +++|*         INDEXED BY MONITOR FUNCTION CODE.
03370  M01S01862.mte     +++|*
03371  M01S01863.mte     +++|*T,       12/  ADDR
Figure

011 ADDR

03372  M01S01864.mte     +++|
03373  M01S01865.mte     +++|
03374  M01S01866.mte     +++| TPPR     EQU    *-CPUM
03375  M01S01867.mte     +++|
Line S01868 Modification History
M01 (Added by) mte
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03376  M02S01868.271l716 ---|          DUP    ECSM+1-CPUM,1
03377  M01S00014.271l716 +++|          DUP    MXFNC+1-CPUM,1
03378  M01S01869.mte     +++|          CON    HNG
03379  M01S01870.mte     +++|
03380  M01S01871.mte     +++|          LIST   G
03381  M01S01872.mte     +++| PPR      HERE   INSERT      REQUEST PROCESSOR ADDRESSES
03382  M01S01873.mte     +++|          LIST   *
Line S01874 Modification History
M01 (Added by) mte
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03383  M02S01874.271l716 ---|          ORG    TPPR+ECSM+1
03384  M01S00015.271l716 +++|          ORG    TPPR+MXFNC+1
03385  M01S01875.mte     +++| FLAG     SPACE  4,10
03386  M01S01876.mte     +++|*         FLAG BIT SET/CLEAR FUNCTIONS.
03387  M01S01877.mte     +++|
03388  M01S01878.mte     +++|
03389  M01S01879.mte     +++| SCOMI    VFD    24/40000000+.COMI
03390  M01S01880.mte     +++| TCOMI    VFD    24/60000000+.COMI
03391  M01S01881.mte     +++| SFATI    VFD    24/40000000+.FATI
03392  M01S01882.mte     +++| CFATI    VFD    24/70000000+.FATI
03393  M01S01883.mte     +++| STRTI    VFD    24/40000000+.TRTI
03394  M01S01884.mte     +++| CTRTI    VFD    24/70000000+.TRTI
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
Line S01885 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03402  M02S01885.273l780 ---|          INMOD  STRTI,MM    ADD MACHINE MASK TO *TRTI* FLAG OPERATIONS
Line S01886 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03403  M02S01886.273l780 ---|          INMOD  CTRTI,MM
03404  M01S00017.273l780 +++|          CREL   STRTI,MM    ADD MACHINE MASK TO *TRTI* FLAG OPERATIONS
03405  M01S00018.273l780 +++|          CREL   CTRTI,MM
03406  M01S01887.mte     +++|
03407  M01S01888.mte     +++| LWA      EQU    *L
03408  M01S01889.mte     +++| MAINL    EQU    LWA-FWA     LENGTH OF MAIN BLOCK
03409  M01S01890.mte     +++|
03410  M01S01891.mte     +++|          ERRNG  EPFW-*      CODE OVERFLOWS INTO ERROR PROCESSOR
03411  M01S01892.mte     +++|          TITLE  UEM SIMULATION OF EXTENDED MEMORY.
03412  M01S01893.mte     +++|**        UEM SIMULATION OF EXTENDED MEMORY.
03413  M01S01894.mte     +++|*
03414  M01S01895.mte     +++|*         THE FOLLOWING CODE OVERLAYS THE EXTENDED MEMORY INTERFACE
03415  M01S01896.mte     +++|*         ROUTINES WHEN UEM IS DECLARED AS THE LINK DEVICE.  THE
03416  M01S01897.mte     +++|*         ENTRY POINTS *IFR*, *RDW*, *WTW*, AND *DSW* MUST BE THE SAME
03417  M01S01898.mte     +++|*         IN THE OVERLAYED CODE.
03418  M01S01899.mte     +++|
03419  M01S01900.mte     +++|
03420  M01S01901.mte     +++| UEMI     BSS    0           BEGINING OF UEM INTERFACE CODE
03421  M01S01902.mte     +++| OEMI     EQU    RDW-1       ORIGIN OF INTERFACE ROUTINES
03422  M01S01903.mte     +++|          LOC    OEMI
03423  M01S01904.mte     +++|          QUAL   UEM
03424  M01S01905.mte     +++| IFR      EQU    //IFR       INSURE ENTRY POINTS MATCH
03425  M01S01906.mte     +++| RDW      EQU    //RDW
03426  M01S01907.mte     +++| WTW      EQU    //WTW
03427  M01S01908.mte     +++| DSW      EQU    //DSW
03428  M01S01909.mte     +++| RDW      SPACE  4,10
03429  M01S01910.mte     +++|**        RDW - READ UEM WORDS.
03430  M01S01911.mte     +++|*
03431  M01S01912.mte     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
03432  M01S01913.mte     +++|*                (EA - EA+1) = UEM ADDRESS TO READ FROM.
03433  M01S01914.mte     +++|*                (WC) = WORD COUNT OF TRANSFER.
03434  M01S01915.mte     +++|*
03435  M01S01916.mte     +++|*         EXIT   (A) .LT. 0, IF UNRECOVERABLE PARITY ERROR.
03436  M01S01917.mte     +++|*
03437  M01S01918.mte     +++|*         CALLS  SUA.
03438  M01S01919.mte     +++|
03439  M01S01920.mte     +++|
03440  M01S01921.mte     +++|          BSS    RDW-1-*     INSURE ENTRY POINT COINCIDES
03441  M01S01922.mte     +++| RDW      SUBR               ENTRY/EXIT
03442  M01S01923.mte     +++|          STM    RDWA        SAVE PP BUFFER ADDRESS
03443  M01S01924.mte     +++|          RJM    SUA         SET ADDRESS
03444  M01S01925.mte     +++|          CRM    *,WC
03445  M01S01926.mte     +++| RDWA     EQU    *-1         READ BUFFER ADDRESS
03446  M01S01927.mte     +++|          LDN    0
03447  M01S01928.mte     +++|          UJN    RDWX        RETURN
03448  M01S01929.mte     +++| WTW      SPACE  4,10
03449  M01S01930.mte     +++|**        WTW - WRITE WORDS TO UEM.
03450  M01S01931.mte     +++|*
03451  M01S01932.mte     +++|*         ENTRY  (A) = BYTE ADDRESS OF DATA TO WRITE.
03452  M01S01933.mte     +++|*                (EA - EA+1) = UEM ADDRESS TO READ FROM.
03453  M01S01934.mte     +++|*                (WC) = WORD COUNT OF TRANSFER.
03454  M01S01935.mte     +++|*
03455  M01S01936.mte     +++|*         EXIT   (A) .LT. 0, IF UNRECOVERABLE PARITY ERROR.
03456  M01S01937.mte     +++|*
03457  M01S01938.mte     +++|*         CALLS  SUA.
03458  M01S01939.mte     +++|
03459  M01S01940.mte     +++|
03460  M01S01941.mte     +++|          BSS    WTW-1-*-7   INSURE ENTRY POINT COINCIDES
03461  M01S01942.mte     +++| WTW1     STM    WTWA        SET BUFFER ADDRESS
03462  M01S01943.mte     +++|          RJM    SUA         SET ADDRESS
03463  M01S01944.mte     +++|          CWM    *,WC
03464  M01S01945.mte     +++| WTWA     EQU    *-1         WRITE BUFFER ADDRESS
03465  M01S01946.mte     +++|          LDN    0
03466  M01S01947.mte     +++|
03467  M01S01948.mte     +++| WTW      SUBR               ENTRY/EXIT
03468  M01S01949.mte     +++|          UJN    WTW1        PROCESS WRITE
03469  M01S01950.mte     +++| IFR      SPACE  4,10
03470  M01S01951.mte     +++|**        IFR - SIMULATE FLAG FUNCTION FOR UEM.
03471  M01S01952.mte     +++|*
03472  M01S01953.mte     +++|*         ENTRY  (A) = ADDRESS OF FLAG FUNCTION WORDS.
03473  M01S01954.mte     +++|*
03474  M01S01955.mte     +++|*         EXIT   (A) = 0, IF FLAG FUNCTION PERFORMED.
03475  M01S01956.mte     +++|*
03476  M01S01957.mte     +++|*         USES   T1, CM - CM+4.
03477  M01S01958.mte     +++|
03478  M01S01959.mte     +++|
03479  M01S01960.mte     +++|          BSS    IFR-1-*-13  INSURE ENTRY POINT COINCIDES
03480  M01S01961.mte     +++| IFR2     LDD    CM+3        CLEAR FLAG BITS
03481  M01S01962.mte     +++| IFRA     SCN    0
03482  M01S01963.mte     +++|          STD    CM+3
03483  M01S01964.mte     +++|          LDD    CM+4
03484  M01S01965.mte     +++|          LPC    7777
03485  M01S01966.mte     +++| IFRB     EQU    *-1
03486  M01S01967.mte     +++|          STD    CM+4
03487  M01S01968.mte     +++| IFR3     LDK    EFRL        REWRITE FLAG BITS TO CM
03488  M01S01969.mte     +++|          CWD    CM
03489  M01S01970.mte     +++|          LDN    0
03490  M01S01971.mte     +++|
03491  M01S01972.mte     +++| IFR      SUBR               ENTRY/EXIT
03492  M01S01973.mte     +++|          STD    T1
03493  M01S01974.mte     +++|          LDK    EFRL        READ CURRENT STATUS
03494  M01S01975.mte     +++|          CRD    CM
03495  M01S01976.mte     +++|          LDI    T1
03496  M01S01977.mte     +++|          SHN    21-11
03497  M01S01978.mte     +++|          MJN    IFR1        IF CLEAR FUNCTION
03498  M01S01979.mte     +++|
03499  M01S01980.mte     +++|*         TEST AND SET FLAG OPERATION.
03500  M01S01981.mte     +++|
03501  M01S01982.mte     +++|          SHN    11-21+22
03502  M01S01983.mte     +++|          LMD    CM+3
03503  M01S01984.mte     +++|          SBD    CM+3
03504  M01S01985.mte     +++|          LMI    T1
03505  M01S01986.mte     +++|          NJN    IFRX        IF BIT SET
03506  M01S01987.mte     +++|          LDM    1,T1
03507  M01S01988.mte     +++|          LMD    CM+4
03508  M01S01989.mte     +++|          SBD    CM+4
03509  M01S01990.mte     +++|          LMM    1,T1
03510  M01S01991.mte     +++|          NJN    IFRX        IF BIT SET
03511  M01S01992.mte     +++|          LDI    T1
03512  M01S01993.mte     +++|          SHN    -11
03513  M01S01994.mte     +++|          LMN    6
03514  M01S01995.mte     +++|          ZJN    IFRX        IF TEST FUNCTION
03515  M01S01996.mte     +++|          LDI    T1          SET BIT(S) IN CM WORD
03516  M01S01997.mte     +++|          LPN    77
03517  M01S01998.mte     +++|          RAD    CM+3
03518  M01S01999.mte     +++|          LDM    1,T1
03519  M01S02000.mte     +++|          RAD    CM+4
03520  M01S02001.mte     +++|          UJP    IFR3        RETURN STATUS
03521  M01S02002.mte     +++|
03522  M01S02003.mte     +++| IFR1     SHN    11-21       CLEAR FLAG BITS
03523  M01S02004.mte     +++|          ADK    SCNI-1000
03524  M01S02005.mte     +++|          STM    IFRA
03525  M01S02006.mte     +++|          LCN    0
03526  M01S02007.mte     +++|          LMM    1,T1
03527  M01S02008.mte     +++|          STM    IFRB
03528  M01S02009.mte     +++|          UJP    IFR2        CLEAR FLAG BITS
03529  M01S02010.mte     +++| SUA      SPACE  4,10
03530  M01S02011.mte     +++|**        SUA - SET UEM ADDRESS.
03531  M01S02012.mte     +++|*
03532  M01S02013.mte     +++|*         ENTRY  (EA - EA-1) = UEM ADDRESS TO SET.
03533  M01S02014.mte     +++|*
03534  M01S02015.mte     +++|*         EXIT   (A) = 400000 + UEM ADDRESS.
03535  M01S02016.mte     +++|*                R-REGISTER SET TO UEM BASE ADDRESS.
03536  M01S02017.mte     +++|*
03537  M01S02018.mte     +++|*         USES   CM - CM+4.
03538  M01S02019.mte     +++|
03539  M01S02020.mte     +++|
03540  M01S02021.mte     +++| SUA      SUBR               ENTRY/EXIT
03541  M01S02022.mte     +++|          LDK    UEML        SET R REGISTER
03542  M01S02023.mte     +++|          CRD    CM
03543  M01S02024.mte     +++|          LDD    EA          SET R-REGISTER
03544  M01S02025.mte     +++|          SCN    17
03545  M01S02026.mte     +++|          SHN    3
03546  M01S02027.mte     +++|          ADD    CM          ADD BASE ADDRESS
03547  M01S02028.mte     +++|          SHN    3
03548  M01S02029.mte     +++|          STD    CM+1
03549  M01S02030.mte     +++|          SHN    -14
03550  M01S02031.mte     +++|          STD    CM
03551  M01S02032.mte     +++|          LRD    CM
03552  M01S02033.mte     +++|          LDD    EA          SET RELATIVE ADDRESS
03553  M01S02034.mte     +++|          LPN    17
03554  M01S02035.mte     +++|          ADN    40
03555  M01S02036.mte     +++|          SHN    14
03556  M01S02037.mte     +++|          ADD    EA+1
03557  M01S02038.mte     +++|          UJN    SUAX        RETURN
03558  M01S02039.mte     +++| DSW      SPACE  4,10
03559  M01S02040.mte     +++|**        DSW - DRIVER SERVICE PROCESSING.
03560  M01S02041.mte     +++|*
03561  M01S02042.mte     +++|*         USES   T4.
03562  M01S02043.mte     +++|
03563  M01S02044.mte     +++|
03564  M01S02045.mte     +++|          BSS    DSW-1-*     INSURE ENTRY POINTS COINCIDE
03565  M01S02046.mte     +++| DSW      SUBR               ENTRY/EXIT
03566  M01S02047.mte     +++|          LDN    37          INSURE CHANNEL NUMBER IN BOUNDS
03567  M01S02048.mte     +++|          STD    T4
03568  M01S02049.mte     +++|          UJN    DSWX        RETURN
03569  M01S02050.mte     +++|
03570  M01S02051.mte     +++|          QUAL   *
03571  M01S02052.mte     +++|          LOC    *O
03572  M01S02053.mte     +++| UEMIL    EQU    *-UEMI      LENGTH OF UEM BLOCK
03573  M01S02054.mte     +++|          ERRPL  *-7777      CODE EXCEEDS PP
03574  M01S02055.mte     +++|          SPACE  4,10
03575  M01S02056.mte     +++|          TITLE  PRESET.
03576  M01S02057.mte     +++| PRS      SPACE  4,10
03577  M01S02058.mte     +++|*         PRS - PRESET TABLES AND CONSTANTS.
03578  M01S02059.mte     +++|
03579  M01S02060.mte     +++|
03580  M01S02061.mte     +++|          USE
03581  M01S02062.mte     +++|
03582  M01S02063.mte     +++| PRS      LDN    MXQP-1      PRESET QUEUE ENTRY
03583  M01S02064.mte     +++|          STD    QE
03584  M01S02065.mte     +++|          LDN    NPPU-1
03585  M01S02066.mte     +++|          STD    QH
03586  M01S02067.mte     +++|          STD    QT
Line S02068 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03587  M02S02068.283l840 ---|          LDN    LLLL
Line S02069 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03588  M02S02069.283l840 ---|          STD    LL
03589  M01S02070.mte     +++|          LDD    OA          SET MESSAGE BUFFER ADDRESS
03590  M01S02071.mte     +++|          ADN    1
03591  M01S02072.mte     +++|          STD    MA
03592  M01S02073.mte     +++|          LDN    ZERL        SET ZERO WORD
03593  M01S02074.mte     +++|          CRD    ZR
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  M01S02075.mte     +++|          RJM    IFP         INITIALIZE *COMPGFP*
03603  M01S02076.mte     +++|          LDN    0           INITIALIZE DRIVER STATUS BYTES
03604  M01S02077.mte     +++|          STD    BR
03605  M01S02078.mte     +++|          STD    ST
03606  M01S02079.mte     +++|          STD    RC
Line S02080 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03607  M02S02080.ns2783  ---|          LDD    MA          INITIALIZE BREAKPOINT COMMUNICATION
Line S02081 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03608  M02S02081.ns2783  ---|          ADN    5
Line S02082 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03609  M02S02082.ns2783  ---|          CWM    BKDW,ON
03610  M01S02083.mte     +++|          LDK    CHTP        SET CHANNEL INTERLOCK TABLE ADDRESS
03611  M01S02084.mte     +++|          CRD    CM
03612  M01S02085.mte     +++|          LDD    CM+3
03613  M01S02086.mte     +++|          STM    MTEA+1
03614  M01S02087.mte     +++|          LDD    CM+2
03615  M01S02088.mte     +++|          RAM    MTEA
03616  M01S02089.mte     +++|          LDK    MABL        READ HARDWARE OPTIONS
03617  M01S02090.mte     +++|          CRD    CM
03618  M01S02091.mte     +++|          LDD    CM+1        CHECK MAINFRAME TYPE
03619  M01S02092.mte     +++|          SHN    21-13
03620  M01S02093.mte     +++|          MJN    PRS1        IF NOT CM EXTENSION
03621  M01S02094.mte     +++|          AOM    RWEA        CHANGE READ TO *FLSW*+1
03622  M01S02095.mte     +++| PRS1     LDK    MMFL        SET LINK DEVICE EQUIPMENT
03623  M01S02096.mte     +++|          CRD    CM
03624  M01S02097.mte     +++|          LDD    CM+1
03625  M01S02098.mte     +++|          LPC    777
03626  M01S02099.mte     +++|          STD    T5
03627  M01S02100.mte     +++|          SFA    EST         SET EXTENDED MEMORY EQUIPMENT TYPE
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
03649  M01S01167.283l840 +++|          STM    SEAA
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
03659  M01S01168.283l840 +++|          STM    SEAB+1
03660  M01S01169.283l840 +++|          STM    EBRA+1
03661  M01S01170.283l840 +++|          STM    EBRB+1
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  M01S02101.mte     +++|          CRD    CM
03672  M01S02102.mte     +++|          LDD    CM+4
03673  M01S02103.mte     +++|          SHN    3
03674  M01S02104.mte     +++|          ADN    DILL
03675  M01S02105.mte     +++|          CRD    CM
03676  M01S02106.mte     +++|          SBN    DILL        SET *AFAM* PRESET
03677  M01S02107.mte     +++|          RAM    AFP+1
03678  M01S02108.mte     +++|          SHN    -14
03679  M01S02109.mte     +++|          RAM    AFP
03680  M01S02110.mte     +++|          LDD    CM+3
03681  M01S02111.mte     +++|          SHN    -6
03682  M01S02112.mte     +++|          LPN    7
03683  M01S02113.mte     +++|          STM    PRSA
03684  M01S02114.mte     +++|          LMN    4
03685  M01S02115.mte     +++|          NJN    PRS3        IF NOT UEM
03686  M01S02116.mte     +++|          LDC    UEMIL-1     MOVE EXTENDED MEMORY SIMULATION CODE
03687  M01S02117.mte     +++|          STD    T1
03688  M01S02118.mte     +++| PRS2     LDM    UEMI,T1
03689  M01S02119.mte     +++|          STM    OEMI,T1
03690  M01S02120.mte     +++|          SOD    T1
03691  M01S02121.mte     +++|          PJN    PRS2        IF MOVE NOT COMPLETE
03692  M01S02122.mte     +++|          UJP    PRS7        AVOID PORT PRESET
03693  M01S02123.mte     +++|
03694  M01S02124.mte     +++| PRS3     LDN    CH          PRESET CHANNEL NUMBER
03695  M01S02125.mte     +++|          STD    T4
03696  M01S02126.mte     +++|          LDN    1           RESERVE CHANNEL
03697  M01S02127.mte     +++|          RJM    DSW
03698  M01S02128.mte     +++|          RJM    SCP         SET CHANNEL IN PRESET INSTRUCTIONS
03699  M01S02129.mte     +++|          FNC    MCFN+SC,CH  MASTER CLEAR PORT
03700  M01S02130.mte     +++|          LDN    40
03701  M01S02131.mte     +++| PRS4     SBN    1
03702  M01S02132.mte     +++|          MJN    PRS6        IF FUNCTION TIMED OUT
03703  M01S02133.mte     +++|          AJM    PRS4,CH     IF CHANNEL ACTIVE
03704  M01S02134.mte     +++|          LDC    0
03705  M01S02135.mte     +++| PRSA     EQU    *-1         EXTENDED MEMORY TYPE
Line S02136 Modification History
M01 (Added by) mte
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03706  M02S02136.261l700 ---|          LMN    5
Line S02137 Modification History
M01 (Added by) mte
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03707  M02S02137.261l700 ---|          NJN    PRS7        IF NOT ESM
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  M01S02138.mte     +++|          FNC    ESFN+SC,CH  SET ECS MODE ADDRESSING
03713  M01S02139.mte     +++|          LDN    40
03714  M01S02140.mte     +++| PRS5     SBN    1
03715  M01S02141.mte     +++|          IJM    PRS7,CH     IF CHANNEL INACTIVE
03716  M01S02142.mte     +++|          PJN    PRS5        IF FUNCTION NOT TIMED OUT
03717  M01S02143.mte     +++| PRS6     LDC    200+MS2W
03718  M01S02144.mte     +++|          CWM    MSGA,TR     *PORT PRESET FAILED ON MMF LINK.*
03719  M01S02145.mte     +++|          UJN    *           HANG
Line S02146 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03720  M02S02146.283l840 ---|
Line S02147 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03721  M03S02147.283l840 ---| PRS7     UJN    ILD         INITIALIZE LINK DEVICE
Line S00049 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03722  M02S00049.283l840 ---| PRS7     LJM    ILD         INITIATE LINK DEVICE
Line S00050 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03723  M02S00050.283l840 ---|
Line S00051 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03724  M02S00051.283l840 ---|*
Line S00052 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03725  M02S00052.283l840 ---|*         FORM A BUFFER FOR USE IN EXTENDED MEMORY CLEARING
Line S00053 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03726  M02S00053.283l840 ---|*         BY ROUTINE *CLE*. THE BUFFER IS SET UP SO THAT IT
Line S00054 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03727  M02S00054.283l840 ---|*         OVERLAYS *PRS* CODE WHICH IS NO LONGER NEEDED.
Line S00055 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03728  M02S00055.283l840 ---|*
Line S00056 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03729  M02S00056.283l840 ---|
Line S00057 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03730  M02S00057.283l840 ---| CLEA     EQU    PRS
Line S00058 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03731  M02S00058.283l840 ---| .ILD     MAX    *,PRS+505
Line S00059 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03732  M02S00059.283l840 ---|
03733  M01S02148.mte     +++| ILD      SPACE  4,10
03734  M01S02149.mte     +++|**        ILD - INITIALIZE MMF LINK DEVICE.
03735  M01S02150.mte     +++|*
03736  M01S02151.mte     +++|*         ENTRY  (IR+4) = RECOVERY MODE.
03737  M01S02152.mte     +++|*
03738  M01S02153.mte     +++|*         EXIT   TO MAIN LOOP.
03739  M01S02154.mte     +++|*
Line S02155 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03740  M02S02155.273l780 ---|*         CALLS  CAM, CIR, CLE, INM, SLA.
Line S00027 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03741  M02S00027.ns2783  ---|*         CALLS  CAM, CIR, CLE, SIC, SLA.
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  M01S02156.mte     +++|*
Line S02157 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03745  M02S02157.ns2783  ---|*         MACROS CFLAG, DELAY, MONITOR, READEM, SFLAG, WRITEM.
03746  M01S00242.ns2783  +++|*         CALLS  CAM, CIR, CLE, IBP, SIC, SLA.
03747  M01S00243.ns2783  +++|*
03748  M01S00244.ns2783  +++|*         MACROS CFLAG, DELAY, ISTORE, READEM, SFLAG, WRITEM.
03749  M01S02158.mte     +++|
03750  M01S02159.mte     +++|
Line S02160 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03751  M02S02160.252l678 ---| ILD      LDN    ZERL        ZERO LABEL TRACK ADDRESS
Line S00060 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03752  M02S00060.283l840 ---|          ORG    .ILD
Line S00061 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03753  M02S00061.283l840 ---| ILD      LDC    PRS         USE *PRS* CODE AS AN EM CLEARING BUFFER
Line S00062 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03754  M02S00062.283l840 ---|          STD    CM
Line S00063 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03755  M02S00063.283l840 ---|          LDC    505         NUMBER OF WORDS WHICH NEED TO BE ZEROED
Line S00064 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03756  M02S00064.283l840 ---|          STD    CM+1
Line S00065 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03757  M02S00065.283l840 ---| ILD0     LDN    0
Line S00066 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03758  M02S00066.283l840 ---|          STI    CM
Line S00067 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03759  M02S00067.283l840 ---|          AOD    CM
Line S00068 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03760  M02S00068.283l840 ---|          SOD    CM+1
Line S00069 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03761  M02S00069.283l840 ---|          NJN    ILD0        IF MORE WORDS TO CLEAR
Line S00070 Modification History
M01 (Added by) 252l678
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03762  M02S00070.283l840 ---|          LDN    ZERL        ZERO LABEL TRACK ADDRESS
03763  M01S01171.283l840 +++| PRS7     BSS    0
03764  M01S01172.283l840 +++| ILD      LDN    ZERL        ZERO LABEL TRACK ADDRESS
03765  M01S02161.mte     +++|          CRD    EA
03766  M01S02162.mte     +++|          ADK    EFRL-ZERL   READ LINK DEVICE PARAMETERS
03767  M01S02163.mte     +++|          CRD    FS
03768  M01S02164.mte     +++|          CRD    CM
03769  M01S02165.mte     +++|          LDN    0
03770  M01S02166.mte     +++|          STD    CM+3
03771  M01S02167.mte     +++|          STD    CM+4
03772  M01S02168.mte     +++|          LDK    EFRL        CLEAR FLAG REGISTER STATUS
03773  M01S02169.mte     +++|          CWD    CM
03774  M01S02170.mte     +++|          LDD    FS+4
03775  M01S02171.mte     +++|          STD    IR+2
03776  M01S02172.mte     +++|          LPN    77
03777  M01S02173.mte     +++|          STD    T6
03778  M01S02174.mte     +++|          LDD    FS+2
03779  M01S02175.mte     +++|          LPN    20
03780  M01S02176.mte     +++|          ZJN    ILD3        IF NO INITIALIZE OF LINK DEVICE
03781  M01S02177.mte     +++| ILD1     SOD    T6          COMPUTE LABEL TRACK ADDRESS
03782  M01S02178.mte     +++|          MJN    ILD4        IF NOT END OF MULTIPLY
Line S02179 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03783  M02S02179.252l678 ---| ILD2     LDC    101*SLDP
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  M01S02180.mte     +++|          RAD    EA+1
03788  M01S02181.mte     +++|          SHN    -14
03789  M01S02182.mte     +++|          RAD    EA
03790  M01S02183.mte     +++|          LDD    FS+2
03791  M01S02184.mte     +++|          LPN    20
03792  M01S02185.mte     +++|          NJN    ILD1        IF INITIALIZE OF LINK DEVICE
03793  M01S02186.mte     +++|
03794  M01S02187.mte     +++|*         SEARCH FOR LABEL TRACK.
03795  M01S02188.mte     +++|
03796  M01S02189.mte     +++| ILD3     READEM 1,OR        READ LABEL LINKAGE WORD
03797  M01S02190.mte     +++|          LDD    OR
03798  M01S02191.mte     +++|          ADD    OR+1
03799  M01S02192.mte     +++|          ADD    OR+2
03800  M01S02193.mte     +++|          ADD    OR+3
03801  M01S02194.mte     +++|          ADD    OR+4
03802  M01S02195.mte     +++|          LMC    3777+77+2RLA+2RBE+1RL*100
03803  M01S02196.mte     +++|          ZJN    ILD4        IF LABEL TRACK FOUND
03804  M01S02197.mte     +++|          AOD    IR+2
03805  M01S02198.mte     +++|          ADC    -LTKL
03806  M01S02199.mte     +++|          MJN    ILD2        IF MORE TRACKS TO CHECK
03807  M01S02200.mte     +++|          LDN    1           SET LABEL TRACK NOT FOUND ERROR
03808  M01S02201.mte     +++|          LJM    ILD18       PROCESS ERROR
03809  M01S02202.mte     +++|
03810  M01S02203.mte     +++| ILD4     LDD    EA+1        INSERT LABEL ADDRESS IN *SLA*
03811  M01S02204.mte     +++|          RAM    SLAA+1
03812  M01S02205.mte     +++|          SHN    -14
03813  M01S02206.mte     +++|          ADD    EA
03814  M01S02207.mte     +++|          RAM    SLAA
03815  M01S02208.mte     +++|          LDK    DSSL
03816  M01S02209.mte     +++|          CRD    CM
03817  M01S02210.mte     +++|          ADK    MMFL-DSSL
03818  M01S02211.mte     +++|          CRD    OR
03819  M01S02212.mte     +++|          LDD    CM+4        SET RECOVERY MODE
03820  M01S02213.mte     +++|          LPN    3
03821  M01S02214.mte     +++|          STD    RM
03822  M01S02215.mte     +++|          UJN    ILD6        SET PRESET INTERLOCK
03823  M01S02216.mte     +++|
03824  M01S02217.mte     +++| ILD5     LDD    FS+2
03825  M01S02218.mte     +++|          LPN    40
03826  M01S02219.mte     +++|          NJN    ILD7        IF TO PRESET
03827  M01S02220.mte     +++| ILD6     SFLAG  PRSI,ILD5   SET PRESET INTERLOCK
03828  M01S02221.mte     +++|
03829  M01S02222.mte     +++| ILD7     RJM    CAM         INITIALIZE MACHINE CLOCKS
03830  M01S02223.mte     +++|          LDD    FS+2
03831  M01S02224.mte     +++|          LPN    40
03832  M01S02225.mte     +++|          STD    T8
03833  M01S02226.mte     +++|          ZJP    ILD9        IF NO PRESET OF LINK DEVICE
03834  M01S02227.mte     +++|
03835  M01S02228.mte     +++|*         PRESET PROCESSING.
03836  M01S02229.mte     +++|*         CHECK FOR MACHINES ACTIVE BY STATUSING *MFET* WORDS.
03837  M01S02230.mte     +++|
03838  M01S02231.mte     +++|          LDC    200+MS2W
03839  M01S02232.mte     +++|          CWM    MSGB,TR     *CHECKING FOR ACTIVE MACHINES.*
03840  M01S02233.mte     +++|          DELAY  2048D*10    TOTAL DELAY IS 2048 MILLISECONDS
03841  M01S02234.mte     +++|          RJM    CAM         CHECK ACTIVE MACHINES
03842  M01S02235.mte     +++|          LDD    T9
03843  M01S02236.mte     +++|          ZJN    ILD8        IF NO ACTIVE MACHINE FOUND
03844  M01S02237.mte     +++|          LDN    6           MACHINE ACTIVITY PREVENTS PRESET
03845  M01S02238.mte     +++|          LJM    ILD18       PROCESS ERROR
03846  M01S02239.mte     +++|
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  M01S02240.mte     +++| ILD8     CFLAG  FRGI,NW     CLEAR ALL FLAG INTERLOCKS EXCEPT *PRSI*
03853  M01S02241.mte     +++|          RJM    CLE         CLEAR EXTENDED MEMORY
03854  M01S02242.mte     +++|          NJP    ILD18       IF ERROR IN CLEARING MEMORY
03855  M01S02243.mte     +++|          LDC    200+MS2W
03856  M01S02244.mte     +++|          CWM    MSGC,TR     *LINK DEVICE PRESET COMPLETE.*
03857  M01S02245.mte     +++|          LDN    1
03858  M01S02246.mte     +++|          LJM    ILD20       SET MACHINE INDEX
03859  M01S02247.mte     +++|
03860  M01S02248.mte     +++|*         PROCESS NON-PRESET DEADSTARTS.
03861  M01S02249.mte     +++|
03862  M01S02250.mte     +++| ILD9     LDN    MFET        PRESET STATE TABLE
03863  M01S02251.mte     +++|          ADD    T8
03864  M01S02252.mte     +++|          RJM    SLA
03865  M01S02253.mte     +++|          READEM 1,FN        READ *MFET* WORD
03866  M01S02254.mte     +++|          LDK    EFRL        GET STATE TABLE ADDRESS
03867  M01S02255.mte     +++|          CRD    CM
03868  M01S02256.mte     +++|          LDN    0
03869  M01S02257.mte     +++|          STD    FN+3
03870  M01S02258.mte     +++|          STD    FN+4
03871  M01S02259.mte     +++|          LDD    CM          WRITE STATE TABLE WORD
03872  M01S02260.mte     +++|          SHN    14
03873  M01S02261.mte     +++|          ADD    CM+1
03874  M01S02262.mte     +++|          ADK    MFST
03875  M01S02263.mte     +++|          ADD    T8
03876  M01S02264.mte     +++|          CWD    FN
03877  M01S02265.mte     +++|          AOD    T8
03878  M01S02266.mte     +++|          LMN    MXMF
03879  M01S02267.mte     +++|          NJN    ILD9        IF NOT END OF STATE TABLE
03880  M01S02268.mte     +++|          LDD    RM
03881  M01S02269.mte     +++|          LMN    3
03882  M01S02270.mte     +++|          NJN    ILD11       IF NOT LEVEL THREE
03883  M01S02271.mte     +++|
03884  M01S02272.mte     +++|*         RECOVER *MFET* SLOT ON LEVEL THREE RECOVERY.  *MFET* ENTRY IS
03885  M01S02273.mte     +++|*         VERIFIED FOR CORRECT MACHINE ID, MACHINE INDEX AND THAT
03886  M01S02274.mte     +++|*         *MREC* HAS NOT RUN.
03887  M01S02275.mte     +++|
03888  M01S02276.mte     +++|          LDK    MFET-1
03889  M01S02277.mte     +++|          ADD    OR+4
03890  M01S02278.mte     +++|          RJM    SLA         SET ADDRESS IN LABEL TRACK
03891  M01S02279.mte     +++|          READEM 1,FN
03892  M01S02280.mte     +++|          LDD    OR
03893  M01S02281.mte     +++|          LMD    FN
03894  M01S02282.mte     +++|          NJN    ILD10       IF NO VERIFY ON MACHINE ID
03895  M01S02283.mte     +++|          LDD    OR+4
03896  M01S02284.mte     +++|          LMD    FN+4
03897  M01S02285.mte     +++| ILD10    NJN    ILD15       IF NO VERIFY ON MACHINE INDEX
03898  M01S02286.mte     +++|          UJN    ILD14       VERIFY *MREC* NOT RUN
03899  M01S02287.mte     +++|
03900  M01S02288.mte     +++|*         ASSIGN OR RECOVER *MFET* SLOT.
03901  M01S02289.mte     +++|
03902  M01S02290.mte     +++| ILD11    LDN    MXMF+1      PRESET MACHINE INDEX
03903  M01S02291.mte     +++|          STD    OR+4
03904  M01S02292.mte     +++|          LDN    0           SET EMPTY ENTRY INDEX
03905  M01S02293.mte     +++|          STD    T8
03906  M01S02294.mte     +++| ILD12    SOD    OR+4
03907  M01S02295.mte     +++|          ZJN    ILD16       IF MORE MID-S TO CHECK
03908  M01S02296.mte     +++|          ADK    MFET-1
03909  M01S02297.mte     +++|          RJM    SLA         SET ADDRESS IN LABEL TRACK
03910  M01S02298.mte     +++|          READEM 1,FN        READ *MFET* WORD
03911  M01S02299.mte     +++|          LDD    FN
03912  M01S02300.mte     +++|          NJN    ILD13       IF NOT EMPTY
03913  M01S02301.mte     +++|          LDD    OR+4        SET EMPTY INDEX
03914  M01S02302.mte     +++|          STD    T8
03915  M01S02303.mte     +++|          UJN    ILD12       TRY NEXT MIN
03916  M01S02304.mte     +++|
03917  M01S02305.mte     +++| ILD13    LMD    OR
03918  M01S02306.mte     +++|          NJN    ILD12       IF NO MATCH ON MID
03919  M01S02307.mte     +++|          LDD    RM
03920  M01S02308.mte     +++|          ZJN    ILD17       IF LEVEL ZERO
03921  M01S02309.mte     +++| ILD14    LDD    FN+1
03922  M01S02310.mte     +++|          NJN    ILD19       IF *MREC* NOT RUN
03923  M01S02311.mte     +++| ILD15    LDN    2           *RECOVERY DEADSTART PREVENTED THIS MID.*
03924  M01S02312.mte     +++|          UJN    ILD18       RETURN ERROR
03925  M01S02313.mte     +++|
03926  M01S02314.mte     +++|*         NO MATCHING MID FOUND IN EXTENDED MEMORY.
03927  M01S02315.mte     +++|
03928  M01S02316.mte     +++| ILD16    LDD    RM
03929  M01S02317.mte     +++|          NJN    ILD15       IF NOT LEVEL ZERO
03930  M01S02318.mte     +++|          LDD    T8
03931  M01S01178.283l840 +++|          STD    OR+4
Line S02319 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03932  M02S02319.283l840 ---|          NJN    ILD20       IF EMPTY SLOT FOUND
03933  M01S01179.283l840 +++|          NJN    ILD19       IF EMPTY SLOT FOUND
03934  M01S02320.mte     +++|          LDN    4           *MID SPOT UNAVAILABLE.*
03935  M01S02321.mte     +++|          UJN    ILD18       RETURN ERROR
03936  M01S02322.mte     +++|
03937  M01S02323.mte     +++| ILD17    LDD    FN+1
03938  M01S02324.mte     +++|          ZJN    ILD19       IF *MREC* RUN
03939  M01S02325.mte     +++|          LDN    3           *MACHINE ID IN USE.*
03940  M01S02326.mte     +++| ILD18    STD    IR+2
03941  M01S02327.mte     +++|          LDD    OA          RETURN ERROR RESPONSE IN INPUT REGISTER
03942  M01S02328.mte     +++|          SBN    1
03943  M01S02329.mte     +++|          CWD    IR
03944  M01S02330.mte     +++|          CFLAG  PRSI
03945  M01S02331.mte     +++|          UJN    *           HANG
03946  M01S02332.mte     +++|
Line S02333 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03947  M02S02333.283l840 ---| ILD19    LDD    OR+4
03948  M01S01180.283l840 +++| ILD19    RJM    IBP         INITIALIZE BRT/BDT PROCESSING
03949  M01S01181.283l840 +++|          LDD    OR+4
03950  M01S02334.mte     +++|
03951  M01S02335.mte     +++|*         SET MACHINE INDEX IN *MMFL* AND IN EXTENDED MEMORY.
03952  M01S02336.mte     +++|
03953  M01S02337.mte     +++| ILD20    STD    OR+4
03954  M01S02338.mte     +++|          STD    T1
03955  M01S02339.mte     +++|          STM    MI+1
03956  M01S02340.mte     +++|          SHN    1
03957  M01S02341.mte     +++|          STM    MI2+1
03958  M01S02342.mte     +++|          SHN    5
Line S02343 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03959  M02S02343.283l840 ---|          STM    MH+1
03960  M01S01182.283l840 +++|          STM    MIH+1
03961  M01S02344.mte     +++|          SHN    2-6
03962  M01S02345.mte     +++|          ADD    OR+4
03963  M01S02346.mte     +++|          STM    MI5+1
03964  M01S02347.mte     +++|          LDM    TMMK-1,OR+4 SET MACHINE MASK
03965  M01S02348.mte     +++|          STD    OR+3
03966  M01S02349.mte     +++|          STM    MM+1
Line S02350 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03967  M02S02350.283l840 ---|          LDC    MMFL
Line S01183 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
03968  M02S01183.ns2780  ---|          SHN    4           MASK FOR CLEARING R/W BAT ACCESS BITS
Line S01184 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
03969  M02S01184.ns2780  ---|          STD    T2
03970  M01S01185.283l840 +++|          SHN    4
Line S01186 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
03971  M02S01186.ns2780  ---|          ADD    T2
Line S01187 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
03972  M02S01187.ns2780  ---|          STM    RWMC+1
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
03977  M01S01188.283l840 +++|          LMC    7777
Line S01189 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
03978  M02S01189.ns2780  ---|          STM    RWM+1
03979  M01S00073.ns2780  +++|          STM    RWMC+1      MASK FOR R/W BAT ACCESS BITS FOR OTHER MFS
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  M01S02351.mte     +++|          CWD    OR
03986  M01S02352.mte     +++| ILD21    LDN    LLLL        COMPUTE MACHINE INDEX * LLLL
03987  M01S02353.mte     +++|          RAM    ML+1
03988  M01S02354.mte     +++|          SOD    T1
03989  M01S02355.mte     +++|          NJN    ILD21       IF NOT END OF MULTIPLY
03990  M01S02356.mte     +++|          LDK    MFET-1      SET ADDRESS IN LABEL TRACK
03991  M01S02357.mte     +++|          ADD    OR+4
03992  M01S02358.mte     +++|          RJM    SLA
03993  M01S02359.mte     +++|          WRITEM 1,OR        WRITE *MMFL* WORD
03994  M01S02360.mte     +++|          RJM    CAM         INITIALIZE MACHINE CLOCKS
03995  M01S02361.mte     +++|          CFLAG  PRSI        CLEAR PRESET INTERLOCK
03996  M01S02362.mte     +++|          LDK    EFRL        SET *CPUMTR* REQUEST QUEUE ADDRESS
Line S02363 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03997  M02S02363.283l840 ---|          CRM    PQ,ON
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
Line S02364 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04005  M02S02364.273l780 ---|          RJM    INM         MODIFY INSTRUCTIONS
04006  M01S00028.273l780 +++|          LDC    TSIC        SET RELOCATION TABLE ADDRESS
04007  M01S00029.273l780 +++|          RJM    SIC         RELOCATE INSTRUCTIONS
04008  M01S02365.mte     +++|          RJM    CIR         CLEAR INTERLOCKS ON LEVEL 3
04009  M01S02366.mte     +++|          LDD    OA          SIGNAL COMPLETION VIA INPUT REGISTER
04010  M01S02367.mte     +++|          SBN    1
04011  M01S02368.mte     +++|          CWD    IR
Line S02369 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04012  M02S02369.ns2783  ---|          LDN    NCPL        CHANGE TO SYSTEM CONTROL POINT
Line S02370 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04013  M02S02370.ns2783  ---|          CRD    CM
Line S02371 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04014  M02S02371.ns2783  ---|          AOD    CM+1
Line S02372 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04015  M03S02372.ns2783  ---|          SHN    7
Line S02373 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04016  M03S02373.ns2783  ---|          STD    CP
Line S02374 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04017  M02S02374.ns2783  ---|          MONITOR  CCAM
Line S02375 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04018  M02S02375.ns2783  ---|          LDD    OA
Line S02376 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04019  M02S02376.ns2783  ---|          SBN    1
Line S02377 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04020  M02S02377.ns2783  ---|          CRD    IR
04021  M01S02378.mte     +++|          LJM    MTE         ENTER MAIN LOOP
04022  M01S02379.mte     +++|
04023  M01S02380.mte     +++|
04024  M01S02381.mte     +++| CFRGI    VFD    24/70777777-.PRSI
04025  M01S02382.mte     +++| SPRSI    VFD    24/40000000+.PRSI
04026  M01S02383.mte     +++| CPRSI    VFD    24/70000000+.PRSI
04027  M01S02384.mte     +++|
04028  M01S02385.mte     +++| IFP      HERE               *COMPGFP* INITIALIZATION CODE
Line S02386 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04029  M02S02386.ns2783  ---| CLE      SPACE  4,10
04030  M01S00245.ns2783  +++| CLE      SPACE  4,15
04031  M01S02387.mte     +++|**        CLE - CLEAR EXTENDED MEMORY.
04032  M01S02388.mte     +++|*
04033  M01S02389.mte     +++|*         ENTRY  PRESET DEADSTART SELECTED.
04034  M01S02390.mte     +++|*                (FS+2) = *EFRL* PARAMETERS.
04035  M01S02391.mte     +++|*
04036  M01S02392.mte     +++|*         EXIT   (A) = 0, IF NO WRITE ERROR DETECTED.
04037  M01S02393.mte     +++|*                (A) = 5, IF WRITE ERRORS.
04038  M01S02394.mte     +++|*
Line S02395 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04039  M02S02395.252l678 ---|*         USES   WC, CM - CM+4, EA - EA+4.
04040  M01S00074.252l678 +++|*         USES   WC, CM - CM+4, EA - EA+4, FN - FN+4.
04041  M01S02396.mte     +++|*
Line S02397 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04042  M02S02397.252l678 ---|*         CALLS  SLA, WIT.
04043  M01S00075.252l678 +++|*         CALLS  SLA.
04044  M01S02398.mte     +++|*
04045  M01S02399.mte     +++|*         MACROS WRITEM.
04046  M01S02400.mte     +++|
04047  M01S02401.mte     +++|
Line S02402 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04048  M02S02402.252l678 ---| CLE4     LDN    0           CLEAR ENVIRONMENT TABLE
Line S02403 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04049  M02S02403.252l678 ---|          RJM    SLA
04050  M01S00076.252l678 +++| CLE4     RJM    SLA         CLEAR ENVIRONMENT TABLE
Line S02404 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04051  M02S02404.283l840 ---|          WRITEM IBDT,CLEA
04052  M01S01202.283l840 +++|          WRITEM IBDT,TBUF
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  M01S02405.mte     +++|
04092  M01S02406.mte     +++| CLE      SUBR               ENTRY/EXIT
04093  M01S01203.283l840 +++|          RJM    CSZ         CREATE SECTOR OF ZERO WORDS
Line S02407 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04094  M02S02407.252l678 ---|          LDD    FS+2
Line S02408 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04095  M02S02408.252l678 ---|          LPN    20
Line S02409 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04096  M02S02409.252l678 ---|          ZJN    CLE4        IF NO INITIALIZE OF LINK
Line S02410 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04097  M02S02410.252l678 ---|          LDC    200+MS2W
Line S02411 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04098  M02S02411.252l678 ---|          CWM    MSGD,TR     *CLEARING EXTENDED MEMORY.*
04099  M01S02412.mte     +++|          SFA    EST,T5      READ EXTENDED MEMORY EST ENTRY
04100  M01S02413.mte     +++|          CRD    CM
04101  M01S02414.mte     +++|          LDD    CM+4        READ EXTENDED MEMORY TRACK COUNT
04102  M01S02415.mte     +++|          SHN    3
04103  M01S02416.mte     +++|          ADK    TDGL
Line S02417 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04104  M02S02417.252l678 ---|          CRD    EA
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  M01S02418.mte     +++|          LDC    101         SET SECTOR WORD COUNT
04114  M01S02419.mte     +++|          STD    WC
Line S02420 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04115  M02S02420.252l678 ---|          LDD    EA          SET TOTAL TRACKS
Line S02421 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04116  M02S02421.252l678 ---|          STD    EA+4
Line S02422 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04117  M02S02422.252l678 ---|          LDN    0           CLEAR UEM ADDRESS
Line S02423 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04118  M02S02423.252l678 ---|          STD    EA
Line S02424 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04119  M02S02424.252l678 ---|          STD    EA+1
Line S02425 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04120  M02S02425.252l678 ---|          STD    EA+2
04121  M01S00123.252l678 +++|          LDD    FN          SET TOTAL TRACKS
04122  M01S00124.252l678 +++|          STD    EA+4
04123  M01S02426.mte     +++|
04124  M01S02427.mte     +++|*         CLEAR EXTENDED MEMORY.
04125  M01S02428.mte     +++|
Line S02429 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04126  M02S02429.252l678 ---| CLE1     LDN    SLDP        SET SECTOR COUNT FOR TRACK
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  M01S02430.mte     +++|          STD    EA+3
Line S02431 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04135  M02S02431.283l840 ---| CLE2     WRITEM *,CLEA      WRITE WORDS TO UEM
04136  M01S01204.283l840 +++| CLE2     WRITEM *,TBUF      WRITE WORDS TO UEM
04137  M01S02432.mte     +++|          ZJN    CLE3        IF NO ERROR
04138  M01S02433.mte     +++|          LDN    5           WRITE ERROR STATUS
04139  M01S02434.mte     +++|          STD    EA+2
04140  M01S02435.mte     +++| CLE3     LDD    WC
04141  M01S02436.mte     +++|          RAD    EA+1
04142  M01S02437.mte     +++|          SHN    -14
04143  M01S02438.mte     +++|          RAD    EA
04144  M01S02439.mte     +++|          SOD    EA+3
04145  M01S02440.mte     +++|          NJN    CLE2        IF MORE SECTORS
04146  M01S02441.mte     +++|          SOD    EA+4
04147  M01S02442.mte     +++|          NJN    CLE1        IF MORE TRACKS
Line S02443 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04148  M02S02443.252l678 ---|          RJM    WIT         WRITE I/O BUFFER ALLOCATION TABLE
Line S02444 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04149  M02S02444.252l678 ---|          LDD    EA+2        RETURN ERROR STATUS
Line S02445 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04150  M02S02445.252l678 ---|          UJP    CLEX        RETURN
04151  M01S00132.252l678 +++|          UJP    CLE5        WRITE *IBDT*
04152  M01S02446.mte     +++|
Line S02447 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04153  M02S02447.252l678 ---| CLEA     BSSZ   505         SECTOR DATA
Line S02448 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04154  M02S02448.ns2783  ---| CIR      SPACE  4,10
04155  M01S00246.ns2783  +++| CIR      SPACE  4,20
04156  M01S02449.mte     +++|**        CIR - CLEAR FLAG REGISTER AND MST INTERLOCKS ON LEVEL 3.
04157  M01S02450.mte     +++|*
04158  M01S02451.mte     +++|*         ON LEVEL 3 RECOVERIES WHERE NO OTHER MACHINES ARE ACTIVE
04159  M01S02452.mte     +++|*         FLAG REGISTER INTERLOCKS AND DEVICE INTERLOCKS MUST BE
04160  M01S02453.mte     +++|*         CLEARED IN EXTENDED MEMORY.  THESE INTERLOCKS ARE CLEARED
04161  M01S02454.mte     +++|*         DURING DOWN MACHINE PROCESSING WHEN OTHER MACHINES ARE
04162  M01S02455.mte     +++|*         ACTIVE.
04163  M01S02456.mte     +++|*
04164  M01S02457.mte     +++|*         ENTRY  (RM) = RECOVERY MODE.
04165  M01S02458.mte     +++|*
04166  M01S02459.mte     +++|*         USES   T8, T9, CM - CM+4, EA - EA+4, FN - FN+1.
04167  M01S02460.mte     +++|*
04168  M01S02461.mte     +++|*         CALLS  IFR, SFA.
04169  M01S02462.mte     +++|*
Line S02463 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04170  M02S02463.273l780 ---|*         MACROS CFLAG, INMOD, READEM, SFA, SFLAG, WRITEM.
04171  M01S00030.273l780 +++|*         MACROS CFLAG, READEM, SFA, SFLAG, WRITEM.
04172  M01S02464.mte     +++|
04173  M01S02465.mte     +++|
04174  M01S02466.mte     +++| CIR6     CFLAG  CIRI        CLEAR INTERLOCK
04175  M01S02467.mte     +++|
04176  M01S02468.mte     +++| CIR      SUBR               ENTRY/EXIT
04177  M01S02469.mte     +++|          LDD    RM
04178  M01S02470.mte     +++|          LMN    3
04179  M01S02471.mte     +++|          NJN    CIRX        IF NOT LEVEL 3
04180  M01S02472.mte     +++|          LDN    18D         PRESET FLAG REGISTER BIT NUMBER
04181  M01S02473.mte     +++|          STD    T8
04182  M01S02474.mte     +++|          UJN    CIR2        SET *CIRI* INTERLOCK
04183  M01S02475.mte     +++|
04184  M01S02476.mte     +++| CIR1     LDN    FRET+CIRI   CHECK IF INTERLOCKED BY THIS MACHINE
04185  M01S02477.mte     +++|          RJM    SLA
04186  M01S02478.mte     +++|          READEM 1,FN,CIR2
04187  M01S02479.mte     +++|          LDD    FN+4
Line S02480 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04188  M02S02480.273l780 ---| CIRA     LMN    0
Line S02481 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04189  M02S02481.273l780 ---|          INMOD  CIRA-1,MI
04190  M01S00031.273l780 +++|          TLMN   0,MI
04191  M01S02482.mte     +++|          ZJN    CIR3        IF INTERLOCKED BY THIS MACHINE
04192  M01S02483.mte     +++| CIR2     SFLAG  CIRI,CIR1   SET FLAG INTERLOCK TO CLEAR INTERLOCKS
04193  M01S02484.mte     +++|
04194  M01S02485.mte     +++|*         CHECK FLAG OWNER WORDS TO SEE IF ANY OWNED BY THIS MACHINE.
04195  M01S02486.mte     +++|
04196  M01S02487.mte     +++| CIR3     SOD    T8
04197  M01S02488.mte     +++|          MJP    CIR4        IF END OF FLAG BITS
04198  M01S02489.mte     +++|          LMN    CIRI
04199  M01S02490.mte     +++|          ZJN    CIR3        IF CHECKING *CIRI* BIT
04200  M01S02491.mte     +++|          LDN    FRET        CHECK FLAG BIT
04201  M01S02492.mte     +++|          ADD    T8
04202  M01S02493.mte     +++|          RJM    SLA
04203  M01S02494.mte     +++|          READEM 1,FN,CIR3   TRY NEXT FLAG BIT ON READ ERROR
04204  M01S02495.mte     +++|          LDD    FN+4
Line S02496 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04205  M02S02496.273l780 ---| CIRB     LMN    0
Line S02497 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04206  M02S02497.273l780 ---|          INMOD  CIRB-1,MI
04207  M01S00032.273l780 +++|          TLMN   0,MI
04208  M01S02498.mte     +++|          ZJN    CIR3        IF NOT OWNED BY THIS MACHINE
04209  M01S02499.mte     +++|          WRITEM *,ZR        CLEAR FLAG OWNER
04210  M01S02500.mte     +++|          LDD    T8          CLEAR FLAG BIT
04211  M01S02501.mte     +++|          ADD    TH
04212  M01S02502.mte     +++|          ERRNZ  1000-SHNI
04213  M01S02503.mte     +++|          STM    CIRC
04214  M01S02504.mte     +++|          LDN    1           SET FLAG BIT
04215  M01S02505.mte     +++| CIRC     SHN    **
04216  M01S02506.mte     +++|          STD    FN+1
04217  M01S02507.mte     +++|          SHN    -14
04218  M01S02508.mte     +++|          ADC    7000        USE CLEAR FLAG FUNCTION
04219  M01S02509.mte     +++|          STD    FN
04220  M01S02510.mte     +++|          LDN    FN
04221  M01S02511.mte     +++|          RJM    IFR         ISSUE FLAG FUNCTION
04222  M01S02512.mte     +++|          UJP    CIR3        LOOP FOR NEXT BIT
04223  M01S02513.mte     +++|
04224  M01S02514.mte     +++| CIR4     LDK    ESTP        SET LAST EST ORDINAL
04225  M01S02515.mte     +++|          CRD    CM
04226  M01S02516.mte     +++|          LDD    CM+3
04227  M01S02517.mte     +++|          STD    T9
04228  M01S02518.mte     +++|
04229  M01S02519.mte     +++|*         CLEAR DEVICE INTERLOCKS IN EXTENDED MEMORY.
04230  M01S02520.mte     +++|
04231  M01S02521.mte     +++| CIR5     SOD    T9          TRY NEXT EQUIPMENT
04232  M01S02522.mte     +++|          ZJP    CIR6        IF END OF EST
04233  M01S02523.mte     +++|          SFA    EST
04234  M01S02524.mte     +++|          CRD    CM
04235  M01S02525.mte     +++|          LDD    CM
04236  M01S02526.mte     +++|          SHN    21-13
04237  M01S02527.mte     +++|          PJN    CIR5        IF NOT MASS STORAGE
04238  M01S02528.mte     +++|          LDD    CM+4
04239  M01S02529.mte     +++|          SHN    3
04240  M01S02530.mte     +++|          ADK    SDGL
04241  M01S02531.mte     +++|          CRD    EA
04242  M01S02532.mte     +++|          LDD    EA
04243  M01S02533.mte     +++|          ADD    EA+1
04244  M01S02534.mte     +++|          ZJN    CIR5        IF NOT SHARED
04245  M01S02535.mte     +++|          READEM SDGL+1,MBUF READ MST
04246  M01S02536.mte     +++|          LDM    MBUF+SDGL*5+4
04247  M01S02537.mte     +++|          LPN    77
04248  M01S02538.mte     +++|          SHN    -1
Line S02539 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04249  M02S02539.273l780 ---| CIRD     LMN    0
Line S02540 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04250  M02S02540.273l780 ---|          INMOD  CIRD-1,MI
04251  M01S00033.273l780 +++|          TLMN   0,MI
04252  M01S02541.mte     +++|          NJN    CIR5        IF NOT INTERLOCKED BY THIS MACHINE
04253  M01S02542.mte     +++|          LDM    MBUF+TDGL*5+2  SET TRT LENGTH
04254  M01S02543.mte     +++|          STM    CIRE+1
04255  M01S02544.mte     +++|          LDD    CM+4        SET MST ADDRESS
04256  M01S02545.mte     +++|          STM    CIRE+3
Line S02546 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04257  M02S02546.283l840 ---|          TLDC   MTET+MXQP,PQ  PP QUEUE POINTER ADDRESS
04258  M01S01205.283l840 +++|          TLDC   MTQP,PQ     PP QUEUE POINTER ADDRESS
04259  M01S02547.mte     +++|          CRD    CM
04260  M01S02548.mte     +++|          TLDC   MTET,PQ     PP QUEUE ADDRESS
04261  M01S02549.mte     +++|          ADD    CM+4
04262  M01S02550.mte     +++|          CWM    CIRE,ON     WRITE CLEAR DEVICE INTERLOCK REQUEST
04263  M01S02551.mte     +++|          SOD    CM+4
Line S02552 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04264  M02S02552.283l840 ---|          TLDC   MTET+MXQP,PQ  WRITE NEW REQUEST QUEUE POINTER
04265  M01S01206.283l840 +++|          TLDC   MTQP,PQ     WRITE NEW REQUEST QUEUE POINTER
04266  M01S02553.mte     +++|          CWD    CM
04267  M01S02554.mte     +++|          LJM    CIR5        LOOP FOR NEXT DEVICE
04268  M01S02555.mte     +++|
04269  M01S02556.mte     +++| CIRE     CON    0,777,4000,0,CDIF  CLEAR DEVICE INTERLOCK SKELETON
04270  M01S02557.mte     +++|
04271  M01S02558.mte     +++|
04272  M01S02559.mte     +++| SCIRI    VFD    24/40000000+.CIRI
04273  M01S02560.mte     +++| CCIRI    VFD    24/70000000+.CIRI
Line S01207 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04274  M02S01207.ns2783  ---| IBP      SPACE  4,10
04275  M01S00247.ns2783  +++| IBP      SPACE  4,15
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 +++|*
Line S01214 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04282  M02S01214.ns2783  ---|*         USES   T1, T8, FN - FN+4.
04283  M01S00248.ns2783  +++|*         USES   EA, EA+1, T1, T8, FN - FN+4.
04284  M01S01215.283l840 +++|*
Line S01216 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04285  M02S01216.ns2783  ---|*         CALLS  CBA, CSZ, SEA, SLA.
04286  M01S00249.ns2783  +++|*         CALLS  CBA, CBD, CBJ, CSZ, SEA, SLA.
04287  M01S01217.283l840 +++|*
Line S01218 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04288  M02S01218.ns2783  ---|*         MACROS CFLAG, DELAY, READEM, SFLAG, WRITEM.
04289  M01S00250.ns2783  +++|*         MACROS DELAY, READEM, SFLAG, WRITEM.
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
Line S01274 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04345  M02S01274.ns2783  ---|          LMI    T1
04346  M01S00251.ns2783  +++|          LMI    T1          CHECK ERROR PROCESSING INTERLOCK
04347  M01S01275.283l840 +++|          NJN    IBP4        IF NOT INTERLOCKED BY THIS MACHINE
Line S01276 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04348  M02S01276.ns2783  ---|          STI    T1
Line S01277 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
04349  M02S01277.ns2783  ---| IBP4     SOD    FN+4
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
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
04364  M01S00262.ns2783  +++| TSIC     SPACE  4,10
04365  M01S00263.ns2783  +++|**        TSIC - INSTRUCTION RELOCATION TABLE.
04366  M01S00264.ns2783  +++|
04367  M01S00265.ns2783  +++|
Line S02561 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04368  M02S02561.273l780 ---| INM      SPACE  4,10
Line S02562 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04369  M02S02562.273l780 ---|**        INM - INSTRUCTION MODIFICATION.
Line S02563 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04370  M02S02563.273l780 ---|*
Line S02564 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04371  M02S02564.273l780 ---|*         ENTRY  ALL MODIFICATION VALUES SET.
Line S02565 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04372  M02S02565.273l780 ---|*
Line S02566 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04373  M02S02566.273l780 ---|*         USES   T1, T2, T3.
Line S02567 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04374  M02S02567.273l780 ---|
Line S02568 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04375  M02S02568.273l780 ---|
Line S02569 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04376  M02S02569.273l780 ---| INM      SUBR               ENTRY/EXIT
Line S02570 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04377  M02S02570.273l780 ---|          LDN    0           INITIALIZE TABLE SEARCH
Line S02571 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04378  M02S02571.273l780 ---|          STD    T1
Line S02572 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04379  M02S02572.273l780 ---| INM1     LDM    TINM,T1     SET INSTRUCTION ADDRESS
Line S02573 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04380  M02S02573.273l780 ---|          ZJN    INMX        IF END OF TABLE
Line S02574 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04381  M02S02574.273l780 ---|          STD    T2
Line S02575 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04382  M02S02575.273l780 ---|          LDM    TINM+1,T1
Line S02576 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04383  M02S02576.273l780 ---|          STD    T3
Line S02577 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04384  M02S02577.273l780 ---|          LDM    1,T3
Line S02578 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04385  M02S02578.273l780 ---|          RAM    1,T2
Line S02579 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04386  M02S02579.273l780 ---|          SHN    -14
Line S02580 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04387  M02S02580.273l780 ---|          ADI    T3
Line S02581 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04388  M02S02581.273l780 ---|          RAI    T2
Line S02582 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04389  M02S02582.273l780 ---|          LDN    2
Line S02583 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04390  M02S02583.273l780 ---|          RAD    T1
Line S02584 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04391  M02S02584.273l780 ---|          UJN    INM1        PROCESS NEXT TABLE ENTRY
Line S02585 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04392  M02S02585.273l780 ---|
Line S02586 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04393  M02S02586.273l780 ---| TINM     BSS    0           INSTRUCTION MODIFICATION TABLE
Line S02587 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04394  M02S02587.273l780 ---| INM      HERE
04395  M01S00034.273l780 +++|          LIST   G
04396  M01S00035.273l780 +++| TSIC     BSS    0           INSTRUCTION RELOCATION TABLE
04397  M01S00036.273l780 +++| SIC      HERE
04398  M01S02588.mte     +++|          CON    0           END OF TABLE
04399  M01S00037.273l780 +++|          LIST   *
04400  M01S02589.mte     +++|          SPACE  4,10
04401  M01S02590.mte     +++|**        INSTRUCTION MODIFICATION VALUES.
04402  M01S02591.mte     +++|*
04403  M01S02592.mte     +++|*         NOTE - INSTRUCTION MODIFICATION VALUES ARE TWO BYTES.
04404  M01S02593.mte     +++|
04405  M01S00038.273l780 +++| PPX      CON    0,0         EXTENDED PP COMMUNICATION AREA ADDRESS
04406  M01S02594.mte     +++| MI2      CON    0,0         MACHINE INDEX * 2
04407  M01S02595.mte     +++| MI5      CON    0,0         MACHINE INDEX * 5
04408  M01S02596.mte     +++| ML       CON    0,0         MACHINE INDEX * LLLL
04409  M01S01282.283l840 +++| MIH      CON    0,0         MACHINE INDEX * 100
04410  M01S02597.mte     +++| MM       CON    0,0         MACHINE MASK
Line S02598 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04411  M02S02598.283l840 ---| MH       CON    0,0         MACHINE MASK * 100
04412  M01S01283.283l840 +++| RWM      CON    0,0         READ/WRITE MASK FOR BAT ACCESS
04413  M01S00074.ns2780  +++| WM       CON    0,0         WRITE MASK FOR BAT ACCESS
04414  M01S01284.283l840 +++| RWMC     CON    0,0         COMPLEMENT OF READ/WRITE MASK
04415  M01S02599.mte     +++| PQ       CON    0,0         PP REQUEST QUEUE ADDRESS
Line S02600 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04416  M02S02600.283l840 ---|          CON    0,0,0       ALLOW SPACE FOR READING INTO *PQ*
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  M01S02601.mte     +++| SCP      SPACE  4,10
04420  M01S02602.mte     +++|**        SCP - SET CHANNEL IN PRESET INSTRUCTIONS.
04421  M01S02603.mte     +++|*
04422  M01S02604.mte     +++|*         ENTRY  (T4) = CHANNEL TO SET IN INSTRUCTIONS.
04423  M01S02605.mte     +++|*
04424  M01S02606.mte     +++|*         USES   T0.
04425  M01S02607.mte     +++|
04426  M01S02608.mte     +++|
04427  M01S02609.mte     +++| SCP      SUBR               ENTRY/EXIT
04428  M01S02610.mte     +++| SCP1     LDM    TSCP
04429  M01S02611.mte     +++| SCPA     EQU    *-1
04430  M01S02612.mte     +++|          ZJN    SCPX        IF END OF TABLE
04431  M01S02613.mte     +++|          STD    T0
04432  M01S02614.mte     +++|          LDD    T4
04433  M01S02615.mte     +++|          RAI    T0
04434  M01S02616.mte     +++|          AOM    SCPA
04435  M01S02617.mte     +++|          UJN    SCP1        LOOP
Line S02618 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04436  M02S02618.252l678 ---| WIT      SPACE  4,10
Line S02619 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04437  M02S02619.252l678 ---|**        WIT - WRITE *IBDT*.
Line S02620 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04438  M02S02620.252l678 ---|*
Line S02621 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04439  M02S02621.252l678 ---|*         EXIT   I/O BUFFER TABLE WRITTEN TO EXTENDED MEMORY.
Line S02622 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04440  M02S02622.252l678 ---|*
Line S02623 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S02623.252l678 ---|*         USES   T1, T2, T3, CM - CM+4.
Line S02624 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04442  M02S02624.252l678 ---|*
Line S02625 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04443  M02S02625.252l678 ---|*         CALLS  SLA.
Line S02626 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04444  M02S02626.252l678 ---|*
Line S02627 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04445  M02S02627.252l678 ---|*         MACROS WRITEM.
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/mte.002.txt · Last modified: by 127.0.0.1