User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ds.003

Deck 1DS Part 003

41 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00021 Modification History
M01 (Added by) ns2587
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
04367  M02S00021.ns2748a ---|          CRD    T4
04368  M01S00008.ns2748a +++|          LDD    RA          SET *IAF* RA
04369  M01S00009.ns2748a +++|          STD    T7
04370  M01S00022.ns2587  +++|          RJM    GTN         GET TERMINAL NUMBER
04371  M01S00023.ns2587  +++|          MJN    KIJX        IF NOT FOUND
04372  M01S00024.ns2587  +++|          LDD    AB+3        SET TERMINAL NUMBER
04373  M01S00025.ns2587  +++|          STM    WARA+4
04374  M01S00026.ns2587  +++|          LDC    /REM/VTLF
04375  M01S00027.ns2587  +++|          STM    WARA
04376  M01S00028.ns2587  +++|          LDN    2           SET UNCONDITIONAL LOGOFF
04377  M01S00029.ns2587  +++|          STM    WARA+2
04378  M01S00030.ns2587  +++|          RJM    ITR         ISSUE *TSEM* REQUEST
Line S00031 Modification History
M01 (Added by) ns2587
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
04379  M02S00031.ns2748a ---|          UJN    KIJX        RETURN
04380  M01S00010.ns2748a +++|          LJM    KIJX        RETURN
04381  M01S03431.1ds     +++| WAR      SPACE  4,10
04382  M01S03432.1ds     +++|***       FUNCTION WARF - SEND *IAF* WARNING MESSAGE.
04383  M01S03433.1ds     +++|*
04384  M01S03434.1ds     +++|*         ENTRY  (CP) = *IAF* CONTROL POINT ADDRESS.
04385  M01S03435.1ds     +++|*                (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/.
04386  M01S03436.1ds     +++|
04387  M01S03437.1ds     +++|
04388  M01S03438.1ds     +++| WAR      ENTRY              ENTRY/EXIT
04389  M01S03439.1ds     +++|          LDC    IFSI        FIND *IAF*
04390  M01S03440.1ds     +++|          RJM    CSS
04391  M01S03441.1ds     +++|          LDD    IR+4
04392  M01S03442.1ds     +++|          SHN    -6
04393  M01S03443.1ds     +++|          NJN    WAR1        IF NOT CLEAR PREVIOUS MESSAGE
04394  M01S03444.1ds     +++|          LDC    2R"NL"      SET NEW LINE TO CLEAR BUFFER
04395  M01S03445.1ds     +++|          STM    BFMS+5*6+2
04396  M01S03446.1ds     +++|          UJN    WAR2        CLEAR OLD MESSAGE
04397  M01S03447.1ds     +++|
04398  M01S03448.1ds     +++| WAR1     LDN    TIML        SET TIME
04399  M01S03449.1ds     +++|          CRM    BFMS+5*3,ON
04400  M01S03450.1ds     +++|          LDD    MA          SET WARNING
04401  M01S03451.1ds     +++|          CWM    =C* WARNING*,ON
04402  M01S03452.1ds     +++|          SBN    1
04403  M01S03453.1ds     +++|          CRM    BFMS+5*4,ON
04404  M01S03454.1ds     +++|          LDN    ZERL
04405  M01S03455.1ds     +++|          CRM    BFMS+5*5,ON
Line S03456 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04406  M02S03456.ns2680  ---|          PAUSE
Line S03457 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04407  M02S03457.ns2680  ---|          LDD    CM+1
04408  M01S00090.ns2680  +++|          CHKERR
04409  M01S03458.1ds     +++|          NJN    WAR4        IF ERROR FLAG
04410  M01S03459.1ds     +++|          LDN    6           FOUR HEADER AND TWO LINKAGE WORDS
04411  M01S03460.1ds     +++|          RJM    SBT         FILL POTS WITH MESSAGE
04412  M01S03461.1ds     +++|          ZJN    WAR4        IF POT CHAIN NOT AVAILABLE
04413  M01S03462.1ds     +++| WAR2     LDC    BFMS+5*6+2-1  FIND NEW LINE
04414  M01S03463.1ds     +++|          STD    T1
04415  M01S03464.1ds     +++| WAR3     AOD    T1
04416  M01S03465.1ds     +++|          LDI    T1
04417  M01S03466.1ds     +++|          LMC    2R"NL"
04418  M01S03467.1ds     +++|          NJN    WAR3        IF NOT FOUND
04419  M01S03468.1ds     +++|          STI    T1          SET MESSAGE TERMINATOR
04420  M01S03469.1ds     +++|          RJM    ITR         ISSUE *TSEM* REQUEST
04421  M01S03470.1ds     +++|          ZJN    WAR4        IF IAF NOT AVAILABLE
04422  M01S03471.1ds     +++|          LDD    CP          COPY MESSAGE TO B DISPLAY
04423  M01S03472.1ds     +++|          ADN    MS1W
04424  M01S03473.1ds     +++|          CWM    BFMS+5*6+2,FV
04425  M01S03474.1ds     +++| WAR4     LJM    WARX        EXIT
04426  M01S03475.1ds     +++|
04427  M01S03476.1ds     +++|
04428  M01S03477.1ds     +++| WARA     CON    /REM/VMSG
04429  M01S03478.1ds     +++|          CON    0
04430  M01S03479.1ds     +++|          CON    0           LAST POT FILLED
04431  M01S03480.1ds     +++|          CON    0           FIRST POT FILLED
04432  M01S03481.1ds     +++|          CON    0           TERMINAL NUMBER (DIAL)
04433  M01S00015.ns2765  +++| EUF      SPACE  4,10
04434  M01S00016.ns2765  +++|***       FUNCTION EUFF - ENTER MAGNET UDT ENTRY.
04435  M01S00017.ns2765  +++|*
04436  M01S00018.ns2765  +++|*         ENTRY  (IR+3) = OFFSET INTO KEYBOARD BUFFER.
04437  M01S00019.ns2765  +++|
04438  M01S00020.ns2765  +++|
04439  M01S00021.ns2765  +++| EUF      ENTRY              ENTRY/EXIT
04440  M01S00022.ns2765  +++|
04441  M01S00023.ns2765  +++|*         CHECK MAGNET STATUS AND FIND UDT ENTRY.
04442  M01S00024.ns2765  +++|
04443  M01S00025.ns2765  +++|          LDC    MTSI
04444  M01S00026.ns2765  +++|          RJM    CSS         CHECK MAGNET STATUS
04445  M01S00027.ns2765  +++|          LDK    /1DS/DSDL+/1DS/KBCML  GET REQUEST
04446  M01S00028.ns2765  +++|          CRD    AB
04447  M01S00029.ns2765  +++|          LDD    RA
04448  M01S00030.ns2765  +++|          SHN    6
04449  M01S00031.ns2765  +++|          ADC    /MTX/UBUF   GET UDT POINTERS
04450  M01S00032.ns2765  +++|          CRD    T1
04451  M01S00033.ns2765  +++|          LDD    T1+3        SET UDT ADDRESS
04452  M01S00034.ns2765  +++|          LPN    77
04453  M01S00035.ns2765  +++|          RAM    UADA
04454  M01S00036.ns2765  +++|          LDD    T1+4
04455  M01S00037.ns2765  +++|          STM    UADA+1
04456  M01S00038.ns2765  +++| EUF1     RJM    UAD         SET UDT ADDRESS
04457  M01S00039.ns2765  +++|          CRD    T1
04458  M01S00040.ns2765  +++|          ADK    /MTX/UST1   GET EST ORDINAL
04459  M01S00041.ns2765  +++|          CRD    CM
04460  M01S00042.ns2765  +++|          ADK    /MTX/UVRI-/MTX/UST1  GET EJT ORDINAL
04461  M01S00043.ns2765  +++|          CRD    CN
04462  M01S00044.ns2765  +++|          LDD    T1
04463  M01S00045.ns2765  +++|          SHN    -13
04464  M01S00046.ns2765  +++|          LMN    1
04465  M01S00047.ns2765  +++|          ZJN    EUF3        IF END OF UDT
04466  M01S00048.ns2765  +++|          LDD    AB+1
04467  M01S00049.ns2765  +++|          LMD    CM+2
04468  M01S00050.ns2765  +++|          ZJN    EUF2        IF UDT ENTRY FOUND
04469  M01S00051.ns2765  +++|          AOM    IMRA        ADVANCE UDT ORDINAL
04470  M01S00052.ns2765  +++|          LMK    /MTX/MUNIT
04471  M01S00053.ns2765  +++|          ZJN    EUF3        IF BEYOND MAXIMUM UDT
04472  M01S00054.ns2765  +++|          LDK    /MTX/UNITL  ADVANCE UDT ADDRESS
04473  M01S00055.ns2765  +++|          RAM    UADA+1
04474  M01S00056.ns2765  +++|          SHN    -14
04475  M01S00057.ns2765  +++|          RAM    UADA
04476  M01S00058.ns2765  +++|          UJN    EUF1        CHECK NEXT UNIT
04477  M01S00059.ns2765  +++|
04478  M01S00060.ns2765  +++|*         DETERMINE IF REQUEST ALLOWED ON UNIT.
04479  M01S00061.ns2765  +++|
04480  M01S00062.ns2765  +++| EUF2     LDD    CM
04481  M01S00063.ns2765  +++|          SHN    -1
04482  M01S00064.ns2765  +++|          LPN    1           ACS UNIT FLAG
04483  M01S00065.ns2765  +++|          RAM    EUFA
04484  M01S00066.ns2765  +++|          LDM    TMRF,AB     SET TABLE ADDRESS FOR REQUEST
04485  M01S00067.ns2765  +++| EUFA     LPN    1
04486  M01S00068.ns2765  +++|*         LPN    2           (ACS UNIT)
04487  M01S00069.ns2765  +++| EUF3     ZJN    EUF5        IF REQUEST NOT ALLOWED ON UNIT
04488  M01S00070.ns2765  +++|          LDM    TMRF,AB
04489  M01S00071.ns2765  +++|          SHN    21-2
Line S00072 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04490  M02S00072.ns2773  ---|          PJN    EUF4        IF REQUEST ALLOWED ON ASSIGNED UNIT
04491  M01S00001.ns2773  +++|          PJN    EUF3.1      IF UNASSIGNED UNIT NOT REQUIRED
04492  M01S00073.ns2765  +++|          LDD    CN
04493  M01S00074.ns2765  +++|          NJN    EUF5        IF UNIT ASSIGNED TO JOB
04494  M01S00002.ns2773  +++|          UJN    EUF4        SET PROCESSOR ADDRESS
04495  M01S00003.ns2773  +++|
04496  M01S00004.ns2773  +++| EUF3.1   LDD    CN
04497  M01S00005.ns2773  +++|          ZJN    EUF5        IF UNIT NOT ASSIGNED
04498  M01S00006.ns2773  +++|          LDD    CN+4
04499  M01S00007.ns2773  +++|          SHN    21-0
04500  M01S00008.ns2773  +++|          PJN    EUF5        IF NO PREVIEW DISPLAY MESSAGE
04501  M01S00075.ns2765  +++| EUF4     LDM    TMRP,AB     SET PROCESSOR ADDRESS
04502  M01S00076.ns2765  +++|          STD    T1
04503  M01S00077.ns2765  +++|          RJM    0,T1        CALL PROCESSOR
04504  M01S00078.ns2765  +++|          NJN    EUF6        IF ERROR
04505  M01S00079.ns2765  +++|          RJM    IMR         ISSUE MAGNET REQUEST
04506  M01S00080.ns2765  +++|          UJN    EUF7        RETURN
04507  M01S00081.ns2765  +++|
04508  M01S00082.ns2765  +++| EUF5     LDN    1           SET INCORRECT EQUIPMENT ERROR
04509  M01S00083.ns2765  +++| EUF6     RJM    SRD         SET RETURN STATUS
04510  M01S00084.ns2765  +++| EUF7     LJM    EUFX        RETURN
04511  M01S00085.ns2765  +++| TMRF     SPACE  4,15
04512  M01S00086.ns2765  +++|**        TMRF - TABLE OF MAGNET REQUEST FLAGS.
04513  M01S00087.ns2765  +++|*
04514  M01S00088.ns2765  +++|*         ENTRY FORMAT -
04515  M01S00089.ns2765  +++|*
04516  M01S00090.ns2765  +++|*T        9/0,1/U,1/A,1/N
Figure

012311NAU0

04517  M01S00091.ns2765  +++|*
04518  M01S00092.ns2765  +++|*         U      UNASSIGNED UNIT REQUIRED.
04519  M01S00093.ns2765  +++|*         A      REQUEST ALLOWED ON ACS UNITS.
04520  M01S00094.ns2765  +++|*         N      REQUEST ALLOWED ON NON-ACS UNITS.
04521  M01S00095.ns2765  +++|
04522  M01S00096.ns2765  +++|
04523  M01S00097.ns2765  +++| TMRF     INDEX
04524  M01S00098.ns2765  +++|          INDEX  /MTX/XEV,5  ENTER VSN
04525  M01S00099.ns2765  +++|          INDEX  /MTX/XUU,7  UNLOAD UNIT
04526  M01S00100.ns2765  +++|          INDEX  /MTX/XSV,5  ENTER SCRATCH VSN
04527  M01S00101.ns2765  +++|          INDEX  /MTX/XRT,3  SET *RETRY* FLAG
04528  M01S00102.ns2765  +++|          INDEX  /MTX/XUG,3  UNIT GO
04529  M01S00103.ns2765  +++|          INDEX  /MTX/XUS,3  UNIT STOP
04530  M01S00104.ns2765  +++|          INDEX  /MTX/XTR,3  SET *TERMINATE* FLAG
04531  M01S00105.ns2765  +++|          INDEX  /MTX/XMU,6  ACS UNIT MOUNT
04532  M01S00009.ns2773  +++|          INDEX  /MTX/XNV,3  SPECIFY NEXT VSN
04533  M01S00106.ns2765  +++|          INDEX  /MTX/XRMX
04534  M01S00107.ns2765  +++| TMRP     SPACE  4,15
04535  M01S00108.ns2765  +++|**        TMRP - TABLE OF MAGNET REQUEST PROCESSORS.
04536  M01S00109.ns2765  +++|
04537  M01S00110.ns2765  +++|
04538  M01S00111.ns2765  +++| TMRP     INDEX
04539  M01S00112.ns2765  +++|          INDEX  /MTX/XEV,CVR  ENTER VSN
04540  M01S00113.ns2765  +++|          INDEX  /MTX/XUU,CLC  UNLOAD UNIT
Line S00114 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04541  M02S00114.ns2772  ---|          INDEX  /MTX/XSV,CSR  ENTER SCRATCH VSN
04542  M01S00001.ns2772  +++|          INDEX  /MTX/XSV,CLC  ENTER SCRATCH VSN
04543  M01S00115.ns2765  +++|          INDEX  /MTX/XRT,CLE  SET *RETRY* FLAG
04544  M01S00116.ns2765  +++|          INDEX  /MTX/XUG,CUG  UNIT GO
04545  M01S00117.ns2765  +++|          INDEX  /MTX/XUS,CUG  UNIT STOP
04546  M01S00118.ns2765  +++|          INDEX  /MTX/XTR,CLE  SET *TERMINATE* FLAG
04547  M01S00119.ns2765  +++|          INDEX  /MTX/XMU,CAM  ACS UNIT MOUNT
04548  M01S00010.ns2773  +++|          INDEX  /MTX/XNV,CNV  SPECIFY NEXT VSN
04549  M01S00120.ns2765  +++|          INDEX  /MTX/XRMX
04550  M01S00121.ns2765  +++|          TITLE  IAF FUNCTION SUBROUTINES.
04551  M01S03482.1ds     +++| ITR      SPACE  4,10
04552  M01S03483.1ds     +++|**        ITR - ISSUE *TSEM* REQUEST.
04553  M01S03484.1ds     +++|*
04554  M01S03485.1ds     +++|*         ENTRY  (WARA - WARA+4) = FORMATTED *TSEM* REQUEST.
04555  M01S03486.1ds     +++|*
04556  M01S03487.1ds     +++|*         EXIT   (A) .EQ. 0, IF IAF UNAVAILABLE.
04557  M01S03488.1ds     +++|*                    .NE. 0, IF REQUEST SENT.
04558  M01S03489.1ds     +++|*
Line S03490 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04559  M02S03490.271l716 ---|*         USES   T2.
04560  M01S00241.271l716 +++|*         USES   T2, CM - CM+4.
04561  M01S03491.1ds     +++|*
Line S03492 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04562  M02S03492.ns2680  ---|*         MACROS DELAY, MONITOR, PAUSE.
04563  M01S00091.ns2680  +++|*         MACROS DELAY, MONITOR, CHKERR.
04564  M01S03493.1ds     +++|
04565  M01S03494.1ds     +++|
04566  M01S03495.1ds     +++| ITR3     LDN    0
04567  M01S03496.1ds     +++|
04568  M01S03497.1ds     +++| ITR      SUBR               ENTRY/EXIT
04569  M01S03498.1ds     +++| ITR1     LDD    MA          ISSUE *TSEM* REQUEST
04570  M01S03499.1ds     +++|          CWM    WARA,ON
04571  M01S00242.271l716 +++|          LDK    ZERL
04572  M01S00243.271l716 +++|          CRD    CM
04573  M01S03500.1ds     +++|          MONITOR  TSEM
04574  M01S03501.1ds     +++|          LDD    CM+1
04575  M01S03502.1ds     +++|          ZJN    ITRX        IF IAF UNAVAILABLE
04576  M01S03503.1ds     +++|          LMC    7777
04577  M01S03504.1ds     +++|          NJN    ITRX        IF REQUEST COMPLETE
04578  M01S03505.1ds     +++|          LDC    7313        REISSUE REQUEST AFTER ONE HALF SECOND
04579  M01S03506.1ds     +++|          STD    T2
04580  M01S03507.1ds     +++| ITR2     DELAY
Line S03508 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04581  M02S03508.ns2680  ---|          PAUSE
Line S03509 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04582  M02S03509.ns2680  ---|          LDD    CM+1
04583  M01S00092.ns2680  +++|          CHKERR
04584  M01S03510.1ds     +++|          NJN    ITR3        IF ERROR FLAG
04585  M01S03511.1ds     +++|          SOD    T2
04586  M01S03512.1ds     +++|          ZJN    ITR1        IF TIME TO REISSUE REQUEST
04587  M01S03513.1ds     +++|          UJN    ITR2        CONTINUE TO DELAY
Line S03514 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04588  M02S03514.ns2680  ---| SBT      SPACE  4,10
04589  M01S00093.ns2680  +++| SBT      SPACE  4,15
04590  M01S03515.1ds     +++|**        SBT - SET BUFFER AND TRANSFER DATA TO POTS.
04591  M01S03516.1ds     +++|*
04592  M01S03517.1ds     +++|*         ENTRY  (A) = NUMBER OF WORDS IN HEADER, INCLUDING THE FIRST
04593  M01S03518.1ds     +++|*                      TWO WORDS USED FOR QUEUE LINKAGE BY IAF.
04594  M01S03519.1ds     +++|*
04595  M01S03520.1ds     +++|*         EXIT   (A) = 0, IF POTS NOT AVAILABLE.
04596  M01S03521.1ds     +++|*                (WARA+2 - WARA+3) = SET UP FOR *TSEM* REQUEST.
04597  M01S03522.1ds     +++|*
04598  M01S03523.1ds     +++|*         USES   T1, T2, T3.
04599  M01S03524.1ds     +++|*
04600  M01S03525.1ds     +++|*         CALLS  RPK, SPA, UPP.
04601  M01S03526.1ds     +++|*
04602  M01S03527.1ds     +++|*         MACROS MONITOR.
04603  M01S03528.1ds     +++|
04604  M01S03529.1ds     +++|
04605  M01S03530.1ds     +++| SBT      SUBR               ENTRY/EXIT
04606  M01S03531.1ds     +++|          STD    T3          COMPUTE ADDRESS OF FIRST WORD AFTER HEADER
04607  M01S03532.1ds     +++|          SHN    2
04608  M01S03533.1ds     +++|          ADC    BFMS
04609  M01S03534.1ds     +++|          RAD    T3
04610  M01S03535.1ds     +++|          LDK    ZERL        PUT AN EOL IN THE FIRST WORD OF MESSAGE
04611  M01S03536.1ds     +++|          CRM    BFMS+5*2,ON
04612  M01S03537.1ds     +++|          LDK    2R"EM"      SET EXTENDED MODE AS FIRST BYTE OF HEADER
04613  M01S03538.1ds     +++|          STI    T3
04614  M01S03539.1ds     +++|          LDK    2R"NL"      SET NEW LINE AS SECOND BYTE
04615  M01S03540.1ds     +++|          STM    1,T3
04616  M01S03541.1ds     +++|          LDD    T3
04617  M01S03542.1ds     +++|          ADN    2
04618  M01S03543.1ds     +++|          RJM    RPK         PACK MESSAGE AFTER HEADER
04619  M01S03544.1ds     +++|          LDN    0           ENSURE MESSAGE TERMINATOR AFTER FIVE WORDS
04620  M01S03545.1ds     +++|          STM    1+5*5,T3
04621  M01S03546.1ds     +++| SBT1     AOD    T3          NEXT BYTE
04622  M01S03547.1ds     +++|          LDI    T3
04623  M01S03548.1ds     +++|          NJN    SBT1        IF NOT END OF MESSAGE
04624  M01S03549.1ds     +++|          LDM    -1,T3       CHECK PREVIOUS BYTE
04625  M01S03550.1ds     +++|          LPN    77
04626  M01S03551.1ds     +++|          NJN    SBT2        IF NOT ZERO CHARACTER IN LAST BYTE
04627  M01S03552.1ds     +++|          LDN    1R          INSERT BLANK
04628  M01S03553.1ds     +++|          RAM    -1,T3
04629  M01S03554.1ds     +++| SBT2     LDC    2R"NL"      ISSUE NEW LINE
04630  M01S03555.1ds     +++|          STI    T3
04631  M01S03556.1ds     +++|          AOD    T3
04632  M01S03557.1ds     +++|          LDK    2R"EB"      SET STOP BYTE
04633  M01S03558.1ds     +++|          STI    T3
04634  M01S03559.1ds     +++|          AOD    T3
Line S03560 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04635  M02S03560.ns2680  ---|          STM    SBTE
04636  M01S00094.ns2680  +++|          STM    SBTA
04637  M01S03561.1ds     +++|          LDN    ZERL
04638  M01S03562.1ds     +++|          CRM    *,ON        INSURE END OF LINE
Line S03563 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04639  M02S03563.ns2680  ---| SBTE     EQU    *-1
04640  M01S00095.ns2680  +++| SBTA     EQU    *-1
04641  M01S03564.1ds     +++|          LDN    5           ADVANCE BEYOND EOL
04642  M01S03565.1ds     +++|          RAD    T3
04643  M01S03566.1ds     +++|          LDN    0           SET CM WORD COUNT
04644  M01S03567.1ds     +++|          STD    T2
04645  M01S03568.1ds     +++|          LDC    -BFMS
04646  M01S03569.1ds     +++|          RAD    T3
04647  M01S03570.1ds     +++| SBT3     AOD    T2
04648  M01S03571.1ds     +++|          LCN    5
04649  M01S03572.1ds     +++|          RAD    T3
04650  M01S03573.1ds     +++|          PJN    SBT3        IF NOT START OF MESSAGE
04651  M01S03574.1ds     +++|          LDN    /REM/VCPC
04652  M01S03575.1ds     +++|          STD    T3
04653  M01S03576.1ds     +++|          LDK    ZERL        CALCULATE HOW MANY POTS ARE NEEDED
04654  M01S03577.1ds     +++|          CRD    CM
04655  M01S03578.1ds     +++|          LDD    T2
04656  M01S03579.1ds     +++|          ADK    /REM/VCPC-1  ROUND UP TO THE NEAREST POT
04657  M01S03580.1ds     +++|          SHN    -3
04658  M01S03581.1ds     +++|          STD    CM+1
04659  M01S03582.1ds     +++|          MONITOR  TGPM
04660  M01S00096.ns2680  +++|          LDC    BFMS        INITIALIZE BUFFER ADDRESS
04661  M01S00097.ns2680  +++|          STM    SBTB
04662  M01S03583.1ds     +++|          LDD    CM+1
04663  M01S03584.1ds     +++|          ZJN    SBT5        IF IAF UNAVAILABLE
04664  M01S03585.1ds     +++|          LMC    7777
04665  M01S03586.1ds     +++|          ZJN    SBT5        IF POT QUEUE IN IAF CURRENTLY EMPTY
04666  M01S03587.1ds     +++|          LMC    7777
04667  M01S03588.1ds     +++|          STD    PP
04668  M01S03589.1ds     +++|          STM    WARA+3
04669  M01S03590.1ds     +++| SBT4     STM    WARA+2
04670  M01S03591.1ds     +++|          RJM    SPA         SET POT ADDRESS
Line S03592 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04671  M02S03592.ns2680  ---|          CWM    BFMS,T3
04672  M01S00098.ns2680  +++|          CWM    *,T3
Line S03593 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04673  M02S03593.ns2680  ---| SBTF     EQU    *-1
04674  M01S00099.ns2680  +++| SBTB     EQU    *-1
04675  M01S03594.1ds     +++|          LCN    /REM/VCPC
04676  M01S03595.1ds     +++|          RAD    T2
04677  M01S03596.1ds     +++|          SBN    1
04678  M01S03597.1ds     +++|          MJN    SBT5        IF TRANSFER COMPLETE
04679  M01S03598.1ds     +++|          LDN    /REM/VCPC*5
Line S03599 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
04680  M02S03599.ns2680  ---|          RAM    SBTF
04681  M01S00100.ns2680  +++|          RAM    SBTB
04682  M01S03600.1ds     +++|          RJM    UPP         UPDATE TO NEXT POT
04683  M01S03601.1ds     +++|          NJN    SBT4        IF MORE POTS IN CHAIN
04684  M01S03602.1ds     +++|          LDN    1
04685  M01S03603.1ds     +++| SBT5     LJM    SBTX        EXIT
04686  M01S00122.ns2765  +++|          TITLE  MAGNET FUNCTION SUBROUTINES.
04687  M01S00123.ns2765  +++| CAM      SPACE  4,15
04688  M01S00124.ns2765  +++|**        CAM - CHECK ACS MOUNT REQUEST.
04689  M01S00125.ns2765  +++|*
04690  M01S00126.ns2765  +++|*         EXIT   (A) = 0 IF MOUNT CAN BE PROCESSED.
04691  M01S00127.ns2765  +++|*                (A) = 1 IF UNIT STATUS PROHIBITS MOUNT.
04692  M01S00128.ns2765  +++|*                (A) = 2 IF VSN ACTIVITY PROHIBITS MOUNT.
04693  M01S00129.ns2765  +++|*
04694  M01S00130.ns2765  +++|*         USES   CM - CM+4.
04695  M01S00131.ns2765  +++|*
04696  M01S00132.ns2765  +++|*         CALLS  FAV, UAD.
04697  M01S00133.ns2765  +++|*
04698  M01S00134.ns2765  +++|*         MACROS SFA.
04699  M01S00135.ns2765  +++|
04700  M01S00136.ns2765  +++|
04701  M01S00137.ns2765  +++| CAM2     LDN    1           SET EQUIPMENT ERROR
04702  M01S00138.ns2765  +++|
04703  M01S00139.ns2765  +++| CAM      SUBR               ENTRY/EXIT
04704  M01S00140.ns2765  +++|          SFA    EST,AB+1    GET EQUIPMENT STATUS
04705  M01S00141.ns2765  +++|          ADK    EQDE
04706  M01S00142.ns2765  +++|          CRD    CM
04707  M01S00143.ns2765  +++|          LDD    CM
04708  M01S00144.ns2765  +++|          LPN    3
04709  M01S00145.ns2765  +++|          LMN    DWES
04710  M01S00146.ns2765  +++|          ZJN    CAM2        IF UNIT DOWN
04711  M01S00147.ns2765  +++|          LDD    CM+1
04712  M01S00148.ns2765  +++|          SHN    -11
04713  M01S00149.ns2765  +++|          LMN    4
04714  M01S00150.ns2765  +++|          ZJN    CAM1        IF UNIT ACCESSIBLE ON PRIMARY CHANNEL
04715  M01S00151.ns2765  +++|          LDD    CM+2
04716  M01S00152.ns2765  +++|          SHN    -11
04717  M01S00153.ns2765  +++|          LMN    4
04718  M01S00154.ns2765  +++|          NJN    CAM2        IF NO ACCESS ON SECONDARY CHANNEL
04719  M01S00155.ns2765  +++| CAM1     RJM    UAD         SET UDT ADDRESS
04720  M01S00156.ns2765  +++|          ADK    /MTX/UMST   GET MOUNT STATUS
04721  M01S00157.ns2765  +++|          CRD    CM
04722  M01S00158.ns2765  +++|          LDD    CM+4
04723  M01S00159.ns2765  +++|          LPN    7
04724  M01S00160.ns2765  +++|          NJN    CAMX        IF NOT DISMOUNTED OR CONTROL PATH ERROR
04725  M01S00161.ns2765  +++|          RJM    FAV         FIND ACS VSN
04726  M01S00162.ns2765  +++|          UJN    CAMX        RETURN WITH STATUS
04727  M01S00163.ns2765  +++| CLE      SPACE  4,10
04728  M01S00164.ns2765  +++|**        CLE - CHECK LOAD POINT ERROR.
04729  M01S00165.ns2765  +++|*
04730  M01S00166.ns2765  +++|*         EXIT   (A) = 0 IF LOAD POINT ERROR OPERATOR PROMPT PRESENT.
04731  M01S00167.ns2765  +++|*                (A) = 1 IF NO LOAD POINT ERROR OPERATOR PROMPT.
04732  M01S00168.ns2765  +++|*
Line S00169 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04733  M02S00169.ns2773  ---|*         USES   CM - CM+4.
Line S00170 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04734  M02S00170.ns2773  ---|*
Line S00171 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04735  M02S00171.ns2773  ---|*         CALLS  UAD.
04736  M01S00011.ns2773  +++|*         CALLS  GMC.
04737  M01S00172.ns2765  +++|
04738  M01S00173.ns2765  +++|
04739  M01S00174.ns2765  +++| CLE      SUBR               ENTRY/EXIT
Line S00175 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04740  M02S00175.ns2773  ---|          RJM    UAD
Line S00176 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04741  M02S00176.ns2773  ---|          ADK    /MTX/UISN   GET PREVIEW DISPLAY MESSAGE CODE
Line S00177 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04742  M02S00177.ns2773  ---|          CRD    CM
Line S00178 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04743  M02S00178.ns2773  ---|          LDD    CM+3
Line S00179 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04744  M02S00179.ns2773  ---|          LPN    77
04745  M01S00012.ns2773  +++|          RJM    GMC         GET MESSAGE CODE
04746  M01S00180.ns2765  +++|          LMN    /RSX/TCF
04747  M01S00181.ns2765  +++|          ZJN    CLEX        IF LOAD POINT ERROR
04748  M01S00182.ns2765  +++|          LMN    /RSX/BFR&/RSX/TCF
04749  M01S00183.ns2765  +++|          ZJN    CLEX        IF LOAD POINT ERROR
04750  M01S00184.ns2765  +++|          LMN    /RSX/BFW&/RSX/BFR
04751  M01S00185.ns2765  +++|          ZJN    CLEX        IF LOAD POINT ERROR
04752  M01S00186.ns2765  +++|          LDN    1           SET EQUIPMENT ERROR
04753  M01S00187.ns2765  +++|          UJN    CLEX        RETURN
04754  M01S00188.ns2765  +++| CLC      SPACE  4,10
04755  M01S00189.ns2765  +++|**        CLC - CHECK INITIAL LABEL CHECK COMPLETE.
04756  M01S00190.ns2765  +++|*
04757  M01S00191.ns2765  +++|*         EXIT   (A) = 0 IF INITIAL LABEL CHECK COMPLETE.
04758  M01S00192.ns2765  +++|*                (A) = 1 IF INITIAL LABEL CHECK NOT COMPLETE.
04759  M01S00193.ns2765  +++|*                (CM - CM+4) = *UVSN*.
04760  M01S00194.ns2765  +++|*
04761  M01S00195.ns2765  +++|*         USES   CM - CM+4.
04762  M01S00196.ns2765  +++|*
04763  M01S00197.ns2765  +++|*         CALLS  UAD.
04764  M01S00198.ns2765  +++|
04765  M01S00199.ns2765  +++|
04766  M01S00200.ns2765  +++| CLC1     LDN    1           SET EQUIPMENT ERROR
04767  M01S00201.ns2765  +++|
04768  M01S00202.ns2765  +++| CLC      SUBR               ENTRY/EXIT
04769  M01S00203.ns2765  +++|          RJM    UAD         SET UDT ADDRESS
04770  M01S00204.ns2765  +++|          ADK    /MTX/UVSN   GET LABEL CHECK STATUS
04771  M01S00205.ns2765  +++|          CRD    CM
04772  M01S00206.ns2765  +++|          LDD    CM
04773  M01S00207.ns2765  +++|          ADD    CM+1
04774  M01S00208.ns2765  +++|          ADD    CM+2
04775  M01S00209.ns2765  +++|          ZJN    CLC1        IF LABELS NOT CHECKED
04776  M01S00210.ns2765  +++|          LDD    CM+3
04777  M01S00211.ns2765  +++|          SHN    -13         CHECK FOR LABEL CHECK IN PROGRESS
04778  M01S00212.ns2765  +++|          UJN    CLCX        RETURN WITH STATUS
04779  M01S00013.ns2773  +++| CNV      SPACE  4,10
04780  M01S00014.ns2773  +++|**        CNV - CHECK *NEXTVSN* COMMAND REQUEST.
04781  M01S00015.ns2773  +++|*
04782  M01S00016.ns2773  +++|*         EXIT   (A) = 0 IF NO ERROR.
04783  M01S00017.ns2773  +++|*                (A) = 1 IF ERROR.
04784  M01S00018.ns2773  +++|*
04785  M01S00019.ns2773  +++|*         CALLS  GMC.
04786  M01S00020.ns2773  +++|
04787  M01S00021.ns2773  +++|
04788  M01S00022.ns2773  +++| CNV      SUBR               ENTRY/EXIT
04789  M01S00023.ns2773  +++|          RJM    GMC         GET MESSAGE CODE
04790  M01S00024.ns2773  +++|          LMN    /RSX/NTV
04791  M01S00025.ns2773  +++|          ZJN    CNVX        IF NEXT VSN PROMPT
04792  M01S00026.ns2773  +++|          LDN    1           SET EUIPMENT ERROR
04793  M01S00027.ns2773  +++|          UJN    CNVX        RETURN
Line S00213 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04794  M02S00213.ns2772  ---| CSR      SPACE  4,10
Line S00214 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04795  M02S00214.ns2772  ---|**        CSR - CHECK *SCRATCH* COMMAND REQUEST.
Line S00215 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04796  M02S00215.ns2772  ---|*
Line S00216 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04797  M02S00216.ns2772  ---|*         EXIT   (A) = 0 IF NO ERROR.
Line S00217 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04798  M02S00217.ns2772  ---|*                (A) = 1 IF ERROR.
Line S00218 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04799  M02S00218.ns2772  ---|*
Line S00219 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04800  M02S00219.ns2772  ---|*         CALLS  CLC.
Line S00220 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04801  M02S00220.ns2772  ---|
Line S00221 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04802  M02S00221.ns2772  ---|
Line S00222 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04803  M02S00222.ns2772  ---| CSR      SUBR               ENTRY/EXIT
Line S00223 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04804  M02S00223.ns2772  ---|          RJM    CLC         CHECK LABEL CHECK COMPLETE
Line S00224 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04805  M02S00224.ns2772  ---|          NJN    CSRX        IF LABELS NOT CHECKED
Line S00225 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04806  M02S00225.ns2772  ---|          LDD    CM+3
Line S00226 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04807  M02S00226.ns2772  ---|          SHN    -10
Line S00227 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04808  M02S00227.ns2772  ---|          LPN    1           CHECK DENSITY CONFLICT
Line S00228 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04809  M02S00228.ns2772  ---|          UJN    CSRX        RETURN WITH STATUS
04810  M01S00229.ns2765  +++| CUG      SPACE  4,10
04811  M01S00230.ns2765  +++|**        CUG - CHECK FOR TMS UNIT GO PROMPT.
04812  M01S00231.ns2765  +++|*
04813  M01S00232.ns2765  +++|*         EXIT   (A) = 0 IF UNIT GO PROMPT.
04814  M01S00233.ns2765  +++|*                (A) = 1 IF NO UNIT GO PROMPT.
04815  M01S00234.ns2765  +++|*
Line S00235 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04816  M02S00235.ns2773  ---|*         USES   CM - CM+4.
Line S00236 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04817  M02S00236.ns2773  ---|*
Line S00237 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04818  M02S00237.ns2773  ---|*         CALLS  UAD.
04819  M01S00028.ns2773  +++|*         CALLS  GMC.
04820  M01S00238.ns2765  +++|
04821  M01S00239.ns2765  +++|
04822  M01S00240.ns2765  +++| CUG      SUBR               ENTRY EXIT
Line S00241 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04823  M02S00241.ns2773  ---|          RJM    UAD
Line S00242 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04824  M02S00242.ns2773  ---|          ADK    /MTX/UISN   GET PREVIEW DISPLAY MESSAGE CODE
Line S00243 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04825  M02S00243.ns2773  ---|          CRD    CM
Line S00244 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04826  M02S00244.ns2773  ---|          LDD    CM+3
Line S00245 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
04827  M02S00245.ns2773  ---|          LPN    77
04828  M01S00029.ns2773  +++|          RJM    GMC         GET MESSAGE CODE
04829  M01S00246.ns2765  +++|          LMN    /RSX/NLG
04830  M01S00247.ns2765  +++|          ZJN    CUGX        IF UNIT GO PROMPT
04831  M01S00248.ns2765  +++|          LMN    /RSX/CAG&/RSX/NLG
04832  M01S00249.ns2765  +++|          ZJN    CUGX        IF UNIT GO PROMPT
04833  M01S00250.ns2765  +++|          LMN    /RSX/WVG&/RSX/CAG
04834  M01S00251.ns2765  +++|          ZJN    CUGX        IF UNIT GO PROMPT
04835  M01S00252.ns2765  +++|          LDN    1           SET EQUIPMENT ERROR
04836  M01S00253.ns2765  +++|          UJN    CUGX        RETURN
04837  M01S00254.ns2765  +++| CVR      SPACE  4,10
04838  M01S00255.ns2765  +++|**        CVR - CHECK ENTER VSN REQUEST.
04839  M01S00256.ns2765  +++|*
04840  M01S00257.ns2765  +++|*         EXIT   (A) = 0 IF NO ERROR.
04841  M01S00258.ns2765  +++|*                (A) = 1 IF ERROR.
04842  M01S00259.ns2765  +++|*
04843  M01S00260.ns2765  +++|*         CALLS  CLC.
04844  M01S00261.ns2765  +++|
04845  M01S00262.ns2765  +++|
04846  M01S00263.ns2765  +++| CVR      SUBR               ENTRY/EXIT
04847  M01S00264.ns2765  +++|          RJM    CLC         CHECK LABEL CHECK COMPLETE
04848  M01S00265.ns2765  +++|          NJN    CVRX        IF LABELS NOT CHECKED
04849  M01S00266.ns2765  +++|          LDD    AB+2
04850  M01S00267.ns2765  +++|          ADD    AB+3
04851  M01S00268.ns2765  +++|          ADD    AB+4
04852  M01S00269.ns2765  +++|          ZJN    CVRX        IF CLEARING VSN
04853  M01S00270.ns2765  +++|          LDD    CM+3
Line S00271 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04854  M02S00271.ns2772  ---|          LPC    404
04855  M01S00002.ns2772  +++|          LPN    4
04856  M01S00272.ns2765  +++|          LMN    4
Line S00273 Modification History
M01 (Added by) ns2765
M02 (Updated by) ns2772
Seq #  *Modification Id* Act 
----------------------------+
04857  M02S00273.ns2772  ---|          ZJN    CVRX        IF UNLABELED TAPE AND NO DENSITY CONFLICT
04858  M01S00003.ns2772  +++|          ZJN    CVRX        IF UNLABELED TAPE
04859  M01S00274.ns2765  +++|          LDN    1           SET EQUIPMENT ERROR
04860  M01S00275.ns2765  +++|          UJN    CVRX        RETURN
04861  M01S00276.ns2765  +++| CVS      SPACE  4,10
04862  M01S00277.ns2765  +++|**        CVS - COMPARE VSN-S.
04863  M01S00278.ns2765  +++|*
04864  M01S00279.ns2765  +++|*         ENTRY  (AB+2 - AB+4) = REQUESTED VSN.
04865  M01S00280.ns2765  +++|*                (CM - CM+2) = VSN TO COMPARE.
04866  M01S00281.ns2765  +++|*
04867  M01S00282.ns2765  +++|*         EXIT   (A) = 0 IF VSN-S MATCH.
04868  M01S00283.ns2765  +++|*                (A) .NE. 0 IF VSN-S DO NOT MATCH.
04869  M01S00284.ns2765  +++|
04870  M01S00285.ns2765  +++|
04871  M01S00286.ns2765  +++| CVS      SUBR               ENTRY/EXIT
04872  M01S00287.ns2765  +++|          LDD    CM
04873  M01S00288.ns2765  +++|          LMD    AB+2
04874  M01S00289.ns2765  +++|          NJN    CVSX        IF NO MATCH
04875  M01S00290.ns2765  +++|          LDD    CM+1
04876  M01S00291.ns2765  +++|          LMD    AB+3
04877  M01S00292.ns2765  +++|          NJN    CVSX        IF NO MATCH
04878  M01S00293.ns2765  +++|          LDD    CM+2
04879  M01S00294.ns2765  +++|          LMD    AB+4
04880  M01S00295.ns2765  +++|          UJN    CVSX        RETURN WITH STATUS
04881  M01S00296.ns2765  +++| FAV      SPACE  4,10
04882  M01S00297.ns2765  +++|**        FAV - FIND ACS VSN.
04883  M01S00298.ns2765  +++|*
04884  M01S00299.ns2765  +++|*         EXIT   (A) = 0 IF VSN NOT FOUND IN UDT OR VSN ERROR TABLE.
04885  M01S00300.ns2765  +++|*                (A) = 2 IF VSN FOUND IN UDT OR VSN ERROR TABLE.
04886  M01S00301.ns2765  +++|*
04887  M01S00302.ns2765  +++|*         USES   CM - CM+4, CN - CN+4, T1 - T1+4.
04888  M01S00303.ns2765  +++|*
04889  M01S00304.ns2765  +++|*         CALLS  CVS.
04890  M01S00305.ns2765  +++|
04891  M01S00306.ns2765  +++|
04892  M01S00307.ns2765  +++| FAV      SUBR               ENTRY/EXIT
04893  M01S00308.ns2765  +++|
04894  M01S00309.ns2765  +++|*         CHECK UDT.
04895  M01S00310.ns2765  +++|
04896  M01S00311.ns2765  +++|          LDD    RA
04897  M01S00312.ns2765  +++|          SHN    6
04898  M01S00313.ns2765  +++|          ADK    /MTX/UBUF   GET UDT POINTERS
04899  M01S00314.ns2765  +++|          CRD    T1
04900  M01S00315.ns2765  +++|          LDN    0           INITIALIZE UDT ORDINAL
04901  M01S00316.ns2765  +++|          STD    T1
04902  M01S00317.ns2765  +++| FAV1     LDD    T4
04903  M01S00318.ns2765  +++|          SHN    6
04904  M01S00319.ns2765  +++|          ADD    RA
04905  M01S00320.ns2765  +++|          SHN    6
04906  M01S00321.ns2765  +++|          ADD    T5
04907  M01S00322.ns2765  +++|          CRD    CN
04908  M01S00323.ns2765  +++|          ADK    /MTX/UMST
04909  M01S00324.ns2765  +++|          CRD    CM
04910  M01S00325.ns2765  +++|          LDD    CN
04911  M01S00326.ns2765  +++|          SHN    21-13
04912  M01S00327.ns2765  +++|          MJN    FAV2        IF END OF UDT
04913  M01S00328.ns2765  +++|          RJM    CVS         COMPARE VSN-S
04914  M01S00329.ns2765  +++|          ZJN    FAV4        IF VSN FOUND
04915  M01S00330.ns2765  +++|          LDK    /MTX/UNITL  ADVANCE UDT ADDRESS
04916  M01S00331.ns2765  +++|          RAD    T5
04917  M01S00332.ns2765  +++|          SHN    -14
04918  M01S00333.ns2765  +++|          RAD    T4
04919  M01S00334.ns2765  +++|          AOD    T1
04920  M01S00335.ns2765  +++|          LMN    /MTX/MUNIT
04921  M01S00336.ns2765  +++|          ZJN    FAV4        IF BEYOND MAXIMUM UDT
04922  M01S00337.ns2765  +++|          UJN    FAV1        CHECK NEXT UNIT
04923  M01S00338.ns2765  +++|
04924  M01S00339.ns2765  +++|*         CHECK VSN ERROR TABLE.
04925  M01S00340.ns2765  +++|
04926  M01S00341.ns2765  +++| FAV2     LDN    0           INITIALIZE ERROR TABLE INDEX
04927  M01S00342.ns2765  +++|          STD    T1
04928  M01S00343.ns2765  +++| FAV3     LDD    RA          SET ERROR TABLE ADDRESS
04929  M01S00344.ns2765  +++|          SHN    6
04930  M01S00345.ns2765  +++|          ADK    /MTX/VET
04931  M01S00346.ns2765  +++|          ADD    T1
04932  M01S00347.ns2765  +++|          CRD    CM          GET ERROR TABLE ENTRY
04933  M01S00348.ns2765  +++|          LDD    CM
04934  M01S00349.ns2765  +++|          ZJN    FAV5        IF END OF ENTRIES
04935  M01S00350.ns2765  +++|          RJM    CVS         COMPARE VSN-S
04936  M01S00351.ns2765  +++|          ZJN    FAV4        IF VSN FOUND
04937  M01S00352.ns2765  +++|          AOD    T1          ADVANCE ENTRY INDEX
04938  M01S00353.ns2765  +++|          LMK    /MTX/VETL
04939  M01S00354.ns2765  +++|          NJN    FAV3        IF NOT BEYOND MAXIMUM ENTRY
04940  M01S00355.ns2765  +++|
04941  M01S00356.ns2765  +++|*         RETURN STATUS.
04942  M01S00357.ns2765  +++|
04943  M01S00358.ns2765  +++| FAV4     LDN    2           SET VSN ERROR
04944  M01S00359.ns2765  +++| FAV5     LJM    FAVX        RETURN
04945  M01S00030.ns2773  +++| GMC      SPACE  4,10
04946  M01S00031.ns2773  +++|**        GMC - GET PREVIEW DISPLAY MESSAGE CODE.
04947  M01S00032.ns2773  +++|*
04948  M01S00033.ns2773  +++|*         EXIT   (A) = PREVIEW DISPLAY MESSAGE CODE.
04949  M01S00034.ns2773  +++|*
04950  M01S00035.ns2773  +++|*         USES   CM - CM+4.
04951  M01S00036.ns2773  +++|*
04952  M01S00037.ns2773  +++|*         CALLS  UAD.
04953  M01S00038.ns2773  +++|
04954  M01S00039.ns2773  +++|
04955  M01S00040.ns2773  +++| GMC      SUBR               ENTRY/EXIT
04956  M01S00041.ns2773  +++|          RJM    UAD         SET UDT ADDRESS
04957  M01S00042.ns2773  +++|          ADK    /MTX/UISN   GET PREVIEW DISPLAY MESSAGE CODE
04958  M01S00043.ns2773  +++|          CRD    CM
04959  M01S00044.ns2773  +++|          LDD    CM+3
04960  M01S00045.ns2773  +++|          LPN    77          SET MESSAGE CODE
04961  M01S00046.ns2773  +++|          UJN    GMCX        RETURN
04962  M01S00360.ns2765  +++| IMR      SPACE  4,10
04963  M01S00361.ns2765  +++|**        IMR - ISSUE MAGNET EXTERNAL REQUEST.
04964  M01S00362.ns2765  +++|*
04965  M01S00363.ns2765  +++|*         USES   AB+1, T1, CM+1 - CM+4.
04966  M01S00364.ns2765  +++|*
04967  M01S00365.ns2765  +++|*         MACROS DELAY, MONITOR, PAUSE.
04968  M01S00366.ns2765  +++|
04969  M01S00367.ns2765  +++|
04970  M01S00368.ns2765  +++| IMR      SUBR               ENTRY/EXIT
04971  M01S00369.ns2765  +++|          LDC    0           SET UDT ORDINAL
04972  M01S00370.ns2765  +++| IMRA     EQU    *-1         (UDT ORDINAL)
04973  M01S00371.ns2765  +++|          STD    AB+1
04974  M01S00372.ns2765  +++|          LDD    MA          SET REQUEST
04975  M01S00373.ns2765  +++|          CWD    AB
04976  M01S00374.ns2765  +++|          LDC    250D        SET 1 SECOND RETRY LIMIT
04977  M01S00375.ns2765  +++|          STD    T1
04978  M01S00376.ns2765  +++| IMR1     LDN    1           SET WRITE FLAG
04979  M01S00377.ns2765  +++|          STD    CM+1
04980  M01S00378.ns2765  +++|          LCN    7777-MTSI   SET SUBSYSTEM ID
04981  M01S00379.ns2765  +++|          STD    CM+2
04982  M01S00380.ns2765  +++|          LDD    HN          SET WORD COUNT
04983  M01S00381.ns2765  +++|          STD    CM+3
04984  M01S00382.ns2765  +++|          LDN    /MTX/XREQ   SET WRITE ADDRESS
04985  M01S00383.ns2765  +++|          STD    CM+4
04986  M01S00384.ns2765  +++|          MONITOR  TDAM
04987  M01S00385.ns2765  +++|          LDD    CM+1
04988  M01S00386.ns2765  +++|          ZJN    IMRX        IF TRANSFER COMPLETE
04989  M01S00387.ns2765  +++|          SBN    4
04990  M01S00388.ns2765  +++|          ZJN    IMRX        IF *MAGNET* NOT ACTIVE
04991  M01S00389.ns2765  +++|          SOD    T1
04992  M01S00390.ns2765  +++|          ZJN    IMRX        IF MAXIMUM RETRIES
04993  M01S00391.ns2765  +++|          PAUSE  ST
04994  M01S00392.ns2765  +++|          DELAY  40          DELAY 4 MILLISECONDS
04995  M01S00393.ns2765  +++|          UJN    IMR1        RETRY FUNCTION
04996  M01S00394.ns2765  +++| UAD      SPACE  4,10
04997  M01S00395.ns2765  +++|**        UAD - SET UDT ADDRESS.
04998  M01S00396.ns2765  +++|*
04999  M01S00397.ns2765  +++|*         EXIT   (A) = ABSOLUTE UDT ADDRESS.
05000  M01S00398.ns2765  +++|
05001  M01S00399.ns2765  +++|
05002  M01S00400.ns2765  +++| UAD      SUBR               ENTRY/EXIT
05003  M01S00401.ns2765  +++|          LDD    RA
05004  M01S00402.ns2765  +++|          SHN    6
05005  M01S00403.ns2765  +++| UADA     ADC    0           SET UDT ADDRESS
05006  M01S00404.ns2765  +++|          UJN    UADX        RETURN
05007  M01S03604.1ds     +++|          SPACE  4,10
05008  M01S03605.1ds     +++|**        COMMON DECKS.
05009  M01S03606.1ds     +++|
05010  M01S03607.1ds     +++|
05011  M01S03608.1ds     +++|*CALL     COMPSPA
05012  M01S03609.1ds     +++|*CALL     COMPUPP
05013  M01S00032.ns2587  +++|*CALL     COMPGTN
05014  M01S03610.1ds     +++|
05015  M01S03611.1ds     +++|
Line S03612 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
05016  M02S03612.1ds21   ---|          OVERFLOW  OVLA,BFMS
05017  M01S00080.1ds21   +++|          OVERFLOW  OVLA,/OVERLAY/BUFB
05018  M01S03613.1ds     +++|          OVERLAY  (MULTILEVEL SECURITY FUNCTIONS.)
05019  M01S03614.1ds     +++| SAM      SPACE  4,10
05020  M01S03615.1ds     +++|***       FUNCTION SAMF - SEND ACCOUNT FILE MESSAGE.
05021  M01S03616.1ds     +++|*
Line S03617 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05022  M02S03617.ns2639  ---|*         ENTRY  (IR+3) = 1/T, 5/, 3/LA, 3/UA.
05023  M01S00001.ns2639  +++|*         ENTRY  (IR+3) = 2/T, 4/, 3/LA, 3/UA.
05024  M01S03618.1ds     +++|*                         T = 0, IF *MSOT* MESSAGE.
Line S03619 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05025  M02S03619.ns2639  ---|*                           = 1, IF *MSEQ* MESSAGE.
05026  M01S00002.ns2639  +++|*                           = 1, IF *MSLK* MESSAGE.
05027  M01S00003.ns2639  +++|*                           = 2, IF *MSEQ* MESSAGE.
05028  M01S00004.ns2639  +++|*                           = 3, IF *MSUL* MESSAGE.
05029  M01S03620.1ds     +++|*                         LA = NEW LOWER ACCESS LEVEL LIMIT.
05030  M01S03621.1ds     +++|*                         UA = NEW UPPER ACCESS LEVEL LIMIT.
05031  M01S03622.1ds     +++|*                (IR+4) = 12/ORD.
05032  M01S03623.1ds     +++|*                         ORD = EST ORDINAL, IF *MSEQ* MESSAGE.
05033  M01S03624.1ds     +++|*                             = ORIGIN TYPE ORDINAL, IF *MSOT* MESSAGE.
05034  M01S03625.1ds     +++|
05035  M01S03626.1ds     +++|
05036  M01S03627.1ds     +++| SAM      ENTRY              ENTRY/EXIT
05037  M01S03628.1ds     +++|          LDD    IR+3
Line S03629 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05038  M02S03629.ns2639  ---|          SHN    0-13
Line S03630 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05039  M02S03630.ns2639  ---|          ZJN    SAM1        IF *MSOT* MESSAGE
05040  M01S00005.ns2639  +++|          SHN    21-12
05041  M01S00006.ns2639  +++|          PJN    SAM2        IF NOT *MSLK* OR *MSUL* MESSAGE
05042  M01S00007.ns2639  +++|          LPN    1
05043  M01S00008.ns2639  +++|          ZJN    SAM1        IF *MSLK*
05044  M01S00009.ns2639  +++|          LDC    2RUL&2RLK
05045  M01S00010.ns2639  +++| SAM1     LMC    2RLK
05046  M01S00011.ns2639  +++|          STM    SAMA+1      CHANGE ACCOUNT FILE MESSAGE
05047  M01S00012.ns2639  +++|          LDC    2R.         APPEND PERIOD
05048  M01S00013.ns2639  +++|          STM    SAMA+2
05049  M01S00014.ns2639  +++|          LJM    SAM6        ISSUE MESSAGE
05050  M01S00015.ns2639  +++|
05051  M01S00016.ns2639  +++| SAM2     LPN    1
05052  M01S00017.ns2639  +++|          ZJN    SAM3        IF *MSOT* MESSAGE
05053  M01S03631.1ds     +++|          LDD    IR+4        CONVERT EST ORDINAL TO DISPLAY CODE
05054  M01S03632.1ds     +++|          SHN    -3
05055  M01S03633.1ds     +++|          RJM    C2D
05056  M01S03634.1ds     +++|          STM    SAMA+3
05057  M01S03635.1ds     +++|          LDD    IR+4
05058  M01S03636.1ds     +++|          LPN    7
05059  M01S03637.1ds     +++|          ADN    1R0
05060  M01S03638.1ds     +++|          SHN    6
05061  M01S03639.1ds     +++|          STM    SAMC        TEMPORARILY SAVE DISPLAY-CODED ORDINAL
05062  M01S03640.1ds     +++|          LDC    SAMB        FWA OF MESSAGE BUFFER
05063  M01S03641.1ds     +++|          STD    T1
05064  M01S03642.1ds     +++|          LDC    SAMC        ADDRESS OF EST ORDINAL
05065  M01S03643.1ds     +++|          RJM    ACS
Line S03644 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05066  M02S03644.ns2639  ---|          UJN    SAM2        APPEND COMMA
05067  M01S00018.ns2639  +++|          UJN    SAM4        APPEND COMMA
05068  M01S03645.1ds     +++|
Line S03646 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05069  M02S03646.ns2639  ---| SAM1     LDC    2ROT        CHANGE ACCOUNT FILE MESSAGE
05070  M01S00019.ns2639  +++| SAM3     LDC    2ROT        CHANGE ACCOUNT FILE MESSAGE
05071  M01S03647.1ds     +++|          STM    SAMA+1
05072  M01S03648.1ds     +++|          LDM    TJOT,IR+4   SAVE ORIGIN TYPE
05073  M01S03649.1ds     +++|          STM    SAMA+3
05074  M01S03650.1ds     +++|          LDC    SAMB        FWA OF MESSAGE BUFFER
05075  M01S03651.1ds     +++|          STD    T1
Line S03652 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05076  M02S03652.ns2639  ---| SAM2     LDC    =C*, *
05077  M01S00020.ns2639  +++| SAM4     LDC    =C*, *
05078  M01S03653.1ds     +++|          RJM    ACS         APPEND COMMA
05079  M01S03654.1ds     +++|          LDD    IR+3        DETERMINE MNEMONIC OF LOWER ACCESS LEVEL
05080  M01S03655.1ds     +++|          SHN    -3
05081  M01S03656.1ds     +++|          LPN    7
05082  M01S03657.1ds     +++|          SHN    2
05083  M01S03658.1ds     +++|          ADC    TALV        APPEND NEW LOWER ACCESS LEVEL LIMIT
05084  M01S03659.1ds     +++|          RJM    ACS
05085  M01S03660.1ds     +++|          LDC    =C*, *      APPEND COMMA
05086  M01S03661.1ds     +++|          RJM    ACS
05087  M01S03662.1ds     +++|          LDD    IR+3        DETERMINE MNEMONIC OF UPPER ACCESS LEVEL
05088  M01S03663.1ds     +++|          LPN    7
05089  M01S03664.1ds     +++|          SHN    2
05090  M01S03665.1ds     +++|          ADC    TALV        APPEND NEW UPPER ACCESS LEVEL LIMIT
05091  M01S03666.1ds     +++|          RJM    ACS
05092  M01S03667.1ds     +++|          LDC    =C*. *      TERMINATE MESSAGE WITH A PERIOD
05093  M01S03668.1ds     +++|          RJM    ACS
Line S03669 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2639
Seq #  *Modification Id* Act 
----------------------------+
05094  M02S03669.ns2639  ---|          LDC    ACFN+SAMA   ISSUE ACCOUNT FILE MESSAGE
05095  M01S00021.ns2639  +++| SAM6     LDC    ACFN+SAMA   ISSUE ACCOUNT FILE MESSAGE
05096  M01S03670.1ds     +++|          RJM    DFM
05097  M01S03671.1ds     +++|          LJM    SAMX        RETURN
05098  M01S03672.1ds     +++|
05099  M01S03673.1ds     +++| SAMA     DATA   C*MSEQ, *
05100  M01S03674.1ds     +++| SAMB     BSSZ   13
05101  M01S03675.1ds     +++| SAMC     BSS    1           TEMPORARY STORAGE LOCATION
05102  M01S03676.1ds     +++| TJOT     SPACE  4,10
05103  M01S03677.1ds     +++|*         TJOT - TABLE OF JOB ORIGIN TYPES.
05104  M01S03678.1ds     +++|
05105  M01S03679.1ds     +++| TJOT     DATA   H+"NMOT"+
05106  M01S03680.1ds     +++| VSA      SPACE  4,10
05107  M01S03681.1ds     +++|***       FUNCTION VSAF - VALIDATE SECURITY-UNLOCK ACCESS.
05108  M01S03682.1ds     +++|*
05109  M01S03683.1ds     +++|*         ENTRY  (IR+4) = BUFFER OFFSET.
05110  M01S03684.1ds     +++|
05111  M01S03685.1ds     +++|
05112  M01S03686.1ds     +++| VSA      ENTRY              ENTRY/EXIT
05113  M01S03687.1ds     +++|          LDN    /1DS/KBCML  READ KEYBOARD BUFFER
05114  M01S03688.1ds     +++|          STD    BA
05115  M01S03689.1ds     +++|          LDC    /1DS/DSDL
05116  M01S03690.1ds     +++|          CRM    VSAA,BA
05117  M01S03691.1ds     +++|          LDD    IR+4        SET POINTER TO BUFFER
05118  M01S03692.1ds     +++|          ADC    VSAA
05119  M01S03693.1ds     +++|          STD    BA
05120  M01S03694.1ds     +++|          RJM    ASN         EXTRACT USERNAME
05121  M01S03695.1ds     +++|          LDC    VSAB+3      SET POINTER TO ACCOUNT FILE MESSAGE
05122  M01S03696.1ds     +++|          STD    T1
05123  M01S03697.1ds     +++|          LDN    AB          APPEND USERNAME TO ACCOUNT FILE MESSAGE
05124  M01S03698.1ds     +++|          RJM    ACS
05125  M01S03699.1ds     +++|          LDC    =C*. *      TERMINATE MESSAGE WITH A PERIOD
05126  M01S03700.1ds     +++|          RJM    ACS
05127  M01S03701.1ds     +++|          AOD    BA          SKIP SEPARATOR
05128  M01S03702.1ds     +++|          LDN    ZERL        FORCE SYSTEM DEFAULT FAMILY
05129  M01S03703.1ds     +++|          CRD    CN
05130  M01S03704.1ds     +++|          LDC    1R0*100
05131  M01S03705.1ds     +++|          STD    CN
05132  M01S03706.1ds     +++|          EXECUTE  0AV,L0AV  GET USER VALIDATION INFORMATION
05133  M01S03707.1ds     +++|          LDD    T1          CHECK FOR USER INDEX
05134  M01S03708.1ds     +++|          ADD    T2
05135  M01S03709.1ds     +++|          ZJN    VSA2        IF USER NOT VALID
05136  M01S03710.1ds     +++|          RJM    ASN         EXTRACT PASSWORD
05137  M01S03711.1ds     +++|          LDD    MA          SET PARAMETER FOR *RDCM* CALL
05138  M01S03712.1ds     +++|          CWD    AB
05139  M01S03713.1ds     +++|          LDN    REPS        ENCRYPT SUPPLIED PASSWORD
05140  M01S03714.1ds     +++|          STD    CM+1
05141  M01S03715.1ds     +++|          MONITOR  RDCM
05142  M01S03716.1ds     +++|          LDD    MA
05143  M01S03717.1ds     +++|          CRD    AB
05144  M01S03718.1ds     +++|          LDD    AB          COMPARE ENCRYPTED PASSWORDS
05145  M01S03719.1ds     +++|          LMM    APSW*5,T3
05146  M01S03720.1ds     +++|          NJN    VSA2        IF NO MATCH
05147  M01S03721.1ds     +++|          LDD    AB+1
05148  M01S03722.1ds     +++|          LMM    APSW*5+1,T3
05149  M01S03723.1ds     +++|          NJN    VSA2        IF NO MATCH
05150  M01S03724.1ds     +++|          LDD    AB+2
05151  M01S03725.1ds     +++|          LMM    APSW*5+2,T3
05152  M01S03726.1ds     +++|          NJN    VSA2        IF NO MATCH
05153  M01S03727.1ds     +++|          LDD    AB+3
05154  M01S03728.1ds     +++|          LMM    APSW*5+3,T3
05155  M01S03729.1ds     +++|          SCN    77
05156  M01S03730.1ds     +++|          ZJN    VSA3        IF MATCH
05157  M01S03731.1ds     +++| VSA2     LDC    2RSI        CONVERT ACCOUNT FILE MESSAGE
05158  M01S03732.1ds     +++|          STM    VSAB+1
05159  M01S03733.1ds     +++|          LDN    1           ERROR CONDITION
05160  M01S03734.1ds     +++|          RJM    SRD         SAVE RESPONSE TO *DSD*
05161  M01S03735.1ds     +++| VSA2.1   LDC    ACFN+VSAB   ISSUE ACCOUNT FILE MESSAGE
05162  M01S03736.1ds     +++|          RJM    DFM
05163  M01S03737.1ds     +++|          LJM    VSAX        RETURN ERROR
05164  M01S03738.1ds     +++|
05165  M01S03739.1ds     +++|*         CHECK FOR SECURITY ADMINISTRATOR PRIVILEGES.
05166  M01S03740.1ds     +++|
05167  M01S03741.1ds     +++| VSA3     LDM    ASVW*5,T3
05168  M01S03742.1ds     +++|          SHN    21-13
05169  M01S03743.1ds     +++|          PJN    VSA2        IF NOT SECURITY ADMINISTRATOR
05170  M01S03744.1ds     +++|          LDN    SSTL        SET SECURITY UNLOCK
05171  M01S03745.1ds     +++|          CRD    AB
05172  M01S03746.1ds     +++|          LDD    AB
05173  M01S03747.1ds     +++|          LPC    6377
05174  M01S03748.1ds     +++|          LMC    1400
05175  M01S03749.1ds     +++|          STD    AB
05176  M01S03750.1ds     +++|          LDN    SSTL
05177  M01S03751.1ds     +++|          CWD    AB
Line S03752 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05178  M02S03752.271l716 ---|          LDN    0           NO ERROR
Line S03753 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05179  M02S03753.271l716 ---|          RJM    SRD         SAVE RESPONSE TO *DSD*
05180  M01S03754.1ds     +++|          UJN    VSA2.1      ISSUE ACCOUNT FILE MESSAGE
05181  M01S03755.1ds     +++|
05182  M01S03756.1ds     +++| VSAA     BSSZ   /1DS/KBCML*5   KEYBOARD BUFFER
05183  M01S03757.1ds     +++| VSAB     DATA   C*MSSA, *
05184  M01S03758.1ds     +++| VSAC     BSSZ   5
05185  M01S03759.1ds     +++|          SPACE  4,10
05186  M01S03760.1ds     +++|**        ASN - ASSEMBLE NAME.
05187  M01S03761.1ds     +++|*
05188  M01S03762.1ds     +++|*         ENTRY  (BA) = CHARACTER ADDRESS.
05189  M01S03763.1ds     +++|*
05190  M01S03764.1ds     +++|*         EXIT   (AB - AB+4) = ASSEMBLED NAME LEFT JUSTIFIED WITH
05191  M01S03765.1ds     +++|*                ZERO FILL.
05192  M01S03766.1ds     +++|*                (CA)   ADVANCED TO SEPARATOR CHARACTER.
05193  M01S03767.1ds     +++|*
05194  M01S03768.1ds     +++|*         USES   T1, BA, AB - AB+4.
05195  M01S03769.1ds     +++|
05196  M01S03770.1ds     +++|
05197  M01S03771.1ds     +++| ASN      SUBR               ENTRY/EXIT
05198  M01S03772.1ds     +++|          LDN    ZERL        CLEAR ASSEMBLY BUFFER
05199  M01S03773.1ds     +++|          CRD    AB
05200  M01S03774.1ds     +++|          LDN    AB          SET BYTE ADDRESS
05201  M01S03775.1ds     +++|          STD    T1
05202  M01S03776.1ds     +++| ASN1     LDI    BA          CHECK CHARACTER
05203  M01S03777.1ds     +++|          ZJN    ASNX        IF END OF STRING
05204  M01S03778.1ds     +++|          SBN    1R9+1
05205  M01S03779.1ds     +++|          PJN    ASNX        IF SEPARATOR
05206  M01S03780.1ds     +++|          ADN    1R9+1       STORE UPPER
05207  M01S03781.1ds     +++|          SHN    6
05208  M01S03782.1ds     +++|          STI    T1
05209  M01S03783.1ds     +++|          AOD    BA          ADVANCE CHARACTER
05210  M01S03784.1ds     +++|          LDI    BA          CHECK CHARACTER
05211  M01S03785.1ds     +++|          ZJN    ASNX        IF END OF STRING
05212  M01S03786.1ds     +++|          SBN    1R9+1
05213  M01S03787.1ds     +++|          PJN    ASNX        IF SEPARATOR
05214  M01S03788.1ds     +++|          ADN    1R9+1       STORE LOWER
05215  M01S03789.1ds     +++|          RAI    T1
05216  M01S03790.1ds     +++|          AOD    BA          ADVANCE CHARACTER
05217  M01S03791.1ds     +++|          AOD    T1          ADVANCE BYTE
05218  M01S03792.1ds     +++|          LMN    AB+5
05219  M01S03793.1ds     +++|          NJN    ASN1        IF NOT 5 BYTES
05220  M01S03794.1ds     +++|          UJN    ASNX        RETURN
Line S03795 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
05221  M02S03795.1ds21   ---|
Line S03796 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
05222  M02S03796.1ds21   ---| L0AV     EQU    5000B       LOAD ADDRESS FOR *0AV*
05223  M01S03797.1ds     +++|          SPACE  4,10
05224  M01S03798.1ds     +++|*         COMMON DECKS.
05225  M01S03799.1ds     +++|
05226  M01S03800.1ds     +++|
05227  M01S03801.1ds     +++|          QUAL
05228  M01S03802.1ds     +++| VAL$     EQU    1           DEFINE ACCESS LEVEL TABLE
05229  M01S03803.1ds     +++|*CALL     COMPVLC
05230  M01S03804.1ds     +++|          QUAL   *
05231  M01S03805.1ds     +++|
05232  M01S03806.1ds     +++|
Line S03807 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
05233  M02S03807.1ds21   ---|          OVERFLOW  OVLA,L0AV
05234  M01S00081.1ds21   +++|          USE    LITERALS
05235  M01S00082.1ds21   +++|
05236  M01S00083.1ds21   +++| L0AV     EQU    *+5         LOAD ADDRESS FOR *0AV*
05237  M01S00084.1ds21   +++|          ERRNG  BFMS-L0AV-ZAVL  *0AV* OVERFLOW
05238  M01S00085.1ds21   +++|
05239  M01S00086.1ds21   +++|
05240  M01S00087.1ds21   +++|          OVERFLOW  OVLA,/OVERLAY/BUFB
05241  M01S00088.1ds21   +++|
05242  M01S00089.1ds21   +++|          ERRNG  L0AV-*      CODE OVERFLOWS INTO *0AV*
05243  M01S03808.1ds     +++|          OVERLAY  (*SERVICE* COMMAND PROCESSOR.)
05244  M01S03809.1ds     +++| SER      SPACE  4,10
05245  M01S03810.1ds     +++|***       FUNCTION SERF - PROCESS *SERVICE* COMMAND.
05246  M01S03811.1ds     +++|*
05247  M01S03812.1ds     +++|*         ENTRY  (IR+4) = OFFSET IN KEYBOARD BUFFER TO START OF
05248  M01S03813.1ds     +++|*                         COMMAND PARAMETERS.
05249  M01S03814.1ds     +++|*                (IR+3) = SERVICE CLASS.
05250  M01S03815.1ds     +++|
05251  M01S03816.1ds     +++|
05252  M01S03817.1ds     +++| SER      ENTRY              ENTRY/EXIT
Line S03818 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05253  M02S03818.271l716 ---|          LDN    4           SET NUMBER OF JCB WORDS TO READ
Line S03819 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05254  M02S03819.271l716 ---|          STD    SR+2
Line S03820 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05255  M02S03820.271l716 ---|          STD    SR          INDICATE NOT END OF PARAMETERS
Line S00244 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05256  M02S00244.271l750 ---|          LDN    JCTT-SVJT
05257  M01S00039.271l750 +++|          LDN    CSAT-SVJT
05258  M01S00245.271l716 +++|          STD    SR+2        SET LENGTH OF SERVICE CONTROL BLOCK
Line S03821 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05259  M02S03821.271l750 ---|          LDD    IR+3
Line S03822 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05260  M02S03822.271l750 ---|          RJM    RJC         GET JOB CONTROL BLOCK
05261  M01S00040.271l750 +++|          SFA    JCB,IR+3    GET JOB CONTROL BLOCK
05262  M01S03823.1ds     +++|          ADN    SVJT
Line S03824 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05263  M02S03824.271l716 ---|          CRM    SERD,SR+2
05264  M01S00246.271l716 +++|          CRM    SERF,SR+2
05265  M01S03825.1ds     +++|          SBD    SR+2        SAVE FWA OF WORDS READ
05266  M01S03826.1ds     +++|          STD    T7
05267  M01S03827.1ds     +++|          SHN    -14
05268  M01S03828.1ds     +++|          STD    T6
05269  M01S03829.1ds     +++|          LDN    /1DS/KBCML  GET CONTENTS OF KEYBOARD BUFFER
05270  M01S03830.1ds     +++|          STD    T1
05271  M01S03831.1ds     +++|          LDC    /1DS/DSDL
05272  M01S03832.1ds     +++|          CRM    CBUF,T1
05273  M01S03833.1ds     +++|          LDD    IR+4        GET ADDRESS OF COMMAND
05274  M01S03834.1ds     +++|          ADK    CBUF+2      SKIP SERVICE CLASS
05275  M01S03835.1ds     +++|          STD    CA
05276  M01S03836.1ds     +++|
05277  M01S03837.1ds     +++|*         PROCESS NEXT PARAMETER.
05278  M01S03838.1ds     +++|
05279  M01S03839.1ds     +++| SER1     AOD    CA          SKIP SEPARATOR
05280  M01S03840.1ds     +++|          LDC    TSVP        SEARCH PARAMETER TABLE
05281  M01S03841.1ds     +++|          RJM    SPT
Line S03842 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05282  M02S03842.271l716 ---|          MJP    SER4        IF NOT FOUND
Line S03843 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05283  M02S03843.271l716 ---|          STD    SR+1
Line S03844 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05284  M02S03844.271l716 ---|          LDN    2           SKIP PARAMETER NAME
Line S03845 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05285  M02S03845.271l716 ---|          RAD    CA
Line S03846 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05286  M02S03846.271l716 ---|          LDD    SR+1
Line S03847 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05287  M02S03847.271l716 ---|          SBN    TSVPD
Line S03848 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05288  M02S03848.271l716 ---|          NJN    SER2        IF NOT *DT* PARAMETER
05289  M01S00247.271l716 +++|          MJN    SER2        IF NOT FOUND
05290  M01S00248.271l716 +++|          STD    SR+1
05291  M01S00249.271l716 +++|          SBN    TSVPE-TSVP
05292  M01S00250.271l716 +++|          NJN    SER3        IF NOT *DT* PARAMETER
05293  M01S03849.1ds     +++|
05294  M01S03850.1ds     +++|*         PROCESS *DT* PARAMETER.
05295  M01S03851.1ds     +++|
Line S03852 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05296  M02S03852.271l716 ---|          LDC    TNSC
Line S03853 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05297  M02S03853.271l716 ---|          RJM    SPT         SEARCH FOR VALID SERVICE CLASS
Line S03854 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05298  M02S03854.271l716 ---|          MJN    SER4        IF NOT FOUND
05299  M01S00251.271l716 +++|          LDC    TNSC        SEARCH FOR VALID SERVICE CLASS
05300  M01S00252.271l716 +++|          RJM    SPT
05301  M01S00253.271l716 +++|          MJN    SER2        IF NOT FOUND
05302  M01S03855.1ds     +++|          STD    AB+4
05303  M01S03856.1ds     +++|          LMN    SSSC
Line S03857 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05304  M02S03857.271l716 ---|          ZJN    SER4        IF SUBSYSTEM SERVICE CLASS
Line S03858 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05305  M02S03858.271l716 ---|          LMN    DSSC&SSSC
Line S03859 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05306  M02S03859.271l716 ---|          ZJN    SER4        IF DEADSTART SERVICE CLASS
Line S03860 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05307  M02S03860.271l716 ---|          LDN    2           SKIP PARAMETER
Line S03861 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05308  M02S03861.271l716 ---|          RAD    CA
Line S03862 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05309  M02S03862.271l716 ---|          LDI    CA
Line S03863 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05310  M02S03863.271l716 ---|          UJN    SER3        CHECK FOR VALID SEPARATOR
Line S03864 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05311  M02S03864.271l716 ---|
Line S03865 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05312  M02S03865.271l716 ---| SER2     RJM    ASD         ASSEMBLE DIGITS
Line S03866 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05313  M02S03866.271l716 ---| SER3     LMN    1R,
Line S03867 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05314  M02S03867.271l716 ---|          ZJN    SER5        IF *,*
Line S03868 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05315  M02S03868.271l716 ---|          LMN    1R.&1R,
Line S03869 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05316  M02S03869.271l716 ---|          STD    SR          CLEAR PARAMETER COUNT
Line S03870 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05317  M02S03870.271l716 ---|          ZJN    SER5        IF *.*
Line S03871 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05318  M02S03871.271l716 ---| SER4     LDN    1           *INCORRECT ENTRY*
Line S03872 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05319  M02S03872.271l716 ---|          LJM    SER17       SAVE ERROR RESPONSE
Line S03873 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05320  M02S03873.271l716 ---|
Line S03874 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05321  M02S03874.271l716 ---| SER5     LDD    SR+1
Line S03875 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05322  M02S03875.271l716 ---|          NJN    SER7        IF NOT *PR*
Line S03876 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05323  M02S03876.271l716 ---|
Line S03877 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05324  M02S03877.271l716 ---|*         PROCESS *PR* PARAMETER.
Line S03878 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05325  M02S03878.271l716 ---|
Line S03879 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05326  M02S03879.271l716 ---|          LDD    AB+4
Line S03880 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05327  M02S03880.271l716 ---|          SBN    2
Line S03881 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05328  M02S03881.271l716 ---|          MJN    SER4        IF INCORRECT VALUE
Line S03882 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05329  M02S03882.271l716 ---|          SBN    MPRS-2
Line S03883 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05330  M02S03883.271l716 ---|          PJN    SER4        IF INCORRECT VALUE
Line S03884 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05331  M02S03884.271l716 ---| SER6     LJM    SER10       CHECK VALUE RANGE
Line S03885 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05332  M02S03885.271l716 ---|
Line S03886 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05333  M02S03886.271l716 ---| SER7     SBN    TSVPC
Line S03887 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05334  M02S03887.271l716 ---|          MJN    SER6        IF NOT INDEX PARAMETER
Line S03888 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05335  M02S03888.271l716 ---|          SBN    TSVPD-TSVPC
Line S03889 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05336  M02S03889.271l716 ---|          ZJP    SER13       IF *DT* PARAMETER
Line S03890 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05337  M02S03890.271l716 ---|          ADN    TSVPD-TSVPC
05338  M01S00254.271l716 +++|          ZJN    SER2        IF SUBSYSTEM SERVICE CLASS
05339  M01S00255.271l716 +++|          LMN    DSSC&SSSC
05340  M01S00256.271l716 +++|          NJN    SER5        IF NOT DEADSTART SERVICE CLASS
05341  M01S00257.271l716 +++| SER2     LDN    1
Line S00258 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05342  M02S00258.271l750 ---|          LJM    SER17       RETURN ERROR STATUS TO *DSD*
05343  M01S00041.271l750 +++|          LJM    SER18       RETURN ERROR STATUS TO *DSD*
05344  M01S00259.271l716 +++|
05345  M01S00260.271l716 +++| SER3     RJM    ASD         ASSEMBLE DIGITS
05346  M01S00261.271l716 +++|
05347  M01S00262.271l716 +++| SER5     LDM    SERE,SR+1   SET PROCESSOR ADDRESS
05348  M01S00263.271l716 +++|          STD    T5
05349  M01S00264.271l716 +++|          LJM    0,T5        EXIT TO PROCESSOR
05350  M01S00265.271l716 +++|
Line S00266 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05351  M02S00266.271l750 ---|*         PROCESS *CB* PARAMETER.
05352  M01S00042.271l750 +++|*         PROCESS *PR* PARAMETER.
05353  M01S00267.271l716 +++|
05354  M01S00268.271l716 +++| SER6     LDD    AB+4
Line S00269 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05355  M02S00269.271l750 ---|          SHN    14          EXTRACT LOWER BOUND
Line S00270 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05356  M02S00270.271l750 ---|          STD    T0
Line S00271 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05357  M02S00271.271l750 ---|          SHN    -14         ISOLATE UPPER BOUND
Line S00272 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05358  M02S00272.271l750 ---|          SBD    T0
Line S00273 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05359  M02S00273.271l750 ---|          MJN    SER2        IF LOWER .GT. UPPER BOUND
Line S00274 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05360  M02S00274.271l750 ---|          LDD    T0
05361  M01S00275.271l716 +++|          SBN    2
Line S00276 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05362  M02S00276.271l750 ---|          MJN    SER2        IF INCORRECT VALUE
05363  M01S00043.271l750 +++|          MJN    SER2        IF PRIORITY .LT. 2
05364  M01S00044.271l750 +++|          SBN    100-2
05365  M01S00045.271l750 +++|          PJN    SER2        IF PRIORITY .GE. 100B
05366  M01S00046.271l750 +++|          AOM    SERG        SET TO ISSUE *SCTM* FUNCTION
05367  M01S00277.271l716 +++|          LJM    SER14       VALIDATE ASSEMBLY
05368  M01S03891.1ds     +++|
05369  M01S03892.1ds     +++|*         PROCESS INDEX ENTRY.
05370  M01S03893.1ds     +++|
Line S03894 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05371  M02S03894.271l716 ---|          LPN    3           SET SHIFT COUNT
Line S03895 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05372  M02S03895.271l716 ---|          STD    T2          MULTIPLY BY 3
Line S03896 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05373  M02S03896.271l716 ---|          ADD    T2
Line S03897 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05374  M02S03897.271l716 ---|          RAD    T2
Line S03898 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05375  M02S03898.271l716 ---|          ADC    SHNI
05376  M01S00278.271l716 +++| SER7     LDD    SR+1        SET FIELD POSITION
05377  M01S00279.271l716 +++|          SBN    TSVPD-TSVP
05378  M01S00280.271l716 +++|          STD    T2          MULTIPLY BY 3
05379  M01S00281.271l716 +++|          SHN    1
05380  M01S00282.271l716 +++|          ADD    T2          SET SHIFT INSTRUCTION
05381  M01S00283.271l716 +++|          LMD    TH
05382  M01S00284.271l716 +++|          ERRNZ  SHNI-1000   CODE DEPENDS ON VALUE
05383  M01S03899.1ds     +++|          STM    SERA
05384  M01S03900.1ds     +++|          STM    SERB
05385  M01S03901.1ds     +++|          LCN    7           SET MASK FIELD
05386  M01S03902.1ds     +++| SERA     SHN    **
05387  M01S03903.1ds     +++|*         SHN    11          (DS)
05388  M01S03904.1ds     +++|*         SHN    6           (FC)
05389  M01S03905.1ds     +++|*         SHN    3           (CS)
05390  M01S03906.1ds     +++|*         SHN    0           (FS)
05391  M01S03907.1ds     +++|          STM    SERC
05392  M01S03908.1ds     +++|          LDD    AB+4        SET NEW INDEX VALUE
05393  M01S03909.1ds     +++|          SBN    10
Line S03910 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05394  M02S03910.271l716 ---|          MJN    SER9        IF LEGAL INDEX
Line S03911 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05395  M02S03911.271l716 ---| SER8     LDN    1           *INCORRECT ENTRY*
Line S03912 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05396  M02S03912.271l716 ---|          LJM    SER17       SAVE ERROR RESPONSE
Line S03913 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05397  M02S03913.271l716 ---|
Line S03914 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05398  M02S03914.271l716 ---| SER9     ADN    10
05399  M01S00285.271l716 +++|          PJN    SER9        IF INVALID INDEX
05400  M01S00286.271l716 +++|          ADN    10
05401  M01S03915.1ds     +++| SERB     SHN    **
05402  M01S03916.1ds     +++|*         SHN    11          (DS)
05403  M01S03917.1ds     +++|*         SHN    6           (FC)
05404  M01S03918.1ds     +++|*         SHN    3           (CS)
05405  M01S03919.1ds     +++|*         SHN    0           (FS)
05406  M01S03920.1ds     +++|          STD    CM
Line S03921 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05407  M02S03921.271l716 ---|          LDN    TSVPC
Line S03922 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05408  M02S03922.271l716 ---|          STD    SR+1
Line S03923 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05409  M02S03923.271l716 ---|          LDM    SERD,SR+1   INSERT INDEX VALUE IN EXISTING BYTE
05410  M01S00287.271l716 +++|          LDN    TSVPD-TSVP  SET SERVICE BLOCK INDEX
05411  M01S00288.271l716 +++|          STD    SR+1
05412  M01S00289.271l716 +++|          LDM    SERF,SR+1   INSERT INDEX VALUE IN EXISTING BYTE
05413  M01S03924.1ds     +++|          LPC    **
05414  M01S03925.1ds     +++| SERC     EQU    *-1
05415  M01S03926.1ds     +++|*         LPC    0777        (DS)
05416  M01S03927.1ds     +++|*         LPC    7077        (FC)
05417  M01S03928.1ds     +++|*         LPC    7707        (CS)
05418  M01S03929.1ds     +++|*         LPC    7770        (FS)
05419  M01S03930.1ds     +++|          LMD    CM
Line S03931 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05420  M02S03931.271l716 ---|          UJN    SER14       STORE VALUE
Line S03932 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05421  M02S03932.271l716 ---|
Line S03933 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05422  M02S03933.271l716 ---|*         CHECK VALUE RANGE.
Line S03934 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05423  M02S03934.271l716 ---|
Line S03935 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05424  M02S03935.271l716 ---| SER10    LDI    T5
Line S03936 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05425  M02S03936.271l716 ---|          LMC    2RAM
Line S03937 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05426  M02S03937.271l716 ---|          NJN    SER11       IF PARAMETER .NE. *AM*
Line S03938 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05427  M02S03938.271l716 ---|          LDD    AB+3
Line S03939 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05428  M02S03939.271l716 ---|          STM    SERD,SR+1
Line S03940 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05429  M02S03940.271l716 ---|          AOD    SR+1
Line S03941 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05430  M02S03941.271l716 ---|          LDD    AB+3
Line S03942 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05431  M02S03942.271l716 ---|          SCN    7           ALLOW *AM* UP TO 77777
Line S03943 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05432  M02S03943.271l716 ---|          UJN    SER12       CHECK VALUE RANGE
Line S03944 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05433  M02S03944.271l716 ---|
Line S03945 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05434  M02S03945.271l716 ---| SER11    LDD    AB+3
Line S03946 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05435  M02S03946.271l716 ---| SER12    ADD    AB+2
05436  M01S00290.271l716 +++|          STD    AB+4
05437  M01S00291.271l716 +++|          UJN    SER14       CHECK VALUE RANGE
05438  M01S00292.271l716 +++|
Line S00293 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05439  M02S00293.271l750 ---| SER8     LDD    AB+4
Line S00294 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05440  M02S00294.271l750 ---|          NJN    SER14       IF VALID PARAMETER
05441  M01S00047.271l750 +++|*         PROCESS *RS* PARAMETER.
05442  M01S00048.271l750 +++|
05443  M01S00049.271l750 +++| SER8     LDM    SERF+CSJT*5-SVJT*5+4  EXISTING *US* VALUE
05444  M01S00050.271l750 +++|          SBD    AB+4        SPECIFIED *RS* VALUE
05445  M01S00051.271l750 +++|          UJN    SER8.2      ENSURE *RS* .LE. *US*
05446  M01S00052.271l750 +++|
05447  M01S00053.271l750 +++|*         PROCESS *US* PARAMETER.
05448  M01S00054.271l750 +++|
05449  M01S00055.271l750 +++| SER8.1   LDD    AB+4        SPECIFIED *US* VALUE
05450  M01S00056.271l750 +++|          SBM    SERF+CSJT*5-SVJT*5+3  EXISTING *RS* VALUE
05451  M01S00057.271l750 +++| SER8.2   MJN    SER9        IF *RS* .GT. *US*
05452  M01S00058.271l750 +++|          LDD    AB+4
05453  M01S00059.271l750 +++|          ZJN    SER9        IF NOT VALID PARAMETER
05454  M01S00060.271l750 +++|
05455  M01S00061.271l750 +++|*         PROCESS *IT* AND *SE* PARAMETERS.
05456  M01S00062.271l750 +++|
05457  M01S00063.271l750 +++| SER8.3   AOM    SERG        FORCE *SCTM*/*CCSS* MONITOR FUNCTION
05458  M01S00064.271l750 +++|          UJN    SER14       CHECK VALUE RANGE
05459  M01S00065.271l750 +++|
05460  M01S00066.271l750 +++|*         RETURN ERROR STATUS.
05461  M01S00067.271l750 +++|
05462  M01S00295.271l716 +++| SER9     LDN    1
Line S00296 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05463  M02S00296.271l750 ---|          LJM    SER17       RETURN ERROR STATUS TO *DSD*
05464  M01S00068.271l750 +++|          LJM    SER18       RETURN ERROR STATUS TO *DSD*
05465  M01S00297.271l716 +++|
05466  M01S00298.271l716 +++| SER10    LDD    AB+3        ALLOW *AM* UP TO 77777
05467  M01S00299.271l716 +++|          STM    SERF-1,SR+1
05468  M01S00300.271l716 +++|          SCN    7
05469  M01S00301.271l716 +++|          UJN    SER15       CHECK VALUE RANGE
Line S00302 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05470  M02S00302.271l750 ---|
Line S00303 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05471  M02S00303.271l750 ---|*         PROCESS *CW* PARAMETER.
Line S00304 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05472  M02S00304.271l750 ---|
Line S00305 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05473  M02S00305.271l750 ---| SER11    LDD    AB+4        COMPLEMENT WEIGHTING FACTOR
Line S00306 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05474  M02S00306.271l750 ---|          LMN    7
Line S00307 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05475  M02S00307.271l750 ---|          STD    AB+4        PERFORM RANGE CHECK
Line S00308 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05476  M02S00308.271l750 ---|          SHN    -3
Line S00309 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05477  M02S00309.271l750 ---|          ZJN    SER14       IF VALUE IN RANGE
Line S00310 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05478  M02S00310.271l750 ---|          UJN    SER9        PROCESS INCORRECT ENTRY
05479  M01S00311.271l716 +++|
05480  M01S00312.271l716 +++| SER13    AOM    SERD        FLAG *NJ* PARAMETER
05481  M01S00313.271l716 +++|
05482  M01S00314.271l716 +++|*         CHECK VALUE RANGE.
05483  M01S00315.271l716 +++|
05484  M01S00316.271l716 +++| SER14    LDD    AB+3        CHECK ASSEMBLY
05485  M01S00317.271l716 +++| SER15    ADD    AB+2
05486  M01S03947.1ds     +++|          ADD    AB+1
05487  M01S03948.1ds     +++|          ADD    AB
Line S03949 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05488  M02S03949.271l716 ---|          NJN    SER8        IF VALUE EXCEEDS MAXIMUM
05489  M01S00318.271l716 +++|          NJN    SER9        IF VALUE TOO LARGE
05490  M01S03950.1ds     +++|
05491  M01S03951.1ds     +++|*         STORE VALUE.
05492  M01S03952.1ds     +++|
Line S03953 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05493  M02S03953.271l716 ---| SER13    LDD    AB+4
Line S03954 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05494  M02S03954.271l716 ---| SER14    STM    SERD,SR+1
Line S03955 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05495  M02S03955.271l716 ---|          LDD    SR+1
Line S03956 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05496  M02S03956.271l716 ---|          SBN    TSVPB
Line S03957 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05497  M02S03957.271l716 ---|          NJN    SER15       IF NOT *NJ* PARAMETER
Line S03958 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05498  M02S03958.271l716 ---|          LDN    ZERL        ISSUE JOB LIMIT CHANGED EVENT
Line S03959 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05499  M02S03959.271l716 ---|          CRD    CM
Line S03960 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05500  M02S03960.271l716 ---|          LDN    /EVENT/SCFE
Line S03961 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05501  M02S03961.271l716 ---|          STD    CM+4
Line S03962 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05502  M02S03962.271l716 ---|          MONITOR  EATM
Line S03963 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05503  M02S03963.271l716 ---| SER15    LDD    SR
Line S03964 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05504  M02S03964.271l716 ---|          ZJN    SER16       IF END OF PARAMETERS
Line S03965 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05505  M02S03965.271l716 ---|          LJM    SER1        PROCESS NEXT PARAMETER
Line S03966 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05506  M02S03966.271l716 ---|
Line S03967 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05507  M02S03967.271l716 ---| SER16    LDD    T6          WRITE SERVICE CONTROL WORDS
Line S03968 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05508  M02S03968.271l716 ---|          SHN    14
Line S03969 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05509  M02S03969.271l716 ---|          ADD    T7
Line S03970 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05510  M02S03970.271l716 ---|          CWM    SERD,SR+2
Line S03971 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05511  M02S03971.271l716 ---|          LDN    0           NO ERROR
Line S03972 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05512  M02S03972.271l716 ---| SER17    RJM    SRD         SAVE RESPONSE TO *DSD*
Line S03973 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05513  M02S03973.271l716 ---|          LJM    SERX        RETURN
Line S03974 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05514  M02S03974.271l716 ---|
Line S03975 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05515  M02S03975.271l716 ---| SERD     VFD    60/0        *SVJT*
05516  M01S00319.271l716 +++| SER16    LDD    AB+4        SET VALUE IN SERVICE CONTROL BLOCK
05517  M01S00320.271l716 +++|          STM    SERF,SR+1
05518  M01S00321.271l716 +++|          LDI    CA          CHECK SEPARATOR
05519  M01S00322.271l716 +++|          LMN    1R,
05520  M01S00323.271l716 +++|          ZJP    SER1        IF NOT END OF PARAMETERS
05521  M01S00324.271l716 +++|          LMN    1R.&1R,
05522  M01S00325.271l716 +++|          NJN    SER9        IF INCORRECT TERMINATION
05523  M01S00326.271l716 +++|          LDD    T6
05524  M01S00327.271l716 +++|          SHN    14
05525  M01S00328.271l716 +++|          LMD    T7          STORE SERVICE CONTROL BLOCK
05526  M01S00329.271l716 +++|          CWM    SERF,SR+2
05527  M01S00330.271l716 +++| SERD     LDN    0
05528  M01S00331.271l716 +++|          ZJN    SER17       IF NO *NJ* PARAMETER
05529  M01S00332.271l716 +++|          LDN    ZERL
05530  M01S00333.271l716 +++|          CRD    CM
05531  M01S00334.271l716 +++|          LDN    /EVENT/SCFE ISSUE JOB LIMIT CHANGED EVENT
05532  M01S00335.271l716 +++|          STD    CM+4
05533  M01S00336.271l716 +++|          MONITOR  EATM
05534  M01S00069.271l750 +++| SER17    LDN    0
05535  M01S00070.271l750 +++| SERG     EQU    *-1
05536  M01S00071.271l750 +++|          ZJN    SER18       IF NO *SCTM* UPDATE REQUIRED
05537  M01S00072.271l750 +++|          LDN    ZERL
05538  M01S00073.271l750 +++|          CRD    CM
05539  M01S00074.271l750 +++|          LDN    CCSS        CONVERT CPU SCHEDULING PARAMETERS
05540  M01S00075.271l750 +++|          STD    CM+1
05541  M01S00076.271l750 +++|          LDD    IR+3        SET SERVICE CLASS
05542  M01S00077.271l750 +++|          STD    CM+4
05543  M01S00078.271l750 +++|          MONITOR  SCTM      SET SYSTEM CONTROL PARAMETERS
05544  M01S00337.271l716 +++|*         LDN    0           RETURN NO ERROR TO *DSD*
Line S00338 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05545  M02S00338.271l750 ---| SER17    RJM    SRD
05546  M01S00079.271l750 +++| SER18    RJM    SRD
05547  M01S00339.271l716 +++|          LJM    SERX        RETURN
05548  M01S00340.271l716 +++|
05549  M01S00341.271l716 +++|
05550  M01S00342.271l716 +++| SERE     BSS    0           SERVICE COMMAND PROCESSORS
Line S00343 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05551  M02S00343.271l750 ---|          CON    SER6        *CB* PARAMETER
05552  M01S00080.271l750 +++|          CON    SER9        UNUSED
05553  M01S00344.271l716 +++|          CON    SER14       *CT* PARAMETER
05554  M01S00345.271l716 +++|          CON    SER14       *CM* PARAMETER
05555  M01S00346.271l716 +++|          CON    SER13       *NJ* PARAMETER
05556  M01S00347.271l716 +++|          CON    SER14       *TD* PARAMETER
05557  M01S00348.271l716 +++|
05558  M01S00349.271l716 +++|          CON    SER14       *CP* PARAMETER
05559  M01S00350.271l716 +++|          CON    SER14       *TP* PARAMETER
05560  M01S00351.271l716 +++|          CON    SER14       *FL* PARAMETER
05561  M01S00352.271l716 +++|          CON    SER9        UNUSED
05562  M01S00353.271l716 +++|          CON    SER10       *AM* PARAMETER
05563  M01S00354.271l716 +++|
Line S00355 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05564  M02S00355.271l750 ---|          CON    SER8        *SD* PARAMETER
Line S00356 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05565  M02S00356.271l750 ---|          CON    SER11       *CW* PARAMETER
05566  M01S00081.271l750 +++|          CON    SER9        UNUSED
05567  M01S00082.271l750 +++|          CON    SER9        UNUSED
05568  M01S00357.271l716 +++|          CON    SER14       *EC* PARAMETER
05569  M01S00358.271l716 +++|          CON    SER9        UNUSED
05570  M01S00359.271l716 +++|          CON    SER14       *EM* PARAMETER
05571  M01S00360.271l716 +++|
05572  M01S00361.271l716 +++|          CON    SER7        *FS* PARAMETER
05573  M01S00362.271l716 +++|          CON    SER7        *CS* PARAMETER
05574  M01S00363.271l716 +++|          CON    SER7        *FC* PARAMETER
05575  M01S00364.271l716 +++|          CON    SER7        *DS* PARAMETER
05576  M01S00365.271l716 +++|          CON    SER16       *DT* PARAMETER
05577  M01S00366.271l716 +++|
05578  M01S00083.271l750 +++|          CON    SER6        *PR* PARAMETER
05579  M01S00084.271l750 +++|          CON    SER8.3      *IT* PARAMETER
05580  M01S00085.271l750 +++|          CON    SER8.3      *SE* PARAMETER
05581  M01S00086.271l750 +++|          CON    SER8        *RS* PARAMETER
05582  M01S00087.271l750 +++|          CON    SER8.1      *US* PARAMETER
05583  M01S00088.271l750 +++|
05584  M01S00367.271l716 +++| SERF     VFD    60/0        *SVJT*
05585  M01S03976.1ds     +++|          VFD    60/0        *MCMT*
05586  M01S03977.1ds     +++|          VFD    60/0        *MECT*
05587  M01S03978.1ds     +++|          VFD    60/0        *PFCT*
05588  M01S00089.271l750 +++|          VFD    60/0        *CSJT*
05589  M01S03979.1ds     +++| TNSC     SPACE  4,10
05590  M01S03980.1ds     +++|**        TNSC - TABLE OF SERVICE CLASSES.
05591  M01S03981.1ds     +++|
05592  M01S03982.1ds     +++| TNSC     DATA   H+"NMSC"+
05593  M01S03983.1ds     +++|          CON    0           END OF TABLE
05594  M01S03984.1ds     +++| TSVP     SPACE  4,10
05595  M01S03985.1ds     +++|**        TSVP - TABLE OF SERVICE PARAMETERS.
05596  M01S03986.1ds     +++|*
05597  M01S03987.1ds     +++|*T        12/ NAME
Figure

011 NAME

05598  M01S03988.1ds     +++|*
05599  M01S03989.1ds     +++|*         NAME = TWO-CHARACTER MNEMONIC.
05600  M01S03990.1ds     +++|*
05601  M01S03991.1ds     +++|*         THE TABLE IS INDEXED BY BYTE NUMBER, RELATIVE TO
05602  M01S03992.1ds     +++|*         JOB CONTROL BLOCK WORD *SVJT*.  HOWEVER, THE
05603  M01S03993.1ds     +++|*         TABLE ENTRIES FOR WORD *PFCT* ARE IN ORDER
05604  M01S03994.1ds     +++|*         BY 3-BIT FIELD.  SEE COMMENTS ON THE *PFCT*
05605  M01S03995.1ds     +++|*         TABLE ENTRIES.
05606  M01S03996.1ds     +++|
05607  M01S03997.1ds     +++|
05608  M01S03998.1ds     +++| TSVP     BSS    0
05609  M01S03999.1ds     +++|
05610  M01S04000.1ds     +++|*         *SVJT*.
05611  M01S04001.1ds     +++|
Line S04002 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05612  M02S04002.271l716 ---| TSVPA    VFD    12/2RPR
Line S04003 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05613  M02S04003.271l716 ---| TSVPE    EQU    *-TSVP      LENGTH OF TABLE ENTRY
Line S04004 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05614  M02S04004.271l716 ---|          ERRNZ  TSVPA-TSVP  *PR* IS NOT FIRST PARAMETER
Line S04005 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05615  M02S04005.271l716 ---|          VFD    12/2RCP
Line S04006 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05616  M02S04006.271l716 ---|          VFD    12/2RCM
Line S04007 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05617  M02S04007.271l716 ---| TSVPB    EQU    3
Line S04008 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05618  M02S04008.271l716 ---|          VFD    12/2RNJ
Line S04009 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05619  M02S04009.271l716 ---|          VFD    12/2RTD
Line S00368 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05620  M02S00368.271l750 ---|          CON    2RCB        LOWER / UPPER BOUND - CPU PRIORITY
05621  M01S00090.271l750 +++|          CON    6060
05622  M01S00369.271l716 +++|          CON    2RCT        CONTROL POINT TIME SLICE
05623  M01S00370.271l716 +++|          CON    2RCM        CENTRAL MEMORY TIME SLICE
05624  M01S00371.271l716 +++|          CON    2RNJ        NUMBER OF JOBS
05625  M01S00372.271l716 +++|          CON    2RTD        TIME OUT DELAY (SUSPENDED JOBS)
05626  M01S04010.1ds     +++|
05627  M01S04011.1ds     +++|*         *MCMT*.
05628  M01S04012.1ds     +++|
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/1ds.003.txt ยท Last modified: by 127.0.0.1