User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:resex.004

Deck RESEX Part 004

65 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00067 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03528  M02S00067.274l797 ---|          SA6    DEIB        SET MESSAGE ISSUED FLAG
Line S00068 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03529  M02S00068.274l797 ---| DEI2     BX7    X7-X7
Line S00069 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03530  M02S00069.274l797 ---|          SA7    RESB+RQPT   SET TIMER
Line S00070 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03531  M02S00070.274l797 ---|          SX5    B1
Line S00071 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03532  M02S00071.274l797 ---|          RJ     UDF         UPDATE DEMAND FILE
Line S00072 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03533  M02S00072.274l797 ---|          INTRC  ON          REENABLE INTERUPT
Line S00073 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03534  M02S00073.274l797 ---|          INTRP  PIT         PROCCESS INTERUPT
Line S00074 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03535  M02S00074.274l797 ---|          RJ     BPD         BUILD PREVIEW DISPLAY
Line S00075 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03536  M02S00075.274l797 ---|          SX5    TEDD        SET ROLLOUT EVENT AND DESCRIPTION
Line S00076 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03537  M02S00076.274l797 ---|          SA1    TEDD+1      GET ROLLOUT MESSAGE ADDRESS
Line S00077 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03538  M02S00077.274l797 ---|          RJ     PRO         PROCESS TIMED EVENT ROLLOUT
Line S00078 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03539  M02S00078.274l797 ---| DEI3     RJ     BRE         BUILD RESOURCE ENVIRONMENT
Line S00079 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03540  M02S00079.274l797 ---|          PL     X0,DEI4     IF SUBSYSTEM NOT MISSING
Line S00080 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03541  M02S00080.274l797 ---|          RJ     PMM         PROCESS *MAGNET* MISSING
Line S00081 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03542  M02S00081.274l797 ---|          EQ     DEI3        RETRY BUILDING ENVIROMNET
Line S00082 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03543  M02S00082.274l797 ---|
Line S00083 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03544  M02S00083.274l797 ---| DEI4     RJ     RDF         READ DEMAND FILE
Line S00002 Modification History
M01 (Added by) ns2529c
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03545  M02S00002.274l797 ---|          SA1    /CPA/RFCW
Line S00003 Modification History
M01 (Added by) ns2529c
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03546  M02S00003.274l797 ---|          SX1    X1+
Line S00004 Modification History
M01 (Added by) ns2529c
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03547  M02S00004.274l797 ---|          ZR     X1,DEI1     IF NO DEMAND FILE ENTRY
Line S00005 Modification History
M01 (Added by) ns2529c
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03548  M02S00005.274l797 ---|          SX4    RESB        DEMAND FILE ENTRY ADDRESS
Line S00006 Modification History
M01 (Added by) ns2529c
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03549  M02S00006.274l797 ---|          SA3    JEEO        GET JOB EJT ORDINAL
Line S00007 Modification History
M01 (Added by) ns2529c
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03550  M02S00007.274l797 ---|          RJ     CAU         COUNT ASSIGNED UNITS
Line S00084 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03551  M02S00084.274l797 ---|          EQ     DEI1        RETRY DEMAND SATISFACTION
Line S00085 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03552  M02S00085.274l797 ---|
Line S00086 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03553  M02S00086.274l797 ---|*         CLEAR *DOWN* EQUIPMENT FLAGS AND CLEAN UP *RESOURC*
Line S00087 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03554  M02S00087.274l797 ---|*         REQUEST MESSAGE, IF ISSUED.
Line S00088 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03555  M02S00088.274l797 ---|
Line S00089 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03556  M02S00089.274l797 ---| DEI5     BX3    X3-X3
Line S00090 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03557  M02S00090.274l797 ---|          RJ     IAS         INITIALIZE ASSIGNMENTS
Line S00091 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03558  M02S00091.274l797 ---|          SA2    DEIB
Line S00092 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03559  M02S00092.274l797 ---|          ZR     X2,DEIX     IF MESSAGE NOT ISSUED
Line S00093 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03560  M02S00093.274l797 ---|          BX7    X7-X7
Line S00094 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03561  M02S00094.274l797 ---|          SA7    RESB+RQPD   CLEAR *E,P* MESSAGE
Line S00095 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03562  M02S00095.274l797 ---|          BX5    X5-X5
Line S00096 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03563  M02S00096.274l797 ---|          RJ     UDF         UPDATE DEMAND FILE
Line S00097 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03564  M02S00097.274l797 ---|          INTRC  ON          REENABLE INTERUPT
Line S00098 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03565  M02S00098.274l797 ---|          INTRP  PIT         PROCCESS INTERUPT
Line S00099 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03566  M02S00099.274l797 ---|          RJ     BPD         BUILD PREVIEW DISPLAY
Line S00100 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03567  M02S00100.274l797 ---|
03568  M01S02140.resex   +++| DEI      SUBR               ENTRY/EXIT
Line S00101 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03569  M02S00101.274l797 ---|          SA7    DEIA        SAVE *RESOURC* COMMAND FLAG
03570  M01S02141.resex   +++|          SB2    RESB        BUILD RDT FROM TOTAL DEMANDS
03571  M01S02142.resex   +++|          SB5    B1+
Line S02143 Modification History
M01 (Added by) resex
M02 (Updated by) ns2529
Seq #  *Modification Id* Act 
----------------------------+
03572  M02S02143.ns2529  ---|          RJ     BRT
03573  M01S00102.ns2529  +++|          RJ     BRT         BUILD RESOURCE DEMAND TABLE
03574  M01S02144.resex   +++|          RJ     DDS         DETERMINE DEMAND SATISFACTION
Line S02145 Modification History
M01 (Added by) resex
M02 (Updated by) ns2529
Seq #  *Modification Id* Act 
----------------------------+
03575  M02S02145.ns2529  ---|          ZR     X2,DEIX     IF RESOURCE DEMAND SATISFIABLE
Line S00103 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03576  M02S00103.274l797 ---|          ZR     X2,DEI1     IF RESOURCE DEMAND SATISFIABLE
03577  M01S00406.274l797 +++|          ZR     X2,DEIX     IF RESOURCE DEMAND SATISFIABLE
03578  M01S02146.resex   +++|          SB2    /PER/IRS    * INSUFFICIENT RESOURCES ON SYSTEM.*
03579  M01S02147.resex   +++|          EQ     PER         PROCESS ERROR
Line S02148 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03580  M02S02148.274l797 ---|
Line S00104 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03581  M02S00104.274l797 ---|
Line S00105 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03582  M02S00105.274l797 ---| DEIA     CON    0           *RESOURC* COMMAND FLAG
Line S00106 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03583  M02S00106.274l797 ---| DEIB     CON    0           MESSAGE ISSUED FLAG
Line S00107 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03584  M02S00107.274l797 ---| DEIC     VFD    42/7LRESOURC,1/1,17/0
Line S00108 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03585  M02S00108.274l797 ---| FDE      SPACE  4,10
Line S00109 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03586  M03S00109.274l797 ---|**        FDE - FLAG *DOWN* EQUIPMENT
Line S00001 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03587  M02S00001.274l797 ---|**        FDE - FLAG *DOWN* TAPE EQUIPMENT.
Line S00110 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03588  M02S00110.274l797 ---|*
Line S00111 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03589  M02S00111.274l797 ---|*         FLAG DEVICE AS ASSIGNED IF IT IS *DOWN*.
Line S00112 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03590  M02S00112.274l797 ---|*
Line S00113 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03591  M02S00113.274l797 ---|*         USES   X - 1, 2, 3, 6, 7.
Line S00114 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03592  M03S00114.274l797 ---|*                A - 2, 7.
Line S00115 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03593  M03S00115.274l797 ---|*                B - 4.
Line S00002 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03594  M02S00002.274l797 ---|*                A - 1, 2, 7.
Line S00003 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03595  M02S00003.274l797 ---|*                B - 4, 5.
Line S00116 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03596  M02S00116.274l797 ---|*
Line S00117 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03597  M02S00117.274l797 ---|*         CALLS  IAS.
Line S00118 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03598  M02S00118.274l797 ---|
Line S00119 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03599  M02S00119.274l797 ---|
Line S00120 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03600  M02S00120.274l797 ---| FDE      SUBR               ENTRY/EXIT
Line S00121 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03601  M03S00121.274l797 ---|          SX1    B1+
Line S00122 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03602  M03S00122.274l797 ---|          SB4    RETE
Line S00123 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03603  M02S00123.274l797 ---|          BX3    X3-X3
Line S00124 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03604  M02S00124.274l797 ---|          RJ     IAS         INITIALIZE ASSIGNMENTS
Line S00004 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03605  M02S00004.274l797 ---|          SA2    RETE
Line S00005 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03606  M02S00005.274l797 ---|          SA1    RETI
Line S00006 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03607  M02S00006.274l797 ---|          SB4    X2          SET END OF *RET/EVSB*
Line S00007 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03608  M02S00007.274l797 ---|          SB5    X1          SET START OF *RET/EVSB* TAPE ENTRIES
Line S00008 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03609  M02S00008.274l797 ---|          SX1    B1
Line S00125 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03610  M02S00125.274l797 ---|          SX3    B1+B1
Line S00126 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03611  M03S00126.274l797 ---| FDE1     SA2    RET+B4      GET RESOURCE EQUIPMENT TABLE ENTRY
Line S00127 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03612  M03S00127.274l797 ---|          SB4    B4-B1
Line S00009 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03613  M02S00009.274l797 ---| FDE1     SB4    B4-B1       DECREMENT *RET/EVSB* INDEX
Line S00010 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03614  M02S00010.274l797 ---|          SA2    RET+B4      GET RESOURCE EQUIPMENT TABLE ENTRY
Line S00128 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03615  M02S00128.274l797 ---|          BX6    X3*X2       ISOLATE *OFF*/*DOWN* FLAGS
Line S00129 Modification History
M01 (Added by) ns2529
M02 (Updated by) ns2529b
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03616  M03S00129.274l797 ---|          NG     B4,FDEX     IF FINISHED WITH RESOURCE EQUIPMENT TABLE
Line S00011 Modification History
M01 (Added by) ns2529b
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03617  M02S00011.274l797 ---|          LT     B4,B5,FDEX  IF END OF TAPE ENTRIES
Line S00130 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03618  M02S00130.274l797 ---|          ZR     X6,FDE1     IF UNIT NOT *OFF*/*DOWN*
Line S00131 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03619  M02S00131.274l797 ---|          BX7    X2+X1       SET ASSIGNED FLAG
Line S00132 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03620  M02S00132.274l797 ---|          SA7    A2
Line S00133 Modification History
M01 (Added by) ns2529
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03621  M02S00133.274l797 ---|          EQ     FDE1        PROCESS NEXT UNIT
03622  M01S02149.resex   +++| OCA      SPACE  4,20
03623  M01S02150.resex   +++|**        OCA - OVERCOMMITMENT ALGORITHM.
03624  M01S02151.resex   +++|*
03625  M01S02152.resex   +++|*         ENTRY  ENVIRONMENT BUILT.
03626  M01S02153.resex   +++|*                USER RESOURCE REQUEST BLOCK BUILT.
03627  M01S02154.resex   +++|*
03628  M01S02155.resex   +++|*         EXIT   (X5) = 0 IF OVERCOMMITMENT.
03629  M01S02156.resex   +++|*
03630  M01S02157.resex   +++|*         ERROR  TO *PER*, IF SCRATCH FILE ERROR OR NEGATIVE SHARE
03631  M01S02158.resex   +++|*                COUNT.
03632  M01S02159.resex   +++|*                TO *PNE*, IF ASSIGNS EXCEED DEMANDS OR SHARE TABLE
03633  M01S02160.resex   +++|*                     ERROR.
03634  M01S02161.resex   +++|*
03635  M01S02162.resex   +++|*         USES   A - 1, 2, 3, 6, 7.
Line S02163 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03636  M02S02163.ns21000 ---|*                B - 2, 3, 5, 6.
03637  M01S00310.ns21000 +++|*                B - 2, 3, 5, 6, 7.
03638  M01S02164.resex   +++|*                X - ALL.
03639  M01S02165.resex   +++|*
03640  M01S02166.resex   +++|*         CALLS  BRT, CRC, DDS, IAS.
03641  M01S02167.resex   +++|*
03642  M01S02168.resex   +++|*         MACROS READ, READW, REWIND, WRITER, WRITEW.
03643  M01S02169.resex   +++|
03644  M01S02170.resex   +++|
03645  M01S02171.resex   +++| OCA      SUBR               ENTRY/EXIT
03646  M01S02172.resex   +++|          WRITEW S1,RESB,RDEL ENTER REQUESTOR ON SCRATCH FILE
03647  M01S02173.resex   +++|          WRITER S1,R
03648  M01S02174.resex   +++|          SA1    NS1         INCREMENT JOB COUNT
03649  M01S02175.resex   +++|          SX6    X1+B1
03650  M01S02176.resex   +++|          SA6    A1
03651  M01S02177.resex   +++| OCA1     SX7    B0+         CLEAR JOBS WRITTEN ON SCRATCH 2 COUNTER
03652  M01S02178.resex   +++|          SA7    NS2
03653  M01S02179.resex   +++|          REWIND S2
03654  M01S02180.resex   +++|          REWIND S1
03655  M01S02181.resex   +++|          READ   X2,R
03656  M01S02182.resex   +++|
03657  M01S02183.resex   +++| OCA2     READW  S1,BUF,RDEL READ SCRATCH 1 ENTRY
03658  M01S02184.resex   +++|          NZ     X1,OCA9     IF EOR
03659  M01S02185.resex   +++|          SA3    BUF+RJID    GET JOB EJT ORDINAL
Line S02186 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03660  M02S02186.274l797 ---|          SB2    /PER/SFE    * RESOURCE SCRATCH FILE ERROR.*
03661  M01S00407.274l797 +++|          SB2    /PER/RSF    * RESOURCE SCRATCH FILE ERROR.*
03662  M01S02187.resex   +++|          ZR     X3,PER      IF NO JOB (ERROR)
03663  M01S02188.resex   +++|          BX3    X3-X3
03664  M01S02189.resex   +++|          RJ     IAS         INITIALIZE ASSIGNMENTS
03665  M01S02190.resex   +++|          SB2    BUF
03666  M01S02191.resex   +++|          RJ     CRC         CHECK REQUEST COMPLETE
03667  M01S02192.resex   +++|          ZR     X5,OCA3     IF TOTAL ASSIGNED = TOTAL DEMAND
03668  M01S02193.resex   +++|          SB5    B0+         BUILD RDT FROM REMAINING DEMANDS
03669  M01S02194.resex   +++|          RJ     BRT
03670  M01S02195.resex   +++|          SB2    /PER/AXD    * JSQN ASSIGNS EXCEED DEMANDS.*
03671  M01S02196.resex   +++|          NG     X5,OCA8     IF ASSIGNS EXCEED DEMANDS (ERROR)
03672  M01S02197.resex   +++|          RJ     DDS         DETERMINE DEMAND SATISFACTION
03673  M01S02198.resex   +++|          ZR     X2,OCA3     IF JOB COMPLETES
03674  M01S02199.resex   +++|          WRITEW S2,BUF,RDEL COPY ENTRY TO SCRATCH 2
03675  M01S02200.resex   +++|          SA1    NS2         ADVANCE NUMBER OF JOBS
03676  M01S02201.resex   +++|          SX7    X1+B1
03677  M01S02202.resex   +++|          SA7    A1
03678  M01S02203.resex   +++|          EQ     OCA2
03679  M01S02204.resex   +++|
03680  M01S02205.resex   +++|*         ADJUST ENVIRONMENT ON COMPLETED JOB.
03681  M01S00311.ns21000 +++|*         RELEASE TAPES ASSIGNED TO THIS JOB.
03682  M01S02206.resex   +++|
Line S02207 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03683  M02S02207.ns21000 ---| OCA3     SB3    EVSB
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  M01S02208.resex   +++|          SA3    BUF+RJID    GET JOB EJT ORDINAL
03692  M01S02209.resex   +++|          MX4    -6
Line S02210 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03693  M02S02210.ns21000 ---|          SB5    RDEL-1
Line S02211 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03694  M02S02211.ns21000 ---| OCA4     SA1    B3
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  M01S02212.resex   +++|          MX0    -12
03700  M01S02213.resex   +++|          SB3    B3+2
Line S02214 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03701  M02S02214.ns21000 ---|          ZR     X1,OCA5     IF END OF ENTRIES
03702  M01S00323.ns21000 +++|          ZR     X1,OCA4     IF EMPTY ENTRY
03703  M01S02215.resex   +++|          SA2    A1+B1
03704  M01S02216.resex   +++|          BX5    X3-X2
03705  M01S02217.resex   +++|          BX5    -X0*X5
03706  M01S02218.resex   +++|          NZ     X5,OCA4     IF NOT ASSIGNED TO THIS JOB
03707  M01S02219.resex   +++|          BX1    -X4*X1      GET RESOURCE INDEX
03708  M01S02220.resex   +++|          MX0    1
03709  M01S02221.resex   +++|          SX1    X1-RRPP
Line S02222 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03710  M02S02222.ns21000 ---|          PL     X1,OCA4     IF NOT MAGNETIC TAPE
Line S02223 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03711  M02S02223.ns21000 ---|          LX0    -6
03712  M01S00324.ns21000 +++|          PL     X1,PER      IF NOT MAGNETIC TAPE
03713  M01S00325.ns21000 +++|          LX0    35-59
03714  M01S02224.resex   +++|          BX6    -X0*X2      CLEAR PHYSICALLY ASSIGNED BIT
03715  M01S02225.resex   +++|          SA6    A2
03716  M01S02226.resex   +++|          EQ     OCA4        CONTINUE SCAN OF ENVIRONMENT
03717  M01S02227.resex   +++|
03718  M01S02228.resex   +++|*         CHECK REMOVABLE PACK SHARING.
03719  M01S02229.resex   +++|
03720  M01S02230.resex   +++| OCA5     SA1    B5+BUF
03721  M01S02231.resex   +++|          SX5    B5-RRPS
03722  M01S02232.resex   +++|          NG     X5,OCA2     IF SHARE TABLE COMPLETE
03723  M01S02233.resex   +++|          SB5    B5-B1
03724  M01S02234.resex   +++|          MX0    -12
03725  M01S02235.resex   +++|          ZR     X1,OCA5     IF NO SHARED ENTRY
03726  M01S02236.resex   +++|          SB6    EVSB
03727  M01S02237.resex   +++|          SB2    B1+B1
03728  M01S02238.resex   +++|          SB3    -B1
03729  M01S02239.resex   +++|          MX7    1
Line S02240 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03730  M02S02240.ns21000 ---|          LX7    -6
Line S02241 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03731  M02S02241.ns21000 ---|
Line S02242 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03732  M02S02242.ns21000 ---|*         SEARCH ENVIRONMENT VSN BUFFER.
Line S02243 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03733  M02S02243.ns21000 ---|
Line S02244 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03734  M02S02244.ns21000 ---| OCA6     SA3    B6
Line S02245 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03735  M02S02245.ns21000 ---|          SB6    B6+B2
Line S02246 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03736  M02S02246.ns21000 ---|          ZR     X3,OCA7     IF NO EVSB ENTRY (ERROR)
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  M01S02247.resex   +++|          BX5    X3-X1
03746  M01S02248.resex   +++|          AX5    18
03747  M01S02249.resex   +++|          NZ     X5,OCA6     IF NO MATCH
03748  M01S02250.resex   +++|          SA3    A3+B1       DECREMENT SHARE COUNT
03749  M01S02251.resex   +++|          LX3    24
03750  M01S02252.resex   +++|          BX5    -X0*X3
03751  M01S02253.resex   +++|          BX6    X0*X3
03752  M01S02254.resex   +++|          SX5    X5+B3
03753  M01S02255.resex   +++|          BX6    X5+X6
Line S02256 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03754  M02S02256.274l797 ---|          SB2    /PER/NSC    * RESOURCE NEGATIVE SHARE COUNT.*
03755  M01S00408.274l797 +++|          SB2    /PER/RNS    * RESOURCE NEGATIVE SHARE COUNT.*
03756  M01S02257.resex   +++|          NG     X5,PER      IF SHARE COUNT NEGATIVE
03757  M01S02258.resex   +++|          LX6    -24
03758  M01S02259.resex   +++|          SA6    A3
03759  M01S02260.resex   +++|          NZ     X5,OCA5     IF MORE SHARERS
03760  M01S02261.resex   +++|          BX6    -X7*X6      CLEAR PHYSICALLY ASSIGNED BIT
03761  M01S02262.resex   +++|          SA6    A6
03762  M01S02263.resex   +++|          EQ     OCA5        CONTINUE SCAN OF SHARE TABLE
03763  M01S02264.resex   +++|
03764  M01S02265.resex   +++| OCA7     SB2    /PER/STM    * JSQN SHARE TABLE MISMATCH.*
03765  M01S02266.resex   +++| OCA8     SA1    BUF+RJID    GET JOB EJT ORDINAL
03766  M01S02267.resex   +++|          EQ     PNE         PROCESS NAMED ERROR
03767  M01S02268.resex   +++|
03768  M01S02269.resex   +++|*         CLOSE SCRATCH 2 FILE.
03769  M01S02270.resex   +++|
03770  M01S02271.resex   +++| OCA9     SA1    NS1
03771  M01S02272.resex   +++|          SA2    A1+B1
03772  M01S02273.resex   +++|          IX5    X1-X2
03773  M01S02274.resex   +++|          ZR     X5,OCAX     IF NO JOBS COMPLETED ON THIS PASS
03774  M01S02275.resex   +++|          ZR     X2,OCAX     IF NO MORE JOBS
03775  M01S02276.resex   +++|
03776  M01S02277.resex   +++|*         SWAP SCRATCH 1 AND SCRATCH 2.
03777  M01S02278.resex   +++|
03778  M01S02279.resex   +++|          WRITER S2,R
03779  M01S02280.resex   +++|          REWIND S1,R
03780  M01S02281.resex   +++|          REWIND S2,R
03781  M01S02282.resex   +++|          SA2    X2
03782  M01S02283.resex   +++|          SA1    S1
03783  M01S02284.resex   +++|          BX6    X2
03784  M01S02285.resex   +++|          LX7    X1
03785  M01S02286.resex   +++|          SA6    A1
03786  M01S02287.resex   +++|          SA1    NS2
03787  M01S02288.resex   +++|          SA7    A2
03788  M01S02289.resex   +++|          BX7    X1
03789  M01S02290.resex   +++|          SA7    NS1
03790  M01S02291.resex   +++|          EQ     OCA1        REPEAT LOOP
03791  M01S02292.resex   +++|
03792  M01S02293.resex   +++|
03793  M01S02294.resex   +++| NS1      CON    0           NUMBER OF JOBS IN SCRATCH 1
03794  M01S02295.resex   +++| NS2      CON    0           NUMBER OF JOBS IN SCRATCH 2
03795  M01S02296.resex   +++|          TITLE  OVERCOMMITMENT UTILITY SUBROUTINES.
03796  M01S02297.resex   +++| CAU      SPACE  4,20
03797  M01S02298.resex   +++|**        CAU - COUNT ASSIGNED UNITS.
03798  M01S02299.resex   +++|*
03799  M01S02300.resex   +++|*         ENTRY  (X3) = 48/,12/ JOB EJT ORDINAL.
03800  M01S02301.resex   +++|*                (X4) = DEMAND ENTRY ADDRESS.
03801  M01S02302.resex   +++|*
03802  M01S02303.resex   +++|*         EXIT   ASSIGNED UNITS COUNTED FOR TAPES AND PACKS.
03803  M01S02304.resex   +++|*                (B3) = ASSIGNED COUNT.
03804  M01S02305.resex   +++|*                (X7) = TOTAL DEMAND COUNT.
03805  M01S02306.resex   +++|*
03806  M01S02307.resex   +++|*         ERROR  TO *PNE*, IF INDIVIDUAL RESOURCE ASSIGNED COUNT
03807  M01S02308.resex   +++|*                ERROR.
03808  M01S02309.resex   +++|*
03809  M01S02310.resex   +++|*         USES   A - 1, 2, 5, 6, 7.
Line S02311 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03810  M02S02311.ns21000 ---|*                B - 2, 3, 5, 6.
Line S00334 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03811  M02S00334.ns22000 ---|*                B - 2, 3, 5, 6, 7.
03812  M01S00147.ns22000 +++|*                B - 2, 3, 4, 5, 6, 7.
03813  M01S02312.resex   +++|*                X - 0, 1, 2, 3, 5, 6, 7.
03814  M01S02313.resex   +++|*
03815  M01S02314.resex   +++|*         CALLS  CRM, CTA.
03816  M01S02315.resex   +++|
03817  M01S02316.resex   +++|
03818  M01S02317.resex   +++| CAU9     SB5    -B1         COUNT TOTAL ASSIGNS AND DEMANDS
03819  M01S02318.resex   +++|          RJ     CTA
03820  M01S02319.resex   +++|
03821  M01S02320.resex   +++| CAU      SUBR               ENTRY/EXIT
03822  M01S02321.resex   +++|          SX6    B1
Line S02322 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03823  M02S02322.ns22000 ---|          SB2    RMTL-1
03824  M01S02323.resex   +++|          LX6    36          POSITION RESERVATION INCREMENT
03825  M01S02324.resex   +++|          SA2    X4+RVAL     CHECK FOR LOST TAPES
03826  M01S02325.resex   +++|          LX2    59-53
03827  M01S02326.resex   +++|          NG     X2,CAU4     IF TAPE ASSIGNMENT LOST
Line S02327 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03828  M02S02327.ns22000 ---|          SB3    X4+RMTP     SET TAPE STARTING POSITION
03829  M01S00148.ns22000 +++|          SB3    RMTP+RMTL   SET TAPE STARTING POSITION
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  M01S02328.resex   +++|
03837  M01S02329.resex   +++|*         CHECK MAGNETIC TAPES.
03838  M01S02330.resex   +++|
Line S02331 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03839  M02S02331.ns22000 ---| CAU1     SA2    B3+B2       READ RESOURCE DEMAND ENTRY
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  M01S02332.resex   +++|          MX0    -6
Line S02333 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03846  M02S02333.ns22000 ---|          LX2    18
Line S02334 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03847  M02S02334.ns22000 ---|          BX5    -X0*X2      ASSIGNED COUNT
03848  M01S00154.ns22000 +++|          AX2    B2
03849  M01S00155.ns22000 +++|          BX5    -X0*X2      ASSIGNED COUNT
03850  M01S02335.resex   +++|          ZR     X5,CAU3     IF NO ASSIGN COUNT
Line S02336 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03851  M02S02336.ns21000 ---|          SX2    A2+
Line S00341 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03852  M02S00341.ns22000 ---|          SX2    A2
Line S02337 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03853  M02S02337.ns22000 ---|          IX0    X2-X4
Line S02338 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03854  M02S02338.ns22000 ---|          SX0    X0+100B
03855  M01S00156.ns22000 +++|          SX0    A0+B4
03856  M01S02339.resex   +++|          SB5    X5
Line S02340 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03857  M02S02340.ns21000 ---|          SA5    EVSB-1      SET EVSB LOOP STARTING ADDRESS
03858  M01S00342.ns21000 +++|          SA5    B7-B1
03859  M01S02341.resex   +++| CAU2     SA1    A5+B1       READ EVSB ENTRIES
03860  M01S00343.ns21000 +++|          SX7    A1-B6
03861  M01S00344.ns21000 +++|          ZR     X7,CAU8     IF EVSB SCAN COMPLETE
03862  M01S02342.resex   +++|          SA5    A1+B1
Line S02343 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03863  M02S02343.ns21000 ---|          ZR     X1,CAU8     IF EVSB SCAN COMPLETE
03864  M01S00345.ns21000 +++|          ZR     X1,CAU2     IF EMPTY ENTRY
03865  M01S02344.resex   +++|          BX7    X6*X5
03866  M01S02345.resex   +++|          NZ     X7,CAU2     IF UNIT ALREADY RESERVED
03867  M01S02346.resex   +++|          BX7    X3-X5
03868  M01S02347.resex   +++|          MX2    -12
03869  M01S02348.resex   +++|          BX7    -X2*X7
03870  M01S02349.resex   +++|          SX5    X1
03871  M01S02350.resex   +++|          NZ     X7,CAU2     IF NO MATCH ON JOB ASSIGNMENT
03872  M01S02351.resex   +++|          SX2    RPEP        FORCE *GE* EQUIPMENT MATCH FOR *NT*
03873  M01S02352.resex   +++|          RJ     CRM         CHECK FOR MATCHING RESOURCES
03874  M01S02353.resex   +++|          NZ     X7,CAU2     IF WRONG RESOURCE TYPE
03875  M01S02354.resex   +++|          SA5    A5          INDICATE RESERVED
03876  M01S02355.resex   +++|          BX7    X5+X6
03877  M01S02356.resex   +++|          SA7    A5
03878  M01S02357.resex   +++|          SB5    B5-B1
03879  M01S02358.resex   +++|          NZ     B5,CAU2     IF MORE RESOURCES
Line S02359 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03880  M02S02359.ns22000 ---| CAU3     SB2    B2-B1
Line S02360 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03881  M02S02360.ns22000 ---|          PL     B2,CAU1     IF MORE TAPE RESOURCES
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  M01S02361.resex   +++|
03894  M01S02362.resex   +++|*         COUNT ASSIGNED PACKS.
03895  M01S02363.resex   +++|
Line S02364 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03896  M02S02364.ns21000 ---| CAU4     SB5    RDEL-RRPS-1
Line S00346 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03897  M02S00346.ns22000 ---|CAU4      SB5    RPSL        SHARE TABLE LENGTH
03898  M01S00168.ns22000 +++| CAU4     SB5    RPSL        SHARE TABLE LENGTH
03899  M01S02365.resex   +++|          SA1    RRPS-1+X4
03900  M01S02366.resex   +++|          EQ     CAU6        SCAN SHARE TABLE
03901  M01S02367.resex   +++|
03902  M01S02368.resex   +++| CAU5     BX7    X7-X7       CLEAR ENTRY
03903  M01S02369.resex   +++|          SA7    A1
03904  M01S02370.resex   +++| CAU6     ZR     B5,CAU9     IF END OF SHARE TABLE
03905  M01S02371.resex   +++|          SA1    A1+B1
03906  M01S02372.resex   +++|          SB5    B5-B1
03907  M01S02373.resex   +++|          ZR     X1,CAU6     IF NO ENTRY
03908  M01S02374.resex   +++|          SA2    EVSB-2
03909  M01S02375.resex   +++| CAU7     SA2    A2+2
Line S02376 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
03910  M02S02376.ns21000 ---|          ZR     X2,CAU5     IF END OF EVSB
03911  M01S02377.resex   +++|          BX7    X2-X1
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  M01S02378.resex   +++|          NZ     X7,CAU7     IF NO MATCH ON PACKNAME OR RESOURCE INDEX
03916  M01S02379.resex   +++|          SA5    A2+B1
03917  M01S02380.resex   +++|          IX7    X5+X6       COUNT AS SHARED
03918  M01S02381.resex   +++|          SA7    A5
03919  M01S02382.resex   +++|          EQ     CAU6        CONTINUE SCAN OF SHARE TABLE
03920  M01S02383.resex   +++|
03921  M01S02384.resex   +++| CAU8     SB2    /PER/MAR    * JSQN MISSING RESOURCE.*
03922  M01S02385.resex   +++|          SA1    X4+RJID     GET JOB EJT ORDINAL
03923  M01S02386.resex   +++|          EQ     PNE         PROCESS NAMED ERROR
Line S00169 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03924  M02S00169.282l826 ---| CUT      SPACE  4,20
Line S00170 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03925  M02S00170.282l826 ---|**        CUT - CHECK UNLABELED TAPES.
Line S00171 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03926  M02S00171.282l826 ---|*
Line S00002 Modification History
M01 (Added by) resex26
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03927  M03S00002.282l826 ---|*         ALLOW RING-IN ACCESS TO AN UNLABELED TAPE IF ANY OF THE
Line S00003 Modification History
M01 (Added by) resex26
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03928  M03S00003.282l826 ---|*         FOLLOWING ARE TRUE -
Line S00409 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03929  M02S00409.282l826 ---|*         ALLOW WRITE ENABLED ACCESS TO AN UNLABELED TAPE IF ANY OF
Line S00410 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03930  M02S00410.282l826 ---|*         THE FOLLOWING ARE TRUE -
Line S00004 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03931  M02S00004.282l826 ---|*         1.  USER HAS *CULT* PERMISSION.
Line S00005 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03932  M02S00005.282l826 ---|*         2.  JOB IS SYSTEM ORIGIN.
Line S00006 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03933  M02S00006.282l826 ---|*         3.  *RESEX* WAS CALLED AS A *DMP=* PROGRAM BY AN *SSJ=*
Line S00007 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03934  M02S00007.282l826 ---|*             PROGRAM.
Line S00008 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03935  M02S00008.282l826 ---|*
Line S00172 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03936  M03S00172.282l826 ---|*         ENTRY  (TB) = TAPE BLOCK DEFINITION.
Line S00173 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 274l797
M04 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03937  M04S00173.282l826 ---|*                (SSMA) = SYSTEM SECURITY MODE.
Line S00009 Modification History
M01 (Added by) resex26
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03938  M03S00009.282l826 ---|*                (/CPA/SPCW) = SYSTEM PROCESSOR CALL WORD.
Line S00411 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03939  M02S00411.282l826 ---|*         ENTRY  (/CPA/SPCW) = SYSTEM PROCESSOR CALL WORD.
Line S00174 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03940  M02S00174.282l826 ---|*                (OT) = ORIGIN TYPE.
Line S00175 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03941  M02S00175.282l826 ---|*
Line S00176 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03942  M03S00176.282l826 ---|*         EXIT   (TB) = SET TO FORCE RING-OUT IF USER DOES NOT
Line S00177 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03943  M03S00177.282l826 ---|*                HAVE UNLABELED TAPE WRITE PERMISSION *CULT*, AND
Line S00178 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03944  M03S00178.282l826 ---|*                JOB IS NOT OF SYSTEM ORIGIN.
Line S00179 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03945  M03S00179.282l826 ---|*
Line S00180 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03946  M03S00180.282l826 ---|*         ERROR  TO *PER*, IF SECURED SYSTEM AND USER REQUESTS RING-IN
Line S00181 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03947  M03S00181.282l826 ---|*                ON AN UNLABELED TAPE, BUT DOES NOT HAVE WRITE
Line S00182 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex26
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03948  M03S00182.282l826 ---|*                PERMISSION *CULT*.
Line S00010 Modification History
M01 (Added by) resex26
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03949  M03S00010.282l826 ---|*         EXIT   (TB) = SET TO FORCE RING-OUT IF RING-IN ACCESS IS
Line S00011 Modification History
M01 (Added by) resex26
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03950  M03S00011.282l826 ---|*                NOT ALLOWED.
Line S00412 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03951  M02S00412.282l826 ---|*         EXIT   WRITE DISABLED IF WRITE ACCESS IS NOT ALLOWED.
Line S00012 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03952  M02S00012.282l826 ---|*
Line S00013 Modification History
M01 (Added by) resex26
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03953  M03S00013.282l826 ---|*         ERROR  TO *PER* IF CALLER REQUESTS RING-IN ON AN UNLABELED
Line S00014 Modification History
M01 (Added by) resex26
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03954  M03S00014.282l826 ---|*                TAPE, BUT RING-IN ACCESS IS NOT ALLOWED.
Line S00413 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03955  M02S00413.282l826 ---|*         ERROR  TO *PER* IF CALLER REQUESTS WRITE ACCESS ON AN
Line S00414 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03956  M02S00414.282l826 ---|*                  UNLABELED TAPE, BUT WRITE ACCESS IS NOT ALLOWED.
Line S00183 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03957  M02S00183.282l826 ---|*
Line S00184 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex30
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03958  M03S00184.282l826 ---|*         USES   X - 0, 1, 2, 6.
Line S00001 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03959  M02S00001.282l826 ---|*         USES   X - 0, 1, 2, 5, 6.
Line S00185 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03960  M02S00185.282l826 ---|*                A - 1, 2, 6.
Line S00186 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex30
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03961  M03S00186.282l826 ---|*                B - 2.
Line S00002 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03962  M02S00002.282l826 ---|*                B - 2, 5.
Line S00003 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03963  M02S00003.282l826 ---|*
Line S00004 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03964  M02S00004.282l826 ---|*         CALLS  BPD, IRC, UDF.
Line S00187 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03965  M02S00187.282l826 ---|*
Line S00188 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03966  M02S00188.282l826 ---|*         MACROS MESSAGE.
Line S00189 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03967  M02S00189.282l826 ---|
Line S00190 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03968  M02S00190.282l826 ---|
Line S00191 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03969  M03S00191.282l826 ---| CUT1     LX2    59-3-59+4   CHECK RING OUT STATUS
Line S00192 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03970  M03S00192.282l826 ---|          NG     X2,CUTX     IF RING OUT REQUIRED
Line S00415 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03971  M02S00415.282l826 ---| CUT1     LX2    59-39-59+40 CHECK WRITE DISABLE OPTION (PO = R)
Line S00416 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03972  M02S00416.282l826 ---|          NG     X2,CUTX     IF WRITE DISABLE REQUIRED
Line S00193 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03973  M02S00193.282l826 ---|          BX6    X0+X2
Line S00194 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03974  M03S00194.282l826 ---|          LX6    -59+3
Line S00195 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03975  M03S00195.282l826 ---|          SA6    A2          REPLACE *TB* FORCING RING-OUT
Line S00196 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03976  M03S00196.282l826 ---|          MESSAGE CUTA,3     * RING-OUT STATUS HAS BEEN FORCED. *
Line S00417 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03977  M02S00417.282l826 ---|          LX6    -59+39
Line S00418 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03978  M02S00418.282l826 ---|          SA6    A2          FORCE WRITE DISABLE
Line S00419 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03979  M02S00419.282l826 ---|          MESSAGE CUTA,3     * WRITE DISABLE FORCED ON UNLABELED ...*
Line S00197 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03980  M02S00197.282l826 ---|
Line S00198 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03981  M02S00198.282l826 ---| CUT      SUBR               ENTRY/EXIT
Line S00015 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03982  M02S00015.282l826 ---|          SA1    /CPA/SPCW
Line S00016 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03983  M02S00016.282l826 ---|          LX1    59-36
Line S00017 Modification History
M01 (Added by) resex26
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03984  M02S00017.282l826 ---|          NG     X1,CUTX     IF *SSJ=*/*DMP=* CALLED BY *SSJ=*
Line S00199 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03985  M02S00199.282l826 ---|          SA2    OT          ORIGIN TYPE
Line S00200 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03986  M02S00200.282l826 ---|          SX2    X2-SYOT
Line S00201 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03987  M02S00201.282l826 ---|          ZR     X2,CUTX     IF JOB IS SYSTEM ORIGIN
Line S00202 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex9
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03988  M03S00202.282l826 ---|          SA2    UDT+/COMSMTX/UST2
Line S00203 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex9
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03989  M03S00203.282l826 ---|          LX2    59-11       CHECK FOR LABELED TAPE
Line S00204 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex9
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03990  M03S00204.282l826 ---|          MX0    1
Line S00205 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex9
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03991  M03S00205.282l826 ---|          NG     X2,CUTX     IF LABELED TAPE
Line S00001 Modification History
M01 (Added by) resex9
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03992  M02S00001.282l826 ---|          SA2    F+FTAP      CHECK IF TAPE WILL BE PROCESSED AS LABELED
Line S00002 Modification History
M01 (Added by) resex9
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03993  M03S00002.282l826 ---|          LX2    1
Line S00420 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03994  M02S00420.282l826 ---|          LX2    59-58
Line S00003 Modification History
M01 (Added by) resex9
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03995  M02S00003.282l826 ---|          NG     X2,CUTX     IF TAPE WILL BE PROCESSED AS LABELED
Line S00004 Modification History
M01 (Added by) resex9
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03996  M02S00004.282l826 ---|          MX0    1
Line S00206 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03997  M02S00206.282l826 ---|          SA1    JCWA        SECURITY CONTROL WORD
Line S00207 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03998  M03S00207.282l826 ---|          SA2    TB          CHECK USER WRITE RING REQUIREMENTS
Line S00208 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03999  M02S00208.282l826 ---|          LX1    59-52       CHECK *CULT* (WRITE UNLABELED TAPES)
Line S00209 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04000  M03S00209.282l826 ---|          LX2    59-4
Line S00421 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04001  M02S00421.282l826 ---|          LX2    59-40-59+58
Line S00210 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04002  M02S00210.282l826 ---|          NG     X1,CUTX     IF USER HAS *CULT* PERMISSION
Line S00211 Modification History
M01 (Added by) ns22000
M02 (Updated by) resex30
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04003  M03S00211.282l826 ---|          SB2    /PER/WUT    *NOT VALIDATED FOR WRITING UNLABELED TAPES*
Line S00212 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04004  M03S00212.282l826 ---|          PL     X2,CUT1     IF WRITE RING NOT REQUIRED
Line S00422 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04005  M02S00422.282l826 ---|          PL     X2,CUT1     IF WRITE ENABLE NOT REQUIRED
Line S00005 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04006  M02S00005.282l826 ---|          SB5    -1
Line S00006 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04007  M02S00006.282l826 ---|          RJ     IRC         DECREMENT TOTAL AND RESOURCE DEMAND COUNTS
Line S00007 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04008  M02S00007.282l826 ---|          BX6    X6-X6       CLEAR PREVIEW DATA
Line S00008 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04009  M02S00008.282l826 ---|          MX5    0           DEMAND FILE NOT TO BE RETURNED
Line S00009 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04010  M02S00009.282l826 ---|          SA6    RESB+RQPD
Line S00010 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04011  M02S00010.282l826 ---|          RJ     UDF         UPDATE DEMAND FILE
Line S00011 Modification History
M01 (Added by) resex30
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04012  M02S00011.282l826 ---|          RJ     BPD         BUILD PREVIEW DISPLAY
Line S00012 Modification History
M01 (Added by) resex30
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04013  M03S00012.282l826 ---|          SB2    /PER/WUT    *NOT VALIDATED FOR WRITING UNLABELED TAPES*
Line S00423 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04014  M02S00423.282l826 ---|          SB2    /PER/NVU    *NOT VALIDATED FOR WRITING UNLABELED TAPES*
Line S00213 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04015  M02S00213.282l826 ---|          EQ     PER         PROCESS ERROR
Line S00214 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04016  M02S00214.282l826 ---|
Line S00215 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04017  M02S00215.282l826 ---|
Line S00216 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04018  M03S00216.282l826 ---| CUTA     DATA   C*  RING-OUT STATUS HAS BEEN FORCED.*
Line S02387 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04019  M03S02387.282l826 ---| DDS      SPACE  4,15
Line S00424 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04020  M02S00424.282l826 ---| CUTA     DATA   C* WRITE DISABLE FORCED ON UNLABELED REQUEST.*
04021  M01S00425.274l797 +++| DDS      SPACE  4,20
04022  M01S02388.resex   +++|**        DDS - DETERMINE DEMAND SATISFACTION.
04023  M01S02389.resex   +++|*
Line S02390 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04024  M02S02390.274l797 ---|*         ENTRY  (B6) = RESOURCES DEMANDED FWA.
Line S02391 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04025  M02S02391.274l797 ---|*                (B7) = RESOURCES DEMANDED LWA.
04026  M01S00426.274l797 +++|*         ENTRY  (B6) = FWA OF RESOURCES DEMANDED TABLE (*RDT* FORMAT).
04027  M01S00427.274l797 +++|*                (B7) = LWA+1 OF RESOURCES DEMANDED TABLE.
04028  M01S02392.resex   +++|*
04029  M01S02393.resex   +++|*         EXIT   (X2) = 0 IF DEMAND SATISFIABLE.
Line S00002 Modification History
M01 (Added by) ns2529a
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04030  M02S00002.274l797 ---|*                (X2) = UNSATISFIABLE RESOURCE TYPE LEFT JUSTIFIED
Line S00003 Modification History
M01 (Added by) ns2529a
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04031  M02S00003.274l797 ---|*                       IF DEMAND IS NOT SATISFIABLE.
04032  M01S02394.resex   +++|*
04033  M01S02395.resex   +++|*         ERROR  TO *PER*, IF ENVIRONMENT ERROR.
04034  M01S02396.resex   +++|*
Line S02397 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04035  M02S02397.ns21000 ---|*         USES   A - 0, 1, 2, 4, 5, 6, 7.
04036  M01S00350.ns21000 +++|*         USES   A - ALL.
04037  M01S02398.resex   +++|*                B - 2, 3, 4, 5, 6.
04038  M01S02399.resex   +++|*                X - ALL.
04039  M01S02400.resex   +++|*
04040  M01S02401.resex   +++|*         CALLS  GRL.
04041  M01S02402.resex   +++|
04042  M01S02403.resex   +++|
04043  M01S02404.resex   +++| DDS      SUBR               ENTRY/EXIT
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 +++|
04062  M01S00351.ns21000 +++|          SA2    RETE        GET RET ENDING INDEX
04063  M01S00352.ns21000 +++|          SB3    RET+X2
04064  M01S02405.resex   +++| DDS1     BX2    X2-X2
04065  M01S02406.resex   +++|          SA1    B6          READ RESOURCES DEMANDED TABLE ENTRY
04066  M01S02407.resex   +++|          EQ     B6,B7,DDSX  IF COMPLETED
04067  M01S02408.resex   +++|          BX7    X1
04068  M01S02409.resex   +++|          AX7    48
04069  M01S02410.resex   +++|          SB4    TRSLL2
04070  M01S02411.resex   +++|          RJ     GRL         GET RESOURCE LIST INDEX
04071  M01S02412.resex   +++|          SB4    -B4
04072  M01S02413.resex   +++|          SX7    X7-2RPE
04073  M01S02414.resex   +++|          SA0    B1
04074  M01S02415.resex   +++|          NZ     X7,DDS2     IF NOT *PE* REQUEST
04075  M01S02416.resex   +++|          SA0    -TRHD       SATISFY WITH *HD* OR *GE* EQUIPMENT
Line S02417 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04076  M02S02417.ns21000 ---| DDS2     SB2    RET         FIND SINGLE EQUIPMENT WHICH MEETS DEMAND
Line S02418 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04077  M02S02418.ns21000 ---|          SB3    RET+ESTL
Line S02419 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04078  M02S02419.ns21000 ---|          MX6    0
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  M01S02420.resex   +++|          BX7    X7-X7
04083  M01S02421.resex   +++|          SA6    TDDS        CLEAR TEMPORARIES
04084  M01S02422.resex   +++|          SA7    A6+B1
04085  M01S02423.resex   +++|          BX4    X1
Line S02424 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04086  M02S02424.ns21000 ---|          MX3    -6          SET GLOBAL EQUIPMENT AND UNIT MASK
04087  M01S00356.ns21000 +++|          MX5    -6
04088  M01S02425.resex   +++|          LX4    18
Line S02426 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04089  M02S02426.ns21000 ---|          BX4    -X3*X4      NUMBER OF UNITS REQUIRED
Line S02427 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04090  M02S02427.ns21000 ---|          BX5    -X3*X1
04091  M01S00357.ns21000 +++|          BX4    -X5*X4      NUMBER OF UNITS REQUIRED
04092  M01S00358.ns21000 +++|          MX5    12
04093  M01S00359.ns21000 +++|          BX5    X5*X3       ORIGINAL EQUIPMENT
04094  M01S02428.resex   +++|          ZR     X5,DDS3     IF FIRST ATTEMPT TO SATISFY
04095  M01S02429.resex   +++|          SA5    DDSA        SET STARTING POSITION
04096  M01S02430.resex   +++|          SB2    X5+RET+1
04097  M01S02431.resex   +++| DDS3     SA2    B2
04098  M01S02432.resex   +++|          GE     B2,B3,DDS5  IF END OF RESOURCE EQUIPMENT TABLE
04099  M01S02433.resex   +++|          SB2    B2+B1
Line S02434 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04100  M02S02434.ns21000 ---|          ZR     X2,DDS3     IF NO ENTRY
04101  M01S02435.resex   +++|          LX7    X2,B1
04102  M01S02436.resex   +++|          BX5    X1-X2
04103  M01S02437.resex   +++|          LX2    -1
04104  M01S02438.resex   +++|          NG     X2,DDS3     IF LOGICALLY ASSIGNED
04105  M01S02439.resex   +++|          AX5    48
04106  M01S02440.resex   +++|          PL     X5,DDS4     IF NOT RESOURCE LIST INDEX
04107  M01S02441.resex   +++|          AX7    49
04108  M01S02442.resex   +++|          SX5    X7+B4
04109  M01S02443.resex   +++|          SB5    A0+
04110  M01S02444.resex   +++|          GT     B5,DDS4     IF NOT *PE* REQUEST
04111  M01S02445.resex   +++|          ZR     X5,DDS4     IF MATCH
04112  M01S02446.resex   +++|          SX5    X7+B5
Line S02447 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04113  M02S02447.ns21000 ---| DDS4     LX2    25
04114  M01S00360.ns21000 +++| DDS4     LX2    -5
04115  M01S02448.resex   +++|          NZ     X5,DDS3     IF NO MATCH
Line S02449 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04116  M02S02449.ns21000 ---|          BX5    -X3*X2
Line S00361 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04117  M02S00361.ns22000 ---|          MX5    -3
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
04125  M01S00362.ns21000 +++|          BX5    -X5*X2
04126  M01S02450.resex   +++|          SX5    X5+B1
04127  M01S02451.resex   +++|          IX6    X5-X4
04128  M01S02452.resex   +++|          NG     X6,DDS3     IF INSUFFICIENT UNITS
04129  M01S02453.resex   +++|          SA5    A6
04130  M01S02454.resex   +++|          IX5    X6-X5
04131  M01S02455.resex   +++|          NG     X5,DDS3     IF NOT BEST RESIDUE
Line S02456 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04132  M02S02456.ns21000 ---|          SA6    A6
Line S02457 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04133  M02S02457.ns21000 ---|          SX7    A2
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  M01S02458.resex   +++|          SA7    A7
04138  M01S02459.resex   +++|          EQ     DDS3        LOOP FOR BEST RESIDUE
04139  M01S02460.resex   +++|
04140  M01S02461.resex   +++| DDS5     SA5    A7
04141  M01S02462.resex   +++|          ZR     X5,DDS6     IF SINGLE EQUIPMENT ENTRY NOT FOUND
04142  M01S02463.resex   +++|          SA4    X5          LOGICALLY ASSIGN
04143  M01S02464.resex   +++|          SX7    B1
04144  M01S02465.resex   +++|          BX7    X7+X4
04145  M01S02466.resex   +++|          SA7    A4
Line S02467 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04146  M02S02467.ns21000 ---|          LX7    30
Line S02468 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04147  M02S02468.ns21000 ---|          BX7    -X3*X7
Line S02469 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04148  M02S02469.ns21000 ---|          SX6    X7
Line S02470 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04149  M02S02470.ns21000 ---|          LX6    -6
Line S02471 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04150  M02S02471.ns21000 ---|          SA6    A1+B1       INDICATE EQUIPMENT CHAIN
Line S02472 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04151  M02S02472.ns21000 ---|          BX4    -X3*X1
04152  M01S00366.ns21000 +++|          SX6    A4-RET      RET INDEX
04153  M01S00367.ns21000 +++|          LX6    27
04154  M01S02473.resex   +++|          EQ     DDS18       CHECK FOR FIRST ATTEMPT TO SATISFY
04155  M01S02474.resex   +++|
04156  M01S02475.resex   +++|
04157  M01S02476.resex   +++|*         ATTEMPT TO SATISFY DEMAND WITH CHAINED EQUIPMENT.
04158  M01S02477.resex   +++|
Line S02478 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04159  M02S02478.ns21000 ---| DDS6     SB2    RET
Line S02479 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04160  M02S02479.ns21000 ---|          SB3    RET+ESTL
Line S02480 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04161  M02S02480.ns21000 ---|          BX5    -X3*X1
04162  M01S00368.ns21000 +++| DDS6     SB2    RET+1
04163  M01S00369.ns21000 +++|          MX5    12
04164  M01S00370.ns21000 +++|          BX5    X5*X3
04165  M01S02481.resex   +++|          ZR     X5,DDS7     IF FIRST ATTEMPT TO SATISFY
04166  M01S02482.resex   +++|          SA5    DDSA        SET STARTING POSITION
04167  M01S02483.resex   +++|          SB2    X5+RET+1
04168  M01S02484.resex   +++| DDS7     LX4    X1
04169  M01S02485.resex   +++|          BX7    X7-X7
04170  M01S02486.resex   +++|          LX4    18
Line S02487 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04171  M02S02487.ns21000 ---|          BX4    -X3*X4      NUMBER OF UNITS REQUIRED
04172  M01S00371.ns21000 +++|          MX2    -6
04173  M01S00372.ns21000 +++|          BX4    -X2*X4      NUMBER OF UNITS REQUIRED
04174  M01S02488.resex   +++|          SA7    DDSB        CLEAR LDAM CONTROL
Line S02489 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04175  M02S02489.ns21000 ---|          SA7    TDDS        SET CHAIN POINTER
04176  M01S00373.ns21000 +++|          CLEAR  TDDS,TDDSL  CLEAR EQUIPMENT CHAIN TABLE
04177  M01S02490.resex   +++| DDS8     SA2    B2          READ RESOURCE EQUIPMENT TABLE ENTRY
Line S02491 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04178  M02S02491.ns21000 ---|          GE     B2,B3,DDS21 IF END OF TABLE
04179  M01S00374.ns21000 +++|          GE     B2,B3,DDS12 IF END OF TABLE
04180  M01S02492.resex   +++|          SB2    B2+B1
Line S02493 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04181  M02S02493.ns21000 ---|          ZR     X2,DDS8     IF NO ENTRY
04182  M01S02494.resex   +++|          BX5    X1-X2
04183  M01S02495.resex   +++|          LX7    X2,B1
Line S02496 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04184  M02S02496.ns21000 ---|          LX2    -1
04185  M01S00375.ns21000 +++|          LX2    59-0
04186  M01S02497.resex   +++|          NG     X2,DDS8     IF LOGICALLY ASSIGNED
04187  M01S02498.resex   +++|          AX5    48
04188  M01S02499.resex   +++|          PL     X5,DDS9     IF NOT RESOURCE LIST INDEX
04189  M01S02500.resex   +++|          AX7    49
04190  M01S02501.resex   +++|          SX5    X7+B4
04191  M01S02502.resex   +++|          SB5    A0+
Line S02503 Modification History
M01 (Added by) resex
M02 (Updated by) resex6
Seq #  *Modification Id* Act 
----------------------------+
04192  M02S02503.resex6  ---|          GT     B5,DDS8     IF NOT *PE* REQUEST
04193  M01S00001.resex6  +++|          GT     B5,DDS9     IF NOT *PE* REQUEST
04194  M01S02504.resex   +++|          ZR     X5,DDS9     IF MATCH
04195  M01S02505.resex   +++|          SX5    X7+B5
04196  M01S02506.resex   +++| DDS9     NZ     X5,DDS8     IF NO MATCH
Line S02507 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04197  M02S02507.ns22000 ---|          BX7    X2
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
Line S02508 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04205  M02S02508.ns21000 ---|          LX7    -3
04206  M01S00376.ns21000 +++|          LX7    59-3-59+0
04207  M01S02509.resex   +++|          PL     X7,DDS11    IF NOT LDAM EQUIPMENT
Line S02510 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04208  M02S02510.ns21000 ---|          SA5    B2-RET+EST-1  READ EST ENTRY
04209  M01S00377.ns21000 +++|          LX7    12-59+3
04210  M01S02511.resex   +++|          MX0    12
Line S02512 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04211  M02S02512.ns21000 ---|          LX5    12
Line S02513 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04212  M02S02513.ns21000 ---|          BX7    X0*X5
04213  M01S00378.ns21000 +++|          BX7    X0*X7       CHANNELS
04214  M01S02514.resex   +++|          SX6    B2-B1       SET STARTER
04215  M01S02515.resex   +++|          SA5    DDSB        COMPARE CHANNELS
04216  M01S02516.resex   +++|          NZ     X5,DDS10    IF STARTER CHOSEN
04217  M01S02517.resex   +++|          BX6    X7+X6
04218  M01S02518.resex   +++|          SA6    A5
04219  M01S02519.resex   +++|          EQ     DDS11       CHECK NUMBER OF UNITS
04220  M01S02520.resex   +++|
04221  M01S02521.resex   +++| DDS10    BX5    X0*X5
04222  M01S02522.resex   +++|          BX0    X5-X7
04223  M01S02523.resex   +++|          ZR     X0,DDS11    IF CHANNELS MATCH
04224  M01S02524.resex   +++|          MX0    6           INTERCHANGE CHANNELS
04225  M01S02525.resex   +++|          BX6    X0*X7
04226  M01S02526.resex   +++|          LX7    6
04227  M01S02527.resex   +++|          BX7    X0*X7
04228  M01S02528.resex   +++|          LX6    -6
04229  M01S02529.resex   +++|          BX7    X7+X6
04230  M01S02530.resex   +++|          BX0    X5-X7
04231  M01S02531.resex   +++|          NZ     X0,DDS12    IF CHANNELS DO NOT MATCH
Line S02532 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04232  M02S02532.ns21000 ---| DDS11    LX2    25
Line S02533 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04233  M02S02533.ns21000 ---|          BX5    -X3*X2
Line S02534 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04234  M02S02534.ns21000 ---|          SX5    X5+1
Line S02535 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04235  M02S02535.ns21000 ---|          SX7    A2-RET
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  M01S02536.resex   +++|          IX4    X4-X5
04242  M01S02537.resex   +++|          SA7    A7+B1       ENTER CHAIN
04243  M01S02538.resex   +++|          ZR     X4,DDS15    IF DEMAND SATISFIED
04244  M01S02539.resex   +++|          NG     X4,DDS15    IF DEMAND SATISFIABLE
Line S02540 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04245  M02S02540.ns21000 ---|          LX2    12
04246  M01S00384.ns21000 +++|          LX2    -30
04247  M01S02541.resex   +++|          SA5    DDSB        CHECK LDAM CONTROL
04248  M01S02542.resex   +++|          ZR     X5,DDS13    IF NOT LDAM EQUIPMENT
04249  M01S02543.resex   +++| DDS12    LT     B2,B3,DDS8  IF NOT END OF TABLE
04250  M01S02544.resex   +++|          SA5    DDSB        CHECK LDAM CONTROL
04251  M01S02545.resex   +++|          ZR     X5,DDS21    IF STARTER NEVER SELECTED
04252  M01S02546.resex   +++|          SB2    X5+B1       ADVANCE STARTING POSITION
04253  M01S02547.resex   +++|          GE     B2,B3,DDS21 IF TABLE EXCEEDED
04254  M01S02548.resex   +++|          JP     DDS7        CONTINUE WITH NEXT TABLE POSITION
04255  M01S02549.resex   +++|
Line S02550 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04256  M02S02550.ns21000 ---| DDS13    BX2    -X3*X2
Line S02551 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04257  M02S02551.ns21000 ---|          ZR     X2,DDS7     IF END OF CHAIN
Line S02552 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04258  M02S02552.ns21000 ---|          SB5    X2+RET
Line S02553 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04259  M02S02553.ns21000 ---|          GE     B5,B3,DDS25 IF OUT OF RESOURCE EQUIPMENT TABLE
Line S02554 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04260  M02S02554.ns21000 ---|          SA2    B5+
Line S02555 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04261  M02S02555.ns21000 ---|          BX5    X2-X1
Line S02556 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04262  M02S02556.ns21000 ---|          ZR     X2,DDS7     IF NO ENTRY
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  M01S02557.resex   +++|          LX7    X2,B1
04277  M01S02558.resex   +++|          AX5    48
04278  M01S02559.resex   +++|          LX2    -1
04279  M01S02560.resex   +++|          NG     X2,DDS7     IF LOGICALLY ASSIGNED (PREMATURE ENDCHAIN)
04280  M01S02561.resex   +++|          PL     X5,DDS14    IF NOT RESOURCE LIST INDEX
04281  M01S02562.resex   +++|          AX7    49
04282  M01S02563.resex   +++|          SX5    X7+B4
04283  M01S02564.resex   +++|          SB5    A0+
04284  M01S02565.resex   +++|          GT     B5,DDS14    IF NOT *PE* REQUEST
04285  M01S02566.resex   +++|          ZR     X5,DDS11    IF MATCH
04286  M01S02567.resex   +++|          SX5    X7+B5
04287  M01S02568.resex   +++| DDS14    NZ     X5,DDS25    IF NO MATCH (ERROR)
04288  M01S02569.resex   +++|          EQ     DDS11       CONTINUE WITH NEXT CHAINED EQUIPMENT
04289  M01S02570.resex   +++|
Line S02571 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04290  M02S02571.ns21000 ---| DDS15    SA4    A7+B1
Line S02572 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04291  M02S02572.ns21000 ---|          MX6    0
Line S02573 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04292  M02S02573.ns21000 ---| DDS16    SA4    A4-B1
Line S02574 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04293  M02S02574.ns21000 ---|          BX6    X6+X4
Line S02575 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04294  M02S02575.ns21000 ---|          ZR     X4,DDS17    IF END OF CHAIN
Line S02576 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04295  M02S02576.ns21000 ---|          LX6    -6
Line S02577 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04296  M02S02577.ns21000 ---|          SA5    X4+RET      INDICATE LOGICALLY ASSIGNED
Line S02578 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04297  M02S02578.ns21000 ---|          SX7    B1
Line S02579 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04298  M02S02579.ns21000 ---|          BX7    X7+X5
Line S02580 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04299  M02S02580.ns21000 ---|          SA7    A5
Line S02581 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04300  M02S02581.ns21000 ---|          EQ     DDS16       LOOP FOR ALL EQUIPMENTS
Line S02582 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04301  M02S02582.ns21000 ---|
Line S02583 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04302  M02S02583.ns21000 ---| DDS17    SA6    A1+B1       SET CHAIN INDICATOR
Line S02584 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04303  M02S02584.ns21000 ---|          LX6    6
Line S02585 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04304  M02S02585.ns21000 ---|          BX7    -X3*X6      FIRST EQUIPMENT IN CHAIN
Line S02586 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04305  M02S02586.ns21000 ---|          BX4    -X3*X1
Line S02587 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04306  M02S02587.ns21000 ---| DDS18    NZ     X4,DDS20    IF NOT FIRST ATTEMPT
Line S02588 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04307  M02S02588.ns21000 ---|          BX7    X1+X7
Line S02589 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
04308  M02S02589.ns21000 ---|          SA7    A1          SET ORIGINAL EQUIPMENT
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
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/resex.004.txt ยท Last modified: by 127.0.0.1