Deck RESEX Part 004

65 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
04545  M01S02733.282l826 ---|          ZR     X1,SDT1     IF *HD* DRIVE PREVIOUSLY SELECTED

Seq #  *Modification Id* Act 
----------------------------+
04546  M01S00085.282l826 +++|          ZR     X1,SDTX     IF *HD* DRIVE PREVIOUSLY SELECTED
04547  M00S02734.resex   +++|          SX6    2RHD

Seq #  *Modification Id* Act 
----------------------------+
04548  M01S02735.ns22000 ---|          SX4    RHDP+100B

Seq #  *Modification Id* Act 
----------------------------+
04549  M01S00232.ns22000 +++|          SX4    RHDP

Seq #  *Modification Id* Act 
----------------------------+
04550  M01S02736.282l826 ---| SDT1     SA6    DD          CHANGE 9-TRACK DENSITY DISPLAY
04551  M01S02737.282l826 ---|          SA1    RESB+RQPD   UPDATE REQUEST PREVIEW DATA
04552  M01S02738.282l826 ---|          MX0    42
04553  M01S02739.282l826 ---|          BX7    X6
04554  M01S02740.282l826 ---|          LX7    6
04555  M01S02741.282l826 ---|          BX1    X0*X1
04556  M01S02742.282l826 ---|          BX7    X1+X7
04557  M01S02743.282l826 ---|          SA7    A1
04558  M00S02744.resex   +++|          EQ     SDTX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04559  M01S00447.274l797 +++| SPI      SPACE  4,10
04560  M01S00448.274l797 +++|**        SPI - SET PREVIEW INFORMATION IN DEMAND FILE ENTRY.
04561  M01S00449.274l797 +++|*
04562  M01S00450.274l797 +++|*         ENTRY  DEMAND FILE ENTRY IN *RESB*.
04563  M01S00451.274l797 +++|*
04564  M01S00452.274l797 +++|*         EXIT   PREVIEW INFORMATION SET IN DEMAND FILE ENTRY.
04565  M01S00453.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04566  M02S00454.282l826 ---|*         USES   X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
04567  M01S00086.282l826 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04568  M01S00455.274l797 +++|*                A - 1, 2, 3, 4, 6.
04569  M01S00456.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04570  M02S00457.282l826 ---|*         CALLS  GFO.

Seq #  *Modification Id* Act 
----------------------------+
04571  M01S00087.282l826 +++|*         CALLS  SFN.

Seq #  *Modification Id* Act 
----------------------------+
04572  M01S00458.274l797 +++|
04573  M01S00459.274l797 +++|
04574  M01S00460.274l797 +++| SPI      SUBR               ENTRY/EXIT
04575  M01S00461.274l797 +++|
04576  M01S00462.274l797 +++|*         SET TIME OF REQUEST AND CHECK REQUEST TYPE.
04577  M01S00463.274l797 +++|
04578  M01S00464.274l797 +++|          SA1    TM
04579  M01S00465.274l797 +++|          SA2    RQ
04580  M01S00466.274l797 +++|          SA3    RI
04581  M01S00467.274l797 +++|          MX0    -6
04582  M01S00468.274l797 +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
04583  M02S00469.282l826 ---|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
04584  M01S00470.274l797 +++|          BX3    -X0*X3

Seq #  *Modification Id* Act 
----------------------------+
04585  M01S00088.282l826 +++|          SA6    RESB+RREQ   SET REQUEST TIME

Seq #  *Modification Id* Act 
----------------------------+
04586  M01S00471.274l797 +++|          SX3    X3-RRPP

Seq #  *Modification Id* Act 
----------------------------+
04587  M02S00472.282l826 ---|          SA6    RESB+RQPT   SET TIME OF REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04588  M01S00473.274l797 +++|          NG     X3,SPI1     IF TAPE REQUEST
04589  M01S00474.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04590  M02S00475.282l826 ---|*         SET PACKNAME AND PACK RESOURCE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
04591  M01S00089.282l826 +++|*         SET PACKNAME, PACK RESOURCE TYPE, AND UNIT COUNT.

Seq #  *Modification Id* Act 
----------------------------+
04592  M01S00476.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04593  M02S00477.282l826 ---|          SA7    RESB+RQPD
04594  M02S00478.282l826 ---|          EQ     SPI3        SET USER AND JOB IDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
04595  M01S00090.282l826 +++|          MX6    42
04596  M01S00091.282l826 +++|          MX7    -12
04597  M01S00092.282l826 +++|          BX6    X6*X2       PACK NAME
04598  M01S00093.282l826 +++|          LX7    6
04599  M01S00094.282l826 +++|          SA6    RESB+RQPV+PVSN  SET PACK NAME
04600  M01S00095.282l826 +++|          SA6    RESB+RQPV+PVSI
04601  M01S00096.282l826 +++|          BX0    -X0*X2      DISPLAY CODE UNIT COUNT
04602  M01S00097.282l826 +++|          BX7    -X7*X2      RESOURCE MNEMONIC
04603  M01S00098.282l826 +++|          SX0    X0-1R1      UNIT COUNT - 1
04604  M01S00099.282l826 +++|          LX7    6
04605  M01S00100.282l826 +++|          LX0    9
04606  M01S00101.282l826 +++|          SX6    20B
04607  M01S00102.282l826 +++|          BX7    X7+X0       MERGE RESOURCE TYPE AND UNIT COUNT
04608  M01S00103.282l826 +++|          BX7    X6+X7       SET UNIT COUNT FLAG
04609  M01S00104.282l826 +++|          SA7    RESB+RQPV+PRES
04610  M01S00105.282l826 +++|          SX6    B0+         CLEAR FLAGS
04611  M01S00106.282l826 +++|          SA6    RESB+RQPV+PFLG
04612  M01S00107.282l826 +++|          EQ     SPI4        SET USER AND JOB IDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
04613  M01S00479.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04614  M02S00480.282l826 ---|*         SET VSN AND TAPE RESOURCE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
04615  M01S00108.282l826 +++|*         SET EXTERNAL VSN, RESOURCE TYPE, AND ACCESS LEVEL.

Seq #  *Modification Id* Act 
----------------------------+
04616  M01S00481.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04617  M02S00482.282l826 ---| SPI1     SA1    IVSN
04618  M02S00483.282l826 ---|          SA3    DD
04619  M02S00484.282l826 ---|          SA4    EV
04620  M02S00485.282l826 ---|          MX7    -18
04621  M02S00486.282l826 ---|          BX2    -X7*X2      RESOURCE TYPE
04622  M02S00487.282l826 ---|          ZR     X3,SPI2     IF NOT 9-TRACK REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04623  M01S00109.282l826 +++| SPI1     SA1    EVSN
04624  M01S00110.282l826 +++|          SA2    RMN
04625  M01S00111.282l826 +++|          SA3    AL
04626  M01S00112.282l826 +++|          SA4    BLANK
04627  M01S00113.282l826 +++|          BX6    X1
04628  M01S00114.282l826 +++|          LX2    12
04629  M01S00115.282l826 +++|          SA6    RESB+RQPV+PVSN  SET VSN

Seq #  *Modification Id* Act 
----------------------------+
04630  M01S00488.274l797 +++|          LX3    6

Seq #  *Modification Id* Act 
----------------------------+
04631  M02S00489.282l826 ---|          BX2    X3          USE DENSITY AS RESOURCE TYPE
04632  M02S00490.282l826 ---| SPI2     BX6    X1+X2       MERGE VSN
04633  M02S00491.282l826 ---|          BX6    X6+X4       MERGE EQUIVALENCED VSN STATUS
04634  M02S00492.282l826 ---|          SA6    RESB+RQPD   SET VSN AND RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
04635  M01S00116.282l826 +++|          BX4    X1-X4
04636  M01S00117.282l826 +++|          SX3    X3+10B      SET ACCESS LEVEL AND FLAG
04637  M01S00118.282l826 +++|          NZ     X4,SPI2     IF NOT SCRATCH REQUEST
04638  M01S00119.282l826 +++|          SX3    X3+40B      SET SCRATCH VSN FLAG
04639  M01S00120.282l826 +++| SPI2     BX6    X2+X3       MERGE RESOURCE TYPE AND FLAGS
04640  M01S00121.282l826 +++|          SA6    RESB+RQPV+PRES

Seq #  *Modification Id* Act 
----------------------------+
04641  M01S00493.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04642  M02S00494.282l826 ---|*         SET EXTERNAL VSN AND FLAGS.

Seq #  *Modification Id* Act 
----------------------------+
04643  M01S00122.282l826 +++|*         SET INTERNAL VSN AND FLAGS.

Seq #  *Modification Id* Act 
----------------------------+
04644  M01S00495.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04645  M02S00496.282l826 ---|          SA1    EVSN
04646  M02S00497.282l826 ---|          SA2    AL

Seq #  *Modification Id* Act 
----------------------------+
04647  M01S00123.282l826 +++|          MX0    1
04648  M01S00124.282l826 +++|          SA1    IVSN
04649  M01S00125.282l826 +++|          SA2    TMPF

Seq #  *Modification Id* Act 
----------------------------+
04650  M01S00498.274l797 +++|          SA3    F+FTAP

Seq #  *Modification Id* Act 
----------------------------+
04651  M02S00499.282l826 ---|          SA4    TMPF
04652  M02S00500.282l826 ---|          LX2    3

Seq #  *Modification Id* Act 
----------------------------+
04653  M01S00126.282l826 +++|          BX7    X1
04654  M01S00127.282l826 +++|          LX2    59-58
04655  M01S00128.282l826 +++|          SA7    RESB+RQPV+PVSI  SET VSN

Seq #  *Modification Id* Act 
----------------------------+
04656  M01S00501.274l797 +++|          LX3    59-58

Seq #  *Modification Id* Act 
----------------------------+
04657  M02S00502.282l826 ---|          LX4    59-56
04658  M02S00503.282l826 ---|          MX0    1
04659  M02S00504.282l826 ---|          BX6    X1+X2       MERGE EXTERNAL VSN AND ACCESS LEVEL
04660  M02S00505.282l826 ---|          BX5    X0*X3       LABELED FLAG
04661  M02S00506.282l826 ---|          BX4    X0*X4       VERIFY NON-TMS FLAG
04662  M02S00507.282l826 ---|          LX5    2-59
04663  M02S00508.282l826 ---|          LX4    23-59
04664  M02S00509.282l826 ---|          BX6    X6+X5       MERGE LABELED FLAG

Seq #  *Modification Id* Act 
----------------------------+
04665  M01S00129.282l826 +++|          BX2    X0*X2       TMS REQUEST FLAG
04666  M01S00130.282l826 +++|          BX4    X0*X3       LABELED FLAG
04667  M01S00131.282l826 +++|          LX2    21-59
04668  M01S00132.282l826 +++|          LX3    0-39-59+58

Seq #  *Modification Id* Act 
----------------------------+
04669  M01S00510.274l797 +++|          MX0    -2

Seq #  *Modification Id* Act 
----------------------------+
04670  M02S00511.282l826 ---|          BX6    X6+X4       MERGE VERIFY FLAG
04671  M02S00512.282l826 ---|          LX3    0-39-59+58

Seq #  *Modification Id* Act 
----------------------------+
04672  M01S00133.282l826 +++|          LX4    20-59

Seq #  *Modification Id* Act 
----------------------------+
04673  M01S00513.274l797 +++|          BX3    -X0*X3      PO = R, PO = W FLAGS

Seq #  *Modification Id* Act 
----------------------------+
04674  M02S00514.282l826 ---|          BX6    X6+X3       MERGE READ OR WRITE FLAG
04675  M02S00515.282l826 ---|          SA6    RESB+RQPF   SET FLAGS AND EXTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
04676  M01S00134.282l826 +++|          LX3    18-0
04677  M01S00135.282l826 +++|          BX3    X2+X3       MERGE TMS AND READ/WRITE FLAGS
04678  M01S00136.282l826 +++|          BX6    X3+X4       MERGE LABELED FLAG
04679  M01S00137.282l826 +++|          SA6    RESB+RQPV+PFLG  SET FLAGS

Seq #  *Modification Id* Act 
----------------------------+
04680  M01S00516.274l797 +++|
04681  M01S00517.274l797 +++|*         SET USER NAME, FAMILY ORDINAL, AND EJT ORDINAL.
04682  M01S00518.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04683  M02S00519.282l826 ---| SPI3     RJ     GFO         GET FAMILY ORDINAL
04684  M02S00520.282l826 ---|          SA1    SSJ=+/COMSSSJ/UIDS

Seq #  *Modification Id* Act 
----------------------------+
04685  M01S00138.282l826 +++| SPI4     SA1    SSJ=+/COMSSSJ/UIDS
04686  M01S00139.282l826 +++|          MX0    42
04687  M01S00140.282l826 +++|          BX1    X0*X1
04688  M01S00141.282l826 +++|          SA2    FAMO
04689  M01S00142.282l826 +++|          RJ     SFN         SPACE FILL USER NAME

Seq #  *Modification Id* Act 
----------------------------+
04690  M01S00521.274l797 +++|          SA3    JEEO

Seq #  *Modification Id* Act 
----------------------------+
04691  M02S00522.282l826 ---|          MX0    42
04692  M02S00523.282l826 ---|          LX7    12
04693  M02S00524.282l826 ---|          BX1    X0*X1       USER NAME
04694  M02S00525.282l826 ---|          BX6    X7+X1       MERGE USER NAME AND FAMILY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
04695  M01S00143.282l826 +++|          BX1    X0*X6       USER NAME
04696  M01S00144.282l826 +++|          LX2    12
04697  M01S00145.282l826 +++|          BX6    X1+X2       MERGE USER NAME AND FAMILY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
04698  M01S00526.274l797 +++|          BX6    X6+X3       MERGE EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
04699  M02S00527.282l826 ---|          SA6    RESB+RQPU   SET USER AND JOB INDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
04700  M01S00146.282l826 +++|          SA6    RESB+RQPV+PJID  SET USER AND JOB INDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
04701  M01S00528.274l797 +++|          EQ     SPIX        RETURN
04702  M00S02745.resex   +++|          TITLE  RESOURCE RESERVATION SUBROUTINES.
04703  M00S02746.resex   +++| RMT      SPACE  4,25
04704  M00S02747.resex   +++|**        RMT - REQUEST MAGNETIC TAPE.
04705  M00S02748.resex   +++|*
04706  M00S02749.resex   +++|*         ENTRY  (FET+10B) = TAPE DESCRIPTORS.
04707  M00S02750.resex   +++|*                (FET+11B - FET+15B) = LABEL DESCRIPTORS.
04708  M00S02751.resex   +++|*                (VA) = VSN ENTRY RANDOM ADDRESS, IF VSN ENTRY PRESENT.
04709  M00S02752.resex   +++|*                VSNB = VSN ENTRY FROM VSN FILE, IF (VA) .NE. 0.

Seq #  *Modification Id* Act 
----------------------------+
04710  M01S02753.282l826 ---|*                (VI) = VSN INDEX.
04711  M00S02754.resex   +++|*
04712  M00S02755.resex   +++|*         EXIT   TAPE ASSIGNED AND APPROPRIATELY OPENED.

Seq #  *Modification Id* Act 
----------------------------+
04713  M01S02756.v23l617 ---|*                TO *END1*, IF LABEL CONTROL STATEMENT PROCESSING.
04714  M01S02757.v23l617 ---|*                TO *END2*, IF NOT LABEL CONTROL STATEMENT PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
04715  M01S00035.v23l617 +++|*                TO *END1*, IF LABEL COMMAND PROCESSING.
04716  M01S00036.v23l617 +++|*                TO *END2*, IF NOT LABEL COMMAND PROCESSING.
04717  M00S02758.resex   +++|*                TO *PIT*, IF INTERRUPT DETECTED.
04718  M00S02759.resex   +++|*
04719  M00S02760.resex   +++|*         ERROR  TO *PER*, IF CONFLICTING RESOURCE TYPES.
04720  M00S02761.resex   +++|*
04721  M00S02762.resex   +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
04722  M00S02763.resex   +++|*                B - 2.
04723  M00S02764.resex   +++|*                X - ALL.
04724  M00S02765.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
04725  M01S02766.ns2161  ---|*         CALLS  BEV, BPD, COM, CUP, IDE, IVE, MVE, OPN, PRO, RDF,

Seq #  *Modification Id* Act 
----------------------------+
04726  M02S00070.274l797 ---|*         CALLS  BEV, BPD, COE, COM, CUP, IDE, IVE, MVE, OPN, PRO, RDF,

Seq #  *Modification Id* Act 
----------------------------+
04727  M02S02767.274l797 ---|*                ROA, UDF, VUR.

Seq #  *Modification Id* Act 
----------------------------+
04728  M02S00111.274l797 ---|*                ROA, UDF, VUR, WOA.

Seq #  *Modification Id* Act 
----------------------------+
04729  M02S00529.ns2770  ---|*         CALLS  BEV, BPD, COE, COM, CUP, GTM, IAM, IDE, IVE, MVE, OPN,

Seq #  *Modification Id* Act 
----------------------------+
04730  M03S00530.ns2770  ---|*                PRO, RDF, UDF, VUR, WOA.
04731  M03S00531.ns2770  ---|*                RDF, ROA, SDD, UDF, VUR, WOA.

Seq #  *Modification Id* Act 
----------------------------+
04732  M02S00147.ns2770  ---|*                PRO, RDF, SDD, UDF, VUR.

Seq #  *Modification Id* Act 
----------------------------+
04733  M01S00002.ns2770  +++|*         CALLS  BEV, BPD, COE, COM, CUP, GTM, IDE, IVE, MVE, OPN, PRO,
04734  M01S00003.ns2770  +++|*                RDF, SDD, UDF, VUR.
04735  M00S02768.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
04736  M01S02769.274l797 ---|*         MACROS INTRC, INTRP, MOVE, PDATE, RETRF.

Seq #  *Modification Id* Act 
----------------------------+
04737  M02S00532.282l826 ---|*         MACROS INTRC, INTRP, MOVE, RETRF.

Seq #  *Modification Id* Act 
----------------------------+
04738  M01S00148.282l826 +++|*         MACROS MOVE, RETRF, REWIND, SETFET.
04739  M00S02770.resex   +++|
04740  M00S02771.resex   +++|
04741  M00S02772.resex   +++| RMT      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04742  M01S00533.274l797 +++|          RJ     SDD         SET DEVICE TYPE AND DENSITY DISPLAY
04743  M00S02773.resex   +++|          RJ     IDE         INITIALIZE DEMAND ENTRY
04744  M00S02774.resex   +++|          RJ     RDF         READ DEMAND FILE ENTRY
04745  M00S02775.resex   +++|          SA1    /CPA/RFCW   GET DEMAND FILE RANDOM INDEX
04746  M00S02776.resex   +++|          SA5    DBUF+RNTP   GET *NT* RESOURCE DEMAND
04747  M00S02777.resex   +++|          MX3    -6
04748  M00S02778.resex   +++|          LX5    24
04749  M00S02779.resex   +++|          SX6    X1
04750  M00S02780.resex   +++|          BX5    -X3*X5
04751  M00S02781.resex   +++|          NZ     X6,RMT1     IF DEMAND ENTRY PRESENT
04752  M00S02782.resex   +++|          SX5    B0+         PREVENT RETURN OF DEMAND FILE
04753  M00S02783.resex   +++|          RJ     UDF         UPDATE DEMAND FILE
04754  M00S02784.resex   +++|          SX5    B0+         INDICATE NO *NT* DEMAND
04755  M00S02785.resex   +++| RMT1     RETRF  D           RETURN DEMAND FILE, RELEASE INTERLOCK
04756  M00S02786.resex   +++|          SA1    F+FTAP      BUILD RESOURCE TYPE AND INDEX

Seq #  *Modification Id* Act 
----------------------------+
04757  M01S02787.274l797 ---|          SX7    RMTP        INDICATE *MT* REQUEST
04758  M01S02788.274l797 ---|          LX1    59-56
04759  M01S02789.274l797 ---|          PL     X1,RMT3     IF *MT* REQUEST
04760  M01S02790.274l797 ---|          LX1    0-51-59+56  GET DENSITY

Seq #  *Modification Id* Act 
----------------------------+
04761  M01S00534.274l797 +++|          LX1    -55
04762  M01S00535.274l797 +++|          MX3    -2
04763  M01S00536.274l797 +++|          BX4    -X3*X1      DEVICE TYPE
04764  M01S00537.274l797 +++|          SA2    TTDV+X4
04765  M01S00538.274l797 +++|          SX3    X4-/COMSMTX/DVNT
04766  M01S00539.274l797 +++|          AX2    18
04767  M01S00540.274l797 +++|          SX7    X2          RESOURCE TYPE
04768  M01S00541.274l797 +++|          NZ     X3,RMT3     IF NOT *NT* REQUEST
04769  M01S00542.274l797 +++|          LX1    0-51+55     GET DENSITY
04770  M00S02791.resex   +++|          MX3    -3
04771  M00S02792.resex   +++|          BX3    -X3*X1
04772  M00S02793.resex   +++|          SX3    X3-/COMSMTX/D16
04773  M00S02794.resex   +++|          SX7    RHDP        INDICATE *HD* REQUEST
04774  M00S02795.resex   +++|          NG     X3,RMT2     IF *HD* REQUEST
04775  M00S02796.resex   +++|          SX7    RPEP        INDICATE *PE* REQUEST
04776  M00S02797.resex   +++|          ZR     X3,RMT2     IF *PE* REQUEST
04777  M00S02798.resex   +++|          SB2    /PER/CRT    * CONFLICTING RESOURCE TYPES.*
04778  M00S02799.resex   +++|          NZ     X5,PER      IF *GE* REQUEST WITH *NT* DEMANDS
04779  M00S02800.resex   +++|          SX7    RGEP        INDICATE *GE* REQUEST
04780  M00S02801.resex   +++| RMT2     SA7    OI          SAVE ORIGINAL NT TAPE DENSITY INDEX
04781  M00S02802.resex   +++|          ZR     X5,RMT3     IF NO *NT* DEMANDS
04782  M00S02803.resex   +++|          SX7    RNTP        INDICATE *NT* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04783  M01S02804.274l797 ---| RMT3     SA3    A1+B1       GET VSN

Seq #  *Modification Id* Act 
----------------------------+
04784  M01S00543.274l797 +++| RMT3     SA3    IVSN        GET INTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
04785  M01S02805.ns21000 ---|          SA2    RSXB+X7     GET RESOURCE IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
04786  M01S00484.ns21000 +++|          SA2    TRID-RMTP+X7  GET RESOURCE INDEX

Seq #  *Modification Id* Act 
----------------------------+
04787  M01S02806.274l797 ---|          MX1    36

Seq #  *Modification Id* Act 
----------------------------+
04788  M01S00544.274l797 +++|          SX4    X4-/COMSMTX/DVAT
04789  M01S00545.274l797 +++|          NZ     X4,RMT3.1   IF NOT *AT* REQUEST
04790  M01S00546.274l797 +++|          SA3    EVSN        USE EXTERNAL VSN FOR ACS REQUEST
04791  M01S00547.274l797 +++| RMT3.1   SA1    AL          REQUESTED ACCESS LEVEL
04792  M00S02807.resex   +++|          LX2    18

Seq #  *Modification Id* Act 
----------------------------+
04793  M01S02808.274l797 ---|          BX3    X1*X3

Seq #  *Modification Id* Act 
----------------------------+
04794  M02S02809.274l797 ---|          SX7    X7+100B     SET RESOURCE BYTE POINTER

Seq #  *Modification Id* Act 
----------------------------+
04795  M02S00233.274l797 ---|          SA1    AL          REQUESTED ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
04796  M01S00234.ns22000 +++|          SX1    X1+B1
04797  M01S00235.ns22000 +++|          LX1    6           POSITION TAPE BYTE POINTER
04798  M01S00236.ns22000 +++|          BX7    X1+X7       ENTER RESOURCE INDEX (RI)
04799  M00S02810.resex   +++|          SA7    RI          ENTER RESOURCE INDEX (RI)
04800  M00S02811.resex   +++|          SA1    F           SET VSN CALL FET
04801  M00S02812.resex   +++|          BX6    X3+X2
04802  M00S02813.resex   +++|          SA6    RQ          ENTER USER REQUEST (RQ)
04803  M00S02814.resex   +++|          BX7    X1
04804  M00S02815.resex   +++|          SA7    VF

Seq #  *Modification Id* Act 
----------------------------+
04805  M01S02816.274l797 ---|          PDATE  TM

Seq #  *Modification Id* Act 
----------------------------+
04806  M01S00548.274l797 +++|          RJ     GTM         GET CURRENT TIME
04807  M00S02817.resex   +++|
04808  M00S02818.resex   +++|*         GUARANTEE VSN ENTRY.
04809  M00S02819.resex   +++|
04810  M00S02820.resex   +++|          SA1    VA          CHECK ENTRY PRESENT
04811  M00S02821.resex   +++|          NZ     X1,RMT4     IF VSN ENTRY PRESENT
04812  M00S02822.resex   +++|          SA3    F
04813  M00S02823.resex   +++|          SB2    B1+
04814  M00S02824.resex   +++|          RJ     IVE         INITIALIZE VSN ENTRY
04815  M00S02825.resex   +++|          EQ     RMT5        UPDATE VSN FILE
04816  M00S02826.resex   +++|
04817  M00S02827.resex   +++| RMT4     MOVE   VSNL,VSNB,VSNE  MOVE VSN ENTRY TO WORKING BUFFER
04818  M00S02828.resex   +++| RMT5     SA1    RI          SET RESOURCE INDEX IN VSN ENTRY
04819  M00S02829.resex   +++|          SA2    VSNE+VDFI
04820  M00S02830.resex   +++|          LX1    24
04821  M00S02831.resex   +++|          BX6    X1+X2
04822  M00S02832.resex   +++|          SA6    A2+
04823  M00S02833.resex   +++|          RJ     MVE         CREATE OR REWRITE VSN ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04824  M01S02834.282l826 ---|          SA1    VSNE+VVSN   CHECK FOR EQUIVALENCED VSN
04825  M01S02835.282l826 ---|          MX6    -6
04826  M01S02836.282l826 ---|          BX6    -X6*X1
04827  M01S02837.282l826 ---|          SX1    X6-1R=

Seq #  *Modification Id* Act 
----------------------------+
04828  M02S02838.282l826 ---|          NZ     X1,RMT6     IF NOT EQUIVALENCED VSN

Seq #  *Modification Id* Act 
----------------------------+
04829  M02S00112.282l826 ---|          NZ     X1,RMT6.1   IF ONLY ONE VSN

Seq #  *Modification Id* Act 
----------------------------+
04830  M02S00001.282l826 ---|          SA2    TMPF        CHECK FOR NON-*TMS* TAPE
04831  M02S00002.282l826 ---|          LX2    59-58

Seq #  *Modification Id* Act 
----------------------------+
04832  M01S02839.282l826 ---|          LX6    18          SET EQUIVALENCED VSN FLAG
04833  M01S02840.282l826 ---|          SA6    EV

Seq #  *Modification Id* Act 
----------------------------+
04834  M03S00003.282l826 ---|          PL     X2,RMT6.1   IF NOT A *TMS* CONTROLLED TAPE

Seq #  *Modification Id* Act 
----------------------------+
04835  M02S00549.282l826 ---|          PL     X2,RMT6.1   IF NOT A *TMS* CONTROLLED REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04836  M02S00113.282l826 ---|          SA2    A1+B1       GET INTERNAL VSN
04837  M02S00114.282l826 ---|          MX0    36

Seq #  *Modification Id* Act 
----------------------------+
04838  M03S00115.282l826 ---|          BX2    X0*X2
04839  M03S00116.282l826 ---|          SA1    RQ

Seq #  *Modification Id* Act 
----------------------------+
04840  M02S00004.282l826 ---|          SA1    RQ
04841  M02S00005.282l826 ---|          BX2    X0*X2

Seq #  *Modification Id* Act 
----------------------------+
04842  M02S00117.282l826 ---|          BX6    -X0*X1
04843  M02S00118.282l826 ---|          BX6    X2+X6

Seq #  *Modification Id* Act 
----------------------------+
04844  M03S00119.282l826 ---|          SA6    A1+         STORE INTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
04845  M02S00006.282l826 ---|          SA6    A1          STORE INTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
04846  M02S00120.282l826 ---|          EQ     RMT6.1      SKIP UPDATE FROM DEMAND FILE
04847  M02S00121.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
04848  M03S00122.282l826 ---|*         CHECK FOR CHANGE OF SCRATCH TMS VSN.

Seq #  *Modification Id* Act 
----------------------------+
04849  M02S00039.282l826 ---|*         CHECK FOR CHANGE OF SCRATCH *TMS* VSN.

Seq #  *Modification Id* Act 
----------------------------+
04850  M02S00123.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
04851  M03S00124.282l826 ---| RMT6     SA1    TMPF        CHECK FOR NON-TMS TAPE

Seq #  *Modification Id* Act 
----------------------------+
04852  M02S00040.282l826 ---| RMT6     SA1    TMPF        CHECK FOR NON-*TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
04853  M02S00125.282l826 ---|          LX1    59-58

Seq #  *Modification Id* Act 
----------------------------+
04854  M03S00126.282l826 ---|          PL     X1,RMT6.1   IF NOT TMS CONTROLLED TAPE

Seq #  *Modification Id* Act 
----------------------------+
04855  M03S00041.282l826 ---|          PL     X1,RMT6.1   IF NOT *TMS* CONTROLLED TAPE

Seq #  *Modification Id* Act 
----------------------------+
04856  M02S00550.282l826 ---|          PL     X1,RMT6.1   IF NOT *TMS* CONTROLLED REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04857  M02S00127.282l826 ---|          RJ     RDF         READ DEMAND FILE
04858  M02S00128.282l826 ---|          SA1    DBUF+RQPD   GET INTERNAL VSN
04859  M02S00129.282l826 ---|          MX0    6*6
04860  M02S00130.282l826 ---|          BX7    X0*X1
04861  M02S00131.282l826 ---|          ZR     X7,RMT6.1   IF NO CHANGE IN VSN

Seq #  *Modification Id* Act 
----------------------------+
04862  M03S00132.282l826 ---|          SA1    RQ          REPLACE INTERNAL *VSN*
04863  M03S00133.282l826 ---|          BX1    -X0*X1
04864  M03S00134.282l826 ---|          BX6    X1+X7
04865  M03S00135.282l826 ---|          SA6    A1+
04866  M03S00136.282l826 ---|          SA1    F+FVSN      REPLACE VSN

Seq #  *Modification Id* Act 
----------------------------+
04867  M02S00551.282l826 ---|          SA1    RQ          REPLACE INTERNAL VSN
04868  M02S00552.282l826 ---|          SA7    IVSN

Seq #  *Modification Id* Act 
----------------------------+
04869  M02S00137.282l826 ---|          BX1    -X0*X1
04870  M02S00138.282l826 ---|          BX6    X1+X7
04871  M02S00139.282l826 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
04872  M03S00140.282l826 ---|          SA1    DBUF+RQCW   GET TMS VSN FROM PREVIEW BUFFER

Seq #  *Modification Id* Act 
----------------------------+
04873  M03S00042.282l826 ---|          SA1    DBUF+RQCW   GET *TMS* VSN FROM PREVIEW BUFFER

Seq #  *Modification Id* Act 
----------------------------+
04874  M02S00553.282l826 ---|          SA1    DBUF+RQPF   GET NEW EXTERNAL VSN
04875  M02S00554.282l826 ---|          SA2    VSNE+VVSN   REPLACE VSN IN VSN ENTRY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
04876  M02S00141.282l826 ---|          BX7    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
04877  M03S00142.282l826 ---|          SA1    VSNE+VVSN   REPLACE VSN IN VSN ENTRY BUFFER
04878  M03S00143.282l826 ---|          BX1    -X0*X1
04879  M03S00144.282l826 ---|          BX6    X1+X7
04880  M03S00145.282l826 ---|          SA6    A1
04881  M03S00146.282l826 ---|          SA1    T+FESN      REPLACE EXTERNAL VSN
04882  M03S00147.282l826 ---|          BX1    -X0*X1
04883  M03S00148.282l826 ---|          BX6    X1+X7
04884  M03S00149.282l826 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
04885  M02S00555.282l826 ---|          BX2    -X0*X2
04886  M02S00556.282l826 ---|          SA7    EVSN        UPDATE EXTERNAL VSN
04887  M02S00557.282l826 ---|          BX6    X2+X7
04888  M02S00558.282l826 ---|          SA6    A2
04889  M00S02841.resex   +++|
04890  M00S02842.resex   +++|*         EXERCISE OVERCOMMITMENT ALGORITHM.
04891  M00S02843.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04892  M01S02844.252l678 ---| RMT6     RJ     COM         CHECK FOR OVERCOMMITMENT

Seq #  *Modification Id* Act 
----------------------------+
04893  M02S00150.282l826 ---| RMT6.1   RJ     COM         CHECK FOR OVERCOMMITMENT

Seq #  *Modification Id* Act 
----------------------------+
04894  M03S00071.282l826 ---|          RJ     COE         CHECK FOR OFF EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04895  M02S00134.282l826 ---|          RJ     COE         CHECK FOR *OFF*/*DOWN* EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04896  M01S00149.282l826 +++| RMT6     RJ     COM         CHECK FOR OVERCOMMITMENT
04897  M00S02845.resex   +++|          SX5    X2-/STATUS/OK
04898  M00S02846.resex   +++|          ZR     X5,RMT12    IF PERMITTED TO ASSIGN AVAILABLE TAPE
04899  M00S02847.resex   +++|          SX5    /STATUS/OV

Seq #  *Modification Id* Act 
----------------------------+
04900  M01S02848.282l826 ---|          SA3    TEOV
04901  M00S02849.resex   +++|          BX5    X5*X2
04902  M00S02850.resex   +++|          NZ     X5,RMT9     IF OVERCOMMITMENT REJECTION

Seq #  *Modification Id* Act 
----------------------------+
04903  M01S02851.282l826 ---| RMT7     MX2    36

Seq #  *Modification Id* Act 
----------------------------+
04904  M01S00150.282l826 +++|          RJ     COE         CHECK *OFF*/*DOWN* EQUIPMENT
04905  M01S00151.282l826 +++|          NZ     X6,RMT7     IF *OFF*/*DOWN* EQUIPMENT REQUIRED
04906  M01S00152.282l826 +++|          RJ     CVA         CHECK VSN AVAILABILITY
04907  M01S00153.282l826 +++|          ZR     X6,RMT8     IF NO PREVIEW DISPLAY MESSAGE
04908  M01S00154.282l826 +++| RMT7     RJ     SPM         SET PREVIEW DISPLAY MESSAGE
04909  M01S00155.282l826 +++|
04910  M01S00156.282l826 +++|*         PROCESS MISSING VSN.
04911  M01S00157.282l826 +++|
04912  M01S00158.282l826 +++| RMT8     MX2    36

Seq #  *Modification Id* Act 
----------------------------+
04913  M01S02852.274l797 ---|          SA1    F+FVSN      BUILD MISSING VSN EVENT

Seq #  *Modification Id* Act 
----------------------------+
04914  M01S00559.274l797 +++|          SA1    RQ          BUILD MISSING VSN EVENT
04915  M00S02853.resex   +++|          BX1    X2*X1
04916  M00S02854.resex   +++|          SA3    TEMV
04917  M00S02855.resex   +++|          RJ     BEV
04918  M00S02856.resex   +++|          EQ     RMT10       CLEAN UP AND ROLLOUT
04919  M00S02857.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04920  M01S02858.282l826 ---| RMT8     SX7    /COMSMTX/DMT  DENSITY MISMATCH ERROR CODE
04921  M01S02859.282l826 ---|          RJ     VUR         SEND DENSITY MISMATCH CALL BLOCK TO MAGNET

Seq #  *Modification Id* Act 
----------------------------+
04922  M02S02860.282l826 ---|          SA3    DMVD        SET DENSITY MISMATCH EVENT DESCRIPTOR

Seq #  *Modification Id* Act 
----------------------------+
04923  M02S00026.282l826 ---|          SA1    AA
04924  M02S00027.282l826 ---|          NG     X1,RMT7     IF AUTOMATIC ASSIGNMENT
04925  M02S00028.282l826 ---|          SB2    /PER/DEC    * NT DENSITY CONFLICT.*

Seq #  *Modification Id* Act 
----------------------------+
04926  M03S00029.282l826 ---|          NZ     X1,PER      IF *ASSIGN* WITH UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
04927  M02S00237.282l826 ---|          NZ     X1,PER      IF *ASSIGN* WITH EST ORDINAL SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
04928  M02S00030.282l826 ---|          EQ     RMT10.1     REQUEST OPERATOR ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04929  M01S00159.282l826 +++|*         PROCESS OVERCOMMITMENT REJECTION.

Seq #  *Modification Id* Act 
----------------------------+
04930  M01S00031.resex4  +++|

Seq #  *Modification Id* Act 
----------------------------+
04931  M01S02861.282l826 ---| RMT9     BX7    X7-X7       CLEAR PREVIEW DATA

Seq #  *Modification Id* Act 
----------------------------+
04932  M01S00160.282l826 +++| RMT9     SA3    TEOV
04933  M01S00161.282l826 +++|          BX7    X7-X7       CLEAR MOUNT REQUEST
04934  M00S02862.resex   +++|          LX6    X3

Seq #  *Modification Id* Act 
----------------------------+
04935  M01S02863.282l826 ---|          SA7    RESB+RQPD

Seq #  *Modification Id* Act 
----------------------------+
04936  M01S00162.282l826 +++|          SA7    RESB+RREQ
04937  M01S00163.282l826 +++|
04938  M01S00164.282l826 +++|*         ROLL OUT ON MISSING VSN OR OVERCOMMITMENT.
04939  M01S00165.282l826 +++|
04940  M00S02864.resex   +++| RMT10    SA1    A3+B1       SAVE ROLLOUT MESSAGE ADDRESS
04941  M00S02865.resex   +++|          SA6    RE          SET ROLLOUT EVENT DESCRIPTOR
04942  M00S02866.resex   +++|          BX7    X1
04943  M00S02867.resex   +++|          SA7    RM
04944  M00S02868.resex   +++|          RJ     CUP         CLEAN UP REQUEST
04945  M00S02869.resex   +++|          SX5    RE          SET ROLLOUT DESCRIPTOR
04946  M00S02870.resex   +++|          SA1    RM          GET ROLLOUT MESSAGE ADDRESS
04947  M00S02871.resex   +++|          RJ     PRO         PROCESS TIMED EVENT ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
04948  M01S00166.282l826 +++|
04949  M01S00167.282l826 +++|*         INITIALIZE TO RECHECK FOR OVERCOMMITMENT.
04950  M01S00168.282l826 +++|

Seq #  *Modification Id* Act 
----------------------------+
04951  M01S02872.resex4  ---|          SA4    AA
04952  M01S02873.resex4  ---|          SX6    B0+
04953  M01S02874.resex4  ---|          PL     X4,RMT11    IF NOT AUTOMATIC ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04954  M01S00032.resex4  +++| RMT10.1  SA4    AA
04955  M01S00033.resex4  +++|          SB2    X4
04956  M01S00034.resex4  +++|          BX6    X6-X6

Seq #  *Modification Id* Act 
----------------------------+
04957  M02S00035.ns22000 ---|          GT     B2,RMT11    IF ASSIGN WITH UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
04958  M01S00238.ns22000 +++|          GT     B2,RMT11    IF *ASSIGN* WITH EST ORDINAL SPECIFIED
04959  M00S02875.resex   +++|          SA6    EQ          CLEAR EQUIPMENT ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04960  M01S02876.resex4  ---| RMT11    NZ     X4,RMT6     IF NOT OPERATOR ASSIGNMENT
04961  M01S02877.resex4  ---|          RJ     ROA         RE-REQUEST OPERATOR ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04962  M02S00036.282l826 ---|          NG     B2,RMT6     IF AUTOMATIC ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04963  M01S00169.282l826 +++|          NG     B2,RMT11.1  IF AUTOMATIC ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04964  M01S00037.resex4  +++| RMT11    SA1    RQ          CLEAR VSN
04965  M01S00038.resex4  +++|          MX6    -24
04966  M01S00039.resex4  +++|          BX6    -X6*X1
04967  M01S00040.resex4  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
04968  M01S00170.282l826 +++| RMT11.1  RJ     CCV         CHECK FOR CHANGE OF TMS REQUEST VSN
04969  M00S02878.resex   +++|          EQ     RMT6        CHECK FOR OVERCOMMITMENT
04970  M00S02879.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04971  M01S02880.282l826 ---|*         VALIDATE UNIT REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
04972  M01S00171.282l826 +++|*         ASSIGN UNIT.
04973  M00S02881.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04974  M01S02882.282l826 ---| RMT12    BX7    X7-X7       ASSIGN UNIT
04975  M01S02883.282l826 ---|          RJ     VUR
04976  M01S02884.282l826 ---|          ZR     X1,RMT13    IF ASSIGNMENT MADE
04977  M01S02885.282l826 ---|          NG     X1,RMT8     IF DENSITY MISMATCH
04978  M01S02886.282l826 ---|          SA2    AA
04979  M01S02887.282l826 ---|          SA3    TEOV        SET OVERCOMMITMENT REJECTION

Seq #  *Modification Id* Act 
----------------------------+
04980  M01S00172.282l826 +++| RMT12    RJ     VUR         VERIFY UNIT REQUEST
04981  M01S00173.282l826 +++|          ZR     X6,RMT13    IF UNIT ASSIGNED
04982  M00S02888.resex   +++|          ZR     X2,RMT9     IF OPERATOR ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04983  M01S02889.282l826 ---|          EQ     RMT7        SET MISSING VSN EVENT

Seq #  *Modification Id* Act 
----------------------------+
04984  M01S00174.282l826 +++|          EQ     RMT8        SET MISSING VSN EVENT
04985  M00S02890.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04986  M01S02891.282l826 ---|*         UPDATE DEMAND FILE.
04987  M01S02892.282l826 ---|
04988  M01S02893.282l826 ---| RMT13    BX6    X6-X6       CLEAR PREVIEW DATA
04989  M01S02894.282l826 ---|          MX5    0           SET NO RETURN OF DEMAND FILE
04990  M01S02895.282l826 ---|          SA6    RESB+RQPD
04991  M01S02896.282l826 ---|          RJ     UDF         UPDATE DEMAND FILE
04992  M01S02897.282l826 ---|          INTRC  ON          REENABLE INTERRUPT
04993  M01S02898.282l826 ---|          INTRP  PIT         PROCESS INTERRUPT
04994  M01S02899.282l826 ---|          RJ     BPD         BUILD PREVIEW DISPLAY

Seq #  *Modification Id* Act 
----------------------------+
04995  M02S00151.282l826 ---|          RJ     WOA         WAIT FOR OPERATOR ACTION

Seq #  *Modification Id* Act 
----------------------------+
04996  M01S00175.282l826 +++| RMT13    RJ     BPD         BUILD PREVIEW DISPLAY

Seq #  *Modification Id* Act 
----------------------------+
04997  M02S00176.ns2770  ---|          SETFET F,ERP=E     SET ERROR PROCESSING
04998  M02S00177.ns2770  ---|          REWIND F,R         REWIND TO INITIATE LABEL CHECK
04999  M02S00178.ns2770  ---|          RJ     CER         CHECK ERROR AND CLEAR ERROR PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
05000  M03S00152.ns2770  ---|          MESSAGE VURE       ISSUE *MTXXX ASSIGNED TO FILE, VSN=VVVVVV*

Seq #  *Modification Id* Act 
----------------------------+
05001  M02S00560.ns2770  ---|          RJ     IAM         ISSUE TAPE ASSIGNMENT MESSAGE
05002  M00S02900.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
05003  M01S02901.ns2770  ---|*         OPEN FILE.

Seq #  *Modification Id* Act 
----------------------------+
05004  M01S00004.ns2770  +++|*         OPEN OR REWIND FILE.  MAGNET COMPLETES THE TAPE ASSIGNMENT ON
05005  M01S00005.ns2770  +++|*         RECEIPT OF THE FIRST *CIO* REQUEST.  IF AN UNLABELED TMS
05006  M01S00006.ns2770  +++|*         SCRATCH TAPE IS BEING ASSIGNED, AN EOF WILL BE WRITTEN TO
05007  M01S00007.ns2770  +++|*         PREVENT A READ OF PREVIOUSLY WRITTEN DATA.
05008  M00S02902.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
05009  M01S02903.274l797 ---|          SA2    CF          CHECK EXTERNAL CALL FLAG

Seq #  *Modification Id* Act 
----------------------------+
05010  M01S00561.274l797 +++|          SA2    CF          CHECK CALL TYPE

Seq #  *Modification Id* Act 
----------------------------+
05011  M01S02904.v23l617 ---|          SA1    RT          CHECK CONTROL CARD TYPE

Seq #  *Modification Id* Act 
----------------------------+
05012  M01S00037.v23l617 +++|          SA1    RT          CHECK COMMAND TYPE
05013  M00S02905.resex   +++|          NZ     X2,RMT14    IF *LFM* OR *REQ* CALL

Seq #  *Modification Id* Act 
----------------------------+
05014  M01S02906.v23l617 ---|          NZ     X1,END2     IF NOT *LABEL* CONTROL CARD

Seq #  *Modification Id* Act 
----------------------------+
05015  M02S00038.ns2770  ---|          NZ     X1,END2     IF NOT *LABEL* COMMAND

Seq #  *Modification Id* Act 
----------------------------+
05016  M01S00008.ns2770  +++|          NZ     X1,RMT15    IF NOT *LABEL* COMMAND
05017  M00S02907.resex   +++| RMT14    RJ     OPN         OPEN FILE

Seq #  *Modification Id* Act 
----------------------------+
05018  M01S02908.ns2770  ---|          EQ     END1        SET OK STATUS AND CHECKPOINT

Seq #  *Modification Id* Act 
----------------------------+
05019  M01S00009.ns2770  +++|          NZ     X6,END1     IF FILE OPENED
05020  M01S00010.ns2770  +++| RMT15    SETFET F,ERP=E     SET ERROR PROCESSING
05021  M01S00011.ns2770  +++|          SA1    TMPF
05022  M01S00012.ns2770  +++|          LX1    59-57
05023  M01S00013.ns2770  +++|          PL     X1,RMT16    IF NOT TMS SCRATCH TAPE ASSIGNMENT
05024  M01S00014.ns2770  +++|          WRITEF F,R         INHIBIT READ OF UNLABELED TAPE
05025  M01S00015.ns2770  +++|          RJ     CER         CHECK ERROR
05026  M01S00016.ns2770  +++| RMT16    REWIND F,R         REWIND TO COMPLETE ASSIGNMENT
05027  M01S00017.ns2770  +++|          RJ     CER         CHECK ERROR
05028  M01S00018.ns2770  +++|          SETFET F,ERP=0     CLEAR ERROR PROCESSING
05029  M01S00019.ns2770  +++|          EQ     END1        PROCESS TERMINATION
05030  M00S02909.resex   +++| RRP      SPACE  4,20
05031  M00S02910.resex   +++|**        RRP - REQUEST REMOVABLE PACK.
05032  M00S02911.resex   +++|*
05033  M00S02912.resex   +++|*         ENTRY  USER RESOURCE REQUEST WORDS ARE BUILT (RQ - TM).
05034  M00S02913.resex   +++|*
05035  M00S02914.resex   +++|*         EXIT   PACK ASSIGNED.
05036  M00S02915.resex   +++|*                TO *END4*, IF NOT OVERCOMMITMENT.
05037  M00S02916.resex   +++|*                TO *PIT*, IF INTERRUPT DETECTED.
05038  M00S02917.resex   +++|*
05039  M00S02918.resex   +++|*         ERROR  TO *PER*, IF PACK OVERCOMMITMENT ERROR.
05040  M00S02919.resex   +++|*
05041  M00S02920.resex   +++|*         USES   A - 1, 3, 6, 7.
05042  M00S02921.resex   +++|*                B - 2.
05043  M00S02922.resex   +++|*                X - 0, 1, 3, 5, 6, 7.
05044  M00S02923.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05045  M01S02924.ns2161  ---|*         CALLS  BEV, COM, CUP, IDE, PRO, RDF, UDF.

Seq #  *Modification Id* Act 
----------------------------+
05046  M02S00072.282l826 ---|*         CALLS  BEV, COE, COM, CUP, IDE, PRO, RDF, UDF.

Seq #  *Modification Id* Act 
----------------------------+
05047  M01S00179.282l826 +++|*         CALLS  BEV, COE, COM, CUP, IDE, PRO, RDF, SPM, UDF.
05048  M00S02925.resex   +++|*
05049  M00S02926.resex   +++|*         MACROS INTRC.
05050  M00S02927.resex   +++|
05051  M00S02928.resex   +++|
05052  M00S02929.resex   +++| RRP      BSS    0           ENTRY
05053  M00S02930.resex   +++|          SA1    /CPA/RFCW   CHECK FOR DEMAND FILE ENTRY
05054  M00S02931.resex   +++|          SX5    X1
05055  M00S02932.resex   +++|          NZ     X5,RRP1     IF DEMAND FILE PRESENT
05056  M00S02933.resex   +++|          RJ     IDE         INITIALIZE DEMAND ENTRY
05057  M00S02934.resex   +++|          RJ     RDF         READ DEMAND FILE
05058  M00S02935.resex   +++|          SX5    B1          SET RETURN DEMAND FILE FLAG
05059  M00S02936.resex   +++|          RJ     UDF         UPDATE DEMAND FILE ENTRY
05060  M00S02937.resex   +++|
05061  M00S02938.resex   +++|*         EXERCISE OVERCOMMITMENT ALGORITHM.
05062  M00S02939.resex   +++|
05063  M00S02940.resex   +++| RRP1     RJ     COM         CHECK FOR OVERCOMMITMENT

Seq #  *Modification Id* Act 
----------------------------+
05064  M02S00073.ns2529  ---|          RJ     COE         CHECK FOR OFF EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
05065  M02S00135.282l826 ---|          RJ     COE         CHECK FOR *OFF*/*DOWN* EQUIPMENT
05066  M00S02941.resex   +++|          SA1    SFET+FDTY   READ FET DETAILS
05067  M00S02942.resex   +++|          SX5    X2-/STATUS/OK
05068  M00S02943.resex   +++|          SX4    /STATUS/OV
05069  M00S02944.resex   +++|          ZR     X5,RRP4     IF PERMITTED TO ACCESS AVAILABLE PACK
05070  M00S02945.resex   +++|          LX1    59-44
05071  M00S02946.resex   +++|          BX5    X4*X2
05072  M00S02947.resex   +++|          PL     X1,RRP4     IF EP BIT ZERO
05073  M00S02948.resex   +++|          SA3    PEOV
05074  M00S02949.resex   +++|          NZ     X5,RRP2     IF OVERCOMMITMENT REJECTION

Seq #  *Modification Id* Act 
----------------------------+
05075  M01S02950.282l826 ---|          SA3    PEMV        BUILD MISSING PACKNAME EVENT

Seq #  *Modification Id* Act 
----------------------------+
05076  M01S00180.282l826 +++|          RJ     COE         CHECK FOR *OFF*/*DOWN* EQUIPMENT
05077  M01S00181.282l826 +++|          ZR     X6,RRP1.1   IF *OFF*/*DOWN* EQUIPMENT NOT REQUIRED
05078  M01S00182.282l826 +++|          RJ     SPM         SET PREVIEW DISPLAY MESSAGE
05079  M01S00183.282l826 +++| RRP1.1   SA3    PEMV        BUILD MISSING PACKNAME EVENT
05080  M00S02951.resex   +++|          SA1    RQ
05081  M00S02952.resex   +++|          MX0    42
05082  M00S02953.resex   +++|          BX1    X0*X1
05083  M00S02954.resex   +++|          RJ     BEV
05084  M00S02955.resex   +++|          EQ     RRP3        CLEAN UP AND ROLLOUT
05085  M00S02956.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
05086  M01S02957.282l826 ---| RRP2     BX7    X7-X7       CLEAR PREVIEW DATA

Seq #  *Modification Id* Act 
----------------------------+
05087  M01S00184.282l826 +++| RRP2     BX7    X7-X7       CLEAR MOUNT REQUEST
05088  M00S02958.resex   +++|          LX6    X3

Seq #  *Modification Id* Act 
----------------------------+
05089  M01S02959.282l826 ---|          SA7    RESB+RQPD

Seq #  *Modification Id* Act 
----------------------------+
05090  M01S00185.282l826 +++|          SA7    RESB+RREQ
05091  M00S02960.resex   +++| RRP3     SA1    A3+B1       SAVE ROLLOUT MESSAGE ADDRESS
05092  M00S02961.resex   +++|          SA6    RE          SET ROLLOUT EVENT DESCRIPTOR
05093  M00S02962.resex   +++|          BX7    X1
05094  M00S02963.resex   +++|          SA7    RM
05095  M00S02964.resex   +++|          RJ     CUP         CLEAN UP REQUEST
05096  M00S02965.resex   +++|          SX5    RE          SET ROLLOUT DESCRIPTOR
05097  M00S02966.resex   +++|          SA1    RM          GET ROLLOUT MESSAGE ADDRESS
05098  M00S02967.resex   +++|          RJ     PRO         PROCESS TIMED EVENT ROLLOUT
05099  M00S02968.resex   +++|          EQ     RRP1        REPEAT ALGORITHM
05100  M00S02969.resex   +++|
05101  M00S02970.resex   +++| RRP4     LX7    X2          SET RETURN STATUS
05102  M00S02971.resex   +++|          BX4    X4-X2
05103  M00S02972.resex   +++|          LX7    24

Seq #  *Modification Id* Act 
----------------------------+
05104  M01S02973.282l826 ---|          BX6    X6-X6       CLEAR PREVIEW DATA

Seq #  *Modification Id* Act 
----------------------------+
05105  M01S00186.282l826 +++|          BX6    X6-X6       CLEAR MOUNT REQUEST
05106  M00S02974.resex   +++|          SA7    SPPR

Seq #  *Modification Id* Act 
----------------------------+
05107  M01S02975.282l826 ---|          SA6    RESB+RQPD

Seq #  *Modification Id* Act 
----------------------------+
05108  M01S00187.282l826 +++|          SA6    RESB+RREQ
05109  M00S02976.resex   +++|          SX6    -2
05110  M00S02977.resex   +++|          NZ     X4,RRP5     IF NOT ONLY OVERCOMMITMENT
05111  M00S02978.resex   +++|          SB2    /PER/RPO    * REMOVABLE PACKS OVERCOMMITMENT.*
05112  M00S02979.resex   +++|          EQ     PER         PROCESS ERROR
05113  M00S02980.resex   +++|
05114  M00S02981.resex   +++| RRP5     INTRC  OFF         DISABLE INTERRUPT
05115  M00S02982.resex   +++|          SA6    UCRI        INDICATE CLEAN-UP REQUIRED IF INTERRUPT
05116  M00S02983.resex   +++|          EQ     END4        UPDATE DEMAND FILE

Seq #  *Modification Id* Act 
----------------------------+
05117  M01S00562.274l797 +++| RRS      SPACE  4,10
05118  M01S00563.274l797 +++|**        RRS - REQUEST RESOURCES.
05119  M01S00564.274l797 +++|*
05120  M01S00565.274l797 +++|*         EXIT   TO *END4* IF NO ERROR.
05121  M01S00566.274l797 +++|*                TO *PER* IF ERROR.
05122  M01S00567.274l797 +++|*
05123  M01S00568.274l797 +++|*         USES   X - 1, 2.
05124  M01S00569.274l797 +++|*                A - 1.
05125  M01S00570.274l797 +++|*                B - 2.
05126  M01S00571.274l797 +++|*
05127  M01S00572.274l797 +++|*         CALLS  BRE, BSF, CIC, DEI, OCA, PMM.
05128  M01S00573.274l797 +++|
05129  M01S00574.274l797 +++|
05130  M01S00575.274l797 +++| RRS      BSS    0           ENTRY
05131  M01S00576.274l797 +++|          RJ     CRV         CHECK RESOURCE VALIDATION
05132  M01S00577.274l797 +++|          RJ     DEI         DEMAND EXCEEDS INSTALLATION CHECK
05133  M01S00578.274l797 +++|          SA1    RESB+RVAL   GET TOTAL ASSIGNED COUNT
05134  M01S00579.274l797 +++|          MX2    -12
05135  M01S00580.274l797 +++|          LX1    -12
05136  M01S00581.274l797 +++|          BX1    -X2*X1
05137  M01S00582.274l797 +++|          ZR     X1,END4     IF NO ASSIGNED UNITS
05138  M01S00583.274l797 +++|          RJ     CIC         CHECK FOR INTERNAL CONFLICT
05139  M01S00584.274l797 +++|          SB2    /PER/DRC    * NT DRIVE CONFLICT.*
05140  M01S00585.274l797 +++|          NZ     X2,PER      IF 9 TRACK DRIVE CONFLICT
05141  M01S00586.274l797 +++|          RJ     BSF         BUILD SCRATCH FILE
05142  M01S00587.274l797 +++|          RJ     OCA         CHECK FOR OVERCOMMITMENT
05143  M01S00588.274l797 +++|          NZ     X5,END4     IF NO OVERCOMMITMENT
05144  M01S00589.274l797 +++|          SB2    /PER/RDE    * RESOURCE DEMAND ERROR.*
05145  M01S00590.274l797 +++|          EQ     PER         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
05146  M01S02984.274l797 ---| ROA      SPACE  4,25

Seq #  *Modification Id* Act 
----------------------------+
05147  M01S00591.274l797 +++| ROA      SPACE  4,30
05148  M00S02985.resex   +++|**        ROA - REQUEST OPERATOR ASSIGNMENT.
05149  M00S02986.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05150  M01S02987.274l797 ---|*         ENTRY  (X4) = 0, IF REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT.
05151  M01S02988.274l797 ---|*                (X4) = 1, IF REQUEST OPERATOR SELECTION ON DUPLICATE
05152  M01S02989.274l797 ---|*                     VSN.
05153  M01S02990.274l797 ---|*                *MT* OR *NT* DEVICE TYPE IN FET+1 IF TAPE EQUIPMENT
05154  M01S02991.274l797 ---|*                REQUIRED, OTHERWISE DEVICE TYPE ZERO.

Seq #  *Modification Id* Act 
----------------------------+
05155  M01S00592.274l797 +++|*         ENTRY  (X4) = 0 IF REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT.
05156  M01S00593.274l797 +++|*                (X4) = 1 IF REQUEST OPERATOR ASSIGNMENT ON DUPLICATE
05157  M01S00594.274l797 +++|*                         VSN OR VERIFICATION OF NON-TMS TAPE REQUEST.
05158  M01S00595.274l797 +++|*
05159  M01S00596.274l797 +++|*                TAPE DEVICE MNEMONIC IN FET+1 IF TAPE EQUIPMENT
05160  M01S00597.274l797 +++|*                  REQUIRED, OTHERWISE DEVICE TYPE ZERO.
05161  M00S02992.resex   +++|*
05162  M00S02993.resex   +++|*         EXIT   (X4) = DEVICE TYPE OF EQUIPMENT ASSIGNED.

Seq #  *Modification Id* Act 
----------------------------+
05163  M01S02994.ns22000 ---|*                (EQ) = OPERATOR ASSIGNED EQUIPMENT, IF *MT* OR *NT*.

Seq #  *Modification Id* Act 
----------------------------+
05164  M02S00239.274l797 ---|*                (EQ) = OPERATOR ASSIGNED EST ORDINAL, IF *MT*
05165  M02S00240.274l797 ---|*                       OR *NT*.

Seq #  *Modification Id* Act 
----------------------------+
05166  M01S00598.274l797 +++|*                (EQ) = OPERATOR ASSIGNED EST ORDINAL, IF TAPE DEVICE.
05167  M01S00599.274l797 +++|*                OPERATOR VERIFY FLAG CLEARED IN *TMPF*.
05168  M00S02995.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05169  M01S02996.274l797 ---|*         FOR OPERATOR SELECTION ON DUPLICATE VSN, THE REQUIRED VSN
05170  M01S02997.274l797 ---|*         (FROM RQ) WILL BE SET IN FET+9.
05171  M00S02998.resex   +++|*         FOR *NT* REQUEST, DISPLAY CODE FOR DENSITY (*HD*, *PE*,

Seq #  *Modification Id* Act 
----------------------------+
05172  M01S02999.274l797 ---|*         OR *GE*) WILL BE SET IN FET+1 BITS 24-35.

Seq #  *Modification Id* Act 
----------------------------+
05173  M01S00600.274l797 +++|*           OR *GE*) WILL BE SET IN FET+1 BITS 24-35.
05174  M00S03000.resex   +++|*         FET+7 BITS 54-59 IS THE CHECKPOINT ID FIELD FROM A
05175  M00S03001.resex   +++|*         *LABEL* MACRO CALL OR IS ZERO IN ALL OTHER CASES.
05176  M00S03002.resex   +++|*         DEVICE TYPE OF EQUIPMENT ASSIGNED IS RETURNED IN FET+1.

Seq #  *Modification Id* Act 
----------------------------+
05177  M01S03003.274l797 ---|*         FOR *MT* AND *NT* ASSIGNMENTS, EQUIPMENT EST ORDINAL IS
05178  M01S03004.274l797 ---|*         RETURNED IN FET+1 BITS 24-29.

Seq #  *Modification Id* Act 
----------------------------+
05179  M01S00601.274l797 +++|*         FOR TAPE EQUIPMENT ASSIGNMENTS, EQUIPMENT EST ORDINAL IS
05180  M01S00602.274l797 +++|*           RETURNED IN FET+1 BITS 24-29.
05181  M00S03005.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05182  M01S03006.282l826 ---|*         USES   A - 1, 2, 3, 6, 7.
05183  M01S03007.282l826 ---|*                X - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
05184  M01S00188.282l826 +++|*         USES   A - 1, 2, 7.
05185  M01S00189.282l826 +++|*                X - 1, 2, 4, 7.

Seq #  *Modification Id* Act 
----------------------------+
05186  M01S00153.252l678 +++|*

Seq #  *Modification Id* Act 
----------------------------+
05187  M02S00154.274l797 ---|*         CALLS  CUC.

Seq #  *Modification Id* Act 
----------------------------+
05188  M01S00603.274l797 +++|*         CALLS  COV, CUC.
05189  M00S03008.resex   +++|*
05190  M00S03009.resex   +++|*         MACROS ROAE, SETRNR.
05191  M00S03010.resex   +++|
05192  M00S03011.resex   +++|
05193  M00S03012.resex   +++| ROA      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
05194  M01S03013.274l797 ---|          SA1    RQ          CLEAR VSN FROM USER REQUEST
05195  M01S03014.274l797 ---|          MX2    -24
05196  M01S03015.274l797 ---|          BX7    -X2*X1
05197  M01S03016.274l797 ---|          ZR     X4,ROA1     IF OPERATOR ASSIGNMENT OF EQUIPMENT
05198  M01S03017.274l797 ---|          SA3    F+FVSN      ENTER VSN REQUIRED IN FET
05199  M01S03018.274l797 ---|          BX7    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
05200  M02S00001.274l797 ---|          MX2    -18

Seq #  *Modification Id* Act 
----------------------------+
05201  M01S03019.274l797 ---|          BX2    -X2*X3
05202  M01S03020.274l797 ---|          BX7    X7+X2
05203  M01S03021.274l797 ---| ROA1     SA2    DD          GET 9-TRACK RESOURCE DENSITY DISPLAY

Seq #  *Modification Id* Act 
----------------------------+
05204  M02S00604.282l826 ---|          SA2    DD          GET 9-TRACK RESOURCE DENSITY DISPLAY

Seq #  *Modification Id* Act 
----------------------------+
05205  M01S03022.282l826 ---|          ZR     X2,ROA2     IF NOT 9-TRACK REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05206  M02S03023.282l826 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
05207  M01S03024.282l826 ---|          SA1    F+FDTY      ENTER *HD*, *PE*, OR *GE* DISPLAY IN FET

Seq #  *Modification Id* Act 
----------------------------+
05208  M01S00190.282l826 +++|          SA1    F+FDTY
05209  M01S00191.282l826 +++|          SA2    RMN
05210  M00S03025.resex   +++|          MX7    48
05211  M00S03026.resex   +++|          LX1    -24
05212  M00S03027.resex   +++|          BX7    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
05213  M01S03028.282l826 ---|          BX7    X7+X2

Seq #  *Modification Id* Act 
----------------------------+
05214  M01S00192.282l826 +++|          BX7    X7+X2       SET RESOURCE MNEMONIC IN FET
05215  M00S03029.resex   +++|          LX7    24

Seq #  *Modification Id* Act 
----------------------------+
05216  M01S03030.274l797 ---| ROA2     SA7    A1
05217  M01S03031.274l797 ---|          SETRNR OPROLL      ALLOW OPERATOR ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
05218  M02S00605.282l826 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
05219  M01S00193.282l826 +++|          SA7    A1+

Seq #  *Modification Id* Act 
----------------------------+
05220  M01S00606.274l797 +++| ROA2     SETRNR OPROLL      ALLOW OPERATOR ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
05221  M01S00155.252l678 +++|          SA1    SSJ=+/COMSSSJ/UIDS
05222  M01S00156.252l678 +++|          RJ     CUC         CHANGE USER NAME IN CONTROL POINT AREA
05223  M00S03032.resex   +++|          ROAE   F,X4        REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
05224  M01S00157.252l678 +++|          SA1    =0LSYSTEMX
05225  M01S00158.252l678 +++|          RJ     CUC         CHANGE USER NAME IN CONTROL POINT AREA
05226  M00S03033.resex   +++|          SETRNR NOROLL      PREVENT JOB ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
05227  M02S00159.274l797 ---|          MX7    1           CLEAR VALIDATION REQUIRED FLAG
05228  M02S00160.274l797 ---|          SA1    TMPF
05229  M02S00161.274l797 ---|          LX7    56-59
05230  M02S00162.274l797 ---|          BX7    -X7*X1
05231  M02S00163.274l797 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
05232  M01S00607.274l797 +++|          RJ     COV         CLEAR OPERATOR VERIFY FLAG

Seq #  *Modification Id* Act 
----------------------------+
05233  M01S03034.ns22000 ---|          SA1    F+FDTY      GET DEVICE TYPE AND EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
05234  M01S00241.ns22000 +++|          SA1    F+FDTY      GET EQUIPMENT TYPE AND EST ORDINAL
05235  M00S03035.resex   +++|          MX2    -11
05236  M00S03036.resex   +++|          LX1    12
05237  M00S03037.resex   +++|          BX4    -X2*X1

Seq #  *Modification Id* Act 
----------------------------+
05238  M01S03038.ns22000 ---|          LX1    18
05239  M01S03039.ns22000 ---|          MX2    6

Seq #  *Modification Id* Act 
----------------------------+
05240  M01S00242.ns22000 +++|          LX1    12
05241  M01S00243.ns22000 +++|          MX2    12
05242  M00S03040.resex   +++|          BX7    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
05243  M02S00485.ns22000 ---|          LX7    -6
05244  M00S03041.resex   +++|          SA7    EQ
05245  M00S03042.resex   +++|          EQ     ROAX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
05246  M02S00608.282l826 ---| SDD      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
05247  M01S00194.282l826 +++| SDD      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
05248  M01S00609.274l797 +++|**        SDD - SET DEVICE TYPE AND DENSITY DISPLAY.
05249  M01S00610.274l797 +++|*
05250  M01S00611.274l797 +++|*         ENTRY  (F+FTAP) = CONVERTED TAPE DESCRIPTORS.
05251  M01S00612.274l797 +++|*
05252  M01S00613.274l797 +++|*         EXIT   (F+FDTY) = TAPE DEVICE TYPE SET IN BITS 48-59.

Seq #  *Modification Id* Act 
----------------------------+
05253  M02S00614.282l826 ---|*                (DD) = DISPLAY CODE FOR REQUIRED DENSITY (*HD*, *PE*,
05254  M02S00615.282l826 ---|*                  OR *GE*), IF *NT* EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
05255  M01S00195.282l826 +++|*                (RMN) = RESOURCE TYPE MNEMONIC.

Seq #  *Modification Id* Act 
----------------------------+
05256  M01S00616.274l797 +++|*
05257  M01S00617.274l797 +++|*         USES   X - 0, 1, 2, 3, 6.
05258  M01S00618.274l797 +++|*                A - 1, 2, 3, 6.
05259  M01S00619.274l797 +++|*                B - 2.
05260  M01S00620.274l797 +++|
05261  M01S00621.274l797 +++|
05262  M01S00622.274l797 +++| SDD      SUBR               ENTRY/EXIT
05263  M01S00623.274l797 +++|
05264  M01S00624.274l797 +++|*         GET TAPE DEVICE TYPE AND SET MNEMONIC IN ASSIGNMENT FET.
05265  M01S00625.274l797 +++|
05266  M01S00626.274l797 +++|          SA1    F+FTAP
05267  M01S00627.274l797 +++|          SA2    F+FDTY
05268  M01S00628.274l797 +++|          MX0    -2
05269  M01S00629.274l797 +++|          LX1    0-55
05270  M01S00630.274l797 +++|          BX6    -X0*X1      TAPE DEVICE TYPE
05271  M01S00631.274l797 +++|          SB2    X6
05272  M01S00632.274l797 +++|          SA3    TTDV+X6
05273  M01S00633.274l797 +++|          MX0    -48
05274  M01S00634.274l797 +++|          SX3    X3          DEVICE MNEMONIC
05275  M01S00635.274l797 +++|          BX2    -X0*X2
05276  M01S00636.274l797 +++|          LX3    -12
05277  M01S00637.274l797 +++|          BX6    X3+X2

Seq #  *Modification Id* Act 
----------------------------+
05278  M01S00196.282l826 +++|          LX3    12

Seq #  *Modification Id* Act 
----------------------------+
05279  M01S00638.274l797 +++|          SA6    A2+
05280  M01S00639.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
05281  M02S00640.282l826 ---|*         SET DENSITY DISPLAY IF 9 TRACK REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
05282  M01S00197.282l826 +++|*         SET RESOURCE TYPE MNEMONIC.

Seq #  *Modification Id* Act 
----------------------------+
05283  M01S00641.274l797 +++|
05284  M01S00642.274l797 +++|          LX1    0-51-0+55
05285  M01S00643.274l797 +++|          MX0    -3
05286  M01S00644.274l797 +++|          BX2    -X0*X1      DENSITY
05287  M01S00645.274l797 +++|          SX6    B2-/COMSMTX/DVNT

Seq #  *Modification Id* Act 
----------------------------+
05288  M02S00646.282l826 ---|          NZ     X6,SDDX     IF NOT *NT* DEVICE TYPE
05289  M02S00647.282l826 ---|          SA3    TSDD+X2-/COMSMTX/D08  GET *NT* DENSITY DISPLAY
05290  M02S00648.282l826 ---|          BX6    X3
05291  M02S00649.282l826 ---|          SA6    DD

Seq #  *Modification Id* Act 
----------------------------+
05292  M01S00198.282l826 +++|          NZ     X6,SDD1     IF NOT *NT* DEVICE TYPE
05293  M01S00199.282l826 +++|          SA3    TSDD+X2-/COMSMTX/D08  GET *NT* DENSITY MNEMONIC
05294  M01S00200.282l826 +++| SDD1     BX6    X3
05295  M01S00201.282l826 +++|          SA6    RMN

Seq #  *Modification Id* Act 
----------------------------+
05296  M01S00650.274l797 +++|          EQ     SDDX        RETURN
05297  M01S00651.274l797 +++|
05298  M01S00652.274l797 +++|
05299  M01S00653.274l797 +++| TSDD     BSS    0           TABLE OF NINE TRACK DENSITY MNEMONICS
05300  M01S00654.274l797 +++|          CON    2RHD        800 CPI
05301  M01S00655.274l797 +++|          CON    2RPE        1600 CPI
05302  M01S00656.274l797 +++|          CON    2RGE        6250 CPI

Seq #  *Modification Id* Act 
----------------------------+
05303  M01S03043.282l826 ---| VUR      SPACE  4,30

Seq #  *Modification Id* Act 
----------------------------+
05304  M01S00202.282l826 +++| VUR      SPACE  4,20
05305  M00S03044.resex   +++|**        VUR - VERIFY UNIT REQUEST.
05306  M00S03045.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05307  M01S03046.282l826 ---|*         ENTRY  (X7) = CALL BLOCK FUNCTION CODE (0 = ASSIGN
05308  M01S03047.282l826 ---|*                     UNIT, OTHERWISE = ERROR CODE).
05309  M01S03048.282l826 ---|*                (AU) = UDT ADDRESS.
05310  M01S03049.282l826 ---|*                (AV) = VSN POINTER.
05311  M01S03050.282l826 ---|*                (AA) = AUTOMATIC ASSIGNMENT FLAG.
05312  M01S03051.282l826 ---|*                (VA) = VSN RANDOM INDEX.
05313  M01S03052.282l826 ---|*                (VI) = VSN INDEX.
05314  M01S03053.282l826 ---|*                (TB) = TAPE DEFINITION BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
05315  M02S00043.282l826 ---|*                (PVST) = PACKED VSN, IF STAGING TAPE ASSIGNMENT.

Seq #  *Modification Id* Act 
----------------------------+
05316  M01S03054.282l826 ---|*                FET BUILT.

Seq #  *Modification Id* Act 
----------------------------+
05317  M01S00203.282l826 +++|*         EXIT   (X6) = 0 IF UNIT ASSIGNED.
05318  M01S00204.282l826 +++|*                (X6) .NE. 0 IF UNIT NOT ASSIGNED.
05319  M01S00205.282l826 +++|*                TO *PIT*, IF INTERRUPT DETECTED.
05320  M01S00206.282l826 +++|*                TO *ERR2* OR *ERR3* IF SUBSYSTEM COMMUNICATION ERROR.
05321  M01S00207.282l826 +++|*                TO *PER* IF UNIT NOT ASSIGNED AND ASSIGNMENT BY EST
05322  M01S00208.282l826 +++|*                  ORDINAL.
05323  M00S03055.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05324  M01S03056.282l826 ---|*         EXIT   (X1) = 0 FOR FUNCTION 0, IF TAPE ASSIGNED TO THIS JOB.
05325  M01S03057.282l826 ---|*                (X1) .LT. 0 FOR FUNCTION 0, IF ASSIGNMENT REJECTED
05326  M01S03058.282l826 ---|*                     DUE TO DENSITY MISMATCH.
05327  M01S03059.282l826 ---|*                TO *PIT*, IF INTERRUPT DETECTED.

Seq #  *Modification Id* Act 
----------------------------+
05328  M01S00209.282l826 +++|*         USES   X - ALL.
05329  M01S00210.282l826 +++|*                A - 1, 2, 3, 4, 6, 7.
05330  M01S00211.282l826 +++|*                B - 2, 5.
05331  M00S03060.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05332  M01S03061.282l826 ---|*         ERROR  TO *ERR2*, *ERR3*, IF SUBSYSTEM COMMUNICATION ERROR.

Seq #  *Modification Id* Act 
----------------------------+
05333  M02S03062.282l826 ---|*                TO *PER*, IF EQUIPMENT OR ILLEGAL ACCESS ERROR.

Seq #  *Modification Id* Act 
----------------------------+
05334  M02S00039.282l826 ---|*                TO *PER*, IF EQUIPMENT OR INCORRECT ACCESS ERROR.

Seq #  *Modification Id* Act 
----------------------------+
05335  M01S00212.282l826 +++|*         CALLS  BTR, CUP, UDF.
05336  M00S03063.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05337  M01S03064.ns2617  ---|*         USES   A - 1, 2, 3, 4, 6, 7.
05338  M01S03065.ns2617  ---|*                B - 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
05339  M02S00001.282l826 ---|*         USES   A - ALL.

Seq #  *Modification Id* Act 
----------------------------+
05340  M03S00002.282l826 ---|*                B - 2, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
05341  M02S00657.282l826 ---|*                B - 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
05342  M01S03066.282l826 ---|*                X - ALL.
05343  M01S03067.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
05344  M02S03068.282l826 ---|*         CALLS  GFN, SFN.

Seq #  *Modification Id* Act 
----------------------------+
05345  M03S00244.282l826 ---|*         CALLS  GFN, SFN, SNM.

Seq #  *Modification Id* Act 
----------------------------+
05346  M03S00003.282l826 ---|*         CALLS  BPD, CUT, GFN, GFO, IRC, SFN, SNM, UDF.

Seq #  *Modification Id* Act 
----------------------------+
05347  M02S00658.282l826 ---|*         CALLS  BPD, CUT, GFN, GFO, IRC, SFN, UDF.

Seq #  *Modification Id* Act 
----------------------------+
05348  M01S03069.282l826 ---|*
05349  M01S03070.282l826 ---|*         MACROS INTRC, INTRP, MESSAGE, RDSB, RECALL, VSN, WTSB.

Seq #  *Modification Id* Act 
----------------------------+
05350  M01S00213.282l826 +++|*         MACROS INTRC, INTRP, RDSB, RECALL, VSN, WTSB.
05351  M00S03071.resex   +++|
05352  M00S03072.resex   +++|
05353  M00S03073.resex   +++| VUR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
05354  M01S03074.282l826 ---|          SA7    VURA        SAVE CALL BLOCK FUNCTION CODE
05355  M00S03075.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
05356  M01S03076.274l797 ---|**        READ UDT.

Seq #  *Modification Id* Act 
----------------------------+
05357  M02S00659.282l826 ---|*         READ UDT.

Seq #  *Modification Id* Act 
----------------------------+
05358  M01S00214.282l826 +++|*         CHECK UNIT AVAILABLE AND CORRECT VSN MOUNTED.
05359  M00S03077.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
05360  M01S03078.282l826 ---|          SA1    AU          READ UDT

Seq #  *Modification Id* Act 
----------------------------+
05361  M01S00215.282l826 +++|          SA1    AU
05362  M01S00216.282l826 +++|          RDSB   MTSI,/COMSMTX/UNITL,X1,UDT  READ UDT ENTRY
05363  M01S00217.282l826 +++|          SA1    UDT+/COMSMTX/UST1
05364  M01S00218.282l826 +++|          SA2    UDT+/COMSMTX/UVRI
05365  M01S00219.282l826 +++|          SA3    UDT+/COMSMTX/UVSN
05366  M01S00220.282l826 +++|          SA4    IVSN
05367  M01S00221.282l826 +++|          MX0    36
05368  M01S00222.282l826 +++|          LX1    59-49
05369  M01S00223.282l826 +++|          NZ     X2,VUR5     IF UNIT ASSIGNED OR SELECTED FOR UNIT SWAP

Seq #  *Modification Id* Act 
----------------------------+
05370  M01S00003.ns2791  +++|          ZR     X3,VUR5     IF LABELS NOT READ

Seq #  *Modification Id* Act 
----------------------------+
05371  M01S00224.282l826 +++|          LX3    59-23
05372  M01S00225.282l826 +++|          NG     X3,VUR5     IF LABEL CHECK IN PROGRESS
05373  M01S00226.282l826 +++|          LX3    23-23-59+23
05374  M01S00227.282l826 +++|          PL     X1,VUR1     IF NOT ACS UNIT
05375  M01S00228.282l826 +++|          SA3    UDT+/COMSMTX/UMST  GET EXTERNAL VSN
05376  M01S00229.282l826 +++|          MX7    -2
05377  M01S00230.282l826 +++|          BX7    -X7*X3      ACS UNIT MOUNT STATUS
05378  M01S00231.282l826 +++|          SX7    X7-2
05379  M01S00232.282l826 +++|          NZ     X7,VUR5     IF UNIT NOT MOUNTED
05380  M01S00233.282l826 +++|          SA4    EVSN
05381  M01S00234.282l826 +++| VUR1     BX4    X3-X4
05382  M01S00235.282l826 +++|          BX4    X0*X4
05383  M01S00236.282l826 +++|          NZ     X4,VUR5     IF VSN NOT MOUNTED ON UNIT
05384  M01S00237.282l826 +++|
05385  M01S00238.282l826 +++|*         RESERVE TAPE EQUIPMENT.
05386  M01S00239.282l826 +++|
05387  M01S00240.282l826 +++|          MX6    12
05388  M01S00241.282l826 +++|          LX1    59-35-59+49
05389  M01S00242.282l826 +++|          BX6    X6*X1       SET EST ORDINAL
05390  M01S00243.282l826 +++|          SA6    VF+FEVE
05391  M01S00244.282l826 +++|          VSN    VF          RESERVE EQUIPMENT
05392  M01S00245.282l826 +++|          SA1    VF+FEVE     CHECK RESERVATION
05393  M01S00246.282l826 +++|          ZR     X1,VUR5     IF EQUIPMENT ALREADY RESERVED
05394  M01S00247.282l826 +++|
05395  M01S00248.282l826 +++|*         SEND ASSIGN UNIT REQUEST TO MAGNET.
05396  M01S00249.282l826 +++|
05397  M01S00250.282l826 +++|          RJ     BTR         BUILD MAGNET TAPE ASSIGNMENT REQUEST
05398  M01S00251.282l826 +++|          INTRC  OFF         DISABLE INTERRUPT
05399  M01S00252.282l826 +++|          WTSB   BUF,0       SEND ASSIGNMENT REQUEST
05400  M01S00253.282l826 +++|          SA1    SS          CHECK STATUS
05401  M01S00254.282l826 +++|          SX5    X1-1
05402  M01S00255.282l826 +++|          ZR     X5,VUR2     IF TRANSFER COMPLETE
05403  M01S00256.282l826 +++|          SX5    X1-3
05404  M01S00257.282l826 +++|          INTRC  ON          REENABLE INTERRUPT
05405  M01S00258.282l826 +++|          INTRP  PIT         PROCESS INTERRUPT
05406  M01S00259.282l826 +++|          ZR     X5,ERR3     IF MAGNET NOT ACTIVE
05407  M01S00260.282l826 +++|          EQ     ERR2        PROCESS ERROR
05408  M01S00261.282l826 +++|
05409  M01S00262.282l826 +++| VUR2     RECALL
05410  M01S00263.282l826 +++|          SX7    /COMSMTX/RCAL ADDRESS OF CALL BUFFER 0
05411  M01S00264.282l826 +++|          RDSB   MTSI,1,X7,BUF+20
05412  M01S00265.282l826 +++|          SA1    BUF+20
05413  M01S00266.282l826 +++|          NZ     X1,VUR2     IF REQUEST IN PROGRESS
05414  M01S00267.282l826 +++|          SA1    AU
05415  M00S03079.resex   +++|          RDSB   MTSI,/COMSMTX/UNITL,X1,UDT  READ UDT

Seq #  *Modification Id* Act 
----------------------------+
05416  M01S03080.282l826 ---|          SA1    AV

Seq #  *Modification Id* Act 
----------------------------+
05417  M02S03081.282l826 ---|          SA3    UDT+/COMSMTX/UVSN  COMPARE VSN-S
05418  M02S03082.282l826 ---|          SA1    X1
05419  M02S03083.282l826 ---|          BX6    X1-X3

Seq #  *Modification Id* Act 
----------------------------+
05420  M02S00660.282l826 ---|          SA2    UDT+/COMSMTX/UJID
05421  M02S00661.282l826 ---|          SA3    UDT+/COMSMTX/UVSN
05422  M02S00662.282l826 ---|          SA4    UDT+/COMSMTX/UESN
05423  M02S00663.282l826 ---|          SX7    X2+         JOB ASSIGNED STATUS
05424  M02S00664.282l826 ---|          LX2    -36
05425  M02S00665.282l826 ---|          SX2    X2
05426  M02S00666.282l826 ---|          NZ     X2,VUR0.1   IF ACS UNIT
05427  M02S00667.282l826 ---|          BX4    X3          USE INTERNAL VSN
05428  M02S00668.282l826 ---| VUR0.1   SA1    X1+
05429  M02S00669.282l826 ---|          MX0    36
05430  M02S00670.282l826 ---|          BX6    X1-X4

Seq #  *Modification Id* Act 
----------------------------+
05431  M01S03084.282l826 ---|          LX3    59-23

Seq #  *Modification Id* Act 
----------------------------+
05432  M02S03085.282l826 ---|          AX6    24

Seq #  *Modification Id* Act 
----------------------------+
05433  M02S00671.282l826 ---|          BX6    X0*X6
05434  M02S00672.282l826 ---|          NZ     X7,VUR15    IF UNIT HAS BEEN ASSIGNED TO ANOTHER JOB

Seq #  *Modification Id* Act 
----------------------------+
05435  M01S03086.282l826 ---|          NZ     X6,VUR15    IF VSN CHANGED

Seq #  *Modification Id* Act 
----------------------------+
05436  M02S03087.282l826 ---|          SA2    UDT+/COMSMTX/UJID
05437  M02S03088.282l826 ---|          NZ     X2,VUR15    IF UNIT HAS BEEN ASSIGNED TO ANOTHER JOB

Seq #  *Modification Id* Act 
----------------------------+
05438  M02S00245.282l826 ---|          RJ     CUT         CHECK UNLABELED TAPE

Seq #  *Modification Id* Act 
----------------------------+
05439  M01S03089.282l826 ---|          SA1    VURA        GET FUNCTION CODE
05440  M01S03090.282l826 ---|          SA2    F+FTAP      READ TAPE DESCRIPTORS

Seq #  *Modification Id* Act 
----------------------------+
05441  M02S03091.282l826 ---|          SA4    TB          CHECK USER WRITE RING REQUIREMENTS

Seq #  *Modification Id* Act 
----------------------------+
05442  M02S00673.282l826 ---|          BX4    X2          CHECK USER WRITE ENABLE REQUIREMENTS

Seq #  *Modification Id* Act 
----------------------------+
05443  M01S03092.282l826 ---|          BX6    X6-X6

Seq #  *Modification Id* Act 
----------------------------+
05444  M02S03093.282l826 ---|          LX4    59-4

Seq #  *Modification Id* Act 
----------------------------+
05445  M02S00674.282l826 ---|          LX4    59-40

Seq #  *Modification Id* Act 
----------------------------+
05446  M01S03094.282l826 ---|          SA6    EF          CLEAR ERROR FLAG
05447  M01S03095.282l826 ---|          NZ     X1,VUR9     IF SEND ERROR CODE BLOCK
05448  M01S03096.282l826 ---|          NG     X3,VUR15    IF INITIAL LABEL CHECK IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
05449  M01S00268.282l826 +++|          SA1    UDT+/COMSMTX/UVRI
05450  M01S00269.282l826 +++|          SA2    JEEO
05451  M01S00270.282l826 +++|          AX1    48
05452  M01S00271.282l826 +++|          BX1    X1-X2
05453  M01S00272.282l826 +++|          ZR     X1,VUR3     IF UNIT ASSIGNED
05454  M01S00273.282l826 +++|          INTRC  ON          REENABLE INTERRUPT
05455  M01S00274.282l826 +++|          INTRP  PIT         PROCESS INTERRUPT
05456  M01S00275.282l826 +++|          SA1    VF+FEVE     CLEAR EQUIPMENT ASSIGNMENT
05457  M01S00276.282l826 +++|          MX6    1
05458  M01S00277.282l826 +++|          BX6    X1+X6
05459  M01S00278.282l826 +++|          SA6    A1
05460  M01S00279.282l826 +++|          VSN    VF
05461  M01S00280.282l826 +++|          EQ     VUR5        PROCESS UNIT NOT ASSIGNED
05462  M00S03097.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
05463  M01S03098.282l826 ---|*         CHECK FOR DENSITY MISMATCH ON DRIVE.

Seq #  *Modification Id* Act 
----------------------------+
05464  M01S00281.282l826 +++|*         BUILD TAPE FILE FNT/FST ENTRY AND UPDATE DEMAND FILE.
05465  M00S03099.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
05466  M01S03100.274l797 ---|          SA3    UDT+/COMSMTX/UST1  CHECK MOUNTED TAPE RING SETTING
05467  M01S03101.274l797 ---|          NG     X4,VUR2     IF RING IN REQUIRED
05468  M01S03102.274l797 ---|          LX4    59-3-59+4

Seq #  *Modification Id* Act 
----------------------------+
05469  M02S00675.282l826 ---|          SA3    UDT+/COMSMTX/UST1  CHECK MOUNTED TAPE WRITE ENABLE
05470  M02S00676.282l826 ---|          NG     X4,VUR2     IF WRITE ENABLE REQUIRED
05471  M02S00677.282l826 ---|          LX4    59-39-59+40

Seq #  *Modification Id* Act 
----------------------------+
05472  M01S03103.282l826 ---|          SA1    UDT+/COMSMTX/UVSN  CHECK FOR DENSITY MISMATCH
05473  M01S03104.282l826 ---|          LX3    59-7

Seq #  *Modification Id* Act 
----------------------------+
05474  M02S03105.282l826 ---|          NG     X4,VUR1     IF RING OUT REQUIRED
05475  M02S03106.282l826 ---|          NG     X3,VUR2     IF WRITE RING IN TAPE

Seq #  *Modification Id* Act 
----------------------------+
05476  M02S00678.282l826 ---|          NG     X4,VUR1     IF READ ONLY ACCESS

Proceed to Part 5