Deck RESEX Part 009

65 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
07046  M02S03790.274l797 ---|          SA2    BUF+RQPD

Seq #  *Modification Id* Act 
----------------------------+
07047  M02S03791.274l797 ---|          ZR     X2,BPD3     IF NO PREVIEW DATA

Seq #  *Modification Id* Act 
----------------------------+
07048  M02S03792.274l797 ---|          EQ     BPD1        COUNT RESOURCES IN DEMAND FILE ENTRY
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
07054  M01S00349.282l826 +++|          SA2    BUF+RREQ
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  M01S03793.resex   +++|
07065  M01S01006.274l797 +++| BPD4     RETRF  D           RETURN DEMAND FILE, RELEASE INTERLOCK
07066  M01S01007.274l797 +++|
07067  M01S00372.253l688 +++|*         ADD STAGING TAPE REQUESTS TO PREVIEW BUFFER.
07068  M01S00373.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07069  M02S03794.274l797 ---| BPD4     RETRF  X2          RETURN DEMAND FILE, RELEASE INTERLOCK
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.
07074  M01S00350.282l826 +++|*         COMPACT AND TRANSFER REQUEST BUFFERS.
07075  M01S00377.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07076  M02S03795.274l797 ---|          SA1    EPBA

Seq #  *Modification Id* Act 
----------------------------+
07077  M02S03796.274l797 ---|          SB4    B0

Seq #  *Modification Id* Act 
----------------------------+
07078  M02S03797.274l797 ---|          SB5    X1

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

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

Seq #  *Modification Id* Act 
----------------------------+
07081  M02S03799.274l797 ---|          SA7    PDB

Seq #  *Modification Id* Act 
----------------------------+
07082  M02S03800.274l797 ---| BPD5     GE     B4,B5,BPD6  IF END OF PREVIEW DATA

Seq #  *Modification Id* Act 
----------------------------+
07083  M02S03801.274l797 ---|          SA1    PDB+1+B4

Seq #  *Modification Id* Act 
----------------------------+
07084  M02S03802.274l797 ---|          SA2    A1+B1

Seq #  *Modification Id* Act 
----------------------------+
07085  M02S03803.274l797 ---|          SB4    B4+B3

Seq #  *Modification Id* Act 
----------------------------+
07086  M02S03804.274l797 ---|          LX6    X1

Seq #  *Modification Id* Act 
----------------------------+
07087  M02S03805.274l797 ---|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
07088  M02S03806.274l797 ---|          SA6    A7+B1

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

Seq #  *Modification Id* Act 
----------------------------+
07090  M02S03807.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  M02S03808.274l797 ---|          EQ     BPD5        COMPACT ALL ENTRIES IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07095  M02S01009.282l826 ---|          SB2    OPRB        SET OPERATOR BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
07096  M02S01010.282l826 ---|          RJ     CPB         COMPACT OPERATOR PREVIEW BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07097  M02S01011.282l826 ---|          WTSB   OPRB,1      SEND OPERATOR PREVIEW BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07098  M02S01012.282l826 ---|          SB2    APRB        SET ACS PREVIEW BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
07099  M02S01013.282l826 ---|          RJ     CPB         COMPACT ACS PREVIEW BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07100  M02S01014.282l826 ---|          WTSB   APRB,2      SEND ACS PREVIEW BUFFER
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
07123  M01S01015.274l797 +++|          EQ     BPDX        RETURN
07124  M01S01016.274l797 +++|
07125  M01S01017.274l797 +++|
07126  M01S01018.274l797 +++| BPDA     CON    0           CURRENT TIME
07127  M01S00373.282l826 +++| BPDB     VFD    12//COMSMTX/PDU,12/0,18/0,18/1
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.
07132  M01S00374.282l826 +++|*         USES   X - ALL.
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
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
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

Seq #  *Modification Id* Act 
----------------------------+
07165  M02S00412.282l826 ---|          SA6    A1
07166  M01S00375.282l826 +++|          SX6    X1+1
07167  M01S00376.282l826 +++|          SA6    A1+
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 +++|
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
07176  M01S00001.resex46 +++|          SX7    2RAT        RESOURCE TYPE FOR *AT* TAPE
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
07179  M01S00002.resex46 +++|          SX7    2RCT        RESOURCE TYPE FOR *CT* TAPE
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
07183  M01S00003.resex46 +++|          SX7    /COMSMTX/DSTD  RESOURCE TYPE FOR *NT* TAPE
07184  M01S00385.282l826 +++| BSP3     LX7    12

Seq #  *Modification Id* Act 
----------------------------+
07185  M02S00386.resex46 ---|          SA7    RESB+RQPV+PRES  SET RESOURCE TYPE
07186  M01S00004.resex46 +++|          SA7    BUF+RQPV+PRES  SET RESOURCE TYPE
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

Seq #  *Modification Id* Act 
----------------------------+
07192  M02S00423.282l826 ---|          LX2    59-25-0+12

Seq #  *Modification Id* Act 
----------------------------+
07193  M02S00424.282l826 ---|          PL     X2,BSP3     IF SECONDARY VSN NOT AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
07198  M02S00428.282l826 ---|          LX2    59-39-59+25

Seq #  *Modification Id* Act 
----------------------------+
07199  M02S00429.282l826 ---|          PL     X2,BSP4     IF NOT BACKUP VSN

Seq #  *Modification Id* Act 
----------------------------+
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

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

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
07212  M02S01025.282l826 ---|          NG     X2,BSP5     IF REQUEST FOR *AT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07213  M02S01026.282l826 ---|          SX5    2RCT*100B   RESOURCE TYPE FOR *CT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07214  M02S01027.282l826 ---|          LX2    59-31-59+32

Seq #  *Modification Id* Act 
----------------------------+
07215  M02S01028.282l826 ---|          NG     X2,BSP5     IF REQUEST FOR *CT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07216  M02S01029.282l826 ---|          SX5    /COMSMTX/DSTD*100B  RESOURCE TYPE FOR *NT* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07217  M02S01030.282l826 ---| BSP5     SX1    X1+10000    ASSURE LEADING ZEROS
07218  M01S00387.282l826 +++| BSP4     SX1    X1+10000    ASSURE LEADING ZEROS
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
07223  M01S00388.282l826 +++|          LX0    48-0        POSITION VSN PREFIX
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

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
07230  M03S00446.282l826 ---|          MX6    1           SET *REQUEST FOR STAGING TAPE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
07231  M03S00447.282l826 ---|          SA6    BUF+RQPT    SET THIRD WORD

Seq #  *Modification Id* Act 
----------------------------+
07232  M02S01032.282l826 ---|          SA6    BUF+RQPD    SET VSN AND RESOURCE TYPE
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
07240  M01S00001.resex42 +++|          SX6    5           SET LABELED AND READ ONLY FLAGS

Seq #  *Modification Id* Act 
----------------------------+
07241  M02S00002.282l826 ---|          SA6    BUF+RQPF
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
07246  M01S01034.274l797 +++|          SX0    B1          SET SPECIAL PRIORITY
07247  M01S01035.274l797 +++|          LX0    58-0
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  M03S03809.282l826 ---| EPB      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
07258  M02S01036.282l826 ---| CPB      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
07259  M02S01037.282l826 ---|**        CPB - COMPACT PREVIEW BUFFER.
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.
07263  M01S01038.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07264  M02S01039.282l826 ---|*         ENTRY  (B2) = ADDRESS OF PREVIEW BUFFER.
07265  M01S00400.282l826 +++|*         ENTRY  (B2) = ADDRESS OF FIRST UNCOMPACTED ENTRY.
07266  M01S00401.282l826 +++|*                (B3) = UNCOMPACTED ENTRY LENGTH.
07267  M01S01040.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07268  M02S01041.282l826 ---|*         EXIT   PREVIEW BUFFER ENTRIES COMPACTED (PRIORITY WORD

Seq #  *Modification Id* Act 
----------------------------+
07269  M02S01042.282l826 ---|*                  REMOVED).

Seq #  *Modification Id* Act 
----------------------------+
07270  M02S01043.282l826 ---|*                BUFFER LENGTH SET IN BUFFER HEADER WORD.
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.
07274  M01S01044.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07275  M02S01045.282l826 ---|*         USES   X - 1, 2, 3, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
07276  M02S01046.282l826 ---|*                A - 1, 2, 3, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
07277  M02S01047.282l826 ---|*                B - 3.
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.
07283  M01S01048.274l797 +++|
07284  M01S01049.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
07285  M02S01050.282l826 ---| CPB      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07286  M02S01051.282l826 ---|          SA5    B2+1-RPBE

Seq #  *Modification Id* Act 
----------------------------+
07287  M02S01052.282l826 ---|          SB3    B2+1        INITIALIZE COMPACTED BUFFER POINTER

Seq #  *Modification Id* Act 
----------------------------+
07288  M02S01053.282l826 ---| CPB1     SA5    A5+RPBE

Seq #  *Modification Id* Act 
----------------------------+
07289  M02S01054.282l826 ---|          ZR     X5,CPB2     IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
07290  M02S01055.282l826 ---|          SA1    A5+B1

Seq #  *Modification Id* Act 
----------------------------+
07291  M02S01056.282l826 ---|          SA2    A1+B1

Seq #  *Modification Id* Act 
----------------------------+
07292  M02S01057.282l826 ---|          SA3    A2+B1

Seq #  *Modification Id* Act 
----------------------------+
07293  M02S01058.282l826 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
07294  M02S01059.282l826 ---|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
07295  M02S01060.282l826 ---|          SA6    B3

Seq #  *Modification Id* Act 
----------------------------+
07296  M02S01061.282l826 ---|          BX6    X3

Seq #  *Modification Id* Act 
----------------------------+
07297  M02S01062.282l826 ---|          SA7    B3+B1

Seq #  *Modification Id* Act 
----------------------------+
07298  M02S01063.282l826 ---|          SA6    B3+2

Seq #  *Modification Id* Act 
----------------------------+
07299  M02S01064.282l826 ---|          SB3    B3+/COMSMTX/PRBE

Seq #  *Modification Id* Act 
----------------------------+
07300  M02S01065.282l826 ---|          EQ     CPB1        CHECK NEXT ENTRY
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
07310  M01S01066.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
07311  M02S01067.282l826 ---| CPB2     SX7    B3-B2

Seq #  *Modification Id* Act 
----------------------------+
07312  M02S01068.282l826 ---|          SX1    X7-100B

Seq #  *Modification Id* Act 
----------------------------+
07313  M02S01069.282l826 ---|          SX6    B0

Seq #  *Modification Id* Act 
----------------------------+
07314  M02S01070.282l826 ---|          ZR     X1,CPB3     IF BUFFER EXACTLY FILLED WITH ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
07315  M02S01071.282l826 ---|          SA6    B3          TERMINATE ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
07316  M02S01072.282l826 ---|          SX7    X7+B1       COUNT TERMINATOR WORD

Seq #  *Modification Id* Act 
----------------------------+
07317  M02S01073.282l826 ---| CPB3     SA7    B2          SET BUFFER LENGTH IN HEADER

Seq #  *Modification Id* Act 
----------------------------+
07318  M02S01074.282l826 ---|          EQ     CPBX        RETURN
07319  M01S00419.282l826 +++| CRB2     SX6    B0
07320  M01S00420.282l826 +++|          SA6    B4          TERMINATE ENTRIES
07321  M01S00421.282l826 +++|          EQ     CRBX        RETURN
07322  M01S01075.274l797 +++| EPB      SPACE  4,15

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

Seq #  *Modification Id* Act 
----------------------------+
07326  M02S03812.253l688 ---|*         ENTRY  (X4) = ASSIGNED COUNT.

Seq #  *Modification Id* Act 
----------------------------+
07327  M02S03813.253l688 ---|*                (X5) = DEMAND COUNT.

Seq #  *Modification Id* Act 
----------------------------+
07328  M02S03814.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07329  M02S03815.253l688 ---|*         EXIT   MAKES ENTRY INTO PREVIEW BUFFER IF ROOM.

Seq #  *Modification Id* Act 
----------------------------+
07330  M02S03816.274l797 ---|*         ENTRIES ARE ENTERED ACCORDING TO A PRIORITY WHICH DEPENDS UPON

Seq #  *Modification Id* Act 
----------------------------+
07331  M02S03817.274l797 ---|*         1.)    THE NUMBER OF UNITS ASSIGNED - A.

Seq #  *Modification Id* Act 
----------------------------+
07332  M02S03818.274l797 ---|*         2.)    THE TIME THE REQUEST HAS BEEN WAITING - T.

Seq #  *Modification Id* Act 
----------------------------+
07333  M02S03819.274l797 ---|*         3.)    THE NUMBER OF UNITS NEEDED TO COMPLETE - (D-A).

Seq #  *Modification Id* Act 
----------------------------+
07334  M02S03820.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.
07336  M01S01076.274l797 +++|*         ENTRY  (X0) = PRIORITY.
07337  M01S01077.274l797 +++|*                (BUF) = DEMAND FILE ENTRY.
07338  M01S00460.253l688 +++|*

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

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

Seq #  *Modification Id* Act 
----------------------------+
07341  M02S00463.274l797 ---|*                (BUF) = PREVIEW ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
07342  M02S01078.282l826 ---|*         EXIT   ENTRY MADE INTO PREVIEW BUFFER IF ROOM.
07343  M01S00423.282l826 +++|*         EXIT   ENTRY ADDED TO PREVIEW BUFFER OR MOUNT REQUEST BUFFER
07344  M01S00424.282l826 +++|*                  IF POSSIBLE.
07345  M01S00464.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07346  M02S00465.274l797 ---|*         EXIT   ENTRY MADE INTO PREVIEW BUFFER IF ROOM.

Seq #  *Modification Id* Act 
----------------------------+
07347  M02S03821.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07348  M02S03822.274l797 ---|*         USES   A - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
07349  M02S03823.274l797 ---|*                B - 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
07350  M02S03824.274l797 ---|*                X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
07351  M02S01079.282l826 ---|*         USES   A - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
07352  M02S01080.282l826 ---|*                X - 1, 2, 3, 4, 5, 6, 7.
07353  M01S00425.282l826 +++|*         USES   A - 1, 5, 6.
07354  M01S00426.282l826 +++|*                X - 1, 2, 3, 5, 6, 7.
07355  M01S03825.resex   +++|*
07356  M01S03826.resex   +++|*         MACROS MOVE.
07357  M01S03827.resex   +++|
07358  M01S03828.resex   +++|
07359  M01S03829.resex   +++| EPB      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07360  M02S03830.274l797 ---|          SA1    EPBB

Seq #  *Modification Id* Act 
----------------------------+
07361  M02S03831.274l797 ---|          SA2    BUF+RQPT

Seq #  *Modification Id* Act 
----------------------------+
07362  M02S03832.274l797 ---|          SA3    A1-B1

Seq #  *Modification Id* Act 
----------------------------+
07363  M03S03833.274l797 ---|          SB4    B0

Seq #  *Modification Id* Act 
----------------------------+
07364  M02S00466.274l797 ---|          BX5    X2

Seq #  *Modification Id* Act 
----------------------------+
07365  M02S00467.274l797 ---|          NG     X5,EPB0     IF REQUEST FOR STAGING TAPE
07366  M01S00468.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07367  M02S00469.274l797 ---|*         CALCULATE PRIORITY.

Seq #  *Modification Id* Act 
----------------------------+
07368  M02S01081.282l826 ---|*         CHECK FOR *AT* TAPE REQUEST.
07369  M01S00427.282l826 +++|*         CHECK FOR ACS TAPE REQUEST.
07370  M01S00470.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07371  M02S03834.274l797 ---|          IX1    X1-X2

Seq #  *Modification Id* Act 
----------------------------+
07372  M02S03835.274l797 ---|          IX6    X5-X4

Seq #  *Modification Id* Act 
----------------------------+
07373  M02S03836.274l797 ---|          SX5    X4+B1       A+1

Seq #  *Modification Id* Act 
----------------------------+
07374  M03S03837.274l797 ---|          SB5    X3

Seq #  *Modification Id* Act 
----------------------------+
07375  M02S03838.274l797 ---|          IX5    X5*X1

Seq #  *Modification Id* Act 
----------------------------+
07376  M02S03839.274l797 ---|          IX5    X5/X6       ((A+1)*T)/(D-A)

Seq #  *Modification Id* Act 
----------------------------+
07377  M02S01082.282l826 ---|          SA1    BUF+RQPD

Seq #  *Modification Id* Act 
----------------------------+
07378  M02S01083.282l826 ---|          SA5    OPRB+1-RPBE

Seq #  *Modification Id* Act 
----------------------------+
07379  M02S01084.282l826 ---|          MX6    -17

Seq #  *Modification Id* Act 
----------------------------+
07380  M02S01085.282l826 ---|          BX1    -X6*X1

Seq #  *Modification Id* Act 
----------------------------+
07381  M02S01086.282l826 ---|          SX1    X1-2RAT*100B

Seq #  *Modification Id* Act 
----------------------------+
07382  M02S01087.282l826 ---|          NZ     X1,EPB2     IF NOT *AT* TAPE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07383  M02S01088.282l826 ---|          SA5    APRB+1-RPBE
07384  M01S00428.282l826 +++|          SA1    BUF+RQPV+PRES
07385  M01S00429.282l826 +++|          MX6    -12
07386  M01S00430.282l826 +++|          LX1    -12
07387  M01S00431.282l826 +++|          BX1    -X6*X1      RESOURCE TYPE
07388  M01S00432.282l826 +++|          SX1    X1-2RAT
07389  M01S00433.282l826 +++|          NZ     X1,EPB3     IF NOT *AT* TAPE REQUEST
07390  M01S00434.282l826 +++|          SA5    AMRB+1-RMBE
07391  M01S00471.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07392  M02S00472.274l797 ---|*         SELECT POSITION IN LIST, ACCORDING TO PRIORITY.

Seq #  *Modification Id* Act 
----------------------------+
07393  M02S01089.282l826 ---|*         FIND LOCATION IN ACS PREVIEW BUFFER.
07394  M01S00435.282l826 +++|*         FIND LOCATION IN MOUNT REQUEST BUFFER.
07395  M01S00473.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07396  M02S00474.274l797 ---| EPB0     SB5    X3

Seq #  *Modification Id* Act 
----------------------------+
07397  M02S00475.274l797 ---|          SB4    B0

Seq #  *Modification Id* Act 
----------------------------+
07398  M02S03840.274l797 ---|          ZR     B5,EPB2     IF NO ENTRIES IN LIST

Seq #  *Modification Id* Act 
----------------------------+
07399  M03S03841.274l797 ---|          SB4    -3

Seq #  *Modification Id* Act 
----------------------------+
07400  M03S03842.274l797 ---|          SB6    /COMSMTX/PBUFL*3/2

Seq #  *Modification Id* Act 
----------------------------+
07401  M03S03843.274l797 ---| EPB1     SB4    B4+3

Seq #  *Modification Id* Act 
----------------------------+
07402  M02S00205.274l797 ---|          SB4    -RQPL

Seq #  *Modification Id* Act 
----------------------------+
07403  M02S00206.274l797 ---|          SB6    /COMSMTX/PBUFL*RQPL/3

Seq #  *Modification Id* Act 
----------------------------+
07404  M02S00207.274l797 ---| EPB1     SB4    B4+RQPL

Seq #  *Modification Id* Act 
----------------------------+
07405  M02S03844.274l797 ---|          GE     B4,B6,EPBX  IF NO ROOM

Seq #  *Modification Id* Act 
----------------------------+
07406  M02S03845.274l797 ---|          GE     B4,B5,EPB2  IF ENTRY GOES AT END OF LIST

Seq #  *Modification Id* Act 
----------------------------+
07407  M03S03846.274l797 ---|          SA3    PDB+3+B4    PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
07408  M02S00208.274l797 ---|          SA3    PDB+RQPL+B4 PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
07409  M02S00476.274l797 ---|          NG     X3,EPB1     IF OLD ENTRY IS STAGING TAPE VSN

Seq #  *Modification Id* Act 
----------------------------+
07410  M02S00477.274l797 ---|          NG     X5,EPB1.1   IF NEW ENTRY IS STAGING TAPE VSN

Seq #  *Modification Id* Act 
----------------------------+
07411  M02S03847.274l797 ---|          IX3    X3-X5

Seq #  *Modification Id* Act 
----------------------------+
07412  M02S03848.274l797 ---|          PL     X3,EPB1     IF ENTRY GOES FURTHER DOWN IN LIST

Seq #  *Modification Id* Act 
----------------------------+
07413  M02S01090.282l826 ---| EPB1     SA5    A5+RPBE     GET NEXT ENTRY
07414  M01S00436.282l826 +++| EPB1     SA5    A5+RMBE     GET NEXT ENTRY
07415  M01S01091.274l797 +++|          IX5    X5-X0
07416  M01S01092.274l797 +++|          PL     X5,EPB1     IF OLD ENTRY PRIORITY .GE. NEW

Seq #  *Modification Id* Act 
----------------------------+
07417  M02S01093.282l826 ---|          SX6    APRB+RPBL-1-RPBE  ADDRESS OF LAST ENTRY
07418  M01S00437.282l826 +++|          SX6    AMRB+RMBL-1-RMBE  ADDRESS OF LAST ENTRY
07419  M01S00438.282l826 +++|          SX2    A5          SET SOURCE ADDRESS
07420  M01S00439.282l826 +++|          IX1    X6-X2       SET TO MOVE ALL ENTRIES BUT LAST
07421  M01S00440.282l826 +++|          NG     X1,EPB2     IF AT END OF FULL BUFFER
07422  M01S00441.282l826 +++|          SX3    A5+RMBE     SET DESTINATION ADDRESS
07423  M01S00442.282l826 +++|          MOVE   X1,X2,X3    MOVE LOWER PRIORITY ENTRIES
07424  M01S00443.282l826 +++|
07425  M01S00444.282l826 +++|*         ENTER MOUNT REQUEST IN BUFFER.
07426  M01S00445.282l826 +++|
07427  M01S00446.282l826 +++|          SA1    BUF+RQPV+PVSN  GET VSN
07428  M01S00447.282l826 +++|          BX6    X0
07429  M01S00448.282l826 +++|          SA6    A5          SET PRIORITY WORD
07430  M01S00449.282l826 +++|          MX7    36
07431  M01S00450.282l826 +++|          BX6    X7*X1       VSN
07432  M01S00451.282l826 +++|          SA6    A5+1
07433  M01S00452.282l826 +++|
07434  M01S00453.282l826 +++|*         CHECK FOR PREVIEW DISPLAY MESSAGE ON ACS TAPE REQUEST.
07435  M01S00454.282l826 +++|
07436  M01S00455.282l826 +++| EPB2     SA1    BUF+RQPV+PFLG
07437  M01S00456.282l826 +++|          MX7    -6
07438  M01S00457.282l826 +++|          LX1    -12
07439  M01S00458.282l826 +++|          BX1    -X7*X1      PREVIEW DISPLAY MESSAGE CODE
07440  M01S00459.282l826 +++|          ZR     X1,EPBX     IF NO PREVIEW DISPLAY MESSAGE
07441  M01S00460.282l826 +++|
07442  M01S00461.282l826 +++|*         FIND LOCATION IN PREVIEW BUFFER.
07443  M01S00462.282l826 +++|
07444  M01S00463.282l826 +++| EPB3     SA5    RPRB-RPBE
07445  M01S00464.282l826 +++| EPB4     SA5    A5+RPBE     GET NEXT ENTRY
07446  M01S00465.282l826 +++|          IX5    X5-X0
07447  M01S00466.282l826 +++|          PL     X5,EPB4     IF OLD ENTRY PRIORITY .GE. NEW
07448  M01S00467.282l826 +++|          SX6    RPRB+RPBL-1-RPBE  ADDRESS OF LAST ENTRY
07449  M01S01094.274l797 +++|          SX2    A5          SET SOURCE ADDRESS
07450  M01S01095.274l797 +++|          IX1    X6-X2       SET TO MOVE ALL ENTRIES BUT LAST
07451  M01S01096.274l797 +++|          NG     X1,EPBX     IF AT END OF FULL BUFFER
07452  M01S01097.274l797 +++|          SX3    A5+RPBE     SET DESTINATION ADDRESS
07453  M01S01098.274l797 +++|          MOVE   X1,X2,X3    MOVE LOWER PRIORITY ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
07454  M02S01099.282l826 ---|          EQ     EPB3        ENTER REQUEST IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07455  M02S03849.253l688 ---|          SX1    B5-B4       LENGTH OF LIST TO BE MOVED
07456  M01S00478.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07457  M02S00479.274l797 ---|*         ENTER INTO LIST.

Seq #  *Modification Id* Act 
----------------------------+
07458  M02S01100.282l826 ---|*         FIND LOCATION IN OPERATOR PREVIEW BUFFER.
07459  M01S00468.282l826 +++|*         ENTER REQUEST IN PREVIEW BUFFER.
07460  M01S00480.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
07461  M02S00481.274l797 ---| EPB1.1   SX1    B5-B4       LENGTH OF LIST TO BE MOVED

Seq #  *Modification Id* Act 
----------------------------+
07462  M03S03850.274l797 ---|          MOVE   X1,PDB+1+B4,PDB+4+B4  MOVE DOWN 3

Seq #  *Modification Id* Act 
----------------------------+
07463  M02S00209.274l797 ---|          MOVE   X1,PDB+1+B4,PDB+RQPL+1+B4  MOVE DOWN 4

Seq #  *Modification Id* Act 
----------------------------+
07464  M02S03851.274l797 ---| EPB2     SA1    BUF+RQPD

Seq #  *Modification Id* Act 
----------------------------+
07465  M02S03852.274l797 ---|          SA2    A1+B1       BUF+RQPU

Seq #  *Modification Id* Act 
----------------------------+
07466  M02S03853.274l797 ---|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
07467  M02S03854.274l797 ---|          SA4    BLANK       REPLACE BLANK WITH WORD *SCRATCH*

Seq #  *Modification Id* Act 
----------------------------+
07468  M02S03855.274l797 ---|          BX6    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
07469  M02S01101.282l826 ---| EPB2     SA5    A5+RPBE     GET NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07470  M02S01102.282l826 ---|          IX5    X5-X0

Seq #  *Modification Id* Act 
----------------------------+
07471  M02S01103.282l826 ---|          PL     X5,EPB2     IF OLD ENTRY PRIORITY .GE. NEW

Seq #  *Modification Id* Act 
----------------------------+
07472  M02S01104.282l826 ---|          SX6    OPRB+RPBL-1-RPBE  ADDRESS OF LAST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07473  M02S01105.282l826 ---|          SX2    A5          SET SOURCE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
07474  M02S01106.282l826 ---|          IX1    X6-X2       SET TO MOVE ALL ENTRIES BUT LAST

Seq #  *Modification Id* Act 
----------------------------+
07475  M02S01107.282l826 ---|          NG     X1,EPBX     IF AT END OF FULL BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07476  M02S01108.282l826 ---|          SX3    A5+RPBE     SET DESTINATION ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
07477  M02S01109.282l826 ---|          MOVE   X1,X2,X3    MOVE LOWER PRIORITY ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
07478  M02S01110.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
07479  M02S01111.282l826 ---|*         ENTER REQUEST IN BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
07480  M02S01112.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
07481  M02S01113.282l826 ---| EPB3     SA1    BUF+RQPD

Seq #  *Modification Id* Act 
----------------------------+
07482  M02S01114.282l826 ---|          SA4    BLANK

Seq #  *Modification Id* Act 
----------------------------+
07483  M02S01115.282l826 ---|          SA2    BUF+RQPF

Seq #  *Modification Id* Act 
----------------------------+
07484  M02S01116.282l826 ---|          MX7    42

Seq #  *Modification Id* Act 
----------------------------+
07485  M02S01117.282l826 ---|          BX6    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
07486  M02S03856.282l826 ---|          BX6    X4-X6

Seq #  *Modification Id* Act 
----------------------------+
07487  M03S03857.282l826 ---|          NZ     X6,EPB3     IF NOT BLANKS

Seq #  *Modification Id* Act 
----------------------------+
07488  M02S01118.282l826 ---|          NZ     X6,EPB4     IF NOT SCRATCH REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07489  M02S03858.282l826 ---|          SA4    SCRATCH

Seq #  *Modification Id* Act 
----------------------------+
07490  M03S03859.282l826 ---|          BX6    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
07491  M02S01119.282l826 ---|          BX6    -X7*X1

Seq #  *Modification Id* Act 
----------------------------+
07492  M02S03860.282l826 ---|          BX1    X4+X6

Seq #  *Modification Id* Act 
----------------------------+
07493  M03S03861.282l826 ---| EPB3     BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
07494  M03S03862.282l826 ---|          LX7    X2

Seq #  *Modification Id* Act 
----------------------------+
07495  M03S03863.282l826 ---|          SA6    PDB+1+B4

Seq #  *Modification Id* Act 
----------------------------+
07496  M03S03864.282l826 ---|          BX6    X5

Seq #  *Modification Id* Act 
----------------------------+
07497  M04S03865.282l826 ---|          SA7    A6+B1       ENTER USER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
07498  M03S00046.282l826 ---|          SA7    A6+B1       ENTER USER NAME

Seq #  *Modification Id* Act 
----------------------------+
07499  M04S03866.282l826 ---|          SX7    B5+3

Seq #  *Modification Id* Act 
----------------------------+
07500  M03S00210.282l826 ---|          SA3    BUF+RQCW    ENTER EXTERNAL VSN/FAMILY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
07501  M02S01120.282l826 ---| EPB4     SA3    BUF+RQPU
07502  M01S01121.274l797 +++|          BX6    X0

Seq #  *Modification Id* Act 
----------------------------+
07503  M02S01122.282l826 ---|          BX7    X1
07504  M01S01123.274l797 +++|          SA6    A5          SET PRIORITY WORD

Seq #  *Modification Id* Act 
----------------------------+
07505  M02S01124.282l826 ---|          SA7    A5+B1       SET RESOURCE TYPE AND VSN

Seq #  *Modification Id* Act 
----------------------------+
07506  M02S01125.282l826 ---|          ERRNZ  /COMSMTX/PRST

Seq #  *Modification Id* Act 
----------------------------+
07507  M02S01126.282l826 ---|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
07508  M02S00211.282l826 ---|          BX7    X3

Seq #  *Modification Id* Act 
----------------------------+
07509  M03S00212.282l826 ---|          SA7    A7+B1

Seq #  *Modification Id* Act 
----------------------------+
07510  M03S00213.282l826 ---|          SX7    B5+RQPL

Seq #  *Modification Id* Act 
----------------------------+
07511  M03S03867.282l826 ---|          SA6    A7+B1       ENTER PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
07512  M03S03868.282l826 ---|          SA7    EPBA

Seq #  *Modification Id* Act 
----------------------------+
07513  M02S01127.282l826 ---|          SA6    A7+B1       SET FLAGS AND EXTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
07514  M02S01128.282l826 ---|          ERRNZ  /COMSMTX/PFLG-1

Seq #  *Modification Id* Act 
----------------------------+
07515  M02S01129.282l826 ---|          SA7    A6+B1       SET USER AND JOB IDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
07516  M02S01130.282l826 ---|          ERRNZ  /COMSMTX/PUID-2
07517  M01S00469.282l826 +++|          MOVE   PVEL,BUF+RQPV,A5+B1  MOVE PREVIEW ENTRY
07518  M01S03869.resex   +++|          EQ     EPBX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07519  M02S03870.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
07520  M02S03871.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
07521  M02S03872.274l797 ---| EPBA     CON    0           LENGTH OF DATA IN SCRATCH BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07522  M02S03873.274l797 ---| EPBB     CON    0           CURRENT TIME
07523  M01S03874.resex   +++|          TITLE  UTILITY SUBROUTINES.
07524  M01S03875.resex   +++| BEV      SPACE  4,10
07525  M01S03876.resex   +++|**        BEV - BUILD EVENT.
07526  M01S03877.resex   +++|*
07527  M01S03878.resex   +++|*         ENTRY  (X1) = VSN OR PACKNAME.
07528  M01S03879.resex   +++|*                (X3) = EVENT SKELETON.
07529  M01S03880.resex   +++|*
07530  M01S03881.resex   +++|*         EXIT   (X6) = ROLLOUT EVENT.
07531  M01S03882.resex   +++|*
07532  M01S03883.resex   +++|*         USES   X - 0, 1, 5, 6, 7.
07533  M01S03884.resex   +++|
07534  M01S03885.resex   +++|
07535  M01S03886.resex   +++| BEV      SUBR               ENTRY/EXIT
07536  M01S03887.resex   +++|          MX0    -12         BUILD ROLLOUT EVENT
07537  M01S03888.resex   +++|          LX1    12
07538  M01S03889.resex   +++|          BX6    -X0*X1      SUM INDIVIDUAL BYTES OF VSN OR PACKNAME
07539  M01S03890.resex   +++|          LX1    12
07540  M01S03891.resex   +++|          BX5    -X0*X1
07541  M01S03892.resex   +++|          IX6    X5+X6
07542  M01S03893.resex   +++|          LX1    12
07543  M01S03894.resex   +++|          BX5    -X0*X1
07544  M01S03895.resex   +++|          IX6    X5+X6
07545  M01S03896.resex   +++|          LX1    12
07546  M01S03897.resex   +++|          BX5    -X0*X1
07547  M01S03898.resex   +++|          IX6    X5+X6
07548  M01S03899.resex   +++|          BX7    -X0*X6      TRUNCATE TO LOWER 12 BITS
07549  M01S03900.resex   +++|          LX7    12
07550  M01S03901.resex   +++|          BX6    X7+X3
07551  M01S03902.resex   +++|          EQ     BEVX        RETURN
07552  M01S00470.282l826 +++| BTR      SPACE  4,10
07553  M01S00471.282l826 +++|**        BTR - BUILD TAPE ASSIGNMENT REQUEST BLOCK.
07554  M01S00472.282l826 +++|*
07555  M01S00473.282l826 +++|*         ENTRY  UDT ENTRY IN *UDT*.
07556  M01S00474.282l826 +++|*
07557  M01S00475.282l826 +++|*         EXIT   TAPE ASSIGNMENT REQUEST IN *BUF*.
07558  M01S00476.282l826 +++|*
07559  M01S00477.282l826 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
07560  M01S00478.282l826 +++|*                A - 1, 2, 3, 4, 6, 7.
07561  M01S00479.282l826 +++|*
07562  M01S00480.282l826 +++|*         CALLS  IUT.
07563  M01S00481.282l826 +++|
07564  M01S00482.282l826 +++|
07565  M01S00483.282l826 +++| BTR      SUBR               ENTRY/EXIT
07566  M01S00484.282l826 +++|
07567  M01S00485.282l826 +++|*         SET REQUEST HEADER.
07568  M01S00486.282l826 +++|
07569  M01S00487.282l826 +++|          SA1    AV
07570  M01S00488.282l826 +++|          SA2    RETI
07571  M01S00489.282l826 +++|          SX6    /COMSMTX/RMA
07572  M01S00490.282l826 +++|          SX7    13B         LENGTH OF REQUEST
07573  M01S00491.282l826 +++|          LX6    48          FUNCTION CODE
07574  M01S00492.282l826 +++|          SX1    X1-EVSB
07575  M01S00493.282l826 +++|          AX1    1           *EVSB* INDEX
07576  M01S00494.282l826 +++|          IX1    X1-X2       UDT ORDINAL
07577  M01S00495.282l826 +++|          LX1    36
07578  M01S00496.282l826 +++|          BX6    X6+X1
07579  M01S00497.282l826 +++|          BX6    X6+X7
07580  M01S00498.282l826 +++|          SA6    BUF         SET REQUEST HEADER
07581  M01S00499.282l826 +++|
07582  M01S00500.282l826 +++|*         SET *UVSN* AND *UMST* FOR VERIFICATION BY MAGNET.
07583  M01S00501.282l826 +++|
07584  M01S00502.282l826 +++|          SA1    UDT+/COMSMTX/UVSN
07585  M01S00503.282l826 +++|          SA2    UDT+/COMSMTX/UMST
07586  M01S00504.282l826 +++|          BX6    X1
07587  M01S00505.282l826 +++|          BX7    X2
07588  M01S00506.282l826 +++|          SA6    A6+B1       BUF+1
07589  M01S00507.282l826 +++|          SA7    A6+B1       BUF+2
07590  M01S00508.282l826 +++|
07591  M01S00509.282l826 +++|*         SET TAPE DESCRIPTORS AND BLOCK SIZE (*UST4*).
07592  M01S00510.282l826 +++|
07593  M01S00511.282l826 +++|          SA1    F+FTAP      GET TAPE DESCRIPTORS
07594  M01S00512.282l826 +++|          SA2    TB          GET BLOCK SIZE
07595  M01S00513.282l826 +++|          MX6    30
07596  M01S00514.282l826 +++|          BX1    X6*X1
07597  M01S00515.282l826 +++|          BX6    X1+X2       MERGE TAPE DESCRIPTORS AND BLOCK SIZE
07598  M01S00516.282l826 +++|          SA6    A7+B1       BUF+3
07599  M01S00517.282l826 +++|
07600  M01S00518.282l826 +++|*         SET EJT ORDINAL, VSN FILE ADDRESS, AND REEL NUMBER, (*UVRI*).
07601  M01S00519.282l826 +++|
07602  M01S00520.282l826 +++|          SA1    JEEO        GET EJT ORDINAL
07603  M01S00521.282l826 +++|          SA2    VA          GET VSN FILE RANDOM ADDRESS
07604  M01S00522.282l826 +++|          SA3    T+FESN      GET REEL NUMBER IF TMS REQUEST
07605  M01S00523.282l826 +++|          MX0    -12
07606  M01S00524.282l826 +++|          LX1    48
07607  M01S00525.282l826 +++|          LX2    24
07608  M01S00526.282l826 +++|          BX3    -X0*X3
07609  M01S00527.282l826 +++|          LX3    12
07610  M01S00528.282l826 +++|          BX1    X1+X2       MERGE EJT ORDINAL AND VSN FILE ADDRESS
07611  M01S00529.282l826 +++|          BX6    X1+X3       MERGE REEL NUMBER
07612  M01S00530.282l826 +++|          SA6    A6+B1       BUF+4
07613  M01S00531.282l826 +++|
07614  M01S00532.282l826 +++|*         SET TMS FLAGS (*UTMS*).
07615  M01S00533.282l826 +++|
07616  M01S00534.282l826 +++|          RJ     IUT         INITIALIZE *UTMS*
07617  M01S00535.282l826 +++|          SA7    BUF+5
07618  M01S00536.282l826 +++|
07619  M01S00537.282l826 +++|*         SET TMS CATALOG INDEX (*UTCI*).
07620  M01S00538.282l826 +++|
07621  M01S00539.282l826 +++|          SA2    T+FRAN      GET CATALOG INDEX
07622  M01S00540.282l826 +++|          BX6    X2
07623  M01S00541.282l826 +++|          SA6    A7+B1       BUF+6
07624  M01S00542.282l826 +++|
07625  M01S00543.282l826 +++|*         SET EXTERNAL VSN AND FLAGS (*UESN*).
07626  M01S00544.282l826 +++|
07627  M01S00545.282l826 +++|          SA1    EVSN        GET EXTERNAL VSN
07628  M01S00546.282l826 +++|          SA2    RESB+RQPV+PRES  GET RESOURCE TYPE, ACCESS LEVEL, FLAGS
07629  M01S00547.282l826 +++|          MX0    36
07630  M01S00548.282l826 +++|          BX2    -X0*X2
07631  M01S00549.282l826 +++|          BX6    X1+X2       MERGE VSN AND PREVIEW DISPLAY DATA
07632  M01S00550.282l826 +++|          SA6    A6+B1       BUF+7
07633  M01S00551.282l826 +++|
07634  M01S00552.282l826 +++|*         SET INTERNAL VSN AND FLAGS (*UISN*).
07635  M01S00553.282l826 +++|
07636  M01S00554.282l826 +++|          SA1    IVSN        GET INTERNAL VSN
07637  M01S00555.282l826 +++|          SA2    RESB+RQPV+PFLG  GET FLAGS
07638  M01S00556.282l826 +++|          SA3    UDT+/COMSMTX/UST1
07639  M01S00557.282l826 +++|          SA4    TMPF
07640  M01S00558.282l826 +++|          BX2    -X0*X2
07641  M01S00559.282l826 +++|          LX3    59-49
07642  M01S00560.282l826 +++|          LX4    59-58
07643  M01S00561.282l826 +++|          PL     X3,BTR1     IF NOT ACS UNIT REQUEST
07644  M01S00562.282l826 +++|          NG     X4,BTR1     IF TMS CONTROLLED REQUEST
07645  M01S00563.282l826 +++|          SA1    UDT+/COMSMTX/UVSN  USE ACTUAL VSN
07646  M01S00564.282l826 +++| BTR1     BX1    X0*X1       VSN
07647  M01S00565.282l826 +++|          BX6    X1+X2       MERGE VSN AND FLAGS
07648  M01S00566.282l826 +++|          SA6    BUF+10B
07649  M01S00567.282l826 +++|
07650  M01S00568.282l826 +++|*         SET USER NAME, FAMILY ORDINAL, AND SPECIFIED FILE
07651  M01S00569.282l826 +++|*         ACCESSIBILITY (*UUFN*).
07652  M01S00570.282l826 +++|
07653  M01S00571.282l826 +++|          SA1    F+FFAS      GET SPECIFIED FILE ACCESSIBILITY
07654  M01S00572.282l826 +++|          SA2    RESB+RQPV+PJID  GET USER NAME AND FAMILY
07655  M01S00573.282l826 +++|          MX0    48
07656  M01S00574.282l826 +++|          SX6    7700B
07657  M01S00575.282l826 +++|          LX1    -12
07658  M01S00576.282l826 +++|          BX2    X0*X2
07659  M01S00577.282l826 +++|          BX1    X6*X1
07660  M01S00578.282l826 +++|          BX6    X1+X2       MERGE USER NAME, FAMILY, AND FILE ACCESS
07661  M01S00579.282l826 +++|          SA6    A6+B1       BUF+11B
07662  M01S00580.282l826 +++|
07663  M01S00581.282l826 +++|*         SET JSN AND PACKED VSN FOR STAGING TAPE ASSIGNMENT.
07664  M01S00582.282l826 +++|
07665  M01S00583.282l826 +++|          SA1    JSN
07666  M01S00584.282l826 +++|          SA2    PVST        PACKED VSN, IF STAGING TAPE ASSIGNMENT
07667  M01S00585.282l826 +++|          BX6    X1+X2
07668  M01S00586.282l826 +++|          SA6    A6+B1       BUF+12B
07669  M01S00587.282l826 +++|          EQ     BTRX        RETURN
07670  M01S03903.resex   +++| BWM      SPACE  4,15
07671  M01S03904.resex   +++|**        BWM - BUILD WAITING FOR TAPE/PACK MESSAGE.
07672  M01S03905.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
07673  M02S03906.282l826 ---|*         ENTRY  (X1) = VSN OR PACKNAME MASK AND COMPLEMENT OF

Seq #  *Modification Id* Act 
----------------------------+
07674  M02S03907.282l826 ---|*                MESSAGE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
07675  M02S03908.282l826 ---|*                (RESB+RQPD) = VSN OR PACKNAME AND RESOURCE TYPE.
07676  M01S00588.282l826 +++|*         ENTRY  (X1) = COMPLEMENT OF MESSAGE SKELETON ADDRESS.
07677  M01S00589.282l826 +++|*                PREVIEW INFORMATION IN *RESB+RQPV*.
07678  M01S03909.resex   +++|*
07679  M01S03910.resex   +++|*         EXIT   (X1) = ADDRESS OF UPDATED MESSAGE.
07680  M01S03911.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
07681  M02S03912.282l826 ---|*         USES   X - 0, 1, 2, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
07682  M02S03913.282l826 ---|*                A - 2.
07683  M01S00590.282l826 +++|*         USES   X - 1, 2, 4, 6.
07684  M01S00591.282l826 +++|*                A - 1, 2, 4.
07685  M01S03914.resex   +++|*                B - 2, 3, 5.
07686  M01S03915.resex   +++|*
07687  M01S03916.resex   +++|*         CALLS  SFN, SNM.
07688  M01S03917.resex   +++|
07689  M01S03918.resex   +++|
07690  M01S03919.resex   +++| BWM      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07691  M02S03920.282l826 ---|          SB5    X1          COMPLEMENT OF MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
07692  M02S03921.282l826 ---|          MX6    -18

Seq #  *Modification Id* Act 
----------------------------+
07693  M02S03922.282l826 ---|          SA2    RESB+RQPD   GET VSN OR PACKNAME AND RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
07694  M02S03923.282l826 ---|          BX0    -X6*X2      RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
07695  M02S03924.282l826 ---|          BX6    X6*X1       VSN OR PACKNAME MASK

Seq #  *Modification Id* Act 
----------------------------+
07696  M02S03925.282l826 ---|          SB3    WTPB        MESSAGE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
07697  M03S03926.282l826 ---|          BX1    X6*X2       VSN OR PACKNAME

Seq #  *Modification Id* Act 
----------------------------+
07698  M03S00214.282l826 ---|          SA1    TMPF        CHECK IF TMS TAPE

Seq #  *Modification Id* Act 
----------------------------+
07699  M03S00482.282l826 ---|          SA1    TMPF        CHECK IF *TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07700  M03S00215.282l826 ---|          LX1    59-58

Seq #  *Modification Id* Act 
----------------------------+
07701  M04S00216.282l826 ---|          PL     X1,BWM0.1   IF NOT A TMS TAPE

Seq #  *Modification Id* Act 
----------------------------+
07702  M04S00217.282l826 ---|          SA2    RESB+RQCW   GET TMS VSN

Seq #  *Modification Id* Act 
----------------------------+
07703  M03S00483.282l826 ---|          PL     X1,BWM0.1   IF NOT A *TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
07704  M03S00484.282l826 ---|          SA2    RESB+RQCW   GET *TMS* VSN

Seq #  *Modification Id* Act 
----------------------------+
07705  M02S01131.282l826 ---|          SA1    EVSN

Seq #  *Modification Id* Act 
----------------------------+
07706  M02S01132.282l826 ---|          ZR     X1,BWM0.1   IF NO EXTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
07707  M02S01133.282l826 ---|          BX2    X1          USE EXTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
07708  M02S00218.282l826 ---| BWM0.1   BX1    X6*X2       VSN OR PACKNAM

Seq #  *Modification Id* Act 
----------------------------+
07709  M02S03927.282l826 ---|          SA2    BLANK       BUILD BLANK WORD

Seq #  *Modification Id* Act 
----------------------------+
07710  M02S03928.282l826 ---|          BX4    X2

Seq #  *Modification Id* Act 
----------------------------+
07711  M02S03929.282l826 ---|          LX2    30

Seq #  *Modification Id* Act 
----------------------------+
07712  M02S03930.282l826 ---|          BX2    X4+X2

Seq #  *Modification Id* Act 
----------------------------+
07713  M02S03931.282l826 ---|          RJ     SFN         SPACE FILL VSN OR PACKNAME

Seq #  *Modification Id* Act 
----------------------------+
07714  M02S03932.282l826 ---|          BX1    X6-X2       LOCATE NON-BLANK CHARACTERS

Seq #  *Modification Id* Act 
----------------------------+
07715  M02S03933.282l826 ---|          LX4    X6

Seq #  *Modification Id* Act 
----------------------------+
07716  M02S03934.282l826 ---|          RJ     SFN

Seq #  *Modification Id* Act 
----------------------------+
07717  M02S03935.282l826 ---|          BX1    X7*X4       REMOVE EXCESS BLANKS

Seq #  *Modification Id* Act 
----------------------------+
07718  M02S03936.282l826 ---|          NZ     X1,BWM1     IF NOT BLANK VSN

Seq #  *Modification Id* Act 
----------------------------+
07719  M02S03937.282l826 ---|          SA1    A2+B1       SET SCRATCH VSN

Seq #  *Modification Id* Act 
----------------------------+
07720  M02S03938.282l826 ---|          ERRNZ  BLANK+1-SCRATCH  CODE DEPENDS ON LOCATION
07721  M01S00592.282l826 +++|          SA2    RESB+RQPV+PRES
07722  M01S00593.282l826 +++|          SB5    X1          COMPLEMENT OF MESSAGE SKELETON ADDRESS
07723  M01S00594.282l826 +++|          LX2    59-5
07724  M01S00595.282l826 +++|          SA1    SCRATCH
07725  M01S00596.282l826 +++|          NG     X2,BWM1     IF SCRATCH VSN
07726  M01S00597.282l826 +++|          SA4    RESB+RQPV+PVSN  GET VSN OR PACKNAME
07727  M01S00598.282l826 +++|          SA1    BLANK
07728  M01S00599.282l826 +++|          BX1    X4-X1       CONVERT TRAILING BLANKS TO ZEROS
07729  M01S00600.282l826 +++|          RJ     SFN         COMPUTE MASK OF NON-BLANK CHARACTERS
07730  M01S00601.282l826 +++|          BX1    X7*X4       REMOVE TRAILING BLANKS
07731  M01S03939.resex   +++| BWM1     SB2    1R+         REPLACEMENT CHARACTER
07732  M01S00602.282l826 +++|          SB3    WTPB        SET ASSEMBLY BUFFER ADDRESS
07733  M01S03940.resex   +++|          RJ     SNM         INSERT VSN OR PACKNAME INTO MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
07734  M02S03941.282l826 ---|          SB5    WTPB        MESSAGE BUFFER
07735  M01S00603.282l826 +++|          SA2    RESB+RQPV+PRES  GET RESOURCE TYPE AND UNIT COUNT
07736  M01S00604.282l826 +++|          MX6    12
07737  M01S00605.282l826 +++|          LX2    59-23
07738  M01S00606.282l826 +++|          BX1    X6*X2       RESOURCE MNEMONIC
07739  M01S00607.282l826 +++|          LX2    59-4-59+23
07740  M01S00608.282l826 +++|          PL     X2,BWM2     IF NO UNIT COUNT
07741  M01S00609.282l826 +++|          MX6    -6
07742  M01S00610.282l826 +++|          LX2    0-9-59+4+60
07743  M01S00611.282l826 +++|          BX6    -X6*X2
07744  M01S00612.282l826 +++|          SX6    X6+1R1      UNIT COUNT
07745  M01S00613.282l826 +++|          LX6    42
07746  M01S00614.282l826 +++|          BX1    X1+X6       MERGE UNIT COUNT
07747  M01S00615.282l826 +++| BWM2     SB5    WTPB        MESSAGE BUFFER
07748  M01S03942.resex   +++|          SB2    1R-         REPLACEMENT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
07749  M02S03943.282l826 ---|          BX1    X0

Seq #  *Modification Id* Act 
----------------------------+
07750  M02S00074.282l826 ---|          MX4    1

Seq #  *Modification Id* Act 
----------------------------+
07751  M02S03944.282l826 ---|          LX1    -18

Seq #  *Modification Id* Act 
----------------------------+
07752  M02S00075.282l826 ---|          BX1    -X4*X1      ISOLATE RESOURCE TYPE ONLY
07753  M01S03945.resex   +++|          RJ     SNM         INSERT RESOURCE TYPE INTO MESSAGE
07754  M01S03946.resex   +++|          SX1    WTPB        ADDRESS OF NEW MESSAGE
07755  M01S03947.resex   +++|          EQ     BWMX        RETURN
07756  M01S00319.ns22000 +++| CAL      SPACE  4,15
07757  M01S00320.ns22000 +++|**        CAL - CHECK ACCESS LEVEL.
07758  M01S00321.ns22000 +++|*
07759  M01S00322.ns22000 +++|*         ENTRY  (X2) = EST ORDINAL IN BITS 59-48.

Seq #  *Modification Id* Act 
----------------------------+
07760  M02S00323.253l688 ---|*                (X3) = EVSB ENTRY OF VSN TO BE CHECKED.
07761  M01S00485.253l688 +++|*                (X3) = *EVSB* ENTRY OF VSN TO BE CHECKED.
07762  M01S00324.ns22000 +++|*                (EQ) = EST ORDINAL IF SPECIFIED.
07763  M01S00325.ns22000 +++|*
07764  M01S00326.ns22000 +++|*         EXIT   (TPAL) .GE. 0, IF TAPE ACCESS LEVEL WITHIN RANGE,
07765  M01S00327.ns22000 +++|*                       .LT. 0, IF TAPE ACCESS LEVEL OUT OF RANGE,
07766  M01S00328.ns22000 +++|*                       UNDEFINED, IF NOT CORRECT EQUIPMENT.
07767  M01S00329.ns22000 +++|*                (X5) = 0, IF NO SPECIFIED EQUIPMENT
07768  M01S00330.ns22000 +++|*                     .NE. 0, IF EQUIPMENT SPECIFIED.
07769  M01S00331.ns22000 +++|*
07770  M01S00332.ns22000 +++|*         USES   X - 0, 2, 5, 6, 7.
07771  M01S00333.ns22000 +++|*                A - 2, 5.
07772  M01S00334.ns22000 +++|
07773  M01S00335.ns22000 +++|
07774  M01S00336.ns22000 +++| CAL      SUBR               ENTRY/EXIT
07775  M01S00337.ns22000 +++|          SA5    EQ
07776  M01S00338.ns22000 +++|          ZR     X5,CAL1     IF NO SPECIFIED EQUIPMENT
07777  M01S00339.ns22000 +++|          BX5    X5-X2
07778  M01S00340.ns22000 +++|          AX5    48
07779  M01S00341.ns22000 +++|          NZ     X5,CALX     IF NOT CORRECT EQUIPMENT
07780  M01S00342.ns22000 +++| CAL1     SA2    SSMA        SYSTEM SECURITY MODE
07781  M01S00343.ns22000 +++|          BX6    X2
07782  M01S00344.ns22000 +++|          ZR     X6,CAL2     IF UNSECURED SYSTEM
07783  M01S00345.ns22000 +++|          MX0    -3
07784  M01S00346.ns22000 +++|          BX7    X3
07785  M01S00347.ns22000 +++|          LX7    2-14
07786  M01S00348.ns22000 +++|          BX5    -X0*X7      LOWER BOUND OF *EVSB* ENTRY
07787  M01S00349.ns22000 +++|          LX7    2-11-2+14
07788  M01S00350.ns22000 +++|          BX7    -X0*X7      UPPER BOUND OF *EVSB* ENTRY
07789  M01S00351.ns22000 +++|          SA2    F+4
07790  M01S00352.ns22000 +++|          LX2    -36
07791  M01S00353.ns22000 +++|          BX2    -X0*X2      ACCESS LEVEL FROM FET
07792  M01S00354.ns22000 +++|          IX6    X7-X2
07793  M01S00355.ns22000 +++|          NG     X6,CAL2     IF NOT WITHIN ACCESS LEVEL LIMITS
07794  M01S00356.ns22000 +++|          IX6    X2-X5
07795  M01S00357.ns22000 +++|          NG     X6,CAL2     IF NOT WITHIN ACCESS LEVEL LIMITS
07796  M01S00358.ns22000 +++|          LX5    3
07797  M01S00359.ns22000 +++|          BX6    X7+X5       EQUIPMENT ACCESS LEVELS
07798  M01S00360.ns22000 +++| CAL2     SA6    TPAL
07799  M01S00361.ns22000 +++|          BX5    X5-X5       SET EXIT CONDITION
07800  M01S00362.ns22000 +++|          EQ     CALX        RETURN
07801  M01S03948.resex   +++| CBP      SPACE  4,10
07802  M01S03949.resex   +++|**        CBP - CALCULATE RESOURCE BYTE POSITION.
07803  M01S03950.resex   +++|*
07804  M01S03951.resex   +++|*         ENTRY  (X2) = 51/0, 3/UNIT COUNT, 6/RESOURCE INDEX.
07805  M01S03952.resex   +++|*
07806  M01S03953.resex   +++|*         EXIT   (B2) = RESOURCE INDEX, ADJUSTED FOR CONTINUATION WORD.
07807  M01S03954.resex   +++|*                (B4) = RIGHT SHIFT COUNT TO POSITION RESOURCE
07808  M01S03955.resex   +++|*                     ASSIGNED AND DEMAND COUNT IN LOWER 12 BITS.
07809  M01S03956.resex   +++|*
07810  M01S03957.resex   +++|*         USES   B - 2, 4.
07811  M01S03958.resex   +++|*                X - 1, 2, 3, 7.
07812  M01S03959.resex   +++|
07813  M01S03960.resex   +++|
07814  M01S03961.resex   +++| CBP      SUBR               ENTRY/EXIT
07815  M01S03962.resex   +++|          MX3    -6
07816  M01S03963.resex   +++|          BX1    -X3*X2      GET RESOURCE INDEX
07817  M01S03964.resex   +++|          AX2    6
07818  M01S03965.resex   +++|          SB2    X1+B1
07819  M01S03966.resex   +++|          SX7    RPEW*2
07820  M01S03967.resex   +++|          IX3    X7-X2
07821  M01S03968.resex   +++|          MX2    -2
07822  M01S03969.resex   +++|          BX2    -X2*X3
07823  M01S03970.resex   +++|          LX2    2
07824  M01S03971.resex   +++|          BX3    -X3
07825  M01S03972.resex   +++|          LX7    X2,B1
07826  M01S03973.resex   +++|          SB4    X2
07827  M01S03974.resex   +++|          AX3    2
07828  M01S03975.resex   +++|          SB4    B4+X7
07829  M01S03976.resex   +++|          SB2    B2+X3       ADJUST FOR CONTINUATION WORD
07830  M01S03977.resex   +++|          EQ     CBPX        RETURN
07831  M01S00616.282l826 +++| CCV      SPACE  4,10
07832  M01S00617.282l826 +++|**        CCV - CHECK FOR CHANGE OF TMS SCRATCH VSN.
07833  M01S00618.282l826 +++|*
07834  M01S00619.282l826 +++|*         EXIT   REQUEST PARAMETERS UPDATED IF CHANGE IN TMS SCRATCH
07835  M01S00620.282l826 +++|*                  VSN.
07836  M01S00621.282l826 +++|*
07837  M01S00622.282l826 +++|*         USES   X - 0, 1, 2, 6, 7.
07838  M01S00623.282l826 +++|*                A - 1, 2, 6, 7.
07839  M01S00624.282l826 +++|*
07840  M01S00625.282l826 +++|*         CALLS  RDF.
07841  M01S00626.282l826 +++|
07842  M01S00627.282l826 +++|
07843  M01S00628.282l826 +++| CCV      SUBR               ENTRY/EXIT
07844  M01S00629.282l826 +++|
07845  M01S00630.282l826 +++|*         CHECK CHANGE OF SCRATCH *TMS* VSN.
07846  M01S00631.282l826 +++|
07847  M01S00632.282l826 +++|          SA1    TMPF        CHECK FOR NON-*TMS* TAPE
07848  M01S00633.282l826 +++|          LX1    59-58
07849  M01S00634.282l826 +++|          PL     X1,CCVX     IF NOT *TMS* CONTROLLED REQUEST
07850  M01S00635.282l826 +++|          RJ     RDF         READ DEMAND FILE
07851  M01S00636.282l826 +++|          SA1    DBUF+RQPV+PVSI  GET INTERNAL VSN
07852  M01S00637.282l826 +++|          SA2    IVSN
07853  M01S00638.282l826 +++|          MX0    6*6
07854  M01S00639.282l826 +++|          BX2    X1-X2
07855  M01S00640.282l826 +++|          ZR     X2,CCVX     IF NO CHANGE IN VSN
07856  M01S00641.282l826 +++|          SA1    RQ          REPLACE INTERNAL VSN
07857  M01S00642.282l826 +++|          SA7    A2          UPDATE INTERNAL VSN
07858  M01S00643.282l826 +++|          BX1    -X0*X1
07859  M01S00644.282l826 +++|          BX6    X1+X7
07860  M01S00645.282l826 +++|          SA6    A1
07861  M01S00646.282l826 +++|          SA1    DBUF+RQPV+PVSN  GET NEW EXTERNAL VSN
07862  M01S00647.282l826 +++|          BX7    X1
07863  M01S00648.282l826 +++|          SA7    EVSN        UPDATE EXTERNAL VSN

Proceed to Part 10