65 Modifications

Seq #  *Modification Id* Act 
----------------------------+
06250  M00S03521.resex   +++|          MX6    0
06251  M00S03522.resex   +++|          BX7    X1+X7
06252  M00S03523.resex   +++|          SA7    VF
06253  M00S03524.resex   +++|          SA1    VA          CHECK FOR ENTRY REWRITE
06254  M00S03525.resex   +++|          SA6    VF+FEVE
06255  M00S03526.resex   +++|          NZ     X1,MVE1     IF REWRITE
06256  M00S03527.resex   +++|          VSN    VF          RESERVE VSN FNT ENTRY
06257  M00S03528.resex   +++|          SA1    VA
06258  M00S03529.resex   +++|          INTRC  OFF         INHIBIT INTERRUPT
06259  M00S03530.resex   +++| MVE1     SX2    V
06260  M00S03531.resex   +++|          SX6    VSNE
06261  M00S03532.resex   +++|          SX7    VSNB
06262  M00S03533.resex   +++|          SX5    B1          SET RETURN VSN FILE

Seq #  *Modification Id* Act 
----------------------------+
06263  M01S00487.ns21000 +++|          SX0    VSNL        VSN ENTRY LENGTH
06264  M00S03534.resex   +++|          RJ     URF         UPDATE RESOURCE FILE
06265  M00S03535.resex   +++|          SA2    VA          CHECK FOR EXISTING ENTRY
06266  M00S03536.resex   +++|          SA1    URFA
06267  M00S03537.resex   +++|          NZ     X2,MVEX     IF EXISTING ENTRY
06268  M00S03538.resex   +++|          BX6    X1
06269  M00S03539.resex   +++|          SA6    A2
06270  M00S03540.resex   +++|          LX6    12
06271  M00S03541.resex   +++|          SA6    VF+FEVE     MAKE VSN FNT ENTRY
06272  M00S03542.resex   +++|          VSN    VF          MAKE VSN ENTRY
06273  M00S03543.resex   +++|          INTRC  ON          REENABLE INTERRUPT
06274  M00S03544.resex   +++|          INTRP  PIT         PROCESS INTERRUPT
06275  M00S03545.resex   +++|          EQ     MVEX        RETURN
06276  M00S03546.resex   +++| RDF      SPACE  4,15
06277  M00S03547.resex   +++|**        RDF - READ DEMAND FILE.
06278  M00S03548.resex   +++|*
06279  M00S03549.resex   +++|*         ENTRY  (/CPA/RFCW) = DEMAND FILE INDEX IF ENTRY EXISTS.
06280  M00S03550.resex   +++|*                (RESB+RJID) = JOB EJT ORDINAL.
06281  M00S03551.resex   +++|*
06282  M00S03552.resex   +++|*         EXIT   DEMAND FILE ENTRY IN DBUF.
06283  M00S03553.resex   +++|*                DEMAND FILE INTERLOCK SET.
06284  M00S03554.resex   +++|*
06285  M00S03555.resex   +++|*         ERROR  TO *PER*, IF DEMAND FILE ERROR.
06286  M00S03556.resex   +++|*
06287  M00S03557.resex   +++|*         USES   A - 1, 3, 6.
06288  M00S03558.resex   +++|*                B - 2.
06289  M00S03559.resex   +++|*                X - 1, 3, 6.
06290  M00S03560.resex   +++|*
06291  M00S03561.resex   +++|*         MACROS FATRF, READ, READW.
06292  M00S03562.resex   +++|
06293  M00S03563.resex   +++|
06294  M00S03564.resex   +++| RDF      SUBR               ENTRY/EXIT
06295  M00S03565.resex   +++|          FATRF  D,M         ATTACH DEMAND FILE
06296  M00S03566.resex   +++|          SA1    /CPA/RFCW   CHECK DEMAND FILE RANDOM INDEX
06297  M00S03567.resex   +++|          SX6    X1
06298  M00S03568.resex   +++|          ZR     X6,RDF2     IF NO ENTRY
06299  M00S03569.resex   +++|          SA6    D+6
06300  M00S03570.resex   +++|          READ   X2,R        RANDOM READ DEMAND FILE
06301  M00S03571.resex   +++|          SA1    DBUF+RJID   COMPARE JOB IDENTIFICATION
06302  M00S03572.resex   +++|          SA3    RESB+RJID
06303  M00S03573.resex   +++|          BX1    X1-X3
06304  M00S03574.resex   +++|          ZR     X1,RDFX     IF CORRECT ENTRY
06305  M00S03575.resex   +++| RDF1     SB2    /PER/DFE    *DEMAND FILE ERROR.*
06306  M00S03576.resex   +++|          EQ     PER         PROCESS ERROR
06307  M00S03577.resex   +++|
06308  M00S03578.resex   +++|*         SCAN DEMAND FILE TO VERIFY THAT NO ENTRY EXISTS.
06309  M00S03579.resex   +++|
06310  M00S03580.resex   +++| RDF2     READ   X2,R
06311  M00S03581.resex   +++| RDF3     READW  D,BUF,RDEL  READ ENTRY
06312  M00S03582.resex   +++|          NZ     X1,RDFX     IF NO DUPLICATE FOUND
06313  M00S03583.resex   +++|          SA1    BUF+RJID    COMPARE JOB IDENTIFICATION
06314  M00S03584.resex   +++|          SA3    RESB+RJID
06315  M00S03585.resex   +++|          BX1    X1-X3
06316  M00S03586.resex   +++|          NZ     X1,RDF3     IF ENTRY DOES NOT MATCH
06317  M00S03587.resex   +++|          EQ     RDF1        ERROR
06318  M00S03588.resex   +++| UDF      SPACE  4,20
06319  M00S03589.resex   +++|**        UDF - UPDATE DEMAND FILE.
06320  M00S03590.resex   +++|*
06321  M00S03591.resex   +++|*         ENTRY  (/CPA/RFCW) = DEMAND FILE INDEX IF ENTRY EXISTS.
06322  M00S03592.resex   +++|*                RESB = DEMAND ENTRY TO BE WRITTEN.
06323  M00S03593.resex   +++|*                (X5) = 0, IF DEMAND FILE NOT TO BE RETURNED.
06324  M00S03594.resex   +++|*                DEMAND FILE INTERLOCK SET.
06325  M00S03595.resex   +++|*
06326  M00S03596.resex   +++|*         EXIT   DEMAND FILE UPDATED.
06327  M00S03597.resex   +++|*                (X6) = RANDOM INDEX.
06328  M00S03598.resex   +++|*                (/CPA/RFCW) = DEMAND FILE RANDOM INDEX.
06329  M00S03599.resex   +++|*                IF NEW DEMAND FILE ENTRY IS BUILT, RANDOM
06330  M00S03600.resex   +++|*                INDEX IS ENTERED INTO CONTROL POINT WORD *RFCW*.
06331  M00S03601.resex   +++|*                TO *PIT*, IF INTERRUPT DETECTED.
06332  M00S03602.resex   +++|*
06333  M00S03603.resex   +++|*         USES   A - 1, 2, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
06334  M01S03604.ns21000 ---|*                X - 1, 2, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
06335  M01S00488.ns21000 +++|*                X - 0, 1, 2, 5, 6, 7.
06336  M00S03605.resex   +++|*
06337  M00S03606.resex   +++|*         CALLS  URF.
06338  M00S03607.resex   +++|*
06339  M00S03608.resex   +++|*         MACROS ENDRI, INTRC, INTRP.
06340  M00S03609.resex   +++|
06341  M00S03610.resex   +++|
06342  M00S03611.resex   +++| UDF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
06343  M01S03612.282l826 ---|          SA2    RESB+RQPD   SET/CLEAR PREVIEW DISPLAY CLEAN-UP FLAG

Seq #  *Modification Id* Act 
----------------------------+
06344  M01S00321.282l826 +++|          SA2    RESB+RREQ   SET/CLEAR PREVIEW DISPLAY CLEAN-UP FLAG
06345  M00S03613.resex   +++|          SA1    /CPA/RFCW   GET DEMAND FILE INDEX
06346  M00S03614.resex   +++|          BX6    X2
06347  M00S03615.resex   +++|          SX1    X1
06348  M00S03616.resex   +++|          SA6    PVDC
06349  M00S03617.resex   +++|          SX2    D
06350  M00S03618.resex   +++|          SX6    RESB
06351  M00S03619.resex   +++|          NZ     X1,UDF1     IF NOT NEW DEMAND FILE ENTRY
06352  M00S03620.resex   +++|          INTRC  OFF         DISABLE INTERRUPT

Seq #  *Modification Id* Act 
----------------------------+
06353  M01S00489.ns21000 +++|          SX1    -1
06354  M00S03621.resex   +++| UDF1     SX7    BUF

Seq #  *Modification Id* Act 
----------------------------+
06355  M01S00490.ns21000 +++|          SX0    RDEL        DEMAND ENTRY LENGTH
06356  M00S03622.resex   +++|          RJ     URF         UPDATE RESOURCE FILE
06357  M00S03623.resex   +++|          SA5    /CPA/RFCW   GET DEMAND FILE INDEX
06358  M00S03624.resex   +++|          SA1    URFA
06359  M00S03625.resex   +++|          SX6    X5
06360  M00S03626.resex   +++|          NZ     X6,UDFX     IF NOT NEW ENTRY
06361  M00S03627.resex   +++|          BX6    X5+X1
06362  M00S03628.resex   +++|          SA6    A5          SET NEW ENTRY
06363  M00S03629.resex   +++|          ENDRI  X1
06364  M00S03630.resex   +++|          SA5    A5
06365  M00S03631.resex   +++|          SX6    X5          SET RANDOM INDEX
06366  M00S03632.resex   +++|          INTRC  ON          REENABLE INTERRUPT
06367  M00S03633.resex   +++|          INTRP  PIT         PROCESS INTERRUPT
06368  M00S03634.resex   +++|          EQ     UDFX        RETURN
06369  M00S03635.resex   +++| URF      SPACE  4,20
06370  M00S03636.resex   +++|**        URF - UPDATE RESOURCE FILES.
06371  M00S03637.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
06372  M01S03638.ns21000 ---|*         ENTRY  (X1) = RANDOM INDEX IF NEW UPDATING ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
06373  M01S00491.ns21000 +++|*         ENTRY  (X0) = ENTRY LENGTH.
06374  M01S00492.ns21000 +++|*                (X1) = RANDOM INDEX IF UPDATING EXISTING ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
06375  M01S00322.282l826 +++|*                (X1) = 0 IF TO CREATE NEW ENTRY.
06376  M00S03639.resex   +++|*                (X2) = FET ADDRESS OF RESOURCE FILE.
06377  M00S03640.resex   +++|*                (X5) = 0, IF RESOURCE FILE NOT TO BE RETURNED.
06378  M00S03641.resex   +++|*                (X6) = ADDRESS OF NEW ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
06379  M01S03642.282l826 ---|*                (X7) = BUFFER TO READ TO.

Seq #  *Modification Id* Act 
----------------------------+
06380  M01S00323.282l826 +++|*                (X7) = WORKING BUFFER ADDRESS IF ALLOCATING NEW ENTRY.
06381  M00S03643.resex   +++|*                RESOURCE FILE INTERLOCK SET.
06382  M00S03644.resex   +++|*
06383  M00S03645.resex   +++|*         EXIT   (URFA) = RANDOM INDEX OF NEW ENTRY.
06384  M00S03646.resex   +++|*                RESOURCE FILE INTERLOCK CLEARED.
06385  M00S03647.resex   +++|*
06386  M00S03648.resex   +++|*         USES   A - 1, 3, 6, 7.
06387  M00S03649.resex   +++|*                B - 6.
06388  M00S03650.resex   +++|*                X - 0, 1, 2, 3, 6, 7.
06389  M00S03651.resex   +++|*
06390  M00S03652.resex   +++|*         CALLS  CTL.
06391  M00S03653.resex   +++|*
06392  M00S03654.resex   +++|*         MACROS FATRF, READ, READW, RECALL, RETRF, REWRITE,
06393  M00S03655.resex   +++|*                REWRITER, WRITEW.
06394  M00S03656.resex   +++|
06395  M00S03657.resex   +++|
06396  M00S03658.resex   +++| URF4     REWRITER  X2,R
06397  M00S03659.resex   +++| URF5     RJ     CTL         CHECK FOR TRACK LIMIT
06398  M00S03660.resex   +++|          SA1    URFD        CHECK FOR RETURN REQUIRED
06399  M00S03661.resex   +++|          ZR     X1,URFX     IF NOT RETURNING RESOURCE FILE
06400  M00S03662.resex   +++|          RETRF  X2          RETURN RESOURCE FILE, RELEASE INTERLOCK
06401  M00S03663.resex   +++|
06402  M00S03664.resex   +++| URF      SUBR               ENTRY/EXIT
06403  M00S03665.resex   +++|          SA7    URFC
06404  M00S03666.resex   +++|          SA6    A7-B1
06405  M00S03667.resex   +++|          BX7    X5          SAVE RETURN RESOURCE FILE INDICATOR
06406  M00S03668.resex   +++|          SA7    A7+B1
06407  M00S03669.resex   +++|          MX6    0
06408  M00S03670.resex   +++|          BX7    X1
06409  M00S03671.resex   +++|          SA7    A7+B1       SAVE INITIAL RANDOM INDEX
06410  M00S03672.resex   +++|          SA7    A6-B1
06411  M00S03673.resex   +++|          SA6    EF          CLEAR EOR FLAG

Seq #  *Modification Id* Act 
----------------------------+
06412  M01S00493.ns21000 +++|          BX7    X0          SAVE ENTRY LENGTH
06413  M01S00494.ns21000 +++|          SA7    URFF
06414  M00S03674.resex   +++| URF1     FATRF  X2,M        ATTACH RESOURCE FILE
06415  M00S03675.resex   +++|          SA1    URFA

Seq #  *Modification Id* Act 
----------------------------+
06416  M01S03676.ns21000 ---|          NZ     X1,URF3     IF UPDATING ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06417  M01S00495.ns21000 +++|          SB6    X1+

Seq #  *Modification Id* Act 
----------------------------+
06418  M02S00496.282l826 ---|          GT     B6,URF3     IF UPDATING ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06419  M01S00324.282l826 +++|          GT     B6,URF3     IF UPDATING EXISTING ENTRY
06420  M01S00325.282l826 +++|
06421  M01S00326.282l826 +++|*         FIND AVAILABLE ENTRY.
06422  M01S00327.282l826 +++|
06423  M00S03677.resex   +++|          READ   X2
06424  M00S03678.resex   +++| URF2     SA1    URFA        ADVANCE RANDOM INDEX

Seq #  *Modification Id* Act 
----------------------------+
06425  M01S00497.ns21000 +++|          SA3    URFF        GET ENTRY LENGTH
06426  M01S00498.ns21000 +++|          SB7    X3
06427  M01S00499.ns21000 +++|          AX3    6
06428  M01S00500.ns21000 +++|          IX7    X1+X3
06429  M00S03679.resex   +++|          SA3    URFC

Seq #  *Modification Id* Act 
----------------------------+
06430  M01S03680.ns21000 ---|          SX7    X1+B1
06431  M00S03681.resex   +++|          SA7    A1
06432  M00S03682.resex   +++|          SB6    X3+

Seq #  *Modification Id* Act 
----------------------------+
06433  M01S03683.ns21000 ---|          READW  X2,B6,RDEL  READ DEMAND FILE

Seq #  *Modification Id* Act 
----------------------------+
06434  M02S00501.274l797 ---|          READW  X2,B6,B7    READ DEMAND FILE

Seq #  *Modification Id* Act 
----------------------------+
06435  M01S00819.274l797 +++|          READW  X2,B6,B7    READ FILE ENTRY
06436  M00S03684.resex   +++|          SA3    URFC
06437  M00S03685.resex   +++|          BX7    X1
06438  M00S03686.resex   +++|          SA3    X3
06439  M00S03687.resex   +++|          SA7    EF          SET END OF FILE FLAG
06440  M00S03688.resex   +++|          NZ     X1,URF3     IF EOR

Seq #  *Modification Id* Act 
----------------------------+
06441  M01S03689.282l826 ---|          NZ     X3,URF2     IF NOT EMPTY ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06442  M01S00328.282l826 +++|          NZ     X3,URF2     IF ENTRY IN USE
06443  M01S00329.282l826 +++|
06444  M01S00330.282l826 +++|*         WRITE ENTRY TO FILE.
06445  M01S00331.282l826 +++|
06446  M00S03690.resex   +++| URF3     RECALL X2
06447  M00S03691.resex   +++|          MX0    1           BUILD FET FOR REWRITE
06448  M00S03692.resex   +++|          SA1    URFA
06449  M00S03693.resex   +++|          LX0    30
06450  M00S03694.resex   +++|          SX7    SBUF2
06451  M00S03695.resex   +++|          SA7    X2+2
06452  M00S03696.resex   +++|          SA3    A1+B1
06453  M00S03697.resex   +++|          SA7    A7+B1
06454  M00S03698.resex   +++|          BX6    X0+X1
06455  M00S03699.resex   +++|          SB6    X3
06456  M00S03700.resex   +++|          SA6    X2+6

Seq #  *Modification Id* Act 
----------------------------+
06457  M01S03701.ns21000 ---|          WRITEW X2,B6,RDEL

Seq #  *Modification Id* Act 
----------------------------+
06458  M01S00502.ns21000 +++|          SA1    URFF        GET ENTRY LENGTH
06459  M01S00503.ns21000 +++|          SB7    X1
06460  M01S00504.ns21000 +++|          WRITEW X2,B6,B7
06461  M00S03702.resex   +++|          SA1    X2+FDTY     SET USER PROCESSING
06462  M00S03703.resex   +++|          MX0    1
06463  M00S03704.resex   +++|          LX0    45-59
06464  M00S03705.resex   +++|          BX6    X0+X1
06465  M00S03706.resex   +++|          SA6    A1
06466  M00S03707.resex   +++|          SA1    EF          CHECK FILE STATUS
06467  M00S03708.resex   +++|          NZ     X1,URF4     IF EOR
06468  M00S03709.resex   +++|          REWRITE X2,R
06469  M00S03710.resex   +++|          EQ     URF5
06470  M00S03711.resex   +++|
06471  M00S03712.resex   +++|
06472  M00S03713.resex   +++| URFA     CON    0           RANDOM INDEX TEMPORARY
06473  M00S03714.resex   +++| URFB     CON    0           NEW ENTRY BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
06474  M01S03715.282l826 ---| URFC     CON    0           READ BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
06475  M01S00332.282l826 +++| URFC     CON    0           FILE SEARCH WORKING BUFFER ADDRESS
06476  M00S03716.resex   +++| URFD     CON    0           RETURN RESOURCE FILE FLAG
06477  M00S03717.resex   +++| URFE     CON    0           INITIAL RANDOM INDEX

Seq #  *Modification Id* Act 
----------------------------+
06478  M01S03718.ns21000 ---|
06479  M01S03719.ns21000 ---|          ERRNZ  RDEL-VSNL   CHECK RESOURCE FILE ENTRY LENGTHS

Seq #  *Modification Id* Act 
----------------------------+
06480  M01S00505.ns21000 +++| URFF     CON    0           ENTRY LENGTH

Seq #  *Modification Id* Act 
----------------------------+
06481  M01S00078.253l688 +++|          TITLE  TAPE ALTERNATE STORAGE SUBROUTINES.
06482  M01S00079.253l688 +++| AEV      SPACE  4,15
06483  M01S00080.253l688 +++|**        AEV - ADD ENTRY TO STAGING TAPE VSN LIST.
06484  M01S00081.253l688 +++|*
06485  M01S00082.253l688 +++|*         ENTRY  (B6) = FWA OF STAGE REQUEST BLOCK.
06486  M01S00083.253l688 +++|*
06487  M01S00084.253l688 +++|*         EXIT   ENTRY ADDED TO *STVL*.
06488  M01S00085.253l688 +++|*                (LSVL) UPDATED.
06489  M01S00086.253l688 +++|*
06490  M01S00087.253l688 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
06491  M01S00088.253l688 +++|*                A - 1, 2, 3, 4, 6, 7.
06492  M01S00089.253l688 +++|*
06493  M01S00090.253l688 +++|*         MACROS MEMORY.
06494  M01S00091.253l688 +++|
06495  M01S00092.253l688 +++|
06496  M01S00093.253l688 +++| AEV      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
06497  M01S00820.274l797 +++|          SA3    B6
06498  M01S00821.274l797 +++|          AX3    54          GET FUNCTION CODE
06499  M01S00822.274l797 +++|          SX3    X3-2
06500  M01S00823.274l797 +++|          ZR     X3,AEVX     IF STAGE REQUEST FROM OPTICAL DISK

Seq #  *Modification Id* Act 
----------------------------+
06501  M01S00094.253l688 +++|          SA1    B6+B1       GET PACKED VSN
06502  M01S00095.253l688 +++|          SA3    B6+7        GET RETRY INFORMATION
06503  M01S00096.253l688 +++|          MX2    -24
06504  M01S00097.253l688 +++|          SA4    STVL-1      SEARCH VSN LIST
06505  M01S00098.253l688 +++|
06506  M01S00099.253l688 +++|*         SEARCH VSN LIST FOR EXISTING ENTRY WITH THIS VSN.
06507  M01S00100.253l688 +++|
06508  M01S00101.253l688 +++| AEV1     SA4    A4+B1
06509  M01S00102.253l688 +++|          ZR     X4,AEV3     IF END OF LIST
06510  M01S00103.253l688 +++|          BX6    X1-X4
06511  M01S00104.253l688 +++|          BX6    -X2*X6
06512  M01S00105.253l688 +++|          NZ     X6,AEV1     IF VSN DOES NOT MATCH
06513  M01S00106.253l688 +++|
06514  M01S00107.253l688 +++|*         PROCESS UPDATE OF EXISTING ENTRY.
06515  M01S00108.253l688 +++|
06516  M01S00109.253l688 +++|          MX2    12          GET *FCTF* FLAGS FROM STAGE REQUEST
06517  M01S00110.253l688 +++|          BX2    X2*X1
06518  M01S00111.253l688 +++|          LX2    -24
06519  M01S00112.253l688 +++|          BX4    X4+X2       MERGE *FCTF* FLAGS
06520  M01S00113.253l688 +++|          SX2    B1          GET BACKUP VSN FLAG FROM STAGE REQUEST
06521  M01S00114.253l688 +++|          LX2    39-0
06522  M01S00115.253l688 +++|          BX2    X2*X3
06523  M01S00116.253l688 +++|          BX4    X4+X2       UPDATE BACKUP VSN FLAG, IF SET
06524  M01S00117.253l688 +++|          MX7    3           CHECK RETRY COUNT
06525  M01S00118.253l688 +++|          LX7    36-57
06526  M01S00119.253l688 +++|          BX6    X7*X4       EXISTING RETRY COUNT
06527  M01S00120.253l688 +++|          BX2    X7*X3       NEW RETRY COUNT
06528  M01S00121.253l688 +++|          IX1    X2-X6
06529  M01S00122.253l688 +++|          NG     X1,AEV2     IF NOT NEWER RETRY INFORMATION
06530  M01S00123.253l688 +++|          IX4    X4+X1       UPDATE RETRY COUNT
06531  M01S00124.253l688 +++| AEV2     BX6    X4
06532  M01S00125.253l688 +++|          SA6    A4
06533  M01S00126.253l688 +++|          EQ     AEVX        RETURN
06534  M01S00127.253l688 +++|
06535  M01S00128.253l688 +++|*         ADD NEW ENTRY TO VSN LIST.
06536  M01S00129.253l688 +++|
06537  M01S00130.253l688 +++| AEV3     MX2    -24         GET PACKED VSN
06538  M01S00131.253l688 +++|          BX4    -X2*X1
06539  M01S00132.253l688 +++|          MX2    12          GET *FCTF* FLAGS
06540  M01S00133.253l688 +++|          BX2    X2*X1
06541  M01S00134.253l688 +++|          LX2    -24
06542  M01S00135.253l688 +++|          BX4    X4+X2
06543  M01S00136.253l688 +++|          MX6    4           GET RETRY COUNT AND BACKUP VSN BIT
06544  M01S00137.253l688 +++|          LX6    36-56
06545  M01S00138.253l688 +++|          BX6    X6*X3
06546  M01S00139.253l688 +++|          BX6    X4+X6       MERGE VSN, FLAGS AND RETRY INFORMATION
06547  M01S00140.253l688 +++|          SA6    A4
06548  M01S00141.253l688 +++|          BX7    X7-X7       CLEAR LWA+1 OF TABLE
06549  M01S00142.253l688 +++|          SA7    A4+B1
06550  M01S00143.253l688 +++|          SX6    A7          SET ADDRESS+1 OF LAST ENTRY
06551  M01S00144.253l688 +++|          SA6    LSVL

Seq #  *Modification Id* Act 
----------------------------+
06552  M02S00145.274l797 ---|          SA2    FLST        CHECK FOR MORE MEMORY NEEDED

Seq #  *Modification Id* Act 
----------------------------+
06553  M01S00824.274l797 +++|          SA2    AEVA        CHECK FOR MORE MEMORY NEEDED

Seq #  *Modification Id* Act 
----------------------------+
06554  M01S00146.253l688 +++|          AX2    30
06555  M01S00147.253l688 +++|          SX3    A7+/COMSMTX/RCALL+8
06556  M01S00148.253l688 +++|          IX3    X2-X3
06557  M01S00149.253l688 +++|          PL     X3,AEVX     IF NOT NEAR END OF FL
06558  M01S00150.253l688 +++|          MEMORY CM,A2,R,X2+MEMI  INCREASE FIELD LENGTH
06559  M01S00151.253l688 +++|          EQ     AEVX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
06560  M02S00152.274l797 ---| GVS      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
06561  M01S00825.274l797 +++|
06562  M01S00826.274l797 +++|
06563  M01S00827.274l797 +++| AEVA     VFD    30/RFL=,30/0  CURRENT FIELD LENGTH
06564  M01S00828.274l797 +++| ASF      SPACE  4,10
06565  M01S00829.274l797 +++|**        ASF - ATTACH STAGE REQUEST FILE.
06566  M01S00830.274l797 +++|*
06567  M01S00831.274l797 +++|*         EXIT   STAGE REQUEST FILE ATTACHED.
06568  M01S00832.274l797 +++|*
06569  M01S00833.274l797 +++|*         USES   X - 1, 2, 6.
06570  M01S00834.274l797 +++|*                A - 1, 6.
06571  M01S00835.274l797 +++|*
06572  M01S00836.274l797 +++|*         MACROS ATTACH, DEFINE, INTRPT, MESSAGE, RECALL, RETURN,
06573  M01S00837.274l797 +++|*                REWIND, ROLLOUT.
06574  M01S00838.274l797 +++|
06575  M01S00839.274l797 +++|
06576  M01S00840.274l797 +++| ASF      SUBR               ENTRY/EXIT
06577  M01S00841.274l797 +++| ASF1     ATTACH R,,,,W,,,DF,,RT  ATTACH STAGE REQUEST FILE
06578  M01S00842.274l797 +++|          SA1    X2          CHECK FOR ERRORS
06579  M01S00843.274l797 +++|          MX6    -8
06580  M01S00844.274l797 +++|          AX1    10-0
06581  M01S00845.274l797 +++|          BX1    -X6*X1      EXTRACT ERROR CODE
06582  M01S00846.274l797 +++|          ZR     X1,ASF5     IF FILE ATTACHED SUCCESSFULLY
06583  M01S00847.274l797 +++|          SX2    X1-/ERRMSG/FBS
06584  M01S00848.274l797 +++|          ZR     X2,ASF2     IF FILE BUSY
06585  M01S00849.274l797 +++|          SX2    X1-/ERRMSG/FNF
06586  M01S00850.274l797 +++|          ZR     X2,ASF3     IF FILE NOT FOUND
06587  M01S00851.274l797 +++|          SX2    X1-/ERRMSG/PFA
06588  M01S00852.274l797 +++|          NZ     X2,ASF1     IF NOT PF UTILITY ACTIVE
06589  M01S00853.274l797 +++| ASF2     INTRP  PIT         PROCESS INTERRUPT
06590  M01S00854.274l797 +++|          MESSAGE ASFA,2,R   POST MESSAGE
06591  M01S00855.274l797 +++|          ROLLOUT            ROLLOUT ON BUSY FILE
06592  M01S00856.274l797 +++|          REWIND S1,R        ASSURE ROLLOUT COMPLETE
06593  M01S00857.274l797 +++|          EQ     ASF1        RETRY *ATTACH*
06594  M01S00858.274l797 +++|
06595  M01S00859.274l797 +++|*         DEFINE FILE IF FILE MISSING.
06596  M01S00860.274l797 +++|
06597  M01S00861.274l797 +++| ASF3     RETURN R
06598  M01S00862.274l797 +++| ASF4     RECALL             GIVE UP CPU
06599  M01S00863.274l797 +++|          DEFINE R,,,,,,,,,DF,N,L
06600  M01S00864.274l797 +++|          SA1    X2
06601  M01S00865.274l797 +++|          MX6    -8
06602  M01S00866.274l797 +++|          AX1    10-0
06603  M01S00867.274l797 +++|          BX1    -X6*X1      EXTRACT ERROR CODE
06604  M01S00868.274l797 +++|          ZR     X1,ASF5     IF DEFINE SUCCESSFUL
06605  M01S00869.274l797 +++|          SX2    X1-/ERRMSG/PFA
06606  M01S00870.274l797 +++|          NZ     X2,ASF4     IF NOT PF UTILITY ACTIVE
06607  M01S00871.274l797 +++|          INTRP  PIT         PROCESS INTERRUPT
06608  M01S00872.274l797 +++|          MESSAGE ASFA,2,R   POST MESSAGE
06609  M01S00873.274l797 +++|          ROLLOUT            ROLLOUT ON UTILITY ACTIVE
06610  M01S00874.274l797 +++|          EQ     ASF4        RETRY *DEFINE*
06611  M01S00875.274l797 +++|
06612  M01S00876.274l797 +++|*         FILE ATTACHED OR DEFINED.
06613  M01S00877.274l797 +++|
06614  M01S00878.274l797 +++| ASF5     BX6    X6-X6       SET *FILE ATTACHED* FLAG
06615  M01S00879.274l797 +++|          SA6    R-1
06616  M01S00880.274l797 +++|          EQ     ASFX        RETURN
06617  M01S00881.274l797 +++|
06618  M01S00882.274l797 +++|
06619  M01S00883.274l797 +++| ASFA     DATA   C*WAITING FOR STAGE REQUEST FILE.*
06620  M01S00884.274l797 +++| GVS      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
06621  M01S00153.253l688 +++|**        GVS - GET VSN FOR STAGING TAPE.
06622  M01S00154.253l688 +++|*
06623  M01S00155.253l688 +++|*         ENTRY  FROM *LFM* WITH NO VSN SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
06624  M02S00156.274l797 ---|*                STAGE REQUEST FILE ATTACHED.

Seq #  *Modification Id* Act 
----------------------------+
06625  M01S00157.253l688 +++|*
06626  M01S00158.253l688 +++|*         EXIT   (PVST) = PACKED VSN OF STAGING TAPE.
06627  M01S00159.253l688 +++|*                VSN ADDED TO FET.
06628  M01S00160.253l688 +++|*                TO *RMT* TO REQUEST TAPE.
06629  M01S00161.253l688 +++|*
06630  M01S00162.253l688 +++|*         USES   X - 0, 1, 2, 3, 5, 7.
06631  M01S00163.253l688 +++|*                A - 1, 2, 3, 5, 7.
06632  M01S00164.253l688 +++|*                B - 6, 7.
06633  M01S00165.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
06634  M02S00166.274l797 ---|*         CALLS  BPD, BRE, DXB, PRO, UVL.

Seq #  *Modification Id* Act 
----------------------------+
06635  M01S00885.274l797 +++|*         CALLS  ASF, BPD, BRE, COV, DXB, PRO, UVL.

Seq #  *Modification Id* Act 
----------------------------+
06636  M01S00167.253l688 +++|*
06637  M01S00168.253l688 +++|*         MACROS RDSB, RTRF, WRITER, WTSB.
06638  M01S00169.253l688 +++|
06639  M01S00170.253l688 +++|
06640  M01S00171.253l688 +++| GVS      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06641  M01S00886.274l797 +++|          RJ     ASF         ATTACH STAGE REQUEST FILE

Seq #  *Modification Id* Act 
----------------------------+
06642  M01S00172.253l688 +++|          BX7    X7-X7       SET *OPERATOR ASSIGNMENT* FLAG
06643  M01S00173.253l688 +++|          SA7    AA
06644  M01S00174.253l688 +++|          BX1    X1-X1       SET *REQUEST FILE NOT YET READ*
06645  M01S00175.253l688 +++| GVS1     RJ     UVL         UPDATE STAGING TAPE VSN LIST
06646  M01S00176.253l688 +++|          RJ     BPD         BUILD PREVIEW DISPLAY
06647  M01S00177.253l688 +++|          RJ     BRE         BUILD RESOURCE ENVIRONMENT
06648  M01S00178.253l688 +++|          SA1    RETE
06649  M01S00179.253l688 +++|          SB6    X1
06650  M01S00180.253l688 +++|          SB6    B6+B6       INDEX INTO *EVSB* FOR LAST ENTRY
06651  M01S00181.253l688 +++|
06652  M01S00182.253l688 +++|*         GET VSN OF NEXT AVAILABLE TAPE FROM *EVSB*.
06653  M01S00183.253l688 +++|
06654  M01S00184.253l688 +++| GVS2     SA5    GVSA        MASK FOR SECOND WORD OF *EVSB* ENTRY
06655  M01S00185.253l688 +++|          MX0    36          MASK OF VSN/PACKNAM

Seq #  *Modification Id* Act 
----------------------------+
06656  M02S00186.274l797 ---| GVS3     ZR     B6,GVS7     IF NO AVAILABLE STAGING TAPES IN *EVSB*

Seq #  *Modification Id* Act 
----------------------------+
06657  M01S00887.274l797 +++| GVS3     ZR     B6,GVS12    IF NO AVAILABLE STAGING TAPES IN *EVSB*

Seq #  *Modification Id* Act 
----------------------------+
06658  M01S00187.253l688 +++|          SB6    B6-2        CHECK NEXT TAPE
06659  M01S00188.253l688 +++|          SA1    EVSB+B6     LOAD *EVSB* ENTRY
06660  M01S00189.253l688 +++|          SA2    A1+B1
06661  M01S00190.253l688 +++|          BX3    X0*X1
06662  M01S00191.253l688 +++|          BX6    X5*X2
06663  M01S00192.253l688 +++|          ZR     X3,GVS3     IF NO VSN PRESENT
06664  M01S00193.253l688 +++|          NZ     X6,GVS3     IF RESOURCE NOT AVAILABLE
06665  M01S00194.253l688 +++|
06666  M01S00195.253l688 +++|*         CONVERT VSN TO PACKED VSN.
06667  M01S00196.253l688 +++|
06668  M01S00197.253l688 +++|          LX1    12          POSITION OFFSET
06669  M01S00198.253l688 +++|          SB7    B1          ASSUME DECIMAL CONVERSION
06670  M01S00199.253l688 +++|          BX5    X0*X1       EXTRACT OFFSET
06671  M01S00200.253l688 +++|          RJ     DXB         CONVERT OFFSET TO BINARY
06672  M01S00201.253l688 +++|          NZ     X4,GVS2     IF ERROR IN CONVERSION
06673  M01S00202.253l688 +++|          SX7    X6-5000
06674  M01S00203.253l688 +++|          MX0    12
06675  M01S00204.253l688 +++|          NG     X7,GVS4     IF NOT BACKUP VSN
06676  M01S00205.253l688 +++|          BX6    X7          USE LOWER SET (0-4095) IN COMPARISION
06677  M01S00206.253l688 +++| GVS4     SA1    A1          RELOAD VSN
06678  M01S00207.253l688 +++|          BX2    X0*X1
06679  M01S00208.253l688 +++|          LX2    -36         POSITION VSN PREFIX
06680  M01S00209.253l688 +++|
06681  M01S00210.253l688 +++|*         CHECK IF A STAGING REQUEST EXISTS FOR THIS TAPE.
06682  M01S00211.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
06683  M02S00212.274l797 ---|          SA3    STVL

Seq #  *Modification Id* Act 
----------------------------+
06684  M01S00888.274l797 +++|          SA3    STVL-1

Seq #  *Modification Id* Act 
----------------------------+
06685  M01S00213.253l688 +++|          BX6    X2+X6       BUILD PACKED VSN ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06686  M01S00889.274l797 +++| GVS5     SA3    A3+B1       ADVANCE TO NEXT ENTRY
06687  M01S00890.274l797 +++|          ZR     X3,GVS2     IF END OF VSN LIST ENCOUNTERED
06688  M01S00891.274l797 +++|          IX7    X3-X6

Seq #  *Modification Id* Act 
----------------------------+
06689  M01S00214.253l688 +++|          MX0    -24

Seq #  *Modification Id* Act 
----------------------------+
06690  M02S00215.274l797 ---| GVS5     ZR     X3,GVS2     IF END OF VSN LIST ENCOUNTERED
06691  M02S00216.274l797 ---|          IX7    X3-X6
06692  M02S00217.274l797 ---|          SA3    A3+B1       ADVANCE TO NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06693  M01S00218.253l688 +++|          BX7    -X0*X7
06694  M01S00219.253l688 +++|          NZ     X7,GVS5     IF PACKED VSN DOES NOT MATCH
06695  M01S00220.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
06696  M02S00221.274l797 ---|*         AVAILABLE TAPE FOUND WITH STAGING REQUEST OUTSTANDING.

Seq #  *Modification Id* Act 
----------------------------+
06697  M01S00892.274l797 +++|*         CHECK TAPE DEVICE TYPE AGAINST REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
06698  M01S00222.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
06699  M01S00893.274l797 +++|          MX0    -6          GET RESOURCE INDEX
06700  M01S00894.274l797 +++|          BX2    -X0*X1
06701  M01S00895.274l797 +++|          BX4    X3
06702  M01S00896.274l797 +++|          LX4    59-32
06703  M01S00897.274l797 +++|          LX3    59-30
06704  M01S00898.274l797 +++|          NG     X4,GVS7     IF REQUEST FOR *AT* (ACS CARTRIDGE TAPE)
06705  M01S00899.274l797 +++|          LX4    59-31-59+32
06706  M01S00900.274l797 +++|          NG     X4,GVS8     IF REQUEST FOR *CT* (CARTRIDGE TAPE)
06707  M01S00901.274l797 +++|          SX7    X2-RGEP
06708  M01S00902.274l797 +++|          ZR     X7,GVS6     IF AVAILABLE TAPE IS *GE*
06709  M01S00903.274l797 +++|          SX7    X2-RPEP
06710  M01S00904.274l797 +++|          NZ     X7,GVS5     IF AVAILABLE TAPE IS NOT *PE*
06711  M01S00905.274l797 +++|
06712  M01S00906.274l797 +++|*         AVAILABLE *PE* TAPE FOUND WITH STAGE REQUEST OUTSTANDING.
06713  M01S00907.274l797 +++|
06714  M01S00908.274l797 +++|          SX7    /COMSMTX/D16  SET 1600 CPI DENSITY
06715  M01S00909.274l797 +++|          SX4    /COMSMTX/DVNT SET *NT* DEVICE TYPE
06716  M01S00910.274l797 +++|          EQ     GVS9        SET TAPE PARAMETERS INTO FET
06717  M01S00911.274l797 +++|
06718  M01S00912.274l797 +++|*         AVAILABLE *GE* TAPE FOUND WITH STAGE REQUEST OUTSTANDING.
06719  M01S00913.274l797 +++|
06720  M01S00914.274l797 +++| GVS6     SX7    /COMSMTX/D62  SET 6250 CPI DENSITY
06721  M01S00915.274l797 +++|          SX4    /COMSMTX/DVNT SET *NT* DEVICE TYPE
06722  M01S00916.274l797 +++|          EQ     GVS9        SET TAPE PARAMETERS INTO FET
06723  M01S00917.274l797 +++|
06724  M01S00918.274l797 +++|*         AVAILABLE *AT* TAPE FOUND WITH STAGE REQUEST OUTSTANDING.
06725  M01S00919.274l797 +++|
06726  M01S00920.274l797 +++| GVS7     SX7    X2-RATP
06727  M01S00921.274l797 +++|          NZ     X7,GVS5     IF AVAILABLE TAPE IS NOT *AT*
06728  M01S00922.274l797 +++|          SX7    /COMSMTX/D380  SET 38000 CPI DENSITY
06729  M01S00923.274l797 +++|          SX4    /COMSMTX/DVAT  SET *AT* DEVICE TYPE
06730  M01S00924.274l797 +++|          EQ     GVS9        SET TAPE PARAMETERS INTO FET
06731  M01S00925.274l797 +++|
06732  M01S00926.274l797 +++|*         AVAILABLE *CT* TAPE FOUND WITH STAGE REQUEST OUTSTANDING.
06733  M01S00927.274l797 +++|
06734  M01S00928.274l797 +++| GVS8     SX7    X2-RCTP
06735  M01S00929.274l797 +++|          NZ     X7,GVS5     IF AVAILABLE TAPE IS NOT *CT*
06736  M01S00930.274l797 +++|          SX7    /COMSMTX/D380  SET 38000 CPI DENSITY
06737  M01S00931.274l797 +++|          SX4    /COMSMTX/DVCT  SET *CT* DEVICE TYPE
06738  M01S00932.274l797 +++|          EQ     GVS9        SET TAPE PARAMETERS INTO FET
06739  M01S00933.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
06740  M02S00934.resex44 ---|*         SET TAPE DESCRIPTORS, TAPE BLOCK DEFNITION, AND VSN.

Seq #  *Modification Id* Act 
----------------------------+
06741  M01S00001.resex44 +++|*         SET TAPE DESCRIPTORS, TAPE BLOCK DEFINITION, AND VSN.

Seq #  *Modification Id* Act 
----------------------------+
06742  M01S00935.274l797 +++|
06743  M01S00936.274l797 +++| GVS9     SA2    GVSC        GET TAPE DESCRIPTORS
06744  M01S00937.274l797 +++|          LX4    55-0
06745  M01S00938.274l797 +++|          BX2    X2+X4       SET TAPE DEVICE TYPE
06746  M01S00939.274l797 +++|          LX7    51-0
06747  M01S00940.274l797 +++|          BX2    X2+X7       SET DENSITY
06748  M01S00941.274l797 +++|          SX7    /COMSMTX/TFI
06749  M01S00942.274l797 +++|          PL     X3,GVS10    IF NOT *LI* FORMAT
06750  M01S00943.274l797 +++|          SX7    /COMSMTX/TFLI
06751  M01S00944.274l797 +++| GVS10    SA5    TTFM+X7     GET TAPE FORMAT CHARACTERISTICS
06752  M01S00945.274l797 +++|          LX7    30-0        SET TAPE FORMAT
06753  M01S00946.274l797 +++|          BX7    X2+X7

Seq #  *Modification Id* Act 
----------------------------+
06754  M02S00947.resex44 ---|          SA7    F+FTAP      STORE TAPE DESCRIPTORS

Seq #  *Modification Id* Act 
----------------------------+
06755  M01S00002.resex44 +++|          SA2    F+FTAP      GET REQUESTED OPTIONS
06756  M01S00003.resex44 +++|          MX0    12
06757  M01S00004.resex44 +++|          LX0    -12
06758  M01S00005.resex44 +++|          BX2    X0*X2       REQUESTED OPTIONS
06759  M01S00006.resex44 +++|          BX7    X2+X7       TAPE DESCRIPTORS AND REQUESTED OPTIONS
06760  M01S00007.resex44 +++|          SA7    A2          STORE TAPE DESCRIPTORS AND OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
06761  M02S00948.282l826 ---|          LX5    12
06762  M02S00949.282l826 ---|          MX0    24
06763  M02S00950.282l826 ---|          BX7    X0*X5       SET BLOCK SIZE (WORD COUNT AND OVERFLOW)

Seq #  *Modification Id* Act 
----------------------------+
06764  M01S00333.282l826 +++|          LX5    -24
06765  M01S00334.282l826 +++|          MX0    -24
06766  M01S00335.282l826 +++|          BX7    -X0*X5      SET BLOCK SIZE (WORD COUNT AND OVERFLOW)

Seq #  *Modification Id* Act 
----------------------------+
06767  M01S00951.274l797 +++|          SA7    TB

Seq #  *Modification Id* Act 
----------------------------+
06768  M02S00223.274l797 ---|          SA2    F+FVSN      SET VSN INTO FET

Seq #  *Modification Id* Act 
----------------------------+
06769  M01S00224.253l688 +++|          SA6    PVST        SET PACKED VSN BEING ASSIGNED
06770  M01S00225.253l688 +++|          MX0    36
06771  M01S00226.253l688 +++|          BX6    X0*X1       VSN

Seq #  *Modification Id* Act 
----------------------------+
06772  M02S00227.274l797 ---|          BX2    -X0*X2
06773  M02S00228.274l797 ---|          BX7    X6+X2
06774  M02S00229.274l797 ---|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
06775  M01S00952.274l797 +++|          SA6    EVSN        SET EXTERNAL VSN
06776  M01S00953.274l797 +++|          SA6    IVSN        SET INTERNAL VSN
06777  M01S00954.274l797 +++|          SA6    F+FVSN      SET VSN FOR POSSIBLE DUPLICATE VSN CHECK

Seq #  *Modification Id* Act 
----------------------------+
06778  M01S00230.253l688 +++|
06779  M01S00231.253l688 +++|*         CLEAR TAPE ALTERNATE STORAGE VSN LIST.
06780  M01S00232.253l688 +++|
06781  M01S00233.253l688 +++|          SA2    STVL+1

Seq #  *Modification Id* Act 
----------------------------+
06782  M02S00234.274l797 ---|          ZR     X2,GVS6     IF ONLY ONE VSN WAS IN LIST

Seq #  *Modification Id* Act 
----------------------------+
06783  M01S00955.274l797 +++|          ZR     X2,GVS11    IF ONLY ONE VSN WAS IN LIST

Seq #  *Modification Id* Act 
----------------------------+
06784  M01S00235.253l688 +++|          SA1    GVSB
06785  M01S00236.253l688 +++|          SX6    B1
06786  M01S00237.253l688 +++|          LX6    36-0        POSITION *MORE VSN-S* FLAG
06787  M01S00238.253l688 +++|          BX6    X6+X1
06788  M01S00239.253l688 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
06789  M02S00240.274l797 ---| GVS6     WTSB   GVSB,0      SEND CODE TO CLEAR VSN LIST

Seq #  *Modification Id* Act 
----------------------------+
06790  M01S00956.274l797 +++| GVS11    WTSB   GVSB,0      SEND CODE TO CLEAR VSN LIST

Seq #  *Modification Id* Act 
----------------------------+
06791  M01S00241.253l688 +++|          WRITER R,R         FLUSH BUFFER FOR REQUEST FILE

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

Seq #  *Modification Id* Act 
----------------------------+
06793  M01S00242.253l688 +++|          EQ     RMT         REQUEST MAGNETIC TAPE
06794  M01S00243.253l688 +++|
06795  M01S00244.253l688 +++|*         NO STAGING TAPE AVAILABLE.
06796  M01S00245.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
06797  M02S00246.274l797 ---| GVS7     RETRF  D           DROP INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
06798  M01S00958.274l797 +++| GVS12    RETRF  D           DROP INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
06799  M01S00247.253l688 +++|          SX5    WSTG        SET EVENT DESCRIPTOR
06800  M01S00248.253l688 +++|          SA1    WSTG+1      *WAITING FOR STAGING TAPE.*
06801  M01S00249.253l688 +++|          RJ     PRO         PROCESS TIMED EVENT ROLLOUT
06802  M01S00250.253l688 +++|          SX1    B1          SET *REQUEST FILE ALREADY READ*
06803  M01S00251.253l688 +++|          EQ     GVS1        TRY AGAIN
06804  M01S00252.253l688 +++|
06805  M01S00253.253l688 +++|
06806  M01S00254.253l688 +++| GVSA     VFD    12/,12/-0,6/-0,18/,12/-0
06807  M01S00255.253l688 +++| GVSB     VFD    12//COMSMTX/SEV,12/,18/0,18//COMSMTX/RCALL  CLEAR VSNS
06808  M01S00256.253l688 +++|          DATA   0           END OF LIST MARKER

Seq #  *Modification Id* Act 
----------------------------+
06809  M01S00959.274l797 +++|
06810  M01S00960.274l797 +++|*         CONSTANT TAPE DESCRIPTORS FOR STAGING TAPE ASSIGNMENT.

Seq #  *Modification Id* Act 
----------------------------+
06811  M02S00961.resex44 ---|*         LB=KL, CV=AS, PO=RU.

Seq #  *Modification Id* Act 
----------------------------+
06812  M01S00008.resex44 +++|*         LB=KL, CV=AS.

Seq #  *Modification Id* Act 
----------------------------+
06813  M01S00962.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
06814  M02S00963.resex44 ---| GVSC     VFD    6/20B,3/0,3//COMSMTX/ANS,12/50B,6/0,6/0,24/0

Seq #  *Modification Id* Act 
----------------------------+
06815  M01S00009.resex44 +++| GVSC     VFD    6/20B,3/0,3//COMSMTX/ANS,12/0,6/0,6/0,24/0

Seq #  *Modification Id* Act 
----------------------------+
06816  M01S00257.253l688 +++| UVL      SPACE  4,20
06817  M01S00258.253l688 +++|**        UVL - UPDATE STAGING TAPE VSN LIST.
06818  M01S00259.253l688 +++|*
06819  M01S00260.253l688 +++|*         ENTRY  STAGE REQUEST FILE ATTACHED.
06820  M01S00261.253l688 +++|*                (X1) = 1, IF STAGE REQUEST FILE ALREADY READ.
06821  M01S00262.253l688 +++|*
06822  M01S00263.253l688 +++|*         EXIT   VSN LIST UPDATED AND TRANSMITTED TO *MAGNET*.
06823  M01S00264.253l688 +++|*
06824  M01S00265.253l688 +++|*         USES   X - 0, 1, 2, 6, 7.
06825  M01S00266.253l688 +++|*                A - 0, 1, 2, 6.
06826  M01S00267.253l688 +++|*                B - 6.
06827  M01S00268.253l688 +++|*
06828  M01S00269.253l688 +++|*         CALLS  AEV.
06829  M01S00270.253l688 +++|*
06830  M01S00271.253l688 +++|*         MACROS MOVE, READEI, READW, RECALL, RDSB, WRITE, WRITEW, WTSB.
06831  M01S00272.253l688 +++|
06832  M01S00273.253l688 +++|
06833  M01S00274.253l688 +++| UVL      SUBR               ENTRY/EXIT
06834  M01S00275.253l688 +++|          NZ     X1,UVL2     IF REQUEST FILE ALREADY READ
06835  M01S00276.253l688 +++|          BX6    X6-X6       INITIALIZE VSN LIST
06836  M01S00277.253l688 +++|          SA6    STVL
06837  M01S00278.253l688 +++|          SA6    A6+B1
06838  M01S00279.253l688 +++|          SX6    A6-B1
06839  M01S00280.253l688 +++|          SA6    LSVL
06840  M01S00281.253l688 +++|
06841  M01S00282.253l688 +++|*         READ REQUESTS FROM REQUEST FILE.
06842  M01S00283.253l688 +++|
06843  M01S00284.253l688 +++|          READEI R
06844  M01S00285.253l688 +++| UVL1     READW  R,UVLA,/COMSMTX/PFTBL
06845  M01S00286.253l688 +++|          NZ     X1,UVL2     IF END OF FILE
06846  M01S00287.253l688 +++|          SB6    UVLA        SET ADDRESS OF ENTRY
06847  M01S00288.253l688 +++|          RJ     AEV         ADD ENTRY TO VSN LIST
06848  M01S00289.253l688 +++|          EQ     UVL1        READ NEXT REQUEST FROM FILE
06849  M01S00290.253l688 +++|
06850  M01S00291.253l688 +++|*         READ REQUESTS FROM *MAGNET*-S FL AND COPY TO REQUEST FILE.
06851  M01S00292.253l688 +++|
06852  M01S00293.253l688 +++| UVL2     WRITE  R,*         SET WRITE CODE
06853  M01S00294.253l688 +++| UVL3     RJ     GSR         GET STAGE REQUEST FROM *MAGNET*
06854  M01S00295.253l688 +++|          NG     B6,ERR3     IF CANNOT COMMUNICATE WITH *MAGNET*
06855  M01S00296.253l688 +++|          ZR     B6,UVL4     IF NO REQUEST
06856  M01S00297.253l688 +++|          SA0    B6          HOLD ADDRESS
06857  M01S00298.253l688 +++|          WRITEW R,B6,/COMSMTX/PFTBL  COPY REQUEST TO REQUEST FILE
06858  M01S00299.253l688 +++|          SB6    A0          ADDRESS OF STAGE REQUEST
06859  M01S00300.253l688 +++|          RJ     AEV         ADD ENTRY TO VSN LIST
06860  M01S00301.253l688 +++|          EQ     UVL3        GET NEXT REQUEST FROM *MAGNET*
06861  M01S00302.253l688 +++|
06862  M01S00303.253l688 +++|*         TRANSFER UPDATED VSN LIST TO *MAGNET*.
06863  M01S00304.253l688 +++|
06864  M01S00305.253l688 +++| UVL4     SX0    STVL
06865  M01S00306.253l688 +++|          SX6    /COMSMTX/SEV
06866  M01S00307.253l688 +++|          SA1    X0+B1
06867  M01S00308.253l688 +++|          SX7    /COMSMTX/RCALL
06868  M01S00309.253l688 +++|          LX6    48-0
06869  M01S00310.253l688 +++|          BX6    X6+X7
06870  M01S00311.253l688 +++|          ZR     X1,UVL5     IF ONLY 1 VSN IN LIST
06871  M01S00312.253l688 +++|          SX1    B1
06872  M01S00313.253l688 +++| UVL5     LX1    36-0
06873  M01S00314.253l688 +++|          BX6    X6+X1       SET MULTIPLE VSN FLAG
06874  M01S00315.253l688 +++|          SA6    UVLB        SET VSN HEADER BLOCK
06875  M01S00316.253l688 +++| UVL6     MOVE   /COMSMTX/RCALL-1,X0,UVLB+1
06876  M01S00317.253l688 +++|          WTSB   UVLB,0      SEND VSN LIST
06877  M01S00318.253l688 +++| UVL7     RECALL
06878  M01S00319.253l688 +++|          RDSB   MTSI,1,/COMSMTX/RCAL,UVLD
06879  M01S00320.253l688 +++|          SA1    UVLD
06880  M01S00321.253l688 +++|          NZ     X1,UVL7     IF NOT PROCESSED
06881  M01S00322.253l688 +++|          SA1    UVLB
06882  M01S00323.253l688 +++|          SA2    LSVL        GET LAST ENTRY+1
06883  M01S00324.253l688 +++|          SX6    /COMSMTX/RCALL-1
06884  M01S00325.253l688 +++|          IX0    X0+X6
06885  M01S00326.253l688 +++|          LX6    18
06886  M01S00327.253l688 +++|          IX6    X6+X1
06887  M01S00328.253l688 +++|          IX7    X2-X0
06888  M01S00329.253l688 +++|          SA6    A1
06889  M01S00330.253l688 +++|          PL     X7,UVL6     IF MORE IN LIST
06890  M01S00331.253l688 +++|          EQ     UVLX        RETURN
06891  M01S00332.253l688 +++|
06892  M01S00333.253l688 +++|
06893  M01S00334.253l688 +++| UVLA     BSSZ   /COMSMTX/PFTBL  REQUEST BLOCK
06894  M01S00335.253l688 +++| UVLB     VFD    12//COMSMTX/SEV,30/**,18//COMSMTX/RCALL  SET VSN
06895  M01S00336.253l688 +++|          BSSZ   /COMSMTX/RCALL-1
06896  M01S00337.253l688 +++| UVLD     BSS    1           RSB TRANSFER BLOCK
06897  M00S03720.resex   +++|          TITLE  PREVIEW DISPLAY SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
06898  M01S03721.274l797 ---|          SPACE  4,20
06899  M01S03722.274l797 ---|***       PREVIEW DISPLAY BUFFER.
06900  M01S03723.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06901  M02S03724.274l797 ---|*         THE PREVIEW DISPLAY BUFFER IS SAVED IN MAGNETS FIELD LENGTH
06902  M02S03725.274l797 ---|*         BUT IS BUILT BY RESEX.
06903  M02S03726.274l797 ---|*         THE FIRST WORD IN THE BUFFER IS THE LENGTH OF THE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
06904  M03S03727.274l797 ---|*         WHILE OTHER ENTRIES ARE TWO WORDS IN LENGTH AS FOLLOWS--

Seq #  *Modification Id* Act 
----------------------------+
06905  M03S00199.274l797 ---|*         WHILE OTHER ENTRIES ARE THREE WORDS IN LENGTH AS FOLLOWS--

Seq #  *Modification Id* Act 
----------------------------+
06906  M02S00338.274l797 ---|*         THE PREVIEW DISPLAY BUFFER IS SAVED IN *MAGNET*-S FIELD
06907  M02S00339.274l797 ---|*         LENGTH BUT IS BUILT BY *RESEX*.  WITHIN *RESEX* AND ON
06908  M02S00340.274l797 ---|*         THE DEMAND FILE, ENTRIES ARE FOUR WORDS IN LENGTH,
06909  M02S00341.274l797 ---|*         WITH THE FOLLOWING FORMAT --

Seq #  *Modification Id* Act 
----------------------------+
06910  M01S03728.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06911  M02S03729.274l797 ---|*T        42/ NAME REQUIRED, 18/ RESOURCE TYPE

Figure

Seq #  *Modification Id* Act 
----------------------------+
06912  M03S03730.274l797 ---|*T        42/ USER NUMBER, 6/ FLAGS, 12/ EJT ORDINAL

Figure

Seq #  *Modification Id* Act 
----------------------------+
06913  M03S00045.274l797 ---|*T        42/ USER NAME, 6/ FLAGS, 12/ EJT ORDINAL

Figure

Seq #  *Modification Id* Act 
----------------------------+
06914  M03S00200.274l797 ---|*T        36/ TMS VSN, 1/ VERIFY NON-TMS, 11/, 12/ FAMILY ORDINAL

Figure

Seq #  *Modification Id* Act 
----------------------------+
06915  M02S00342.274l797 ---|*T RQPD   42/ VSN OR PACKNAME,1/F,17/ RESOURCE TYPE

Figure RQPD

06916  M02S00343.274l797 ---|*T RQPU   42/ USER NAME,6/ FLAGS,12/ EJTO

Figure RQPU

06917  M02S00344.274l797 ---|*T RQPT   1/S,59/ PRIORITY

Figure RQPT

06918  M02S00345.274l797 ---|*T RQCW   36/ *TMS* VSN,1/V,11 /,12/ FAM

Figure RQCW

Seq #  *Modification Id* Act 
----------------------------+
06919  M01S03731.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06920  M02S03732.274l797 ---|*         FLAGS  BIT 0  RING OUT
06921  M02S03733.274l797 ---|*                    1  RING IN
06922  M02S03734.274l797 ---|*                    2  LABELED

Seq #  *Modification Id* Act 
----------------------------+
06923  M03S00318.274l797 ---|*                  3-5  SECURITY ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
06924  M02S00346.274l797 ---|*         F         *OFF* FLAG.

Seq #  *Modification Id* Act 
----------------------------+
06925  M01S03735.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06926  M02S00347.274l797 ---|*         FLAGS     BIT 0  RING OUT
06927  M02S00348.274l797 ---|*                       1  RING IN
06928  M02S00349.274l797 ---|*                       2  LABELED
06929  M02S00350.274l797 ---|*                     3-5  SECURITY ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
06930  M01S03736.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
06931  M02S03737.274l797 ---|*         RQPD ENTRIES HAVE THE FORMAT-
06932  M02S03738.274l797 ---|* PACKS   42/ PACKNAME, 18/ RESOURCE TYPE
06933  M02S03739.274l797 ---|* TAPES   36/ VSN, 6/0, 18/ RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
06934  M02S00351.274l797 ---|*         EJTO      EJT ORDINAL.
06935  M02S00352.274l797 ---|*
06936  M02S00353.274l797 ---|*         S         REQUEST FOR STAGING TAPE.
06937  M02S00354.274l797 ---|*
06938  M02S00355.274l797 ---|*         PRIORITY  PRIORITY FOR LISTING ON DISPLAY.
06939  M02S00356.274l797 ---|*
06940  M02S00357.274l797 ---|*         V         VERIFY NON-*TMS*.
06941  M02S00358.274l797 ---|*
06942  M02S00359.274l797 ---|*         FAM       FAMILY ORDINAL.
06943  M02S00360.274l797 ---|*
06944  M02S00361.274l797 ---|*         WITHIN *MAGNET*, THE PREVIEW BUFFER ENTRIES ARE THREE
06945  M02S00362.274l797 ---|*         WORDS IN LENGTH, SINCE *RESEX* DELETES THE PRIORITY WORD
06946  M02S00363.274l797 ---|*         BEFORE TRANSMITTING THE TABLE TO *MAGNET*.  WITHIN *MAGNET*,
06947  M02S00364.274l797 ---|*         THE FIRST WORD IN THE BUFFER IS THE LENGTH OF THE BUFFER.
06948  M00S03740.resex   +++| BPD      SPACE  4,15
06949  M00S03741.resex   +++|**        BPD - BUILD PREVIEW DISPLAY.
06950  M00S03742.resex   +++|*
06951  M00S03743.resex   +++|*         ENTRY  (RESB) = DEMAND ENTRY OF CURRENT REQUESTOR.
06952  M00S03744.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
06953  M01S03745.253l688 ---|*         EXIT   PREVIEW BUFFER BUILD AND SENT TO MAGNET.

Seq #  *Modification Id* Act 
----------------------------+
06954  M02S00365.282l826 ---|*         EXIT   PREVIEW BUFFER BUILT AND SENT TO *MAGNET*.

Seq #  *Modification Id* Act 
----------------------------+
06955  M01S00336.282l826 +++|*         EXIT   PREVIEW BUFFER BUILT AND UPDATED.
06956  M01S00337.282l826 +++|*                ACS TAPE MOUNT REQUESTS SENT TO MAGNET.
06957  M00S03746.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
06958  M01S03747.253l688 ---|*         USES   A - 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
06959  M02S00366.282l826 ---|*         USES   X - ALL.
06960  M02S00367.282l826 ---|*                A - 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
06961  M01S03748.282l826 ---|*                B - 3, 4, 5.

Seq #  *Modification Id* Act 
----------------------------+
06962  M01S00338.282l826 +++|*         USES   X - 0, 1, 2, 4, 6, 7.
06963  M01S00339.282l826 +++|*                A - 1, 2, 6.
06964  M01S00340.282l826 +++|*                B - 2, 3, 5.

Seq #  *Modification Id* Act 
----------------------------+
06965  M01S03749.253l688 ---|*                X - ALL.
06966  M00S03750.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
06967  M01S03751.253l688 ---|*         CALLS  CTA, EPB.

Seq #  *Modification Id* Act 
----------------------------+
06968  M02S00368.274l797 ---|*         CALLS  CTA, EPB, BSP.

Seq #  *Modification Id* Act 
----------------------------+
06969  M02S00964.282l826 ---|*         CALLS  BSP, CPB, CTA, EPB.

Seq #  *Modification Id* Act 
----------------------------+
06970  M01S00341.282l826 +++|*         CALLS  BSP, CRB, CTA, EPB, PTE.
06971  M00S03752.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
06972  M01S03753.274l797 ---|*         MACROS FATRF, PDATE, READ, READW, RETRF, WTSB.

Seq #  *Modification Id* Act 
----------------------------+
06973  M02S00965.282l826 ---|*         MACROS CLEAR, FATRF, PDATE, READ, READW, RETRF, WTSB.

Seq #  *Modification Id* Act 
----------------------------+
06974  M01S03754.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
06975  M01S00342.282l826 +++|*         MACROS CLEAR, FATRF, PDATE, READ, READW, RETRF, SYSTEM, WTSB.
06976  M00S03755.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
06977  M01S03756.274l797 ---| BPD6     SX0    /COMSMTX/PBUFL
06978  M01S03757.274l797 ---|          SX7    A7-PDB+2    SET LENGTH OF PREVIEW BUFFER
06979  M01S03758.274l797 ---|          IX6    X0-X7
06980  M01S03759.274l797 ---|          PL     X6,BPD7     IF .LE. PBUFL WORDS OF PREVIEW DATA
06981  M01S03760.274l797 ---|          BX7    X0          SET TO MAXIMUM
06982  M01S03761.274l797 ---| BPD7     BX6    X6-X6
06983  M01S03762.274l797 ---|          SA6    A7+B1       SET END OF PREVIEW BUFFER
06984  M01S03763.274l797 ---|          SA7    PDB
06985  M01S03764.274l797 ---|          WTSB   A7,1        SEND PREVIEW BUFFER TO MAGNET BUFFER 1

Seq #  *Modification Id* Act 
----------------------------+
06986  M02S03765.274l797 ---|
06987  M02S03766.274l797 ---|*         IGNORE REPLY FROM *WTSB* CALL.

Seq #  *Modification Id* Act 
----------------------------+
06988  M02S00369.274l797 ---|*                            (IGNORE REPLY FROM *WTSB* CALL)
06989  M00S03767.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
06990  M01S00966.274l797 +++| BPD      SUBR               ENTRY/EXIT
06991  M00S03768.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
06992  M01S03769.274l797 ---| BPD      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
06993  M02S00967.282l826 ---|*         CLEAR PREVIEW BUFFERS.

Seq #  *Modification Id* Act 
----------------------------+
06994  M01S00343.282l826 +++|*         CLEAR BUFFERS.

Seq #  *Modification Id* Act 
----------------------------+
06995  M01S00968.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
06996  M02S00969.282l826 ---|          CLEAR  OPRB,RPBL
06997  M02S00970.282l826 ---|          CLEAR  APRB,RPBL

Seq #  *Modification Id* Act 
----------------------------+
06998  M01S00344.282l826 +++|          CLEAR  RPRB,RPBL
06999  M01S00345.282l826 +++|          CLEAR  AMRB,RMBL

Seq #  *Modification Id* Act 
----------------------------+
07000  M01S00971.274l797 +++|
07001  M01S00972.274l797 +++|*         ATTACH DEMAND FILE AND INITIALIZE FOR PRIORITY CALCULATION.
07002  M01S00973.274l797 +++|
07003  M00S03770.resex   +++|          FATRF  D,RM        ATTACH DEMAND FILE
07004  M00S03771.resex   +++|          READ   X2          READ DEMAND FILE

Seq #  *Modification Id* Act 
----------------------------+
07005  M01S00974.274l797 +++|          PDATE  BPDA        GET PACKED DATE AND TIME
07006  M01S00975.274l797 +++|          SA1    BPDA
07007  M01S00976.274l797 +++|          RJ     PTE         CONVERT TO ABSOLUTE SECONDS
07008  M01S00977.274l797 +++|          SA6    BPDA
07009  M00S03772.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
07010  M01S03773.274l797 ---|          BX6    X6-X6
07011  M01S03774.274l797 ---|          SA6    EPBA        CLEAR LENGTH OF PREVIEW SCRATCH AREA
07012  M01S03775.274l797 ---|          PDATE  EPBB
07013  M01S03776.274l797 ---|          EQ     BPD3        READ DEMAND FILE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07014  M02S00978.282l826 ---|*         CHECK DEMAND FILE ENTRY FOR PREVIEW REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07015  M01S00346.282l826 +++|*         CHECK DEMAND FILE ENTRY FOR MOUNT REQUEST.
07016  M00S03777.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
07017  M02S00370.274l797 ---|*         READ NEXT ENTRY FROM DEMAND FILE AND ADD TO PREVIEW BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
07018  M01S00979.274l797 +++| BPD1     READW  D,BUF,RDEL  READ DEMAND FILE ENTRY
07019  M01S00980.274l797 +++|          NZ     X1,BPD4     IF END OF FILE

Seq #  *Modification Id* Act 
----------------------------+
07020  M02S00981.282l826 ---|          SA2    BUF+RQPD
07021  M02S00982.282l826 ---|          ZR     X2,BPD1     IF NO PREVIEW DATA

Seq #  *Modification Id* Act 
----------------------------+
07022  M01S00347.282l826 +++|          SA2    BUF+RREQ
07023  M01S00348.282l826 +++|          ZR     X2,BPD1     IF NO REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07024  M01S00371.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07025  M01S03778.274l797 ---| BPD1     SX4    BUF

Seq #  *Modification Id* Act 
----------------------------+
07026  M01S00983.274l797 +++|*         CALCULATE PRIORITY.
07027  M01S00984.274l797 +++|*
07028  M01S00985.274l797 +++|*         PRIORITY = ((A+1)*T)/(D-A).
07029  M01S00986.274l797 +++|*
07030  M01S00987.274l797 +++|*                A = NUMBER OF UNITS ASSIGNED.
07031  M01S00988.274l797 +++|*                T = TIME THE REQUEST HAS BEEN WAITING IN SECONDS.
07032  M01S00989.274l797 +++|*                D = TOTAL NUMBER OF UNITS DEMANDED.
07033  M01S00990.274l797 +++|
07034  M01S00991.274l797 +++|          SX4    BUF
07035  M00S03779.resex   +++|          SB5    -1          COUNT TOTAL ASSIGNS AND DEMANDS
07036  M00S03780.resex   +++|          RJ     CTA
07037  M00S03781.resex   +++|          SX4    B3
07038  M00S03782.resex   +++|          MX0    -10
07039  M00S03783.resex   +++|          BX4    -X0*X4      TRUNCATE ASSIGNS TO 10 BITS

Seq #  *Modification Id* Act 
----------------------------+
07040  M01S03784.274l797 ---|          BX5    -X0*X7      TRUNCATE DEMANDS TO 10 BITS
07041  M01S03785.274l797 ---|          NZ     X5,BPD2     IF DEMAND SPECIFIED
07042  M01S03786.274l797 ---|          SX5    B1+         SET DEFAULT DEMAND
07043  M01S03787.274l797 ---| BPD2     RJ     EPB         ENTER PREVIEW BUFFER
07044  M01S03788.274l797 ---| BPD3     READW  D,BUF,RDEL  READ DEMAND FILE ENTRY
07045  M01S03789.274l797 ---|          NZ     X1,BPD4     IF END OF FILE
07046  M01S03790.274l797 ---|          SA2    BUF+RQPD
07047  M01S03791.274l797 ---|          ZR     X2,BPD3     IF NO PREVIEW DATA
07048  M01S03792.274l797 ---|          EQ     BPD1        COUNT RESOURCES IN DEMAND FILE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07049  M01S00992.274l797 +++|          BX0    -X0*X7      TRUNCATE DEMANDS TO 10 BITS
07050  M01S00993.274l797 +++|          NZ     X0,BPD2     IF DEMAND SPECIFIED
07051  M01S00994.274l797 +++|          SX0    B1+         SET DEFAULT DEMAND
07052  M01S00995.274l797 +++| BPD2     SA1    BPDA

Seq #  *Modification Id* Act 
----------------------------+
07053  M02S00996.282l826 ---|          SA2    BUF+RQPT

Seq #  *Modification Id* Act 
----------------------------+
07054  M01S00349.282l826 +++|          SA2    BUF+RREQ

Seq #  *Modification Id* Act 
----------------------------+
07055  M01S00997.274l797 +++|          IX1    X1-X2       T
07056  M01S00998.274l797 +++|          IX6    X0-X4       D-A
07057  M01S00999.274l797 +++|          SX0    X4+B1       A+1
07058  M01S01000.274l797 +++|          IX0    X0*X1       (A+1)*T
07059  M01S01001.274l797 +++|          IX0    X0/X6       ((A+1)*T)/(D-A)
07060  M01S01002.274l797 +++|          NZ     X0,BPD3     IF NON-ZERO PRIORITY
07061  M01S01003.274l797 +++|          SX0    1           SET PRIORITY
07062  M01S01004.274l797 +++| BPD3     RJ     EPB         ENTER PREVIEW BUFFER
07063  M01S01005.274l797 +++|          EQ     BPD1        CHECK NEXT ENTRY
07064  M00S03793.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
07065  M01S01006.274l797 +++| BPD4     RETRF  D           RETURN DEMAND FILE, RELEASE INTERLOCK
07066  M01S01007.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
07067  M01S00372.253l688 +++|*         ADD STAGING TAPE REQUESTS TO PREVIEW BUFFER.
07068  M01S00373.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07069  M01S03794.274l797 ---| BPD4     RETRF  X2          RETURN DEMAND FILE, RELEASE INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
07070  M01S00374.253l688 +++|          RJ     BSP         BUILD STAGING TAPE PREVIEW ENTRIES
07071  M01S00375.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07072  M02S00376.274l797 ---|*         COMPACT PREVIEW BUFFER ENTRIES FROM FOUR WORDS EACH TO THREE.

Seq #  *Modification Id* Act 
----------------------------+
07073  M02S01008.282l826 ---|*         COMPACT PREVIEW BUFFERS AND SEND TO MAGNET.

Seq #  *Modification Id* Act 
----------------------------+
07074  M01S00350.282l826 +++|*         COMPACT AND TRANSFER REQUEST BUFFERS.

Seq #  *Modification Id* Act 
----------------------------+
07075  M01S00377.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07076  M01S03795.274l797 ---|          SA1    EPBA
07077  M01S03796.274l797 ---|          SB4    B0
07078  M01S03797.274l797 ---|          SB5    X1

Seq #  *Modification Id* Act 
----------------------------+
07079  M02S03798.274l797 ---|          SB3    3

Seq #  *Modification Id* Act 
----------------------------+
07080  M02S00201.274l797 ---|          SB3    RQPL

Seq #  *Modification Id* Act 
----------------------------+
07081  M01S03799.274l797 ---|          SA7    PDB
07082  M01S03800.274l797 ---| BPD5     GE     B4,B5,BPD6  IF END OF PREVIEW DATA
07083  M01S03801.274l797 ---|          SA1    PDB+1+B4
07084  M01S03802.274l797 ---|          SA2    A1+B1
07085  M01S03803.274l797 ---|          SB4    B4+B3
07086  M01S03804.274l797 ---|          LX6    X1
07087  M01S03805.274l797 ---|          BX7    X2
07088  M01S03806.274l797 ---|          SA6    A7+B1

Seq #  *Modification Id* Act 
----------------------------+
07089  M02S00202.274l797 ---|          SA3    A2+B1       FAMILY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
07090  M01S03807.274l797 ---|          SA7    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
07091  M02S00203.274l797 ---|          BX7    X3

Seq #  *Modification Id* Act 
----------------------------+
07092  M03S00204.274l797 ---|          SA7    A7+1       SET FAMILY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
07093  M02S00378.274l797 ---|          SA7    A7+B1       SET FAMILY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
07094  M01S03808.274l797 ---|          EQ     BPD5        COMPACT ALL ENTRIES IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07095  M02S01009.282l826 ---|          SB2    OPRB        SET OPERATOR BUFFER ADDRESS
07096  M02S01010.282l826 ---|          RJ     CPB         COMPACT OPERATOR PREVIEW BUFFER
07097  M02S01011.282l826 ---|          WTSB   OPRB,1      SEND OPERATOR PREVIEW BUFFER
07098  M02S01012.282l826 ---|          SB2    APRB        SET ACS PREVIEW BUFFER ADDRESS
07099  M02S01013.282l826 ---|          RJ     CPB         COMPACT ACS PREVIEW BUFFER
07100  M02S01014.282l826 ---|          WTSB   APRB,2      SEND ACS PREVIEW BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07101  M01S00351.282l826 +++|          SB2    RPRB
07102  M01S00352.282l826 +++|          SB3    RPBE
07103  M01S00353.282l826 +++|          RJ     CRB         COMPACT PREVIEW BUFFER
07104  M01S00354.282l826 +++|          SA1    BPDB
07105  M01S00355.282l826 +++|          SX2    B4-RPRB     LENGTH OF ENTRIES
07106  M01S00356.282l826 +++|          MX6    42
07107  M01S00357.282l826 +++|          LX2    18
07108  M01S00358.282l826 +++|          LX6    18
07109  M01S00359.282l826 +++|          BX1    X6*X1
07110  M01S00360.282l826 +++|          BX6    X1+X2       SET LENGTH IN REQUEST
07111  M01S00361.282l826 +++|          SA6    A1
07112  M01S00362.282l826 +++|          SYSTEM SFM,R,RPRB,TPDF*100B  TRANSFER PREVIEW REQUESTS
07113  M01S00363.282l826 +++|          WTSB   BPDB,0      INDICATE PREVIEW DISPLAY UPDATED
07114  M01S00364.282l826 +++|          SB2    AMRB+1
07115  M01S00365.282l826 +++|          SB3    2
07116  M01S00366.282l826 +++|          RJ     CRB         COMPACT MOUNT REQUEST BUFFER
07117  M01S00367.282l826 +++|          SX7    /COMSMTX/AMR
07118  M01S00368.282l826 +++|          SX6    B4-AMRB     BUFFER LENGTH
07119  M01S00369.282l826 +++|          LX7    48
07120  M01S00370.282l826 +++|          BX6    X7+X6       MERGE REQUEST CODE AND BUFFER LENGTH
07121  M01S00371.282l826 +++|          SA6    AMRB        SET REQUEST HEADER
07122  M01S00372.282l826 +++|          WTSB   AMRB,0      SEND MOUNT REQUESTS TO MAGNET

Seq #  *Modification Id* Act 
----------------------------+
07123  M01S01015.274l797 +++|          EQ     BPDX        RETURN
07124  M01S01016.274l797 +++|
07125  M01S01017.274l797 +++|
07126  M01S01018.274l797 +++| BPDA     CON    0           CURRENT TIME

Seq #  *Modification Id* Act 
----------------------------+
07127  M01S00373.282l826 +++| BPDB     VFD    12//COMSMTX/PDU,12/0,18/0,18/1

Seq #  *Modification Id* Act 
----------------------------+
07128  M01S00379.253l688 +++| BSP      SPACE  4,10
07129  M01S00380.253l688 +++|**        BSP - BUILD STAGING TAPE PREVIEW ENTRIES.
07130  M01S00381.253l688 +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
07132  M01S00374.282l826 +++|*         USES   X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
07133  M01S00383.253l688 +++|*                A - 1, 2, 4, 6, 7.
07134  M01S00384.253l688 +++|*
07135  M01S00385.253l688 +++|*         CALLS  CDD, EPB.
07136  M01S00386.253l688 +++|*
07137  M01S00387.253l688 +++|*         MACROS RDSB.
07138  M01S00388.253l688 +++|
07139  M01S00389.253l688 +++|
07140  M01S00390.253l688 +++| BSP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07141  M02S00391.resex37 ---|          RDSB   MTSI,1,/COMSMTX/TVSP,BSPA  GET VSN LIST POINTER

Seq #  *Modification Id* Act 
----------------------------+
07142  M01S00001.resex37 +++|          RDSB   MTSI,1,/COMSMTX/TVSP,BSPA,X  GET VSN LIST POINTER
07143  M01S00002.resex37 +++|          SA1    SS
07144  M01S00003.resex37 +++|          PL     X1,BSPX     IF *MAGNET* IS NOT ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
07145  M01S00392.253l688 +++|          SA1    BSPA        NUMBER OF STAGING VSN-S TO DISPLAY AT ONCE
07146  M01S00393.253l688 +++|          ZR     X1,BSPX     IF NOT DISPLAYING STAGING VSN-S
07147  M01S00394.253l688 +++|
07148  M01S00395.253l688 +++|*         READ LIST OF STAGING TAPE VSN-S FROM *MAGNET*.
07149  M01S00396.253l688 +++|
07150  M01S00397.253l688 +++|          SX7    X1          GET FWA OF TABLE
07151  M01S00398.253l688 +++|          AX1    30
07152  M01S00399.253l688 +++|          SX5    X1          GET WORD COUNT
07153  M01S00400.253l688 +++|          SX2    X5-BSPBL
07154  M01S00401.253l688 +++|          NG     X5,BSP1     IF NOT OVER MAXIMUM
07155  M01S00402.253l688 +++|          SX5    BSPBL
07156  M01S00403.253l688 +++| BSP1     RDSB   MTSI,X5,X7,BSPB   READ VSN LIST FROM *MAGNET*
07157  M01S00404.253l688 +++|          SX6    B0+
07158  M01S00405.253l688 +++|          SA6    BSPC        SET CURRENT OFFSET
07159  M01S00406.253l688 +++|
07160  M01S00407.253l688 +++|*         GET NEXT STAGING TAPE VSN.
07161  M01S00408.253l688 +++|
07162  M01S00409.253l688 +++| BSP2     SA1    BSPC        GET OFFSET
07163  M01S00410.253l688 +++|          SA2    BSPB+X1     LOAD VSN ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07164  M02S00411.282l826 ---|          SX6    X1+B1
07165  M02S00412.282l826 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
07166  M01S00375.282l826 +++|          SX6    X1+1
07167  M01S00376.282l826 +++|          SA6    A1+

Seq #  *Modification Id* Act 
----------------------------+
07168  M01S00413.253l688 +++|          ZR     X2,BSPX     IF ALL VSN ENTRIES PROCESSED
07169  M01S00414.253l688 +++|
07170  M01S00415.253l688 +++|*         CONSTRUCT PREVIEW DATA FROM VSN WORD.  THE PREVIEW ENTRY WILL
07171  M01S00416.253l688 +++|*         HAVE AN EJT ORDINAL OF ZERO AND A USER NAME OF *(STAGE)*.
07172  M01S00417.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07173  M01S00377.282l826 +++|          BX3    X2
07174  M01S00378.282l826 +++|          LX3    59-32

Seq #  *Modification Id* Act 
----------------------------+
07175  M02S00379.resex46 ---|          SX7    2RAT*100B   RESOURCE TYPE FOR *AT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07176  M01S00001.resex46 +++|          SX7    2RAT        RESOURCE TYPE FOR *AT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07177  M01S00380.282l826 +++|          NG     X3,BSP3     IF REQUEST FOR *AT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07178  M02S00381.resex46 ---|          SX7    2RCT*100B   RESOURCE TYPE FOR *CT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07179  M01S00002.resex46 +++|          SX7    2RCT        RESOURCE TYPE FOR *CT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07180  M01S00382.282l826 +++|          LX3    59-31-59+32
07181  M01S00383.282l826 +++|          NG     X3,BSP3     IF REQUEST FOR *CT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07182  M02S00384.resex46 ---|          SX7    /COMSMTX/DSTD*100B  RESOURCE TYPE FOR *NT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07183  M01S00003.resex46 +++|          SX7    /COMSMTX/DSTD  RESOURCE TYPE FOR *NT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07184  M01S00385.282l826 +++| BSP3     LX7    12

Seq #  *Modification Id* Act 
----------------------------+
07185  M02S00386.resex46 ---|          SA7    RESB+RQPV+PRES  SET RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
07186  M01S00004.resex46 +++|          SA7    BUF+RQPV+PRES  SET RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
07187  M01S00418.253l688 +++|          MX7    -12
07188  M01S00419.253l688 +++|          BX1    -X7*X2      VSN ORDINAL
07189  M01S00420.253l688 +++|          LX2    0-12
07190  M01S00421.253l688 +++|          BX0    -X7*X2      VSN PREFIX

Seq #  *Modification Id* Act 
----------------------------+
07191  M02S00422.282l826 ---|          BX6    X6-X6
07192  M02S00423.282l826 ---|          LX2    59-25-0+12
07193  M02S00424.282l826 ---|          PL     X2,BSP3     IF SECONDARY VSN NOT AVAILABLE
07194  M02S00425.282l826 ---|          SX6    1R=         DISPLAY *=*

Seq #  *Modification Id* Act 
----------------------------+
07195  M03S00426.282l826 ---| BSP3     SA4    BSPD

Seq #  *Modification Id* Act 
----------------------------+
07196  M02S01019.282l826 ---| BSP3     SA4    BSPD        USER NAME = *(STAGE)*, EJT ORDINAL = ZERO

Seq #  *Modification Id* Act 
----------------------------+
07197  M02S00427.282l826 ---|          LX6    18-0
07198  M02S00428.282l826 ---|          LX2    59-39-59+25
07199  M02S00429.282l826 ---|          PL     X2,BSP4     IF NOT BACKUP VSN
07200  M02S00430.282l826 ---|          SX1    X1+5000     DISPLAY THE BACKUP

Seq #  *Modification Id* Act 
----------------------------+
07201  M03S00431.282l826 ---| BSP4     BX2    X2-X2       SET EJT ORDINAL OF ZERO
07202  M03S00432.282l826 ---|          LX0    48-0        POSITION VSN PREFIX
07203  M03S00433.282l826 ---|          BX7    X2+X4       MERGE *(STAGE)* WITH EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
07204  M02S01020.282l826 ---| BSP4     LX0    48-0        POSITION VSN PREFIX
07205  M02S01021.282l826 ---|          BX7    X4

Seq #  *Modification Id* Act 
----------------------------+
07206  M02S00434.282l826 ---|          BX0    X0+X6       MERGE *=* WITH PREFIX

Seq #  *Modification Id* Act 
----------------------------+
07207  M02S01022.282l826 ---|          LX2    59-32-59+39

Seq #  *Modification Id* Act 
----------------------------+
07208  M03S00435.282l826 ---|          SA7    BUF+RQPU    SET SECOND WORD

Seq #  *Modification Id* Act 
----------------------------+
07209  M02S01023.282l826 ---|          SA7    BUF+RQPU    SET USER AND JOB IDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
07210  M03S00436.282l826 ---|          SX1    X1+10000    ASSURE LEADING ZEROS

Seq #  *Modification Id* Act 
----------------------------+
07211  M02S01024.282l826 ---|          SX5    2RAT*100B   RESOURCE TYPE FOR *AT* TAPE
07212  M02S01025.282l826 ---|          NG     X2,BSP5     IF REQUEST FOR *AT* TAPE
07213  M02S01026.282l826 ---|          SX5    2RCT*100B   RESOURCE TYPE FOR *CT* TAPE
07214  M02S01027.282l826 ---|          LX2    59-31-59+32
07215  M02S01028.282l826 ---|          NG     X2,BSP5     IF REQUEST FOR *CT* TAPE
07216  M02S01029.282l826 ---|          SX5    /COMSMTX/DSTD*100B  RESOURCE TYPE FOR *NT* TAPE
07217  M02S01030.282l826 ---| BSP5     SX1    X1+10000    ASSURE LEADING ZEROS

Seq #  *Modification Id* Act 
----------------------------+
07218  M01S00387.282l826 +++| BSP4     SX1    X1+10000    ASSURE LEADING ZEROS

Seq #  *Modification Id* Act 
----------------------------+
07219  M01S00437.253l688 +++|          RJ     CDD         CONVERT ORDINAL TO DISPLAY
07220  M01S00438.253l688 +++|          MX3    4*6
07221  M01S00439.253l688 +++|          LX4    6
07222  M01S00440.253l688 +++|          BX3    X3*X4       EXTRACT DIGITS

Seq #  *Modification Id* Act 
----------------------------+
07223  M01S00388.282l826 +++|          LX0    48-0        POSITION VSN PREFIX

Seq #  *Modification Id* Act 
----------------------------+
07224  M01S00441.253l688 +++|          LX3    -12

Seq #  *Modification Id* Act 
----------------------------+
07225  M02S00442.282l826 ---|          BX6    X3+X0       MERGE WITH ASSEMBLY

Seq #  *Modification Id* Act 
----------------------------+
07226  M03S00443.282l826 ---|          SX2    /COMSMTX/DSTD*100B  SET DEFAULT STAGING TAPE DENSITY
07227  M03S00444.282l826 ---|          BX6    X6+X2

Seq #  *Modification Id* Act 
----------------------------+
07228  M02S01031.282l826 ---|          BX6    X6+X5

Seq #  *Modification Id* Act 
----------------------------+
07229  M03S00445.282l826 ---|          SA6    BUF+RQPD    SET FIRST WORD
07230  M03S00446.282l826 ---|          MX6    1           SET *REQUEST FOR STAGING TAPE* FLAG
07231  M03S00447.282l826 ---|          SA6    BUF+RQPT    SET THIRD WORD

Seq #  *Modification Id* Act 
----------------------------+
07232  M02S01032.282l826 ---|          SA6    BUF+RQPD    SET VSN AND RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
07233  M01S00389.282l826 +++|          BX6    X3+X0       MERGE PREFIX AND ORDINAL
07234  M01S00390.282l826 +++|          SA6    BUF+RQPV+PVSN  SET EXTERNAL VSN
07235  M01S00391.282l826 +++|          SA6    BUF+RQPV+PVSI  SET INTERNAL VSN
07236  M01S00392.282l826 +++|          SA4    BSPD        USER NAME = *(STAGE)*, EJT ORDINAL = ZERO

Seq #  *Modification Id* Act 
----------------------------+
07237  M02S00448.resex42 ---|          LX6    23-59       SET *NON-TMS* FLAG

Seq #  *Modification Id* Act 
----------------------------+
07238  M03S00449.resex42 ---|          SA6    BUF+RQCW    SET FOURTH WORD

Seq #  *Modification Id* Act 
----------------------------+
07239  M02S01033.resex42 ---|          SA6    BUF+RQPF    SET FLAGS

Seq #  *Modification Id* Act 
----------------------------+
07240  M01S00001.resex42 +++|          SX6    5           SET LABELED AND READ ONLY FLAGS

Seq #  *Modification Id* Act 
----------------------------+
07241  M02S00002.282l826 ---|          SA6    BUF+RQPF

Seq #  *Modification Id* Act 
----------------------------+
07242  M01S00393.282l826 +++|          LX6    18
07243  M01S00394.282l826 +++|          BX7    X4
07244  M01S00395.282l826 +++|          SA6    BUF+RQPV+PFLG
07245  M01S00396.282l826 +++|          SA7    BUF+RQPV+PJID  SET USER AND JOB IDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
07246  M01S01034.274l797 +++|          SX0    B1          SET SPECIAL PRIORITY
07247  M01S01035.274l797 +++|          LX0    58-0

Seq #  *Modification Id* Act 
----------------------------+
07248  M01S00450.253l688 +++|          RJ     EPB         ENTER PREVIEW BUFFER
07249  M01S00451.253l688 +++|          EQ     BSP2        PROCESS NEXT ENTRY
07250  M01S00452.253l688 +++|
07251  M01S00453.253l688 +++|
07252  M01S00454.253l688 +++| BSPA     BSS    1           STAGING TAPE VSN POINTER FROM *MAGNET*
07253  M01S00455.253l688 +++| BSPB     BSSZ   /COMSMTX/SVMX  VSN LIST BUFFER
07254  M01S00456.253l688 +++| BSPBL    EQU    *-BSPB
07255  M01S00457.253l688 +++| BSPC     BSS    1           CURRENT OFFSET INTO *BSPB*

Seq #  *Modification Id* Act 
----------------------------+
07256  M02S00458.282l826 ---| BSPD     VFD    42/7L(STAGE),3/,3/5,12/

Seq #  *Modification Id* Act 
----------------------------+
07257  M02S03809.282l826 ---| EPB      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
07258  M02S01036.282l826 ---| CPB      SPACE  4,15
07259  M02S01037.282l826 ---|**        CPB - COMPACT PREVIEW BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
07260  M01S00397.282l826 +++| BSPD     VFD    42/7L(STAGE),6/0,12/0
07261  M01S00398.282l826 +++| CRB      SPACE  4,15
07262  M01S00399.282l826 +++|**        CRB - COMPACT REQUEST BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
07263  M01S01038.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07264  M02S01039.282l826 ---|*         ENTRY  (B2) = ADDRESS OF PREVIEW BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
07265  M01S00400.282l826 +++|*         ENTRY  (B2) = ADDRESS OF FIRST UNCOMPACTED ENTRY.
07266  M01S00401.282l826 +++|*                (B3) = UNCOMPACTED ENTRY LENGTH.

Seq #  *Modification Id* Act 
----------------------------+
07267  M01S01040.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07268  M02S01041.282l826 ---|*         EXIT   PREVIEW BUFFER ENTRIES COMPACTED (PRIORITY WORD
07269  M02S01042.282l826 ---|*                  REMOVED).
07270  M02S01043.282l826 ---|*                BUFFER LENGTH SET IN BUFFER HEADER WORD.

Seq #  *Modification Id* Act 
----------------------------+
07271  M01S00402.282l826 +++|*         EXIT   BUFFER ENTRIES COMPACTED (PRIORITY WORD REMOVED).
07272  M01S00403.282l826 +++|*                COMPACTED ENTRIES TERMINATED WITH ZERO WORD.
07273  M01S00404.282l826 +++|*                (B4) = ADDRESS OF TERMINATOR WORD.

Seq #  *Modification Id* Act 
----------------------------+
07274  M01S01044.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07275  M02S01045.282l826 ---|*         USES   X - 1, 2, 3, 5, 6, 7.
07276  M02S01046.282l826 ---|*                A - 1, 2, 3, 5, 6, 7.
07277  M02S01047.282l826 ---|*                B - 3.

Seq #  *Modification Id* Act 
----------------------------+
07278  M01S00405.282l826 +++|*         USES   X - 1, 6.
07279  M01S00406.282l826 +++|*                A - 1, 6.
07280  M01S00407.282l826 +++|*                B - 2, 4, 5.
07281  M01S00408.282l826 +++|*
07282  M01S00409.282l826 +++|*         MACROS MOVE.

Seq #  *Modification Id* Act 
----------------------------+
07283  M01S01048.274l797 +++|
07284  M01S01049.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
07285  M02S01050.282l826 ---| CPB      SUBR               ENTRY/EXIT
07286  M02S01051.282l826 ---|          SA5    B2+1-RPBE
07287  M02S01052.282l826 ---|          SB3    B2+1        INITIALIZE COMPACTED BUFFER POINTER
07288  M02S01053.282l826 ---| CPB1     SA5    A5+RPBE
07289  M02S01054.282l826 ---|          ZR     X5,CPB2     IF END OF ENTRIES
07290  M02S01055.282l826 ---|          SA1    A5+B1
07291  M02S01056.282l826 ---|          SA2    A1+B1
07292  M02S01057.282l826 ---|          SA3    A2+B1
07293  M02S01058.282l826 ---|          BX6    X1
07294  M02S01059.282l826 ---|          BX7    X2
07295  M02S01060.282l826 ---|          SA6    B3
07296  M02S01061.282l826 ---|          BX6    X3
07297  M02S01062.282l826 ---|          SA7    B3+B1
07298  M02S01063.282l826 ---|          SA6    B3+2
07299  M02S01064.282l826 ---|          SB3    B3+/COMSMTX/PRBE
07300  M02S01065.282l826 ---|          EQ     CPB1        CHECK NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07301  M01S00410.282l826 +++| CRB      SUBR               ENTRY/EXIT
07302  M01S00411.282l826 +++|          SB4    B2+         INITIALIZE COMPACTED ENTRY POINTER
07303  M01S00412.282l826 +++|          SB5    B3-1        SET COMPACTED ENTRY LENGTH
07304  M01S00413.282l826 +++| CRB1     SA1    B2
07305  M01S00414.282l826 +++|          ZR     X1,CRB2     IF END OF ENTRIES
07306  M01S00415.282l826 +++|          MOVE   B5,B2+B1,B4 MOVE ENTRY
07307  M01S00416.282l826 +++|          SB2    B2+B3       ADVANCE UNCOMPACTED ENTRY POINTER
07308  M01S00417.282l826 +++|          SB4    B4+B5       ADVANCE COMPACTED ENTRY POINTER
07309  M01S00418.282l826 +++|          EQ     CRB1        CHECK NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07310  M01S01066.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
07311  M02S01067.282l826 ---| CPB2     SX7    B3-B2
07312  M02S01068.282l826 ---|          SX1    X7-100B
07313  M02S01069.282l826 ---|          SX6    B0
07314  M02S01070.282l826 ---|          ZR     X1,CPB3     IF BUFFER EXACTLY FILLED WITH ENTRIES
07315  M02S01071.282l826 ---|          SA6    B3          TERMINATE ENTRIES
07316  M02S01072.282l826 ---|          SX7    X7+B1       COUNT TERMINATOR WORD
07317  M02S01073.282l826 ---| CPB3     SA7    B2          SET BUFFER LENGTH IN HEADER
07318  M02S01074.282l826 ---|          EQ     CPBX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07319  M01S00419.282l826 +++| CRB2     SX6    B0
07320  M01S00420.282l826 +++|          SA6    B4          TERMINATE ENTRIES
07321  M01S00421.282l826 +++|          EQ     CRBX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07322  M01S01075.274l797 +++| EPB      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
07323  M01S03810.282l826 ---|**        EPB - ENTER PREVIEW BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
07324  M01S00422.282l826 +++|**        EPB - ENTER PREVIEW OR MOUNT REQUEST BUFFER.
07325  M00S03811.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
07326  M01S03812.253l688 ---|*         ENTRY  (X4) = ASSIGNED COUNT.
07327  M01S03813.253l688 ---|*                (X5) = DEMAND COUNT.
07328  M01S03814.253l688 ---|*
07329  M01S03815.253l688 ---|*         EXIT   MAKES ENTRY INTO PREVIEW BUFFER IF ROOM.

Seq #  *Modification Id* Act 
----------------------------+
07330  M01S03816.274l797 ---|*         ENTRIES ARE ENTERED ACCORDING TO A PRIORITY WHICH DEPENDS UPON
07331  M01S03817.274l797 ---|*         1.)    THE NUMBER OF UNITS ASSIGNED - A.
07332  M01S03818.274l797 ---|*         2.)    THE TIME THE REQUEST HAS BEEN WAITING - T.
07333  M01S03819.274l797 ---|*         3.)    THE NUMBER OF UNITS NEEDED TO COMPLETE - (D-A).
07334  M01S03820.274l797 ---|*         THE PRIORITY IS COMPUTED AS ((A+1)*T)/(D-A).

Seq #  *Modification Id* Act 
----------------------------+
07335  M02S00459.274l797 ---|*         REQUESTS FOR STAGING TAPES ARE ENTERED BEFORE ALL OTHERS.

Seq #  *Modification Id* Act 
----------------------------+
07336  M01S01076.274l797 +++|*         ENTRY  (X0) = PRIORITY.
07337  M01S01077.274l797 +++|*                (BUF) = DEMAND FILE ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
07338  M01S00460.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07339  M02S00461.274l797 ---|*         ENTRY  (X4) = ASSIGNED COUNT (EXCEPT FOR STAGING TAPE).
07340  M02S00462.274l797 ---|*                (X5) = DEMAND COUNT. (EXCEPT FOR STAGING TAPE).

Proceed to Part 7