65 Modifications

Seq #  *Modification Id* Act 
----------------------------+
03399  M01S02094.274l797 ---|          SA3    F+FTAP
03400  M01S02095.274l797 ---|          MX0    1
03401  M01S02096.274l797 ---|          LX3    59-58
03402  M01S02097.274l797 ---|          BX5    X0*X3       LABEL BIT
03403  M01S02098.274l797 ---|          MX0    2
03404  M01S02099.274l797 ---|          LX3    58-40
03405  M01S02100.274l797 ---|          BX3    X0*X3       RING BITS
03406  M01S02101.274l797 ---|          LX5    15
03407  M01S02102.274l797 ---|          LX3    14
03408  M01S02103.274l797 ---|          BX3    X5+X3

Seq #  *Modification Id* Act 
----------------------------+
03409  M02S00142.274l797 ---|          SA2    AL          ACCESS LEVEL
03410  M02S00143.274l797 ---|          LX2    15
03411  M02S00144.274l797 ---|          BX3    X2+X3       COMBINE ACCESS LEVEL WITH FLAGS

Seq #  *Modification Id* Act 
----------------------------+
03412  M01S02104.274l797 ---|          BX6    X4+X3
03413  M01S02105.274l797 ---|          SA6    A6+B1       RESB+RQPU
03414  M01S02106.274l797 ---|          BX6    X1
03415  M01S02107.274l797 ---|          SA6    A6+B1       RESB+RQPT

Seq #  *Modification Id* Act 
----------------------------+
03416  M02S00097.274l797 ---|          RJ     GFO         GET FAMILY ORDINAL
03417  M02S00098.274l797 ---|          BX3    X7

Seq #  *Modification Id* Act 
----------------------------+
03418  M03S00099.274l797 ---|          SA2    T+FESN      GET TMS VSN

Seq #  *Modification Id* Act 
----------------------------+
03419  M02S00037.274l797 ---|          SA2    T+FESN      GET *TMS* VSN

Seq #  *Modification Id* Act 
----------------------------+
03420  M02S00100.274l797 ---|          MX7    36
03421  M02S00101.274l797 ---|          BX2    X7*X2
03422  M02S00102.274l797 ---|          BX7    X3+X2
03423  M02S00103.274l797 ---|          SX6    B1
03424  M02S00104.274l797 ---|          SA2    TMPF
03425  M02S00105.274l797 ---|          LX2    59-58
03426  M02S00106.274l797 ---|          LX6    23-0        POSITION VERIFY FLAG

Seq #  *Modification Id* Act 
----------------------------+
03427  M03S00107.274l797 ---|          PL     X2,CRQ8.1   IF NON-TMS TAPE

Seq #  *Modification Id* Act 
----------------------------+
03428  M02S00038.274l797 ---|          PL     X2,CRQ8.1   IF NON-*TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
03429  M02S00108.274l797 ---|          IX6    X6-X6       CLEAR VERIFY FLAG
03430  M02S00109.274l797 ---| CRQ8.1   BX7    X6+X7       ADD VERIFY FLAG TO E,P DATA
03431  M02S00110.274l797 ---|          SA7    RESB+RQCW

Seq #  *Modification Id* Act 
----------------------------+
03432  M01S00398.274l797 +++| CRQ7     RJ     SPI         SET DEMAND FILE PREVIEW INFORMATION
03433  M00S02108.resex   +++|          EQ     CRQX        RETURN
03434  M00S02109.resex   +++|
03435  M00S02110.resex   +++|*         PROCESS TAPE UNIT ALREADY ASSIGNED OR DENSITY CONFLICT.
03436  M00S02111.resex   +++|
03437  M00S02112.resex   +++| CRQ9     SA1    AA

Seq #  *Modification Id* Act 
----------------------------+
03438  M01S02113.resex4  ---|          ZR     X1,COM5     IF OPERATOR ASSIGNMENT OF EQUIPMENT
03439  M00S02114.resex   +++|          NG     X1,COM6     IF DUPLICATE VSN CHOICE

Seq #  *Modification Id* Act 
----------------------------+
03440  M01S02115.resex4  ---|          EQ     PER         PROCESS ERROR FOR *ASSIGN* UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03441  M02S00021.ns22000 ---|          NZ     X1,PER      IF *ASSIGN* WITH UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03442  M01S00145.ns22000 +++|          NZ     X1,PER      IF *ASSIGN* WITH EST ORDINAL SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03443  M01S00022.resex4  +++| CRQ9.1   SX6    B0+         CLEAR OPERATOR ASSIGNED EQUIPMENT
03444  M01S00023.resex4  +++|          SA6    EQ
03445  M01S00024.resex4  +++|          EQ     CRQ4        COMPLETE CHECKS BEFORE EQUIPMENT REQUEST
03446  M00S02116.resex   +++|
03447  M00S02117.resex   +++|*         PROCESS TAPE NOT MOUNTED.
03448  M00S02118.resex   +++|
03449  M00S02119.resex   +++| CRQ10    SA3    AA

Seq #  *Modification Id* Act 
----------------------------+
03450  M01S02120.resex4  ---|          ZR     X3,COM5     IF OPERATOR ASSIGNMENT OF EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03451  M01S00025.resex4  +++|          ZR     X3,CRQ9.1   IF OPERATOR ASSIGNMENT OF EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03452  M01S02121.ns21000 ---|          LX1    6
03453  M01S02122.ns21000 ---|          SA2    EST+X1
03454  M00S02123.resex   +++|          NG     X3,COM6     IF DUPLICATE VSN CHOICE

Seq #  *Modification Id* Act 
----------------------------+
03455  M01S02124.ns21000 ---|          LX2    59-23

Seq #  *Modification Id* Act 
----------------------------+
03456  M02S00294.282l826 ---|          SA3    RETE        GET RET/EVSB ENDING INDEX
03457  M02S00295.282l826 ---|          LX1    24
03458  M02S00296.282l826 ---|          SA2    RETI        GET RET/EVSB TAPE INDEX
03459  M02S00297.282l826 ---|          LX0    12
03460  M02S00298.282l826 ---|          SB5    RET+X3
03461  M02S00299.282l826 ---|          SA2    RET-1+X2
03462  M02S00300.282l826 ---| CRQ11    SA2    A2+B1
03463  M02S00301.282l826 ---|          SB7    A2-B5
03464  M02S00302.282l826 ---|          ZR     B7,CRQ12    IF RET ENTRY NOT FOUND
03465  M02S00303.282l826 ---|          BX6    -X0*X2
03466  M02S00304.282l826 ---|          BX6    X6-X1
03467  M02S00305.282l826 ---|          NZ     X6,CRQ11    IF NOT CORRECT RET ENTRY
03468  M02S00306.282l826 ---|          LX2    59-1

Seq #  *Modification Id* Act 
----------------------------+
03469  M02S02125.282l826 ---|          NG     X2,PER      IF EQUIPMENT *OFF*

Seq #  *Modification Id* Act 
----------------------------+
03470  M02S00399.282l826 ---|          NG     X2,PER      IF EQUIPMENT *OFF* OR *DOWN*

Seq #  *Modification Id* Act 
----------------------------+
03471  M02S02126.282l826 ---|          EQ     COM9        WAIT FOR READY ON *ASSIGN* UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03472  M02S00146.282l826 ---|          EQ     COM9        WAIT FOR READY ON *ASSIGN* WITH EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
03473  M02S00307.282l826 ---|
03474  M02S00308.282l826 ---| CRQ12    SB2    /PER/REV    * RESOURCE ENVIRONMENT ERROR.*
03475  M02S00309.282l826 ---|          EQ     PER         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
03476  M01S00081.282l826 +++|          EQ     PER         ABORT WITH EQUIPMENT NOT AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
03477  M01S02127.274l797 ---| DEI      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03478  M01S00400.274l797 +++| DEI      SPACE  4,15
03479  M00S02128.resex   +++|**        DEI - DEMAND EXCEEDS INSTALLATION CHECK.
03480  M00S02129.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03481  M01S02130.274l797 ---|*         ENTRY  ENVIRONMENT BUILT.

Seq #  *Modification Id* Act 
----------------------------+
03482  M01S00401.274l797 +++|*         ENTRY  RESOURCE ENVIRONMENT BUILT.
03483  M00S02131.resex   +++|*                USER RESOURCE REQUEST BLOCK BUILT.

Seq #  *Modification Id* Act 
----------------------------+
03484  M02S00037.274l797 ---|*                (X7) = 0, IF NOT *RESOURC* COMMAND.
03485  M02S00038.274l797 ---|*                (X7) = 1, IF *RESOURC* COMMAND.
03486  M00S02132.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03487  M01S02133.274l797 ---|*         ERROR  TO *PER*, IF DEMAND INSTALLATION ERROR.

Seq #  *Modification Id* Act 
----------------------------+
03488  M01S00402.274l797 +++|*         EXIT   TO CALLER IF SUFFICIENT RESOURCES PRESENT.
03489  M01S00403.274l797 +++|*                TO *PER*, IF SUFFICIENT RESOURCES NOT PRESENT.
03490  M00S02134.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03491  M01S02135.ns2529  ---|*         USES   B - 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
03492  M02S00039.274l797 ---|*         USES   X - ALL.
03493  M02S00040.274l797 ---|*                A - 1, 2, 3, 4, 6, 7.
03494  M02S00041.274l797 ---|*                B - 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
03495  M01S00404.274l797 +++|*         USES   B - 2, 5.
03496  M00S02136.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03497  M01S02137.ns2529  ---|*         CALLS  BRT, DDS.

Seq #  *Modification Id* Act 
----------------------------+
03498  M02S00042.ns2529c ---|*         CALLS  BPD, BRT, DDS, IAS, PMM, PRO, RDF, UDF.

Seq #  *Modification Id* Act 
----------------------------+
03499  M02S00001.274l797 ---|*         CALLS  BPD, BRT, CAU, DDS, IAS, PMM, PRO, RDF, UDF.

Seq #  *Modification Id* Act 
----------------------------+
03500  M01S00405.274l797 +++|*         CALLS  BRT, DDS.
03501  M00S02138.resex   +++|
03502  M00S02139.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
03503  M02S00043.274l797 ---| DEI1     SA3    DEIA
03504  M02S00044.274l797 ---|          ZR     X3,DEIX     IF NOT *RESOURC* COMMAND
03505  M02S00045.274l797 ---|          RJ     FDE         FLAG *DOWN* EQUIPMENT
03506  M02S00046.274l797 ---|          SB2    RESB        BUILD RDT WITHOUT *DOWN* UNITS
03507  M02S00047.274l797 ---|          SB5    B0+
03508  M02S00048.274l797 ---|          RJ     BRT         BUILD RESOURCE DEMAND TABLE
03509  M02S00049.274l797 ---|          RJ     DDS         DETERMINE DEMAND SATISFACTION
03510  M02S00050.274l797 ---|          ZR     X2,DEI5     IF RESOURCE DEMAND SATISFIABLE
03511  M02S00051.274l797 ---|          SA3    DEIB
03512  M02S00052.274l797 ---|          NZ     X3,DEI2     IF MESSAGE ALREADY ISSUED

Seq #  *Modification Id* Act 
----------------------------+
03513  M03S00053.274l797 ---|          SA3    RI
03514  M03S00054.274l797 ---|          MX2    -6
03515  M03S00055.274l797 ---|          BX3    -X2*X3      GET RESOURCE INDEX
03516  M03S00056.274l797 ---|          SA2    TRID-RMTP+X3
03517  M03S00057.274l797 ---|          LX2    18

Seq #  *Modification Id* Act 
----------------------------+
03518  M02S00001.274l797 ---|          LX2    18          SET UNSATISFIABLE RESOURCE TYPE IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03519  M02S00058.274l797 ---|          SA1    SSJ=+/COMSSSJ/UIDS
03520  M02S00059.274l797 ---|          MX0    42
03521  M02S00060.274l797 ---|          SA3    JEEO        GET JOB EJT ORDINAL
03522  M02S00061.274l797 ---|          SA4    DEIC
03523  M02S00062.274l797 ---|          BX1    X0*X1       USER NAME
03524  M02S00063.274l797 ---|          BX6    X4+X2
03525  M02S00064.274l797 ---|          SA6    RESB+RQPD
03526  M02S00065.274l797 ---|          BX6    X3+X1
03527  M02S00066.274l797 ---|          SA6    A6+B1       RESB+RQPU
03528  M02S00067.274l797 ---|          SA6    DEIB        SET MESSAGE ISSUED FLAG
03529  M02S00068.274l797 ---| DEI2     BX7    X7-X7
03530  M02S00069.274l797 ---|          SA7    RESB+RQPT   SET TIMER
03531  M02S00070.274l797 ---|          SX5    B1
03532  M02S00071.274l797 ---|          RJ     UDF         UPDATE DEMAND FILE
03533  M02S00072.274l797 ---|          INTRC  ON          REENABLE INTERUPT
03534  M02S00073.274l797 ---|          INTRP  PIT         PROCCESS INTERUPT
03535  M02S00074.274l797 ---|          RJ     BPD         BUILD PREVIEW DISPLAY
03536  M02S00075.274l797 ---|          SX5    TEDD        SET ROLLOUT EVENT AND DESCRIPTION
03537  M02S00076.274l797 ---|          SA1    TEDD+1      GET ROLLOUT MESSAGE ADDRESS
03538  M02S00077.274l797 ---|          RJ     PRO         PROCESS TIMED EVENT ROLLOUT
03539  M02S00078.274l797 ---| DEI3     RJ     BRE         BUILD RESOURCE ENVIRONMENT
03540  M02S00079.274l797 ---|          PL     X0,DEI4     IF SUBSYSTEM NOT MISSING
03541  M02S00080.274l797 ---|          RJ     PMM         PROCESS *MAGNET* MISSING
03542  M02S00081.274l797 ---|          EQ     DEI3        RETRY BUILDING ENVIROMNET
03543  M02S00082.274l797 ---|
03544  M02S00083.274l797 ---| DEI4     RJ     RDF         READ DEMAND FILE

Seq #  *Modification Id* Act 
----------------------------+
03545  M02S00002.274l797 ---|          SA1    /CPA/RFCW
03546  M02S00003.274l797 ---|          SX1    X1+
03547  M02S00004.274l797 ---|          ZR     X1,DEI1     IF NO DEMAND FILE ENTRY
03548  M02S00005.274l797 ---|          SX4    RESB        DEMAND FILE ENTRY ADDRESS
03549  M02S00006.274l797 ---|          SA3    JEEO        GET JOB EJT ORDINAL
03550  M02S00007.274l797 ---|          RJ     CAU         COUNT ASSIGNED UNITS

Seq #  *Modification Id* Act 
----------------------------+
03551  M02S00084.274l797 ---|          EQ     DEI1        RETRY DEMAND SATISFACTION
03552  M02S00085.274l797 ---|
03553  M02S00086.274l797 ---|*         CLEAR *DOWN* EQUIPMENT FLAGS AND CLEAN UP *RESOURC*
03554  M02S00087.274l797 ---|*         REQUEST MESSAGE, IF ISSUED.
03555  M02S00088.274l797 ---|
03556  M02S00089.274l797 ---| DEI5     BX3    X3-X3
03557  M02S00090.274l797 ---|          RJ     IAS         INITIALIZE ASSIGNMENTS
03558  M02S00091.274l797 ---|          SA2    DEIB
03559  M02S00092.274l797 ---|          ZR     X2,DEIX     IF MESSAGE NOT ISSUED
03560  M02S00093.274l797 ---|          BX7    X7-X7
03561  M02S00094.274l797 ---|          SA7    RESB+RQPD   CLEAR *E,P* MESSAGE
03562  M02S00095.274l797 ---|          BX5    X5-X5
03563  M02S00096.274l797 ---|          RJ     UDF         UPDATE DEMAND FILE
03564  M02S00097.274l797 ---|          INTRC  ON          REENABLE INTERUPT
03565  M02S00098.274l797 ---|          INTRP  PIT         PROCCESS INTERUPT
03566  M02S00099.274l797 ---|          RJ     BPD         BUILD PREVIEW DISPLAY
03567  M02S00100.274l797 ---|
03568  M00S02140.resex   +++| DEI      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03569  M02S00101.274l797 ---|          SA7    DEIA        SAVE *RESOURC* COMMAND FLAG
03570  M00S02141.resex   +++|          SB2    RESB        BUILD RDT FROM TOTAL DEMANDS
03571  M00S02142.resex   +++|          SB5    B1+

Seq #  *Modification Id* Act 
----------------------------+
03572  M01S02143.ns2529  ---|          RJ     BRT

Seq #  *Modification Id* Act 
----------------------------+
03573  M01S00102.ns2529  +++|          RJ     BRT         BUILD RESOURCE DEMAND TABLE
03574  M00S02144.resex   +++|          RJ     DDS         DETERMINE DEMAND SATISFACTION

Seq #  *Modification Id* Act 
----------------------------+
03575  M01S02145.ns2529  ---|          ZR     X2,DEIX     IF RESOURCE DEMAND SATISFIABLE

Seq #  *Modification Id* Act 
----------------------------+
03576  M02S00103.274l797 ---|          ZR     X2,DEI1     IF RESOURCE DEMAND SATISFIABLE

Seq #  *Modification Id* Act 
----------------------------+
03577  M01S00406.274l797 +++|          ZR     X2,DEIX     IF RESOURCE DEMAND SATISFIABLE
03578  M00S02146.resex   +++|          SB2    /PER/IRS    * INSUFFICIENT RESOURCES ON SYSTEM.*
03579  M00S02147.resex   +++|          EQ     PER         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
03580  M01S02148.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
03581  M02S00104.274l797 ---|
03582  M02S00105.274l797 ---| DEIA     CON    0           *RESOURC* COMMAND FLAG
03583  M02S00106.274l797 ---| DEIB     CON    0           MESSAGE ISSUED FLAG
03584  M02S00107.274l797 ---| DEIC     VFD    42/7LRESOURC,1/1,17/0
03585  M02S00108.274l797 ---| FDE      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03586  M03S00109.274l797 ---|**        FDE - FLAG *DOWN* EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03587  M02S00001.274l797 ---|**        FDE - FLAG *DOWN* TAPE EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
03588  M02S00110.274l797 ---|*
03589  M02S00111.274l797 ---|*         FLAG DEVICE AS ASSIGNED IF IT IS *DOWN*.
03590  M02S00112.274l797 ---|*
03591  M02S00113.274l797 ---|*         USES   X - 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03592  M03S00114.274l797 ---|*                A - 2, 7.
03593  M03S00115.274l797 ---|*                B - 4.

Seq #  *Modification Id* Act 
----------------------------+
03594  M02S00002.274l797 ---|*                A - 1, 2, 7.
03595  M02S00003.274l797 ---|*                B - 4, 5.

Seq #  *Modification Id* Act 
----------------------------+
03596  M02S00116.274l797 ---|*
03597  M02S00117.274l797 ---|*         CALLS  IAS.
03598  M02S00118.274l797 ---|
03599  M02S00119.274l797 ---|
03600  M02S00120.274l797 ---| FDE      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03601  M03S00121.274l797 ---|          SX1    B1+
03602  M03S00122.274l797 ---|          SB4    RETE

Seq #  *Modification Id* Act 
----------------------------+
03603  M02S00123.274l797 ---|          BX3    X3-X3
03604  M02S00124.274l797 ---|          RJ     IAS         INITIALIZE ASSIGNMENTS

Seq #  *Modification Id* Act 
----------------------------+
03605  M02S00004.274l797 ---|          SA2    RETE
03606  M02S00005.274l797 ---|          SA1    RETI
03607  M02S00006.274l797 ---|          SB4    X2          SET END OF *RET/EVSB*
03608  M02S00007.274l797 ---|          SB5    X1          SET START OF *RET/EVSB* TAPE ENTRIES
03609  M02S00008.274l797 ---|          SX1    B1

Seq #  *Modification Id* Act 
----------------------------+
03610  M02S00125.274l797 ---|          SX3    B1+B1

Seq #  *Modification Id* Act 
----------------------------+
03611  M03S00126.274l797 ---| FDE1     SA2    RET+B4      GET RESOURCE EQUIPMENT TABLE ENTRY
03612  M03S00127.274l797 ---|          SB4    B4-B1

Seq #  *Modification Id* Act 
----------------------------+
03613  M02S00009.274l797 ---| FDE1     SB4    B4-B1       DECREMENT *RET/EVSB* INDEX
03614  M02S00010.274l797 ---|          SA2    RET+B4      GET RESOURCE EQUIPMENT TABLE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03615  M02S00128.274l797 ---|          BX6    X3*X2       ISOLATE *OFF*/*DOWN* FLAGS

Seq #  *Modification Id* Act 
----------------------------+
03616  M03S00129.274l797 ---|          NG     B4,FDEX     IF FINISHED WITH RESOURCE EQUIPMENT TABLE

Seq #  *Modification Id* Act 
----------------------------+
03617  M02S00011.274l797 ---|          LT     B4,B5,FDEX  IF END OF TAPE ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
03618  M02S00130.274l797 ---|          ZR     X6,FDE1     IF UNIT NOT *OFF*/*DOWN*
03619  M02S00131.274l797 ---|          BX7    X2+X1       SET ASSIGNED FLAG
03620  M02S00132.274l797 ---|          SA7    A2
03621  M02S00133.274l797 ---|          EQ     FDE1        PROCESS NEXT UNIT
03622  M00S02149.resex   +++| OCA      SPACE  4,20
03623  M00S02150.resex   +++|**        OCA - OVERCOMMITMENT ALGORITHM.
03624  M00S02151.resex   +++|*
03625  M00S02152.resex   +++|*         ENTRY  ENVIRONMENT BUILT.
03626  M00S02153.resex   +++|*                USER RESOURCE REQUEST BLOCK BUILT.
03627  M00S02154.resex   +++|*
03628  M00S02155.resex   +++|*         EXIT   (X5) = 0 IF OVERCOMMITMENT.
03629  M00S02156.resex   +++|*
03630  M00S02157.resex   +++|*         ERROR  TO *PER*, IF SCRATCH FILE ERROR OR NEGATIVE SHARE
03631  M00S02158.resex   +++|*                COUNT.
03632  M00S02159.resex   +++|*                TO *PNE*, IF ASSIGNS EXCEED DEMANDS OR SHARE TABLE
03633  M00S02160.resex   +++|*                     ERROR.
03634  M00S02161.resex   +++|*
03635  M00S02162.resex   +++|*         USES   A - 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03636  M01S02163.ns21000 ---|*                B - 2, 3, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
03637  M01S00310.ns21000 +++|*                B - 2, 3, 5, 6, 7.
03638  M00S02164.resex   +++|*                X - ALL.
03639  M00S02165.resex   +++|*
03640  M00S02166.resex   +++|*         CALLS  BRT, CRC, DDS, IAS.
03641  M00S02167.resex   +++|*
03642  M00S02168.resex   +++|*         MACROS READ, READW, REWIND, WRITER, WRITEW.
03643  M00S02169.resex   +++|
03644  M00S02170.resex   +++|
03645  M00S02171.resex   +++| OCA      SUBR               ENTRY/EXIT
03646  M00S02172.resex   +++|          WRITEW S1,RESB,RDEL ENTER REQUESTOR ON SCRATCH FILE
03647  M00S02173.resex   +++|          WRITER S1,R
03648  M00S02174.resex   +++|          SA1    NS1         INCREMENT JOB COUNT
03649  M00S02175.resex   +++|          SX6    X1+B1
03650  M00S02176.resex   +++|          SA6    A1
03651  M00S02177.resex   +++| OCA1     SX7    B0+         CLEAR JOBS WRITTEN ON SCRATCH 2 COUNTER
03652  M00S02178.resex   +++|          SA7    NS2
03653  M00S02179.resex   +++|          REWIND S2
03654  M00S02180.resex   +++|          REWIND S1
03655  M00S02181.resex   +++|          READ   X2,R
03656  M00S02182.resex   +++|
03657  M00S02183.resex   +++| OCA2     READW  S1,BUF,RDEL READ SCRATCH 1 ENTRY
03658  M00S02184.resex   +++|          NZ     X1,OCA9     IF EOR
03659  M00S02185.resex   +++|          SA3    BUF+RJID    GET JOB EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
03660  M01S02186.274l797 ---|          SB2    /PER/SFE    * RESOURCE SCRATCH FILE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
03661  M01S00407.274l797 +++|          SB2    /PER/RSF    * RESOURCE SCRATCH FILE ERROR.*
03662  M00S02187.resex   +++|          ZR     X3,PER      IF NO JOB (ERROR)
03663  M00S02188.resex   +++|          BX3    X3-X3
03664  M00S02189.resex   +++|          RJ     IAS         INITIALIZE ASSIGNMENTS
03665  M00S02190.resex   +++|          SB2    BUF
03666  M00S02191.resex   +++|          RJ     CRC         CHECK REQUEST COMPLETE
03667  M00S02192.resex   +++|          ZR     X5,OCA3     IF TOTAL ASSIGNED = TOTAL DEMAND
03668  M00S02193.resex   +++|          SB5    B0+         BUILD RDT FROM REMAINING DEMANDS
03669  M00S02194.resex   +++|          RJ     BRT
03670  M00S02195.resex   +++|          SB2    /PER/AXD    * JSQN ASSIGNS EXCEED DEMANDS.*
03671  M00S02196.resex   +++|          NG     X5,OCA8     IF ASSIGNS EXCEED DEMANDS (ERROR)
03672  M00S02197.resex   +++|          RJ     DDS         DETERMINE DEMAND SATISFACTION
03673  M00S02198.resex   +++|          ZR     X2,OCA3     IF JOB COMPLETES
03674  M00S02199.resex   +++|          WRITEW S2,BUF,RDEL COPY ENTRY TO SCRATCH 2
03675  M00S02200.resex   +++|          SA1    NS2         ADVANCE NUMBER OF JOBS
03676  M00S02201.resex   +++|          SX7    X1+B1
03677  M00S02202.resex   +++|          SA7    A1
03678  M00S02203.resex   +++|          EQ     OCA2
03679  M00S02204.resex   +++|
03680  M00S02205.resex   +++|*         ADJUST ENVIRONMENT ON COMPLETED JOB.

Seq #  *Modification Id* Act 
----------------------------+
03681  M01S00311.ns21000 +++|*         RELEASE TAPES ASSIGNED TO THIS JOB.
03682  M00S02206.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
03683  M01S02207.ns21000 ---| OCA3     SB3    EVSB

Seq #  *Modification Id* Act 
----------------------------+
03684  M01S00312.ns21000 +++| OCA3     SA1    RETI        GET RET/EVSB TAPE INDEX
03685  M01S00313.ns21000 +++|          LX1    1
03686  M01S00314.ns21000 +++|          SB3    EVSB+X1
03687  M01S00315.ns21000 +++|          SA3    RETE        GET RET/EVSB ENDING INDEX
03688  M01S00316.ns21000 +++|          LX3    1
03689  M01S00317.ns21000 +++|          SB6    EVSB+X3
03690  M01S00318.ns21000 +++|          SB7    B3          END OF REMOVABLE PACK ENTRIES
03691  M00S02208.resex   +++|          SA3    BUF+RJID    GET JOB EJT ORDINAL
03692  M00S02209.resex   +++|          MX4    -6

Seq #  *Modification Id* Act 
----------------------------+
03693  M01S02210.ns21000 ---|          SB5    RDEL-1
03694  M01S02211.ns21000 ---| OCA4     SA1    B3

Seq #  *Modification Id* Act 
----------------------------+
03695  M01S00319.ns21000 +++|          SB2    /PER/REV    * RESOURCE ENVIRONMENT ERROR.*
03696  M01S00320.ns21000 +++|          SB5    RRPS+RPSL-1
03697  M01S00321.ns21000 +++| OCA4     EQ     B3,B6,OCA5  IF END OF ENTRIES
03698  M01S00322.ns21000 +++|          SA1    B3
03699  M00S02212.resex   +++|          MX0    -12
03700  M00S02213.resex   +++|          SB3    B3+2

Seq #  *Modification Id* Act 
----------------------------+
03701  M01S02214.ns21000 ---|          ZR     X1,OCA5     IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
03702  M01S00323.ns21000 +++|          ZR     X1,OCA4     IF EMPTY ENTRY
03703  M00S02215.resex   +++|          SA2    A1+B1
03704  M00S02216.resex   +++|          BX5    X3-X2
03705  M00S02217.resex   +++|          BX5    -X0*X5
03706  M00S02218.resex   +++|          NZ     X5,OCA4     IF NOT ASSIGNED TO THIS JOB
03707  M00S02219.resex   +++|          BX1    -X4*X1      GET RESOURCE INDEX
03708  M00S02220.resex   +++|          MX0    1
03709  M00S02221.resex   +++|          SX1    X1-RRPP

Seq #  *Modification Id* Act 
----------------------------+
03710  M01S02222.ns21000 ---|          PL     X1,OCA4     IF NOT MAGNETIC TAPE
03711  M01S02223.ns21000 ---|          LX0    -6

Seq #  *Modification Id* Act 
----------------------------+
03712  M01S00324.ns21000 +++|          PL     X1,PER      IF NOT MAGNETIC TAPE
03713  M01S00325.ns21000 +++|          LX0    35-59
03714  M00S02224.resex   +++|          BX6    -X0*X2      CLEAR PHYSICALLY ASSIGNED BIT
03715  M00S02225.resex   +++|          SA6    A2
03716  M00S02226.resex   +++|          EQ     OCA4        CONTINUE SCAN OF ENVIRONMENT
03717  M00S02227.resex   +++|
03718  M00S02228.resex   +++|*         CHECK REMOVABLE PACK SHARING.
03719  M00S02229.resex   +++|
03720  M00S02230.resex   +++| OCA5     SA1    B5+BUF
03721  M00S02231.resex   +++|          SX5    B5-RRPS
03722  M00S02232.resex   +++|          NG     X5,OCA2     IF SHARE TABLE COMPLETE
03723  M00S02233.resex   +++|          SB5    B5-B1
03724  M00S02234.resex   +++|          MX0    -12
03725  M00S02235.resex   +++|          ZR     X1,OCA5     IF NO SHARED ENTRY
03726  M00S02236.resex   +++|          SB6    EVSB
03727  M00S02237.resex   +++|          SB2    B1+B1
03728  M00S02238.resex   +++|          SB3    -B1
03729  M00S02239.resex   +++|          MX7    1

Seq #  *Modification Id* Act 
----------------------------+
03730  M01S02240.ns21000 ---|          LX7    -6
03731  M01S02241.ns21000 ---|
03732  M01S02242.ns21000 ---|*         SEARCH ENVIRONMENT VSN BUFFER.
03733  M01S02243.ns21000 ---|
03734  M01S02244.ns21000 ---| OCA6     SA3    B6
03735  M01S02245.ns21000 ---|          SB6    B6+B2
03736  M01S02246.ns21000 ---|          ZR     X3,OCA7     IF NO EVSB ENTRY (ERROR)

Seq #  *Modification Id* Act 
----------------------------+
03737  M01S00326.ns21000 +++|          LX7    35-59
03738  M01S00327.ns21000 +++|
03739  M01S00328.ns21000 +++|*         DECREMENT USER COUNT ON SHARED PACK.
03740  M01S00329.ns21000 +++|
03741  M01S00330.ns21000 +++| OCA6     EQ     B6,B7,OCA7  IF NO MATCHING EVSB ENTRY
03742  M01S00331.ns21000 +++|          SA3    B6
03743  M01S00332.ns21000 +++|          SB6    B6+B2
03744  M01S00333.ns21000 +++|          ZR     X3,OCA6     IF EMPTY ENTRY
03745  M00S02247.resex   +++|          BX5    X3-X1
03746  M00S02248.resex   +++|          AX5    18
03747  M00S02249.resex   +++|          NZ     X5,OCA6     IF NO MATCH
03748  M00S02250.resex   +++|          SA3    A3+B1       DECREMENT SHARE COUNT
03749  M00S02251.resex   +++|          LX3    24
03750  M00S02252.resex   +++|          BX5    -X0*X3
03751  M00S02253.resex   +++|          BX6    X0*X3
03752  M00S02254.resex   +++|          SX5    X5+B3
03753  M00S02255.resex   +++|          BX6    X5+X6

Seq #  *Modification Id* Act 
----------------------------+
03754  M01S02256.274l797 ---|          SB2    /PER/NSC    * RESOURCE NEGATIVE SHARE COUNT.*

Seq #  *Modification Id* Act 
----------------------------+
03755  M01S00408.274l797 +++|          SB2    /PER/RNS    * RESOURCE NEGATIVE SHARE COUNT.*
03756  M00S02257.resex   +++|          NG     X5,PER      IF SHARE COUNT NEGATIVE
03757  M00S02258.resex   +++|          LX6    -24
03758  M00S02259.resex   +++|          SA6    A3
03759  M00S02260.resex   +++|          NZ     X5,OCA5     IF MORE SHARERS
03760  M00S02261.resex   +++|          BX6    -X7*X6      CLEAR PHYSICALLY ASSIGNED BIT
03761  M00S02262.resex   +++|          SA6    A6
03762  M00S02263.resex   +++|          EQ     OCA5        CONTINUE SCAN OF SHARE TABLE
03763  M00S02264.resex   +++|
03764  M00S02265.resex   +++| OCA7     SB2    /PER/STM    * JSQN SHARE TABLE MISMATCH.*
03765  M00S02266.resex   +++| OCA8     SA1    BUF+RJID    GET JOB EJT ORDINAL
03766  M00S02267.resex   +++|          EQ     PNE         PROCESS NAMED ERROR
03767  M00S02268.resex   +++|
03768  M00S02269.resex   +++|*         CLOSE SCRATCH 2 FILE.
03769  M00S02270.resex   +++|
03770  M00S02271.resex   +++| OCA9     SA1    NS1
03771  M00S02272.resex   +++|          SA2    A1+B1
03772  M00S02273.resex   +++|          IX5    X1-X2
03773  M00S02274.resex   +++|          ZR     X5,OCAX     IF NO JOBS COMPLETED ON THIS PASS
03774  M00S02275.resex   +++|          ZR     X2,OCAX     IF NO MORE JOBS
03775  M00S02276.resex   +++|
03776  M00S02277.resex   +++|*         SWAP SCRATCH 1 AND SCRATCH 2.
03777  M00S02278.resex   +++|
03778  M00S02279.resex   +++|          WRITER S2,R
03779  M00S02280.resex   +++|          REWIND S1,R
03780  M00S02281.resex   +++|          REWIND S2,R
03781  M00S02282.resex   +++|          SA2    X2
03782  M00S02283.resex   +++|          SA1    S1
03783  M00S02284.resex   +++|          BX6    X2
03784  M00S02285.resex   +++|          LX7    X1
03785  M00S02286.resex   +++|          SA6    A1
03786  M00S02287.resex   +++|          SA1    NS2
03787  M00S02288.resex   +++|          SA7    A2
03788  M00S02289.resex   +++|          BX7    X1
03789  M00S02290.resex   +++|          SA7    NS1
03790  M00S02291.resex   +++|          EQ     OCA1        REPEAT LOOP
03791  M00S02292.resex   +++|
03792  M00S02293.resex   +++|
03793  M00S02294.resex   +++| NS1      CON    0           NUMBER OF JOBS IN SCRATCH 1
03794  M00S02295.resex   +++| NS2      CON    0           NUMBER OF JOBS IN SCRATCH 2
03795  M00S02296.resex   +++|          TITLE  OVERCOMMITMENT UTILITY SUBROUTINES.
03796  M00S02297.resex   +++| CAU      SPACE  4,20
03797  M00S02298.resex   +++|**        CAU - COUNT ASSIGNED UNITS.
03798  M00S02299.resex   +++|*
03799  M00S02300.resex   +++|*         ENTRY  (X3) = 48/,12/ JOB EJT ORDINAL.
03800  M00S02301.resex   +++|*                (X4) = DEMAND ENTRY ADDRESS.
03801  M00S02302.resex   +++|*
03802  M00S02303.resex   +++|*         EXIT   ASSIGNED UNITS COUNTED FOR TAPES AND PACKS.
03803  M00S02304.resex   +++|*                (B3) = ASSIGNED COUNT.
03804  M00S02305.resex   +++|*                (X7) = TOTAL DEMAND COUNT.
03805  M00S02306.resex   +++|*
03806  M00S02307.resex   +++|*         ERROR  TO *PNE*, IF INDIVIDUAL RESOURCE ASSIGNED COUNT
03807  M00S02308.resex   +++|*                ERROR.
03808  M00S02309.resex   +++|*
03809  M00S02310.resex   +++|*         USES   A - 1, 2, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03810  M01S02311.ns21000 ---|*                B - 2, 3, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
03811  M02S00334.ns22000 ---|*                B - 2, 3, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03812  M01S00147.ns22000 +++|*                B - 2, 3, 4, 5, 6, 7.
03813  M00S02312.resex   +++|*                X - 0, 1, 2, 3, 5, 6, 7.
03814  M00S02313.resex   +++|*
03815  M00S02314.resex   +++|*         CALLS  CRM, CTA.
03816  M00S02315.resex   +++|
03817  M00S02316.resex   +++|
03818  M00S02317.resex   +++| CAU9     SB5    -B1         COUNT TOTAL ASSIGNS AND DEMANDS
03819  M00S02318.resex   +++|          RJ     CTA
03820  M00S02319.resex   +++|
03821  M00S02320.resex   +++| CAU      SUBR               ENTRY/EXIT
03822  M00S02321.resex   +++|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
03823  M01S02322.ns22000 ---|          SB2    RMTL-1
03824  M00S02323.resex   +++|          LX6    36          POSITION RESERVATION INCREMENT
03825  M00S02324.resex   +++|          SA2    X4+RVAL     CHECK FOR LOST TAPES
03826  M00S02325.resex   +++|          LX2    59-53
03827  M00S02326.resex   +++|          NG     X2,CAU4     IF TAPE ASSIGNMENT LOST

Seq #  *Modification Id* Act 
----------------------------+
03828  M01S02327.ns22000 ---|          SB3    X4+RMTP     SET TAPE STARTING POSITION

Seq #  *Modification Id* Act 
----------------------------+
03829  M01S00148.ns22000 +++|          SB3    RMTP+RMTL   SET TAPE STARTING POSITION

Seq #  *Modification Id* Act 
----------------------------+
03830  M01S00335.ns21000 +++|          SA5    RETI        GET RET/EVSB TAPE INDEX
03831  M01S00336.ns21000 +++|          SA1    RETE        GET RET/EVSB ENDING INDEX
03832  M01S00337.ns21000 +++|          LX5    1
03833  M01S00338.ns21000 +++|          LX1    1
03834  M01S00339.ns21000 +++|          SB6    EVSB+X1
03835  M01S00340.ns21000 +++|          SB7    EVSB+X5
03836  M00S02328.resex   +++|
03837  M00S02329.resex   +++|*         CHECK MAGNETIC TAPES.
03838  M00S02330.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
03839  M01S02331.ns22000 ---| CAU1     SA2    B3+B2       READ RESOURCE DEMAND ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03840  M01S00149.ns22000 +++| CAU0     SB3    B3-B1
03841  M01S00150.ns22000 +++|          SA0    B3-B1
03842  M01S00151.ns22000 +++|          SB4    RPEW*2*100B RESOURCE BYTE POSITION
03843  M01S00152.ns22000 +++|          SB2    6
03844  M01S00153.ns22000 +++| CAU1     SA2    X4+B3       RESOURCE DEMAND ENTRY
03845  M00S02332.resex   +++|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
03846  M01S02333.ns22000 ---|          LX2    18
03847  M01S02334.ns22000 ---|          BX5    -X0*X2      ASSIGNED COUNT

Seq #  *Modification Id* Act 
----------------------------+
03848  M01S00154.ns22000 +++|          AX2    B2
03849  M01S00155.ns22000 +++|          BX5    -X0*X2      ASSIGNED COUNT
03850  M00S02335.resex   +++|          ZR     X5,CAU3     IF NO ASSIGN COUNT

Seq #  *Modification Id* Act 
----------------------------+
03851  M01S02336.ns21000 ---|          SX2    A2+

Seq #  *Modification Id* Act 
----------------------------+
03852  M02S00341.ns22000 ---|          SX2    A2

Seq #  *Modification Id* Act 
----------------------------+
03853  M01S02337.ns22000 ---|          IX0    X2-X4
03854  M01S02338.ns22000 ---|          SX0    X0+100B

Seq #  *Modification Id* Act 
----------------------------+
03855  M01S00156.ns22000 +++|          SX0    A0+B4
03856  M00S02339.resex   +++|          SB5    X5

Seq #  *Modification Id* Act 
----------------------------+
03857  M01S02340.ns21000 ---|          SA5    EVSB-1      SET EVSB LOOP STARTING ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03858  M01S00342.ns21000 +++|          SA5    B7-B1
03859  M00S02341.resex   +++| CAU2     SA1    A5+B1       READ EVSB ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
03860  M01S00343.ns21000 +++|          SX7    A1-B6
03861  M01S00344.ns21000 +++|          ZR     X7,CAU8     IF EVSB SCAN COMPLETE
03862  M00S02342.resex   +++|          SA5    A1+B1

Seq #  *Modification Id* Act 
----------------------------+
03863  M01S02343.ns21000 ---|          ZR     X1,CAU8     IF EVSB SCAN COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
03864  M01S00345.ns21000 +++|          ZR     X1,CAU2     IF EMPTY ENTRY
03865  M00S02344.resex   +++|          BX7    X6*X5
03866  M00S02345.resex   +++|          NZ     X7,CAU2     IF UNIT ALREADY RESERVED
03867  M00S02346.resex   +++|          BX7    X3-X5
03868  M00S02347.resex   +++|          MX2    -12
03869  M00S02348.resex   +++|          BX7    -X2*X7
03870  M00S02349.resex   +++|          SX5    X1
03871  M00S02350.resex   +++|          NZ     X7,CAU2     IF NO MATCH ON JOB ASSIGNMENT
03872  M00S02351.resex   +++|          SX2    RPEP        FORCE *GE* EQUIPMENT MATCH FOR *NT*
03873  M00S02352.resex   +++|          RJ     CRM         CHECK FOR MATCHING RESOURCES
03874  M00S02353.resex   +++|          NZ     X7,CAU2     IF WRONG RESOURCE TYPE
03875  M00S02354.resex   +++|          SA5    A5          INDICATE RESERVED
03876  M00S02355.resex   +++|          BX7    X5+X6
03877  M00S02356.resex   +++|          SA7    A5
03878  M00S02357.resex   +++|          SB5    B5-B1
03879  M00S02358.resex   +++|          NZ     B5,CAU2     IF MORE RESOURCES

Seq #  *Modification Id* Act 
----------------------------+
03880  M01S02359.ns22000 ---| CAU3     SB2    B2-B1
03881  M01S02360.ns22000 ---|          PL     B2,CAU1     IF MORE TAPE RESOURCES

Seq #  *Modification Id* Act 
----------------------------+
03882  M01S00157.ns22000 +++| CAU3     SB4    B4-100B     DECREMENT RESOURCE BYTE POSITION
03883  M01S00158.ns22000 +++|          SB5    RPEW*100B
03884  M01S00159.ns22000 +++|          SB2    B2+12
03885  M01S00160.ns22000 +++|          ZR     B4,CAU3.1   IF END OF THIS RESOURCE
03886  M01S00161.ns22000 +++|          NE     B4,B5,CAU1  IF CONTINUE SAME RESOURCE WORD
03887  M01S00162.ns22000 +++|          SB3    B3-B1       PROCESS FIRST WORD OF RESOURCE
03888  M01S00163.ns22000 +++|          SB2    6
03889  M01S00164.ns22000 +++|          EQ     CAU1        PROCESS RESOURCE
03890  M01S00165.ns22000 +++|
03891  M01S00166.ns22000 +++| CAU3.1   SB5    RMTP        FIRST TAPE ENTRY
03892  M01S00167.ns22000 +++|          NE     B3,B5,CAU0  IF MORE TAPES TO PROCESS
03893  M00S02361.resex   +++|
03894  M00S02362.resex   +++|*         COUNT ASSIGNED PACKS.
03895  M00S02363.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
03896  M01S02364.ns21000 ---| CAU4     SB5    RDEL-RRPS-1

Seq #  *Modification Id* Act 
----------------------------+
03897  M02S00346.ns22000 ---|CAU4      SB5    RPSL        SHARE TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03898  M01S00168.ns22000 +++| CAU4     SB5    RPSL        SHARE TABLE LENGTH
03899  M00S02365.resex   +++|          SA1    RRPS-1+X4
03900  M00S02366.resex   +++|          EQ     CAU6        SCAN SHARE TABLE
03901  M00S02367.resex   +++|
03902  M00S02368.resex   +++| CAU5     BX7    X7-X7       CLEAR ENTRY
03903  M00S02369.resex   +++|          SA7    A1
03904  M00S02370.resex   +++| CAU6     ZR     B5,CAU9     IF END OF SHARE TABLE
03905  M00S02371.resex   +++|          SA1    A1+B1
03906  M00S02372.resex   +++|          SB5    B5-B1
03907  M00S02373.resex   +++|          ZR     X1,CAU6     IF NO ENTRY
03908  M00S02374.resex   +++|          SA2    EVSB-2
03909  M00S02375.resex   +++| CAU7     SA2    A2+2

Seq #  *Modification Id* Act 
----------------------------+
03910  M01S02376.ns21000 ---|          ZR     X2,CAU5     IF END OF EVSB
03911  M00S02377.resex   +++|          BX7    X2-X1

Seq #  *Modification Id* Act 
----------------------------+
03912  M01S00347.ns21000 +++|          SX5    A2-B7
03913  M01S00348.ns21000 +++|          ZR     X5,CAU8     IF END OF EVSB
03914  M01S00349.ns21000 +++|          ZR     X2,CAU7     IF EMPTY ENTRY
03915  M00S02378.resex   +++|          NZ     X7,CAU7     IF NO MATCH ON PACKNAME OR RESOURCE INDEX
03916  M00S02379.resex   +++|          SA5    A2+B1
03917  M00S02380.resex   +++|          IX7    X5+X6       COUNT AS SHARED
03918  M00S02381.resex   +++|          SA7    A5
03919  M00S02382.resex   +++|          EQ     CAU6        CONTINUE SCAN OF SHARE TABLE
03920  M00S02383.resex   +++|
03921  M00S02384.resex   +++| CAU8     SB2    /PER/MAR    * JSQN MISSING RESOURCE.*
03922  M00S02385.resex   +++|          SA1    X4+RJID     GET JOB EJT ORDINAL
03923  M00S02386.resex   +++|          EQ     PNE         PROCESS NAMED ERROR

Seq #  *Modification Id* Act 
----------------------------+
03924  M02S00169.282l826 ---| CUT      SPACE  4,20
03925  M02S00170.282l826 ---|**        CUT - CHECK UNLABELED TAPES.
03926  M02S00171.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03927  M03S00002.282l826 ---|*         ALLOW RING-IN ACCESS TO AN UNLABELED TAPE IF ANY OF THE
03928  M03S00003.282l826 ---|*         FOLLOWING ARE TRUE -

Seq #  *Modification Id* Act 
----------------------------+
03929  M02S00409.282l826 ---|*         ALLOW WRITE ENABLED ACCESS TO AN UNLABELED TAPE IF ANY OF
03930  M02S00410.282l826 ---|*         THE FOLLOWING ARE TRUE -

Seq #  *Modification Id* Act 
----------------------------+
03931  M02S00004.282l826 ---|*         1.  USER HAS *CULT* PERMISSION.
03932  M02S00005.282l826 ---|*         2.  JOB IS SYSTEM ORIGIN.
03933  M02S00006.282l826 ---|*         3.  *RESEX* WAS CALLED AS A *DMP=* PROGRAM BY AN *SSJ=*
03934  M02S00007.282l826 ---|*             PROGRAM.
03935  M02S00008.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03936  M03S00172.282l826 ---|*         ENTRY  (TB) = TAPE BLOCK DEFINITION.

Seq #  *Modification Id* Act 
----------------------------+
03937  M04S00173.282l826 ---|*                (SSMA) = SYSTEM SECURITY MODE.

Seq #  *Modification Id* Act 
----------------------------+
03938  M03S00009.282l826 ---|*                (/CPA/SPCW) = SYSTEM PROCESSOR CALL WORD.

Seq #  *Modification Id* Act 
----------------------------+
03939  M02S00411.282l826 ---|*         ENTRY  (/CPA/SPCW) = SYSTEM PROCESSOR CALL WORD.

Seq #  *Modification Id* Act 
----------------------------+
03940  M02S00174.282l826 ---|*                (OT) = ORIGIN TYPE.
03941  M02S00175.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03942  M03S00176.282l826 ---|*         EXIT   (TB) = SET TO FORCE RING-OUT IF USER DOES NOT
03943  M03S00177.282l826 ---|*                HAVE UNLABELED TAPE WRITE PERMISSION *CULT*, AND
03944  M03S00178.282l826 ---|*                JOB IS NOT OF SYSTEM ORIGIN.
03945  M03S00179.282l826 ---|*
03946  M03S00180.282l826 ---|*         ERROR  TO *PER*, IF SECURED SYSTEM AND USER REQUESTS RING-IN
03947  M03S00181.282l826 ---|*                ON AN UNLABELED TAPE, BUT DOES NOT HAVE WRITE
03948  M03S00182.282l826 ---|*                PERMISSION *CULT*.

Seq #  *Modification Id* Act 
----------------------------+
03949  M03S00010.282l826 ---|*         EXIT   (TB) = SET TO FORCE RING-OUT IF RING-IN ACCESS IS
03950  M03S00011.282l826 ---|*                NOT ALLOWED.

Seq #  *Modification Id* Act 
----------------------------+
03951  M02S00412.282l826 ---|*         EXIT   WRITE DISABLED IF WRITE ACCESS IS NOT ALLOWED.

Seq #  *Modification Id* Act 
----------------------------+
03952  M02S00012.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03953  M03S00013.282l826 ---|*         ERROR  TO *PER* IF CALLER REQUESTS RING-IN ON AN UNLABELED
03954  M03S00014.282l826 ---|*                TAPE, BUT RING-IN ACCESS IS NOT ALLOWED.

Seq #  *Modification Id* Act 
----------------------------+
03955  M02S00413.282l826 ---|*         ERROR  TO *PER* IF CALLER REQUESTS WRITE ACCESS ON AN
03956  M02S00414.282l826 ---|*                  UNLABELED TAPE, BUT WRITE ACCESS IS NOT ALLOWED.

Seq #  *Modification Id* Act 
----------------------------+
03957  M02S00183.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03958  M03S00184.282l826 ---|*         USES   X - 0, 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
03959  M02S00001.282l826 ---|*         USES   X - 0, 1, 2, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
03960  M02S00185.282l826 ---|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
03961  M03S00186.282l826 ---|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
03962  M02S00002.282l826 ---|*                B - 2, 5.
03963  M02S00003.282l826 ---|*
03964  M02S00004.282l826 ---|*         CALLS  BPD, IRC, UDF.

Seq #  *Modification Id* Act 
----------------------------+
03965  M02S00187.282l826 ---|*
03966  M02S00188.282l826 ---|*         MACROS MESSAGE.
03967  M02S00189.282l826 ---|
03968  M02S00190.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
03969  M03S00191.282l826 ---| CUT1     LX2    59-3-59+4   CHECK RING OUT STATUS
03970  M03S00192.282l826 ---|          NG     X2,CUTX     IF RING OUT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
03971  M02S00415.282l826 ---| CUT1     LX2    59-39-59+40 CHECK WRITE DISABLE OPTION (PO = R)
03972  M02S00416.282l826 ---|          NG     X2,CUTX     IF WRITE DISABLE REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
03973  M02S00193.282l826 ---|          BX6    X0+X2

Seq #  *Modification Id* Act 
----------------------------+
03974  M03S00194.282l826 ---|          LX6    -59+3
03975  M03S00195.282l826 ---|          SA6    A2          REPLACE *TB* FORCING RING-OUT
03976  M03S00196.282l826 ---|          MESSAGE CUTA,3     * RING-OUT STATUS HAS BEEN FORCED. *

Seq #  *Modification Id* Act 
----------------------------+
03977  M02S00417.282l826 ---|          LX6    -59+39
03978  M02S00418.282l826 ---|          SA6    A2          FORCE WRITE DISABLE
03979  M02S00419.282l826 ---|          MESSAGE CUTA,3     * WRITE DISABLE FORCED ON UNLABELED ...*

Seq #  *Modification Id* Act 
----------------------------+
03980  M02S00197.282l826 ---|
03981  M02S00198.282l826 ---| CUT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03982  M02S00015.282l826 ---|          SA1    /CPA/SPCW
03983  M02S00016.282l826 ---|          LX1    59-36
03984  M02S00017.282l826 ---|          NG     X1,CUTX     IF *SSJ=*/*DMP=* CALLED BY *SSJ=*

Seq #  *Modification Id* Act 
----------------------------+
03985  M02S00199.282l826 ---|          SA2    OT          ORIGIN TYPE
03986  M02S00200.282l826 ---|          SX2    X2-SYOT
03987  M02S00201.282l826 ---|          ZR     X2,CUTX     IF JOB IS SYSTEM ORIGIN

Seq #  *Modification Id* Act 
----------------------------+
03988  M03S00202.282l826 ---|          SA2    UDT+/COMSMTX/UST2
03989  M03S00203.282l826 ---|          LX2    59-11       CHECK FOR LABELED TAPE
03990  M03S00204.282l826 ---|          MX0    1
03991  M03S00205.282l826 ---|          NG     X2,CUTX     IF LABELED TAPE

Seq #  *Modification Id* Act 
----------------------------+
03992  M02S00001.282l826 ---|          SA2    F+FTAP      CHECK IF TAPE WILL BE PROCESSED AS LABELED

Seq #  *Modification Id* Act 
----------------------------+
03993  M03S00002.282l826 ---|          LX2    1

Seq #  *Modification Id* Act 
----------------------------+
03994  M02S00420.282l826 ---|          LX2    59-58

Seq #  *Modification Id* Act 
----------------------------+
03995  M02S00003.282l826 ---|          NG     X2,CUTX     IF TAPE WILL BE PROCESSED AS LABELED
03996  M02S00004.282l826 ---|          MX0    1

Seq #  *Modification Id* Act 
----------------------------+
03997  M02S00206.282l826 ---|          SA1    JCWA        SECURITY CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
03998  M03S00207.282l826 ---|          SA2    TB          CHECK USER WRITE RING REQUIREMENTS

Seq #  *Modification Id* Act 
----------------------------+
03999  M02S00208.282l826 ---|          LX1    59-52       CHECK *CULT* (WRITE UNLABELED TAPES)

Seq #  *Modification Id* Act 
----------------------------+
04000  M03S00209.282l826 ---|          LX2    59-4

Seq #  *Modification Id* Act 
----------------------------+
04001  M02S00421.282l826 ---|          LX2    59-40-59+58

Seq #  *Modification Id* Act 
----------------------------+
04002  M02S00210.282l826 ---|          NG     X1,CUTX     IF USER HAS *CULT* PERMISSION

Seq #  *Modification Id* Act 
----------------------------+
04003  M03S00211.282l826 ---|          SB2    /PER/WUT    *NOT VALIDATED FOR WRITING UNLABELED TAPES*

Seq #  *Modification Id* Act 
----------------------------+
04004  M03S00212.282l826 ---|          PL     X2,CUT1     IF WRITE RING NOT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
04005  M02S00422.282l826 ---|          PL     X2,CUT1     IF WRITE ENABLE NOT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
04006  M02S00005.282l826 ---|          SB5    -1
04007  M02S00006.282l826 ---|          RJ     IRC         DECREMENT TOTAL AND RESOURCE DEMAND COUNTS
04008  M02S00007.282l826 ---|          BX6    X6-X6       CLEAR PREVIEW DATA
04009  M02S00008.282l826 ---|          MX5    0           DEMAND FILE NOT TO BE RETURNED
04010  M02S00009.282l826 ---|          SA6    RESB+RQPD
04011  M02S00010.282l826 ---|          RJ     UDF         UPDATE DEMAND FILE
04012  M02S00011.282l826 ---|          RJ     BPD         BUILD PREVIEW DISPLAY

Seq #  *Modification Id* Act 
----------------------------+
04013  M03S00012.282l826 ---|          SB2    /PER/WUT    *NOT VALIDATED FOR WRITING UNLABELED TAPES*

Seq #  *Modification Id* Act 
----------------------------+
04014  M02S00423.282l826 ---|          SB2    /PER/NVU    *NOT VALIDATED FOR WRITING UNLABELED TAPES*

Seq #  *Modification Id* Act 
----------------------------+
04015  M02S00213.282l826 ---|          EQ     PER         PROCESS ERROR
04016  M02S00214.282l826 ---|
04017  M02S00215.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
04018  M03S00216.282l826 ---| CUTA     DATA   C*  RING-OUT STATUS HAS BEEN FORCED.*

Seq #  *Modification Id* Act 
----------------------------+
04019  M02S02387.282l826 ---| DDS      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
04020  M02S00424.282l826 ---| CUTA     DATA   C* WRITE DISABLE FORCED ON UNLABELED REQUEST.*

Seq #  *Modification Id* Act 
----------------------------+
04021  M01S00425.274l797 +++| DDS      SPACE  4,20
04022  M00S02388.resex   +++|**        DDS - DETERMINE DEMAND SATISFACTION.
04023  M00S02389.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
04024  M01S02390.274l797 ---|*         ENTRY  (B6) = RESOURCES DEMANDED FWA.
04025  M01S02391.274l797 ---|*                (B7) = RESOURCES DEMANDED LWA.

Seq #  *Modification Id* Act 
----------------------------+
04026  M01S00426.274l797 +++|*         ENTRY  (B6) = FWA OF RESOURCES DEMANDED TABLE (*RDT* FORMAT).
04027  M01S00427.274l797 +++|*                (B7) = LWA+1 OF RESOURCES DEMANDED TABLE.
04028  M00S02392.resex   +++|*
04029  M00S02393.resex   +++|*         EXIT   (X2) = 0 IF DEMAND SATISFIABLE.

Seq #  *Modification Id* Act 
----------------------------+
04030  M02S00002.274l797 ---|*                (X2) = UNSATISFIABLE RESOURCE TYPE LEFT JUSTIFIED
04031  M02S00003.274l797 ---|*                       IF DEMAND IS NOT SATISFIABLE.
04032  M00S02394.resex   +++|*
04033  M00S02395.resex   +++|*         ERROR  TO *PER*, IF ENVIRONMENT ERROR.
04034  M00S02396.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
04035  M01S02397.ns21000 ---|*         USES   A - 0, 1, 2, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04036  M01S00350.ns21000 +++|*         USES   A - ALL.
04037  M00S02398.resex   +++|*                B - 2, 3, 4, 5, 6.
04038  M00S02399.resex   +++|*                X - ALL.
04039  M00S02400.resex   +++|*
04040  M00S02401.resex   +++|*         CALLS  GRL.
04041  M00S02402.resex   +++|
04042  M00S02403.resex   +++|
04043  M00S02404.resex   +++| DDS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
04044  M01S00428.274l797 +++|
04045  M01S00429.274l797 +++|*         AN ATTEMPT IS MADE TO ASSIGN EQUIPMENTS AS FOLLOWS-
04046  M01S00430.274l797 +++|*
04047  M01S00431.274l797 +++|*         1. RESOURCE DEMANDS ARE SATISFIED WITH LARGER MULTI-SPINDLE
04048  M01S00432.274l797 +++|*            DEMANDS FIRST, TAPES LAST.
04049  M01S00433.274l797 +++|*
04050  M01S00434.274l797 +++|*         2. THE DEMAND IS SATISFIED BY A SINGLE EQUIPMENT WITH A *BEST
04051  M01S00435.274l797 +++|*            FIT* DETERMINED BY THE LARGEST SPINDLE RESIDUE.
04052  M01S00436.274l797 +++|*
04053  M01S00437.274l797 +++|*         3. THE DEMAND IS SATISFIED BY A CHAIN OF EQUIPMENTS WITH NO
04054  M01S00438.274l797 +++|*            REGARD TO SPINDLE OR EQUIPMENT RESIDUE AS A CRITERION FOR
04055  M01S00439.274l797 +++|*            A *BEST FIT*.
04056  M01S00440.274l797 +++|*
04057  M01S00441.274l797 +++|*         4. IF A RESOURCE DEMAND CANNOT BE SATISFIED, THEN THE
04058  M01S00442.274l797 +++|*            PREVIOUS DEMAND SATISFACTION IS NEGATED AND RETRIED (STEP
04059  M01S00443.274l797 +++|*            2).  THIS IS DONE UNTIL ALL POSSIBLE CHAINS HAVE BEEN
04060  M01S00444.274l797 +++|*            ATTEMPTED FOR ALL DEMANDED RESOURCES.
04061  M01S00445.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04062  M01S00351.ns21000 +++|          SA2    RETE        GET RET ENDING INDEX
04063  M01S00352.ns21000 +++|          SB3    RET+X2
04064  M00S02405.resex   +++| DDS1     BX2    X2-X2
04065  M00S02406.resex   +++|          SA1    B6          READ RESOURCES DEMANDED TABLE ENTRY
04066  M00S02407.resex   +++|          EQ     B6,B7,DDSX  IF COMPLETED
04067  M00S02408.resex   +++|          BX7    X1
04068  M00S02409.resex   +++|          AX7    48
04069  M00S02410.resex   +++|          SB4    TRSLL2
04070  M00S02411.resex   +++|          RJ     GRL         GET RESOURCE LIST INDEX
04071  M00S02412.resex   +++|          SB4    -B4
04072  M00S02413.resex   +++|          SX7    X7-2RPE
04073  M00S02414.resex   +++|          SA0    B1
04074  M00S02415.resex   +++|          NZ     X7,DDS2     IF NOT *PE* REQUEST
04075  M00S02416.resex   +++|          SA0    -TRHD       SATISFY WITH *HD* OR *GE* EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04076  M01S02417.ns21000 ---| DDS2     SB2    RET         FIND SINGLE EQUIPMENT WHICH MEETS DEMAND
04077  M01S02418.ns21000 ---|          SB3    RET+ESTL
04078  M01S02419.ns21000 ---|          MX6    0

Seq #  *Modification Id* Act 
----------------------------+
04079  M01S00353.ns21000 +++| DDS2     SB2    RET+1       FIND SINGLE EQUIPMENT WHICH MEETS DEMAND
04080  M01S00354.ns21000 +++|          SA3    A1+B1
04081  M01S00355.ns21000 +++|          SX6    -B1
04082  M00S02420.resex   +++|          BX7    X7-X7
04083  M00S02421.resex   +++|          SA6    TDDS        CLEAR TEMPORARIES
04084  M00S02422.resex   +++|          SA7    A6+B1
04085  M00S02423.resex   +++|          BX4    X1

Seq #  *Modification Id* Act 
----------------------------+
04086  M01S02424.ns21000 ---|          MX3    -6          SET GLOBAL EQUIPMENT AND UNIT MASK

Seq #  *Modification Id* Act 
----------------------------+
04087  M01S00356.ns21000 +++|          MX5    -6
04088  M00S02425.resex   +++|          LX4    18

Seq #  *Modification Id* Act 
----------------------------+
04089  M01S02426.ns21000 ---|          BX4    -X3*X4      NUMBER OF UNITS REQUIRED
04090  M01S02427.ns21000 ---|          BX5    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
04091  M01S00357.ns21000 +++|          BX4    -X5*X4      NUMBER OF UNITS REQUIRED
04092  M01S00358.ns21000 +++|          MX5    12
04093  M01S00359.ns21000 +++|          BX5    X5*X3       ORIGINAL EQUIPMENT
04094  M00S02428.resex   +++|          ZR     X5,DDS3     IF FIRST ATTEMPT TO SATISFY
04095  M00S02429.resex   +++|          SA5    DDSA        SET STARTING POSITION
04096  M00S02430.resex   +++|          SB2    X5+RET+1
04097  M00S02431.resex   +++| DDS3     SA2    B2
04098  M00S02432.resex   +++|          GE     B2,B3,DDS5  IF END OF RESOURCE EQUIPMENT TABLE
04099  M00S02433.resex   +++|          SB2    B2+B1

Seq #  *Modification Id* Act 
----------------------------+
04100  M01S02434.ns21000 ---|          ZR     X2,DDS3     IF NO ENTRY
04101  M00S02435.resex   +++|          LX7    X2,B1
04102  M00S02436.resex   +++|          BX5    X1-X2
04103  M00S02437.resex   +++|          LX2    -1
04104  M00S02438.resex   +++|          NG     X2,DDS3     IF LOGICALLY ASSIGNED
04105  M00S02439.resex   +++|          AX5    48
04106  M00S02440.resex   +++|          PL     X5,DDS4     IF NOT RESOURCE LIST INDEX
04107  M00S02441.resex   +++|          AX7    49
04108  M00S02442.resex   +++|          SX5    X7+B4
04109  M00S02443.resex   +++|          SB5    A0+
04110  M00S02444.resex   +++|          GT     B5,DDS4     IF NOT *PE* REQUEST
04111  M00S02445.resex   +++|          ZR     X5,DDS4     IF MATCH
04112  M00S02446.resex   +++|          SX5    X7+B5

Seq #  *Modification Id* Act 
----------------------------+
04113  M01S02447.ns21000 ---| DDS4     LX2    25

Seq #  *Modification Id* Act 
----------------------------+
04114  M01S00360.ns21000 +++| DDS4     LX2    -5
04115  M00S02448.resex   +++|          NZ     X5,DDS3     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
04116  M01S02449.ns21000 ---|          BX5    -X3*X2

Seq #  *Modification Id* Act 
----------------------------+
04117  M02S00361.ns22000 ---|          MX5    -3

Seq #  *Modification Id* Act 
----------------------------+
04118  M01S00217.ns22000 +++|          SX0    B2-RET-1
04119  M01S00218.ns22000 +++|          SA5    RETI        TAPE BEGINNING INDEX
04120  M01S00219.ns22000 +++|          IX5    X0-X5
04121  M01S00220.ns22000 +++|          NG     X5,DDS4.0   IF NOT A TAPE ENTRY
04122  M01S00221.ns22000 +++|          RJ     CLM         CHECK LEVEL MATCH
04123  M01S00222.ns22000 +++|          NG     X0,DDS3     IF LEVELS DO NOT MATCH
04124  M01S00223.ns22000 +++| DDS4.0   MX5    -3

Seq #  *Modification Id* Act 
----------------------------+
04125  M01S00362.ns21000 +++|          BX5    -X5*X2
04126  M00S02450.resex   +++|          SX5    X5+B1
04127  M00S02451.resex   +++|          IX6    X5-X4
04128  M00S02452.resex   +++|          NG     X6,DDS3     IF INSUFFICIENT UNITS
04129  M00S02453.resex   +++|          SA5    A6
04130  M00S02454.resex   +++|          IX5    X6-X5
04131  M00S02455.resex   +++|          NG     X5,DDS3     IF NOT BEST RESIDUE

Seq #  *Modification Id* Act 
----------------------------+
04132  M01S02456.ns21000 ---|          SA6    A6
04133  M01S02457.ns21000 ---|          SX7    A2

Seq #  *Modification Id* Act 
----------------------------+
04134  M01S00363.ns21000 +++|          ZR     X5,DDS3     IF SAME RESIDUE
04135  M01S00364.ns21000 +++|          SA6    A6          SAVE UNIT COUNT RESIDUE
04136  M01S00365.ns21000 +++|          SX7    A2          SAVE RET ADDRESS
04137  M00S02458.resex   +++|          SA7    A7
04138  M00S02459.resex   +++|          EQ     DDS3        LOOP FOR BEST RESIDUE
04139  M00S02460.resex   +++|
04140  M00S02461.resex   +++| DDS5     SA5    A7
04141  M00S02462.resex   +++|          ZR     X5,DDS6     IF SINGLE EQUIPMENT ENTRY NOT FOUND
04142  M00S02463.resex   +++|          SA4    X5          LOGICALLY ASSIGN
04143  M00S02464.resex   +++|          SX7    B1
04144  M00S02465.resex   +++|          BX7    X7+X4
04145  M00S02466.resex   +++|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
04146  M01S02467.ns21000 ---|          LX7    30
04147  M01S02468.ns21000 ---|          BX7    -X3*X7
04148  M01S02469.ns21000 ---|          SX6    X7
04149  M01S02470.ns21000 ---|          LX6    -6
04150  M01S02471.ns21000 ---|          SA6    A1+B1       INDICATE EQUIPMENT CHAIN
04151  M01S02472.ns21000 ---|          BX4    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
04152  M01S00366.ns21000 +++|          SX6    A4-RET      RET INDEX
04153  M01S00367.ns21000 +++|          LX6    27
04154  M00S02473.resex   +++|          EQ     DDS18       CHECK FOR FIRST ATTEMPT TO SATISFY
04155  M00S02474.resex   +++|
04156  M00S02475.resex   +++|
04157  M00S02476.resex   +++|*         ATTEMPT TO SATISFY DEMAND WITH CHAINED EQUIPMENT.
04158  M00S02477.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04159  M01S02478.ns21000 ---| DDS6     SB2    RET
04160  M01S02479.ns21000 ---|          SB3    RET+ESTL
04161  M01S02480.ns21000 ---|          BX5    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
04162  M01S00368.ns21000 +++| DDS6     SB2    RET+1
04163  M01S00369.ns21000 +++|          MX5    12
04164  M01S00370.ns21000 +++|          BX5    X5*X3
04165  M00S02481.resex   +++|          ZR     X5,DDS7     IF FIRST ATTEMPT TO SATISFY
04166  M00S02482.resex   +++|          SA5    DDSA        SET STARTING POSITION
04167  M00S02483.resex   +++|          SB2    X5+RET+1
04168  M00S02484.resex   +++| DDS7     LX4    X1
04169  M00S02485.resex   +++|          BX7    X7-X7
04170  M00S02486.resex   +++|          LX4    18

Seq #  *Modification Id* Act 
----------------------------+
04171  M01S02487.ns21000 ---|          BX4    -X3*X4      NUMBER OF UNITS REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
04172  M01S00371.ns21000 +++|          MX2    -6
04173  M01S00372.ns21000 +++|          BX4    -X2*X4      NUMBER OF UNITS REQUIRED
04174  M00S02488.resex   +++|          SA7    DDSB        CLEAR LDAM CONTROL

Seq #  *Modification Id* Act 
----------------------------+
04175  M01S02489.ns21000 ---|          SA7    TDDS        SET CHAIN POINTER

Seq #  *Modification Id* Act 
----------------------------+
04176  M01S00373.ns21000 +++|          CLEAR  TDDS,TDDSL  CLEAR EQUIPMENT CHAIN TABLE
04177  M00S02490.resex   +++| DDS8     SA2    B2          READ RESOURCE EQUIPMENT TABLE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04178  M01S02491.ns21000 ---|          GE     B2,B3,DDS21 IF END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
04179  M01S00374.ns21000 +++|          GE     B2,B3,DDS12 IF END OF TABLE
04180  M00S02492.resex   +++|          SB2    B2+B1

Seq #  *Modification Id* Act 
----------------------------+
04181  M01S02493.ns21000 ---|          ZR     X2,DDS8     IF NO ENTRY
04182  M00S02494.resex   +++|          BX5    X1-X2
04183  M00S02495.resex   +++|          LX7    X2,B1

Seq #  *Modification Id* Act 
----------------------------+
04184  M01S02496.ns21000 ---|          LX2    -1

Seq #  *Modification Id* Act 
----------------------------+
04185  M01S00375.ns21000 +++|          LX2    59-0
04186  M00S02497.resex   +++|          NG     X2,DDS8     IF LOGICALLY ASSIGNED
04187  M00S02498.resex   +++|          AX5    48
04188  M00S02499.resex   +++|          PL     X5,DDS9     IF NOT RESOURCE LIST INDEX
04189  M00S02500.resex   +++|          AX7    49
04190  M00S02501.resex   +++|          SX5    X7+B4
04191  M00S02502.resex   +++|          SB5    A0+

Seq #  *Modification Id* Act 
----------------------------+
04192  M01S02503.resex6  ---|          GT     B5,DDS8     IF NOT *PE* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04193  M01S00001.resex6  +++|          GT     B5,DDS9     IF NOT *PE* REQUEST
04194  M00S02504.resex   +++|          ZR     X5,DDS9     IF MATCH
04195  M00S02505.resex   +++|          SX5    X7+B5
04196  M00S02506.resex   +++| DDS9     NZ     X5,DDS8     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
04197  M01S02507.ns22000 ---|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
04198  M01S00224.ns22000 +++|          SX0    B2-RET-1
04199  M01S00225.ns22000 +++|          SA5    RETI        TAPE BEGINNING INDEX
04200  M01S00226.ns22000 +++|          IX5    X0-X5
04201  M01S00227.ns22000 +++|          NG     X5,DDS9.0   IF NOT A TAPE ENTRY
04202  M01S00228.ns22000 +++|          RJ     CLM         CHECK LEVEL MATCH
04203  M01S00229.ns22000 +++|          NG     X0,DDS8     IF LEVELS DO NOT MATCH
04204  M01S00230.ns22000 +++| DDS9.0   BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
04205  M01S02508.ns21000 ---|          LX7    -3

Seq #  *Modification Id* Act 
----------------------------+
04206  M01S00376.ns21000 +++|          LX7    59-3-59+0
04207  M00S02509.resex   +++|          PL     X7,DDS11    IF NOT LDAM EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04208  M01S02510.ns21000 ---|          SA5    B2-RET+EST-1  READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04209  M01S00377.ns21000 +++|          LX7    12-59+3
04210  M00S02511.resex   +++|          MX0    12

Seq #  *Modification Id* Act 
----------------------------+
04211  M01S02512.ns21000 ---|          LX5    12
04212  M01S02513.ns21000 ---|          BX7    X0*X5

Seq #  *Modification Id* Act 
----------------------------+
04213  M01S00378.ns21000 +++|          BX7    X0*X7       CHANNELS
04214  M00S02514.resex   +++|          SX6    B2-B1       SET STARTER
04215  M00S02515.resex   +++|          SA5    DDSB        COMPARE CHANNELS
04216  M00S02516.resex   +++|          NZ     X5,DDS10    IF STARTER CHOSEN
04217  M00S02517.resex   +++|          BX6    X7+X6
04218  M00S02518.resex   +++|          SA6    A5
04219  M00S02519.resex   +++|          EQ     DDS11       CHECK NUMBER OF UNITS
04220  M00S02520.resex   +++|
04221  M00S02521.resex   +++| DDS10    BX5    X0*X5
04222  M00S02522.resex   +++|          BX0    X5-X7
04223  M00S02523.resex   +++|          ZR     X0,DDS11    IF CHANNELS MATCH
04224  M00S02524.resex   +++|          MX0    6           INTERCHANGE CHANNELS
04225  M00S02525.resex   +++|          BX6    X0*X7
04226  M00S02526.resex   +++|          LX7    6
04227  M00S02527.resex   +++|          BX7    X0*X7
04228  M00S02528.resex   +++|          LX6    -6
04229  M00S02529.resex   +++|          BX7    X7+X6
04230  M00S02530.resex   +++|          BX0    X5-X7
04231  M00S02531.resex   +++|          NZ     X0,DDS12    IF CHANNELS DO NOT MATCH

Seq #  *Modification Id* Act 
----------------------------+
04232  M01S02532.ns21000 ---| DDS11    LX2    25
04233  M01S02533.ns21000 ---|          BX5    -X3*X2
04234  M01S02534.ns21000 ---|          SX5    X5+1
04235  M01S02535.ns21000 ---|          SX7    A2-RET

Seq #  *Modification Id* Act 
----------------------------+
04236  M01S00379.ns21000 +++| DDS11    LX2    -6-59+0+60  GET ORIGINAL SPINDLES
04237  M01S00380.ns21000 +++|          MX5    -3
04238  M01S00381.ns21000 +++|          BX5    -X5*X2
04239  M01S00382.ns21000 +++|          SX5    X5+B1
04240  M01S00383.ns21000 +++|          SX7    A2-RET      RET INDEX
04241  M00S02536.resex   +++|          IX4    X4-X5
04242  M00S02537.resex   +++|          SA7    A7+B1       ENTER CHAIN
04243  M00S02538.resex   +++|          ZR     X4,DDS15    IF DEMAND SATISFIED
04244  M00S02539.resex   +++|          NG     X4,DDS15    IF DEMAND SATISFIABLE

Seq #  *Modification Id* Act 
----------------------------+
04245  M01S02540.ns21000 ---|          LX2    12

Seq #  *Modification Id* Act 
----------------------------+
04246  M01S00384.ns21000 +++|          LX2    -30
04247  M00S02541.resex   +++|          SA5    DDSB        CHECK LDAM CONTROL
04248  M00S02542.resex   +++|          ZR     X5,DDS13    IF NOT LDAM EQUIPMENT
04249  M00S02543.resex   +++| DDS12    LT     B2,B3,DDS8  IF NOT END OF TABLE
04250  M00S02544.resex   +++|          SA5    DDSB        CHECK LDAM CONTROL
04251  M00S02545.resex   +++|          ZR     X5,DDS21    IF STARTER NEVER SELECTED
04252  M00S02546.resex   +++|          SB2    X5+B1       ADVANCE STARTING POSITION
04253  M00S02547.resex   +++|          GE     B2,B3,DDS21 IF TABLE EXCEEDED
04254  M00S02548.resex   +++|          JP     DDS7        CONTINUE WITH NEXT TABLE POSITION
04255  M00S02549.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04256  M01S02550.ns21000 ---| DDS13    BX2    -X3*X2
04257  M01S02551.ns21000 ---|          ZR     X2,DDS7     IF END OF CHAIN
04258  M01S02552.ns21000 ---|          SB5    X2+RET
04259  M01S02553.ns21000 ---|          GE     B5,B3,DDS25 IF OUT OF RESOURCE EQUIPMENT TABLE
04260  M01S02554.ns21000 ---|          SA2    B5+
04261  M01S02555.ns21000 ---|          BX5    X2-X1
04262  M01S02556.ns21000 ---|          ZR     X2,DDS7     IF NO ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04263  M01S00385.ns21000 +++| DDS13    MX6    12
04264  M01S00386.ns21000 +++|          BX5    X6*X2       NEXT EQUIPMENT
04265  M01S00387.ns21000 +++|          ZR     X5,DDS7     IF END OF CHAIN
04266  M01S00388.ns21000 +++|          SA2    RET
04267  M01S00389.ns21000 +++| DDS13.1  SB5    A2+B1
04268  M01S00390.ns21000 +++|          EQ     B5,B3,DDS25 IF EQUIPMENT NOT IN RET
04269  M01S00391.ns21000 +++|          SA2    A2+B1
04270  M01S00392.ns21000 +++|          LX2    -24
04271  M01S00393.ns21000 +++|          BX7    X6*X2
04272  M01S00394.ns21000 +++|          BX7    X7-X5
04273  M01S00395.ns21000 +++|          NZ     X7,DDS13.1  IF NOT MATCHING EQUIPMENT
04274  M01S00396.ns21000 +++|          LX2    24
04275  M01S00397.ns21000 +++|          BX5    X2-X1
04276  M00S02557.resex   +++|          LX7    X2,B1
04277  M00S02558.resex   +++|          AX5    48
04278  M00S02559.resex   +++|          LX2    -1
04279  M00S02560.resex   +++|          NG     X2,DDS7     IF LOGICALLY ASSIGNED (PREMATURE ENDCHAIN)
04280  M00S02561.resex   +++|          PL     X5,DDS14    IF NOT RESOURCE LIST INDEX
04281  M00S02562.resex   +++|          AX7    49
04282  M00S02563.resex   +++|          SX5    X7+B4
04283  M00S02564.resex   +++|          SB5    A0+
04284  M00S02565.resex   +++|          GT     B5,DDS14    IF NOT *PE* REQUEST
04285  M00S02566.resex   +++|          ZR     X5,DDS11    IF MATCH
04286  M00S02567.resex   +++|          SX5    X7+B5
04287  M00S02568.resex   +++| DDS14    NZ     X5,DDS25    IF NO MATCH (ERROR)
04288  M00S02569.resex   +++|          EQ     DDS11       CONTINUE WITH NEXT CHAINED EQUIPMENT
04289  M00S02570.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04290  M01S02571.ns21000 ---| DDS15    SA4    A7+B1
04291  M01S02572.ns21000 ---|          MX6    0
04292  M01S02573.ns21000 ---| DDS16    SA4    A4-B1
04293  M01S02574.ns21000 ---|          BX6    X6+X4
04294  M01S02575.ns21000 ---|          ZR     X4,DDS17    IF END OF CHAIN
04295  M01S02576.ns21000 ---|          LX6    -6
04296  M01S02577.ns21000 ---|          SA5    X4+RET      INDICATE LOGICALLY ASSIGNED
04297  M01S02578.ns21000 ---|          SX7    B1
04298  M01S02579.ns21000 ---|          BX7    X7+X5
04299  M01S02580.ns21000 ---|          SA7    A5
04300  M01S02581.ns21000 ---|          EQ     DDS16       LOOP FOR ALL EQUIPMENTS
04301  M01S02582.ns21000 ---|
04302  M01S02583.ns21000 ---| DDS17    SA6    A1+B1       SET CHAIN INDICATOR
04303  M01S02584.ns21000 ---|          LX6    6
04304  M01S02585.ns21000 ---|          BX7    -X3*X6      FIRST EQUIPMENT IN CHAIN
04305  M01S02586.ns21000 ---|          BX4    -X3*X1
04306  M01S02587.ns21000 ---| DDS18    NZ     X4,DDS20    IF NOT FIRST ATTEMPT
04307  M01S02588.ns21000 ---|          BX7    X1+X7
04308  M01S02589.ns21000 ---|          SA7    A1          SET ORIGINAL EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04309  M01S00398.ns21000 +++| DDS15    SB4    4
04310  M01S00399.ns21000 +++|          SB5    B4+B4
04311  M01S00400.ns21000 +++|          BX6    X6-X6
04312  M01S00401.ns21000 +++| DDS16    SB4    B4+B1
04313  M01S00402.ns21000 +++|          SA4    TDDS+B4
04314  M01S00403.ns21000 +++|          SX7    B1
04315  M01S00404.ns21000 +++|          ZR     X4,DDS17    IF NO EQUIPMENT
04316  M01S00405.ns21000 +++|          SA2    RET+X4      INDICATE EQUIPMENT LOGICALLY ASSIGNED
04317  M01S00406.ns21000 +++|          BX7    X2+X7
04318  M01S00407.ns21000 +++|          SA7    A2
04319  M01S00408.ns21000 +++| DDS17    LX6    9
04320  M01S00409.ns21000 +++|          BX6    X6+X4
04321  M01S00410.ns21000 +++|          NE     B4,B5,DDS16 IF MORE *RET* INDICES TO ENTER
04322  M01S00411.ns21000 +++|          SB5    B5-4
04323  M01S00412.ns21000 +++|          ZR     B5,DDS18    IF ALL CHAINED EQUIPMENTS PROCESSED
04324  M01S00413.ns21000 +++|          BX3    X3+X6
04325  M01S00414.ns21000 +++|          BX6    X6-X6
04326  M01S00415.ns21000 +++|          SB5    4
04327  M01S00416.ns21000 +++|          SB4    B0
04328  M01S00417.ns21000 +++|          EQ     DDS16       CONTINUE CHAINING EQUIPMENTS
04329  M01S00418.ns21000 +++|
04330  M01S00419.ns21000 +++| DDS18    BX6    X1+X6       SAVE EQUIPMENT CHAIN
04331  M01S00420.ns21000 +++|          LX7    X3
04332  M01S00421.ns21000 +++|          SA6    A1          UPDATE RDT ENTRY
04333  M01S00422.ns21000 +++|          SA7    A3
04334  M01S00423.ns21000 +++|          MX4    12
04335  M01S00424.ns21000 +++|          BX4    X4*X3       GET ORIGINAL EQUIPMENT
04336  M01S00425.ns21000 +++|          LX6    -27         GET FIRST EQUIPMENT
04337  M01S00426.ns21000 +++|          MX7    -9
04338  M01S00427.ns21000 +++|          BX7    -X7*X6
04339  M01S00428.ns21000 +++|          LX7    48
04340  M01S00429.ns21000 +++|          NZ     X4,DDS20    IF NOT FIRST ATTEMPT
04341  M01S00430.ns21000 +++|          BX7    X7+X3
04342  M01S00431.ns21000 +++|          SA7    A3
04343  M00S02590.resex   +++| DDS19    SX7    B0+         CLEAR STARTING POSITION
04344  M00S02591.resex   +++|          SB6    B6+2        ADVANCE POINTER
04345  M00S02592.resex   +++|          SA7    DDSA
04346  M00S02593.resex   +++|          EQ     DDS1        LOOP FOR ALL DEMANDED RESOURCES
04347  M00S02594.resex   +++|
04348  M00S02595.resex   +++| DDS20    BX5    X4-X7
04349  M00S02596.resex   +++|          NZ     X5,DDS19    IF NOT ORIGINAL EQUIPMENT
04350  M00S02597.resex   +++|
04351  M00S02598.resex   +++|
04352  M00S02599.resex   +++|*         ALGORITHM MAY HAVE SELECTED A FIRST EQUIPMENT THAT CAUSES
04353  M00S02600.resex   +++|*         UNSATISFACTION WHEN IN FACT SATISFACTION IS POSSIBLE.
04354  M00S02601.resex   +++|*
04355  M00S02602.resex   +++|*         BACKUP AND TRY ANOTHER CHAIN.
04356  M00S02603.resex   +++|
04357  M00S02604.resex   +++|
04358  M00S02605.resex   +++| DDS21    SB4    RDT
04359  M00S02606.resex   +++|          SA2    B6          READ CURRENT DEMANDED RESOURCE

Seq #  *Modification Id* Act 
----------------------------+
04360  M01S02607.ns21000 ---|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
04361  M01S00432.ns21000 +++|          MX0    -9
04362  M00S02608.resex   +++|          SB6    B6-2
04363  M00S02609.resex   +++|          LT     B6,B4,DDS24 IF FIRST RESOURCE (NO BACKUP POSSIBLE)
04364  M00S02610.resex   +++|          SA1    B6          CHECK IF SAME EQUIPMENT
04365  M00S02611.resex   +++|          BX5    X2-X1
04366  M00S02612.resex   +++|          AX5    48

Seq #  *Modification Id* Act 
----------------------------+
04367  M01S02613.ns21000 ---|          SA1    B6+B1       READ EQUIPMENTS
04368  M00S02614.resex   +++|          NZ     X5,DDS24    IF PREVIOUS RESOURCE NOT SAME TYPE

Seq #  *Modification Id* Act 
----------------------------+
04369  M01S02615.ns21000 ---|          LX1    6
04370  M01S02616.ns21000 ---|          BX7    -X0*X1      FIRST EQUIPMENT
04371  M01S02617.ns21000 ---| DDS22    BX6    -X0*X1      EQUIPMENT
04372  M01S02618.ns21000 ---|          ZR     X6,DDS23    IF END OF EQUIPMENTS
04373  M01S02619.ns21000 ---|          MX4    -1
04374  M01S02620.ns21000 ---|          SA2    X6+RET      READ RESOURCE EQUIPMENT TABLE ENTRY
04375  M01S02621.ns21000 ---|          LX1    6

Seq #  *Modification Id* Act 
----------------------------+
04376  M01S00433.ns21000 +++|          MX4    59
04377  M01S00434.ns21000 +++|          MX3    24
04378  M01S00435.ns21000 +++|          BX6    X3*X1       CLEAR EQUIPMENTS
04379  M01S00436.ns21000 +++|          SA6    A1
04380  M01S00437.ns21000 +++|          SB4    4
04381  M01S00438.ns21000 +++|          LX1    -27
04382  M01S00439.ns21000 +++|          BX7    -X0*X1      FIRST EQUIPMENT INDEX
04383  M01S00440.ns21000 +++|          SA7    DDSA        SET STARTING POSITION
04384  M01S00441.ns21000 +++| DDS22    BX6    -X0*X1      EQUIPMENT INDEX
04385  M01S00442.ns21000 +++|          ZR     X6,DDS1     IF END OF EQUIPMENTS
04386  M01S00443.ns21000 +++|          SB4    B4-B1
04387  M01S00444.ns21000 +++|          SA2    RET+X6      GET RESOURCE EQUIPMENT TABLE ENTRY
04388  M01S00445.ns21000 +++|          LX1    9
04389  M00S02622.resex   +++|          BX6    X4*X2       CLEAR LOGICALLY ASSIGNED BIT
04390  M00S02623.resex   +++|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
04391  M01S00446.ns21000 +++|          NZ     B4,DDS22    IF MORE ENTRIES IN FIRST WORD
04392  M01S00447.ns21000 +++|          SA1    A1+B1
04393  M01S00448.ns21000 +++|          BX6    X3*X1       CLEAR EQUIPMENTS
04394  M01S00449.ns21000 +++|          BX1    -X3*X1
04395  M01S00450.ns21000 +++|          SA6    A1
04396  M01S00451.ns21000 +++|          LX1    -27
04397  M00S02624.resex   +++|          EQ     DDS22       LOOP FOR ALL CHAINED EQUIPMENTS
04398  M00S02625.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
04399  M01S02626.ns21000 ---| DDS23    SA6    A1+         CLEAR EQUIPMENT WORD
04400  M01S02627.ns21000 ---|          SA7    DDSA        SET STARTING POSITION
04401  M01S02628.ns21000 ---|          EQ     DDS1        RETRY
04402  M01S02629.ns21000 ---|

Seq #  *Modification Id* Act 
----------------------------+
04403  M01S02630.ns2529a ---| DDS24    SX2    B1          SET ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
04404  M02S00004.274l797 ---| DDS24    MX0    12
04405  M02S00005.274l797 ---|          BX2    X0*X2       UNSATISFIABLE RESOURCE TYPE

Seq #  *Modification Id* Act 
----------------------------+
04406  M01S00446.274l797 +++| DDS24    SX2    B1          SET ERROR STATUS
04407  M00S02631.resex   +++|          EQ     DDSX        RETURN
04408  M00S02632.resex   +++|
04409  M00S02633.resex   +++| DDS25    SB2    /PER/REV    * RESOURCE ENVIRONMENT ERROR.*
04410  M00S02634.resex   +++|          EQ     PER         PROCESS ERROR
04411  M00S02635.resex   +++|
04412  M00S02636.resex   +++|
04413  M00S02637.resex   +++| DDSA     CON    0           STARTING POSITION
04414  M00S02638.resex   +++| DDSB     CON    0           LDAM CONTROL
04415  M00S02639.resex   +++| DLY      SPACE  4,10
04416  M00S02640.resex   +++|**        DLY - DELAY.
04417  M00S02641.resex   +++|*
04418  M00S02642.resex   +++|*         DLY DELAYS 2 SECONDS FOR MAGNET TO FINISH ACTIVE
04419  M00S02643.resex   +++|*         OPERATIONS BEFORE CONTINUING RESEX PROCESSING.
04420  M00S02644.resex   +++|*
04421  M00S02645.resex   +++|*         USES   A - 1, 2.
04422  M00S02646.resex   +++|*                X - 1, 2.
04423  M00S02647.resex   +++|*
04424  M00S02648.resex   +++|*         MACROS RECALL, RTIME.
04425  M00S02649.resex   +++|
04426  M00S02650.resex   +++|
04427  M00S02651.resex   +++| DLY      SUBR               ENTRY/EXIT
04428  M00S02652.resex   +++|          RTIME  DLYB        GET START TIME
04429  M00S02653.resex   +++| DLY1     RECALL
04430  M00S02654.resex   +++|          RTIME  DLYB+1      GET CURRENT TIME
04431  M00S02655.resex   +++|          SA1    DLYB        CHECK FOR DELAY COMPLETE
04432  M00S02656.resex   +++|          SA2    A1+B1
04433  M00S02657.resex   +++|          IX2    X2-X1       CALCULATE ELAPSED TIME IN MILLISECONDS
04434  M00S02658.resex   +++|          SX2    X2-2000
04435  M00S02659.resex   +++|          NG     X2,DLY1     IF NOT SUFFICIENT DELAY
04436  M00S02660.resex   +++|          JP     DLYX        RETURN
04437  M00S02661.resex   +++|
04438  M00S02662.resex   +++|
04439  M00S02663.resex   +++| DLYB     CON    0,0         TIME TEMPORARIES
04440  M00S02664.resex   +++| IAS      SPACE  4,15
04441  M00S02665.resex   +++|**        IAS - INITIALIZE ASSIGNMENTS.
04442  M00S02666.resex   +++|*
04443  M00S02667.resex   +++|*         ENTRY  (X3) = 0, IF ALL PHYSICALLY ASSIGNED EQUIPMENTS TO
04444  M00S02668.resex   +++|*                     BE LOGICALLY ASSIGNED.
04445  M00S02669.resex   +++|*                (X3) = JOB EJT ORDINAL, IF PHYSICALLY ASSIGNED.
04446  M00S02670.resex   +++|*                     EQUIPMENTS FOR THIS JOB TO BE LOGICALLY ASSIGNED.
04447  M00S02671.resex   +++|*
04448  M00S02672.resex   +++|*         EXIT   LOGICALLY ASSIGNED BITS SET FOR PHYSICALLY ASSIGNED
04449  M00S02673.resex   +++|*                EQUIPMENTS.
04450  M00S02674.resex   +++|*
04451  M00S02675.resex   +++|*         USES   A - 2, 5, 7.

Seq #  *Modification Id* Act 
----------------------------+
04452  M01S02676.ns21000 ---|*                B - 2, 3.

Seq #  *Modification Id* Act 
----------------------------+
04453  M01S00452.ns21000 +++|*                B - 2, 3, 5.
04454  M00S02677.resex   +++|*                X - 0, 2, 4, 5, 7.
04455  M00S02678.resex   +++|*
04456  M00S02679.resex   +++|*         MACROS CLEAR.
04457  M00S02680.resex   +++|
04458  M00S02681.resex   +++|
04459  M00S02682.resex   +++| IAS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
04460  M01S02683.ns21000 ---|          CLEAR  RET,ESTL,-1 CLEAR LOGICALLY ASSIGNED BITS
04461  M01S02684.ns21000 ---|          SB3    EVSB        SET LOGICALLY ASSIGNED EQUIPMENTS
04462  M01S02685.ns21000 ---|          SB2    B1+B1
04463  M01S02686.ns21000 ---|          SX4    B1
04464  M01S02687.ns21000 ---| IAS1     SA2    B3+B1
04465  M01S02688.ns21000 ---|          SB3    B3+B2
04466  M01S02689.ns21000 ---|          ZR     X2,IASX     IF END OF EVSB
04467  M01S02690.ns21000 ---|          LX2    6
04468  M01S02691.ns21000 ---|          PL     X2,IAS1     IF NOT PHYSICALLY ASSIGNED
04469  M01S02692.ns21000 ---|          MX5    12          GET USER COUNT
04470  M01S02693.ns21000 ---|          LX5    -6
04471  M01S02694.ns21000 ---|          BX5    X5*X2

Seq #  *Modification Id* Act 
----------------------------+
04472  M01S00453.ns21000 +++|          CLEAR  RET,RETL,-1 CLEAR LOGICALLY ASSIGNED BITS
04473  M01S00454.ns21000 +++|          SA2    RETE        GET RET/EVSB ENDING INDEX
04474  M01S00455.ns21000 +++|          SB2    RET+X2
04475  M01S00456.ns21000 +++|          LX2    1
04476  M01S00457.ns21000 +++|          SX4    B1
04477  M01S00458.ns21000 +++|          SB3    EVSB
04478  M01S00459.ns21000 +++|          MX0    -12
04479  M01S00460.ns21000 +++|          SB5    B3+X2
04480  M01S00461.ns21000 +++| IAS1     SA2    B3+B1
04481  M01S00462.ns21000 +++|          EQ     B3,B5,IASX  IF END OF EVSB
04482  M01S00463.ns21000 +++|          LX2    59-35
04483  M01S00464.ns21000 +++|          SB3    B3+2
04484  M01S00465.ns21000 +++|          ZR     X2,IAS1     IF EMPTY ENTRY
04485  M01S00466.ns21000 +++|          PL     X2,IAS1     IF NOT PHYSICALLY ASSIGNED
04486  M01S00467.ns21000 +++|          BX5    -X0*X2      GET USER COUNT
04487  M01S00468.ns21000 +++|          LX2    12
04488  M00S02695.resex   +++|          ZR     X5,IAS1     IF NO USERS
04489  M00S02696.resex   +++|          ZR     X3,IAS2     IF JOB EJT ORDINAL MATCH NOT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
04490  M01S02697.ns21000 ---|          MX0    -12
04491  M00S02698.resex   +++|          SA5    A2
04492  M00S02699.resex   +++|          BX5    X5-X3
04493  M00S02700.resex   +++|          BX5    -X0*X5
04494  M00S02701.resex   +++|          NZ     X5,IAS1     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
04495  M01S02702.ns21000 ---| IAS2     MX0    -6          GET NEXT EQUIPMENT
04496  M01S02703.ns21000 ---|          BX5    -X0*X2
04497  M01S02704.ns21000 ---|          SA2    X5+RET
04498  M01S02705.ns21000 ---|          BX7    X4+X2       MARK AS ASSIGNED
04499  M01S02706.ns21000 ---|          ZR     X5,IAS1     IF NO EQUIPMENT
04500  M01S02707.ns21000 ---|          SA7    A2
04501  M01S02708.ns21000 ---|          LX2    -3
04502  M01S02709.ns21000 ---|          NG     X2,IAS1     IF END OF CHAIN
04503  M01S02710.ns21000 ---|          LX2    -21

Seq #  *Modification Id* Act 
----------------------------+
04504  M01S00469.ns21000 +++| IAS2     LX2    -24
04505  M01S00470.ns21000 +++|          BX5    -X0*X2      NEXT EQUIPMENT
04506  M01S00471.ns21000 +++|          SA2    RET
04507  M01S00472.ns21000 +++| IAS3     SA2    A2+B1
04508  M01S00473.ns21000 +++|          SX7    A2-B2
04509  M01S00474.ns21000 +++|          ZR     X7,IAS1     IF EQUIPMENT NOT FOUND
04510  M01S00475.ns21000 +++|          LX2    -12
04511  M01S00476.ns21000 +++|          BX7    -X0*X2
04512  M01S00477.ns21000 +++|          BX7    X7-X5
04513  M01S00478.ns21000 +++|          NZ     X7,IAS3     IF NOT CORRECT ENTRY
04514  M01S00479.ns21000 +++|          LX2    12
04515  M01S00480.ns21000 +++|          BX7    X4+X2       MARK AS ASSIGNED
04516  M01S00481.ns21000 +++|          SA7    A2
04517  M01S00482.ns21000 +++|          LX7    59-2
04518  M01S00483.ns21000 +++|          NG     X7,IAS1     IF END OF CHAIN
04519  M00S02711.resex   +++|          EQ     IAS2        CONTINUE INITIALIZATION

Seq #  *Modification Id* Act 
----------------------------+
04520  M01S02712.282l826 ---| SDT      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
04521  M01S00082.282l826 +++| SDT      SPACE  4,10
04522  M00S02713.resex   +++|**        SDT - SWITCH 9-TRACK DRIVE TYPE.
04523  M00S02714.resex   +++|*
04524  M00S02715.resex   +++|*         ENTRY  (X4) = PREVIOUS 9-TRACK DRIVE TYPE SELECTION IN
04525  M00S02716.resex   +++|*                     BITS 0 - 5.
04526  M00S02717.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
04527  M01S02718.282l826 ---|*         EXIT   (NTRD) = DISPLAY CODE FOR NEW 9-TRACK DENSITY.
04528  M01S02719.282l826 ---|*                (RESB+RQPD) = UPDATED REQUEST PREVIEW DATA.
04529  M01S02720.282l826 ---|*                (X4) = NEW 9-TRACK DENSITY RESOURCE INDEX.

Seq #  *Modification Id* Act 
----------------------------+
04530  M01S00083.282l826 +++|*         EXIT   (X4) = NEW 9-TRACK DENSITY RESOURCE INDEX.
04531  M00S02721.resex   +++|*                (X6) = DISPLAY CODE FOR NEW 9-TRACK DENSITY.
04532  M00S02722.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
04533  M01S02723.282l826 ---|*         USES   A - 1, 6, 7.
04534  M01S02724.282l826 ---|*                X - 0, 1, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04535  M01S00084.282l826 +++|*         USES   X - 0, 1, 4, 6.
04536  M00S02725.resex   +++|
04537  M00S02726.resex   +++|
04538  M00S02727.resex   +++| SDT      SUBR               ENTRY/EXIT
04539  M00S02728.resex   +++|          MX0    -6
04540  M00S02729.resex   +++|          BX1    -X0*X4      GET PREVIOUS DRIVE TYPE
04541  M00S02730.resex   +++|          SX6    2RGE
04542  M00S02731.resex   +++|          SX1    X1-RHDP

Seq #  *Modification Id* Act 
----------------------------+
04543  M01S02732.ns22000 ---|          SX4    RGEP+100B

Seq #  *Modification Id* Act 
----------------------------+
04544  M01S00231.ns22000 +++|          SX4    RGEP

Proceed to Part 4