Deck VER Part 003

9 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05162  M00S04250.ver     +++|*                                 ANY NPP ON OTHER SYSTEMS.
05163  M00S04251.ver     +++|*                       = 1 - NPP 20B-31B ON 810/830 WITH MORE THAN
05164  M00S04252.ver     +++|*                                 10 NPP-S, ANY NPP ON OTHER SYSTEMS.
05165  M00S04253.ver     +++|*                       = 2 - CPP 0-4.
05166  M00S04254.ver     +++|*                       = 3 - CPP 5-11B.
05167  M00S04255.ver     +++|*                       = 4 - PARTNER PAIR OF NPP-S ON 810/830 WITH
05168  M00S04256.ver     +++|*                                MORE THAN 10 NPP-S, ANY TWO NPP-S
05169  M00S04257.ver     +++|*                                ON OTHER SYSTEMS.
Line S04258 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
05170  M01S04258.ver13   ---|*                (DA) = NUMBER PF NPP-S IN SYSTEM.
Line S00499 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
05171  M01S00499.ver13   +++|*                (DA) = NUMBER OF NPP-S IN SYSTEM.
05172  M00S04259.ver     +++|*                (DB) = NUMBER OF CPP-S IN SYSTEM.
05173  M00S04260.ver     +++|*
05174  M00S04261.ver     +++|*         EXIT   (T4) = NUMBER OF AVAILABLE UPPER BANK PP-S
05175  M00S04262.ver     +++|*                       IF MORE THAN 10 PP-S IN SYSTEM.
05176  M00S04263.ver     +++|*                (T5) = NUMBER OF DEDICATED NPP-S OR CPP-S.
05177  M00S04264.ver     +++|*
05178  M00S04265.ver     +++|*         USES   T1, T2, T3, T4, T5, T7, CM - CM+4, CN - CN+4.
05179  M00S04266.ver     +++|
05180  M00S04267.ver     +++|
05181  M00S04268.ver     +++| GCP      SUBR               ENTRY/EXIT
05182  M00S04269.ver     +++|          LDN    0
05183  M00S04270.ver     +++|          STD    T4          INITIALIZE COUNT OF UPPER PP-S AVAILABLE
05184  M00S04271.ver     +++|          STD    T5          INITIALIZE COUNT OF DEDICATED PP-S
05185  M00S04272.ver     +++|          LDN    12
05186  M00S04273.ver     +++|          STD    T2          INITIALIZE LOOP COUNTER FOR LOWER BARREL
05187  M00S04274.ver     +++|          LDM    PPCA        SET UP BASE PP INPUT REGISTER ADDRESS
05188  M00S04275.ver     +++|          STD    T3
05189  M00S04276.ver     +++|          LDD    CL+1
05190  M00S04277.ver     +++|          LPN    VCPT
05191  M00S04278.ver     +++|          ZJN    GCP1        IF REQUESTING NPP OR PAIR
05192  M00S04279.ver     +++|          LDD    DA          BIAS PAST NPP COMMUNICATIONS AREAS
05193  M00S04280.ver     +++|          SHN    3
05194  M00S04281.ver     +++|          RAD    T3
05195  M00S04282.ver     +++|          LDD    DB
05196  M00S04283.ver     +++|          UJN    GCP2        SET CPP COUNT
05197  M00S04284.ver     +++|
05198  M00S04285.ver     +++| GCP1     LDD    DA          NPP COUNT
05199  M00S04286.ver     +++| GCP2     SBN    12
05200  M00S04287.ver     +++|          PJN    GCP4        IF TEN OR MORE PP-S
05201  M00S04288.ver     +++|          RAD    T2          ADJUST COUNTER
05202  M00S04289.ver     +++| GCP3     LDN    0
05203  M00S04290.ver     +++| GCP4     STD    T1          UPPER BARREL PP COUNT
05204  M00S04291.ver     +++| GCP5     LDN    0           INITIALIZE TABLE INDEX
05205  M00S04292.ver     +++|          STD    T7
05206  M00S04293.ver     +++|          LDD    T3          READ NEXT INPUT REGISTER
05207  M00S04294.ver     +++|          CRD    CN
05208  M00S04295.ver     +++| GCP6     LDD    CN          CHECK FOR DEDICATED PP
05209  M00S04296.ver     +++|          LMM    TDPP,T7
05210  M00S04297.ver     +++|          NJN    GCP7        IF NO MATCH
05211  M00S04298.ver     +++|          LDD    CN+1
05212  M00S04299.ver     +++|          SCN    77
05213  M00S04300.ver     +++|          LMM    TDPP+1,T7
05214  M00S04301.ver     +++|          NJN    GCP7        IF NO MATCH
05215  M00S04302.ver     +++|          AOD    T5          COUNT DEDICATED PP
05216  M00S04303.ver     +++|          UJN    GCP8        READ NEXT INPUT REGISTER
05217  M00S04304.ver     +++|
05218  M00S04305.ver     +++| GCP7     LDN    2           INCREMENT INDEX
05219  M00S04306.ver     +++|          RAD    T7
05220  M00S04307.ver     +++|          SBN    TDPPL
05221  M00S04308.ver     +++|          MJN    GCP6        IF NOT END OF TABLE
05222  M00S04309.ver     +++| GCP8     LDN    10          ADVANCE TO NEXT INPUT REGISTER
05223  M00S04310.ver     +++|          RAD    T3
05224  M00S04311.ver     +++|          SOD    T2
05225  M00S04312.ver     +++|          NJN    GCP5        IF NOT FINISHED WITH THIS BARREL
05226  M00S04313.ver     +++|          LDD    T1          PP COUNT FOR NEXT BARREL
05227  M00S04314.ver     +++|          ZJN    GCP9        IF NO PP-S LEFT TO CHECK
05228  M00S04315.ver     +++|          STD    T2          LOOP COUNTER FOR NEXT BARREL
05229  M00S04316.ver     +++|          ADD    T5          CURRENT TOTAL DEDICATED PP-S
05230  M00S04317.ver     +++|          STD    T4          DEDICATED LOWER PP-S PLUS TOTAL UPPER PP-S
05231  M00S04318.ver     +++|          UJP    GCP3        CHECK NEXT BARREL
05232  M00S04319.ver     +++|
05233  M00S04320.ver     +++| GCP9     LDD    T4          DEDICATED LOWER PP-S PLUS TOTAL UPPER PP-S
05234  M00S04321.ver     +++|          SBD    T5          REDUCE BY TOTAL DEDICATED PP-S
05235  M00S04322.ver     +++|          STD    T4          AVAILABLE UPPER BARREL PP-S
05236  M00S04323.ver     +++|          LJM    GCPX        RETURN
05237  M00S04324.ver     +++| TDPP     SPACE  4,10
05238  M00S04325.ver     +++|**        TDPP - TABLE OF DEDICATED PP-S.
05239  M00S04326.ver     +++|*
05240  M00S04327.ver     +++|*         TWO WORD ENTRY.
05241  M00S04328.ver     +++|*
05242  M00S04329.ver     +++|*T,       18/NAME OF DEDICATED PP ROUTINE, 6/0
Figure

056230NAME OF DEDICATED PP ROUTINE

05243  M00S04330.ver     +++|
05244  M00S04331.ver     +++|
05245  M00S04332.ver     +++| TDPP     BSS    0           TABLE OF DEDICATED PP-S
05246  M00S04333.ver     +++|          VFD    24/3L*VP    NOS/VE PP
05247  M00S04334.ver     +++|          VFD    24/0LMTR
05248  M00S04335.ver     +++|          VFD    24/0LDSD
05249  M00S04336.ver     +++|          VFD    24/0LDIS
05250  M00S04337.ver     +++|          VFD    24/0LO26
05251  M00S04338.ver     +++|          VFD    24/0L1CD
05252  M00S04339.ver     +++|          VFD    24/0L1HP
05253  M00S04340.ver     +++|          VFD    24/0L1XM
05254  M00S04341.ver     +++|          VFD    24/0L1TS
05255  M00S04342.ver     +++|          VFD    24/0L1TN
05256  M00S04343.ver     +++|          VFD    24/0L1TM
05257  M00S04344.ver     +++|          VFD    24/0LPIP
05258  M00S04345.ver     +++|          VFD    24/0LNDR
05259  M00S04346.ver     +++|          VFD    24/0LDFT
05260  M00S04347.ver     +++|          VFD    24/0LSCD
05261  M00S04348.ver     +++|          VFD    24/0LCPD
05262  M00S04349.ver     +++|          VFD    24/0LMDD
05263  M00S04350.ver     +++|          VFD    24/0LMTE
05264  M00S04351.ver     +++|          VFD    24/3L***
05265  M00S04352.ver     +++|
05266  M00S04353.ver     +++| TDPPL    EQU    *-TDPP      LENGTH OF DEDICATED PP TABLE
05267  M00S04354.ver     +++| IPP      SPACE  4,15
05268  M00S04355.ver     +++|**        IPP - IDLE PP.
05269  M00S04356.ver     +++|*
05270  M00S04357.ver     +++|*         ENTRY  (T3) = PP INPUT REGISTER ADDRESS.
05271  M00S04358.ver     +++|*                (PPCA) = PP COMMUNICATION AREA ADDRESS.
05272  M00S04359.ver     +++|*                (EC) = ELEMENT CONNECT CODE FOR IDLE PP.
05273  M00S04360.ver     +++|*
05274  M00S04361.ver     +++|*         EXIT   (A) = SYMPTOM CODE FOR PP ASSIGNMENT IF SUCCESSFUL.
05275  M00S04362.ver     +++|*                    .LT. 0 IF UNABLE TO IDLE.
05276  M00S04363.ver     +++|*                (T5) = PP NUMBER.
05277  M00S04364.ver     +++|*                BML MESSAGE ISSUED IF UNABLE TO IDLE.
05278  M00S04365.ver     +++|*
05279  M00S04366.ver     +++|*         USES   T1, T2, T5, CN - CN+4.
05280  M00S04367.ver     +++|*
05281  M00S04368.ver     +++|*         CALLS  IBM, NEC.
05282  M00S04369.ver     +++|*
05283  M00S04370.ver     +++|*         MACROS DELAY, LOCKMR, PAUSE, READMR, WRITMR.
05284  M00S04371.ver     +++|
05285  M00S04372.ver     +++|
05286  M00S04373.ver     +++| IPP      SUBR               ENTRY/EXIT
05287  M00S04374.ver     +++|          LDD    T3          COMPUTE NUMBER OF PP
05288  M00S04375.ver     +++|          SBM    PPCA
05289  M00S04376.ver     +++|          SHN    -3
05290  M00S04377.ver     +++|          STD    T5
05291  M00S04378.ver     +++|          SBN    12
05292  M00S04379.ver     +++|          MJN    IPP2        IF PP NUMBER 0 - 11
05293  M00S04380.ver     +++|          SBN    12
05294  M00S04381.ver     +++|          MJN    IPP1        IF PP NUMBER 20 - 31
05295  M00S04382.ver     +++|          ADN    40          ADJUST CPP NUMBER
05296  M00S04383.ver     +++|          STD    T5
05297  M00S04384.ver     +++|          LDC    /COMSDFS/HS0114  CPP ASSIGNMENT SYMPTOM CODE
05298  M00S04385.ver     +++|          UJN    IPPX        RETURN
05299  M00S04386.ver     +++|
05300  M00S04387.ver     +++| IPP1     LDN    6           ADJUST UPPER BANK PP NUMBER
05301  M00S04388.ver     +++|          RAD    T5
05302  M00S04389.ver     +++| IPP2     READMR RBUF,,DEMR  READ EC REGISTER
05303  M00S04390.ver     +++|          LDM    RBUF+4      SET PP NUMBER
05304  M00S04391.ver     +++| IPPA     SCN    37
05305  M00S04392.ver     +++|*         SCN    77          (IF IOU MODEL I2)
05306  M00S04393.ver     +++|          LMD    T5
05307  M00S04394.ver     +++| IPPB     LMN    0
05308  M00S04395.ver     +++|*         LMN    40          (SET AUTO MODE BIT IF IOU MODEL I2)
05309  M00S04396.ver     +++|          STM    RBUF+4
05310  M00S04397.ver     +++|          LDM    RBUF+6      SET IDLE MODE BIT, K REGISTER (10B)
05311  M00S04398.ver     +++|          SCN    37
05312  M00S04399.ver     +++|          ADN    6
05313  M00S04400.ver     +++|          STM    RBUF+6
05314  M00S04401.ver     +++|          LDM    RBUF+7      SET ENABLE BIT
05315  M00S04402.ver     +++|          SCN    40
05316  M00S04403.ver     +++|          ADN    40
05317  M00S04404.ver     +++|          STM    RBUF+7
05318  M00S04405.ver     +++|          LDN    10          INITIALIZE TIME OUT COUNT
05319  M00S04406.ver     +++|          STD    T2
05320  M00S04407.ver     +++|
05321  M00S04408.ver     +++|*         LOOP UNTIL PP IS IDLED.
05322  M00S04409.ver     +++|
05323  M00S04410.ver     +++| IPP3     LOCKMR SET         GET LONG TERM INTERLOCK
05324  M00S04411.ver     +++|          WRITMR RBUF,,DEMR  WRITE EC REGISTER
05325  M00S04412.ver     +++|          READMR IBUF,,ISTR  READ INPUT STATUS REGISTER
05326  M00S04413.ver     +++|          LOCKMR CLEAR       CLEAR LONG TERM INTERLOCK
05327  M00S04414.ver     +++|          LDM    IBUF+4      CHECK IF PP IN IDLE MODE
05328  M00S04415.ver     +++|          LPN    3
05329  M00S04416.ver     +++|          SHN    10
05330  M00S04417.ver     +++|          ADM    IBUF+5
05331  M00S04418.ver     +++|          SHN    10
05332  M00S04419.ver     +++|          ADM    IBUF+6
05333  M00S04420.ver     +++|          LMC    107700
05334  M00S04421.ver     +++|          ZJP    IPP5        IF PP IDLING
05335  M00S04422.ver     +++|          SOD    T2
05336  M00S04423.ver     +++|          ZJN    IPP4        IF TIME OUT
05337  M00S04424.ver     +++|          PAUSE  NE
05338  M00S04425.ver     +++|          DELAY
05339  M00S04426.ver     +++|          LJM    IPP3        LOOP
05340  M00S04427.ver     +++|
05341  M00S04428.ver     +++|*         ISSUE BML MESSAGE.
05342  M00S04429.ver     +++|
05343  M00S04430.ver     +++| IPP4     LDC    /COMSDFS/HS0121  SET SYMPTOM CODE
05344  M00S04431.ver     +++|          STD    T1
05345  M00S04432.ver     +++|          LDN    ZERL        CLEAR DATA WORD
05346  M00S04433.ver     +++|          CRD    CN
05347  M00S04434.ver     +++|          LDD    T5          SET PP NUMBER
05348  M00S04435.ver     +++|          STD    CN+4
05349  M00S04436.ver     +++|          LDC    /COMSDFS/HM0240  SET MESSAGE ID
05350  M00S04437.ver     +++|          RJM    IBM         ISSUE BML MESSAGE
05351  M00S04438.ver     +++|          LDD    T3          SET *** IN INPUT REGISTER
05352  M00S04439.ver     +++|          CWM    DPLJ,ON
05353  M00S04440.ver     +++|          RJM    NEC         NORMALIZE EC REGISTER
05354  M00S04441.ver     +++|          LCN    1
05355  M00S04442.ver     +++|          LJM    IPPX        RETURN
05356  M00S04443.ver     +++|
05357  M00S04444.ver     +++|*         NORMALIZE EC REGISTER.
05358  M00S04445.ver     +++|
05359  M00S04446.ver     +++| IPP5     RJM    NEC         NORMALIZE EC REGISTER
05360  M00S04447.ver     +++|          LDC    /COMSDFS/HS0112  NPP ASSIGNMENT SYMPTOM CODE
05361  M00S04448.ver     +++|          LJM    IPPX        RETURN
05362  M00S04449.ver     +++| PSC      SPACE  4,10
05363  M00S04450.ver     +++|**        PSC - PRESET CHANNEL INSTRUCTIONS.
05364  M00S04451.ver     +++|*
05365  M00S04452.ver     +++|*         ENTRY  (T7) = CHANNEL NUMBER.
05366  M00S04453.ver     +++|*
05367  M00S04454.ver     +++|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED.
05368  M00S04455.ver     +++|*
05369  M00S04456.ver     +++|*         USES   T1, T5.
05370  M00S04457.ver     +++|
05371  M00S04458.ver     +++|
05372  M00S04459.ver     +++| PSC      SUBR               ENTRY/EXIT
05373  M00S04460.ver     +++|          LDC    TPSC-1      INITIALIZE CHANNEL TABLE ADDRESS
05374  M00S04461.ver     +++|          STD    T1
05375  M00S04462.ver     +++| PSC1     AOD    T1          ADVANCE CHANNEL TABLE
05376  M00S04463.ver     +++|          LDI    T1
05377  M00S04464.ver     +++|          ZJN    PSCX        IF END OF TABLE
05378  M00S04465.ver     +++|          STD    T5          MODIFY CHANNEL INSTRUCTION
05379  M00S04466.ver     +++|          LDI    T5
05380  M00S04467.ver     +++|          SCN    37
05381  M00S04468.ver     +++|          LMD    T7
05382  M00S04469.ver     +++|          STI    T5
05383  M00S04470.ver     +++|          UJN    PSC1        LOOP
05384  M00S04471.ver     +++|
05385  M00S04472.ver     +++|
05386  M00S04473.ver     +++|**        TPSC - TABLE OF CHANNEL INSTRUCTIONS.
05387  M00S04474.ver     +++|
05388  M00S04475.ver     +++| TPSC     BSS    0
05389  M00S04476.ver     +++|          CON    DPLA
05390  M00S04477.ver     +++|          CON    DPLD
05391  M00S04478.ver     +++|          CON    DPLE
05392  M00S04479.ver     +++|          CON    DPLF
05393  M00S04480.ver     +++|          CON    DPLG
05394  M00S04481.ver     +++|          CON    DPLH
05395  M00S04482.ver     +++|          CON    DPLI
05396  M00S04483.ver     +++|          CON    MREA
05397  M00S04484.ver     +++|          CON    0           END OF TABLE
05398  M00S04485.ver     +++| SPB      SPACE  4,15
05399  M00S04486.ver     +++|**        SPB - SET PP BOUNDS BIT.
05400  M00S04487.ver     +++|*
05401  M00S04488.ver     +++|*         ENTRY  (A) = 6/BIT VALUE, 12/PP NUMBER.
05402  M00S04489.ver     +++|*                      BIT VALUE = 1 TO SET LOWER PP.
05403  M00S04490.ver     +++|*                                = 0 TO SET UPPER PP.
05404  M00S04491.ver     +++|*                (EC) = IOU CONNECT CODE.
05405  M00S04492.ver     +++|*                (SPBA) = NIO BARREL CONFIGURATION.
05406  M00S04493.ver     +++|*                (SPBB) = NUMBER OF NIO BARRELS.
05407  M00S04494.ver     +++|*
05408  M00S04495.ver     +++|*         EXIT   PP OS BOUNDS REGISTER SET FOR GIVEN PP.
05409  M00S04496.ver     +++|*
05410  M00S04497.ver     +++|*         USES   T2, T7.
05411  M00S04498.ver     +++|*
05412  M00S04499.ver     +++|*         MACROS LOCKMR, READMR, WRITMR.
05413  M00S04500.ver     +++|
05414  M00S04501.ver     +++|
05415  M00S04502.ver     +++| SPB      SUBR               ENTRY/EXIT
05416  M00S04503.ver     +++|          STD    T7          SAVE LOGICAL PP NUMBER
05417  M00S04504.ver     +++|          SHN    -14
05418  M00S04505.ver     +++|          STM    SPBE        SAVE BOUNDS BIT VALUE
05419  M00S04506.ver     +++|          LDN    0
05420  M00S04507.ver     +++|          STD    T2
05421  M00S04508.ver     +++|          LDD    T7
05422  M00S04509.ver     +++|          SBN    40
05423  M00S04510.ver     +++|          MJN    SPB2        IF NOT CONCURRENT IOU
05424  M00S04511.ver     +++|          STD    T7
Line S04512 Modification History
M01 (Removed by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
05425  M01S04512.ns2711  ---|          SBN    5
Line S00001 Modification History
M01 (Added by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
05426  M01S00001.ns2711  +++| SPBG     UJN    SPB0        (IOU MODEL 40)
05427  M01S00002.ns2711  +++|*         PSN                (IOU MODEL 42)
05428  M01S00003.ns2711  +++|
05429  M01S00004.ns2711  +++|          LDN    3
05430  M01S00005.ns2711  +++|          STD    T2
05431  M01S00006.ns2711  +++|          LDK    IOSB        USE NIO REGISTER
05432  M01S00007.ns2711  +++|          UJN    SPB1.1      READ AND ALTER OS BOUNDS REGISTER
05433  M01S00008.ns2711  +++|
05434  M01S00009.ns2711  +++| SPB0     SBN    5
05435  M00S04513.ver     +++|          MJN    SPB1        IF IN LOWER OF THE TWO BARRELS
05436  M00S04514.ver     +++|          STD    T7
05437  M00S04515.ver     +++|          AOD    T2
05438  M00S04516.ver     +++| SPB1     LDK    OBCR        SET UP FOR CONCURRENT OS BOUNDS
Line S04517 Modification History
M01 (Removed by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
05439  M01S04517.ns2711  ---|          STD    RN
05440  M01S04518.ns2711  ---|          LJM    SPB5        READ AND ALTER OS BOUNDS REGISTER
Line S00010 Modification History
M01 (Added by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
05441  M01S00010.ns2711  +++| SPB1.1   STD    RN
05442  M01S00011.ns2711  +++|          UJN    SPB5        READ AND ALTER OS BOUNDS REGISTER
05443  M00S04519.ver     +++|
05444  M00S04520.ver     +++| SPB2     ADN    20
05445  M00S04521.ver     +++|          MJN    SPB3        IF IN LOWER 10 PP-S
05446  M00S04522.ver     +++|          STD    T7
05447  M00S04523.ver     +++|          AOD    T2
05448  M00S04524.ver     +++|          AOD    T2
05449  M00S04525.ver     +++| SPB3     LDD    T7
05450  M00S04526.ver     +++|          SBN    5
05451  M00S04527.ver     +++|          MJN    SPB4        IF IN LOWER BARREL OF THE TWO
05452  M00S04528.ver     +++|          STD    T7
05453  M00S04529.ver     +++|          AOD    T2
05454  M00S04530.ver     +++| SPB4     LDK    IOSB        SET UP FOR NON-CONCURRENT OS BOUNDS
05455  M00S04531.ver     +++|          STD    RN
05456  M00S04532.ver     +++|          LDD    T2
05457  M00S04533.ver     +++| SPBA     ADN    **
05458  M00S04534.ver     +++|*         ADN    0           (BARREL RECONFIGURATION)
05459  M00S04535.ver     +++|*         ADN    1
05460  M00S04536.ver     +++|*         ADN    2
05461  M00S04537.ver     +++|*         ADN    3
05462  M00S04538.ver     +++|          STD    T2
05463  M00S04539.ver     +++| SPBB     SBN    **
05464  M00S04540.ver     +++|*         SBN    1           (NUMBER OF BARRELS)
05465  M00S04541.ver     +++|*         SBN    2
05466  M00S04542.ver     +++|*         SBN    3
05467  M00S04543.ver     +++|*         SBN    4
05468  M00S04544.ver     +++|          MJN    SPB5        IF NO OVERFLOW
05469  M00S04545.ver     +++|          STD    T2
05470  M00S04546.ver     +++| SPB5     LDC    SHNI        SET BIT SHIFT INSTRUCTION
05471  M00S04547.ver     +++|          ADD    T7
05472  M00S04548.ver     +++|          STM    SPBC
05473  M00S04549.ver     +++|          STM    SPBF
05474  M00S04550.ver     +++|          LOCKMR SET
05475  M00S04551.ver     +++|          READMR RBUF        READ APPLICABLE CURRENT OS BOUNDS DATA
05476  M00S04552.ver     +++|          LDM    RBUF,T2
05477  M00S04553.ver     +++|          STM    SPBD
05478  M00S04554.ver     +++|          LCN    1
05479  M00S04555.ver     +++| SPBC     SHN    **
05480  M00S04556.ver     +++|          LPC    **
05481  M00S04557.ver     +++| SPBD     EQU    *-1
05482  M00S04558.ver     +++|          STM    RBUF,T2
05483  M00S04559.ver     +++|          LDC    **
05484  M00S04560.ver     +++| SPBE     EQU    *-1
05485  M00S04561.ver     +++| SPBF     SHN    **
05486  M00S04562.ver     +++|          LMM    RBUF,T2     ADD NEW BIT TO REGISTER DATA
05487  M00S04563.ver     +++|          STM    RBUF,T2
05488  M00S04564.ver     +++|          WRITMR RBUF        SET NEW OS BOUNDS REGISTER
05489  M00S04565.ver     +++|          LOCKMR CLEAR
05490  M00S04566.ver     +++|          LJM    SPBX        RETURN
05491  M00S04567.ver     +++| SRA      SPACE  4,10
05492  M00S04568.ver     +++|**        SRA - SET NOS REQUEST HEADER ADDRESS.
05493  M00S04569.ver     +++|*
05494  M00S04570.ver     +++|*         EXIT   (A) = ADDRESS OF NOS REQUEST HEADER.
05495  M00S04571.ver     +++|
05496  M00S04572.ver     +++|
05497  M00S04573.ver     +++| SRA      SUBR               ENTRY/EXIT
05498  M00S04574.ver     +++| SRAA     LDC    **          (ADDRESS OF NOS REQUEST HEADER)
05499  M00S04575.ver     +++|          UJN    SRAX        RETURN
05500  M00S04576.ver     +++| VPN      SPACE  4,15
05501  M00S04577.ver     +++|**        VPN - VALIDATE PP NUMBER.
05502  M00S04578.ver     +++|*
05503  M00S04579.ver     +++|*         ENTRY  (A) = PP NUMBER.
05504  M00S04580.ver     +++|*                (DA) = NUMBER OF SYSTEM NPP-S.
05505  M00S04581.ver     +++|*                (DB) = NUMBER OF SYSTEM CPP-S.
05506  M00S04582.ver     +++|*
05507  M00S04583.ver     +++|*         EXIT   (A) = 0, IF ASSIGNED TO NOS/VE.
05508  M00S04584.ver     +++|*                    = *ESIR*, IF INCORRECT NUMBER.
05509  M00S04585.ver     +++|*                    = *ESPP*, IF NOT ASSIGNED TO NOS/VE.
05510  M00S04586.ver     +++|*                    = *ESCP*, IF CONCURRENT PP NOT PRESENT.
05511  M00S04587.ver     +++|*                (T3) = PP OFFSET INTO COMMUNICATION AREA.
05512  M00S04588.ver     +++|*                (T4) = PP NUMBER.
05513  M00S04589.ver     +++|*                (CM - CM+4) = INPUT REGISTER.
05514  M00S04590.ver     +++|*
05515  M00S04591.ver     +++|*         USES   T3, T4, CM - CM+4.
05516  M00S04592.ver     +++|
05517  M00S04593.ver     +++|
05518  M00S04594.ver     +++| VPN7     LDD    T4
05519  M00S04595.ver     +++| VPN8     SHN    3
05520  M00S04596.ver     +++|          STD    T3
05521  M00S04597.ver     +++|          ADM    PPCA        CHECK IF ASSIGNED TO NOS/VE
05522  M00S04598.ver     +++|          CRD    CM
05523  M00S04599.ver     +++|          LDD    CM+1
05524  M00S04600.ver     +++|          SCN    77
05525  M00S04601.ver     +++|          SHN    6
05526  M00S04602.ver     +++|          LMD    CM
05527  M00S04603.ver     +++|          LMC    3RP*V
05528  M00S04604.ver     +++|          ZJN    VPNX        IF ASSIGNED TO NOS/VE
05529  M00S04605.ver     +++|          LDN    ESPP        SET ERROR CODE
05530  M00S04606.ver     +++|
05531  M00S04607.ver     +++| VPN      SUBR               ENTRY/EXIT
05532  M00S04608.ver     +++|          STD    T4
05533  M00S04609.ver     +++|          SBN    10D
05534  M00S04610.ver     +++|          MJN    VPN7        IF LOWER BANK PP
05535  M00S04611.ver     +++|          SBN    40-10D
05536  M00S04612.ver     +++|          PJN    VPN5        IF CONCURRENT PP
05537  M00S04613.ver     +++|          LDD    DA
05538  M00S04614.ver     +++|          SBN    11D
05539  M00S04615.ver     +++|          PJN    VPN3        IF UPPER PP-S EXIST ON SYSTEM
05540  M00S04616.ver     +++| VPN1     LDD    TH          SET INCORRECT REQUEST STATUS (*ESIR*)
05541  M00S04617.ver     +++| VPN2     UJN    VPNX        RETURN
05542  M00S04618.ver     +++|
05543  M00S04619.ver     +++| VPN3     LDD    T4
05544  M00S04620.ver     +++|          SBN    20
05545  M00S04621.ver     +++|          MJN    VPN1        IF 12 .LE. PP NUMBER .LE. 17
05546  M00S04622.ver     +++|          SBN    32-20
05547  M00S04623.ver     +++|          PJN    VPN1        IF PP NUMBER .GT. 31
05548  M00S04624.ver     +++|          SBK    6-32
05549  M00S04625.ver     +++| VPN4     LJM    VPN8        CHECK IF VE ASSIGNED AND RETURN
05550  M00S04626.ver     +++|
05551  M00S04627.ver     +++| VPN5     SBD    DB
05552  M00S04628.ver     +++|          MJN    VPN6        IF AN EXISTING CPP NUMBER
05553  M00S04629.ver     +++|          LDD    T4
05554  M00S04630.ver     +++|          SBN    52
05555  M00S04631.ver     +++|          PJN    VPN1        IF NOT A VALID CPP NUMBER
05556  M00S04632.ver     +++|          LDK    ESCP        SET CONCURRENT PP NOT PRESENT (*ESCP*)
05557  M00S04633.ver     +++|          UJN    VPN2        RETURN
05558  M00S04634.ver     +++|
05559  M00S04635.ver     +++| VPN6     LDD    T4
05560  M00S04636.ver     +++|          SBN    6+6
05561  M00S04637.ver     +++|          UJN    VPN4        CHECK IF VE ASSIGNED AND RETURN
05562  M00S04638.ver     +++|          SPACE  4,10
05563  M00S04639.ver     +++|**        CODE PAST THIS POINT MAY BE OVERLAID BY *PBUF*.
05564  M00S04640.ver     +++|*
05565  M00S04641.ver     +++|*         *PBUF* IS USED ONLY FOR THE *RSP* FUNCTION.
05566  M00S04642.ver     +++|*         *PBUF* MUST HAVE TWO RESERVED WORDS PRECEEDING IT FOR DISK
05567  M00S04643.ver     +++|*         LINKAGE BYTES.
05568  M00S04644.ver     +++|
05569  M00S04645.ver     +++|          ERRNG  PBUF-*-2    ERROR IF PBUF OVERLAYS EARLIER CODE
05570  M00S04646.ver     +++|          TITLE  SUBROUTINES OVERLAYABLE BY *PBUF*.
Line S04647 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
05571  M01S04647.ver13   ---| CCA      SPACE  4,10
05572  M01S04648.ver13   ---|**        CCA - CHECK CHANNEL ASSIGNMENT.
05573  M01S04649.ver13   ---|*
05574  M01S04650.ver13   ---|*         ENTRY  (T2) = CHANNEL NUMBER.
05575  M01S04651.ver13   ---|*
05576  M01S04652.ver13   ---|*         EXIT   (A) = 0 IF CHANNEL IS ASSIGNED TO NOS/VE.
05577  M01S04653.ver13   ---|*
05578  M01S04654.ver13   ---|*         USES   T4.
05579  M01S04655.ver13   ---|
05580  M01S04656.ver13   ---|
05581  M01S04657.ver13   ---| CCA      SUBR               ENTRY/EXIT
05582  M01S04658.ver13   ---|          LDN    CTALL
05583  M01S04659.ver13   ---|          STD    T4
05584  M01S04660.ver13   ---|          LDC    **          FWA OF CHANNEL EJT ASSIGNMENT TABLE
05585  M01S04661.ver13   ---| CCAA     EQU    *-2
05586  M01S04662.ver13   ---|          CRM    CBUF,T4     READ CHANNEL ASSIGNMENT TABLE
05587  M01S04663.ver13   ---|          LDM    NEJT
05588  M01S04664.ver13   ---|          LMM    CBUF,T2
05589  M01S04665.ver13   ---|          UJN    CCAX        RETURN
Line S00500 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
05590  M01S00500.ver13   +++| CUA      SPACE  4,10
05591  M01S00501.ver13   +++|**        CUA - CHECK IF UNIT ASSIGNED TO NOS/VE.
05592  M01S00502.ver13   +++|*
05593  M01S00503.ver13   +++|*         ENTRY  (DC) = CORRESPONDING BIT NUMBER OF UNIT.
05594  M01S00504.ver13   +++|*                (CN - CN+4) = EST ENTRY.
05595  M01S00505.ver13   +++|*
05596  M01S00506.ver13   +++|*         EXIT   (A) .LT. 0 IF NOT MASS STORAGE DEVICE.
05597  M01S00507.ver13   +++|*                    = 0 IF UNIT NOT ASSIGNED TO NOS/VE.
05598  M01S00508.ver13   +++|*                    = *ESAA* STATUS IF UNIT ASSIGNED TO NOS/VE.
05599  M01S00509.ver13   +++|*
05600  M01S00510.ver13   +++|*         USES   CM - CM+4.
05601  M01S00511.ver13   +++|
05602  M01S00512.ver13   +++|
05603  M01S00513.ver13   +++| CUA2     LCN    0           SET NOT MASS STORAGE FLAG
05604  M01S00514.ver13   +++|
05605  M01S00515.ver13   +++| CUA      SUBR               ENTRY/EXIT
05606  M01S00516.ver13   +++|          LDD    CN
05607  M01S00517.ver13   +++|          SHN    21-13
05608  M01S00518.ver13   +++|          PJN    CUA2        IF NOT MASS STORAGE DEVICE
05609  M01S00519.ver13   +++|          LDD    CN+4        GET UNIT ASSIGNMENT STATUS
05610  M01S00520.ver13   +++|          SHN    3
05611  M01S00521.ver13   +++|          ADN    NVGL
05612  M01S00522.ver13   +++|          CRD    CM
05613  M01S00523.ver13   +++|          LDC    SHNI+21     SET SHIFT COUNT
05614  M01S00524.ver13   +++|          SBD    DC
05615  M01S00525.ver13   +++|          STM    CUAA
05616  M01S00526.ver13   +++|          LDD    CM+4
05617  M01S00527.ver13   +++| CUAA     SHN    **
05618  M01S00528.ver13   +++|          MJN    CUA1        IF UNIT ASSIGNED TO NOS/VE
05619  M01S00529.ver13   +++|          LDN    0           SET UNIT NOT ASSIGNED STATUS
05620  M01S00530.ver13   +++|          UJN    CUAX        RETURN
05621  M01S00531.ver13   +++|
05622  M01S00532.ver13   +++| CUA1     LDN    ESAA        SET UNIT ALREADY ASSIGNED STATUS
05623  M01S00533.ver13   +++|          UJN    CUAX        RETURN
05624  M00S04666.ver     +++| DCA      SPACE  4,10
05625  M00S04667.ver     +++|**        DCA - DETERMINE CHANNEL AVAILABILITY.
05626  M00S04668.ver     +++|*
05627  M00S04669.ver     +++|*         ENTRY  (T2) = CHANNEL NUMBER.
05628  M00S04670.ver     +++|*                (RBUF - RBUF+CTALL*5) = CHANNEL STATUS TABLE.
05629  M00S04671.ver     +++|*
05630  M00S04672.ver     +++|*         EXIT   (A) = 0 IF CHANNEL PREVIOUSLY ASSIGNED.
05631  M00S04673.ver     +++|*                (CM+1) .NE. 0 IF CHANNEL ASSIGNED.
05632  M00S04674.ver     +++|*
05633  M00S04675.ver     +++|*         USES   T3, T4, CM - CM+4.
05634  M00S04676.ver     +++|*
05635  M00S04677.ver     +++|*         CALLS  SEC, VRC.
05636  M00S04678.ver     +++|*
05637  M00S04679.ver     +++|*         MACROS MONITOR.
05638  M00S04680.ver     +++|
05639  M00S04681.ver     +++|
05640  M00S04682.ver     +++| DCA      SUBR               ENTRY/EXIT
05641  M00S04683.ver     +++|          LDM    RBUF,T2
05642  M00S04684.ver     +++|          SHN    21-5
05643  M00S04685.ver     +++|          PJN    DCA1        IF CHANNEL IS UP
05644  M00S04686.ver     +++|          LJM    DCA8        CHECK EQUIPMENT ON DOWN CHANNEL
05645  M00S04687.ver     +++|
05646  M00S04688.ver     +++|*         CHANNEL IS UP.  SEARCH FOR EQUIPMENT CONFIGURED ON IT.
05647  M00S04689.ver     +++|
05648  M00S04690.ver     +++| DCA1     LDD    T2          CHECK IF CONSOLE CHANNEL
05649  M00S04691.ver     +++|          LMN    CHDS
05650  M00S04692.ver     +++|          ZJN    DCA4        IF CONSOLE CHANNEL
05651  M00S04693.ver     +++|          LDD    T2
05652  M00S04694.ver     +++|          SBN    20
05653  M00S04695.ver     +++|          MJN    DCA2        IF CHANNEL 0-17B
05654  M00S04696.ver     +++|          SBN    40-20
05655  M00S04697.ver     +++|          MJN    DCA2        IF CHANNEL 20B-37B
05656  M00S04698.ver     +++|          SBN    56-40
05657  M00S04699.ver     +++| DCA2     ADN    4
05658  M00S04700.ver     +++|          PJN    DCA4        IF REQUESTED 14B-17B, 34B-37B, OR OVER 51B
05659  M00S04701.ver     +++| DCA3     LDD    LE
05660  M00S04702.ver     +++|          RJM    SEC         SEARCH FOR EQUIPMENT ON THIS CHANNEL
05661  M00S04703.ver     +++|          ZJN    DCA6        IF NO EQUIPMENT FOUND
05662  M00S04704.ver     +++| DCA4     LDN    0           SET CHANNEL NOT ASSIGNED
05663  M00S04705.ver     +++|          STD    CM+1
05664  M00S04706.ver     +++|          LDN    1
05665  M00S04707.ver     +++| DCA5     UJN    DCAX        RETURN
05666  M00S04708.ver     +++|
05667  M00S04709.ver     +++| DCA6     STD    CM+1        CLEAR EST ORDINAL
05668  M00S04710.ver     +++|          STD    CM+4        CLEAR MUX FLAG
05669  M00S04711.ver     +++|          LDN    DNCS        SET SUBFUNCTION
05670  M00S04712.ver     +++|          STD    CM+2
05671  M00S04713.ver     +++|          LDD    T2          SET CHANNEL NUMBER
05672  M00S04714.ver     +++|          STD    CM+3
05673  M00S04715.ver     +++|          MONITOR  SEQM      DOWN UNCONFIGURED CHANNEL
05674  M00S04716.ver     +++| DCA7     RJM    VRC         VE RESERVE CHANNEL
05675  M00S04717.ver     +++|          LDD    T4
05676  M00S04718.ver     +++|          UJN    DCA5        RETURN
05677  M00S04719.ver     +++|
05678  M00S04720.ver     +++|*         CHANNEL IS DOWN.  CHECK FOR NON-TRANSFERRABLE EQUIPMENT.
05679  M00S04721.ver     +++|
05680  M00S04722.ver     +++| DCA8     LDD    LE
05681  M00S04723.ver     +++| DCA9     RJM    SEC         SEARCH FOR EQUIPMENT ON THIS CHANNEL
05682  M00S04724.ver     +++|          PJN    DCA7        IF NO EQUIPMENT FOUND
05683  M00S04725.ver     +++|          LDN    0           INITIALIZE TABLE INDEX
05684  M00S04726.ver     +++|          STD    T4
05685  M00S04727.ver     +++| DCA10    LDM    TEQT,T4
05686  M00S04728.ver     +++|          ZJN    DCA3        IF END OF TABLE
05687  M00S04729.ver     +++|          LMD    CM+3
05688  M00S04730.ver     +++|          LPC    3777
05689  M00S04731.ver     +++|          ZJN    DCA9        IF EQUIPMENT IS TRANSFERRABLE
05690  M00S04732.ver     +++|          AOD    T4
05691  M00S04733.ver     +++|          UJN    DCA10       CHECK NEXT TABLE ENTRY
05692  M00S04734.ver     +++|
05693  M00S04735.ver     +++| TEQT     SPACE  4,10
05694  M00S04736.ver     +++|**        TEQT - TABLE OF TRANSFERRABLE EQUIPMENT.
05695  M00S04737.ver     +++|*
05696  M00S04738.ver     +++|*         ONE WORD ENTRY.
05697  M00S04739.ver     +++|*
05698  M00S04740.ver     +++|*T        12/2RMN
Figure

0112RMN

05699  M00S04741.ver     +++|*         MN = MNEMONIC OF EQUIPMENT THAT MAY BE TRANSFERRED TO NOS/VE.
05700  M00S04742.ver     +++|
05701  M00S04743.ver     +++|
05702  M00S04744.ver     +++| TEQT     BSS    0           TABLE OF TRANSFERRABLE EQUIPMENT
Line S00003 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05703  M01S00003.274l797 +++|          VFD    12/2RAT
05704  M01S00004.274l797 +++|          VFD    12/2RCT
05705  M00S04745.ver     +++|          VFD    12/2RMT
05706  M00S04746.ver     +++|          VFD    12/2RNT
05707  M00S04747.ver     +++|          VFD    12/2RDJ
05708  M00S04748.ver     +++|          VFD    12/2RDL
05709  M00S04749.ver     +++|          VFD    12/2RDM
05710  M00S04750.ver     +++|          VFD    12/2RDQ
05711  M00S04751.ver     +++|          VFD    12/0        END OF TABLE
05712  M00S04752.ver     +++| SEC      SPACE  4,15
05713  M00S04753.ver     +++|**        SEC - SEARCH FOR EQUIPMENT ON SPECIFIED CHANNEL.
05714  M00S04754.ver     +++|*
05715  M00S04755.ver     +++|*         ENTRY  (A) = EST ORDINAL+1 FROM WHICH TO START SEARCH.
05716  M00S04756.ver     +++|*                    = 0 IF (T3) = STARTING EST ORDINAL+1.
05717  M00S04757.ver     +++|*                (T2) = CHANNEL NUMBER.
05718  M00S04758.ver     +++|*
05719  M00S04759.ver     +++|*         EXIT   (A) = 0 IF NONE FOUND.
05720  M00S04760.ver     +++|*                    = (T3) = EST ORDINAL OF EQUIPMENT FOUND.
05721  M00S04761.ver     +++|*                (CM - CM+4) = EST ENTRY WORD *EQDE*.
05722  M00S04762.ver     +++|*
Line S00047 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
05723  M01S00047.252l678 +++|*         USES   T1, T3, CM - CM+4.
05724  M01S00048.252l678 +++|*
05725  M00S04763.ver     +++|*         MACROS SFA.
05726  M00S04764.ver     +++|
05727  M00S04765.ver     +++|
Line S04766 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
05728  M01S04766.252l678 ---| SEC5     LDD    T3
05729  M01S04767.252l678 ---|          SBN    EMEQ
05730  M01S04768.252l678 ---|          NJN    SEC6        IF NOT EXTENDED MEMORY ENTRY
05731  M01S04769.252l678 ---|          LDD    CM+3
05732  M01S04770.252l678 ---|          LMC    2RDP
05733  M01S04771.252l678 ---|          NJN    SEC1        IF NOT *DP* EQUIPMENT
05734  M01S04772.252l678 ---| SEC6     LDD    T3          RETURN EST ORDINAL
Line S00049 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
05735  M01S00049.252l678 +++| SEC3     LDD    T3          RETURN EST ORDINAL
05736  M00S04773.ver     +++|
05737  M00S04774.ver     +++| SEC      SUBR               ENTRY/EXIT
05738  M00S04775.ver     +++|          ZJN    SEC1        IF NOT INITIAL CALL
05739  M00S04776.ver     +++|          STD    T3          SAVE EST ORDINAL
05740  M00S04777.ver     +++| SEC1     SOD    T3          DECREMENT EST ORDINAL
05741  M00S04778.ver     +++|          SBN    NOPE-1
05742  M00S04779.ver     +++|          ZJN    SECX        IF END OF EST
05743  M00S04780.ver     +++|          SFA    EST,T3
05744  M00S04781.ver     +++|          ADK    EQDE
05745  M00S04782.ver     +++|          CRD    CM          READ EST ENTRY
05746  M00S04783.ver     +++|          LDD    CM+3
05747  M00S04784.ver     +++|          ZJN    SEC1        IF NULL ENTRY
Line S04785 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
05748  M01S04785.252l678 ---|          LDD    CM          CHECK CIO CHANNEL FLAG
05749  M01S04786.252l678 ---|          LMD    T2
05750  M01S04787.252l678 ---|          LPN    40
05751  M01S04788.252l678 ---|          NJN    SEC1        IF NOT RIGHT TYPE OF CHANNEL
05752  M01S04789.252l678 ---|          LDD    CM+1        CHECK PRIMARY CHANNEL
05753  M01S04790.252l678 ---|          LMD    T2
05754  M01S04791.252l678 ---|          LPN    37
05755  M01S04792.252l678 ---|          ZJN    SEC5        IF CHANNEL MATCHES
05756  M01S04793.252l678 ---|          LDD    T2
05757  M01S04794.252l678 ---|          LPN    37
05758  M01S04795.252l678 ---|          ZJN    SEC1        IF CHECKING CHANNEL 0
05759  M01S04796.252l678 ---|          LDD    CM+1        CHECK SECONDARY CHANNEL
05760  M01S04797.252l678 ---|          SHN    -6
05761  M01S04798.252l678 ---|          LMD    T2
05762  M01S04799.252l678 ---|          LPN    37
05763  M01S04800.252l678 ---| SEC2     ZJN    SEC6        IF CHANNEL MATCHES
05764  M01S04801.252l678 ---|          LDD    CM+3
05765  M01S04802.252l678 ---|          LPC    3777
05766  M01S04803.252l678 ---|          LMC    2RNT
05767  M01S04804.252l678 ---|          ZJN    SEC3        IF *NT*
05768  M01S04805.252l678 ---|          LMC    2RMT&2RNT
05769  M01S04806.252l678 ---|          NJN    SEC4        IF NOT *MT*
05770  M01S04807.252l678 ---| SEC3     LDD    CM+2        CHECK THIRD CHANNEL
05771  M01S04808.252l678 ---|          LMD    T2
05772  M01S04809.252l678 ---|          LPN    37
05773  M01S04810.252l678 ---|          ZJN    SEC2        IF CHANNEL MATCHES
05774  M01S04811.252l678 ---|          LDD    CM+2        CHECK FOURTH CHANNEL
05775  M01S04812.252l678 ---|          SHN    -6
05776  M01S04813.252l678 ---|          LMD    T2
05777  M01S04814.252l678 ---|          LPN    37
05778  M01S04815.252l678 ---|          ZJN    SEC2        IF CHANNEL MATCHES
05779  M01S04816.252l678 ---| SEC4     LJM    SEC1        TRY NEXT EQUIPMENT
Line S00050 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
05780  M01S00050.252l678 +++|          LMC    2RDE
05781  M01S00051.252l678 +++|          ZJN    SEC1        IF *DE* EQUIPMENT
05782  M01S00052.252l678 +++|          LDN    CM
05783  M01S00053.252l678 +++|          STD    T1
05784  M01S00054.252l678 +++| SEC2     AOD    T1
05785  M01S00055.252l678 +++|          LMN    CM+3
05786  M01S00056.252l678 +++|          ZJN    SEC1        IF BOTH CHANNELS CHECKED
05787  M01S00057.252l678 +++|          LDI    T1
05788  M01S00058.252l678 +++|          ZJN    SEC2        IF CHANNEL NOT PRESENT
05789  M01S00059.252l678 +++|          LMD    T2
05790  M01S00060.252l678 +++|          LPN    77
05791  M01S00061.252l678 +++|          ZJN    SEC3        IF CHANNEL MATCH
05792  M01S00062.252l678 +++|          UJN    SEC2        CHECK NEXT CHANNEL
Line S00534 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
05793  M01S00534.ver13   +++| SEE      SPACE  4,20
05794  M01S00535.ver13   +++|**        SEE - SEARCH EST FOR EQUIPMENT.
05795  M01S00536.ver13   +++|*
05796  M01S00537.ver13   +++|*         ENTRY  (CL - CL+4) = 6/CH, 6/EQ, 6/UN, 42/0.
05797  M01S00538.ver13   +++|*                CH = CHANNEL TO BE MATCHED.
05798  M01S00539.ver13   +++|*                EQ = EQUIPMENT (CONTROLLER) NUMBER TO BE MATCHED.
05799  M01S00540.ver13   +++|*                UN = UNIT NUMBER TO BE MATCHED.
05800  M01S00541.ver13   +++|*
05801  M01S00542.ver13   +++|*         EXIT   (A) .LT. 0 IF EST ENTRY NOT FOUND.
05802  M01S00543.ver13   +++|*                (T7) = EST ORDINAL IF ENTRY FOUND.
05803  M01S00544.ver13   +++|*                (CN - CN+4) = EST ENTRY.
05804  M01S00545.ver13   +++|*                (DC) = BIT NUMBER OF UNIT CORRESPONDING TO POSITION
05805  M01S00546.ver13   +++|*                       IN *DDLL* UNIT LIST.
05806  M01S00547.ver13   +++|*
05807  M01S00548.ver13   +++|*         USES   DA, DB, DC, T1, T3 - T5, T7, CM - CM+4, CN - CN+4.
05808  M01S00549.ver13   +++|*
05809  M01S00550.ver13   +++|*         MACROS SFA.
05810  M01S00551.ver13   +++|
05811  M01S00552.ver13   +++| SEE10    LCN    0           RETURN NOT FOUND FLAG
05812  M01S00553.ver13   +++|
05813  M01S00554.ver13   +++| SEE      SUBR               ENTRY/EXIT
05814  M01S00555.ver13   +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
05815  M01S00556.ver13   +++|          STD    T7
05816  M01S00557.ver13   +++|          LDD    CL          SAVE CHANNEL NUMBER
05817  M01S00558.ver13   +++|          SHN    14
05818  M01S00559.ver13   +++|          STD    T4
05819  M01S00560.ver13   +++|          SHN    -14
05820  M01S00561.ver13   +++|          STD    T5          SAVE EQUIPMENT (CONTROLLER) NUMBER
05821  M01S00562.ver13   +++|          LDD    CL+1        SAVE UNIT NUMBER
05822  M01S00563.ver13   +++|          SHN    -6
05823  M01S00564.ver13   +++|          STD    T3
05824  M01S00565.ver13   +++| SEE1     AOD    T7          ADVANCE EST ORDINAL
05825  M01S00566.ver13   +++|          LMD    LE
05826  M01S00567.ver13   +++|          ZJN    SEE10       IF END OF EST
05827  M01S00568.ver13   +++|          SFA    EST,T7
05828  M01S00569.ver13   +++|          ADK    EQDE
05829  M01S00570.ver13   +++|          CRD    CN          READ EST ENTRY
05830  M01S00571.ver13   +++|          LDD    CN+3
05831  M01S00572.ver13   +++|          ZJN    SEE1        IF NULL ENTRY
05832  M01S00573.ver13   +++|          LMC    2RDE
05833  M01S00574.ver13   +++|          ZJN    SEE1        IF *DE* EQUIPMENT
05834  M01S00575.ver13   +++|          LDN    CN
05835  M01S00576.ver13   +++|          STD    T1
05836  M01S00577.ver13   +++| SEE2     AOD    T1
05837  M01S00578.ver13   +++|          LMN    CN+3
05838  M01S00579.ver13   +++|          ZJN    SEE1        IF BOTH CHANNELS CHECKED
05839  M01S00580.ver13   +++|          LDI    T1
05840  M01S00581.ver13   +++|          ZJN    SEE2        IF CHANNEL NOT PRESENT
05841  M01S00582.ver13   +++|          LMD    T4
05842  M01S00583.ver13   +++|          LPN    77
05843  M01S00584.ver13   +++|          NJN    SEE2        IF CHANNEL DOESN-T MATCH
05844  M01S00585.ver13   +++|          LDD    CN
05845  M01S00586.ver13   +++|          SHN    21-13
05846  M01S00587.ver13   +++|          MJN    SEE4        IF MASS STORAGE DEVICE
05847  M01S00588.ver13   +++|
05848  M01S00589.ver13   +++|*         CHECK NON-MASS STORAGE DEVICE.
05849  M01S00590.ver13   +++|
05850  M01S00591.ver13   +++|          LDD    CN+4        CHECK EQUIPMENT (CONTROLLER) NUMBER
05851  M01S00592.ver13   +++|          SHN    -11
05852  M01S00593.ver13   +++|          LMD    T5
05853  M01S00594.ver13   +++| SEE2.1   NJN    SEE1        IF DIFFERENT EQUIPMENT NUMBER
05854  M01S00595.ver13   +++|          LDD    CN+4        CHECK FOR MATCHING UNIT NUMBER
05855  M01S00596.ver13   +++|          LPN    17
05856  M01S00597.ver13   +++|          LMD    T3
05857  M01S00598.ver13   +++| SEE3     NJN    SEE2.1      IF DIFFERENT UNIT NUMBER
05858  M01S00599.ver13   +++|          LJM    SEEX        RETURN
05859  M01S00600.ver13   +++|
05860  M01S00601.ver13   +++|*         CHECK MASS STORAGE DEVICE.
05861  M01S00602.ver13   +++|
05862  M01S00603.ver13   +++| SEE4     LDD    CN
05863  M01S00604.ver13   +++|          SHN    21-7
05864  M01S00605.ver13   +++|          PJN    SEE5        IF NOT *LDAM* TYPE
05865  M01S00606.ver13   +++|          LDD    T5
05866  M01S00607.ver13   +++|          NJN    SEE3        IF NON-ZERO EQUIPMENT (CONTROLLER) NUMBER
05867  M01S00608.ver13   +++|          UJN    SEE6        CHECK FOR MATCHING UNIT NUMBER
05868  M01S00609.ver13   +++|
05869  M01S00610.ver13   +++| SEE5     LDD    CN+2
05870  M01S00611.ver13   +++|          SHN    -11
05871  M01S00612.ver13   +++|          LMD    T5
05872  M01S00613.ver13   +++|          NJN    SEE3        IF EQUIPMENT (CONTROLLER) NUMBERS DIFFER
05873  M01S00614.ver13   +++|
05874  M01S00615.ver13   +++|*         CHECK UNIT NUMBER.
05875  M01S00616.ver13   +++|
05876  M01S00617.ver13   +++| SEE6     LDD    CN+4        READ UNIT LIST FROM MST
05877  M01S00618.ver13   +++|          SHN    3
05878  M01S00619.ver13   +++|          ADN    DDLL
05879  M01S00620.ver13   +++|          CRD    CM
05880  M01S00621.ver13   +++|          LDD    CM
05881  M01S00622.ver13   +++|          LPN    7
05882  M01S00623.ver13   +++|          STD    DA          SAVE NUMBER OF UNITS
05883  M01S00624.ver13   +++|          LDN    4           INITIALIZE NUMBER OF BYTES IN UNIT LIST
05884  M01S00625.ver13   +++|          STD    DB
05885  M01S00626.ver13   +++|          LDN    0           INITIALIZE CORRESPONDING *NVGL* BIT NUMBE
05886  M01S00627.ver13   +++|          STD    DC
05887  M01S00628.ver13   +++| SEE7     LDM    CM,DB       CHECK FOR MATCHING UNIT NUMBERS
05888  M01S00629.ver13   +++|          LPN    77
05889  M01S00630.ver13   +++|          LMD    T3
05890  M01S00631.ver13   +++|          ZJN    SEE9        IF UNIT NUMBERS MATCH
05891  M01S00632.ver13   +++|          AOD    DC          INCREMENT CORRESPONDING BIT NUMBER
05892  M01S00633.ver13   +++|          SOD    DA          DECREMENT NUMBER OF UNITS
05893  M01S00634.ver13   +++| SEE8     MJN    SEE3        IF END OF UNIT LIST
05894  M01S00635.ver13   +++|          LDM    CM,DB
05895  M01S00636.ver13   +++|          SHN    -6
05896  M01S00637.ver13   +++|          LMD    T3
05897  M01S00638.ver13   +++|          ZJN    SEE9        IF UNIT NUMBERS MATCH
05898  M01S00639.ver13   +++|          SOD    DB
05899  M01S00640.ver13   +++|          AOD    DC          INCREMENT CORRESPONDING BIT NUMBER
05900  M01S00641.ver13   +++|          SOD    DA          DECREMENT NUMBER OF UNITS
05901  M01S00642.ver13   +++|          MJN    SEE8        IF END OF UNIT LIST
05902  M01S00643.ver13   +++|          UJN    SEE7        CHECK NEXT UNIT IN LIST
05903  M01S00644.ver13   +++|
05904  M01S00645.ver13   +++| SEE9     LJM    SEEX        RETURN
05905  M00S04817.ver     +++| VCN      SPACE  4,10
05906  M00S04818.ver     +++|**        VCN - VALIDATE CHANNEL NUMBER.
05907  M00S04819.ver     +++|*
05908  M00S04820.ver     +++|*         ENTRY  (CL - CL+4) = CURRENT PARAMETER LIST ENTRY.
05909  M00S04821.ver     +++|*
05910  M00S04822.ver     +++|*         EXIT   (A) = ERROR RESPONSE CODE IF CHANNEL NUMBER INCORRECT.
05911  M00S04823.ver     +++|*                (A) .LT. 0 IF CHANNEL NUMBER IS CORRECT.
05912  M00S04824.ver     +++|*                (T2) = CHANNEL NUMBER, BIASED BY 40B IF CIO CHANNEL.
05913  M00S04825.ver     +++|*
05914  M00S04826.ver     +++|*         USES   T2.
05915  M00S04827.ver     +++|
05916  M00S04828.ver     +++|
05917  M00S04829.ver     +++| VCN1     LDD    T2
05918  M00S04830.ver     +++|          SBK    MXNC+1
05919  M00S04831.ver     +++|          MJN    VCNX        IF CHANNEL NUMBER IS CORRECT
05920  M00S04832.ver     +++| VCN2     LDD    TH          SET INCORRECT REQUEST STATUS (*ESIR*)
05921  M00S04833.ver     +++|
05922  M00S04834.ver     +++| VCN      SUBR
05923  M00S04835.ver     +++|          LDD    CL          CHANNEL NUMBER
05924  M00S04836.ver     +++|          SHN    -6
05925  M00S04837.ver     +++|          STD    T2
05926  M00S04838.ver     +++|          LDD    CL+1        GET TYPE
05927  M00S04839.ver     +++|          SBK    VNCT
05928  M00S04840.ver     +++|          ZJN    VCN1        IF NIO CHANNEL REQUEST
05929  M00S04841.ver     +++|          SBK    VCCT-VNCT
05930  M00S04842.ver     +++|          NJN    VCN2        IF NOT CIO CHANNEL REQUEST
05931  M00S04843.ver     +++|          LDN    40
05932  M00S04844.ver     +++|          RAD    T2
05933  M00S04845.ver     +++|          SBK    MXCH+1
05934  M00S04846.ver     +++|          PJN    VCN2        IF CHANNEL NUMBER OUT OF RANGE
05935  M00S04847.ver     +++|          ADK    MXCH+1-40
05936  M00S04848.ver     +++|          SBD    DB
05937  M00S04849.ver     +++|          MJN    VCNX        IF CHANNEL IS IN SYSTEM
05938  M00S04850.ver     +++|          LDK    ESCC        SET CIO CHANNEL NOT PRESENT (*ESCC*)
05939  M00S04851.ver     +++|          UJN    VCNX        RETURN WITH ERROR STATUS
Line S04852 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
05940  M01S04852.ver13   ---| VRC      SPACE  4,15
05941  M01S04853.ver13   ---|**        VRC - VE RESERVE CHANNEL.
05942  M01S04854.ver13   ---|*
05943  M01S04855.ver13   ---|*         ENTRY  (T2) = CHANNEL NUMBER.
05944  M01S04856.ver13   ---|*
05945  M01S04857.ver13   ---|*         EXIT   (T4) = 0 IF CHANNEL PREVIOUSLY NOS/VE RESERVED.
05946  M01S04858.ver13   ---|*                (CM+1) = NONZERO VALUE IF CHANNEL ASSIGNED.
05947  M01S04859.ver13   ---|*                NIO CHANNEL DISCONNECTED IF ASSIGNED.
05948  M01S04860.ver13   ---|*
05949  M01S04861.ver13   ---|*         USES   T4, CM - CM+4.
05950  M01S04862.ver13   ---|*
05951  M01S04863.ver13   ---|*         CALLS  CCA.
05952  M01S04864.ver13   ---|*
05953  M01S04865.ver13   ---|*         MACROS MONITOR.
05954  M01S04866.ver13   ---|
05955  M01S04867.ver13   ---|
05956  M01S04868.ver13   ---| VRC      SUBR               ENTRY/EXIT
05957  M01S04869.ver13   ---|          RJM    CCA         CHECK CHANNEL ASSIGNMENT
05958  M01S04870.ver13   ---|          NJN    VRC2        IF CHANNEL NOT ALREADY NOS/VE RESERVED
05959  M01S04871.ver13   ---|          STD    T4
05960  M01S04872.ver13   ---| VRC1     UJN    VRCX        RETURN
05961  M01S04873.ver13   ---|
05962  M01S04874.ver13   ---| VRC2     LDD    T2          SET CHANNEL NUMBER
05963  M01S04875.ver13   ---|          STD    CM+3
05964  M01S04876.ver13   ---|          LDM    NEJT        SET ALTERNATE EJT ORDINAL
05965  M01S04877.ver13   ---|          STD    CM+4
05966  M01S04878.ver13   ---|          LDC    4001        SET DUMMY EST ORDINAL
05967  M01S04879.ver13   ---|          STD    CM+1
05968  M01S04880.ver13   ---|          LDN    ICNS        SET SUBFUNCTION
05969  M01S04881.ver13   ---|          STD    CM+2
05970  M01S04882.ver13   ---|          MONITOR  SEQM      REQUEST CHANNEL
05971  M01S04883.ver13   ---|          LDD    CM+1
05972  M01S04884.ver13   ---|          ZJP    VRCX        IF CHANNEL NOT AVAILABLE
05973  M01S04885.ver13   ---|          LDD    T2
05974  M01S04886.ver13   ---|          LPN    40
05975  M01S04887.ver13   ---|          NJP    VRCX        IF CONCURRENT CHANNEL
05976  M01S04888.ver13   ---|          LDC    DCNI+40     DISCONNECT CHANNEL
05977  M01S04889.ver13   ---|          ADD    T2
05978  M01S04890.ver13   ---|          STM    VRCA
05979  M01S04891.ver13   ---| VRCA     DCN    **+40
05980  M01S04892.ver13   ---|          UJP    VRCX        RETURN
05981  M01S04893.ver13   ---| VTC      SPACE  4,10
05982  M01S04894.ver13   ---|**        VTC - VE RETURN CHANNEL.
05983  M01S04895.ver13   ---|*
05984  M01S04896.ver13   ---|*         ENTRY  (T2) = CHANNEL NUMBER.
05985  M01S04897.ver13   ---|*
05986  M01S04898.ver13   ---|*         EXIT   (A) = 0.
05987  M01S04899.ver13   ---|*                CHANNEL RETURNED.
05988  M01S04900.ver13   ---|*
05989  M01S04901.ver13   ---|*         USES   CM - CM+4.
05990  M01S04902.ver13   ---|*
05991  M01S04903.ver13   ---|*         MACROS MONITOR.
05992  M01S04904.ver13   ---|
05993  M01S04905.ver13   ---|
05994  M01S04906.ver13   ---| VTC      SUBR               ENTRY/EXIT
05995  M01S04907.ver13   ---|          LDD    T2          SET CHANNEL NUMBER
05996  M01S04908.ver13   ---|          STD    CM+3
05997  M01S04909.ver13   ---|          LDM    NEJT        SET ALTERNATE EJT ORDINAL
05998  M01S04910.ver13   ---|          STD    CM+4
05999  M01S04911.ver13   ---|          LDC    4001        SET DUMMY EST ORDINAL
06000  M01S04912.ver13   ---|          STD    CM+1
06001  M01S04913.ver13   ---|          LDN    CCNS        SET SUBFUNCTION
06002  M01S04914.ver13   ---|          STD    CM+2
06003  M01S04915.ver13   ---|          MONITOR  SEQM      RETURN CHANNEL
06004  M01S04916.ver13   ---|*         LDN    0
06005  M01S04917.ver13   ---|          UJN    VTCX        RETURN
Line S00646 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06006  M01S00646.ver13   +++| VET      SPACE  4,15
06007  M01S00647.ver13   +++|**        VET - VALIDATE EQUIPMENT TRANSFERABILITY.
06008  M01S00648.ver13   +++|*
06009  M01S00649.ver13   +++|*         ENTRY  (CN - CN+4) = EST ENTRY.
06010  M01S00650.ver13   +++|*                (T7) = EST ORDINAL.
06011  M01S00651.ver13   +++|*                (NEJT) = NOS/VE EJT ORDINAL.
06012  M01S00652.ver13   +++|*
06013  M01S00653.ver13   +++|*         EXIT   (A) = 0 IF EQUIPMENT DOWN AND NOT ASSIGNED TO NOS/VE.
06014  M01S00654.ver13   +++|*                    .LT. 0 IF ALREADY ASSIGNED TO NOS/VE.
06015  M01S00655.ver13   +++|*                    = *ESEQ* ERROR STATUS IF NOT DOWN.
06016  M01S00656.ver13   +++|*
06017  M01S00657.ver13   +++|*         USES   CM - CM+4.
06018  M01S00658.ver13   +++|*
06019  M01S00659.ver13   +++|*         MACROS SFA.
06020  M01S00660.ver13   +++|
06021  M01S00661.ver13   +++|
06022  M01S00662.ver13   +++| VET2     LCN    0           SET STATUS
06023  M01S00663.ver13   +++|
06024  M01S00664.ver13   +++| VET      SUBR               ENTRY/EXIT
06025  M01S00665.ver13   +++|          LDD    CN
06026  M01S00666.ver13   +++|          LPN    3
06027  M01S00667.ver13   +++|          LMN    3
06028  M01S00668.ver13   +++|          NJN    VET1        IF EQUIPMENT NOT DOWN
06029  M01S00669.ver13   +++|          SFA    EST,T7      CHECK EQUIPMENT ASSIGNMENT
06030  M01S00670.ver13   +++|          ADK    EQAE
06031  M01S00671.ver13   +++|          CRD    CM
06032  M01S00672.ver13   +++|          LDM    NEJT
06033  M01S00673.ver13   +++|          LMD    CM+4
06034  M01S00674.ver13   +++|          ZJN    VET2        IF ASSIGNED TO NOS/VE
06035  M01S00675.ver13   +++|          LDN    0           SET NOT ASSIGNED STATUS
06036  M01S00676.ver13   +++|          UJN    VETX        RETURN
06037  M01S00677.ver13   +++|
06038  M01S00678.ver13   +++| VET1     LDN    ESEQ        SET EQUIPMENT NOT AVAILABLE STATUS
06039  M01S00679.ver13   +++|          UJN    VETX        RETURN
06040  M00S04918.ver     +++|          TITLE  PRESET.
06041  M00S04919.ver     +++| PRS      SPACE  4,10
06042  M00S04920.ver     +++|**        PRS - PRESET VIRTUAL ENVIRONMENT REQUEST OVERLAY.
06043  M00S04921.ver     +++|*
06044  M00S04922.ver     +++|*         EXIT   (POFA) = FUNCTION PROCESSOR ADDRESS.
06045  M00S04923.ver     +++|*                (SRAA - SRAA+1) = NOS REQUEST HEADER ADDRESS.
Line S04924 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06046  M01S04924.ver13   ---|*                (CCAA - CCAA+1) = (RNCA - RNCA+1) = (STCA - STCA+1) =
06047  M01S04925.ver13   ---|*                        FWA OF CHANNEL EJT ASSIGNMENT TABLE.
Line S00680 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06048  M01S00680.ver13   +++|*                (RNCA - RNCA+1) = (STCA - STCA+1) = FWA
06049  M01S00681.ver13   +++|*                        OF CHANNEL EJT ASSIGNMENT TABLE.
06050  M00S04926.ver     +++|*                (DA) = NUMBER OF NPP-S IN SYSTEM.
06051  M00S04927.ver     +++|*                (DB) = NUMBER OF CPP-S IN SYSTEM.
06052  M00S04928.ver     +++|*
06053  M00S04929.ver     +++|*         USES   DA, DB, CN - CN+4.
06054  M00S04930.ver     +++|*
06055  M00S04931.ver     +++|*         CALLS  SRI.
06056  M00S04932.ver     +++|
06057  M00S04933.ver     +++|
06058  M00S04934.ver     +++| PRS      SUBR               ENTRY/EXIT
06059  M00S04935.ver     +++|          RJM    SEA         LOCATE DFT/OS BUFFER
06060  M00S04936.ver     +++|          ADN    DSCM+3
06061  M00S04937.ver     +++|          CRD    CM
06062  M00S04938.ver     +++|          LDD    CM+2        READ *DFT* CONTROL WORD
06063  M00S04939.ver     +++|          SHN    14
06064  M00S04940.ver     +++|          LMD    CM+3
06065  M00S04941.ver     +++|          SHN    -4
06066  M00S04942.ver     +++|          SHN    6
06067  M00S04943.ver     +++|          LMD    CM
06068  M00S04944.ver     +++|          ADN    DFRQ        READ NOS REQUEST AREA POINTER
06069  M00S04945.ver     +++|          CRD    CM
06070  M00S04946.ver     +++|          LDD    CM+2        SET ADDRESS OF NOS REQUEST HEADER
06071  M00S04947.ver     +++|          SHN    14
06072  M00S04948.ver     +++|          LMD    CM+3
06073  M00S04949.ver     +++|          SHN    -4
06074  M00S04950.ver     +++|          SHN    6
06075  M00S04951.ver     +++|          LMD    CM
06076  M00S04952.ver     +++|          STM    SRAA+1      SAVE ADDRESS
06077  M00S04953.ver     +++|          SHN    -14
06078  M00S04954.ver     +++|          RAM    SRAA
06079  M00S04955.ver     +++|          LDK    CHTP
06080  M00S04956.ver     +++|          CRD    CN
06081  M00S04957.ver     +++|          LDD    CN+2        SAVE EJT ASSIGNMENT TABLE ADDRESS
06082  M00S04958.ver     +++|          SHN    14
06083  M00S04959.ver     +++|          LMD    CN+3
06084  M00S04960.ver     +++|          ADN    CTALL
Line S04961 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06085  M01S04961.ver13   ---|          STM    CCAA+1
06086  M00S04962.ver     +++|          STM    RNCA+1
06087  M00S04963.ver     +++|          STM    STCA+1
06088  M00S04964.ver     +++|          SHN    -14
Line S04965 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06089  M01S04965.ver13   ---|          RAM    CCAA
06090  M01S04966.ver13   ---|          STM    RNCA
Line S00682 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06091  M01S00682.ver13   +++|          RAM    RNCA
06092  M00S04967.ver     +++|          STM    STCA
06093  M00S04968.ver     +++|          LDD    CN+2        SAVE CHANNEL STATUS TABLE ADDRESS
06094  M00S04969.ver     +++|          RAM    RSCA
06095  M00S04970.ver     +++|          LDD    CN+3
06096  M00S04971.ver     +++|          STM    RSCA+1
06097  M00S04972.ver     +++|          RJM    SRI         SET RECONFIGURATION INFORMATION
06098  M00S04973.ver     +++|          LDN    PPUL        GET THE PP COUNTS
06099  M00S04974.ver     +++|          CRD    CN
06100  M00S04975.ver     +++|          LDD    CN+2
06101  M00S04976.ver     +++|          STD    DA          NUMBER OF NPP-S IN SYSTEM
06102  M00S04977.ver     +++|          LDD    CN+3
06103  M00S04978.ver     +++|          LPN    77
06104  M00S04979.ver     +++|          STD    DB          NUMBER OF CPP-S/CIO CHANNELS IN SYSTEM
06105  M00S04980.ver     +++|          LDM    TFCN,IR+2   SET FUNCTION PROCESSOR ADDRESS
06106  M00S04981.ver     +++|          STM    POFA
06107  M00S04982.ver     +++|          LJM    PRSX        RETURN
06108  M00S04983.ver     +++|
06109  M00S04984.ver     +++| SRI      SPACE  4,10
06110  M00S04985.ver     +++|**        SRI - SET RECONFIGURATION INFORMATION.
06111  M00S04986.ver     +++|*
06112  M00S04987.ver     +++|*         ENTRY  (EC) = IOU CONNECT CODE.
06113  M00S04988.ver     +++|*
06114  M00S04989.ver     +++|*         EXIT   (SPBA) = NIO BARREL CONFIGURATION.
06115  M00S04990.ver     +++|*                (SPBB) = NUMBER OF NIO BARRELS PRESENT.
06116  M00S04991.ver     +++|*
06117  M00S04992.ver     +++|*         USES   T1, T2, CM - CM+4.
06118  M00S04993.ver     +++|*
06119  M00S04994.ver     +++|*         MACROS READMR.
06120  M00S04995.ver     +++|
06121  M00S04996.ver     +++|
06122  M00S04997.ver     +++| SRI      SUBR               ENTRY/EXIT
Line S04998 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06123  M01S04998.ver13   ---|          READMR SRIB,,ISTR
06124  M00S04999.ver     +++|          LDN    0           INITIALIZE BARREL COUNT
06125  M00S05000.ver     +++|          STD    T1
06126  M00S05001.ver     +++|          LDN    2           SET WORD COUNT
06127  M00S05002.ver     +++|          STD    T2
06128  M00S05003.ver     +++|          LDK    EABL+IOEI   READ IOU INFORMATION
06129  M00S05004.ver     +++|          CRD    CM
06130  M00S05005.ver     +++|          LDD    CM+1
06131  M00S05006.ver     +++|          SCN    77
06132  M00S05007.ver     +++|          SHN    6
06133  M00S05008.ver     +++|          ADD    CM
06134  M00S05009.ver     +++|          SHN    6
06135  M00S05010.ver     +++|          CRM    SRIA,T2
06136  M00S05011.ver     +++|          LDM    SRIA+/DSL/PPP0  CHECK ALL PP-S PRESENT IN BARREL 1
06137  M00S05012.ver     +++|          NJN    SRI3        IF ONLY ONE BARREL
06138  M00S05013.ver     +++|          LDM    SRIA+/DSL/PPP1
06139  M00S05014.ver     +++|          SHN    21-4
06140  M00S05015.ver     +++|          MJN    SRI2        IF ONLY TWO BARRELS
06141  M00S05016.ver     +++|          NJN    SRI1        IF THREE BARRELS
06142  M00S05017.ver     +++|          AOD    T1
06143  M00S05018.ver     +++| SRI1     AOD    T1
06144  M00S05019.ver     +++| SRI2     AOD    T1
06145  M00S05020.ver     +++| SRI3     AOD    T1
Line S05021 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06146  M01S05021.ver13   ---|          ADC    SBNI
06147  M01S05022.ver13   ---|          STM    SPBB        SET NUMBER OF BARRELS
Line S00683 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06148  M01S00683.ver13   +++|          RAM    SPBB        SET NUMBER OF BARRELS
06149  M00S05023.ver     +++|          LDM    SRIA+/DSL/HDMN  GET IOU MODEL NUMBER
Line S05024 Modification History
M01 (Removed by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
06150  M01S05024.ns2711  ---|          SHN    -10
06151  M01S05025.ns2711  ---|          SBN    2
06152  M01S05026.ns2711  ---|          PJN    SRI4        IF NOT MODEL I1
Line S00012 Modification History
M01 (Added by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
06153  M01S00012.ns2711  +++|          SHN    -4
06154  M01S00013.ns2711  +++|          LMC    0#42
Line S00014 Modification History
M01 (Added by) ns2711
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06155  M02S00014.ver13   ---|          NJN    SRI3.1      IF NOT MODEL 42 IOU
Line S00684 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06156  M01S00684.ver13   +++|          NJN    SRI4        IF NOT MODEL 42 IOU
Line S00015 Modification History
M01 (Added by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
06157  M01S00015.ns2711  +++|          LDN    PSNI
06158  M01S00016.ns2711  +++|          STM    SPBG
06159  M01S00017.ns2711  +++|          UJN    SRI5        CONTINUE RECONFIGURATION
06160  M01S00018.ns2711  +++|
Line S00019 Modification History
M01 (Added by) ns2711
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06161  M02S00019.ver13   ---| SRI3.1   SHN    -4
Line S00685 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06162  M01S00685.ver13   +++| SRI4     SHN    -4
Line S00020 Modification History
M01 (Added by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
06163  M01S00020.ns2711  +++|          SBN    1
Line S00021 Modification History
M01 (Added by) ns2711
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06164  M02S00021.ver13   ---|          NJN    SRI4        IF NOT MODEL I1
Line S05027 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06165  M01S05027.ver13   ---|          LDM    SRIB+7
06166  M01S05028.ver13   ---|          SHN    -3
06167  M01S05029.ver13   ---|          LPN    2
06168  M01S05030.ver13   ---|          UJN    SRI6        SET BARREL RECONFIGURATION
06169  M01S05031.ver13   ---|
Line S05032 Modification History
M01 (Removed by) ns2711
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06170  M02S05032.ver13   ---| SRI4     NJN    SRI5        IF NOT MODEL I2
Line S00022 Modification History
M01 (Added by) ns2711
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06171  M02S00022.ver13   ---| SRI4     MJN    SRI5        IF NOT MODEL I2
Line S00686 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06172  M01S00686.ver13   +++|          ZJN    SRI6        IF IOU MODEL I1
06173  M01S00687.ver13   +++|          MJN    SRI5        IF NOT MODEL I2
06174  M00S05033.ver     +++|          LDN    40          MODIFY EC REGISTER SETTINGS FOR I2
06175  M00S05034.ver     +++|          RAM    DPLB
06176  M00S05035.ver     +++|          STM    IPPA
06177  M00S05036.ver     +++|          LDN    40
06178  M00S05037.ver     +++|          RAM    DPLC
06179  M00S05038.ver     +++|          STM    IPPB
Line S05039 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06180  M01S05039.ver13   ---| SRI5     LDM    SRIB+7
Line S00688 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06181  M01S00688.ver13   +++| SRI5     AOM    SRIB        MODIFY FOR IOU MODEL I2 OR I4
06182  M01S00689.ver13   +++| SRI6     READMR SRIA,,ISTR
06183  M01S00690.ver13   +++|          LDM    SRIA+7
06184  M00S05040.ver     +++|          SHN    -3
Line S05041 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06185  M01S05041.ver13   ---|          LPN    3
06186  M01S05042.ver13   ---| SRI6     ADC    ADNI
06187  M01S05043.ver13   ---|          STM    SPBA        SET NIO BARREL RECONFIGURATION
Line S00691 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06188  M01S00691.ver13   +++| SRIB     LPN    2           (IOU MODEL I1)
06189  M01S00692.ver13   +++|*         LPN    3           (IOU MODEL I2 OR I4)
06190  M01S00693.ver13   +++|          RAM    SPBA        SET NIO BARREL RECONFIGURATION
06191  M00S05044.ver     +++|          LJM    SRIX        RETURN
06192  M00S05045.ver     +++|
06193  M00S05046.ver     +++| SRIA     BSS    2*5         IOU INFORMATION
Line S05047 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06194  M01S05047.ver13   ---| SRIB     BSS    12          IOU STATUS REGISTER BUFFER
06195  M00S05048.ver     +++| TFCN     SPACE  4,10
06196  M00S05049.ver     +++|**        TFCN - TABLE OF FUNCTION PROCESSOR ADDRESSES.
06197  M00S05050.ver     +++|*
06198  M00S05051.ver     +++|*         ONE WORD INDEXED BY FUNCTION CODE.
06199  M00S05052.ver     +++|*
06200  M00S05053.ver     +++|*T        12/ ADDR
Figure

011 ADDR

06201  M00S05054.ver     +++|*
06202  M00S05055.ver     +++|*         ADDR   ADDRESS OF FUNCTION PROCESSOR.
06203  M00S05056.ver     +++|
06204  M00S05057.ver     +++|
06205  M00S05058.ver     +++| TFCN     BSS    0           TABLE OF FUNCTION PROCESSOR ADDRESSES
06206  M00S05059.ver     +++|          LOC    0
06207  M00S05060.ver     +++|
06208  M00S05061.ver     +++| RSCM     FCN    EOS         RESERVE CM                 (IN MAIN)
06209  M00S05062.ver     +++| RSPP     FCN    EOS         RESERVE PP                 (IN MAIN)
06210  M00S05063.ver     +++| RSCH     FCN    EOS         RESERVE CHANNEL            (IN MAIN)
Line S05064 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06211  M01S05064.ver13   ---| RSEQ     FCN    EOS         RESERVE EQUIPMENT          (IN MAIN)
Line S00694 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06212  M01S00694.ver13   +++| RSEQ     FCN    REQ         RESERVE EQUIPMENT
06213  M00S05065.ver     +++| RNCM     FCN    EOS         RETURN CM                  (IN MAIN)
06214  M00S05066.ver     +++| RNPP     FCN    EOS         RETURN PP                  (IN MAIN)
06215  M00S05067.ver     +++| RNCH     FCN    EOS         RETURN CHANNEL             (IN MAIN)
Line S05068 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06216  M01S05068.ver13   ---| RNEQ     FCN    EOS         RETURN EQUIPMENT           (IN MAIN)
Line S00695 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06217  M01S00695.ver13   +++| RNEQ     FCN    TEQ         RETURN EQUIPMENT
06218  M00S05069.ver     +++| STCM     FCN    EOS         STATUS CM                  (IN MAIN)
06219  M00S05070.ver     +++| STPP     FCN    EOS         STATUS PP                  (IN MAIN)
06220  M00S05071.ver     +++| STCH     FCN    EOS         STATUS CHANNELS            (IN MAIN)
Line S05072 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06221  M01S05072.ver13   ---| STEQ     FCN    EOS         STATUS EQUIPMENT           (IN MAIN)
Line S00696 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06222  M01S00696.ver13   +++| STEQ     FCN    SEQ         STATUS EQUIPMENT
06223  M00S05073.ver     +++| STMR     FCN    EOS         STATUS AVAILABLE RESOURCES (IN MAIN)
06224  M00S05074.ver     +++| SFRC     FCN    FRC         SET FREE-RUNNING COUNTER TO VALUE
06225  M00S05075.ver     +++| RSPT     FCN    RSP         RESERVE NPP, NPP PARTNER PAIR OR CPP
06226  M00S05076.ver     +++| RSCT     FCN    RSC         RESERVE NIO OR CIO CHANNEL
06227  M00S05077.ver     +++| RNPT     FCN    RNP         RETURN NPP, CPP OR ALL PP-S
06228  M00S05078.ver     +++| RNCT     FCN    RNC         RETURN NIO OR CIO CHANNEL OR ALL CHANNELS
06229  M00S05079.ver     +++| STPT     FCN    STP         STATUS NPP-S AND/OR CPP-S
06230  M00S05080.ver     +++| STCT     FCN    STC         STATUS NIO AND/OR CIO CHANNELS
06231  M00S05081.ver     +++|
06232  M00S05082.ver     +++| MXVR     BSS    0           MAXIMUM *VER* REQUEST + 1
06233  M00S05083.ver     +++|          LOC    *O
06234  M00S05084.ver     +++| TFCNL    EQU    *-TFCN      LENGTH OF FUNCTION CODE TABLE
06235  M00S05085.ver     +++| EOS      SPACE  4,10
06236  M00S05086.ver     +++|**        EOS -  ERROR IN OVERLAY SELECTION.
06237  M00S05087.ver     +++|*
06238  M00S05088.ver     +++|*         OVERLAY *2VR* IS EXECUTING WITH A FUNCTION WHICH SHOULD
06239  M00S05089.ver     +++|*         HAVE BEEN PROCESSED IN THE MAIN *VER* OVERLAY.
06240  M00S05090.ver     +++|*
06241  M00S05091.ver     +++|*         ENTRY  OVERLAY PRESET COMPLETED.
06242  M00S05092.ver     +++|*
06243  M00S05093.ver     +++|*         EXIT   TO *ERR* IN MAIN OVERLAY.
06244  M00S05094.ver     +++|
06245  M00S05095.ver     +++|
06246  M00S05096.ver     +++| EOS      SUBR               ENTRY (NO EXIT)
06247  M00S05097.ver     +++|          ABORT  EROS        * VER - OVERLAY SELECTION ERROR*
06248  M00S05098.ver     +++|          SPACE  4,10
Line S05099 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06249  M01S05099.ver13   ---|          OVERFLOW
Line S00697 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
06250  M01S00697.ver13   +++|*         CHECK FOR OVERFLOW.
06251  M01S00698.ver13   +++|
06252  M01S00699.ver13   +++|
06253  M01S00700.ver13   +++|          OVERFLOW  OVLA,EPFW
06254  M00S05100.ver     +++|          TTL    VER - VIRTUAL ENVIRONMENT REQUEST PROCESSOR.
06255  M00S05101.ver     +++|          END