User Tools

Site Tools


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

Deck SET Part 002

79 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03032  M01S02492.set     +++|          OAM    YY,CH       DISPLAY EQUIPMENT STATUS
03033  M01S02493.set     +++|          LCN    2*YINC
03034  M01S02494.set     +++|          RAD    YY
03035  M01S02495.set     +++|          LDD    SI          RESTORE TEXT DECK LINE NUMBER
03036  M01S02496.set     +++|          STD    T1
03037  M01S02497.set     +++|          LDC    RTL         CHANGE DISPLAY PROCESSOR
03038  M01S02498.set     +++|          STD    PA
03039  M01S02499.set     +++|          RJM    RTL         READ TEXT LINE
03040  M01S02500.set     +++|          UJN    ADPX        RETURN
03041  M01S02501.set     +++| CCD      SPACE  4,10
03042  M01S02502.set     +++|**        CCD - CONVERT CHANNEL FOR DISPLAY.
03043  M01S02503.set     +++|*
03044  M01S02504.set     +++|*         ENTRY  (A) = CHANNEL DATA.
03045  M01S02505.set     +++|*                (WB - WB+4) = EST DATA.
03046  M01S02506.set     +++|*
Line S02507 Modification History
M01 (Added by) set
M02 (Updated by) set68
Seq #  *Modification Id* Act 
----------------------------+
03047  M02S02507.set68   ---|*         EXIT   (A) = 0 IF NOT CONCURRENT CHANNEL.
Line S02508 Modification History
M01 (Added by) set
M02 (Updated by) set68
Seq #  *Modification Id* Act 
----------------------------+
03048  M02S02508.set68   ---|*                    = (T2) = LINE ADDRESS ADJUSTED.
03049  M01S00001.set68   +++|*         EXIT   (A) = (T2) = LINE ADDRESS ADJUSTED.
03050  M01S02509.set     +++|*
03051  M01S02510.set     +++|*         USES   BA.
03052  M01S02511.set     +++|*
03053  M01S02512.set     +++|*         CALLS  C2D.
03054  M01S02513.set     +++|
03055  M01S02514.set     +++|
03056  M01S02515.set     +++| CCD      SUBR               ENTRY/EXIT
03057  M01S02516.set     +++|          STD    BA
03058  M01S02517.set     +++|          LPN    40
03059  M01S02518.set     +++|          ZJN    CCD1        IF NOT A CONCURRENT CHANNEL
03060  M01S02519.set     +++|          LDN    1R &1RC
03061  M01S02520.set     +++| CCD1     LMC    2R
03062  M01S02521.set     +++|          STI    T2
03063  M01S02522.set     +++|          AOD    T2
03064  M01S02523.set     +++|          LDD    BA          CONVERT CHANNEL NUMBER
03065  M01S02524.set     +++|          LPN    37
03066  M01S02525.set     +++|          RJM    C2D
03067  M01S00002.set68   +++|          SOD    T2
03068  M01S02526.set     +++|          LDD    BA          CHECK TYPE OF CHANNEL
03069  M01S02527.set     +++|          LPN    40
Line S02528 Modification History
M01 (Added by) set
M02 (Updated by) set68
Seq #  *Modification Id* Act 
----------------------------+
03070  M02S02528.set68   ---|          ZJN    CCDX        IF NOT CONCURRENT CHANNEL
03071  M01S00003.set68   +++|          ZJN    CCD2        IF NOT CONCURRENT CHANNEL
03072  M01S02529.set     +++|          LDD    BA
03073  M01S02530.set     +++|          SHN    0-7         EXTRACT PORT NUMBER
03074  M01S02531.set     +++|          LPN    1
03075  M01S02532.set     +++|          ADC    2R-A        CONVERT TO A OR B
Line S02533 Modification History
M01 (Added by) set
M02 (Updated by) set68
Seq #  *Modification Id* Act 
----------------------------+
03076  M02S02533.set68   ---|          STM    -1,T2
03077  M01S00004.set68   +++|          STI    T2
03078  M01S00005.set68   +++|          AOD    T2
03079  M01S02534.set     +++|          LDC    2R.         ADJUST SEPARATOR
03080  M01S02535.set     +++|          STI    T2
Line S02536 Modification History
M01 (Added by) set
M02 (Updated by) set68
Seq #  *Modification Id* Act 
----------------------------+
03081  M02S02536.set68   ---|          LDN    2           ADVANCE ADDRESS
Line S02537 Modification History
M01 (Added by) set
M02 (Updated by) set68
Seq #  *Modification Id* Act 
----------------------------+
03082  M02S02537.set68   ---|          RAD    T2
Line S02538 Modification History
M01 (Added by) set
M02 (Updated by) set68
Seq #  *Modification Id* Act 
----------------------------+
03083  M02S02538.set68   ---|          UJN    CCDX        RETURN
03084  M01S00006.set68   +++| CCD2     LDD    BA          CHECK CHANNEL STATE
03085  M01S00007.set68   +++|          SHN    21-12
03086  M01S00008.set68   +++|          PJN    CCD3        IF CHANNEL IS NOT DOWN
03087  M01S00009.set68   +++|          LDC    2R*         INDICATE CHANNEL DOWN
03088  M01S00010.set68   +++|          STI    T2
03089  M01S00011.set68   +++| CCD3     AOD    T2          ADVANCE ADDRESS
03090  M01S00012.set68   +++|          UJP    CCDX        EXIT
03091  M01S02539.set     +++| CDI      SPACE  4,10
03092  M01S02540.set     +++|**        CDI - CHECK DISPLAY INDEX.
03093  M01S02541.set     +++|*
03094  M01S02542.set     +++|*         ENTRY  (T1) = DISPLAY INDEX.
03095  M01S02543.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03096  M01S02544.set     +++|
03097  M01S02545.set     +++|
03098  M01S02546.set     +++| CDI      SUBR               ENTRY/EXIT
03099  M01S02547.set     +++|          LDD    T1
03100  M01S02548.set     +++|          SBD    EW
03101  M01S02549.set     +++|          MJN    CDIX        IF INDEX BELOW LIMIT
03102  M01S02550.set     +++|          LDN    0
03103  M01S02551.set     +++|          STD    T1          SET INDEX TO FIRST PAGE OF DISPLAY
03104  M01S02552.set     +++|          STM    TDBP+3,DB
03105  M01S02553.set     +++|          UJN    CDIX        RETURN
03106  M01S02554.set     +++| CDP      SPACE  4,10
03107  M01S02555.set     +++|**        CDP - COMPLETE DISPLAY PROCESSING.
03108  M01S02556.set     +++|*
03109  M01S02557.set     +++|*         ENTRY  (ET) = ELAPSED TIME FOR DISPLAY GENERATION.
03110  M01S02558.set     +++|*
03111  M01S02559.set     +++|*         EXIT   (ET) = 0.
03112  M01S02560.set     +++|*
03113  M01S02561.set     +++|*         MACROS CFNC, DFIM.
03114  M01S02562.set     +++|
03115  M01S02563.set     +++|
03116  M01S02564.set     +++| CDP      SUBR               ENTRY/EXIT
03117  M01S02565.set     +++|          CFNC   THCF
03118  M01S02566.set     +++|          DCN.   CH
03119  M01S02567.set     +++|          DFIM   (UJN CDPX)
03120  M01S02568.set     +++|          LDN    21DS1       CALCULATE REFRESH DELAY
03121  M01S02569.set     +++|          SBD    ET
03122  M01S02570.set     +++|          PJN    CDP1        IF REFRESH TIME NOT EXCEEDED
03123  M01S02571.set     +++|          LDN    0
03124  M01S02572.set     +++| CDP1     SHN    10-1        POSITION DELAY VALUE
03125  M01S02573.set     +++| CDPA     EQU    CDP1
03126  M01S02574.set     +++|          ZJN    CDP2        IF REFRESH CYCLE AT LIMIT
03127  M01S02575.set     +++|          SBN    1
03128  M01S02576.set     +++|          NJN    *-1         DELAY
03129  M01S02577.set     +++| CDP2     STD    ET
03130  M01S02578.set     +++|          UJN    CDPX        RETURN
03131  M01S02579.set     +++| CLB      SPACE  4,10
03132  M01S02580.set     +++|**        CLB - CLEAR LINE BUFFER.
03133  M01S02581.set     +++|*
03134  M01S02582.set     +++|*         EXIT   (T2) = LBUF.
03135  M01S02583.set     +++|
03136  M01S02584.set     +++|
03137  M01S02585.set     +++| CLB      SUBR               ENTRY/EXIT
03138  M01S02586.set     +++|          LDN    0
03139  M01S02587.set     +++|          CRM    LBUF,SX
03140  M01S02588.set     +++|          LDC    LBUF        SET BUFFER ADDRESS
03141  M01S02589.set     +++|          STD    T2
03142  M01S02590.set     +++|          UJN    CLBX        RETURN
03143  M01S02591.set     +++| C1D      SPACE  4,10
03144  M01S02592.set     +++|**        C1D - CONVERT ONE DIGIT.
03145  M01S02593.set     +++|*
03146  M01S02594.set     +++|*         ENTRY  (A) = VALUE TO CONVERT.
03147  M01S02595.set     +++|*                (T2) = ADDRESS TO STORE CONVERSION.
03148  M01S02596.set     +++|*
03149  M01S02597.set     +++|*         EXIT   (A) = (T2) ADVANCED.
03150  M01S02598.set     +++|
03151  M01S02599.set     +++|
03152  M01S02600.set     +++| C1D      SUBR               ENTRY/EXIT
03153  M01S02601.set     +++|          LPN    7
03154  M01S02602.set     +++|          ADC    2R 0        CONVERT DIGIT
03155  M01S02603.set     +++|          STI    T2
03156  M01S02604.set     +++|          AOD    T2          ADVANCE ADDRESS
03157  M01S02605.set     +++|          LDC    2R.
03158  M01S02606.set     +++|          STI    T2          STORE SEPARATOR
03159  M01S02607.set     +++|          AOD    T2
03160  M01S02608.set     +++|          UJN    C1DX        RETURN
03161  M01S02609.set     +++| C2D      SPACE  4,10
03162  M01S02610.set     +++|**        C2D - CONVERT TWO DIGITS.
03163  M01S02611.set     +++|*
03164  M01S02612.set     +++|*         ENTRY  (A) = VALUE TO CONVERT.
03165  M01S02613.set     +++|*                (T2) = ADDRESS TO STORE CONVERSION.
03166  M01S02614.set     +++|*
03167  M01S02615.set     +++|*         EXIT   (A) = (T2) ADVANCED.
03168  M01S02616.set     +++|
03169  M01S02617.set     +++|
03170  M01S02618.set     +++| C2D      SUBR               ENTRY/EXIT
03171  M01S02619.set     +++|          LPN    77
03172  M01S02620.set     +++|          STD    T0          CONVERT DIGITS
03173  M01S02621.set     +++|          SHN    3
03174  M01S02622.set     +++|          LMD    T0
03175  M01S02623.set     +++|          SCN    70
03176  M01S02624.set     +++|          ADC    2R00        STORE CONVERSION
03177  M01S02625.set     +++|          STI    T2
03178  M01S02626.set     +++|          AOD    T2          ADVANCE ADDRESS
03179  M01S02627.set     +++|          LDC    2R.
03180  M01S02628.set     +++|          STI    T2          STORE SEPARATOR
03181  M01S02629.set     +++|          AOD    T2
03182  M01S02630.set     +++|          UJN    C2DX        RETURN
03183  M01S02631.set     +++| D4S      SPACE  4,10
03184  M01S02632.set     +++|**        D4S - DISPLAY 4 DIGITS WITH LEADING ZERO SUPPRESSION.
03185  M01S02633.set     +++|*         ROUTINE ADAPTED FROM *COMDDIS*.
03186  M01S02634.set     +++|*
03187  M01S02635.set     +++|*         ENTRY  (A) = VALUE TO BE CONVERTED.
03188  M01S02636.set     +++|*                (T2) = BUFFER INDEX.
03189  M01S02637.set     +++|*
03190  M01S02638.set     +++|*         EXIT   (T2) ADVANCED.
03191  M01S02639.set     +++|*
03192  M01S02640.set     +++|*         USES   T2.
03193  M01S02641.set     +++|
03194  M01S02642.set     +++|
03195  M01S02643.set     +++| D4S      SUBR               ENTRY/EXIT
03196  M01S02644.set     +++|          STD    T0
03197  M01S02645.set     +++|          SHN    -6
03198  M01S02646.set     +++|          ZJN    D4S2        IF FIRST TWO DIGITS ARE ZERO
03199  M01S02647.set     +++|          SHN    -3
03200  M01S02648.set     +++|          ZJN    D4S1        IF FIRST DIGIT IS ZERO
03201  M01S02649.set     +++|          ADN    1R0
03202  M01S02650.set     +++|          SHN    14
03203  M01S02651.set     +++| D4S1     ADD    T0
03204  M01S02652.set     +++|          SHN    -6
03205  M01S02653.set     +++|          SCN    70
03206  M01S02654.set     +++|          ADN    1R0
03207  M01S02655.set     +++| D4S2     STI    T2          STORE UPPER DIGIT(S)
03208  M01S02656.set     +++|          AOD    T2
03209  M01S02657.set     +++|          LDD    T0
03210  M01S02658.set     +++|          ZJN    D4S4        IF ALL FOUR DIGITS ARE ZERO
03211  M01S02659.set     +++|          SHN    -3
03212  M01S02660.set     +++|          ZJN    D4S3        IF FIRST THREE DIGITS ARE ZERO
03213  M01S02661.set     +++|          LPN    7
03214  M01S02662.set     +++|          ADN    1R0
03215  M01S02663.set     +++|          SHN    6
03216  M01S02664.set     +++| D4S3     LMD    T0
03217  M01S02665.set     +++|          SCN    7
03218  M01S02666.set     +++|          LMD    T0
03219  M01S02667.set     +++| D4S4     ADN    1R0         STORE LOWER DIGIT(S)
03220  M01S02668.set     +++|          STI    T2
03221  M01S02669.set     +++|          AOD    T2
03222  M01S02670.set     +++|          LDC    2R.         STORE SEPARATOR
03223  M01S02671.set     +++|          STI    T2
03224  M01S02672.set     +++|          AOD    T2
03225  M01S02673.set     +++|          LJM    D4SX        RETURN
03226  M01S02674.set     +++| EQP      SPACE  4,10
03227  M01S02675.set     +++|**        EQP - INITIAL EQPDECK DISPLAY PROCESSOR.
03228  M01S02676.set     +++|*
03229  M01S02677.set     +++|*         EXIT   SEE *GDH*.
03230  M01S02678.set     +++|*                EST DISPLAY ENABLED.
03231  M01S02679.set     +++|*
03232  M01S02680.set     +++|*         CALLS  GDH.
03233  M01S02681.set     +++|
03234  M01S02682.set     +++|
03235  M01S02683.set     +++| EQP      SUBR               ENTRY/EXIT
03236  M01S02684.set     +++|          LDC    GED         ENABLE EQPDECK DISPLAYS
03237  M01S02685.set     +++|          STD    EA-1
03238  M01S02686.set     +++|          LDC    GDH         CHANGE PROCESSOR ADDRESS
03239  M01S02687.set     +++|          STD    SA-1
03240  M01S02688.set     +++|          RJM    GDH
03241  M01S02689.set     +++|          UJN    EQPX        RETURN
03242  M01S02690.set     +++| GCD      SPACE  4,15
03243  M01S02691.set     +++|**        GCD - INITIATE CONTROLWARE STATUS DISPLAY.
03244  M01S02692.set     +++|*
03245  M01S02693.set     +++|*         ENTRY  (T1) = CHANNEL NUMBER.
03246  M01S02694.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03247  M01S02695.set     +++|*
03248  M01S02696.set     +++|*         EXIT   SEE *GCL*.
03249  M01S02697.set     +++|*                (A) = 0 IF NO MORE CHANNELS
03250  M01S02698.set     +++|*                (PA) = GCL.
03251  M01S02699.set     +++|*                (YY) = COORDINATE FOR NEXT DISPLAY.
03252  M01S02700.set     +++|*
03253  M01S02701.set     +++|*         USES   FP, PA, T0, T1, T2.
03254  M01S02702.set     +++|*
03255  M01S02703.set     +++|*         CALLS  GCL, REP, SCT.
03256  M01S02704.set     +++|
03257  M01S02705.set     +++|
03258  M01S02706.set     +++| GCD6     RJM    GCL         GENERATE CONTROLWARE STATUS LINE
03259  M01S02707.set     +++|          ZJN    GCDX        IF NO MORE CHANNELS
03260  M01S02708.set     +++|          STD    T2
03261  M01S02709.set     +++|          LCN    YINC        ADJUST Y-COORDINATE
03262  M01S02710.set     +++|          RAD    YY
03263  M01S02711.set     +++|          LDN    EDHDA       OUTPUT DISPLAY HEADER
03264  M01S02712.set     +++|          OAM    EDHD,CH
03265  M01S02713.set     +++|          LDC    GCL         CHANGE PROCESSOR ADDRESS
03266  M01S02714.set     +++|          STD    PA
03267  M01S02715.set     +++|          LDD    T2
03268  M01S02716.set     +++|
03269  M01S02717.set     +++| GCD      SUBR               ENTRY/EXIT
03270  M01S02718.set     +++|          LDD    T1
03271  M01S02719.set     +++|          NJN    GCD6        IF CONTROLWARE TABLE PROCESSED
03272  M01S02720.set     +++| GCD1     LDN    CTALL
03273  M01S02721.set     +++|          STD    FP
03274  M01S02722.set     +++|          LDD    MA          READ CONTROLWARE STATUSES
Line S02723 Modification History
M01 (Added by) set
M02 (Updated by) set81
Seq #  *Modification Id* Act 
----------------------------+
03275  M02S02723.set81   ---|          ADN    10*TDDCL
03276  M01S00010.set81   +++|          ADN    TDDBL
03277  M01S02724.set     +++|          SHN    6
03278  M01S02725.set     +++|          CRM    TCCS,FP
03279  M01S02726.set     +++| GCD2     RJM    REP         READ EQUIPMENT PARAMETERS
03280  M01S02727.set     +++|          ZJN    GCD5        IF NOT MASS STORAGE
03281  M01S02728.set     +++|          LDD    WB+1
03282  M01S02729.set     +++|          LMN    37
03283  M01S02730.set     +++|          ZJN    GCD5        IF ISMD CHANNELS NOT YET SPECIFIED
03284  M01S02731.set     +++|          LDD    WB+3
03285  M01S02732.set     +++|          RJM    SCT         SEARCH CONTROLWARE TABLE
03286  M01S02733.set     +++|          ZJN    GCD5        IF NOT FOUND
03287  M01S02734.set     +++|          LDD    WB+1        SET CHANNEL
03288  M01S02735.set     +++|          LPN    77
03289  M01S02736.set     +++| GCD3     STD    FP
03290  M01S02737.set     +++|          LDI    T2          DEFAULT CONTROLWARE FOR LOAD
03291  M01S02738.set     +++|          SBM    TCCS,FP
03292  M01S02739.set     +++|          MJN    GCD4        IF OTHER DEFAULT HAS PRIORITY
03293  M01S02740.set     +++|          RAM    TCCS,FP
03294  M01S02741.set     +++| GCD4     LDD    WB+2
03295  M01S02742.set     +++|          LPN    77
03296  M01S02743.set     +++|          SHN    14
03297  M01S02744.set     +++|          STD    WB+2
03298  M01S02745.set     +++|          SHN    6
03299  M01S02746.set     +++|          NJN    GCD3        IF NOT END OF CHANNELS
03300  M01S02747.set     +++| GCD5     AOD    T1
03301  M01S02748.set     +++|          LMD    EW
03302  M01S02749.set     +++|          NJN    GCD2        IF MORE EQUIPMENT TO CHECK
03303  M01S02750.set     +++|          STD    T1          SET CHANNEL NUMBER
03304  M01S02751.set     +++|          LJM    GCD6        GENERATE CONTROLWARE STATUS LINE
03305  M01S02752.set     +++| GCL      SPACE  4,15
03306  M01S02753.set     +++|**        GCL - GENERATE CONTROLWARE STATUS DISPLAY LINE.
03307  M01S02754.set     +++|*
03308  M01S02755.set     +++|*         ENTRY  (T1) = CHANNEL NUMBER.
03309  M01S02756.set     +++|*
03310  M01S02757.set     +++|*         EXIT   (A) = 0 IF NO MORE CHANNELS.
03311  M01S02758.set     +++|*                    = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03312  M01S02759.set     +++|*                (T1) = CHANNEL NUMBER.
03313  M01S02760.set     +++|*                (LBUF) = DISPLAY LINE.
03314  M01S02761.set     +++|*
03315  M01S02762.set     +++|*         USES   FP, T1, T2, YY.
03316  M01S02763.set     +++|*
03317  M01S02764.set     +++|*         CALLS  CLB.
03318  M01S02765.set     +++|
03319  M01S02766.set     +++|
03320  M01S02767.set     +++| GCL4     AOD    T2          INCREMENT ASSEMBLY ADDRESS
03321  M01S02768.set     +++|          LDD    T1
03322  M01S02769.set     +++|          LPN    40
03323  M01S02770.set     +++|          ZJN    GCL5        IF NOT A CONCURRENT CHANNEL
03324  M01S02771.set     +++|          LDN    1R &1RC
03325  M01S02772.set     +++| GCL5     LMC    2R
03326  M01S02773.set     +++|          STI    T2
03327  M01S02774.set     +++|          AOD    T2
03328  M01S02775.set     +++|          LDD    T1          CONVERT CHANNEL NUMBER
03329  M01S02776.set     +++|          LPN    37
03330  M01S02777.set     +++|          RJM    C2D
03331  M01S02778.set     +++|          LDN    4           INCREMENT POSITION
03332  M01S02779.set     +++|          RAD    T2
03333  M01S02780.set     +++|          LDM    TLCS-1,FP   SET CONTROLWARE RECORD TYPE
03334  M01S02781.set     +++|          STI    T2
03335  M01S02782.set     +++|          AOD    T2          ADJUST POSITION
03336  M01S02783.set     +++|          LDD    T2          SET LENGTH OF DISPLAY LINE
03337  M01S02784.set     +++|          SBN    YY
03338  M01S02785.set     +++|
03339  M01S02786.set     +++| GCL      SUBR               ENTRY/EXIT
03340  M01S02787.set     +++|          RJM    CLB         CLEAR LINE BUFFER
03341  M01S02788.set     +++|          LDD    T1
03342  M01S02789.set     +++|          UJN    GCL2        CONTINUE
03343  M01S02790.set     +++|
03344  M01S02791.set     +++| GCL1     AOD    T1
03345  M01S02792.set     +++| GCLA     LMN    0
03346  M01S02793.set     +++| GCL2     EQU    GCLA
03347  M01S02794.set     +++|          NJN    GCL3        IF MORE TO DISPLAY
03348  M01S02795.set     +++|          STM    GCLB
03349  M01S02796.set     +++|          UJN    GCLX        RETURN
03350  M01S02797.set     +++|
03351  M01S02798.set     +++| GCL3     LDM    TCCS,T1
03352  M01S02799.set     +++|          ZJN    GCL1        IF CONTROLWARE NOT SPECIFIED
03353  M01S02800.set     +++|          LPN    77
03354  M01S02801.set     +++|          STD    FP
03355  M01S02802.set     +++|          AOM    GCLB
03356  M01S02803.set     +++|          SBN    22
03357  M01S02804.set     +++|          NJP    GCL4        IF NOT END OF LEFT SCREEN
03358  M01S02805.set     +++|          DFIM   (LDC Y721)
03359  M01S02806.set     +++|          LDC    Y545        ADJUST Y-COORDINATE FOR BLANK LINE
03360  M01S02807.set     +++|          STD    YY
03361  M01S02808.set     +++|          SOD    T1
03362  M01S02809.set     +++|          LDN    3
03363  M01S02810.set     +++|          UJN    GCLX        RETURN
03364  M01S02811.set     +++|
03365  M01S02812.set     +++|
03366  M01S02813.set     +++| GCLB     CON    0
03367  M01S02814.set     +++| TDCW     SPACE  4,10
03368  M01S02815.set     +++|**        TDCW - TABLE OF DEFAULT CONTROLWARE.
03369  M01S02816.set     +++|
03370  M01S02817.set     +++|
03371  M01S02818.set     +++| TDCW     BSS    0
03372  M01S02819.set     +++|          LIST   G
03373  M01S02820.set     +++|
03374  M01S02821.set     +++|          TBL    "MSEQ"
03375  M01S02822.set     +++|          LIST   *
03376  M01S02823.set     +++|          PURGMAC  TBLM
03377  M01S02824.set     +++|
03378  M01S02825.set     +++|          CON    0           END OF TABLE
03379  M01S02826.set     +++| TLCS     SPACE  4,10
03380  M01S02827.set     +++|**        TLCS - TABLE OF CONTROLWARE RECORD TYPES TO LOAD.
03381  M01S02828.set     +++|
03382  M01S02829.set     +++|
03383  M01S02830.set     +++| TLCS     BSS    0
03384  M01S02831.set     +++|          LOC    CLHT
03385  M01S02832.set     +++| CLHT     CON    2RHT        LOAD HALF TRACK CONTROLWARE
03386  M01S02833.set     +++| CNHT     CON    2RNH        NO LOAD HALF TRACK CONTROLWARE
03387  M01S02834.set     +++| CLFT     CON    2RFT        LOAD FULL TRACK CONTROLWARE
03388  M01S02835.set     +++| CNFT     CON    2RNF        NO LOAD FULL TRACK CONTROLWARE
03389  M01S02836.set     +++| CLFM     CON    2RFM        LOAD FMD CONTROLWARE
03390  M01S02837.set     +++| CNFM     CON    2RNM        NO LOAD FMD CONTROLWARE
03391  M01S02838.set     +++| CLAD     CON    2RAD        LOAD FSC ADAPTOR CONTROLWARE
03392  M01S02839.set     +++| CNAD     CON    2RNA        NO LOAD FSC ADAPTOR CONTROLWARE
03393  M01S02840.set     +++| CLPH     CON    2RPH        LOAD DEMA/PFMD CONTROLWARE
03394  M01S02841.set     +++| CNPH     CON    2RNP        NO LOAD DEMA/PFMD CONTROLWARE
03395  M01S02842.set     +++| CLID     CON    2RID        LOAD 7255 ADAPTOR CONTROLWARE
03396  M01S02843.set     +++| CNID     CON    2RNI        NO LOAD 7255 ADAPTOR CONTROLWARE
03397  M01S02844.set     +++| CLCC     CON    2RCC        LOAD 7165 ADAPTOR CONTROLWARE
03398  M01S02845.set     +++| CNCC     CON    2RCN        NO LOAD 7165 ADAPTOR CONTROLWARE
03399  M01S02846.set     +++| CLND     CON    2R          LOAD NAD CONTROLWARE
03400  M01S02847.set     +++| CNND     CON    2RNN        NO LOAD NAD CONTROLWARE
03401  M01S02848.set     +++|          CON    2R          (LOAD CONTROL MODULE - N/A)
03402  M01S02849.set     +++|          CON    2R          (NO LOAD CONTROL MODULE - N/A)
03403  M01S02850.set     +++| CLM8     CON    2RM8        LOAD 7990 CONTROLWARE
03404  M01S02851.set     +++| CNM8     CON    2RN8        NO LOAD 7990 CONTROLWARE
03405  M01S02852.set     +++| CLCX     CON    2R          LOAD CCC/NIP CONTROLWARE
03406  M01S02853.set     +++| CNCX     CON    2RNX        NO LOAD CCC/NIP CONTROLWARE
03407  M01S02854.set     +++| CLCT     CON    2R          LOAD CCC/698 CONTROLWARE
03408  M01S02855.set     +++| CNCT     CON    2RNT        NO LOAD CCC/698 CONTROLWARE
03409  M01S02856.set     +++|          LOC    *L+TLCS-1
03410  M01S02857.set     +++| GDH      SPACE  4,10
03411  M01S02858.set     +++|**        GDH - GENERATE DISPLAY HEADER.
03412  M01S02859.set     +++|*
03413  M01S02860.set     +++|*         ENTRY  (T1) = LINE NUMBER.
03414  M01S02861.set     +++|*
03415  M01S02862.set     +++|*         EXIT   SEE *RTL*.
03416  M01S02863.set     +++|*                (PA) = RTL.
03417  M01S02864.set     +++|*
03418  M01S02865.set     +++|*         CALLS  RTL.
03419  M01S02866.set     +++|
03420  M01S02867.set     +++|
03421  M01S02868.set     +++| GDH      SUBR               ENTRY/EXIT
03422  M01S02869.set     +++|          LDM    TDBP+1,DB
03423  M01S02870.set     +++|          SHN    6           FETCH DECK NAME
03424  M01S02871.set     +++|          CRM    DHDR+2,ON
03425  M01S02872.set     +++|          LDN    DHDRL       DISPLAY NAME
03426  M01S02873.set     +++|          OAM.   DHDR,CH
03427  M01S02874.set     +++|          LDD    T1
03428  M01S02875.set     +++|          NJN    GDH1        IF NOT FIRST PAGE OF DECK
03429  M01S02876.set     +++|          AOD    T1
03430  M01S02877.set     +++| GDH1     LDC    RTL         CHANGE PROCESSOR ADDRESS
03431  M01S02878.set     +++|          STD    PA
03432  M01S02879.set     +++|          RJM    RTL
03433  M01S02880.set     +++|          UJN    GDHX        RETURN
03434  M01S02881.set     +++| GED      SPACE  4,10
03435  M01S02882.set     +++|**        GED - INITIATE EST DISPLAY.
03436  M01S02883.set     +++|*
03437  M01S02884.set     +++|*         EXIT   SEE *GEL*.
03438  M01S02885.set     +++|*                (PA) = GEL.
03439  M01S02886.set     +++|*                (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03440  M01S02887.set     +++|*
03441  M01S02888.set     +++|*         CALLS  CDI, GEL.
03442  M01S02889.set     +++|
03443  M01S02890.set     +++|
03444  M01S02891.set     +++| GED      SUBR               ENTRY/EXIT
03445  M01S02892.set     +++|          RJM    CDI         CHECK DISPLAY INDEX
03446  M01S02893.set     +++|          LCN    YINC
03447  M01S02894.set     +++|          RAD    YY
03448  M01S02895.set     +++|          LDN    EDHAA       OUTPUT DISPLAY HEADER
03449  M01S02896.set     +++|          OAM    EDHA,CH
03450  M01S02897.set     +++|          LDC    GEL         CHANGE PROCESSOR ADDRESS
03451  M01S02898.set     +++|          STD    PA
03452  M01S02899.set     +++|          RJM    GEL         GENERATE EST DISPLAY LINE
03453  M01S02900.set     +++|          UJN    GEDX        RETURN
03454  M01S02901.set     +++| GEL      SPACE  4,10
03455  M01S02902.set     +++|**        GEL - GENERATE EST DISPLAY LINE.
03456  M01S02903.set     +++|*
03457  M01S02904.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03458  M01S02905.set     +++|*
03459  M01S02906.set     +++|*         EXIT   (A) = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03460  M01S02907.set     +++|*                (LBUF) = DISPLAY LINE.
03461  M01S02908.set     +++|*
03462  M01S02909.set     +++|*         USES   BA, T2.
03463  M01S02910.set     +++|*
03464  M01S02911.set     +++|*         CALLS  CCD, C1D, C2D, IEL, REP.
03465  M01S02912.set     +++|
03466  M01S02913.set     +++|
03467  M01S02914.set     +++| GEL5     LDD    T2          SET LENGTH OF DISPLAY LINE
03468  M01S02915.set     +++|          SBN    YY
03469  M01S02916.set     +++|
03470  M01S02917.set     +++| GEL      SUBR               ENTRY/EXIT
03471  M01S02918.set     +++|          RJM    REP         READ EQUIPMENT PARAMETERS
03472  M01S02919.set     +++|          RJM    IEL         INITIALIZE DISPLAY LINE
03473  M01S02920.set     +++|          ZJN    GEL5        IF EQUIPMENT UNDEFINED
03474  M01S02921.set     +++|          LDD    WB
03475  M01S02922.set     +++|          LPN    3           EXTRACT EQUIPMENT STATUS
03476  M01S02923.set     +++|          SHN    1
03477  M01S02924.set     +++|          STD    BA          SET INDEX
03478  M01S02925.set     +++|          LDM    GELA,BA
03479  M01S02926.set     +++|          STI    T2
03480  M01S02927.set     +++|          AOD    T2
03481  M01S02928.set     +++|          LDM    GELA+1,BA   SET STATUS IN DISPLAY LINE
03482  M01S02929.set     +++|          STI    T2
03483  M01S02930.set     +++|          AOD    T2
03484  M01S02931.set     +++|          LDD    WB
03485  M01S02932.set     +++|          SHN    0-13
03486  M01S02933.set     +++|          NJN    GEL2        IF MASS STORAGE
03487  M01S02934.set     +++|          LDD    WB+4
03488  M01S02935.set     +++|          SHN    -11
03489  M01S02936.set     +++|          RJM    C1D         CONVERT EQUIPMENT (CONTROLLER) NUMBER
03490  M01S00020.284l847 +++|          AOD    T2
03491  M01S02937.set     +++|          LDD    WB+4
Line S02938 Modification History
M01 (Added by) set
M02 (Updated by) set79
Seq #  *Modification Id* Act 
----------------------------+
03492  M02S02938.set79   ---|          LPN    17
03493  M01S00001.set79   +++|          LPN    77
03494  M01S02939.set     +++|          UJN    GEL3        CONVERT UNIT NUMBER
03495  M01S02940.set     +++|
Line S02941 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03496  M02S02941.271l716 ---| GEL2     LDN    0           NULL CONTROLLER NUMBER
03497  M01S00027.271l716 +++| GEL2     LDM    MSTB+DVPR   CONTROLLER NUMBER
03498  M01S00028.271l716 +++|          SHN    -11
03499  M01S02942.set     +++|          RJM    C1D
03500  M01S00021.284l847 +++|          SOD    T2          BACK UP FOR SECOND CONTROLLER DISPLAY
Line S02943 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03501  M02S02943.284l847 ---|          LDM    MSTB+DVUN+3 CONVERT UNIT NUMBER
03502  M01S00022.284l847 +++|          LDM    MSTB+DVPR
03503  M01S00023.284l847 +++|          SHN    21-5
03504  M01S00024.284l847 +++|          PJN    GEL2.1      IF NO SECOND CONTROLLER
03505  M01S00025.284l847 +++|          RJM    C1D         CONVERT SECOND CHANNEL CONTROLLER NUMBER
03506  M01S00026.284l847 +++|          UJN    GEL2.2      CONVERT UNIT NUMBER
03507  M01S00027.284l847 +++|
03508  M01S00028.284l847 +++| GEL2.1   LDN    2           SKIP SECOND CONTROLLER FIELD
03509  M01S00029.284l847 +++|          RAD    T2
03510  M01S00030.284l847 +++| GEL2.2   LDM    MSTB+DVUN+3 CONVERT UNIT NUMBER
03511  M01S02944.set     +++| GEL3     RJM    C2D
03512  M01S02945.set     +++|          LDD    WB+1        CONVERT PRIMARY CHANNEL
03513  M01S02946.set     +++|          LMN    37
03514  M01S02947.set     +++|          ZJN    GEL4        IF CHANNEL NOT SPECIFIED
03515  M01S02948.set     +++|          LDD    WB+1
03516  M01S02949.set     +++|          RJM    CCD         CONVERT CHANNEL NUMBER
03517  M01S02950.set     +++|          LDD    WB+2
03518  M01S02951.set     +++|          ZJN    GEL4        IF NO 2ND CHANNEL
03519  M01S02952.set     +++|          RJM    CCD
03520  M01S02953.set     +++| GEL4     LJM    GEL5        SET LENGTH OF DISPLAY LINE
03521  M01S02954.set     +++| GELA     SPACE  4,10
03522  M01S02955.set     +++|*         EQUIPMENT STATUS.
03523  M01S02956.set     +++|
03524  M01S02957.set     +++| GELA     DATA   4H ON
03525  M01S02958.set     +++|          DATA   4HIDLE
03526  M01S02959.set     +++|          DATA   4H OFF
03527  M01S02960.set     +++|          DATA   4HDOWN
03528  M01S02961.set     +++| GID      SPACE  4,10
03529  M01S02962.set     +++|**        GID - INITIATE MASS STORAGE INITIALIZATION DISPLAY.
03530  M01S02963.set     +++|*
03531  M01S02964.set     +++|*         EXIT   SEE *GIL*.
03532  M01S02965.set     +++|*                (A) = 0 IF END OF MASS STORAGE EQUIPMENT.
03533  M01S02966.set     +++|*                (PA) = GIL.
03534  M01S02967.set     +++|*                (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03535  M01S02968.set     +++|*
03536  M01S02969.set     +++|*         USES   PA, T2, YY.
03537  M01S02970.set     +++|*
03538  M01S02971.set     +++|*         CALLS  CDI, GIL.
03539  M01S02972.set     +++|
03540  M01S02973.set     +++|
03541  M01S02974.set     +++| GID      SUBR               ENTRY/EXIT
03542  M01S02975.set     +++|          LDN    EDHCA       OUTPUT DISPLAY HEADER
03543  M01S02976.set     +++|          OAM    EDHC,CH
03544  M01S02977.set     +++|          RJM    CDI         CHECK DISPLAY INDEX
03545  M01S02978.set     +++|          RJM    GIL         GENERATE LINE
03546  M01S02979.set     +++|          ZJN    GIDX        IF NO MORE MASS STORAGE
03547  M01S02980.set     +++|          STD    T2
03548  M01S02981.set     +++|          LCN    YINC        ADJUST Y-COORDINATE
03549  M01S02982.set     +++|          RAD    YY
03550  M01S02983.set     +++|          LDC    GIL         CHANGE PROCESSOR ADDRESS
03551  M01S02984.set     +++|          STD    PA
03552  M01S02985.set     +++|          LDD    T2
03553  M01S02986.set     +++|          UJN    GIDX        RETURN
03554  M01S02987.set     +++| GIL      SPACE  4,15
03555  M01S02988.set     +++|**        GIL - GENERATE MASS STORAGE INITIALIZATION LINE.
03556  M01S02989.set     +++|*
03557  M01S02990.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03558  M01S02991.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03559  M01S02992.set     +++|*
03560  M01S02993.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03561  M01S02994.set     +++|*                    = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03562  M01S02995.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03563  M01S02996.set     +++|*                (LBUF) = DISPLAY LINE.
03564  M01S02997.set     +++|*
03565  M01S02998.set     +++|*         USES   FP, T0, T2.
03566  M01S02999.set     +++|*
03567  M01S03000.set     +++|*         CALLS  C1D, C2D, IML, SBS.
03568  M01S03001.set     +++|
03569  M01S03002.set     +++|
03570  M01S03003.set     +++| GIL      SUBR               ENTRY/EXIT
03571  M01S03004.set     +++|          RJM    IML
03572  M01S03005.set     +++|          ZJN    GILX        IF NO MORE MASS STORAGE EQUIPMENT
03573  M01S03006.set     +++|          LDD    WB+4        SET INITIALIZATION OPTIONS
03574  M01S03007.set     +++|          LPC    7760
03575  M01S03008.set     +++|          ZJN    GIL2        IF INITIALIZATION NOT SPECIFIED
03576  M01S03009.set     +++|          STD    T0          FTPQSAEB
03577  M01S03010.set     +++|          LDC    GILA
03578  M01S03011.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03579  M01S03012.set     +++|          UJN    GIL3        CHECK *PF* ENTRY
03580  M01S03013.set     +++|
03581  M01S03014.set     +++| GIL2     LDN    4           ADVANCE POSITION
03582  M01S03015.set     +++|          RAD    T2
03583  M01S03016.set     +++| GIL3     LDM    MSTB+DVNM   DETERMINE IF *PF* ENTRY ENTERED
03584  M01S03017.set     +++|          NJN    GIL4        IF ENTERED
03585  M01S03018.set     +++|          LJM    GIL9        SET LENGTH OF DISPLAY LINE
03586  M01S03019.set     +++|
03587  M01S03020.set     +++| GIL4     AOD    T2
03588  M01S03021.set     +++|          LDD    WB          DETERMINE DEVICE TYPE
03589  M01S03022.set     +++|          LPN    4
03590  M01S03023.set     +++|          ZJN    GIL5        IF FAMILY DEVICE
03591  M01S03024.set     +++|          LDC    2RX &2RF
03592  M01S03025.set     +++| GIL5     LMC    2RF         SET *F* OR *X*
03593  M01S03026.set     +++|          STI    T2
03594  M01S03027.set     +++|          AOD    T2
03595  M01S03028.set     +++|          LDM    MSTB+DVPF+1 SET DEVICE MASK
03596  M01S03029.set     +++|          SHN    -6
03597  M01S03030.set     +++|          LPN    3
03598  M01S03031.set     +++|          RJM    C1D
03599  M01S03032.set     +++|          SOD    T2          BACKSPACE OVER SEPARATOR
03600  M01S03033.set     +++|          LDM    MSTB+DVPF+1
03601  M01S03034.set     +++|          RJM    C2D
03602  M01S03035.set     +++|          LDM    MSTB+DVPF   SET SECONDARY MASK
03603  M01S03036.set     +++|          SHN    -2
03604  M01S03037.set     +++|          LPN    3
03605  M01S03038.set     +++|          RJM    C1D
03606  M01S03039.set     +++|          SOD    T2          BACKSPACE OVER SEPARATOR
03607  M01S03040.set     +++|          LDM    MSTB+DVPF
03608  M01S03041.set     +++|          LPN    3
03609  M01S03042.set     +++|          SHN    14
03610  M01S03043.set     +++|          LMM    MSTB+DVPF+1
03611  M01S03044.set     +++|          SHN    -10
03612  M01S03045.set     +++|          RJM    C2D
03613  M01S03046.set     +++|          LDC    MSTB+DVNM   SET FAMILY OR PACKNAME
03614  M01S03047.set     +++|          STD    FP
03615  M01S03048.set     +++|          AOD    T2
03616  M01S03049.set     +++| GIL6     LDI    FP
03617  M01S03050.set     +++|          STI    T2
03618  M01S03051.set     +++|          AOD    T2
03619  M01S03052.set     +++|          AOD    FP
03620  M01S03053.set     +++|          LMC    MSTB+DVNM+3
03621  M01S03054.set     +++|          NJN    GIL6        IF MORE CHARACTERS TO CHECK
03622  M01S03055.set     +++|          LDM    MSTB+DVNM+3 SET SEVENTH CHARACTER
03623  M01S03056.set     +++|          SCN    77          CLEAR DEVICE NUMBER
03624  M01S03057.set     +++|          STI    T2
03625  M01S03058.set     +++|          AOD    T2
03626  M01S03059.set     +++|          LDD    WB          DETERMINE IF FAMILY OR AUXILARY DEVICE
03627  M01S03060.set     +++|          LPN    4
03628  M01S03061.set     +++|          ZJN    GIL7        IF FAMILY DEVICE
03629  M01S03062.set     +++|          LDN    2           ADVANCE POSITION
03630  M01S03063.set     +++|          RAD    T2
03631  M01S03064.set     +++|          UJN    GIL8        SET NUMBER OF CATALOG TRACKS
03632  M01S03065.set     +++|
03633  M01S03066.set     +++| GIL7     LDM    MSTB+DVDN   SET DEVICE NUMBER
03634  M01S03067.set     +++|          RJM    C2D
03635  M01S03068.set     +++| GIL8     LDM    MSTB+DVPF   SET NUMBER OF CATALOG TRACKS
03636  M01S03069.set     +++|          SHN    -12
03637  M01S03070.set     +++|          RJM    C1D
03638  M01S03071.set     +++|          SOD    T2          BACKSPACE OVER SEPARATOR
03639  M01S03072.set     +++|          LDM    MSTB+DVPF
03640  M01S03073.set     +++|          SHN    -4
03641  M01S03074.set     +++|          RJM    C2D
03642  M01S03075.set     +++| GIL9     LDD    T2          SET LENGTH OF DISPLAY LINE
03643  M01S03076.set     +++|          SBN    YY
03644  M01S03077.set     +++|          LJM    GILX        RETURN
03645  M01S03078.set     +++| GILA     SPACE  4,10
03646  M01S03079.set     +++|*         OPTION MASK.
03647  M01S03080.set     +++|
03648  M01S03081.set     +++| GILA     CON    2RFT&2R--
03649  M01S03082.set     +++|          CON    2RPQ&2R--
03650  M01S03083.set     +++|          CON    2RSA&2R--
03651  M01S03084.set     +++|          CON    2REB&2R--
03652  M01S03085.set     +++|          CON    0
03653  M01S03086.set     +++| GMD      SPACE  4,10
03654  M01S03087.set     +++|**        GMD - INITIATE MST DISPLAY.
03655  M01S03088.set     +++|*
03656  M01S03089.set     +++|*         EXIT   SEE *GML*.
03657  M01S03090.set     +++|*                (A) = 0 IF END OF MASS STORAGE EQUIPMENT.
03658  M01S03091.set     +++|*                (PA) = GML.
03659  M01S03092.set     +++|*                (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03660  M01S03093.set     +++|*
03661  M01S03094.set     +++|*         USES   T2.
03662  M01S03095.set     +++|*
03663  M01S03096.set     +++|*         CALLS  CDI, GML.
03664  M01S03097.set     +++|
03665  M01S03098.set     +++|
03666  M01S03099.set     +++| GMD      SUBR               ENTRY/EXIT
03667  M01S03100.set     +++|          LDN    EDHBA       OUTPUT DISPLAY HEADER
03668  M01S03101.set     +++|          OAM    EDHB,CH
03669  M01S03102.set     +++|          LDD    MA          GET DAYFILE AND DEFAULT FAMILY EQUIPMENTS
03670  M01S03103.set     +++|          SHN    6
03671  M01S03104.set     +++|          ADN    NEEQ*TDDCL
03672  M01S03105.set     +++|          CRD    CB
03673  M01S03106.set     +++|          RJM    CDI         CHECK DISPLAY INDEX
03674  M01S03107.set     +++|          RJM    GML
03675  M01S03108.set     +++|          ZJN    GMDX        IF NO MORE MASS STORAGE
03676  M01S03109.set     +++|          STD    T2
03677  M01S03110.set     +++|          LCN    YINC        ADJUST Y-COORDINATE
03678  M01S03111.set     +++|          RAD    YY
03679  M01S03112.set     +++|          LDC    GML         CHANGE PROCESSOR ADDRESS
03680  M01S03113.set     +++|          STD    PA
03681  M01S03114.set     +++|          LDD    T2
03682  M01S03115.set     +++|          UJN    GMDX        RETURN
03683  M01S03116.set     +++| GML      SPACE  4,15
03684  M01S03117.set     +++|**        GML - GENERATE MST DISPLAY LINE.
03685  M01S03118.set     +++|*
03686  M01S03119.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03687  M01S03120.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03688  M01S03121.set     +++|*
03689  M01S03122.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03690  M01S03123.set     +++|*                    = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03691  M01S03124.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03692  M01S03125.set     +++|*                (LBUF) = DISPLAY LINE.
03693  M01S03126.set     +++|*
03694  M01S03127.set     +++|*         USES   BA, T2.
03695  M01S03128.set     +++|*
03696  M01S03129.set     +++|*         CALLS  IML, SBS.
03697  M01S03130.set     +++|
03698  M01S03131.set     +++|
03699  M01S03132.set     +++| GML      SUBR               ENTRY/EXIT
03700  M01S03133.set     +++|          RJM    IML
03701  M01S03134.set     +++|          ZJN    GMLX        IF NO MORE MASS STORAGE EQUIPMENT
03702  M01S03135.set     +++|          LDD    WB
03703  M01S03136.set     +++|          LPC    3400        SET S, M, R
03704  M01S03137.set     +++|          SHN    1
03705  M01S03138.set     +++|          STD    T0          SMR.........
03706  M01S03139.set     +++|          LDD    WB
03707  M01S03140.set     +++|          LPN    20          SET N
03708  M01S03141.set     +++|          SHN    10-4
03709  M01S03142.set     +++|          RAD    T0          SMRN........
03710  M01S03143.set     +++|          LDD    WB+4
03711  M01S03144.set     +++|          LPN    10          SET A
03712  M01S03145.set     +++|          SHN    7-3
03713  M01S03146.set     +++|          RAD    T0          SMRNA.......
03714  M01S03147.set     +++|          LDD    WB+4
03715  M01S03148.set     +++|          SCN    17
03716  M01S03149.set     +++|          ZJN    GML2        IF NO INITIALIZE PENDING
03717  M01S03150.set     +++|          LDC    100         SET I
03718  M01S03151.set     +++|          RAD    T0          SMRNAI......
03719  M01S03152.set     +++| GML2     LDM    MSTB+DVPR   SET P
03720  M01S03153.set     +++|          LPN    1
03721  M01S03154.set     +++|          SHN    5
03722  M01S03155.set     +++|          RAD    T0          SMRNAIP.....
03723  M01S03156.set     +++|          LDN    4
03724  M01S03157.set     +++|          STD    BA
03725  M01S03158.set     +++| GML3     LDM    CB,BA       DETERMINE DAYFILE AND FAMILY RESIDENCE
03726  M01S03159.set     +++|          LPC    777
03727  M01S03160.set     +++|          LMD    T1
03728  M01S03161.set     +++|          NJN    GML4        IF NO RESIDENCE
03729  M01S03162.set     +++|          LDM    GMLC,BA     SET D, C, E, B, AND/OR F
03730  M01S03163.set     +++|          RAD    T0
03731  M01S03164.set     +++| GML4     SOD    BA
03732  M01S03165.set     +++|          PJN    GML3        IF MORE TO CHECK
03733  M01S03166.set     +++|          LDC    GMLA
03734  M01S03167.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03735  M01S03168.set     +++|          LDM    MSTB+DVPR   SET G
03736  M01S03169.set     +++|          LPN    2
03737  M01S03170.set     +++|          SHN    12
03738  M01S03171.set     +++|          STD    T0
03739  M01S03172.set     +++|          LDC    GMLB
03740  M01S03173.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03741  M01S03174.set     +++|          LDN    2
03742  M01S03175.set     +++|          RAD    T2
03743  M01S03176.set     +++|          LDM    MSTB+DVFA   SET FILE TYPE BITS
03744  M01S03177.set     +++|          SHN    3
03745  M01S03178.set     +++|          ADN    4           SET UNUSED BIT
03746  M01S03179.set     +++|          STD    T0
03747  M01S03180.set     +++|          LDC    GMLD
03748  M01S03181.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03749  M01S03182.set     +++|          LDD    T2          SET LENGTH OF DISPLAY LINE
03750  M01S03183.set     +++|          SBN    YY
03751  M01S03184.set     +++|          LJM    GMLX        RETURN
03752  M01S03185.set     +++| GMLA     SPACE  4,10
03753  M01S03186.set     +++|*         STATUS MASKS.
03754  M01S03187.set     +++|
03755  M01S03188.set     +++| GMLA     CON    2RSM&2R--
03756  M01S03189.set     +++|          CON    2RRN&2R--
03757  M01S03190.set     +++|          CON    2RAI&2R--
03758  M01S03191.set     +++|          CON    2RPD&2R--
03759  M01S03192.set     +++|          CON    2RCE&2R--
03760  M01S03193.set     +++|          CON    2RBF&2R--
03761  M01S03194.set     +++|          CON    0
03762  M01S03195.set     +++|
03763  M01S03196.set     +++| GMLB     CON    2RG-&2R--
03764  M01S03197.set     +++|          CON    0
03765  M01S03198.set     +++|
03766  M01S03199.set     +++| GMLC     CON    20
03767  M01S03200.set     +++|          CON    10
03768  M01S03201.set     +++|          CON    4
03769  M01S03202.set     +++|          CON    2
03770  M01S03203.set     +++|          CON    1
03771  M01S03204.set     +++|
03772  M01S03205.set     +++|
03773  M01S03206.set     +++|*         FILES MASK.
03774  M01S03207.set     +++|
03775  M01S03208.set     +++| GMLD     CON    2RSB&2R--
03776  M01S03209.set     +++|          CON    2RLP&2R--
03777  M01S03210.set     +++|          CON    2RDR&2R--
03778  M01S03211.set     +++|          CON    2ROI&2R--
03779  M01S03212.set     +++|          CON    2RT &2R--
03780  M01S03213.set     +++|          CON    0
03781  M01S03214.set     +++| GTD      SPACE  4,10
03782  M01S03215.set     +++|**        GTD - INITIATE MASS STORAGE ERROR THRESHOLD DISPLAY.
03783  M01S03216.set     +++|*
03784  M01S03217.set     +++|*         EXIT   SEE *GTL*.
03785  M01S03218.set     +++|*                (A) = 0 IF END OF MASS STORAGE EQUIPMENT.
03786  M01S03219.set     +++|*                (PA) = GTL.
03787  M01S03220.set     +++|*                (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03788  M01S03221.set     +++|*
03789  M01S03222.set     +++|*         USES   T2.
03790  M01S03223.set     +++|*
03791  M01S03224.set     +++|*         CALLS  CDI, GTL.
03792  M01S03225.set     +++|
03793  M01S03226.set     +++|
03794  M01S03227.set     +++| GTD      SUBR               ENTRY/EXIT
03795  M01S03228.set     +++|          LDN    EDHEA       OUTPUT DISPLAY HEADER
03796  M01S03229.set     +++|          OAM.   EDHE,CH
03797  M01S03230.set     +++|          RJM    CDI         CHECK DISPLAY INDEX
03798  M01S03231.set     +++|          RJM    GTL         GENERATE LINE
03799  M01S03232.set     +++|          ZJN    GTDX        IF NO MORE MASS STORAGE
03800  M01S03233.set     +++|          STD    T2
03801  M01S03234.set     +++|          LCN    YINC        ADJUST Y-COORDINATE
03802  M01S03235.set     +++|          RAD    YY
03803  M01S03236.set     +++|          LDC    GTL         CHANGE PROCESSOR ADDRESS
03804  M01S03237.set     +++|          STD    PA
03805  M01S03238.set     +++|          LDD    T2
03806  M01S03239.set     +++|          UJN    GTDX        RETURN
03807  M01S03240.set     +++| GTL      SPACE  4,15
03808  M01S03241.set     +++|**        GTL - GENERATE MASS STORAGE ERROR THRESHOLD LINE.
03809  M01S03242.set     +++|*
03810  M01S03243.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03811  M01S03244.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03812  M01S03245.set     +++|*
03813  M01S03246.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03814  M01S03247.set     +++|*                    = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03815  M01S03248.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03816  M01S03249.set     +++|*                (LBUF) = DISPLAY LINE.
03817  M01S03250.set     +++|*
03818  M01S03251.set     +++|*         USES   BA.
03819  M01S03252.set     +++|*
03820  M01S03253.set     +++|*         CALLS  D4S, IML.
03821  M01S03254.set     +++|
03822  M01S03255.set     +++|
03823  M01S03256.set     +++| GTL      SUBR               ENTRY/EXIT
03824  M01S03257.set     +++|          RJM    IML
03825  M01S03258.set     +++|          ZJN    GTLX        IF NO MORE MASS STORAGE EQUIPMENT
03826  M01S03259.set     +++|          LDM    MSTB+DVNT
03827  M01S03260.set     +++|          RJM    D4S         CONVERT TRACK COUNT
03828  M01S03261.set     +++|          LDN    0
03829  M01S03262.set     +++|          STD    BA
03830  M01S03263.set     +++| GTL1     LDM    MSTB+DVTH,BA  CONVERT THRESHOLD VALUE
03831  M01S03264.set     +++|          RJM    D4S
03832  M01S03265.set     +++|          AOD    BA          ADVANCE INDEX
03833  M01S03266.set     +++|          LMN    5
03834  M01S03267.set     +++|          NJN    GTL1        IF MORE ERROR LIMITS
03835  M01S03268.set     +++|          LDD    T2
03836  M01S03269.set     +++|          SBN    YY
03837  M01S03270.set     +++|          UJP    GTLX        RETURN
03838  M01S03271.set     +++| IEL      SPACE  4,10
03839  M01S03272.set     +++|**        IEL - INITIALIZE EQUIPMENT DISPLAY LINE.
03840  M01S03273.set     +++|*
03841  M01S03274.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03842  M01S03275.set     +++|*                (WB - WB+4) = EST DATA.
03843  M01S03276.set     +++|*
03844  M01S03277.set     +++|*         EXIT   (A) = 0 IF EQUIPMENT UNDEFINED.
03845  M01S03278.set     +++|*                (T2) = *LBUF* ADDRESS FOR CONTINUED ASSEMBLY.
03846  M01S03279.set     +++|*
03847  M01S03280.set     +++|*         CALLS  CLB, D4S.
03848  M01S03281.set     +++|
03849  M01S03282.set     +++|
03850  M01S00031.284l847 +++| IEL3     LDN    2           ADVANCE PAST PARTITION FIELD
03851  M01S00032.284l847 +++|          RAD    T2
03852  M01S00033.284l847 +++|
03853  M01S03283.set     +++| IEL      SUBR               ENTRY/EXIT
03854  M01S03284.set     +++|          RJM    CLB
03855  M01S03285.set     +++|          LDD    T1          CONVERT EST ORDINAL
03856  M01S03286.set     +++|          RJM    D4S
03857  M01S03287.set     +++|          LDD    WB+3        SET EQUIPMENT MNEMONIC
03858  M01S03288.set     +++|          ZJN    IELX        IF EQUIPMENT UNDEFINED
03859  M01S03289.set     +++|          STI    T2
03860  M01S03290.set     +++|          LDN    2           ADVANCE ASSEMBLY ADDRESS
03861  M01S03291.set     +++|          RAD    T2
03862  M01S00034.284l847 +++|          LDD    WB
03863  M01S00035.284l847 +++|          SHN    21-13
03864  M01S00036.284l847 +++|          PJN    IEL3        IF NOT MASS STORAGE
03865  M01S00037.284l847 +++|          SHN    21-5-21+13
03866  M01S00038.284l847 +++|          PJN    IEL3        IF NOT BUFFERED DEVICE
03867  M01S00039.284l847 +++|          LDM    ESTB+3
03868  M01S00040.284l847 +++|          SHN    21-13
03869  M01S00041.284l847 +++|          PJN    IEL3        IF NO PARTITION NUMBER
03870  M01S00042.284l847 +++|          SHN    21-11-21+13
03871  M01S00043.284l847 +++|          MJN    IEL2        IF DOUBLE DIGIT PARTITION NUMBER
03872  M01S00044.284l847 +++|          SHN    0-16
03873  M01S00045.284l847 +++|          RJM    C1D         CONVERT 1 OCTAL DIGIT
03874  M01S00046.284l847 +++| IEL1     UJN    IELX        RETURN
03875  M01S00047.284l847 +++|
03876  M01S00048.284l847 +++| IEL2     SHN    4
03877  M01S00049.284l847 +++|          LPN    17
03878  M01S00050.284l847 +++|          RJM    C2D         DISPLAY 2 OCTAL DIGITS
Line S03292 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03879  M02S03292.284l847 ---|          UJN    IELX        RETURN
03880  M01S00051.284l847 +++|          UJN    IEL1        RETURN
03881  M01S03293.set     +++| IML      SPACE  4,10
03882  M01S03294.set     +++|**        IML - INITIALIZE MASS STORAGE DISPLAY LINE.
03883  M01S03295.set     +++|*
03884  M01S03296.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03885  M01S03297.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03886  M01S03298.set     +++|*
03887  M01S03299.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03888  M01S03300.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03889  M01S03301.set     +++|*
03890  M01S03302.set     +++|*         CALLS  IEL, REP.
03891  M01S03303.set     +++|
03892  M01S03304.set     +++|
03893  M01S03305.set     +++| IML2     RJM    IEL         INITIALIZE DISPLAY LINE
03894  M01S03306.set     +++|
03895  M01S03307.set     +++| IML      SUBR               ENTRY/EXIT
03896  M01S03308.set     +++| IML1     RJM    REP
03897  M01S03309.set     +++|          NJN    IML2        IF MASS STORAGE EQUIPMENT FOUND
03898  M01S03310.set     +++|          AOD    T1
03899  M01S03311.set     +++|          LMD    EW
03900  M01S03312.set     +++|          NJN    IML1        IF MORE EQUIPMENT TO CHECK
03901  M01S03313.set     +++|*         LDN    0
03902  M01S03314.set     +++|          UJN    IMLX        RETURN
03903  M01S03315.set     +++| REP      SPACE  4,10
03904  M01S03316.set     +++|**        REP - READ EQUIPMENT PARAMETERS.
03905  M01S03317.set     +++|*
03906  M01S03318.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03907  M01S03319.set     +++|*
03908  M01S03320.set     +++|*         EXIT   (A) = 0 IF NOT MASS STORAGE.
03909  M01S03321.set     +++|*                (WB - WB+4) = EST DATA.
03910  M01S03322.set     +++|*                (MSTB) = MST DATA IF MASS STORAGE.
03911  M01S03323.set     +++|
03912  M01S03324.set     +++|
03913  M01S03325.set     +++| REP      SUBR               ENTRY/EXIT
03914  M01S03326.set     +++|          LDD    EA
03915  M01S03327.set     +++|          SHN    5
03916  M01S03328.set     +++|          ADD    T1          FETCH EST DATA
03917  M01S03329.set     +++|          SHN    1
03918  M01S00052.284l847 +++|          ADK    EQDE
03919  M01S03330.set     +++|          CRD    WB
03920  M01S00053.284l847 +++|          ADK    EQAE-EQDE
03921  M01S00054.284l847 +++|          CRM    ESTB,ON
03922  M01S03331.set     +++|          LDD    WB
03923  M01S03332.set     +++|          SHN    0-13
03924  M01S03333.set     +++|          ZJN    REPX        IF NOT MASS STORAGE
03925  M01S03334.set     +++|          LDD    MA
03926  M01S03335.set     +++|          SHN    4
03927  M01S03336.set     +++|          ADD    T1
03928  M01S03337.set     +++|          SHN    2
Line S03338 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03929  M02S03338.284l847 ---|          ERRNZ  TDDCL-4     CODE DEPENDS ON VALUE OF TAG
Line S03339 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03930  M02S03339.284l847 ---|          CRM    MSTB,FR
03931  M01S00055.284l847 +++|          ADD    T1
03932  M01S00056.284l847 +++|          ERRNZ  TDDCL-5     CODE DEPENDS ON VALUE OF TAG
03933  M01S00057.284l847 +++|          CRM    MSTB,DV
03934  M01S03340.set     +++|          UJN    REPX        RETURN
03935  M01S03341.set     +++| RNB      SPACE  4,10
03936  M01S03342.set     +++|**        RNB - READ NEXT BLOCK.
03937  M01S03343.set     +++|*
03938  M01S03344.set     +++|*         ENTRY  (A) = 0 IF READ INITIATED.
03939  M01S03345.set     +++|*                (WC) = WORD COUNT OF PREVIOUS BLOCK.
03940  M01S03346.set     +++|*
03941  M01S03347.set     +++|*         EXIT   (A) = (WC) = BLOCK SIZE (CM WORD COUNT).
03942  M01S03348.set     +++|
03943  M01S03349.set     +++|
03944  M01S03350.set     +++| RNB2     LDN    0           INDICATE EOR
03945  M01S03351.set     +++|
03946  M01S03352.set     +++| RNB      SUBR               ENTRY/EXIT
03947  M01S03353.set     +++|          ZJN    RNB1        IF READ INITIATED
03948  M01S03354.set     +++|          LDD    WC
03949  M01S03355.set     +++|          LMC    TPLN/5
03950  M01S03356.set     +++|          NJN    RNB2        IF EOR
03951  M01S03357.set     +++|          ACN    TC
03952  M01S03358.set     +++|          LDN    RTBF        INITIATE READ
03953  M01S03359.set     +++|          OAN    TC
03954  M01S03360.set     +++|          AJM    *,TC        WAIT FUNCTION ACCEPT
03955  M01S03361.set     +++| RNB1     ACN    TC
03956  M01S03362.set     +++|          IAN    TC          INPUT WORD COUNT
03957  M01S03363.set     +++|          STD    WC
03958  M01S03364.set     +++|          UJN    RNBX        RETURN
03959  M01S03365.set     +++| RTL      SPACE  4,10
03960  M01S03366.set     +++|**        RTL - READ TEXT LINE.
03961  M01S03367.set     +++|*
03962  M01S03368.set     +++|*         ENTRY  (T1) = LINE NUMBER.
03963  M01S03369.set     +++|*                (DB) = DISPLAY BUFFER INDEX.
03964  M01S03370.set     +++|*                (YY) = Y-COORDINATE FOR LINE.
03965  M01S03371.set     +++|*
03966  M01S03372.set     +++|*         EXIT   (A) = LINE LENGTH (INCLUDING COORDINATES)
03967  M01S03373.set     +++|*                    .LT. 0 IF FORMAT EFFECTOR ENCOUNTERED.
03968  M01S03374.set     +++|*                (LBUF) = LINE IMAGE.
03969  M01S03375.set     +++|
03970  M01S03376.set     +++|
03971  M01S03377.set     +++| RTL1     LDN    1R -1R1     REMOVE FORMAT EFFECTOR
03972  M01S03378.set     +++|          SHN    6
03973  M01S03379.set     +++|          RAM    LBUF
03974  M01S03380.set     +++| RTL2     LDN    LBUFL+1+2   SET LINE LENGTH
03975  M01S03381.set     +++|
03976  M01S03382.set     +++| RTL      SUBR               ENTRY/EXIT
03977  M01S03383.set     +++|          LDM    TDBP+1,DB
03978  M01S03384.set     +++|          SHN    3
03979  M01S03385.set     +++|          ADD    T1          READ REQUEST LINE
03980  M01S03386.set     +++|          SHN    3
03981  M01S03387.set     +++|          CRM    LBUF,SX
03982  M01S03388.set     +++|          LDD    DB
03983  M01S03389.set     +++|          NJN    RTL2        IF NOT INSTRUCTION DISPLAY
03984  M01S03390.set     +++|          LDM    LBUF
03985  M01S03391.set     +++|          SHN    -6          CHECK LINE
03986  M01S03392.set     +++|          LMN    1R1
03987  M01S03393.set     +++|          NJN    RTL2        IF NO FORMAT EFFECTOR
03988  M01S03394.set     +++|          LDD    YY
03989  M01S03395.set     +++|          SBK    BL01
03990  M01S03396.set     +++|          ZJN    RTL1        IF TOP OF DISPLAY
03991  M01S03397.set     +++|*         LCN    0
03992  M01S03398.set     +++|          UJN    RTLX        RETURN
03993  M01S03399.set     +++| SBS      SPACE  4,10
03994  M01S03400.set     +++|**        SBS - SET BIT STATUS.
03995  M01S03401.set     +++|*
03996  M01S03402.set     +++|*         ENTRY  DISPLAY HARDWARE POSTIIONED AT DESIRED LOCATION.
03997  M01S03403.set     +++|*                (A) = ADDRESS OF LETTER TABLE.  TABLE MUST BE
03998  M01S03404.set     +++|*                      TERMINATED BY A ZERO WORD.
03999  M01S03405.set     +++|*                (T0) = BIT STATUS LEFT JUSTIFIED.
04000  M01S03406.set     +++|*                (T2) = ADDRESS TO STORE BIT STATUS.
04001  M01S03407.set     +++|*
04002  M01S03408.set     +++|*         USES   BA, FP, T0, T2.
04003  M01S03409.set     +++|
04004  M01S03410.set     +++|
04005  M01S03411.set     +++| SBS1     LPC    0
04006  M01S03412.set     +++| SBSA     EQU    *-1
04007  M01S03413.set     +++|          LMC    2R--        FORM LETTER IF BIT ON OR *-* IF BIT OFF
04008  M01S03414.set     +++|          STI    T2
04009  M01S03415.set     +++|          AOD    FP          ADVANCE BIT INDEX
04010  M01S03416.set     +++|          AOD    T2          ADVANCE ADDRESS
04011  M01S03417.set     +++| SBS2     LDD    T0          POSITION NEXT 2 BITS
04012  M01S03418.set     +++|          SHN    2
04013  M01S03419.set     +++|          STD    T0
04014  M01S03420.set     +++|          SHN    -14         GET NEXT 2 BITS
04015  M01S03421.set     +++|          STD    BA
04016  M01S03422.set     +++|          LDM    SBSB,BA     GET MASK
04017  M01S03423.set     +++|          STM    SBSA
04018  M01S03424.set     +++|          LDI    FP
04019  M01S03425.set     +++|          NJN    SBS1        IF NOT END OF TABLE
04020  M01S03426.set     +++|
04021  M01S03427.set     +++| SBS      SUBR               ENTRY/EXIT
04022  M01S03428.set     +++|          STD    FP          SAVE TABLE ADDRESS
04023  M01S03429.set     +++|          UJN    SBS2        POSITION BITS
04024  M01S03430.set     +++|
04025  M01S03431.set     +++|
04026  M01S03432.set     +++| SBSB     CON    0000        --
04027  M01S03433.set     +++|          CON    0077        -X
04028  M01S03434.set     +++|          CON    7700        X-
04029  M01S03435.set     +++|          CON    7777        XX
04030  M01S03436.set     +++| SCT      SPACE  4,10
04031  M01S03437.set     +++|**        SCT - SEARCH CONTROLWARE TABLE.
04032  M01S03438.set     +++|*
04033  M01S03439.set     +++|*         ENTRY  (A) = EQUIPMENT TYPE (DEVICE MNEMONIC).
04034  M01S03440.set     +++|*
04035  M01S03441.set     +++|*         EXIT   (A) = (T2) = CONTROLWARE TYPE ADDRESS IN *TDCW*.
04036  M01S03442.set     +++|*                    = 0 IF ENTRY NOT FOUND.
04037  M01S03443.set     +++|*
04038  M01S03444.set     +++|*         USES   T2.
04039  M01S03445.set     +++|
04040  M01S03446.set     +++|
04041  M01S03447.set     +++| SCT1     LDN    2           ADVANCE TABLE ADDRESS
04042  M01S03448.set     +++|          RAD    T2
04043  M01S03449.set     +++| SCT2     LDI    T2          CHECK ENTRY
04044  M01S03450.set     +++|          ZJN    SCTX        IF END OF TABLE
04045  M01S03451.set     +++|          LMD    T0          COMPARE DEVICE TYPE
04046  M01S03452.set     +++|          NJN    SCT1        IF NO MATCH
04047  M01S03453.set     +++|          AOD    T2
04048  M01S03454.set     +++|
04049  M01S03455.set     +++| SCT      SUBR               ENTRY/EXIT
04050  M01S03456.set     +++|          STD    T0
04051  M01S03457.set     +++|          LDC    TDCW        SET TABLE ADDRESS
04052  M01S03458.set     +++|          STD    T2
04053  M01S03459.set     +++|          UJN    SCT2        ENTER LOOP
04054  M01S03460.set     +++| UTD      SPACE  4,15
04055  M01S03461.set     +++|**        UTD - UNPACK TEXT DECK.
04056  M01S03462.set     +++|*
04057  M01S03463.set     +++|*         ENTRY  (A) = ADDRESS OF BUFFER POINTER.
04058  M01S03464.set     +++|*
04059  M01S03465.set     +++|*         EXIT   (A) = LINE COUNT FOR DECK.
04060  M01S03466.set     +++|*                (LL) = LINE LIMIT FOR BUFFER.
04061  M01S03467.set     +++|*                (LN) = 0.
04062  M01S03468.set     +++|*
04063  M01S03469.set     +++|*         USES   BA, T1, T2, WC, WB - WB+4.
04064  M01S03470.set     +++|*
04065  M01S03471.set     +++|*         CALLS  RNB.
04066  M01S03472.set     +++|
04067  M01S03473.set     +++|
04068  M01S03474.set     +++| UTD1     LDD    WB+4
04069  M01S03475.set     +++|          NJN    UTD5        IF NOT END OF LINE
04070  M01S03476.set     +++|          CRD    WB
04071  M01S03477.set     +++| UTD2     LDI    T1          CHECK LINE COUNT
04072  M01S03478.set     +++|          LMD    LL
04073  M01S03479.set     +++|          ZJN    UTD5        IF BUFFER FULL
04074  M01S03480.set     +++|          LDI    BA
04075  M01S03481.set     +++|          SHN    3
04076  M01S03482.set     +++|          ADI    T1          STORE WORD
04077  M01S03483.set     +++|          SHN    3
04078  M01S03484.set     +++|          ADD    T2
04079  M01S03485.set     +++|          CWD    WB
04080  M01S03486.set     +++|          AOD    T2          ADVANCE WORD COUNT
04081  M01S03487.set     +++|          LMN    6
04082  M01S03488.set     +++|          NJN    UTD1        IF NOT SIX WORDS
04083  M01S03489.set     +++|          STD    T2
04084  M01S03490.set     +++|          AOI    T1          ADVANCE LINE COUNT
04085  M01S03491.set     +++|          LDD    WB+4
04086  M01S03492.set     +++|          ZJN    UTD5        IF END OF LINE
04087  M01S03493.set     +++| UTD3     LDN    5           SKIP NEXT WORD
04088  M01S03494.set     +++|          IAM    WB,TC
04089  M01S03495.set     +++|          ZJN    UTD4        IF NOT END OF DATA
04090  M01S03496.set     +++|          RJM    RNB
04091  M01S03497.set     +++| UTD4     LDD    WB+4
04092  M01S03498.set     +++|          NJN    UTD3        IF NOT END OF LINE
04093  M01S03499.set     +++| UTD5     LDN    5           INPUT NEXT WORD
04094  M01S03500.set     +++|          IAM    WB,TC
04095  M01S03501.set     +++|          ZJN    UTD2        IF NOT END OF DATA
04096  M01S03502.set     +++| UTD6     RJM    RNB
04097  M01S03503.set     +++|          NJN    UTD5        IF NOT EMPTY PRU
04098  M01S03504.set     +++|          LDI    T1
04099  M01S03505.set     +++|          OAN    BC          OUTPUT LINE COUNT FOR DECK
04100  M01S03506.set     +++|          DCN    BC
04101  M01S03507.set     +++|
04102  M01S03508.set     +++| UTD      SUBR               ENTRY/EXIT
04103  M01S03509.set     +++|          STD    BA
04104  M01S03510.set     +++|          ADN    FW-FA       SET LINE COUNTER ADDRESS
04105  M01S03511.set     +++|          STD    T1
04106  M01S03512.set     +++|          LDD    BL          SET LINE LIMIT FOR BUFFER
04107  M01S03513.set     +++|          SBI    BA
04108  M01S03514.set     +++|          SHN    3
04109  M01S03515.set     +++|          STD    LL
04110  M01S03516.set     +++|          LDN    0           CLEAR LINE COUNT
04111  M01S03517.set     +++|          STD    T2
04112  M01S03518.set     +++|          STI    T1
04113  M01S03519.set     +++|          STD    WB+4
04114  M01S03520.set     +++|          STM    FI-FW,T1    CLEAR BUFFER INDEX
04115  M01S03521.set     +++|          STD    LN
04116  M01S03522.set     +++|          UJN    UTD6        ENTER LOOP
04117  M01S03523.set     +++|          SPACE  4,10
04118  M01S03524.set     +++|**        DISPLAY HEADERS.
04119  M01S03525.set     +++|
04120  M01S03526.set     +++|
04121  M01S03527.set     +++| DHDR     CON    HL03,CH01
04122  M01S03528.set     +++|          BSS    5
04123  M01S03529.set     +++| DHDRL    EQU    *-DHDR
04124  M01S03530.set     +++|
04125  M01S03531.set     +++| EDHA     CON    YCPH,CH02
04126  M01S03532.set     +++|          DATA   H*EQUIPMENT STATUS*
04127  M01S03533.set     +++|          CON    YCSH,CH02
Line S03534 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04128  M02S03534.284l847 ---|          DATA   H*EST TYPE  ST  EQ UN  CHANNELS-PORTS*
04129  M01S00058.284l847 +++|          DATA   H*EST TYPE  PN  ST  EQ   UN  CHANNELS-PORTS*
04130  M01S03535.set     +++| EDHAA    EQU    *-EDHA
04131  M01S03536.set     +++|
04132  M01S03537.set     +++| EDHB     CON    YCPH,CH02
04133  M01S03538.set     +++|          DATA   H*MASS STORAGE STATUS*
04134  M01S03539.set     +++|          CON    YCSH,CH02
Line S03540 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04135  M02S03540.284l847 ---|          DATA   H*EST TYPE    STATUS         FILES*
04136  M01S00059.284l847 +++|          DATA   H*EST TYPE  PN     STATUS          FILES*
04137  M01S03541.set     +++| EDHBA    EQU    *-EDHB
04138  M01S03542.set     +++|
04139  M01S03543.set     +++| EDHC     CON    YCPH,CH02
04140  M01S03544.set     +++|          DATA   H*MASS STORAGE INITIALIZATION STATUS*
04141  M01S03545.set     +++|          CON    YCSH,CH02
Line S03546 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04142  M02S03546.284l847 ---|          DATA   H*EST TYPE OPTIONS   T  IAM   DAM    FM/PN*
Line S03547 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04143  M02S03547.284l847 ---|          DATA   H*   DN    NC*
04144  M01S00060.284l847 +++|          DATA   H*EST TYPE  PN OPTIONS   T  IAM   DAM    FM/PK*
04145  M01S00061.284l847 +++|          DATA   H*   DN    NC*
04146  M01S03548.set     +++| EDHCA    EQU    *-EDHC
04147  M01S03549.set     +++|
04148  M01S03550.set     +++| EDHD     CON    YCPH,CH02
04149  M01S03551.set     +++|          DATA   H*CONTROLWARE STATUS*
04150  M01S03552.set     +++|          CON    YCSH,CH02
04151  M01S03553.set     +++|          DATA   H*CHANNEL   CONTROLWARE*
04152  M01S03554.set     +++| EDHDA    EQU    *-EDHD
04153  M01S03555.set     +++|
04154  M01S03556.set     +++| EDHE     CON    YCPH,CH02
04155  M01S03557.set     +++|          DATA   H*MASS STORAGE ERROR THRESHOLDS*
04156  M01S03558.set     +++|          CON    YCSH,CH02
Line S03559 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04157  M02S03559.284l847 ---|          DATA   H*EST TYPE  NT    VF    RA    LS    RE    UE*
04158  M01S00062.284l847 +++|          DATA   H*EST TYPE  PN   NT    VF    RA    LS    RE    UE*
04159  M01S03560.set     +++| EDHEA    EQU    *-EDHE
04160  M01S03561.set     +++|          SPACE  4,10
04161  M01S03562.set     +++|*         DISPLAY BUFFERS.
04162  M01S03563.set     +++|
04163  M01S03564.set     +++| DIS      HERE
Line S03565 Modification History
M01 (Added by) set
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04164  M02S03565.284l847 ---| MSTB     EQU    *           MASS STORAGE DESCRIPTOR TABLE BUFFER
04165  M01S00063.284l847 +++| ESTB     EQU    *           SECOND WORD OF EST ENTRY FOR DISPLAY
04166  M01S00064.284l847 +++| MSTB     EQU    ESTB+5      MASS STORAGE DESCRIPTOR TABLE BUFFER
04167  M01S03566.set     +++| TCCS     EQU    MSTB+TDDEL  CONTROLWARE TYPES TO LOAD
04168  M01S03567.set     +++|          SPACE  4,10
04169  M01S03568.set     +++| LBUFL    EQU    KBUFL/2     LINE BUFFER LENGTH
04170  M01S03569.set     +++|          ERRNZ  KBUFL-60D   CODE DEPENDS ON VALUE
04171  M01S03570.set     +++|          LOC    *O
04172  M01S03571.set     +++|          QUAL   *
04173  M01S03572.set     +++| IBUFL    EQU    *-IBUF
04174  M01S03573.set     +++|          SPACE  4,10
04175  M01S03574.set     +++|*         CHANNEL TABLES.
04176  M01S03575.set     +++|
04177  M01S03576.set     +++|
04178  M01S03577.set     +++|          CHTB   TC
04179  M01S03578.set     +++|          CHTB   BC
04180  M01S03579.set     +++|          CHTB   AC
04181  M01S03580.set     +++|          SPACE  4,10
04182  M01S03581.set     +++|*         INSTRUCTION MODIFICATION BLOCK.
04183  M01S03582.set     +++|
04184  M01S03583.set     +++|
04185  M01S03584.set     +++|          DIMB
04186  M01S03585.set     +++|          SPACE  4,10
04187  M01S03586.set     +++|          ERRNG  MBUF-*      *SET* OVERFLOWS INTO MOVE BUFFER
04188  M01S03587.set     +++|          SPACE  4,10
04189  M01S03588.set     +++|*         RESTORE I/O INSTRUCTIONS.
04190  M01S03589.set     +++|
04191  M01S03590.set     +++|
04192  M01S03591.set     +++|          RSTC
04193  M01S03592.set     +++|          SPACE  4,10
04194  M01S03593.set     +++| .DSE     SET    0
04195  M01S03594.set     +++| .ILL     SET    0
04196  M01S03595.set     +++| .KBR     SET    0
04197  M01S03596.set     +++|          TTL    SET/CMR - SET SYSTEM CONFIGURATION.
04198  M01S03597.set     +++|          TITLE
04199  M01S03598.set     +++|          IDENT  CMR,OVL
04200  M01S03599.set     +++|          QUAL   CMR
04201  M01S03600.set     +++|          ORG    OVL
04202  M01S03601.set     +++|*COMMENT  SET - SET SYSTEM CONFIGURATION.
Line S03602 Modification History
M01 (Added by) set
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04203  M02S03602.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
04204  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04205  M01S03603.set     +++| MACROS   SPACE  4,10
04206  M01S03604.set     +++|**        MACRO DEFINITIONS.
04207  M01S03605.set     +++|
04208  M01S03606.set     +++|
04209  M01S03607.set     +++| MTLN     SPACE  4,10
04210  M01S03608.set     +++|**        MTLN - GENERATE TAGGED LIST OF MANAGED TABLE ENTRY COUNTS.
04211  M01S03609.set     +++|*
04212  M01S03610.set     +++|*N        MTLN   I,L
04213  M01S03611.set     +++|*                N = TABLE NAME.
04214  M01S03612.set     +++|*                I = MANAGED TABLE IDENTIFIER.
04215  M01S03613.set     +++|*                L = DEFAULT NUMBER OF ENTRIES.
04216  M01S03614.set     +++|
04217  M01S03615.set     +++|
04218  M01S03616.set     +++|          MACRO  MTLN,N,I,L
04219  M01S03617.set     +++| .A       IFC    NE,*N**
04220  M01S03618.set     +++| N        BSS    0
04221  M01S03619.set     +++| .2       SET    N
04222  M01S03620.set     +++| TT       MICRO  1,3, N
04223  M01S03621.set     +++| .A       ELSE
04224  M01S03622.set     +++| .B       IFC    NE,*I**
04225  M01S03623.set     +++| .I       EQU    *-.2
04226  M01S03624.set     +++|          CON    L
04227  M01S03625.set     +++|          ENDIF
04228  M01S03626.set     +++|          ENDM
04229  M01S03627.set     +++|          SPACE  4,10
04230  M01S00148.274l797 +++|**        MAINTENANCE REGISTER REQUEST CODE SYMBOLS.
04231  M01S00149.274l797 +++|
04232  M01S00150.274l797 +++|          QUAL
04233  M01S00151.274l797 +++|
04234  M01S00152.274l797 +++| RMRF     EQU    /IOU/MRRD-/IOU/MRRD     READ
04235  M01S00153.274l797 +++| WMRF     EQU    /IOU/MRWT-/IOU/MRRD     WRITE
04236  M01S00154.274l797 +++|
04237  M01S00155.274l797 +++|          QUAL   *
04238  M01S00156.274l797 +++| NVECPU   SPACE  4,10
04239  M01S03628.set     +++|**        NVECPU - SUBROUTINES TO RESERVE CPU1 FOR NOS/VE.
04240  M01S03629.set     +++|*
04241  M01S03630.set     +++|*         THIS MACRO PROVIDES COMMON CODE FOR *CMR* AND *RCM*.
04242  M01S03631.set     +++|
04243  M01S03632.set     +++|
Line S03633 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04244  M02S03633.274l797 ---|          QUAL
Line S03634 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04245  M02S03634.274l797 ---|          SPACE  4,10
Line S03635 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04246  M02S03635.274l797 ---|**        MAINTENANCE REGISTER REQUEST CODE SYMBOLS.
04247  M01S00157.274l797 +++| NVECPU   MACRO
04248  M01S00158.274l797 +++|          LIST   G
04249  M01S03636.set     +++|
04250  M01S03637.set     +++|
Line S03638 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04251  M02S03638.274l797 ---| RMRF     EQU    /IOU/MRRD-/IOU/MRRD     READ
Line S03639 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04252  M02S03639.274l797 ---| WMRF     EQU    /IOU/MRWT-/IOU/MRRD     WRITE
Line S00006 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04253  M03S00006.274l797 ---| RWRSUB   SPACE  4,10
Line S00007 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04254  M03S00007.274l797 ---| RWRSUB   MACRO
Line S00008 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04255  M03S00008.274l797 ---| RWR      SPACE  4,10
Line S00009 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04256  M03S00009.274l797 ---|**        READ / WRITE MAINTENANCE REGISTER.
Line S00010 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04257  M03S00010.274l797 ---|*
Line S00011 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04258  M03S00011.274l797 ---|*         ENTRY  (A) = *RMRF* TO READ REGISTER,
Line S00012 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04259  M03S00012.274l797 ---|*                    = *WMRF* TO WRITE REGISTER.
Line S00013 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04260  M03S00013.274l797 ---|*                (T4) = REGISTER NUMBER.
Line S00014 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04261  M03S00014.274l797 ---|*
Line S00015 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04262  M03S00015.274l797 ---|*         EXIT   (RBUF) = REGISTER CONTENTS.
Line S00016 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04263  M03S00016.274l797 ---|
Line S00017 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04264  M03S00017.274l797 ---|
Line S00018 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04265  M03S00018.274l797 ---| RWR      SUBR               ENTRY/EXIT
Line S00019 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04266  M03S00019.274l797 ---|          FAN.   MR          FUNCTION MAINTENANCE CHANNEL
Line S00020 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04267  M03S00020.274l797 ---|          LPN    20
Line S00021 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04268  M03S00021.274l797 ---|          ERRNZ  RMRF+20-WMRF CODE DEPENDS ON VALUE
Line S00022 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04269  M03S00022.274l797 ---|          SHN    3
Line S00023 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04270  M03S00023.274l797 ---|          LMC    IAMI+MR     FORM I/O INSTRUCTION
Line S00024 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04271  M03S00024.274l797 ---|          STM    RWRA
Line S00025 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04272  M03S00025.274l797 ---|          ACN.   MR
Line S00026 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04273  M03S00026.274l797 ---|          LDN    0
Line S00027 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04274  M03S00027.274l797 ---|          OAN.   MR          SEND REGISTER NUMBER
Line S00028 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04275  M03S00028.274l797 ---|          LDD    T4
Line S00029 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04276  M03S00029.274l797 ---|          OAN.   MR
Line S00030 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04277  M03S00030.274l797 ---|          FJM.   *,MR        IF CHANNEL BUSY
Line S00031 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04278  M03S00031.274l797 ---|          DCN.   MR
Line S00032 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04279  M03S00032.274l797 ---|          ACN.   MR          READ / WRITE REGISTER
Line S00033 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04280  M03S00033.274l797 ---|          LDN    10
Line S00034 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04281  M03S00034.274l797 ---| RWRA     IAM.   RBUF,MR
Line S00035 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04282  M03S00035.274l797 ---|          UJP    RWRX        RETURN
Line S00036 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04283  M03S00036.274l797 ---|
Line S00037 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04284  M03S00037.274l797 ---|
Line S00038 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04285  M03S00038.274l797 ---| RBUF     EQU    MBUF+MBUFL-10
Line S00039 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04286  M03S00039.274l797 ---| RWRSUB   ENDM
Line S03640 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04287  M02S03640.274l797 ---| NVECPU   SPACE  4,10
Line S03641 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04288  M02S03641.274l797 ---| NVECPU   MACRO
Line S00040 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04289  M03S00040.274l797 ---|          RWRSUB
Line S03642 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04290  M02S03642.274l797 ---| RPN      SPACE  4,10
04291  M01S00159.274l797 +++|
04292  M01S00160.274l797 +++|
04293  M01S03643.set     +++|**        RESERVE PROCESSOR FOR NOS/VE.
04294  M01S03644.set     +++|*
Line S03645 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04295  M02S03645.271l739 ---|*         USES   T5, CM - CM+4.
Line S00041 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04296  M02S00041.ns2709  ---|*         USES   T4, T5, CM - CM+4.
04297  M01S00001.ns2709  +++|*         USES   T5, CM - CM+4.
04298  M01S03646.set     +++|*
04299  M01S03647.set     +++|*         CALLS  RWR.
Line S00042 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04300  M02S00042.ns2709  ---|*
Line S00043 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04301  M02S00043.ns2709  ---|*         MACROS RWRSUB.
04302  M01S03648.set     +++|
04303  M01S03649.set     +++|
04304  M01S03650.set     +++| RPN4     CCF.   *+2,MR      CLEAR CHANNEL FLAG
04305  M01S03651.set     +++|
04306  M01S03652.set     +++| RPN      SUBR               ENTRY/EXIT
04307  M01S03653.set     +++|          LDM    .CPU
04308  M01S03654.set     +++| RPN1     LPN    2
04309  M01S03655.set     +++|          ADM    C8XX
04310  M01S03656.set     +++|          NJN    RPNX        IF NOT DUAL STATE DUAL CPU MAINFRAME
Line S03657 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04311  M02S03657.ns2779  ---|          SCF.   RPN1,MR
04312  M01S00002.ns2779  +++|          SCF.   RPN1,MR     SET CHANNEL FLAG
04313  M01S03658.set     +++|          LDM    ISPF
04314  M01S03659.set     +++|          SHN    0-13
04315  M01S03660.set     +++|          STD    T5          FORM REGISTER INDEX
04316  M01S03661.set     +++|          SHN    1
04317  M01S03662.set     +++|          RAD    T5
Line S03663 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04318  M02S03663.271l750 ---|          NJN    RPN2        IF NOT CYBER 180 - 810/815/825/830
Line S03664 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04319  M02S03664.271l750 ---|          LDD    HO
04320  M01S00094.271l750 +++|          ZJN    RPN1.1      IF CYBER 180 - 810/815/825/830
Line S00095 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04321  M02S00095.ns2779  ---|          LDM    DCPC
Line S00096 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04322  M02S00096.ns2779  ---|          ZJN    RPN2        IF NOT DUAL 170-STATE CPUS WITH CACHE
04323  M01S00003.ns2779  +++|
04324  M01S00004.ns2779  +++|*         PROCESS LEVEL 3 DEADSTART.
04325  M01S00005.ns2779  +++|
04326  M01S00006.ns2779  +++| .RCM     IF     DEF,RCM
04327  M01S00007.ns2779  +++|          LDC    EIBP
04328  M01S00008.ns2779  +++|          CRD    CM
04329  M01S00009.ns2779  +++|          LDD    CM
04330  M01S00010.ns2779  +++|          SHN    21-12
04331  M01S00011.ns2779  +++|          PJN    RPN2        IF NOT DUAL 170-STATE CPUS WITH CACHE
04332  M01S00012.ns2779  +++|          LDD    CM
04333  M01S00013.ns2779  +++|          LPC    2177        CLEAR MONITOR, NVE AND CACHE PURGE FLAGS
04334  M01S00014.ns2779  +++|          STD    CM
04335  M01S00015.ns2779  +++|          LDC    EIBP
04336  M01S00016.ns2779  +++|          CWD    CM
04337  M01S00017.ns2779  +++|          UJN    RPN3        CLEAR CHANNEL FLAG AND RETURN
04338  M01S00018.ns2779  +++|
04339  M01S00097.271l750 +++| RPN1.1   LDD    HO
04340  M01S03665.set     +++|          LPN    1
Line S03666 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04341  M02S03666.ns2779  ---|          NJN    RPN4        IF FIRST CPU OFF
Line S03667 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04342  M02S03667.ns2779  ---| .A       IF     DEF,RCM
04343  M01S00019.ns2779  +++|          NJN    RPN3        IF FIRST CPU OFF
04344  M01S03668.set     +++|          LDN    SSTL        PROCESS LEVEL 3 DEADSTART
04345  M01S03669.set     +++|          CRD    CM
04346  M01S03670.set     +++|          LDD    CM+3
04347  M01S03671.set     +++|          SHN    0-13
Line S03672 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04348  M02S03672.ns2779  ---|          NJN    RPN4        IF NOS/VE DISABLED
Line S03673 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04349  M02S03673.ns2779  ---| .A       ELSE
04350  M01S00020.ns2779  +++|          NJN    RPN3        IF NOS/VE DISABLED
04351  M01S00021.ns2779  +++|
04352  M01S00022.ns2779  +++|*         PROCESS LEVEL 0, 1 OR 2 DEADSTART.
04353  M01S00023.ns2779  +++|
04354  M01S00024.ns2779  +++| .RCM     ELSE
04355  M01S00025.ns2779  +++|          LDM    DCPC
04356  M01S00026.ns2779  +++|          ZJN    RPN2        IF NOT DUAL 170-STATE CPUS WITH CACHE
04357  M01S00027.ns2779  +++|          LDM    DCPN
04358  M01S00028.ns2779  +++|          NJN    RPN4        IF SECOND CPU DEDICATED TO NOS
04359  M01S00029.ns2779  +++| RPN1.1   LDD    HO
04360  M01S00030.ns2779  +++|          LPN    1
04361  M01S00031.ns2779  +++|          NJN    RPN4        IF FIRST CPU OFF
Line S03674 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
04362  M02S03674.ns2633  ---|          LDM    VEMZ
04363  M01S00002.ns2633  +++|          LDM    VEFL
Line S03675 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04364  M02S03675.ns2779  ---|          ZJN    RPN4        IF NOS/VE MEMORY SPACE UNDECLARED
04365  M01S00032.ns2779  +++|          ZJN    RPN3        IF NOS/VE MEMORY SPACE UNDECLARED
04366  M01S03676.set     +++|          LDD    HO
04367  M01S03677.set     +++|          LPN    2
Line S03678 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04368  M02S03678.ns2779  ---|          NJN    RPN4        IF SECOND CPU OFF
04369  M01S00033.ns2779  +++|          NJN    RPN3        IF SECOND CPU OFF
04370  M01S03679.set     +++|          LDM    P2CC
04371  M01S03680.set     +++|          LMK    /IOU/MRHP   HALT PROCESSOR
04372  M01S03681.set     +++|          FAN.   MR
04373  M01S03682.set     +++|          LDN    2
04374  M01S03683.set     +++|          RAD    HO
Line S03684 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04375  M02S03684.ns2779  ---| .A       ENDIF
04376  M01S00034.ns2779  +++| .RCM     ENDIF
04377  M01S00035.ns2779  +++|
04378  M01S00036.ns2779  +++|*         DISABLE PORT TO SECOND CPU.
04379  M01S00037.ns2779  +++|
Line S03685 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04380  M02S03685.271l739 ---| RPN2     LDK    RMRF        READ ENVIRONMENTAL CONTROL REGISTER
Line S00044 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04381  M02S00044.ns2709  ---| RPN2     LDK    /IOU/ECMR   SELECT ENVIRONMENT CONTROL REGISTER
Line S00045 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04382  M02S00045.ns2709  ---|          STD    T4
Line S00046 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04383  M02S00046.ns2709  ---|          LDK    RMRF        READ REGISTER
Line S00047 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04384  M02S00047.ns2709  ---|          LMM    CMCC
04385  M01S00002.ns2709  +++| RPN2     LDK    RMRF        READ ENVIRONMENTAL CONTROL REGISTER
04386  M01S03686.set     +++|          RJM    RWR
04387  M01S03687.set     +++|          DCN.   MR
04388  M01S03688.set     +++|          LDM    RBUF+1,T5   DISABLE PORT TO SECOND CPU
04389  M01S03689.set     +++|          SCN    40
04390  M01S03690.set     +++|          LMN    40
04391  M01S03691.set     +++|          STM    RBUF+1,T5
04392  M01S03692.set     +++|          LDK    WMRF        WRITE *EC* REGISTER
Line S00048 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
04393  M02S00048.ns2709  ---|          LMM    CMCC
04394  M01S03693.set     +++|          RJM    RWR
04395  M01S03694.set     +++|          FJM.   *,MR        WAIT CHANNEL EMPTY
04396  M01S03695.set     +++|          DCN.   MR
Line S03696 Modification History
M01 (Added by) set
M02 (Updated by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
04397  M02S03696.ns2779  ---|          LJM    RPN4        RETURN
04398  M01S00038.ns2779  +++| RPN3     LJM    RPN4        CLEAR CHANNEL FLAG AND RETURN
Line S00003 Modification History
M01 (Added by) ns2709
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04399  M02S00003.274l797 ---| RWR      SPACE  4,10
04400  M01S00161.274l797 +++|
04401  M01S00162.274l797 +++|
04402  M01S00163.274l797 +++|
04403  M01S00164.274l797 +++|
04404  M01S00004.ns2709  +++|**        READ / WRITE ENVIRONMENTAL CONTROL REGISTER.
04405  M01S00005.ns2709  +++|*
04406  M01S00006.ns2709  +++|*         ENTRY  (A) = *RMRF* TO READ REGISTER,
04407  M01S00007.ns2709  +++|*                    = *WMRF* TO WRITE REGISTER.
04408  M01S00008.ns2709  +++|*
04409  M01S00009.ns2709  +++|*         EXIT   (RBUF) = REGISTER CONTENTS.
04410  M01S00010.ns2709  +++|
04411  M01S00011.ns2709  +++|
04412  M01S00012.ns2709  +++| RWR      SUBR               ENTRY/EXIT
04413  M01S00013.ns2709  +++|          LMM    CMCC
04414  M01S00014.ns2709  +++|          FAN.   MR          FUNCTION MAINTENANCE CHANNEL
04415  M01S00015.ns2709  +++|          LPN    20
04416  M01S00016.ns2709  +++|          ERRNZ  RMRF+20-WMRF CODE DEPENDS ON VALUE
04417  M01S00017.ns2709  +++|          SHN    3
04418  M01S00018.ns2709  +++|          LMC    IAMI+MR     FORM I/O INSTRUCTION
04419  M01S00019.ns2709  +++|          STM    RWRA
04420  M01S00020.ns2709  +++|          ACN.   MR
04421  M01S00021.ns2709  +++|          LDN    0
04422  M01S00022.ns2709  +++|          OAN.   MR          SEND MEMORY *EC* REGISTER NUMBER
04423  M01S00023.ns2709  +++|          LDK    /IOU/ECMR
04424  M01S00024.ns2709  +++|          OAN.   MR
04425  M01S00025.ns2709  +++|          FJM.   *,MR        WAIT CHANNEL BUSY
04426  M01S00026.ns2709  +++|          DCN.   MR
04427  M01S00027.ns2709  +++|          ACN.   MR          READ / WRITE REGISTER
04428  M01S00028.ns2709  +++|          LDN    10
04429  M01S00029.ns2709  +++| RWRA     IAM.   RBUF,MR
04430  M01S00030.ns2709  +++|          UJP    RWRX        RETURN
04431  M01S00031.ns2709  +++|
04432  M01S00032.ns2709  +++|
04433  M01S00033.ns2709  +++| RBUF     EQU    MBUF+500-10
04434  M01S00165.274l797 +++|
04435  M01S00166.274l797 +++|          LIST   *
Line S03697 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04436  M02S03697.271l739 ---| RWR      SPACE  4,10
Line S03698 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04437  M02S03698.271l739 ---|**        READ / WRITE ENVIRONMENTAL CONTROL REGISTER.
Line S03699 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04438  M02S03699.271l739 ---|*
Line S03700 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04439  M02S03700.271l739 ---|*         ENTRY  (A) = *RMRF* TO READ REGISTER,
Line S03701 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04440  M02S03701.271l739 ---|*                    = *WMRF* TO WRITE REGISTER.
Line S03702 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S03702.271l739 ---|*
Line S03703 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04442  M02S03703.271l739 ---|*         EXIT   (RBUF) = REGISTER CONTENTS.
Line S03704 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04443  M02S03704.271l739 ---|
Line S03705 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04444  M02S03705.271l739 ---|
Line S03706 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04445  M02S03706.271l739 ---| RWR      SUBR               ENTRY/EXIT
Line S03707 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04446  M02S03707.271l739 ---|          LMM    CMCC
Line S03708 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04447  M02S03708.271l739 ---|          FAN.   MR          FUNCTION MAINTENANCE CHANNEL
Line S03709 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04448  M02S03709.271l739 ---|          LPN    20
Line S03710 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04449  M02S03710.271l739 ---|          ERRNZ  RMRF+20-WMRF CODE DEPENDS ON VALUE
Line S03711 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04450  M02S03711.271l739 ---|          SHN    3
Line S03712 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04451  M02S03712.271l739 ---|          LMC    IAMI+MR     FORM I/O INSTRUCTION
Line S03713 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04452  M02S03713.271l739 ---|          STM    RWRA
Line S03714 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04453  M02S03714.271l739 ---|          ACN.   MR
Line S03715 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04454  M02S03715.271l739 ---|          LDN    0
Line S03716 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04455  M02S03716.271l739 ---|          OAN.   MR          SEND MEMORY *EC* REGISTER NUMBER
Line S03717 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04456  M02S03717.271l739 ---|          LDK    /IOU/ECMR
Line S03718 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04457  M02S03718.271l739 ---|          OAN.   MR
Line S03719 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04458  M02S03719.271l739 ---|          FJM.   *,MR        WAIT CHANNEL BUSY
Line S03720 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04459  M02S03720.271l739 ---|          DCN.   MR
Line S03721 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04460  M02S03721.271l739 ---|          ACN.   MR          READ / WRITE REGISTER
Line S03722 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04461  M02S03722.271l739 ---|          LDN    10
Line S03723 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04462  M02S03723.271l739 ---| RWRA     IAM.   RBUF,MR
Line S03724 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04463  M02S03724.271l739 ---|          UJP    RWRX        RETURN
Line S03725 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04464  M02S03725.271l739 ---|
Line S03726 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04465  M02S03726.271l739 ---|
Line S03727 Modification History
M01 (Added by) set
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
04466  M02S03727.271l739 ---| RBUF     EQU    MBUF+500-10
04467  M01S03728.set     +++|          ENDM
Line S03729 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04468  M02S03729.274l797 ---|          QUAL   *
04469  M01S03730.set     +++| ENTRY    SPACE  4,10
04470  M01S03731.set     +++|**        ENTRY POINTS.
04471  M01S03732.set     +++|
04472  M01S03733.set     +++|
04473  M01S03734.set     +++|          CON    TSYN-1      ADDRESS OF SYNTAX TABLE
04474  M01S03735.set     +++|          CON    TSYNA       ADDRESS OF END OF SYNTAX TABLE
04475  M01S03736.set     +++| CMR      SPACE  4,10
04476  M01S03737.set     +++|**        CMR - INITIALIZE CENTRAL MEMORY.
04477  M01S03738.set     +++|
04478  M01S03739.set     +++|
04479  M01S03740.set     +++| CMR      SUBR               ENTRY/EXIT
Line S03741 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04480  M02S03741.ns2644  ---|          LDC    RJMI
Line S03742 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04481  M02S03742.ns2644  ---|          STM    AKLC
Line S03743 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04482  M02S03743.ns2644  ---|          RJM    RPN         RESERVE PROCESSOR FOR *NVE*
Line S03744 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04483  M02S03744.ns2644  ---|          LDN    2*/EQP/EQXL
Line S03745 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04484  M02S03745.ns2644  ---|          STD    T5
Line S03746 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04485  M02S03746.ns2644  ---|          LDC    /EQP/EQXL*100    SET NUMBER OF WORDS TO READ
Line S03747 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04486  M02S03747.ns2644  ---|          STD    T7
Line S03748 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04487  M02S03748.ns2644  ---| CMR1     RJM    ROV
Line S03749 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04488  M02S03749.ns2644  ---|          LDD    EB
Line S03750 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04489  M02S03750.ns2644  ---|          SBD    T5
Line S03751 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04490  M02S03751.ns2644  ---|          SHN    6
Line S03752 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04491  M02S03752.ns2644  ---|          CWM    /EQP/EQXO,T7
Line S03753 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04492  M02S03753.ns2644  ---|          LDD    T5
Line S03754 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04493  M02S03754.ns2644  ---|          SBN    /EQP/EQXL
Line S03755 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04494  M02S03755.ns2644  ---|          STD    T5
Line S03756 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04495  M02S03756.ns2644  ---|          NJN    CMR1        IF MORE OVERLAYS
04496  M01S00001.ns2644  +++|          RJM    CCP         COMPLETE *CMR* PROCESSING
04497  M01S03757.set     +++|          UJN    CMRX        RETURN
04498  M01S03758.set     +++|
04499  M01S03759.set     +++|          QUAL
04500  M01S03760.set     +++|          SPACE  4,10
04501  M01S03761.set     +++|****      ASSEMBLED VALUES.
04502  M01S03762.set     +++|
04503  M01S03763.set     +++|
04504  M01S03764.set     +++|*         CM TABLE LENGTHS.
04505  M01S03765.set     +++|
04506  M01S03766.set     +++| MTBL     MTLN
04507  M01S03767.set     +++|          MTLN   FOT,10      FAMILY ORDINAL TABLE
04508  M01S03768.set     +++|          MTLN   FNT,23      FILE NAME TABLE
04509  M01S03769.set     +++|          MTLN   EJT,620     EXECUTING JOB TABLE
04510  M01S03770.set     +++|          MTLN   QFT,620     QUEUE FILE TABLE
04511  M01S03771.set     +++|          MTLN   CLT,0       COMMON LIBRARIES TABLE
04512  M01S03772.set     +++|          MTLN   LID,DFLDT   LOGICAL ID TABLE
04513  M01S03773.set     +++|          MTLN   MLS,MLTLD   NOS/VE MESSAGE LINK STATUS TABLE
04514  M01S00167.274l797 +++|          MTLN   ORT,100B
04515  M01S00001.ns2769  +++|          MTLN   EMB,EMBMN   ERROR MESSAGE BUFFER
04516  M01S03774.set     +++|          MTLN
04517  M01S03775.set     +++|
04518  M01S03776.set     +++|*         MISCELLANEOUS.
04519  M01S03777.set     +++|
04520  M01S03778.set     +++| INBS     CON    0           INSTALLATION BLOCK SIZE
04521  M01S03779.set     +++|
Line S03780 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04522  M02S03780.ns2644  ---| .NME     DATA   C* CDC NETWORK OPERATING SYSTEM.*
Line S03781 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04523  M02S03781.ns2644  ---|          BSSZ   .NME+24-*
Line S03782 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04524  M02S03782.ns2644  ---| VER170   MICRO  2,18,$"VER170"$  REMOVE LEADING/TRAILING SPACES
Line S03783 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04525  M02S03783.ns2644  ---| .VER     DATA   C*"VER170"*
Line S03784 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04526  M02S03784.ns2644  ---|          BSSZ   .VER+12-*
Line S03785 Modification History
M01 (Added by) set
M02 (Updated by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
04527  M02S03785.ns2644  ---|
04528  M01S03786.set     +++|****
04529  M01S03787.set     +++| TAXM     SPACE  4,10
04530  M01S03788.set     +++|**        TAXM - EXTENDED MEMORY ALLOCATION TABLE.
04531  M01S03789.set     +++|*         ENTRY = 5 BYTES.
04532  M01S03790.set     +++|*         FIRST ENTRY IS FOR THIS MACHINE.
04533  M01S03791.set     +++|*
04534  M01S03792.set     +++|*T, TAXM  12/ID, 12/FU, 12/UEC, 12/IOBT, 12/IOB
Figure TAXM

01112232429IOBIOBTUEC303536474859UECFUID

04535  M01S03793.set     +++|*
04536  M01S03794.set     +++|*         ID = MACHINE ID.
04537  M01S03795.set     +++|*         FU = 0 IF USER ECS TO RESIDE IN EXTENDED MEMORY EQUIPMENT.
04538  M01S03796.set     +++|*            .NE. 0 IF INTERNAL USER EXTENDED MEMORY IN UEM.
04539  M01S03797.set     +++|*         UEC = AMOUNT OF USER XM/*EMBS* TO ALLOCATE TO
04540  M01S03798.set     +++|*               MACHINE *ID*.
04541  M01S03799.set     +++|*         IOBT = TRACKS NEEDED FOR I/O BUFFERS.
04542  M01S03800.set     +++|*         IOB = AMOUNT OF SPACE/*EMBS* TO ALLOCATE TO DEMA/819/895
04543  M01S03801.set     +++|*               BUFFERS.
04544  M01S03802.set     +++|
04545  M01S03803.set     +++|
04546  M01S03804.set     +++| TAXM     BSSZ   4*5         ALLOW 4 MACHINES WITH CPU ACCESS TO EM
04547  M01S03805.set     +++| TAXML    EQU    *-TAXM
04548  M01S03806.set     +++| TAXXL    EQU    *-TAXM      EXTENDED *TAXM* LENGTH
04549  M01S03807.set     +++| CFT      SPACE  4,10
04550  M01S03808.set     +++|**        CFT - CONVERT EXTENDED MEMORY FL TO TRACK COUNT.
04551  M01S03809.set     +++|*
04552  M01S03810.set     +++|*         ENTRY  (A) = EXTENDED MEMORY FL/*EMBS*.
04553  M01S03811.set     +++|*
04554  M01S03812.set     +++|*         EXIT   (A) = DESIRED SPACE IN TRACKS.
04555  M01S03813.set     +++|*                (T0) = DESIRED SPACE IN TRACKS.
04556  M01S03814.set     +++|*
04557  M01S03815.set     +++|*         USES   T6, T7.
04558  M01S03816.set     +++|
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/set.002.txt · Last modified: by 127.0.0.1