User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:resex.009

Deck RESEX Part 009

65 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
09995  M01S01405.274l797 +++| TDDS     BSSN   TDDSL       TABLE OF CHAINED EQUIPMENTS
Line S05242 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09996  M01S05242.274l797 ---| PDB      EQU    *           PREVIEW DISPLAY BUFFER
09997  M01S05243.274l797 ---| SBUF1    BSSN   IOBL        SCRATCH 1 I/O BUFFER
Line S05244 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09998  M02S05244.274l797 ---| TDDS     BSSN   10          TABLE OF CHAINED EQUIPMENT
Line S00588 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09999  M02S00588.274l797 ---| TDDS     BSSN   TDDSL       TABLE OF CHAINED EQUIPMENTS
Line S05245 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10000  M01S05245.274l797 ---| UDT      BSSN   /COMSMTX/UNITL        MAGNET UNIT DESCRIPTOR TABLE
10001  M01S05246.274l797 ---|
10002  M01S05247.274l797 ---|*         CHECK LENGTH OF *PDB* BUFFER - MUST BE ODD.
10003  M01S05248.274l797 ---|
10004  M01S05249.274l797 ---| PDBC     EQU    /COMSMTX/PBUFL/2*2
10005  M01S05250.274l797 ---|          ERRZR  /COMSMTX/PBUFL-PDBC  IF *PDB* BUFFER LENGTH INCORRECT
Line S01406 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10006  M02S01406.282l826 ---| OPRB     BSSN   RPBL        OPERATOR PREVIEW BUFFER
10007  M02S01407.282l826 ---| APRB     BSSN   RPBL        ACS TAPE REQUEST PREVIEW BUFFER
Line S00794 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10008  M01S00794.282l826 +++| RPRB     BSSN   RPBL        *RESEX* FORMAT PREVIEW BUFFER
10009  M01S00795.282l826 +++| AMRB     BSSN   RMBL        ACS TAPE MOUNT REQUESTS BUFFER
10010  M00S05251.resex   +++|
Line S01408 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10011  M01S01408.274l797 +++|*         TAPE ALTERNATE STORAGE PROCESSING BUFFERS.
10012  M00S05252.resex   +++|
Line S05253 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10013  M01S05253.274l797 ---|**        OVERLAY AREA 2 - BUFFERS USED BY RESOURCE ENVIRONMENT
10014  M01S05254.274l797 ---|*         PROCESSING IN PRESET.
10015  M01S05255.274l797 ---|
Line S00304 Modification History
M01 (Added by) 252l678
M02 (Removed by) resex38
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10016  M03S00304.274l797 ---|          BSSN   420B        PREVENT OVERFLOW INTO OVL2
Line S00007 Modification History
M01 (Added by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10017  M02S00007.274l797 ---|          BSSN   450B        PREVENT OVERFLOW INTO *OVL2*
Line S00305 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10018  M02S00305.274l797 ---|
Line S05256 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10019  M01S05256.274l797 ---| OVL2     EQU    *           BEGINNING OF OVERLAY AREA 2
10020  M01S05257.274l797 ---|
Line S05258 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10021  M02S05258.274l797 ---| EST      BSSN   ESTL        EQUIPMENT STATUS TABLE
Line S05259 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10022  M01S05259.274l797 ---| RDT      BSSN   RDTL        RESOURCES DEMANDED TABLE
Line S05260 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10023  M02S05260.274l797 ---| RET      BSSN   ESTL        RESOURCE EQUIPMENT TABLE
Line S00589 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10024  M02S00589.274l797 ---| RET      BSSN   RETL        RESOURCE EQUIPMENT TABLE
Line S05261 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10025  M01S05261.274l797 ---| EVSB     BSSN   EVBL        ENVIRONMENT VSN BUFFER
10026  M01S05262.274l797 ---|
10027  M01S05263.274l797 ---|
10028  M01S05264.274l797 ---|**        OVERLAY AREA 3 - BUFFERS USED BY VSN AND DEMAND FILE
10029  M01S05265.274l797 ---|*         PROCESSING IN PRESET.
10030  M01S05266.274l797 ---|
10031  M01S05267.274l797 ---| OVL3     EQU    *           BEGINNING OF OVERLAY AREA 3
10032  M01S05268.274l797 ---|
10033  M01S05269.274l797 ---| VBUF     EQU    *           VSN FILE (RSXVID) I/O BUFFER
10034  M01S05270.274l797 ---| DBUF     EQU    *           DEMAND FILE (RSXDID) I/O BUFFER
Line S05271 Modification History
M01 (Removed by) resex8
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10035  M02S05271.274l797 ---| SBUF2    BSSN   IOBL        SCRATCH 2 I/O BUFFER
Line S00001 Modification History
M01 (Added by) resex8
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10036  M02S00001.274l797 ---| SBUF2L   MAX    IOBL,/COMSMTX/MUNIT*/COMSMTX/UNITL
10037  M02S00002.274l797 ---| SBUF2    BSSN   SBUF2L      SCRATCH 2 I/O BUFFER
Line S05272 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10038  M01S05272.274l797 ---| BUF      BSSN   BUFL        SHORT SCRATCH BUFFER
Line S00590 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10039  M02S00590.274l797 ---| BUF2     EQU    *           SHORT SCRATCH BUFFER
Line S05273 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10040  M01S05273.274l797 ---| VSNB     BSSN   VSNL        VSN FILE ENTRY BUFFER
10041  M01S05274.274l797 ---|
10042  M01S05275.274l797 ---|
10043  M01S05276.274l797 ---|**        OVERLAY AREA 4 - NEW VSN AND DEMAND ENTRY BUFFERS
10044  M01S05277.274l797 ---|*         USED IN PRESET.
10045  M01S05278.274l797 ---|
10046  M01S05279.274l797 ---| OVL4     EQU    *           BEGINNING OF OVERLAY AREA 4
10047  M01S05280.274l797 ---|
10048  M01S05281.274l797 ---| RESB     BSSN   RDEL        DEMAND FILE ENTRY BUFFER
10049  M01S05282.274l797 ---| VSNE     BSSN   VSNL        NEW VSN FILE ENTRY BUFFER
10050  M01S05283.274l797 ---|
10051  M01S05284.274l797 ---|
10052  M01S05285.274l797 ---| RFL1     EQU    *+4         END OF BUFFERS
10053  M01S05286.274l797 ---|
Line S00545 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10054  M02S00545.274l797 ---|**        OVERLAY AREA 5 - TAPE ALTERNATE STORAGE PROCESSING BUFFERS.
10055  M02S00546.274l797 ---|*         USED ONLY IF PROCESSING *PFRES* INTERNAL LABEL.
10056  M02S00547.274l797 ---|
10057  M02S00548.274l797 ---| OVL5     EQU    *           BEGINNING OF OVERLAY AREA 5
10058  M02S00549.274l797 ---|
10059  M02S00550.274l797 ---| FLST     BSSZ   1           CURRENT FIELD LENGTH
Line S00551 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10060  M01S00551.253l688 +++| RBUF     BSSN   IOBL        REQUEST FILE BUFFER
10061  M01S00552.253l688 +++| LSVL     CON    STVL        ADDRESS OF LAST *STVL* ENTRY+1
10062  M01S00553.253l688 +++|
10063  M01S00554.253l688 +++|*         STVL - STAGING TAPE VSN LIST.
10064  M01S00555.253l688 +++|*
10065  M01S00556.253l688 +++|*T        20/ ,1/B,3/RTY,12/TF,24/ PACKED VSN
Figure

0232429 PACKED VSNTF30353638394059TFRTYB

10066  M01S00557.253l688 +++|*
10067  M01S00558.253l688 +++|*         B                  SELECT BACKUP VSN.
10068  M01S00559.253l688 +++|*         RTY                RETRY COUNTER.
10069  M01S00560.253l688 +++|*         TF                 *FCTF* FLAGS FROM PFC.
10070  M01S00561.253l688 +++|*         PACKED VSN         PACKED VSN OF STAGING TAPE.
10071  M01S00562.253l688 +++|
10072  M01S00563.253l688 +++| STVL     BSSN   100B        STAGING TAPE VSN LIST (CAN EXPAND)
10073  M01S00564.253l688 +++|
Line S00565 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10074  M02S00565.274l797 ---| RFL3     EQU    *+4         END OF TAPE ALTERNATE STORAGE BUFFERS
Line S01409 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10075  M01S01409.274l797 +++| RFL1     EQU    *+4         END OF BUFFERS
Line S00566 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10076  M01S00566.253l688 +++|
10077  M00S05287.resex   +++| END      BSSN               END TAG DEFINITION SEQUENCE
Line S05288 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10078  M01S05288.253l688 ---|          LIST   *
Line S05289 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10079  M01S05289.v23l617 ---|          TITLE  LABEL STATEMENT PRESET.
Line S00059 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10080  M02S00059.274l797 ---|          TITLE  LABEL COMMAND PRESET.
Line S05290 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10081  M01S05290.274l797 ---|          SPACE  4,10
10082  M01S05291.274l797 ---|**        THE FOLLOWING CODE IS OVERLAID BY OVERLAY AREA 1
10083  M01S05292.274l797 ---|*         (BUFFERS NOT USED IN PRESET).
Line S01410 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10084  M01S01410.274l797 +++|          TITLE  COMMAND PRESET ROUTINES.
10085  M01S01411.274l797 +++| ASSIGN   SPACE  4,15
10086  M01S01412.274l797 +++|***       ASSIGN,DV,F,P1,P2,...,PN.
10087  M01S01413.274l797 +++|*
10088  M01S01414.274l797 +++|*         ASSIGN FILE *F* TO DEVICE TYPE *DV* WITH PARAMETERS P1,P2,
10089  M01S01415.274l797 +++|*         ...,PN.  OPTIONAL PARAMETERS ARE APPLICABLE TO MAGNETIC TAPE
10090  M01S01416.274l797 +++|*         ONLY.
10091  M01S01417.274l797 +++|*
10092  M01S01418.274l797 +++|*
10093  M01S01419.274l797 +++|*         ASSIGN,N,F,P1,P2,...,PN.
10094  M01S01420.274l797 +++|*
10095  M01S01421.274l797 +++|*         ASSIGN FILE *F* TO EST ORDINAL *N* WITH PARAMETERS P1,P2,
10096  M01S01422.274l797 +++|*         ...,PN.  OPTIONAL PARAMETERS ARE APPLICABLE TO MAGNETIC TAPE
10097  M01S01423.274l797 +++|*         ONLY.
10098  M01S01424.274l797 +++|
10099  M01S01425.274l797 +++|
10100  M01S01426.274l797 +++| ASSIGN   BSS    0           ENTRY
10101  M01S01427.274l797 +++|
10102  M01S01428.274l797 +++|*         VALIDATE COMMAND PARAMETERS.
10103  M01S01429.274l797 +++|
10104  M01S01430.274l797 +++|          SX7    -1          SET REQUEST TYPE FOR *ASSIGN*
10105  M01S01431.274l797 +++|          SA7    RT
10106  M01S01432.274l797 +++|          SA7    AL          ACCESS LEVEL PERMISSION
10107  M01S01433.274l797 +++|          SX5    ASSIGNC
10108  M01S01434.274l797 +++|          RJ     CCP         COMMAND PROCESSOR
10109  M01S01435.274l797 +++|          RJ     POP         PICK OUT PARAMETER
10110  M01S01436.274l797 +++|          NG     B5,ERR      IF NO EQUIPMENT TYPE OR EST ORDINAL
10111  M01S01437.274l797 +++|          SX1    X1-1R=
10112  M01S01438.274l797 +++|          ZR     X1,ERR      IF SEPARATOR IS *=*
10113  M01S01439.274l797 +++|          SA5    POPA        ASSEMBLE EST ORDINAL
10114  M01S01440.274l797 +++|          SB7    B0          ASSUME OCTAL VALUE
10115  M01S01441.274l797 +++|          RJ     DXB
10116  M01S01442.274l797 +++|          NZ     X4,ASG1     IF NON-NUMERIC DEVICE DESIGNATION
10117  M01S01443.274l797 +++|          SA3    /LWC/ESTP   CHECK FOR ORDINAL OUTSIDE EST
10118  M01S01444.274l797 +++|          LX3    24
10119  M01S01445.274l797 +++|          AX3    48
10120  M01S01446.274l797 +++|          IX3    X6-X3
10121  M01S01447.274l797 +++|          PL     X3,ERR      IF BEYOND LAST EST ORDINAL
10122  M01S01448.274l797 +++|          EQ     ASG2        SET EQUIPMENT IN FET
10123  M01S01449.274l797 +++|
10124  M01S01450.274l797 +++| ASG1     SA5    A5          CHECK EQUIPMENT TYPE
10125  M01S01451.274l797 +++|          MX2    12
10126  M01S01452.274l797 +++|          BX7    -X2*X5
10127  M01S01453.274l797 +++|          BX6    X5
10128  M01S01454.274l797 +++|          NZ     X7,ERR      IF MORE THAN 2 CHARACTERS
10129  M01S01455.274l797 +++| ASG2     SA6    ASGA        SAVE EQUIPMENT TYPE/NUMBER
10130  M01S01456.274l797 +++|          RJ     AFO         ASSEMBLE FILE NAME AND TAPE OPTIONS
10131  M01S01457.274l797 +++|          UNLOAD F,R         RETURN FILE
10132  M01S01458.274l797 +++|          SA4    ASGA
10133  M01S01459.274l797 +++|          MX2    12
10134  M01S01460.274l797 +++|          BX5    X2*X4       CHECK TYPE OF ASSIGN
10135  M01S01461.274l797 +++|          SX7    B0
10136  M01S01462.274l797 +++|          NZ     X5,ASG3     IF ASSIGN BY EQUIPMENT TYPE
10137  M01S01463.274l797 +++|          LX4    -12
10138  M01S01464.274l797 +++| ASG3     SA3    F+FDTY      SET EQUIPMENT TYPE / EST ORDINAL IN FET
10139  M01S01465.274l797 +++|          SA7    VA          CLEAR VSN ADDRESS
10140  M01S01466.274l797 +++|          BX6    -X2*X3
10141  M01S01467.274l797 +++|          BX6    X6+X4
10142  M01S01468.274l797 +++|          LX4    12
10143  M01S01469.274l797 +++|          SA6    A3
10144  M01S01470.274l797 +++|          ZR     X5,ASG4     IF ASSIGN BY EST ORDINAL
10145  M01S01471.274l797 +++|
10146  M01S01472.274l797 +++|*        ASSIGN BY EQUIPMENT TYPE.
10147  M01S01473.274l797 +++|
10148  M01S01474.274l797 +++|          LX5    -48
10149  M01S01475.274l797 +++|          BX7    X5
10150  M01S01476.274l797 +++|          RJ     CTE         CHECK FOR TAPE DEVICE TYPE
10151  M01S01477.274l797 +++|          ZR     X2,ASG6     IF NON-TAPE DEVICE SPECIFIED
10152  M01S01478.274l797 +++|          SX6    B0          SET ASSIGNMENT BY DEVICE TYPE
10153  M01S01479.274l797 +++|          EQ     ASG10       ASSIGN TAPE DEVICE
10154  M01S01480.274l797 +++|
10155  M01S01481.274l797 +++|*         ASSIGN BY EST ORDINAL.
10156  M01S01482.274l797 +++|
10157  M01S01483.274l797 +++| ASG4     RJ     GEE         GET EST ENTRY
10158  M01S01484.274l797 +++|          MX7    -12
10159  M01S01485.274l797 +++|          LX1    -12
10160  M01S01486.274l797 +++|          BX7    -X7*X1      DEVICE TYPE
10161  M01S01487.274l797 +++|          SX5    X7          SAVE DEVICE TYPE
10162  M01S01488.274l797 +++|          RJ     CTE         CHECK FOR TAPE EQUIPMENT
10163  M01S01489.274l797 +++|          NZ     X2,ASG5     IF TAPE DEVICE SPECIFIED
10164  M01S01490.274l797 +++|          SX4    X4+7000B    SET ASSIGN-BY-ORDINAL FLAG
10165  M01S01491.274l797 +++|          LX4    48
10166  M01S01492.274l797 +++|          IX6    X4+X3       RESET EST ORDINAL IN FET
10167  M01S01493.274l797 +++|          SA6    A3
10168  M01S01494.274l797 +++|          EQ     ASG6        ASSIGN NON-TAPE EQUIPMENT
10169  M01S01495.274l797 +++|
10170  M01S01496.274l797 +++| ASG5     SA1    ASGA        GET EST ORDINAL
10171  M01S01497.274l797 +++|          SX6    X1
10172  M01S01498.274l797 +++|          LX6    -12
10173  M01S01499.274l797 +++|          SA6    EQ          SET EST ORDINAL
10174  M01S01500.274l797 +++|          SX6    1           SET ASSIGN BY EST ORDINAL
10175  M01S01501.274l797 +++|          EQ     ASG10       ASSIGN TAPE DEVICE
10176  M01S01502.274l797 +++|
10177  M01S01503.274l797 +++|*         ASSIGN NON-TAPE DEVICE.
10178  M01S01504.274l797 +++|
10179  M01S01505.274l797 +++| ASG6     SX1    X5-2RTT
10180  M01S01506.274l797 +++|          SX7    X5+
10181  M01S01507.274l797 +++|          NZ     X1,ASG8     IF NOT *TT* DEVICE
10182  M01S01508.274l797 +++|          SA1    OT
10183  M01S01509.274l797 +++|          SX1    X1-IAOT
10184  M01S01510.274l797 +++|          ZR     X1,ASG9     IF INTERACTIVE JOB
10185  M01S01511.274l797 +++|          SB2    /PER/IEQ    * INCORRECT EQUIPMENT.*
10186  M01S01512.274l797 +++|          EQ     PER         PROCESS ERROR
10187  M01S01513.274l797 +++|
10188  M01S01514.274l797 +++| ASG8     SA2    SPVT        SET TO CHECK *ASSIGN* DEVICE TYPES
10189  M01S01515.274l797 +++|          RJ     CDT         CHECK DEVICE TYPE
10190  M01S01516.274l797 +++|          NZ     X2,ASG9     IF SPECIAL VALIDATION NOT REQUIRED
10191  M01S01517.274l797 +++|          RJ     CJV         CHECK JOB VALIDATION
10192  M01S01518.274l797 +++| ASG9     REQUEST F,UNIT     REQUEST NON-MAGNETIC TAPE EQUIPMENT
10193  M01S01519.274l797 +++|          EQ     END2        CHECK CHECKPOINT INDEX AND END
10194  M01S01520.274l797 +++|
10195  M01S01521.274l797 +++|*         ASSIGN TAPE DEVICE.
10196  M01S01522.274l797 +++|
10197  M01S01523.274l797 +++| ASG10    SA3    TT
10198  M01S01524.274l797 +++|          SA1    F+FTAP
10199  M01S01525.274l797 +++|          SA6    AA          SET ASSIGNMENT TYPE
10200  M01S01526.274l797 +++|          SX6    X7-/COMSMTX/DVAT
10201  M01S01527.274l797 +++|          SB2    /PER/IEQ    * INCORRECT EQUIPMENT.*
10202  M01S01528.274l797 +++|          ZR     X6,PER      IF *AT* DEVICE TYPE
10203  M01S01529.274l797 +++|          MX6    -2
10204  M01S01530.274l797 +++|          LX7    55
10205  M01S01531.274l797 +++|          LX6    55
10206  M01S01532.274l797 +++|          ZR     X3,ASG11    IF NO OPTIONAL DEVICE TYPE PARAMETER
10207  M01S01533.274l797 +++|          BX2    X1-X7
10208  M01S01534.274l797 +++|          BX2    -X6*X2
10209  M01S01535.274l797 +++|          ZR     X2,ASG12    IF SAME DEVICE TYPE
10210  M01S01536.274l797 +++|          SB2    /PER/TDC    * TAPE DEVICE TYPE CONFLICT*.
10211  M01S01537.274l797 +++|          EQ     PER         PROCESS ERROR
10212  M01S01538.274l797 +++|
10213  M01S01539.274l797 +++| ASG11    SX6    B1
10214  M01S01540.274l797 +++|          BX7    X1+X7       SET DEVICE TYPE
10215  M01S01541.274l797 +++|          SA6    A3          SET DEVICE TYPE SPECIFIED
10216  M01S01542.274l797 +++|          SA7    A1
10217  M01S01543.274l797 +++| ASG12    RJ     VCD         VERIFY COMMAND DEFAULTS
10218  M01S01544.274l797 +++|          EQ     VTR         VALIDATE TAPE REQUEST
10219  M01S01545.274l797 +++|
10220  M01S01546.274l797 +++|
10221  M01S01547.274l797 +++| ASGA     CON    0           ASSIGNED DEVICE TYPE OR EST ORDINAL
10222  M00S05293.resex   +++| LABEL    SPACE  4,10
Line S05294 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10223  M01S05294.274l797 ---|***       LABEL  (F,P1,P2,...,PN)
Line S01548 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10224  M01S01548.274l797 +++|***       LABEL,F,P1,P2,...,PN.
10225  M00S05295.resex   +++|*
Line S05296 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10226  M01S05296.274l797 ---|*                REQUEST AUTOMATIC ASSIGNMENT OF LABELED MAGNETIC TAPE
10227  M01S05297.274l797 ---|*                TO FILE *F* WITH PARAMETERS P1,P2,...PN.
Line S01549 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10228  M01S01549.274l797 +++|*         REQUEST AUTOMATIC ASSIGNMENT OF FILE *F* TO MAGNETIC TAPE OR
Line S01550 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
10229  M02S01550.ns2770  ---|*         POSITION MULTI-FILE SET ON TAPE FILE *F* WITH PARAMETERS
10230  M02S01551.ns2770  ---|*         P1,P2,...PN.
Line S00031 Modification History
M01 (Added by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
10231  M01S00031.ns2770  +++|*         VALIDATE OR WRITE LABELS ON ASSIGNED TAPE FILE *F* WITH
10232  M01S00032.ns2770  +++|*         PARAMETERS P1,P2,...PN.
10233  M00S05298.resex   +++|
10234  M00S05299.resex   +++|
Line S05300 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10235  M01S05300.ns22000 ---| LABEL    SX7    B0+         SET REQUEST TYPE FOR *LABEL*
Line S00424 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10236  M02S00424.274l797 ---| LABEL    SX7    B0          SET REQUEST TYPE FOR *LABEL*
Line S01552 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10237  M01S01552.274l797 +++| LABEL    BSS    0           ENTRY
10238  M01S01553.274l797 +++|          SX7    B0          SET REQUEST TYPE FOR *LABEL*
Line S00425 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10239  M01S00425.ns22000 +++|          SB1    1           B1=1
10240  M01S00426.ns22000 +++|          MX6    1
10241  M00S05301.resex   +++|          SA7    RT
Line S00427 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10242  M01S00427.ns22000 +++|          SA6    AL          ACCESS LEVEL PERMISSION
10243  M00S05302.resex   +++|          SX5    LABELC
Line S05303 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10244  M01S05303.v23l617 ---| LAB1     RJ     CCP         CONTROL CARD PROCESSOR
Line S00060 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10245  M02S00060.274l797 ---| LAB1     RJ     CCP         COMMAND PROCESSOR
Line S05304 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10246  M01S05304.274l797 ---| LAB2     RJ     POP         PICK OUT PARAMETER
10247  M01S05305.274l797 ---|          NZ     B5,ERR      IF ASSEMBLY ERROR
10248  M01S05306.274l797 ---|          SA3    POPA
10249  M01S05307.274l797 ---|          ZR     X3,ERR      IF NO FILE NAME
10250  M01S05308.274l797 ---|          MX0    -18
10251  M01S05309.274l797 ---|          BX5    -X0*X3
10252  M01S05310.274l797 ---|          SX7    B1          COMPLETE FET
10253  M01S05311.274l797 ---|          BX6    X7+X3
10254  M01S05312.274l797 ---|          NZ     X5,ERR      IF FILE NAME TOO LONG
10255  M01S05313.274l797 ---|          SA6    F           ENTER FILE NAME
10256  M01S05314.274l797 ---|          SA6    VF          ENTER FILE NAME IN VSN FET
10257  M01S05315.274l797 ---|          RJ     AMO         ASSEMBLE MT OPTIONS
Line S00428 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10258  M02S00428.274l797 ---|          RJ     GAL         GET ACCESS LEVEL
Line S05316 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10259  M01S05316.274l797 ---|          SA2    RT          DETERMINE PROCESSING
Line S01554 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10260  M01S01554.274l797 +++|          RJ     CCP         COMMAND PROCESSOR
10261  M01S01555.274l797 +++|          RJ     AFO         ASSEMBLE FILE NAME AND TAPE OPTIONS
10262  M00S05317.resex   +++|          SA1    FS
Line S05318 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10263  M01S05318.274l797 ---|          NG     X2,LAB9     IF *ASSIGN*
10264  M01S05319.274l797 ---|          ZR     X1,LAB3     IF NORMAL PROCESSING
10265  M01S05320.274l797 ---|          IX5    X1+X2
10266  M01S05321.274l797 ---|          PL     X5,END2     IF NOT LABEL PROCESSING
Line S05322 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10267  M02S05322.274l797 ---|          RJ     VDD         VERIFY CONTROL CARD DEPENDENT DEFAULTS
Line S00061 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10268  M02S00061.274l797 ---|          RJ     VDD         VERIFY COMMAND DEPENDENT DEFAULTS
Line S05323 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10269  M01S05323.274l797 ---|          RJ     TBD         CHECK TAPE DESCRIPTORS
Line S00306 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10270  M02S00306.274l797 ---|          RJ     MFA         MULTI-FILE ASSIGNMENT
Line S01556 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10271  M01S01556.274l797 +++|          ZR     X1,LRC      IF *TE* FILE OR FILE NOT FOUND
10272  M01S01557.274l797 +++|
Line S01558 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
10273  M02S01558.ns2770  ---|*         PROCESS MULTI-FILE POSITION *LABEL* COMMAND.
Line S00033 Modification History
M01 (Added by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
10274  M01S00033.ns2770  +++|*         PROCESS *LABEL* COMMAND ON ASSIGNED TAPE FILE.
Line S01559 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10275  M01S01559.274l797 +++|
10276  M01S01560.274l797 +++|          RJ     VCD         VERIFY COMMAND DEFAULTS
10277  M01S01561.274l797 +++|          SA1    F+FTAP
10278  M01S01562.274l797 +++|          RJ     CTI         CONVERT TAPE DESCRIPTORS
10279  M01S01563.274l797 +++|          RJ     VTD         VERIFY TAPE DESCRIPTORS
10280  M01S01564.274l797 +++|          NZ     B2,PER      IF ERROR IN TAPE DESCRIPTORS
10281  M01S01565.274l797 +++|          BX6    X1          UPDATE TAPE DESCRIPTORS
10282  M01S01566.274l797 +++|          SA6    A1
10283  M01S01567.274l797 +++|          RJ     TBD         BUILD TAPE BLOCK DEFINITION
10284  M01S01568.274l797 +++|          RJ     MFA         CHECK *TMS* MULTI-FILE ASSIGNMENT
10285  M00S05324.resex   +++|          RJ     OPN         OPEN FILE
10286  M00S05325.resex   +++|          EQ     END2        CHECK CHECKPOINT INDEX AND END
Line S01569 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10287  M01S01569.274l797 +++| REQUEST  SPACE  4,10
10288  M01S01570.274l797 +++|***       REQUEST,F,P1,P2,...,PN.
10289  M01S01571.274l797 +++|*
10290  M01S01572.274l797 +++|*                REQUEST AUTOMATIC ASSIGNMENT OF FILE *F* TO MAGNETIC
10291  M01S01573.274l797 +++|*                TAPE WITH PARAMETERS P1,P2,...,PN.  THE TAPE MAY BE
10292  M01S01574.274l797 +++|*                LABELED, UNLABELED, OR A MULTI-FILE SET.
10293  M00S05326.resex   +++|
Line S05327 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10294  M01S05327.274l797 ---| LAB3     RJ     MFE         MAKE RESOURCE FILE ENTRIES
10295  M01S05328.274l797 ---|          RJ     SVI         SET VSN INDEX
Line S00307 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10296  M02S00307.274l797 ---|          RJ     FRA         FIRST REEL ASSIGNMENT
Line S05329 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10297  M01S05329.274l797 ---|          NZ     X5,LAB5     IF NO VSN FOUND
10298  M01S05330.274l797 ---| LAB4     RJ     CJV         CHECK JOB VALIDATION
Line S05331 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10299  M02S05331.274l797 ---|          RJ     VDD         VERIFY CONTROL CARD DEPENDENT DEFAULTS
Line S00062 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10300  M02S00062.274l797 ---|          RJ     VDD         VERIFY COMMAND DEPENDENT DEFAULTS
Line S05332 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10301  M01S05332.274l797 ---|          RJ     TBD         CHECK TAPE DESCRIPTORS
10302  M01S05333.274l797 ---|          EQ     RMT         REQUEST MAGNETIC TAPE
10303  M00S05334.resex   +++|
Line S05335 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10304  M01S05335.274l797 ---|*         PROCESS *LABEL* OR *REQUEST* WHEN NO VSN IS SPECIFIED.
10305  M01S05336.274l797 ---|
10306  M01S05337.274l797 ---| LAB5     SX6    B0+         SET OPERATOR ASSIGNMENT FLAG
10307  M01S05338.274l797 ---|          SA6    AA
10308  M01S05339.274l797 ---|          RJ     VDD         VERIFY DEPENDENT DEFAULTS
10309  M01S05340.274l797 ---|          SA1    MN          CHECK MT/NT DEVICE TYPE SPECIFIED
10310  M01S05341.274l797 ---|          ZR     X1,LAB7     IF MT/NT OPTION NOT USED
10311  M01S05342.274l797 ---| LAB6     RJ     CJV         CHECK JOB VALIDATION
10312  M01S05343.274l797 ---|          RJ     TBD         CHECK TAPE DESCRIPTORS
Line S05344 Modification History
M01 (Removed by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10313  M02S05344.274l797 ---| LAB7     SA5    F+FDTY      CHECK DEVICE TYPE DEFINED
10314  M02S05345.274l797 ---|          LX5    12
10315  M02S05346.274l797 ---|          MX0    -11
10316  M02S05347.274l797 ---|          BX6    -X0*X5
10317  M02S05348.274l797 ---|          SA6    ODTD        SAVE ORIGINAL DEVICE TYPE DEFINITION
10318  M02S05349.274l797 ---|          SX4    B0
Line S00041 Modification History
M01 (Added by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10319  M02S00041.274l797 ---|          EQ     RMT         REQUEST MAGNETIC TAPE
10320  M02S00042.274l797 ---|
10321  M02S00043.274l797 ---| LAB7     SX4    B0
Line S05350 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10322  M01S05350.274l797 ---|          RJ     ROA         REQUEST OPERATOR ASSIGNMENT
Line S05351 Modification History
M01 (Removed by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10323  M02S05351.274l797 ---|          SA2    ODTD        GET ORIGINAL DEVICE TYPE SPECIFICATION
Line S05352 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10324  M01S05352.274l797 ---|          MX7    1
10325  M01S05353.274l797 ---|          SX1    X4-2RNT
10326  M01S05354.274l797 ---|          ZR     X1,LAB8     IF NT EQUIPMENT
10327  M01S05355.274l797 ---|          SX7    X4-2RMT
10328  M01S05356.274l797 ---|          NZ     X7,END1     IF NOT TAPE EQUIPMENT
Line S05357 Modification History
M01 (Removed by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10329  M02S05357.274l797 ---| LAB8     NZ     X2,RMT      IF TAPE EQUIPMENT ORIGINALLY REQUESTED
10330  M02S05358.274l797 ---|          SA1    F+FTAP      SAVE ORIGINAL TAPE DESCRIPTORS
Line S00044 Modification History
M01 (Added by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10331  M02S00044.274l797 ---| LAB8     SA1    F+FTAP      SAVE ORIGINAL TAPE DESCRIPTORS
Line S05359 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10332  M01S05359.274l797 ---|          BX6    X1
10333  M01S05360.274l797 ---|          SA7    AE          SAVE ASSIGNED EQUIPMENT TRACK TYPE
Line S05361 Modification History
M01 (Removed by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10334  M02S05361.274l797 ---|          SA6    A2
Line S00045 Modification History
M01 (Added by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10335  M02S00045.274l797 ---|          SA6    ODTD
Line S05362 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10336  M01S05362.274l797 ---|          RJ     CJV         CHECK JOB VALIDATION
10337  M01S05363.274l797 ---|          RJ     TBD         CHECK ORIGINAL TAPE DESCRIPTORS
10338  M01S05364.274l797 ---|          SA1    ODTD        CHECK TRACK BIT AND ASSIGNED EQUIPMENT
10339  M01S05365.274l797 ---|          SA2    AE
Line S01575 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10340  M01S01575.274l797 +++| REQUEST  BSS    0           ENTRY
10341  M01S01576.274l797 +++|          SX7    1           SET REQUEST TYPE
10342  M01S01577.274l797 +++|          SX5    REQUESC
10343  M01S01578.274l797 +++|          SA7    RT
10344  M00S05366.resex   +++|          MX6    1
Line S05367 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10345  M01S05367.274l797 ---|          LX1    59-56
10346  M01S05368.274l797 ---|          BX3    X6*X1
10347  M01S05369.274l797 ---|          BX2    X3-X2
10348  M01S05370.274l797 ---|          ZR     X2,RMT      IF NO TRACK TYPE CONFLICT
Line S05371 Modification History
M01 (Removed by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10349  M02S05371.274l797 ---|          NZ     X3,LAB7     IF 9-TRACK REQUIRED, RETRY ASSIGNMENT
Line S00046 Modification History
M01 (Added by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10350  M02S00046.274l797 ---|          NZ     X3,LAB8.1   IF 9-TRACK REQUIRED
Line S05372 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10351  M01S05372.274l797 ---|          SA6    TBDA        REQUEST *TBD* RETURN ON TRACK CONFLICT
10352  M01S05373.274l797 ---|          SA3    F+FTAP      SAVE 7-TRACK TAPE DESCRIPTORS
10353  M01S05374.274l797 ---|          BX6    X6+X1       SET 9-TRACK BIT
10354  M01S05375.274l797 ---|          LX6    56-59
10355  M01S05376.274l797 ---|          BX7    X3
10356  M01S05377.274l797 ---|          SA6    A3
10357  M01S05378.274l797 ---|          SA7    A1
10358  M01S05379.274l797 ---|          RJ     TBD         CHECK ASSIGNED EQUIPMENT TAPE DESCRIPTORS
10359  M01S05380.274l797 ---|          ZR     B2,RMT      IF NO TRACK CONFLICT ON ASSIGNED EQUIPMENT
10360  M01S05381.274l797 ---|          SA1    ODTD        RESET 7-TRACK DESCRIPTORS
10361  M01S05382.274l797 ---|          BX6    X1
10362  M01S05383.274l797 ---|          SA6    F+FTAP
Line S05384 Modification History
M01 (Removed by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10363  M02S05384.274l797 ---|          EQ     LAB7        RETRY ASSIGNMENT FOR CORRECT TRACK TYPE
Line S00047 Modification History
M01 (Added by) resex4
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10364  M02S00047.274l797 ---|          RJ     TBD
10365  M02S00048.274l797 ---| LAB8.1   SX7    B0+         REJECT OPERATOR ASSIGNED EQUIPMENT
10366  M02S00049.274l797 ---|          SA7    EQ
10367  M02S00050.274l797 ---|          EQ     RMT         REQUEST MAGNETIC TAPE
Line S05385 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10368  M01S05385.274l797 ---|
10369  M01S05386.274l797 ---|*         PROCESS *ASSIGN*.
10370  M01S05387.274l797 ---|
10371  M01S05388.274l797 ---| LAB9     UNLOAD F,R         RETURN FILE
Line S05389 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10372  M02S05389.274l797 ---|          SA1    AE
Line S00591 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10373  M02S00591.274l797 ---|          SA4    AE
Line S05390 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10374  M01S05390.274l797 ---|          MX2    12
Line S05391 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10375  M02S05391.274l797 ---|          BX5    X2*X1       CHECK TYPE OF *ASSIGN*
Line S00592 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10376  M02S00592.274l797 ---|          BX5    X2*X4       CHECK TYPE OF *ASSIGN*
Line S05392 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10377  M01S05392.274l797 ---|          SX7    B0
10378  M01S05393.274l797 ---|          NZ     X5,LAB10    IF ASSIGN BY EQUIPMENT TYPE
Line S05394 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10379  M02S05394.274l797 ---|          LX1    -12
Line S00593 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10380  M02S00593.274l797 ---|          LX4    -12
Line S05395 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10381  M02S05395.274l797 ---| LAB10    SA3    F+FDTY      SET EQUIPMENT TYPE/NUMBER IN FET
Line S00429 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10382  M02S00429.274l797 ---| LAB10    SA3    F+FDTY      SET EQUIPMENT TYPE / EST ORDINAL IN FET
Line S05396 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10383  M01S05396.274l797 ---|          SA7    VA          CLEAR VSN ADDRESS
10384  M01S05397.274l797 ---|          BX6    -X2*X3
Line S05398 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10385  M02S05398.274l797 ---|          BX6    X6+X1
10386  M02S05399.274l797 ---|          LX5    -48
Line S00594 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10387  M02S00594.274l797 ---|          BX6    X6+X4
10388  M02S00595.274l797 ---|          LX4    12
Line S05400 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10389  M01S05400.274l797 ---|          SA6    A3
10390  M01S05401.274l797 ---|          NZ     X5,LAB17    IF ASSIGN BY EQUIPMENT TYPE
Line S05402 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10391  M02S05402.274l797 ---|          RJ     CET         COPY EST
10392  M02S05403.274l797 ---|          SA4    AE
10393  M02S05404.274l797 ---|          SX0    X4-ESTL
10394  M02S05405.274l797 ---|          MX2    -11
10395  M02S05406.274l797 ---|          PL     X0,ERR      IF EQUIPMENT OUT OF EST
10396  M02S05407.274l797 ---|          SX7    B0-B1
10397  M02S05408.274l797 ---|          SA1    X4+EST      READ EST ENTRY
Line S00596 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10398  M02S00596.274l797 ---|          RJ     GEE         GET EST ENTRY
10399  M02S00597.274l797 ---|          SX7    -B1
10400  M02S00598.274l797 ---|          MX2    -11
Line S05409 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10401  M01S05409.274l797 ---|          LX1    -12
10402  M01S05410.274l797 ---|          BX5    -X2*X1      DEVICE TYPE
10403  M01S05411.274l797 ---|          SX6    X5-2RMT
10404  M01S05412.274l797 ---|          ZR     X6,LAB15    IF *MT*
10405  M01S05413.274l797 ---|          SX7    B1
Line S00430 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10406  M02S00430.274l797 ---|          SX4    X4+7000B    SET ASSIGN-BY-ORDINAL FLAG
Line S05414 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10407  M01S05414.274l797 ---|          LX4    48
10408  M01S05415.274l797 ---|          SX6    X5-2RNT
10409  M01S05416.274l797 ---|          ZR     X6,LAB15    IF *NT*
Line S05417 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10410  M02S05417.274l797 ---|          IX6    X4+X3       RESET EQUIPMENT NUMBER IN FET
Line S00431 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10411  M02S00431.274l797 ---|          IX6    X4+X3       RESET EST ORDINAL IN FET
Line S05418 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10412  M01S05418.274l797 ---|          SA6    A3
10413  M01S05419.274l797 ---| LAB11    SA3    OT          CHECK SPECIAL VALIDATION FOR ORIGIN TYPES
Line S05420 Modification History
M01 (Removed by) ns2253
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10414  M02S05420.274l797 ---|          SA1    LABA-1
Line S00001 Modification History
M01 (Added by) ns2253
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10415  M02S00001.274l797 ---|          SA1    SPVT-1
Line S05421 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10416  M01S05421.274l797 ---| LAB12    SA1    A1+B1       READ SPECIAL VALIDATION TABLE
10417  M01S05422.274l797 ---|          ZR     X1,LAB13    IF END OF TABLE
10418  M01S05423.274l797 ---|          BX6    X5-X1
10419  M01S05424.274l797 ---|          MX2    -12
10420  M01S05425.274l797 ---|          BX6    -X2*X6
10421  M01S05426.274l797 ---|          NZ     X6,LAB12    IF NO MATCH
10422  M01S05427.274l797 ---|          AX1    12
10423  M01S05428.274l797 ---|          NG     X1,LAB14    IF NO SPECIAL VALIDATION
10424  M01S05429.274l797 ---|          BX6    X1-X3
10425  M01S05430.274l797 ---|          ZR     X6,LAB14    IF JOB ORIGIN MATCHES
Line S05431 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10426  M02S05431.274l797 ---|          SB2    /PER/IEQ    * ILLEGAL EQUIPMENT.*
Line S00063 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10427  M02S00063.274l797 ---|          SB2    /PER/IEQ    * INCORRECT EQUIPMENT.*
Line S05432 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10428  M01S05432.274l797 ---|          EQ     PER         PROCESS ERROR
10429  M01S05433.274l797 ---|
10430  M01S05434.274l797 ---| LAB13    RJ     CJV         CHECK JOB VALIDATION
10431  M01S05435.274l797 ---| LAB14    REQUEST F,UNIT     REQUEST NON-MAGNETIC TAPE EQUIPMENT
10432  M01S05436.274l797 ---|          EQ     END2        CHECK CHECKPOINT INDEX AND END
10433  M01S05437.274l797 ---|
Line S05438 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10434  M02S05438.274l797 ---| LAB15    SA1    AE          SET EQUIPMENT NUMBER
Line S00432 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10435  M02S00432.274l797 ---| LAB15    SA1    AE          SET EST ORDINAL
Line S05439 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10436  M01S05439.274l797 ---|          SX6    X1
Line S05440 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10437  M02S05440.274l797 ---|          LX6    -6          POSITION EQUIPMENT NUMBER
Line S00599 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns22000
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10438  M03S00599.274l797 ---|          LX6    -12         POSITION EQUIPMENT NUMBER
Line S00433 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10439  M02S00433.274l797 ---|          LX6    -12         POSITION EST ORDINAL
Line S05441 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10440  M01S05441.274l797 ---|          SA6    EQ
10441  M01S05442.274l797 ---|          SA2    MN          CHECK MT/NT CONFLICT
10442  M01S05443.274l797 ---|          SX6    B1
10443  M01S05444.274l797 ---|          IX1    X2-X7
10444  M01S05445.274l797 ---|          SA6    AA          SET UNIT ASSIGN FLAG
10445  M01S05446.274l797 ---|          ZR     X2,LAB16    IF MT/NT OPTION NOT USED
10446  M01S05447.274l797 ---|          ZR     X1,LAB4     IF NO CONFLICT
10447  M01S05448.274l797 ---|          EQ     LAB19       SET *MT/NT CONFLICT* ERROR
10448  M01S05449.274l797 ---|
10449  M01S05450.274l797 ---| LAB16    SA1    F+FTAP      SET TRACK TYPE TO THAT OF UNIT
10450  M01S05451.274l797 ---|          SA7    A2          SET MT/NT DEFAULTED
10451  M01S05452.274l797 ---|          SX3    B1
10452  M01S05453.274l797 ---|          BX7    X3*X7
10453  M01S05454.274l797 ---|          LX3    56-0
10454  M01S05455.274l797 ---|          BX6    -X3*X1
10455  M01S05456.274l797 ---|          LX7    56-0
10456  M01S05457.274l797 ---|          BX6    X6+X7
10457  M01S05458.274l797 ---|          SA6    A1
10458  M01S05459.274l797 ---|          EQ     LAB4        REQUEST MAGNETIC TAPE
10459  M01S05460.274l797 ---|
Line S05461 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10460  M02S05461.274l797 ---| LAB17    SX3    X5-2RMT
Line S00600 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10461  M02S00600.274l797 ---| LAB17    LX5    -48
10462  M02S00601.274l797 ---|          SX3    X5-2RMT
10463  M02S00602.274l797 ---|          SX7    -B1
Line S05462 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10464  M01S05462.274l797 ---|          SX6    X5-2RNT
Line S05463 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10465  M02S05463.274l797 ---|          SX7    -B1
Line S05464 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10466  M01S05464.274l797 ---|          ZR     X3,LAB18    IF *MT*
Line S05465 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10467  M02S05465.274l797 ---|          SX7    B1
Line S00603 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10468  M02S00603.274l797 ---|          SX7    B1+
Line S05466 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10469  M01S05466.274l797 ---|          NZ     X6,LAB11    IF NOT *NT*
10470  M01S05467.274l797 ---| LAB18    SA2    MN          CHECK FOR MT/NT CONFLICT
10471  M01S05468.274l797 ---|          ZR     X2,LAB20    IF MT/NT OPTION NOT USED
10472  M01S05469.274l797 ---|          IX3    X2-X7
10473  M01S05470.274l797 ---|          ZR     X3,LAB5     IF NO MT/NT CONFLICT
10474  M01S05471.274l797 ---| LAB19    SB2    /PER/MNC    * MT/NT CONFLICT.*
10475  M01S05472.274l797 ---|          EQ     PER         PROCESS ERROR
10476  M01S05473.274l797 ---|
10477  M01S05474.274l797 ---| LAB20    SA1    F+FTAP      SET TRACK TYPE TO THAT OF UNIT
10478  M01S05475.274l797 ---|          SA7    A2          SET MT/NT DEFAULTED
10479  M01S05476.274l797 ---|          SX3    B1
10480  M01S05477.274l797 ---|          BX7    X3*X7
10481  M01S05478.274l797 ---|          LX3    56-0
10482  M01S05479.274l797 ---|          BX6    -X3*X1
10483  M01S05480.274l797 ---|          LX7    56-0
10484  M01S05481.274l797 ---|          BX6    X6+X7
10485  M01S05482.274l797 ---|          SA6    A1
10486  M01S05483.274l797 ---|          EQ     LAB5        REQUEST OPERATOR ASSIGNMENT
Line S00308 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10487  M02S00308.274l797 ---|
10488  M02S00309.274l797 ---|
10489  M02S00310.274l797 ---| LABA     BSS    1           VSN FOUND FLAG WORD
Line S05484 Modification History
M01 (Removed by) ns2253
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10490  M02S05484.274l797 ---|
10491  M02S05485.274l797 ---|
10492  M02S05486.274l797 ---|*         SPECIAL VALIDATION TABLE.
10493  M02S05487.274l797 ---|*T        1/ N,35/ 0,12/ OT,12/ EQ
Figure

01112232429 EQ OT 0305859 0 N

10494  M02S05488.274l797 ---|*         N      NO VALIDATION IF SET
10495  M02S05489.274l797 ---|*         OT     JOB ORIGIN TYPE
10496  M02S05490.274l797 ---|*         EQ     EQUIPMENT MNEMONIC
10497  M02S05491.274l797 ---|
10498  M02S05492.274l797 ---|
10499  M02S05493.274l797 ---| LABA     BSS    0
10500  M02S05494.274l797 ---|          VFD    1/1,35/0,12/0,12/2HMS     MS
10501  M02S05495.274l797 ---|          VFD    1/1,35/0,12/0,12/2HNE     NE
10502  M02S05496.274l797 ---|          VFD    1/0,35/0,12/TXOT,12/2HTT  TT
10503  M02S05497.274l797 ---|          CON    0           END OF TABLE
Line S05498 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10504  M02S05498.274l797 ---|          TITLE  RESOURC STATEMENT PRESET.
Line S00064 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10505  M02S00064.274l797 ---|          TITLE  RESOURC COMMAND PRESET.
Line S01579 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10506  M01S01579.274l797 +++|          SA6    AL          ACCESS LEVEL PERMISSION
10507  M01S01580.274l797 +++|          RJ     CCP         COMMAND PROCESSOR
10508  M01S01581.274l797 +++|          RJ     AFO         ASSEMBLE FILE NAME AND TAPE OPTIONS
10509  M01S01582.274l797 +++|          SA1    FS
10510  M01S01583.274l797 +++|          NZ     X1,END2     IF EXISTING FILE NOT ASSIGNED TO *TE*
10511  M01S01584.274l797 +++|          EQ     LRC         PROCESS *REQUEST* COMMAND
10512  M00S05499.resex   +++| RESOURC  SPACE  4,10
Line S05500 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10513  M01S05500.ns22000 ---|***       RESOURC (P1=N1,P2=N2,...,PN=NN)
Line S00434 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10514  M02S00434.274l797 ---|***       RESOURC(RT1=N1/AL,RT2=N2/AL,.....RTN=NN/AL)
Line S01585 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10515  M01S01585.274l797 +++|***       RESOURC,RT1=N1/AL,RT2=N2/AL,.....RTN=NN/AL.
10516  M00S05501.resex   +++|*
Line S05502 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10517  M01S05502.274l797 ---|*                SPECIFY MAXIMUM SIMULTANEOUS USAGE OF MAGNETIC TAPE
10518  M01S05503.274l797 ---|*                AND REMOVABLE DISK PACK RESOURCES.
Line S01586 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10519  M01S01586.274l797 +++|*         SPECIFY MAXIMUM SIMULTANEOUS USAGE OF MAGNETIC TAPE AND
10520  M01S01587.274l797 +++|*         REMOVABLE DISK PACK RESOURCES.
10521  M01S01588.274l797 +++|*
Line S00435 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10522  M01S00435.ns22000 +++|*                RT    RESOURCE TYPE.
10523  M01S00436.ns22000 +++|*                N     NUMBER OF UNITS DEMANDED.
10524  M01S00437.ns22000 +++|*                AL    ACCESS LEVEL, FOR TAPE DRIVES ONLY.
10525  M01S00438.ns22000 +++|*                      ( SEE *COMSMLS* FOR MICRO DEFINITION.)
10526  M00S05504.resex   +++|
10527  M00S05505.resex   +++|
Line S05506 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10528  M01S05506.274l797 ---| RESOURC  SX5    RESOURS
Line S01589 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10529  M01S01589.274l797 +++| RESOURC  BSS    0           ENTRY
10530  M01S01590.274l797 +++|          SX5    RESOURS
Line S05507 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10531  M01S05507.v23l617 ---|          RJ     CCP         CONTROL CARD PROCESSOR
Line S00065 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10532  M01S00065.v23l617 +++|          RJ     CCP         COMMAND PROCESSOR
10533  M00S05508.resex   +++| RES1     RJ     BRE         BUILD RESOURCE ENVIRONMENT
10534  M00S05509.resex   +++|          PL     X0,RES2     IF SUBSYSTEM NOT MISSING
10535  M00S05510.resex   +++|          RJ     PMM         PROCESS *MAGNET* MISSING
10536  M00S05511.resex   +++|          EQ     RES1        RETRY BUILDING ENVIRONMENT
10537  M00S05512.resex   +++|
10538  M00S05513.resex   +++| RES2     RJ     IDE         INITIALIZE DEMAND ENTRY
10539  M00S05514.resex   +++|          RJ     RDF         READ DEMAND FILE
10540  M00S05515.resex   +++|          SA1    /CPA/RFCW
10541  M00S05516.resex   +++|          SX1    X1+
10542  M00S05517.resex   +++|          ZR     X1,RES4     IF NO DEMAND FILE ENTRY
Line S01591 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10543  M01S01591.274l797 +++|
10544  M01S01592.274l797 +++|*         CHECK FOR LOST TAPE ASSIGNMENT AND COUNT ASSIGNED UNITS.
10545  M01S01593.274l797 +++|
10546  M00S05518.resex   +++|          MOVE   RDEL,DBUF,RESB  COPY DEMAND FILE ENTRY
Line S05519 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10547  M01S05519.282l826 ---|          BX6    X6-X6       CLEAR PREVIEW DATA
10548  M01S05520.282l826 ---|          SA6    RESB+RQPD
Line S00796 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10549  M01S00796.282l826 +++|          BX6    X6-X6       CLEAR MOUNT REQUEST
10550  M01S00797.282l826 +++|          SA6    RESB+RREQ
10551  M00S05521.resex   +++|          SA1    RESB+RVAL   CHECK FOR LOST TAPES
10552  M00S05522.resex   +++|          SX4    RESB        DEMAND FILE ENTRY ADDRESS
10553  M00S05523.resex   +++|          LX1    59-53
10554  M00S05524.resex   +++|          PL     X1,RES3     IF NO TAPE ASSIGNMENT LOST
10555  M00S05525.resex   +++|          SB5    B0          GET MAGNETIC TAPE ASSIGNED COUNT
10556  M00S05526.resex   +++|          RJ     CTA
10557  M00S05527.resex   +++|          SB2    /PER/PTL    * PRIOR TAPE ASSIGNMENT LOST.*
10558  M00S05528.resex   +++|          NZ     B3,PER      IF LOST TAPES NOT RETURNED
10559  M00S05529.resex   +++|          MX2    1
10560  M00S05530.resex   +++|          SA1    RESB+RVAL   CLEAR TAPE ASSIGNMENT LOST FLAG
10561  M00S05531.resex   +++|          LX2    53-59
10562  M00S05532.resex   +++|          BX6    -X2*X1
10563  M00S05533.resex   +++|          SA6    A1
10564  M00S05534.resex   +++| RES3     SA3    JEEO        GET JOB EJT ORDINAL
10565  M00S05535.resex   +++|          RJ     CAU         COUNT ASSIGNED UNITS
Line S01594 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10566  M01S01594.274l797 +++|
10567  M01S01595.274l797 +++|*         PROCESS COMMAND PARAMETERS.
10568  M01S01596.274l797 +++|
10569  M00S05536.resex   +++| RES4     SA5    AP          RESET ASSEMBLY POINTERS
10570  M00S05537.resex   +++|          SB6    X5+
Line S05538 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10571  M01S05538.v23l617 ---| RES5     ZR     B6,RES7     IF END OF CARD
Line S00066 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10572  M02S00066.274l797 ---| RES5     ZR     B6,RES7     IF END OF COMMAND
Line S01597 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10573  M01S01597.274l797 +++| RES5     ZR     B6,RES8     IF END OF COMMAND
10574  M00S05539.resex   +++|          RJ     POP         CHECK TYPE OF RESOURCE
Line S05540 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10575  M01S05540.v23l617 ---|          NG     B5,ERR      IF CONTROL CARD ERROR
Line S00067 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10576  M01S00067.v23l617 +++|          NG     B5,ERR      IF COMMAND ERROR
10577  M00S05541.resex   +++|          SX1    X1-1R=
10578  M00S05542.resex   +++|          NZ     X1,ERR      IF SEPARATOR IS NOT *=*
10579  M00S05543.resex   +++|          SA1    POPA
10580  M00S05544.resex   +++| RES6     RJ     GRI         GET RESOURCE DEMAND ENTRY INDEX
Line S05545 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10581  M01S05545.274l797 ---|          ZR     B2,RES8     IF INDEX NOT FOUND
10582  M01S05546.274l797 ---|          SA6    RI          SAVE RESOURCE INDEX AND UNIT COUNT
Line S01598 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10583  M01S01598.274l797 +++|          NZ     B2,RES7     IF INDEX FOUND
10584  M01S01599.274l797 +++|          SA1    POPA        CHECK FOR *LO*, *HI*, *HY* IDENTIFIERS
10585  M01S01600.274l797 +++|          BX7    X1
10586  M01S01601.274l797 +++|          LX7    12
10587  M01S01602.274l797 +++|          SB4    TRSLL3
10588  M01S01603.274l797 +++|          RJ     GRL
10589  M01S01604.274l797 +++|          SX1    2RMT
10590  M01S01605.274l797 +++|          SB4    B4-TRMT
10591  M01S01606.274l797 +++|          LX1    -12
10592  M01S01607.274l797 +++|          ZR     B4,RES6     IF RESOURCE IDENTIFIER FOUND
10593  M01S01608.274l797 +++|          SB2    /PER/IRT    * INCORRECT RESOURCE TYPE.*
10594  M01S01609.274l797 +++|          EQ     PER         PROCESS ERROR
10595  M01S01610.274l797 +++|
10596  M01S01611.274l797 +++| RES7     SA6    RI          SAVE RESOURCE INDEX AND UNIT COUNT
10597  M00S05547.resex   +++|          RJ     POP         GET NUMBER OF RESOURCE UNITS
Line S05548 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10598  M01S05548.v23l617 ---|          NG     B5,ERR      IF CONTROL CARD ERROR
Line S00068 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10599  M01S00068.v23l617 +++|          NG     B5,ERR      IF COMMAND ERROR
Line S00439 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10600  M01S00439.ns22000 +++|          SX7    X1
10601  M01S00440.ns22000 +++|          SA7    SC          SEPARATOR CHARACTER
10602  M00S05549.resex   +++|          SX1    X1-1R=
10603  M00S05550.resex   +++|          ZR     X1,ERR      IF SEPARATOR IS *=*
10604  M00S05551.resex   +++|          SA5    POPA
10605  M00S05552.resex   +++|          SB7    B1
10606  M00S05553.resex   +++|          RJ     DXB         CONVERT NUMBER
10607  M00S05554.resex   +++|          NZ     X4,ERR      IF ASSEMBLY ERRORS
Line S00441 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10608  M01S00441.ns22000 +++|          SA6    RESA        SAVE CONVERTED UNIT COUNT
10609  M01S00442.ns22000 +++|          RJ     PAL         PROCESS ACCESS LEVEL
10610  M01S00443.ns22000 +++|          SA5    RESA        CONVERTED UNIT COUNT
10611  M01S00444.ns22000 +++|          BX6    X5
10612  M00S05555.resex   +++|          MX0    54
10613  M00S05556.resex   +++|          BX1    X0*X6
Line S05557 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10614  M01S05557.v23l617 ---|          SB2    /PER/IRC    * ILLEGAL RESOURCE COUNT.*
Line S00069 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10615  M01S00069.v23l617 +++|          SB2    /PER/IRC    * INCORRECT RESOURCE COUNT.*
10616  M00S05558.resex   +++|          NZ     X1,PER      IF DEMAND TOO LARGE
10617  M00S05559.resex   +++|          SA2    RI          CALCULATE RESOURCE BYTE POSITION
10618  M00S05560.resex   +++|          RJ     CBP
10619  M00S05561.resex   +++|          SA3    RESB+B2     ENTER NEW DEMAND COUNT
10620  M00S05562.resex   +++|          AX2    X3,B4       POSITION OLD COUNT
10621  M00S05563.resex   +++|          BX6    -X0*X6      NEW DEMAND COUNT
10622  M00S05564.resex   +++|          BX4    -X0*X2      OLD DEMAND COUNT
10623  M00S05565.resex   +++|          SA1    RESB+RVAL   ADJUST TOTAL DEMAND COUNT
10624  M00S05566.resex   +++|          IX5    X6-X4       INCREMENT
10625  M00S05567.resex   +++|          IX7    X1+X5
10626  M00S05568.resex   +++|          LX5    B4          ADJUST INDIVIDUAL DEMAND COUNT
10627  M00S05569.resex   +++|          SA7    A1
10628  M00S05570.resex   +++|          IX7    X3+X5
10629  M00S05571.resex   +++|          LX2    -6
10630  M00S05572.resex   +++|          SA7    A3
10631  M00S05573.resex   +++|          BX2    -X0*X2      ASSIGNED COUNT
10632  M00S05574.resex   +++|          IX5    X6-X2
10633  M00S05575.resex   +++|          PL     X5,RES5     IF ASSIGNEDS .LE. NEW DEMAND
10634  M00S05576.resex   +++|          SB2    /PER/RDE    *RESOURCE DEMAND ERROR.*
10635  M00S05577.resex   +++|          EQ     PER         PROCESS ERROR
10636  M00S05578.resex   +++|
Line S01612 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10637  M01S01612.274l797 +++|*         CHECK VALIDITY OF REQUESTED RESOURCES.
10638  M00S05579.resex   +++|
Line S05580 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10639  M01S05580.274l797 ---|*         CHECK RESOURCE VALIDITY.
10640  M01S05581.274l797 ---|
Line S05582 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10641  M02S05582.274l797 ---| RES7     SA1    RESB+RVAL   CHECK TOTAL DEMAND COUNT
10642  M02S05583.274l797 ---|          MX0    -12
10643  M02S05584.274l797 ---|          BX6    -X0*X1
Line S00604 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10644  M02S00604.274l797 ---| RES7     SX4    RESB        COUNT TAPE DEMANDS
Line S01613 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10645  M01S01613.274l797 +++| RES8     SX4    RESB        COUNT TAPE DEMANDS
Line S00605 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
10646  M01S00605.ns21000 +++|          SB5    B0+
10647  M01S00606.ns21000 +++|          RJ     CTA
Line S05585 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10648  M01S05585.v23l617 ---|          SB2    /PER/IRC    * ILLEGAL RESOURCE COUNT.*
Line S00070 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10649  M01S00070.v23l617 +++|          SB2    /PER/IRC    * INCORRECT RESOURCE COUNT.*
Line S05586 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
10650  M01S05586.ns21000 ---|          SX1    X6-MAXD-1
10651  M01S05587.ns21000 ---|          PL     X1,PER      IF TOTAL DEMAND TOO LARGE
Line S00607 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
10652  M01S00607.ns21000 +++|          SX1    X7-MMTD-1
10653  M01S00608.ns21000 +++|          PL     X1,PER      IF TOTAL TAPE DEMAND TOO LARGE
10654  M01S00609.ns21000 +++|          SA1    RESB+RVAL   CHECK REMOVABLE PACK DEMANDS
10655  M01S00610.ns21000 +++|          MX0    -12
10656  M01S00611.ns21000 +++|          BX6    -X0*X1      TOTAL DEMAND COUNT
10657  M01S00612.ns21000 +++|          IX6    X6-X7
10658  M01S00613.ns21000 +++|          SX1    X6-MMSD
10659  M01S00614.ns21000 +++|          PL     X1,PER      IF TOTAL REMOVABLE PACK DEMAND TOO LARGE
10660  M00S05588.resex   +++|          RJ     CCR         CHECK FOR CONFLICTING RESOURCES
Line S05589 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10661  M01S05589.274l797 ---|          RJ     CRV         CHECK RESOURCE VALIDATION
Line S00136 Modification History
M01 (Added by) ns2529
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10662  M02S00136.274l797 ---|          SX7    B1+         SET *RESOURC* COMMAND FLAG
Line S05590 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10663  M01S05590.274l797 ---|          RJ     DEI         DEMAND EXCEEDS INSTALLATION CHECK
10664  M01S05591.274l797 ---|
10665  M01S05592.274l797 ---|*         CHECK FOR ASSIGNED UNITS, IF NONE, DO NOT EXERCISE ALGORITHM.
10666  M01S05593.274l797 ---|
10667  M01S05594.274l797 ---|          SA1    RESB+RVAL   GET TOTAL ASSIGNED COUNT
10668  M01S05595.274l797 ---|          MX2    -12
10669  M01S05596.274l797 ---|          LX1    -12
10670  M01S05597.274l797 ---|          BX1    -X2*X1
10671  M01S05598.274l797 ---|          ZR     X1,END4     IF NO ASSIGNED UNITS
10672  M01S05599.274l797 ---|          RJ     CIC         CHECK FOR INTERNAL CONFLICT
10673  M01S05600.274l797 ---|          ZR     X2,END3     IF DEMANDS SATISFIABLE
10674  M01S05601.274l797 ---|          SB2    /PER/DRC    * NT DRIVE CONFLICT.*
10675  M01S05602.274l797 ---|          EQ     PER         PROCESS ERROR
10676  M01S05603.274l797 ---|
10677  M01S05604.274l797 ---|*         ERROR EXIT IF RESOURCE TYPE ERROR.
10678  M01S05605.274l797 ---|
10679  M01S05606.274l797 ---| RES8     SA1    POPA        CHECK FOR *LO*, *HI*, *HY* IDENTIFIERS
10680  M01S05607.274l797 ---|          BX7    X1
10681  M01S05608.274l797 ---|          LX7    12
10682  M01S05609.274l797 ---|          SB4    TRSLL3
10683  M01S05610.274l797 ---|          RJ     GRL
10684  M01S05611.274l797 ---|          SX1    2RMT
10685  M01S05612.274l797 ---|          SB4    B4-TRMT
10686  M01S05613.274l797 ---|          LX1    -12
10687  M01S05614.274l797 ---|          ZR     B4,RES6     IF RESOURCE IDENTIFIER FOUND
10688  M01S05615.274l797 ---|          SB2    /PER/RTE    * RESOURCE TYPE ERROR.*
10689  M01S05616.274l797 ---|          EQ     PER         PROCESS ERROR
Line S01614 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10690  M01S01614.274l797 +++|          EQ     RRS         REQUEST RESOURCES
Line S00445 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10691  M01S00445.ns22000 +++|
10692  M01S00446.ns22000 +++|
10693  M01S00447.ns22000 +++| RESA     CON    0           NUMBER OF RESOURCE UNITS
Line S01615 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10694  M01S01615.274l797 +++| VSN      SPACE  4,10
10695  M01S01616.274l797 +++|***       VSN    (F1=VSN1,F2=VSN2,...,FN=VSNN)
10696  M01S01617.274l797 +++|*
10697  M01S01618.274l797 +++|*                ASSOCIATE MAGNETIC TAPE REELS WITH VOLUME SERIAL
10698  M01S01619.274l797 +++|*                NUMBERS TO FILE *FI*.
10699  M01S01620.274l797 +++|
10700  M01S01621.274l797 +++|
10701  M01S01622.274l797 +++| VSN      BSS    0           ENTRY
10702  M01S01623.274l797 +++|          SX5    VSNC
10703  M01S01624.274l797 +++|          RJ     CCP         COMMAND PROCESSOR
10704  M01S01625.274l797 +++|          SA1    /CPA/RFCW
10705  M01S01626.274l797 +++|          SX1    X1
10706  M01S01627.274l797 +++|          SX7    B1          INDICATE VSN ENTRY TO BE MADE
10707  M01S01628.274l797 +++|          SA7    VP
10708  M01S01629.274l797 +++|          NZ     X1,VSN1     IF DEMAND ENTRY EXISTS
10709  M01S01630.274l797 +++|          RJ     IDE         INITIALIZE DEMAND ENTRY
10710  M01S01631.274l797 +++| VSN1     SA1    AP
10711  M01S01632.274l797 +++|          SB6    X1          RESET ASSEMBLY POINTER
Line S01633 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10712  M02S01633.282l826 ---|          BX4    X4-X4       INDICATE *VSN* COMMAND CALL
10713  M02S01634.282l826 ---|          ZR     X1,END5     IF END OF COMMAND
Line S00798 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10714  M01S00798.282l826 +++|          ZR     X1,END7     IF END OF COMMAND
10715  M01S00799.282l826 +++|          SX6    B0          DISABLE LITERAL PROCESSING
10716  M01S00800.282l826 +++|          MX4    -18
10717  M01S00801.282l826 +++|          SA6    LIT
10718  M01S00802.282l826 +++|          RJ     POP         PICK OUT PARAMETER
10719  M01S00803.282l826 +++|          NG     B5,ERR      IF ERROR
10720  M01S00804.282l826 +++|          GE     B5,B1,ERR   IF MORE THAN 1 WORD IN PARAMETER
10721  M01S00805.282l826 +++|          BX4    -X4*X6
10722  M01S00806.282l826 +++|          LX3    X6
10723  M01S00807.282l826 +++|          SX2    X1-1R=
10724  M01S00808.282l826 +++|          NZ     X4,ERR      IF FILE NAME ERROR
10725  M01S00809.282l826 +++|          ZR     X6,ERR      IF NO FILE NAME
10726  M01S00810.282l826 +++|          NZ     X2,ERR      IF SEPARATOR IS NOT *=*
Line S01635 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10727  M01S01635.274l797 +++|          RJ     BVE         BUILD VSN ENTRY
10728  M01S01636.274l797 +++|          SA1    VSNE+VLFN
10729  M01S01637.274l797 +++|          SX6    B1
10730  M01S01638.274l797 +++|          BX6    X1+X6
10731  M01S01639.274l797 +++|          SA6    VF
10732  M01S01640.274l797 +++|          RJ     FSC         CHECK FOR EXISTING FILE
10733  M01S01641.274l797 +++|          NZ     B7,VSN1     IF FILE ALREADY ASSIGNED
10734  M01S01642.274l797 +++|          RJ     MFE         MAKE VSN FILE ENTRY
10735  M01S01643.274l797 +++|          EQ     VSN1        PROCESS NEXT FILE
10736  M01S01644.274l797 +++| LRC      SPACE  4,10
10737  M01S01645.274l797 +++|**        LRC - *LABEL* AND *REQUEST* COMMAND FILE ASSIGNMENT.
10738  M01S01646.274l797 +++|*
10739  M01S01647.274l797 +++|*         EXIT   TO *VTR* TO PROCESS TAPE REQUEST.
10740  M01S01648.274l797 +++|*                TO *ROE* TO REQUEST OPERATOR EQUIPMENT ASSIGNMENT.
10741  M01S01649.274l797 +++|*
10742  M01S01650.274l797 +++|*         USES   X - 1, 6.
10743  M01S01651.274l797 +++|*                A - 1, 6.
10744  M01S01652.274l797 +++|*
10745  M01S01653.274l797 +++|*         CALLS  FRA, MFE, SVI, VCD.
10746  M01S01654.274l797 +++|
10747  M01S01655.274l797 +++|
10748  M01S01656.274l797 +++| LRC      BSS    0           ENTRY
10749  M01S01657.274l797 +++|
10750  M01S01658.274l797 +++|*         CHECK FOR VSN SPECIFIED ON *LABEL* OR *REQUEST* COMMAND.
10751  M01S01659.274l797 +++|
10752  M01S01660.274l797 +++|          RJ     MFE         MAKE RESOURCE FILE ENTRIES
10753  M01S01661.274l797 +++|          RJ     SVI         SET VSN INDEX
10754  M01S01662.274l797 +++|          RJ     FRA         CHECK *TMS* FIRST REEL ASSIGNMENT
10755  M01S01663.274l797 +++|          NZ     X5,LRC1     IF VSN NOT FOUND
10756  M01S01664.274l797 +++|          RJ     VCD         VERIFY COMMAND DEFAULTS
10757  M01S01665.274l797 +++|          EQ     VTR         VALIDATE TAPE REQUEST
10758  M01S01666.274l797 +++|
10759  M01S01667.274l797 +++|*         PROCESS *LABEL* OR *REQUEST* WITH NO VSN FOUND.
10760  M01S01668.274l797 +++|
10761  M01S01669.274l797 +++| LRC1     SX6    B0+         SET OPERATOR ASSIGNMENT FLAG
10762  M01S01670.274l797 +++|          SA6    AA
10763  M01S01671.274l797 +++|          RJ     VCD         VERIFY COMMAND DEFAULTS
10764  M01S01672.274l797 +++|          SA1    TT
10765  M01S01673.274l797 +++|          NZ     X1,VTR      IF DEVICE TYPE SPECIFIED
10766  M01S01674.274l797 +++|*         EQ     ROE         REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT
10767  M01S01675.274l797 +++| ROE      SPACE  4,15
10768  M01S01676.274l797 +++|**        ROE - REQUEST OPERATOR EQUIPMENT ASSIGNMENT.
10769  M01S01677.274l797 +++|*
10770  M01S01678.274l797 +++|*         THIS ROUTINE IS CALLED WHEN THE OPERATOR MUST ASSIGN AN
10771  M01S01679.274l797 +++|*         EQUIPMENT IN RESPONSE TO A *LABEL* OR *REQUEST* COMMAND OR
10772  M01S01680.274l797 +++|*         *LABEL* MACRO WITH NO VSN SPECIFIED AND IT IS NOT KNOWN
10773  M01S01681.274l797 +++|*         WHETHER TAPE EQUIPMENT IS REQUIRED.
10774  M01S01682.274l797 +++|*
10775  M01S01683.274l797 +++|*         EXIT   TO *RMT* IF TAPE EQUIPMENT SELECTED.
10776  M01S01684.274l797 +++|*                TO *END1* IF NON-TAPE EQUIPMENT SELECTED.
10777  M01S01685.274l797 +++|*
10778  M01S01686.274l797 +++|*         USES   X - 1, 2, 4, 6, 7.
10779  M01S01687.274l797 +++|*                A - 1, 2, 6, 7.
10780  M01S01688.274l797 +++|*
Line S01689 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10781  M02S01689.282l826 ---|*         CALLS  CJV, CTE, CTI, ROA, TBD, VTD.
Line S00811 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10782  M01S00811.282l826 +++|*         CALLS  CJV, CTE, CTI, CTP, ROA, TBD, VTD.
Line S01690 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10783  M01S01690.274l797 +++|
10784  M01S01691.274l797 +++|
10785  M01S01692.274l797 +++| ROE      BSS    0           ENTRY
10786  M01S01693.274l797 +++|          SX4    B0          SET REQUEST OPERATOR EQUIPMENT ASSIGNMENT
10787  M01S01694.274l797 +++|          RJ     ROA         REQUEST OPERATOR ASSIGNMENT
10788  M01S01695.274l797 +++|          BX7    X4
10789  M01S01696.274l797 +++|          RJ     CTE         CHECK FOR TAPE EQUIPMENT
10790  M01S01697.274l797 +++|          ZR     X2,END1     IF NON-TAPE EQUIPMENT ASSIGNED
10791  M01S01698.274l797 +++|          SA7    ROEA        SAVE DEVICE TYPE OF SELECTED EQUIPMENT
10792  M01S01699.274l797 +++|          SA1    F+FTAP
10793  M01S01700.274l797 +++|          RJ     CTI         CONVERT TAPE DESCRIPTORS
10794  M01S01701.274l797 +++|          RJ     VTD         VERIFY TAPE DESCRIPTORS
10795  M01S01702.274l797 +++|          NZ     B2,PER      IF ERROR IN TAPE DESCRIPTORS
10796  M01S01703.274l797 +++|          BX6    X1
10797  M01S01704.274l797 +++|          SA1    A1          PRESERVE UNCONVERTED TAPE DESCRIPTORS
10798  M01S01705.274l797 +++|          SA2    ROEA
10799  M01S01706.274l797 +++|          SA6    A1+         SET CONVERTED TAPE DESCRIPTORS
10800  M01S01707.274l797 +++|          SX7    B4          TAPE DEVICE TYPE
10801  M01S01708.274l797 +++|          BX4    X7-X2
10802  M01S01709.274l797 +++|          ZR     X4,ROE2     IF NO DEVICE TYPE CONFLICT
10803  M01S01710.274l797 +++|          NZ     B4,ROE1     IF NOT *MT* REQUEST
10804  M01S01711.274l797 +++|          ERRNZ  /COMSMTX/DVMT
10805  M01S01712.274l797 +++|          LX2    55
10806  M01S01713.274l797 +++|          BX1    X1+X2       TRY SELECTED DEVICE TYPE IN DESCRIPTORS
10807  M01S01714.274l797 +++|          RJ     CTI         CONVERT TAPE DESCRIPTORS
10808  M01S01715.274l797 +++|          RJ     VTD         VERIFY TAPE DESCRIPTORS
10809  M01S01716.274l797 +++|          NZ     B2,ROE1     IF CONFLICT USING SELECTED DEVICE TYPE
10810  M01S01717.274l797 +++|          BX6    X1          SET CONVERTED TAPE DESCRIPTORS
10811  M01S01718.274l797 +++|          SA6    A1
10812  M01S01719.274l797 +++|          EQ     ROE2        BUILD TAPE BLOCK DEFINITION
10813  M01S01720.274l797 +++|
10814  M01S01721.274l797 +++| ROE1     SX7    B0+         REJECT OPERATOR SELECTED EQUIPMENT
10815  M01S01722.274l797 +++|          SA7    EQ
10816  M01S01723.274l797 +++| ROE2     RJ     TBD         BUILD TAPE BLOCK DEFINITION
10817  M01S01724.274l797 +++|          RJ     CJV         CHECK JOB VALIDATION
Line S00812 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10818  M01S00812.282l826 +++|          RJ     CTP         CHECK TAPE ACCESS PRIVILEGES
Line S01725 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10819  M01S01725.274l797 +++|          EQ     RMT         REQUEST MAGNETIC TAPE
10820  M01S01726.274l797 +++|
10821  M01S01727.274l797 +++|
10822  M01S01728.274l797 +++| ROEA     CON    0           TAPE DEVICE TYPE
10823  M01S01729.274l797 +++| VTR      SPACE  4,15
10824  M01S01730.274l797 +++|**        VTR - VALIDATE NON-TMS TAPE REQUEST.
10825  M01S01731.274l797 +++|*
10826  M01S01732.274l797 +++|*         USES   X - 1, 2, 6.
10827  M01S01733.274l797 +++|*                A - 1, 2, 6.
10828  M01S01734.274l797 +++|*
Line S01735 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10829  M02S01735.282l826 ---|*         CALLS  COV, CVJ, CTI, TBD, VTD.
Line S00813 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10830  M01S00813.282l826 +++|*         CALLS  CAR, COV, CJV, CTI, CTP, TBD, VTD.
Line S01736 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10831  M01S01736.274l797 +++|*
10832  M01S01737.274l797 +++|*         EXIT   TO *RMT*.
10833  M01S01738.274l797 +++|*                OPERATOR VERIFY FLAG CLEARED IF *SYOT* JOB AND READ
10834  M01S01739.274l797 +++|*                  ONLY ACCESS.
10835  M01S01740.274l797 +++|*                TO *PER* IF ACS TAPE REQUEST WITH NO VSN.
10836  M01S01741.274l797 +++|
10837  M01S01742.274l797 +++|
10838  M01S01743.274l797 +++| VTR      BSS    0           ENTRY
10839  M01S01744.274l797 +++|          SA1    F+FTAP
10840  M01S01745.274l797 +++|          RJ     CTI         CONVERT TAPE DESCRIPTORS
10841  M01S01746.274l797 +++|          RJ     VTD         VERIFY TAPE DESCRIPTORS
10842  M01S01747.274l797 +++|          NZ     B2,PER      IF ERROR IN TAPE DESCRIPTORS
10843  M01S01748.274l797 +++|          RJ     CAR         CHECK ACS TAPE REQUEST
10844  M01S01749.274l797 +++|          BX6    X1          UPDATE TAPE DESCRIPTORS
10845  M01S01750.274l797 +++|          SA6    F+FTAP
Line S01751 Modification History
M01 (Added by) 274l797
M02 (Removed by) tmsnopv
Seq #  *Modification Id* Act 
----------------------------+
10846  M02S01751.tmsnopv ---|          SA2    OT
10847  M02S01752.tmsnopv ---|          LX1    59-39
10848  M02S01753.tmsnopv ---|          SX2    X2-SYOT
10849  M02S01754.tmsnopv ---|          NZ     X2,VTR1     IF NOT SYSTEM ORIGIN JOB
10850  M02S01755.tmsnopv ---|          PL     X1,VTR1     IF NOT READ ONLY ACCESS
Line S01756 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10851  M01S01756.274l797 +++|          RJ     COV         CLEAR OPERATOR VERIFY FLAG
10852  M01S01757.274l797 +++| VTR1     RJ     TBD         BUILD TAPE BLOCK DEFINITION
10853  M01S01758.274l797 +++|          RJ     CJV         CHECK JOB VALIDATION
Line S01759 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10854  M02S01759.282l826 ---|          SA1    F+FVSN      SET EXTERNAL AND INTERNAL VSN
10855  M02S01760.282l826 ---|          MX6    36
10856  M02S01761.282l826 ---|          BX6    X6*X1
10857  M02S01762.282l826 ---|          SA6    IVSN
10858  M02S01763.282l826 ---|          SA6    EVSN
Line S00814 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10859  M01S00814.282l826 +++|          RJ     CTP         CHECK TAPE ACCESS PRIVILEGES
Line S01764 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10860  M01S01764.274l797 +++|          EQ     RMT         REQUEST MAGNETIC TAPE
10861  M00S05617.resex   +++|          TITLE  PRESET UTILITY ROUTINES.
Line S01765 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10862  M01S01765.274l797 +++| CAR      SPACE  4,20
10863  M01S01766.274l797 +++|**        CAR - CHECK ACS TAPE REQUEST NOT UNDER TMS CONTROL.
10864  M01S01767.274l797 +++|*
10865  M01S01768.274l797 +++|*         ENTRY  (X1) = TAPE DESCRIPTORS.
10866  M01S01769.274l797 +++|*
10867  M01S01770.274l797 +++|*         EXIT   (X1) = UPDATED TAPE DESCRIPTORS.
10868  M01S01771.274l797 +++|*                READ ONLY ACCESS FORCED IF SYSTEM ORIGIN JOB, WRITE
10869  M01S01772.274l797 +++|*                  ACCESS NOT REQUIRED AND NOT CALLED FROM *SSJ=*
10870  M01S01773.274l797 +++|*                  PROGRAM.
10871  M01S01774.274l797 +++|*                OPERATOR VERIFY FLAG CLEARED IF WRITE ACCESS REQUIRED
10872  M01S01775.274l797 +++|*                  BY SYSTEM ORIGIN *SSJ=* PROGRAM.
10873  M01S01776.274l797 +++|*                TO *PER* IF ACS TAPE REQUEST WITH NO VSN, JOB NOT
10874  M01S01777.274l797 +++|*                  SYSTEM ORIGIN, OR WRITE ACCESS REQUESTED AND CALLER
10875  M01S01778.274l797 +++|*                  IS NOT *SSJ=* PROGRAM.
10876  M01S01779.274l797 +++|*
10877  M01S01780.274l797 +++|*         USES   X - 1, 2, 3, 4, 6.
10878  M01S01781.274l797 +++|*                A - 2, 3, 4.
10879  M01S01782.274l797 +++|*
10880  M01S01783.274l797 +++|*         CALLS  COV.
10881  M01S01784.274l797 +++|*
10882  M01S01785.274l797 +++|*         MACROS MESSAGE.
10883  M01S01786.274l797 +++|
10884  M01S01787.274l797 +++|
10885  M01S01788.274l797 +++| CAR      SUBR               ENTRY/EXIT
10886  M01S01789.274l797 +++|          LX1    0-55
10887  M01S01790.274l797 +++|          MX6    -2
10888  M01S01791.274l797 +++|          BX6    -X6*X1      TAPE DEVICE TYPE
10889  M01S01792.274l797 +++|          LX1    55-55-0+55
10890  M01S01793.274l797 +++|          SX6    X6-/COMSMTX/DVAT
10891  M01S01794.274l797 +++|          NZ     X6,CARX     IF NOT ACS TAPE REQUEST
10892  M01S01795.274l797 +++|          SA2    OT
10893  M01S01796.274l797 +++|          SA3    AA
10894  M01S01797.274l797 +++|          SA4    /CPA/SPCW
10895  M01S01798.274l797 +++|          SB2    /PER/NVS    * NO VSN SPECIFIED ON ACS TAPE REQUEST.*
10896  M01S01799.274l797 +++|          SX2    X2-SYOT
10897  M01S01800.274l797 +++|          PL     X3,PER      IF VSN NOT SPECIFIED
10898  M01S01801.274l797 +++|          SB2    /PER/UAV    * USER ACCESS NOT VALID.*
10899  M01S01802.274l797 +++|          NZ     X2,PER      IF NOT SYSTEM ORIGIN JOB
10900  M01S01803.274l797 +++|          LX1    59-40
10901  M01S01804.274l797 +++|          PL     X1,CAR1     IF WRITE ENABLE NOT REQUIRED
10902  M01S01805.274l797 +++|          LX4    59-36
10903  M01S01806.274l797 +++|          PL     X4,PER      IF NOT INTERNAL CALL FROM *SSJ=* PROGRAM
10904  M01S01807.274l797 +++|          RJ     COV         CLEAR OPERATOR VERIFY FLAG
10905  M01S01808.274l797 +++|          LX1    40-40-59+40
10906  M01S01809.274l797 +++|          EQ     CARX        RETURN
10907  M01S01810.274l797 +++|
10908  M01S01811.274l797 +++| CAR1     LX3    X1,B1
10909  M01S01812.274l797 +++|          LX1    40-40-59+40
10910  M01S01813.274l797 +++|          NG     X3,CARX     IF READ ONLY REQUEST
10911  M01S01814.274l797 +++|          SX6    B1
10912  M01S01815.274l797 +++|          LX6    39-0
10913  M01S01816.274l797 +++|          BX4    X1+X6       SET READ ONLY AND SAVE TAPE DESCRIPTORS
10914  M01S01817.274l797 +++|          MESSAGE  CARA,3    * WRITE DISABLE FORCED ON NON-TMS ACS...*
10915  M01S01818.274l797 +++|          BX1    X4          RESTORE TAPE DESCRIPTORS
10916  M01S01819.274l797 +++|          EQ     CARX        RETURN
10917  M01S01820.274l797 +++|
10918  M01S01821.274l797 +++|
10919  M01S01822.274l797 +++| CARA     DATA   C* WRITE DISABLE FORCED ON NON-TMS ACS TAPE REQUEST.*
10920  M00S05618.resex   +++| CCR      SPACE  4,10
10921  M00S05619.resex   +++|**        CCR - CHECK FOR CONFLICTING RESOURCES.
10922  M00S05620.resex   +++|*
10923  M00S05621.resex   +++|*         ENTRY  RESB = RESOURCE DEMAND ENTRY.
10924  M00S05622.resex   +++|*
10925  M00S05623.resex   +++|*         ERROR   TO *PER*, IF CONFLICTING RESOURCE TYPES.
10926  M00S05624.resex   +++|*
Line S05625 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10927  M01S05625.ns22000 ---|*         USES   A - 1.
Line S00448 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10928  M01S00448.ns22000 +++|*         USES   X - 0, 1, 2.
10929  M01S00449.ns22000 +++|*                A - 1, 2.
10930  M00S05626.resex   +++|*                B - 2.
Line S05627 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10931  M01S05627.ns22000 ---|*                X - 1, 2, 6.
10932  M00S05628.resex   +++|
10933  M00S05629.resex   +++|
10934  M00S05630.resex   +++| CCR      SUBR               ENTRY/EXIT
10935  M00S05631.resex   +++|          SA1    RESB+RNTP   *NT* NOT ALLOWED WITH *HD*, *PE*, *GE*
Line S05632 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10936  M01S05632.ns22000 ---|          MX2    6
10937  M01S05633.ns22000 ---|          BX6    X6-X6
10938  M01S05634.ns22000 ---|          LX2    -18
10939  M01S05635.ns22000 ---|          SB2    RGEP-RNTP
10940  M01S05636.ns22000 ---|          BX1    X2*X1
10941  M01S05637.ns22000 ---|          ZR     X1,CCRX     IF NO CONFLICT
10942  M01S05638.ns22000 ---| CCR1     SA1    A1+B1
10943  M01S05639.ns22000 ---|          BX1    X2*X1
10944  M01S05640.ns22000 ---|          IX6    X6+X1
10945  M01S05641.ns22000 ---|          SB2    B2-B1
10946  M01S05642.ns22000 ---|          GT     B2,CCR1     IF MORE 9-TRACK RESOURCE IDENTIFIERS
10947  M01S05643.ns22000 ---|          ZR     X6,CCRX     IF NO CONFLICT
10948  M01S05644.ns22000 ---|          SB2    /PER/CRT    * CONFLICTING RESOURCE TYPES.*
10949  M01S05645.ns22000 ---|          EQ     PER         PROCESS ERROR
Line S00450 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10950  M01S00450.ns22000 +++|          MX0    -48
10951  M01S00451.ns22000 +++|          SA2    A1+B1       SECOND WORD OF TAPE ENTRY
10952  M01S00452.ns22000 +++|          BX1    X1+X2
10953  M01S00453.ns22000 +++|          BX1    -X0*X1
10954  M01S00454.ns22000 +++|          ZR     X1,CCRX     IF NO CONFLICT
10955  M01S00455.ns22000 +++|          SB2    /PER/CRT    * CONFLICTING RESOURCE TYPES.*
10956  M01S00456.ns22000 +++| CCR1     SA1    A2+B1
10957  M01S00457.ns22000 +++|          SA2    A1+B1
10958  M01S00458.ns22000 +++|          BX1    X1+X2
10959  M01S00459.ns22000 +++|          BX1    -X0*X1
10960  M01S00460.ns22000 +++|          NZ     X1,PER      IF CONFLICT IN RESOURCE TYPES
10961  M01S00461.ns22000 +++|          SX1    A1-RESB-RGEP
10962  M01S00462.ns22000 +++|          NZ     X1,CCR1     IF MORE 9-TRACK TAPE RESOURCES
10963  M01S00463.ns22000 +++|          EQ     CCRX        RETURN
Line S00464 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10964  M02S00464.274l797 ---|
10965  M00S05646.resex   +++| CJV      SPACE  4,10
10966  M00S05647.resex   +++|**        CJV - CHECK JOB VALIDATION.
10967  M00S05648.resex   +++|*
10968  M00S05649.resex   +++|*         ENTRY  (RT) = REQUEST TYPE.
10969  M00S05650.resex   +++|*
Line S05651 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10970  M01S05651.v23l617 ---|*         ERROR  TO *PER*, IF ILLEGAL USER ACCESS.
Line S00071 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10971  M01S00071.v23l617 +++|*         ERROR  TO *PER*, IF USER ACCESS NOT VALID.
10972  M00S05652.resex   +++|*
10973  M00S05653.resex   +++|*         USES   A - 1, 2, 5.
10974  M00S05654.resex   +++|*                B - 2.
10975  M00S05655.resex   +++|*                X - 0, 1, 2, 5.
10976  M00S05656.resex   +++|
10977  M00S05657.resex   +++|
10978  M00S05658.resex   +++| CJV      SUBR               ENTRY/EXIT
10979  M00S05659.resex   +++|          SA1    SSJ=+/COMSSSJ/AACS
10980  M00S05660.resex   +++|          SA2    RT
10981  M00S05661.resex   +++|          LX1    -7
10982  M00S05662.resex   +++|          PL     X2,CJV1     IF *LABEL* OR *REQUEST*
10983  M00S05663.resex   +++|          LX1    2
10984  M00S05664.resex   +++|          SA5    OT
10985  M00S05665.resex   +++|          SX5    X5-SYOT
10986  M00S05666.resex   +++|          ZR     X5,CJVX     IF SYSTEM ORIGIN JOB
Line S05667 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10987  M01S05667.ns22000 ---| CJV1     NG     X1,CJVX     IF VALID PRIVILEDGES
Line S00465 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10988  M01S00465.ns22000 +++| CJV1     NG     X1,CJVX     IF VALID PRIVILEGES
Line S05668 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
10989  M01S05668.v23l617 ---|          SB2    /PER/IUA    *ILLEGAL USER ACCESS.*
Line S00072 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10990  M02S00072.274l797 ---|          SB2    /PER/IUA    *USER ACCESS NOT VALID.*
Line S01823 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10991  M01S01823.274l797 +++|          SB2    /PER/UAV    *USER ACCESS NOT VALID.*
10992  M00S05669.resex   +++|          EQ     PER         PROCESS ERROR
Line S00311 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
10993  M01S00311.252l678 +++| CTD      SPACE  4,10
Line S00312 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10994  M02S00312.253l688 ---|**        CTD - CHECK TMS DEFAULTS.
Line S00567 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10995  M01S00567.253l688 +++|**        CTD - CHECK *TMS* DEFAULTS.
Line S00313 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
10996  M01S00313.252l678 +++|*
10997  M01S00314.252l678 +++|*         ENTRY  (F+FTAP) = TAPE DESCRIPTOR.
10998  M01S00315.252l678 +++|*                (F+FVSN) = VSN.
10999  M01S00316.252l678 +++|*                (F+FSQN) = FILE SEQUENCE NUMBER.
11000  M01S00317.252l678 +++|*
11001  M01S00318.252l678 +++|*         EXIT   DEFAULTS SET.
11002  M01S00319.252l678 +++|*
11003  M01S00320.252l678 +++|*         USES   X - 0, 1, 2, 3, 6, 7.
11004  M01S00321.252l678 +++|*                A - 1, 2, 3, 6, 7.
11005  M01S00322.252l678 +++|
11006  M01S00323.252l678 +++|
Line S01824 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11007  M01S01824.274l797 +++| CTD      SUBR               ENTRY/EXIT
11008  M01S01825.274l797 +++|          SA1    F+FTAP
11009  M01S01826.274l797 +++|          SA3    F+FVSN      CHECK VSN FOR SCRATCH
11010  M01S01827.274l797 +++|          SA2    BLANK
11011  M01S01828.274l797 +++|          MX0    36
11012  M01S01829.274l797 +++|          BX3    X0*X3
11013  M01S01830.274l797 +++|          BX2    X2-X3
11014  M01S01831.274l797 +++|          MX0    1
11015  M01S01832.274l797 +++|          NZ     X2,CTD1     IF NOT SCRATCH
11016  M01S01833.274l797 +++|          LX0    40-59       SET *PO=W*
11017  M01S01834.274l797 +++|          BX1    X1+X0
11018  M01S01835.274l797 +++|          LX0    58-59-40+59 CHECK FOR LABEL
11019  M01S01836.274l797 +++|          BX2    X0*X1
11020  M01S01837.274l797 +++|          ZR     X2,CTD1     IF NOT LABELED
11021  M01S01838.274l797 +++|          LX0    59-58
11022  M01S01839.274l797 +++|          BX1    X1+X0       SET *W*
11023  M01S01840.274l797 +++|          SA2    MF
11024  M01S01841.274l797 +++|          ZR     X2,CTD1     IF NOT MULTI-FILE REQUEST
11025  M01S01842.274l797 +++|          SA2    F+FSQN      CHECK IF QN=9999
11026  M01S01843.274l797 +++|          SX3    X2-9999D
11027  M01S01844.274l797 +++|          NZ     X3,CTD1     IF NOT QN=9999
11028  M01S01845.274l797 +++|          MX0    42          SET QN=1
11029  M01S01846.274l797 +++|          BX2    X0*X2
11030  M01S01847.274l797 +++|          SX7    B1
11031  M01S01848.274l797 +++|          BX7    X2+X7
11032  M01S01849.274l797 +++|          SA7    A2+
11033  M01S01850.274l797 +++|          SA2    MF          FLAG QN NOT .GT. 1
11034  M01S01851.274l797 +++|          SX6    X2-10
11035  M01S01852.274l797 +++|          SA6    A2
Line S00324 Modification History
M01 (Added by) 252l678
M02 (Removed by) resex36
Seq #  *Modification Id* Act 
----------------------------+
11036  M02S00324.resex36 ---| CTD1     SA1    F+FTAP      GET TAPE DESCTIPTORS
11037  M02S00325.resex36 ---|          MX0    2
Line S00001 Modification History
M01 (Added by) resex36
Seq #  *Modification Id* Act 
----------------------------+
11038  M01S00001.resex36 +++| CTD1     MX0    2           CHECK TAPE DESCRIPTORS
Line S00326 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11039  M01S00326.252l678 +++|          LX0    40-59
11040  M01S00327.252l678 +++|          BX2    -X0*X1
11041  M01S00328.252l678 +++|          MX0    1
11042  M01S00329.252l678 +++|          LX0    40-59
11043  M01S00330.252l678 +++|          NG     X1,CTD2     IF *W* OPTION SET
11044  M01S00331.252l678 +++|          BX3    X0*X1
11045  M01S00332.252l678 +++|          NZ     X3,CTD2     IF *PO=W*
11046  M01S00333.252l678 +++|          LX0    39-59-40+59
11047  M01S00334.252l678 +++| CTD2     BX6    X0+X2       SET *PO=W* OR *PO=R*
11048  M01S00335.252l678 +++|          SA6    A1
Line S01853 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11049  M01S01853.274l797 +++|          SA1    F+FFTO      SET *TO=T* FLAG IN FET
11050  M01S01854.274l797 +++|          SX6    20B
11051  M01S01855.274l797 +++|          BX6    X1+X6
11052  M01S01856.274l797 +++|          SA6    A1
11053  M01S01857.274l797 +++|          SX0    1200B       CHECK IF *TO=C* OR *TO=E*
11054  M01S01858.274l797 +++|          BX6    X0*X1
11055  M01S01859.274l797 +++|          NZ     X6,CTDX     IF USER HAS SPECIFIED *TO=C* OR *TO=E*
11056  M01S01860.274l797 +++|          MX0    -1          GET DEFAULT FOR *TO=C*/*TO=E*
11057  M01S01861.274l797 +++|          SA2    TMPF
11058  M01S01862.274l797 +++|          LX2    0-51
11059  M01S01863.274l797 +++|          BX2    -X0*X2
11060  M01S01864.274l797 +++|          SA2    X2+CTDA
11061  M01S01865.274l797 +++|          BX6    X1+X2
11062  M01S01866.274l797 +++|          SA6    A1
11063  M01S01867.274l797 +++|          EQ     CTDX        RETURN
Line S00336 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11064  M01S00336.252l678 +++|
Line S00337 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11065  M02S00337.274l797 ---| CTD      SUBR               ENTRY/EXIT
11066  M02S00338.274l797 ---|          SA1    F+FTAP
11067  M02S00339.274l797 ---|          SA3    F+FVSN      CHECK VSN FOR SCRATCH
11068  M02S00340.274l797 ---|          SA2    BLANK
11069  M02S00341.274l797 ---|          MX0    36
11070  M02S00342.274l797 ---|          BX3    X0*X3
11071  M02S00343.274l797 ---|          BX2    X2-X3
11072  M02S00344.274l797 ---|          MX0    1
11073  M02S00345.274l797 ---|          NZ     X2,CTD1     IF NOT SCRATCH
11074  M02S00346.274l797 ---|          LX0    40-59       SET *PO=W*
11075  M02S00347.274l797 ---|          BX1    X1+X0
11076  M02S00348.274l797 ---|          LX0    58-59-40+59 CHECK FOR LABEL
11077  M02S00349.274l797 ---|          BX2    X0*X1
11078  M02S00350.274l797 ---|          ZR     X2,CTD1     IF NOT LABELED
11079  M02S00351.274l797 ---|          LX0    59-58
11080  M02S00352.274l797 ---|          BX1    X1+X0       SET *W*
11081  M02S00353.274l797 ---|          SA2    MF
11082  M02S00354.274l797 ---|          ZR     X2,CTD1     IF NOT MULTI-FILE REQUEST
11083  M02S00355.274l797 ---|          SA2    F+FSQN      CHECK IF QN=9999
11084  M02S00356.274l797 ---|          SX3    X2-9999D
11085  M02S00357.274l797 ---|          NZ     X3,CTD1     IF NOT QN=9999
11086  M02S00358.274l797 ---|          MX0    42          SET QN=1
11087  M02S00359.274l797 ---|          BX2    X0*X2
11088  M02S00360.274l797 ---|          SX7    B1
11089  M02S00361.274l797 ---|          BX7    X2+X7
11090  M02S00362.274l797 ---|          SA7    A2+
11091  M02S00363.274l797 ---|          SA2    MF          FLAG QN NOT .GT. 1
11092  M02S00364.274l797 ---|          SX6    X2-10
11093  M02S00365.274l797 ---|          SA6    A2
11094  M02S00366.274l797 ---|          EQ     CTD1        RESET TAPE DESCRIPTORS
Line S01868 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11095  M01S01868.274l797 +++|
11096  M01S01869.274l797 +++| CTDA     BSS    0           BITS TO SET FOR *TO=C* OR *TO=E*
11097  M01S01870.274l797 +++|          LOC    0
11098  M01S01871.274l797 +++|          CON    200B        BIT 7 FOR *TO=E*
11099  M01S01872.274l797 +++|          CON    1000B       BIT 9 FOR *TO=C*
11100  M01S01873.274l797 +++|          LOC    *O
11101  M01S01874.274l797 +++| CTI      SPACE  4,15
11102  M01S01875.274l797 +++|**        CTI - CONVERT TAPE DESCRIPTORS TO INTERNAL *COMSMTX* FORMAT.
11103  M01S01876.274l797 +++|*
11104  M01S01877.274l797 +++|*         ENTRY  (X1) = UNCONVERTED TAPE DESCRIPTORS.
11105  M01S01878.274l797 +++|*
11106  M01S01879.274l797 +++|*         EXIT   (X1) = TAPE DESCRIPTORS WITH PARAMETERS DEFAULTED IF
11107  M01S01880.274l797 +++|*                       NECESSARY AND CONVERTED TO *COMSMTX* FORMAT.
11108  M01S01881.274l797 +++|*                TO *PER* IF ERROR IN FET PARAMETERS.
11109  M01S01882.274l797 +++|*
11110  M01S01883.274l797 +++|*         USES   X - 0, 1, 2, 5, 6, 7.
11111  M01S01884.274l797 +++|*                B - 2.
11112  M01S01885.274l797 +++|*                A - 2, 7.
11113  M01S01886.274l797 +++|
11114  M01S01887.274l797 +++|
11115  M01S01888.274l797 +++| CTI      SUBR               ENTRY/EXIT
11116  M01S01889.274l797 +++|
11117  M01S01890.274l797 +++|*         GET DEVICE TYPE AND SET DEFAULT DENSITY AND CONVERSION MODE.
11118  M01S01891.274l797 +++|
11119  M01S01892.274l797 +++|          SA2    /LWC/IPRL
11120  M01S01893.274l797 +++|          MX5    -2
11121  M01S01894.274l797 +++|          LX1    0-55
11122  M01S01895.274l797 +++|          BX5    -X5*X1      DEVICE TYPE
11123  M01S01896.274l797 +++|          MX0    -3
11124  M01S01897.274l797 +++|          SX7    /COMSMTX/D380  *CT*/*AT* DEFAULT DENSITY
11125  M01S01898.274l797 +++|          SX6    X5-/COMSMTX/DVNT
11126  M01S01899.274l797 +++|          ZR     X5,CTI1     IF *MT* REQUEST
11127  M01S01900.274l797 +++|          ERRNZ  /COMSMTX/DVMT
11128  M01S01901.274l797 +++|          NZ     X6,CTI2     IF NOT *NT* REQUEST
11129  M01S01902.274l797 +++|          LX2    -6
11130  M01S01903.274l797 +++| CTI1     BX7    -X0*X2      *MT* OR *NT* DEFAULT DENSITY
11131  M01S01904.274l797 +++|          LX2    6
11132  M01S01905.274l797 +++| CTI2     SA7    CTIA+0      SET DEFAULT DENSITY
11133  M01S01906.274l797 +++|          LX2    -12
11134  M01S01907.274l797 +++|          BX7    -X0*X2
11135  M01S01908.274l797 +++|          SA7    CTIB+0      SET DEFAULT CONVERSION MODE
11136  M01S01909.274l797 +++|
11137  M01S01910.274l797 +++|*         CONVERT DENSITY.
11138  M01S01911.274l797 +++|
11139  M01S01912.274l797 +++|          LX1    0-51-0+55
11140  M01S01913.274l797 +++|          BX2    -X0*X1      REQUESTED DENSITY
11141  M01S01914.274l797 +++|          SX6    X2-CTIAL
11142  M01S01915.274l797 +++|          SA2    CTIA+X2     CONVERT DENSITY
11143  M01S01916.274l797 +++|          SB2    /PER/IDN
11144  M01S01917.274l797 +++|          PL     X6,PER      IF ERROR IN SPECIFIED DENSITY
11145  M01S01918.274l797 +++|          BX1    X0*X1
11146  M01S01919.274l797 +++|          BX1    X1+X2       MERGE CONVERTED DENSITY
11147  M01S01920.274l797 +++|
11148  M01S01921.274l797 +++|*         CONVERT CONVERSION MODE.
11149  M01S01922.274l797 +++|
11150  M01S01923.274l797 +++|          LX1    0-48-0+51
11151  M01S01924.274l797 +++|          BX2    -X0*X1      REQUESTED CONVERSION MODE
11152  M01S01925.274l797 +++|          NZ     X5,CTI3     IF NOT *MT* REQUEST
11153  M01S01926.274l797 +++|          ERRNZ  /COMSMTX/DVMT
11154  M01S01927.274l797 +++|          SB2    /PER/ICD    * INCORRECT CONVERSION MODE FOR TAPE ...*
11155  M01S01928.274l797 +++|          NZ     X2,PER      IF 8 BIT CONVERSION MODE SPECIFIED
11156  M01S01929.274l797 +++|          SX2    /COMSMTX/BCD  SET BCD CONVERSION
11157  M01S01930.274l797 +++|          EQ     CTI4        SET CONVERTED MODE
11158  M01S01931.274l797 +++|
11159  M01S01932.274l797 +++| CTI3     SX6    X2-CTIBL
11160  M01S01933.274l797 +++|          SA2    CTIB+X2     CONVERT CONVERSION MODE
11161  M01S01934.274l797 +++|          SB2    /PER/ICM    * INCORRECT CONVERSION MODE.*
11162  M01S01935.274l797 +++|          PL     X6,PER      IF ERROR IN SPECIFIED CONVERSION MODE
11163  M01S01936.274l797 +++| CTI4     BX1    X0*X1
11164  M01S01937.274l797 +++|          BX1    X1+X2       MERGE CONVERTED CONVERSION MODE
11165  M01S01938.274l797 +++|          LX1    48
11166  M01S01939.274l797 +++|          EQ     CTIX        RETURN
11167  M01S01940.274l797 +++|
11168  M01S01941.274l797 +++|
11169  M01S01942.274l797 +++|*         DENSITY CONVERSION TABLE.
11170  M01S01943.274l797 +++|
11171  M01S01944.274l797 +++| CTIA     BSS    0
11172  M01S01945.274l797 +++|          CON    0           JOB DEFAULT DENSITY
11173  M01S01946.274l797 +++|          CON    /COMSMTX/D05
11174  M01S01947.274l797 +++|          CON    /COMSMTX/D02
11175  M01S01948.274l797 +++|          CON    /COMSMTX/D08
11176  M01S01949.274l797 +++|          CON    /COMSMTX/D16
11177  M01S01950.274l797 +++|          CON    /COMSMTX/D62
11178  M01S01951.274l797 +++|          CON    /COMSMTX/D380
11179  M01S01952.274l797 +++| CTIAL    EQU    *-CTIA
11180  M01S01953.274l797 +++|
11181  M01S01954.274l797 +++|*         CONVERSION MODE CONVERSION TABLE.
11182  M01S01955.274l797 +++|
11183  M01S01956.274l797 +++| CTIB     BSS    0
11184  M01S01957.274l797 +++|          CON    0           JOB DEFAULT CONVERSION MODE
11185  M01S01958.274l797 +++|          CON    /COMSMTX/ANS
11186  M01S01959.274l797 +++|          CON    /COMSMTX/EBC
11187  M01S01960.274l797 +++| CTIBL    EQU    *-CTIB
Line S00815 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11188  M01S00815.282l826 +++| CTP      SPACE  4,15
11189  M01S00816.282l826 +++|**        CTP - CHECK TAPE ACCESS PRIVILEGES.
11190  M01S00817.282l826 +++|*
11191  M01S00818.282l826 +++|*         EXIT   LABEL ACCESS RESTRICTIONS (PO = X) ENFORCED IF NOT
11192  M01S00819.282l826 +++|*                  SYSTEM ORIGIN JOB.
11193  M01S00820.282l826 +++|*                WRITE ACCESS DISABLED (PO = R) IF UNLABELED REQUEST,
11194  M01S00821.282l826 +++|*                  WRITE ACCESS NOT REQUESTED, AND NOT PERMITTED TO
11195  M01S00822.282l826 +++|*                  WRITE UNLABELED TAPES.
11196  M01S00823.282l826 +++|*                TO *PER* IF UNLABELED REQUEST, WRITE ACCESS REQUESTED,
11197  M01S00824.282l826 +++|*                  AND NOT PERMITTED TO WRITE UNLABELED TAPES.
11198  M01S00825.282l826 +++|*
11199  M01S00826.282l826 +++|*         USES   X - 1, 2, 3, 6, 7.
11200  M01S00827.282l826 +++|*                A - 1, 2, 3, 7.
11201  M01S00828.282l826 +++|*
11202  M01S00829.282l826 +++|*         MACROS MESSAGE.
11203  M01S00830.282l826 +++|
11204  M01S00831.282l826 +++|
11205  M01S00832.282l826 +++| CTP      SUBR               ENTRY/EXIT
11206  M01S00833.282l826 +++|          SA1    OT
11207  M01S00834.282l826 +++|          SA2    F+FTAP
11208  M01S00835.282l826 +++|          SX6    B1
11209  M01S00836.282l826 +++|          SX1    X1-SYOT
11210  M01S00837.282l826 +++|          LX6    44-0
11211  M01S00838.282l826 +++|          ZR     X1,CTPX     IF SYSTEM ORIGIN JOB
11212  M01S00839.282l826 +++|          BX7    X2+X6       ENFORCE LABEL ACCESS RESTRICTIONS (PO = X)
11213  M01S00840.282l826 +++|          LX2    59-58
11214  M01S00841.282l826 +++|          NG     X2,CTP2     IF LABELED ACCESS
11215  M01S00842.282l826 +++|          SA1    /CPA/SPCW
11216  M01S00843.282l826 +++|          SA3    JCWA
11217  M01S00844.282l826 +++|          LX2    59-40-59+58
11218  M01S00845.282l826 +++|          LX1    59-36
11219  M01S00846.282l826 +++|          LX3    59-52
11220  M01S00847.282l826 +++|          NG     X1,CTP2     IF INTERNAL CALL FROM *SSJ=* PROGRAM
11221  M01S00848.282l826 +++|          NG     X3,CTP2     IF PERMITTED TO WRITE UNLABELED TAPES
11222  M01S00849.282l826 +++|          PL     X2,CTP1     IF WRITE ACCESS NOT REQUIRED
11223  M01S00850.282l826 +++|          SB2    /PER/NVU    * NOT VALIDATED FOR WRITING UNLABELED ...*
11224  M01S00851.282l826 +++|          EQ     PER         PROCESS ERROR
11225  M01S00852.282l826 +++|
11226  M01S00853.282l826 +++| CTP1     LX2    59-39-59+40
11227  M01S00854.282l826 +++|          LX6    39-44
11228  M01S00855.282l826 +++|          NG     X2,CTP2     IF WRITE ACCESS DISABLED
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/resex.009.txt ยท Last modified: by 127.0.0.1