Deck RESEX Part 001

65 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
01216  M01S00036.ns22000 +++|*         AA = 1, IF *ASSIGN* WITH EST ORDINAL SPECIFIED.
01217  M00S00741.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
01218  M01S00037.ns22000 +++| AL       CON    0           ACCESS LEVEL PERMISSION
01219  M00S00742.resex   +++| AU       CON    0           ADDRESS OF UDT OF ASSIGNED VSN
01220  M00S00743.resex   +++| AV       CON    0           ASSIGNED VSN POINTER
01221  M00S00744.resex   +++| CF       CON    0           CALL FLAG
01222  M00S00745.resex   +++| CI       CON    0           CHECKPOINT ID
01223  M00S00746.resex   +++| DFDI     CON    0           DEFAULT DEMAND INDICATOR
01224  M00S00747.resex   +++| DFPT     CON    /COMSPFM/DFPT  DEFAULT REMOVABLE PACK TYPE

Seq #  *Modification Id* Act 
----------------------------+
01225  M01S00002.ns2350  +++|*                (THE ACTUAL VALUE OF *DFPT* IS READ FROM *PFNL*)

Seq #  *Modification Id* Act 
----------------------------+
01226  M01S00748.282l826 ---| EF       CON    0           END-OF-FILE FLAG / ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01227  M01S00029.282l826 +++| EF       CON    0           END-OF-FILE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01228  M01S00048.252l678 +++| EMSG     BSS    /TFM/MBML   ERROR MESSAGE BUFFER
01229  M00S00749.resex   +++| EQ       CON    0           MAGNETIC TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
01230  M01S00750.282l826 ---| EV       CON    0           EQUIVALENCED VSN FLAG

Seq #  *Modification Id* Act 
----------------------------+
01231  M01S00265.274l797 +++| EVSN     CON    0           EXTERNAL VSN

Seq #  *Modification Id* Act 
----------------------------+
01232  M01S00030.282l826 +++| FAMO     CON    0           FAMILY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01233  M01S00751.resex1  ---| FS       CON    0           FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
01234  M01S00001.resex1  +++| FS       CON    -1          FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
01235  M01S00266.274l797 +++| IVSN     CON    0           INTERNAL VSN
01236  M00S00752.resex   +++| JEEO     CON    0           JOB EJT ENTRY ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01237  M01S00753.282l826 ---| JEEA     CON    0           JOB EJT ENTRY ABSOLUTE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01238  M01S00038.ns22000 +++| JALA     CON    0           JOB ACCESS LEVEL
01239  M01S00039.ns22000 +++| JCWA     CON    0           JOB CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
01240  M01S00031.282l826 +++| JSN      CON    0           JOB SEQUENCE NAME
01241  M00S00754.resex   +++| MF       CON    0           MULTI-FILE POSITIONING
01242  M00S00755.resex   +++| MIDI     CON    0           *MAGNET* IDLEDOWN INDICATOR
01243  M00S00756.resex   +++| OO       CON    0           OPEN OPTION
01244  M00S00757.resex   +++| OT       CON    0           JOB ORIGIN TYPE

Seq #  *Modification Id* Act 
----------------------------+
01245  M01S00267.274l797 +++| OV       CON    0           TAPE BLOCK OVERFLOW CHUNK COUNT
01246  M00S00758.resex   +++| PVDC     CON    0           PREVIEW DISPLAY CLEAN-UP FLAG

Seq #  *Modification Id* Act 
----------------------------+
01247  M01S00028.253l688 +++| PVST     CON    0           PACKED VSN OF STAGING TAPE
01248  M00S00759.resex   +++| RE       CON    0           ROLLOUT EVENT

Seq #  *Modification Id* Act 
----------------------------+
01249  M01S00025.ns21000 +++| RETE     CON    0           RET/EVSB ENDING EQUIPMENT INDEX
01250  M01S00026.ns21000 +++| RETI     CON    0           RET/EVSB MT BEGINNING INDEX
01251  M00S00760.resex   +++| RM       CON    0           ROLLOUT MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01252  M01S00032.282l826 +++| RMN      CON    0           RESOURCE TYPE MNEMONIC
01253  M00S00761.resex   +++| RT       CON    0           REQUEST TYPE
01254  M00S00762.resex   +++| SS       CON    0           SUB-SYSTEM COMMUNICATION STATUS WORD

Seq #  *Modification Id* Act 
----------------------------+
01255  M01S00040.ns22000 +++| SSMA     CON    0           SYSTEM SECURITY MODE

Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00001.resex39 +++| TA       CON    0           *MAGNET* TAPE ASSIGNED FLAG
01257  M00S00763.resex   +++| TB       CON    0           TAPE BLOCK DEFINITION

Seq #  *Modification Id* Act 
----------------------------+
01258  M01S00041.ns22000 +++| TPAL     CON    0           TAPE ACCESS LEVELS

Seq #  *Modification Id* Act 
----------------------------+
01259  M02S00049.253l688 ---| TS       CON    0           SYMBOLIC TMS TAPE FLAG (IF NEGATIVE)

Seq #  *Modification Id* Act 
----------------------------+
01260  M01S00029.253l688 +++| TS       CON    0           SYMBOLIC *TMS* TAPE FLAG (IF NEGATIVE)
01261  M00S00764.resex   +++| UCRI     CON    0           INTERRUPT REQUIRES FILE UPDATE/CLEAN-UP
01262  M00S00765.resex   +++| VA       CON    0           VSN RANDOM ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01263  M01S00050.252l678 +++| VC       CON    0           VSN FROM *VSN* COMMAND FLAG

Seq #  *Modification Id* Act 
----------------------------+
01264  M01S00766.282l826 ---| VI       CON    0           VSN INDEX

Seq #  *Modification Id* Act 
----------------------------+
01265  M01S00767.274l797 ---|
01266  M01S00768.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
01267  M01S00268.274l797 +++|          SPACE  4,10
01268  M01S00269.274l797 +++|**        TTDV - TABLE OF TAPE DEVICE TYPES.
01269  M01S00270.274l797 +++|*
01270  M01S00271.274l797 +++|*         ENTRIES ARE IN ORDER OF *COMSMTX* TAPE DEVICE CODES.
01271  M01S00272.274l797 +++|*
01272  M01S00273.274l797 +++|*         42/RT,6/0,12/DM
01273  M01S00274.274l797 +++|*
01274  M01S00275.274l797 +++|*                RT = *COMSRSX* RESOURCE TYPE.
01275  M01S00276.274l797 +++|*                DM = DEVICE MNEMONIC.
01276  M01S00277.274l797 +++|*
01277  M01S00278.274l797 +++|*         TABLE IS TERMINATED WITH A ZERO WORD.
01278  M01S00279.274l797 +++|
01279  M01S00280.274l797 +++|
01280  M01S00281.274l797 +++| TTDV     IVFD
01281  M01S00282.274l797 +++|          IVFD   /COMSMTX/DVMT,(42/RMTP,18/2RMT)
01282  M01S00283.274l797 +++|          IVFD   /COMSMTX/DVCT,(42/RCTP,18/2RCT)
01283  M01S00284.274l797 +++|          IVFD   /COMSMTX/DVNT,(42/RNTP,18/2RNT)
01284  M01S00285.274l797 +++|          IVFD   /COMSMTX/DVAT,(42/RATP,18/2RAT)
01285  M01S00286.274l797 +++|          IVFD   /COMSMTX/DVMX,(60/0)  TABLE TERMINATOR
01286  M01S00287.274l797 +++|          IVFD   /COMSMTX/DVMX+1
01287  M01S00288.274l797 +++| TTFM     SPACE  4,10
01288  M01S00289.274l797 +++|**        TTFM - TABLE OF TAPE FORMAT CHARACTERISTICS.
01289  M01S00290.274l797 +++|*
01290  M01S00291.274l797 +++|*         ENTRIES ARE IN ORDER OF *COMSMTX* TAPE FORMAT DEFINITIONS.
01291  M01S00292.274l797 +++|*
01292  M01S00293.274l797 +++|*         1/I,1/B,10/0,12/ WC, 12/ OV,6/ N7,6/ N9,12/0
01293  M01S00294.274l797 +++|*
01294  M01S00295.274l797 +++|*         I      INTERNAL FORMAT.
01295  M01S00296.274l797 +++|*         B      COMPUTE BLOCK SIZE FROM FRAME COUNT.
01296  M01S00297.274l797 +++|*         WC     BLOCK WORD COUNT.
01297  M01S00298.274l797 +++|*         OV     LONG BLOCK OVERFLOW IN CHUNKS.
01298  M01S00299.274l797 +++|*         N7     DEFAULT 7 TRACK NOISE BLOCK DEFINITION.
01299  M01S00300.274l797 +++|*         N9     DEFAULT 9 TRACK NOISE BLOCK DEFINITION.
01300  M01S00301.274l797 +++|
01301  M01S00302.274l797 +++|
01302  M01S00303.274l797 +++| TTFM     BSS    0           START OF TABLE
01303  M01S00304.274l797 +++|          VFD    1/1,1/0,10/0,12/1000B,12/0,6/4,6/4,12/0   *I*
01304  M01S00305.274l797 +++|          VFD    1/1,1/0,10/0,12/1000B,12/0,6/4,6/4,12/0   *SI*
01305  M01S00306.274l797 +++|          VFD    1/0,1/1,10/0,12/0,12/0,6/11B,6/14B,12/0   *F*
01306  M01S00307.274l797 +++|          VFD    1/0,1/0,10/0,12/0,12/0,6/11B,6/14B,12/0   *S*
01307  M01S00308.274l797 +++|          VFD    1/0,1/0,10/0,12/0,12/0,6/11B,6/14B,12/0   *L*
01308  M01S00309.274l797 +++|          VFD    1/1,1/0,10/0,12/400B,12/12B,6/0,6/0,12/0  *LI*
01309  M01S00310.274l797 +++|          SPACE  4,10
01310  M00S00769.resex   +++|**        SCRATCH VSN EQUIVALENCES.
01311  M00S00770.resex   +++|
01312  M00S00771.resex   +++|
01313  M00S00772.resex   +++| BLANK    VFD    36/6H      ,24/0
01314  M00S00773.resex   +++| SCRATCH  VFD    60/0LSCRATCH
01315  M00S00774.resex   +++| ZERO     VFD    60/0L0
01316  M00S00775.resex   +++| RSX      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01317  M01S00776.ns21000 ---|**        RESOURCE FILE EQUIVALENCES.
01318  M01S00777.ns21000 ---|
01319  M01S00778.ns21000 ---|
01320  M01S00779.ns21000 ---|          LIST   X
01321  M01S00780.ns21000 ---|*CALL     COMSRSX
01322  M01S00781.ns21000 ---|          LIST   -X
01323  M01S00782.ns21000 ---|          ORG    RSXB+RQPD

Seq #  *Modification Id* Act 
----------------------------+
01324  M01S00027.ns21000 +++|**        RESOURCE FILE IDENTIFIER TABLES.
01325  M01S00028.ns21000 +++|
01326  M01S00029.ns21000 +++|
01327  M01S00030.ns21000 +++|          LIST   D,E,G
01328  M01S00031.ns21000 +++| TRSL     HERE               *COMSRSX* TABLE OF RESOURCE LISTS
01329  M01S00032.ns21000 +++|
01330  M01S00033.ns21000 +++| TRID     HERE               *COMSRSX* TAPE/PACK RESOURCE ENTRIES
01331  M01S00034.ns21000 +++|          LIST   *
01332  M00S00783.resex   +++| EVENTS   SPACE  4,10
01333  M00S00784.resex   +++|**        EVENT SKELETONS AND ROLLOUT MESSAGE ADDRESSES.
01334  M00S00785.resex   +++|
01335  M00S00786.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
01336  M01S00787.resex4  ---| DMVD     VFD    30/0,18//EVENT/EXTM,12//TIMES/MTMS
01337  M01S00788.resex4  ---|          VFD    36/-0,6/0,18/-WTPM
01338  M00S00789.resex   +++| MSUB     VFD    30/0,18//EVENT/MTXE,12//TIMES/SUBM
01339  M00S00790.resex   +++|          CON    =C*WAITING FOR MAGNET.*
01340  M00S00791.resex   +++| PEMV     VFD    30/0,18//EVENT/VSNE,12//TIMES/RPMS

Seq #  *Modification Id* Act 
----------------------------+
01341  M01S00792.282l826 ---|          VFD    42/-0,18/-WPKM

Seq #  *Modification Id* Act 
----------------------------+
01342  M01S00033.282l826 +++|          VFD    60/-WPKM
01343  M00S00793.resex   +++| PEOV     VFD    30/0,18//EVENT/OVRE,12//TIMES/RPOV
01344  M00S00794.resex   +++|          CON    =C*WAITING FOR RESOURCES.*
01345  M00S00795.resex   +++| PFRE     CON    0           PF FILE ROLLOUT (USE EVENT IN CPA *UPCW*)
01346  M00S00796.resex   +++|          CON    =C*WAITING FOR RESOURCE FILE.*

Seq #  *Modification Id* Act 
----------------------------+
01347  M02S00005.274l797 ---| TEDD     VFD    30/0,18//EVENT/ESCE,12//TIMES/NTDD
01348  M02S00006.274l797 ---|          CON    =C*WAITING FOR DOWN TAPE UNIT.*
01349  M00S00797.resex   +++| TEMV     VFD    30/0,18//EVENT/VSNE,12//TIMES/MTMS

Seq #  *Modification Id* Act 
----------------------------+
01350  M01S00798.282l826 ---|          VFD    36/-0,6/0,18/-WTPM

Seq #  *Modification Id* Act 
----------------------------+
01351  M01S00034.282l826 +++|          VFD    60/-WTPM
01352  M00S00799.resex   +++| TEOV     VFD    30/0,18//EVENT/OVRE,12//TIMES/MTOV
01353  M00S00800.resex   +++|          CON    =C*WAITING FOR RESOURCES.*
01354  M00S00801.resex   +++| TLIM     VFD    30/0,18/0,12//TIMES/RFTL
01355  M00S00802.resex   +++|          CON    =C*WAITING ON TRACK LIMIT.*

Seq #  *Modification Id* Act 
----------------------------+
01356  M02S00051.282l826 ---| WFOA     VFD    30/0,18/0,12//TIMES/WFOA
01357  M02S00052.282l826 ---|          CON    =C*WAITING FOR OPERATOR ACTION.*

Seq #  *Modification Id* Act 
----------------------------+
01358  M01S00030.253l688 +++| WSTG     VFD    30/0,18//EVENT/VSNE+7777B,12//TIMES/MTMS
01359  M01S00031.253l688 +++|          CON    =C*WAITING FOR STAGING TAPE.*
01360  M00S00803.resex   +++|          SPACE  4,10
01361  M00S00804.resex   +++| WTPB     BSSZ   4           WAITING FOR TAPE/PACK MESSAGE BUFFER
01362  M00S00805.resex   +++|
01363  M00S00806.resex   +++| WPKM     DATA   C*WAITING FOR PN=+++++++, ---.*
01364  M00S00807.resex   +++|
01365  M00S00808.resex   +++| WTPM     DATA   C*WAITING FOR VSN=+++++++, --.*

Seq #  *Modification Id* Act 
----------------------------+
01366  M01S00053.252l678 +++| TMPF     SPACE  4,10
01367  M01S00054.252l678 +++|**        TAPE MANAGER PROCESSING FLAGS.
01368  M01S00055.252l678 +++|
01369  M01S00056.252l678 +++|
01370  M01S00057.252l678 +++| TMPF     BSS    0           TAPE MANAGER PROCESSING FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01371  M02S00058.253l688 ---|          VFD    1/1         59 - SET IF TMS DISABLED
01372  M02S00059.253l688 ---|          VFD    1/0         58 - SET IF TMS ASSIGNED TAPE

Seq #  *Modification Id* Act 
----------------------------+
01373  M01S00032.253l688 +++|          VFD    1/1         59 - SET IF *TMS* DISABLED

Seq #  *Modification Id* Act 
----------------------------+
01374  M02S00033.274l797 ---|          VFD    1/0         58 - SET IF *TMS* ASSIGNED TAPE

Seq #  *Modification Id* Act 
----------------------------+
01375  M01S00311.274l797 +++|          VFD    1/0         58 - SET IF *TMS* CONTROLLED REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01376  M02S00060.ns2770  ---|          VFD    1/0         57 - SET IF BLANK LABEL

Seq #  *Modification Id* Act 
----------------------------+
01377  M01S00001.ns2770  +++|          VFD    1/0         57 - SET IF SCRATCH TAPE ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
01378  M01S00061.252l678 +++|          VFD    1/0         56 - SET IF OPERATOR VERIFY REQUIRED
01379  M01S00062.252l678 +++|          VFD    1/0         55 - SET IF RESERVE ASSIGNED SCRATCH
01380  M01S00063.252l678 +++|          VFD    1/0         54 - SET IF SYMBOLIC ACCESS
01381  M01S00064.252l678 +++|          VFD    1/0         53 - SET IF DEFAULT *TO=T*
01382  M01S00065.252l678 +++|          VFD    1/0         52 - SET IF USER OWNED TAPE
01383  M01S00066.252l678 +++|          VFD    1/0         51 - SET IF DEFAULT *TO=C*

Seq #  *Modification Id* Act 
----------------------------+
01384  M02S00067.282l826 ---|          VFD    1/0         50 - UNUSED

Seq #  *Modification Id* Act 
----------------------------+
01385  M01S00035.282l826 +++|          VFD    1/0         50 - SET IF OFFSITE TAPE

Seq #  *Modification Id* Act 
----------------------------+
01386  M01S00068.252l678 +++|          VFD    1/0         49 - UNUSED
01387  M01S00069.252l678 +++|          VFD    1/0         48 - UNUSED
01388  M01S00070.252l678 +++|          VFD    48/0        47 TO 0 - UNUSED
01389  M00S00809.resex   +++|          TITLE  OVERVIEW DOCUMENTATION.
01390  M00S00810.resex   +++|***       OVERCOMMITMENT ALGORITHM DESCRIPTION.
01391  M00S00811.resex   +++|*
01392  M00S00812.resex   +++|*         THE PURPOSE OF THIS DOCUMENTATION IS TO OVERVIEW HOW THE
01393  M00S00813.resex   +++|*         EXERCISING OF THE OVERCOMMITMENT ALGORITHM IS PERFORMED.
01394  M00S00814.resex   +++|*
01395  M00S00815.resex   +++|*         9-TRACK MAGNETIC TAPE *RESOURC* IDENTIFICATION BY DENSITY
01396  M00S00816.resex   +++|*         (*HD* = 800 BPI, *PE* = 1600 BPI, *GE* = 6250 BPI) CANNOT
01397  M00S00817.resex   +++|*         BE SPECIFIED CONCURRENTLY IN THE SAME JOB WITH THE *NT*
01398  M00S00818.resex   +++|*         *RESOURC* IDENTIFIER.  IN THE OVERCOMMITMENT ALGORITHM,
01399  M00S00819.resex   +++|*         UNSATISFIED *NT* DEMANDS ARE LOGICALLY SATISFIED ONLY BY
01400  M00S00820.resex   +++|*         800/1600 BPI DRIVES.  HOWEVER, AT REQUEST TIME, IF THE
01401  M00S00821.resex   +++|*         DESIRED 1600 BPI TAPE FOR AN *NT* DEMAND IS FOUND MOUNTED
01402  M00S00822.resex   +++|*         ON A 1600/6250 BPI DRIVE, THE ASSIGNMENT WILL BE ALLOWED
01403  M00S00823.resex   +++|*         IF IT DOES NOT CAUSE OVERCOMMITMENT.
01404  M00S00824.resex   +++|*
01405  M00S00825.resex   +++|*     *BRE*      BUILDS RESOURCE EQUIPMENT TABLE (RET) AND ENVIRONMENT
01406  M00S00826.resex   +++|*                VSN TABLE (EVSB) FROM THE MASS STORAGE TABLES (MST),
01407  M00S00827.resex   +++|*                *MAGNET* UNIT DESCRIPTOR TABLES (UDT) AND EQUIPMENT
01408  M00S00828.resex   +++|*                STATUS TABLE (EST).
01409  M00S00829.resex   +++|*
01410  M00S00830.resex   +++|*     *BSF*      BUILDS SCRATCH FILE OF THE DEMAND FILE ENTRIES FOR
01411  M00S00831.resex   +++|*                ALL JOBS WITH ASSIGNED RESOURCES, EXCEPT REQUESTOR.

Seq #  *Modification Id* Act 
----------------------------+
01412  M01S00832.274l797 ---|*
01413  M01S00833.274l797 ---|*     *CRQ*      VALIDATES OPERATOR ASSIGNED EQUIPMENT, READS
01414  M01S00834.274l797 ---|*                REQUESTOR DEMAND FILE ENTRY INTO RESB BUFFER, AND
01415  M01S00835.274l797 ---|*                BUILD PREVIEW DATA FOR THIS REQUEST.
01416  M01S00836.274l797 ---|*
01417  M01S00837.274l797 ---|*     *DEI*      DETERMINES IF RESOURCE DEMANDS ARE SATISFIABLE
01418  M00S00838.resex   +++|*                BY THE RESOURCE EQUIPMENT DEFINED IN THE ENVIRONMENT.

Seq #  *Modification Id* Act 
----------------------------+
01419  M01S00839.274l797 ---|*
01420  M01S00840.274l797 ---|*         *DDS*      DETERMINES THE SATISFIABILITY OF THE RESOURCE
01421  M01S00841.274l797 ---|*                    DEMANDS.  AN ATTEMPT IS MADE TO ASSIGN EQUIPMENTS
01422  M01S00842.274l797 ---|*                    AS FOLLOWS-
01423  M01S00843.274l797 ---|*                    1.  ASSUME RESOURCES DEMANDED TABLE (RDT)
01424  M01S00844.274l797 ---|*                        IS BUILT BY THE CALLING ROUTINE.
01425  M01S00845.274l797 ---|*                    2.  RESOURCE DEMANDS ARE SATISFIED WITH LARGER
01426  M01S00846.274l797 ---|*                        MULTI-SPINDLE DEMANDS FIRST, TAPES LAST.
01427  M01S00847.274l797 ---|*                    3.  THE DEMAND IS SATISFIED BY A SINGLE EQUIPMENT
01428  M01S00848.274l797 ---|*                        WITH A *BEST FIT* DETERMINED BY THE LARGEST
01429  M01S00849.274l797 ---|*                        SPINDLE RESIDUE.
01430  M01S00850.274l797 ---|*                    4.  THE DEMAND IS SATISFIED BY A CHAIN OF
01431  M01S00851.274l797 ---|*                        EQUIPMENTS WITH NO REGARD TO SPINDLE OR
01432  M01S00852.274l797 ---|*                        EQUIPMENT RESIDUE AS A CRITERION FOR
01433  M01S00853.274l797 ---|*                        A *BEST FIT*.
01434  M01S00854.274l797 ---|*                    5.  IF A RESOURCE DEMAND CANNOT BE SATISFIED, THEN
01435  M01S00855.274l797 ---|*                        THE PREVIOUS DEMAND SATISFACTION IS NEGATED
01436  M01S00856.274l797 ---|*                        AND RETRIED (STEP 3).  THIS IS DONE UNTIL ALL
01437  M01S00857.274l797 ---|*                        POSSIBLE CHAINS HAVE BEEN ATTEMPTED FOR ALL
01438  M01S00858.274l797 ---|*                        DEMANDED RESOURCES.
01439  M00S00859.resex   +++|*
01440  M00S00860.resex   +++|*     *CFU*      REQUESTED VSN/PACKNAME IF FOUND IN EVSB IS ASSIGNED
01441  M00S00861.resex   +++|*                TO THE REQUESTOR.  IF REMOVABLE PACK, A SHARE TABLE
01442  M00S00862.resex   +++|*                ENTRY IS BUILT.  IF REQUEST IS FOR A TAPE VSN AND
01443  M00S00863.resex   +++|*                DUPLICATE VSNS HAVE BEEN DECLARED, THEY WILL BE
01444  M00S00864.resex   +++|*                CHECKED IF THE ORIGINAL VSN IS NOT FOUND IN EVSB.
01445  M00S00865.resex   +++|*                IF THE REQUESTED VSN/PACKNAME IS NOT FOUND IN THE
01446  M00S00866.resex   +++|*                EVSB, A PSUEDO EVSB ENTRY IS MADE IF THE RET
01447  M00S00867.resex   +++|*                CONTAINS A FREE DEVICE OF THE REQUESTED TYPE.
01448  M00S00868.resex   +++|*                (SO THAT IF OVERCOMMITMENT IS LATER DETECTED, THE
01449  M00S00869.resex   +++|*                PREVIEW DATA WILL BE CLEARED AND THE JOB WILL ROLL
01450  M00S00870.resex   +++|*                OUT WITH OVERCOMMITMENT STATUS RATHER THAN MISSING
01451  M00S00871.resex   +++|*                VSN.)  FOR 9-TRACK *PE* REQUESTS FOR A *SCRATCH*
01452  M00S00872.resex   +++|*                TAPE OR FOR A VSN NOT FOUND IN THE ENVIRONMENT,
01453  M00S00873.resex   +++|*                *CFU* WILL GUARENTEE THAT THE SELECTED DRIVE WILL
01454  M00S00874.resex   +++|*                NOT CAUSE INTERNAL CONFLICT FOR THE JOB.
01455  M00S00875.resex   +++|*
01456  M00S00876.resex   +++|*     *CIC*      SETS ASSIGNED STATUS ONLY ON THOSE TAPE EQUIPMENTS
01457  M00S00877.resex   +++|*                IN THE ENVIRONMENT CURRENTLY ASSIGNED TO THE
01458  M00S00878.resex   +++|*                REQUESTOR AND DETERMINES THE SATISFIABILITY OF THE
01459  M00S00879.resex   +++|*                REQUESTOR,S REMAINING DEMANDS.  IF THESE DEMANDS
01460  M00S00880.resex   +++|*                CANNOT BE SATISFIED, BUT *DEI* HAS SHOWN THAT THE
01461  M00S00881.resex   +++|*                ENVIRONMENT CAN SATISFY THE REQUESTOR,S TOTAL
01462  M00S00882.resex   +++|*                DEMANDS WHEN NONE ARE CURRENTLY ASSIGNED, THE JOB
01463  M00S00883.resex   +++|*                IS IN A STATE OF DEADLOCKING ITSELF.  THIS CAN OCCUR
01464  M00S00884.resex   +++|*                WHEN THE CURRENT REQUEST IS FOR A 9-TRACK *PE* TAPE
01465  M00S00885.resex   +++|*                THAT IS FOUND MOUNTED ON THE WRONG DRIVE TYPE, SUCH
01466  M00S00886.resex   +++|*                THAT THE REMAINING *HD* OR *GE* DEMANDS CANNOT BE
01467  M00S00887.resex   +++|*                SATISFIED.  IN THIS CASE, THE ASSIGNMENT IS
01468  M00S00888.resex   +++|*                REJECTED AND THE OPERATOR IS INFORMED OF THE
01469  M00S00889.resex   +++|*                CONFLICT, SO THE TAPE CAN BE MOUNTED ON THE CORRECT
01470  M00S00890.resex   +++|*                DRIVE TYPE.  INTERNAL CONFLICT CAN ALSO OCCUR WHEN A
01471  M00S00891.resex   +++|*                9-TRACK *PE* TAPE IS CURRENTLY ASSIGNED TO THE JOB
01472  M00S00892.resex   +++|*                AND AN INCREASE IN *HD* OR *GE* RESOURCE
01473  M00S00893.resex   +++|*                REQUIREMENTS IS SPECIFIED (RECIEVES *NT DRIVE
01474  M00S00894.resex   +++|*                CONFLICT.* ERROR).
01475  M00S00895.resex   +++|*
01476  M00S00896.resex   +++|*     *CRC*      DETERMINE IF REQUESTOR COMPLETES (SATISFIES ALL
01477  M00S00897.resex   +++|*                DEMANDS) WITH THE ASSIGNMENT OF THIS RESOURCE.
01478  M00S00898.resex   +++|*                IF SO, THERE IS NO NEED TO EXERCISE THE
01479  M00S00899.resex   +++|*                OVERCOMMITMENT ALGORITHM.
01480  M00S00900.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01481  M01S00312.274l797 +++|*     *CRQ*      VALIDATES OPERATOR ASSIGNED EQUIPMENT, READS
01482  M01S00313.274l797 +++|*                REQUESTOR DEMAND FILE ENTRY INTO RESB BUFFER, AND
01483  M01S00314.274l797 +++|*                BUILD PREVIEW DATA FOR THIS REQUEST.
01484  M01S00315.274l797 +++|*
01485  M01S00316.274l797 +++|*     *DDS*      DETERMINES THE SATISFIABILITY OF THE RESOURCE DEMANDS.
01486  M01S00317.274l797 +++|*
01487  M01S00318.274l797 +++|*     *DEI*      DETERMINES IF RESOURCE DEMANDS ARE SATISFIABLE
01488  M01S00319.274l797 +++|*
01489  M00S00901.resex   +++|*     *OCA*      OVERCOMMITMENT ALGORITHM IS EXERCISED.  *DDS* IS USED
01490  M00S00902.resex   +++|*                TO SATISFY ALL DEMANDS WHICH HAVE NOT BEEN MET.
01491  M00S00903.resex   +++|*                IF ANY JOB DOES NOT COMPLETE, THEN A DEADLOCK HAS
01492  M00S00904.resex   +++|*                OCCURRED AND THE ASSIGNMENT WILL BE PROHIBITED.
01493  M00S00905.resex   +++|*
01494  M00S00906.resex   +++|*
01495  M00S00907.resex   +++|*
01496  M00S00908.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01497  M01S00909.resex1  ---|*     PP ROUTINE *0RF*.
01498  M01S00910.resex1  ---|*         *0RF* MANIPULATES THE DEMAND AND ASSIGNED COUNTS AND SHARE
01499  M01S00911.resex1  ---|*         TABLE ENTRIES WHEN FILES ON RESOURCE DEVICES ARE RETURNED.

Seq #  *Modification Id* Act 
----------------------------+
01500  M01S00002.resex1  +++|*     PP ROUTINES *0RF* AND *0RT*.
01501  M01S00003.resex1  +++|*         *0RT* CLEARS THE ASSOCIATED VSN FILE ENTRY AND UPDATES
01502  M01S00004.resex1  +++|*         THE JOB DEMAND FILE ENTRY WHEN A TAPE RESOURCE IS
01503  M01S00005.resex1  +++|*         RETURNED.  *0RF* CLEARS THE SHARE TABLE ENTRY AND UPDATES
01504  M01S00006.resex1  +++|*         THE DEMAND AND ASSIGNED COUNTS IN THE JOB DEMAND FILE
01505  M01S00007.resex1  +++|*         ENTRY WHEN A REMOVABLE PACK RESOURCE IS RETURNED.
01506  M00S00912.resex   +++|*         WHEN A TAPE FILE IS RETURNED OR WHEN THE LAST DIRECT ACCESS
01507  M00S00913.resex   +++|*         FILE FOR THE JOB ON A REMOVABLE PACK IS RETURNED, BOTH THE
01508  M00S00914.resex   +++|*         TOTAL ASSIGNED COUNT AND THIS RESOURCE ASSIGNED COUNT ARE
01509  M00S00915.resex   +++|*         DECREMENTED BY ONE.  IF TOTAL RESOURCE DEMANDS HAVE BEEN
01510  M00S00916.resex   +++|*         SATISFIED, BOTH THE TOTAL DEMAND COUNT AND THE RESOURCE
01511  M00S00917.resex   +++|*         DEMAND COUNT ARE DECREMENTED BY ONE, UNLESS *UNLOAD* WAS

Seq #  *Modification Id* Act 
----------------------------+
01512  M01S00918.resex1  ---|*         USED TO RELEASE A TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
01513  M01S00008.resex1  +++|*         USED TO RELEASE THE FILE.
01514  M01S00009.resex1  +++|*         *0RF* IS ALSO USED TO CLEAR THE JOB DEMAND FILE ENTRY AT
01515  M01S00010.resex1  +++|*         JOB COMPLETION.
01516  M00S00919.resex   +++|          SPACE  4,10
01517  M00S00920.resex   +++|***       ENVIRONMENT TABLES AND BUFFERS.
01518  M00S00921.resex   +++|*
01519  M00S00922.resex   +++|*
01520  M00S00923.resex   +++|*         RESOURCE EQUIPMENT TABLE CONSISTS OF A COMBINATION OF DATA
01521  M00S00924.resex   +++|*         COLLECTED FROM THE EST, MST AND UDT TABLES.

Seq #  *Modification Id* Act 
----------------------------+
01522  M01S00925.ns21000 ---|*         THE *RET* IS THE SAME LENGTH AS THE EST AND HAS THE FORMAT-

Seq #  *Modification Id* Act 
----------------------------+
01523  M01S00035.ns21000 +++|*         EACH *RET* ENTRY IS ONE WORD IN LENGTH AND HAS THE FORMAT -
01524  M00S00926.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01525  M01S00927.ns22000 ---|*  RET    1/A,11/DT
01526  M01S00928.ns22000 ---|*                DT = DEVICE TYPE IF FLAG A NOT SET, OTHERWISE DT IS
01527  M01S00929.ns22000 ---|*                AN INDEX INTO TRSL TABLE.  EACH TRSL ENTRY IS A LIST
01528  M01S00930.ns22000 ---|*                OF EQUIVALENT RESOURCE TYPES.

Seq #  *Modification Id* Act 
----------------------------+
01529  M02S00931.ns22000 ---|*         3/0,3/CURRENT SPINDLES,3/0,3/ORIGINAL SPINDLES
01530  M02S00932.ns22000 ---|*         6/EQUIPMENT NUMBER,6/NEXT EQUIPMENT NUMBER
01531  M02S00933.ns22000 ---|*         12/EVSB INDEX + 2 (IF ANY)
01532  M02S00934.ns22000 ---|*         12/FLAGS
01533  M02S00935.ns22000 ---|*                1/ CHECKING LABELS
01534  M02S00936.ns22000 ---|*                7/

Seq #  *Modification Id* Act 
----------------------------+
01535  M02S00036.ns22000 ---|*         6/CHANNEL A, 6/CHANNEL B
01536  M02S00037.ns22000 ---|*         12/NEXT EQUIPMENT NUMBER
01537  M02S00038.ns22000 ---|*         12/EQUIPMENT NUMBER
01538  M02S00039.ns22000 ---|*         3/CURRENT SPINDLES, 3/ORIGINAL SPINDLES
01539  M02S00040.ns22000 ---|*         6/FLAGS
01540  M02S00041.ns22000 ---|*                2/

Seq #  *Modification Id* Act 
----------------------------+
01541  M01S00937.ns22000 ---|*                1/ LDAM EQUIPMENT
01542  M01S00938.ns22000 ---|*                1/ END OF CHAIN

Seq #  *Modification Id* Act 
----------------------------+
01543  M02S00939.ns22000 ---|*                1/

Seq #  *Modification Id* Act 
----------------------------+
01544  M02S00042.ns22000 ---|*                1/ EQUIPMENT *OFF*

Seq #  *Modification Id* Act 
----------------------------+
01545  M01S00940.ns22000 ---|*                1/  ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
01546  M02S00042.274l797 ---|*  RET    1/A, 11/DT, 6/CHA, 6/CHB, 12/NE, 12/EN, 3/CS, 3/OS, 6/FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01547  M01S00320.274l797 +++|*  RET    1/A, 11/DM, 6/CH1, 6/CH2, 12/NE, 12/EO, 3/CS, 3/OS, 6/FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01548  M01S00043.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01549  M02S00044.274l797 ---|*         DT     DEVICE TYPE IF FLAG *A* IS NOT SET, OTHERWISE DT IS AN
01550  M02S00045.274l797 ---|*                INDEX INTO *TRSL* TABLE.  EACH *TRSL* ENTRY IS A LIST
01551  M02S00046.274l797 ---|*                OF EQUIVALENT RESOURCE TYPES.
01552  M02S00047.274l797 ---|*         CHA    CHANNEL A FOR DISK, ACCESS LEVELS FOR TAPES

Seq #  *Modification Id* Act 
----------------------------+
01553  M01S00321.274l797 +++|*         DT     DEVICE MNEMONIC IF FLAG *A* IS NOT SET, OTHERWISE DT
01554  M01S00322.274l797 +++|*                IS AN INDEX INTO *TRSL* TABLE.  EACH *TRSL* ENTRY IS A
01555  M01S00323.274l797 +++|*                LIST OF EQUIVALENT RESOURCE TYPES.
01556  M01S00324.274l797 +++|*         CH1    CHANNEL 1 FOR DISK, ACCESS LEVELS FOR TAPES

Seq #  *Modification Id* Act 
----------------------------+
01557  M01S00048.ns22000 +++|*                3/LA, 3/UA
01558  M01S00049.ns22000 +++|*                LA = LOWER ACCESS LEVEL, FOR TAPE ONLY
01559  M01S00050.ns22000 +++|*                UA = UPPER ACCESS LEVEL, FOR TAPE ONLY

Seq #  *Modification Id* Act 
----------------------------+
01560  M02S00051.274l797 ---|*         CHB    CHANNEL B FOR DISKS

Seq #  *Modification Id* Act 
----------------------------+
01561  M01S00325.274l797 +++|*         CH2    CHANNEL 2 FOR DISKS

Seq #  *Modification Id* Act 
----------------------------+
01562  M01S00052.ns22000 +++|*         NE     NEXT EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01563  M02S00053.274l797 ---|*         EN     EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01564  M01S00326.274l797 +++|*         EO     EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01565  M01S00054.ns22000 +++|*         CS     CURRENT SPINDLES
01566  M01S00055.ns22000 +++|*         OS     ORIGINAL SPINDLES
01567  M01S00056.ns22000 +++|*         FLAGS  2/0, 1/LDAM, 1/EOC, 1/EO, 1/A
01568  M01S00057.ns22000 +++|*                LDAM = LDAM EQUIPMENT
01569  M01S00058.ns22000 +++|*                EOC  = END OF CHAIN

Seq #  *Modification Id* Act 
----------------------------+
01570  M02S00059.274l797 ---|*                EO   = EQUIPMENT *OFF*

Seq #  *Modification Id* Act 
----------------------------+
01571  M01S00327.274l797 +++|*                EO   = EQUIPMENT *OFF* OR *DOWN*

Seq #  *Modification Id* Act 
----------------------------+
01572  M01S00060.ns22000 +++|*                A    = ASSIGNED
01573  M00S00941.resex   +++|*
01574  M00S00942.resex   +++|*
01575  M00S00943.resex   +++|*         ENVIRONMENT VSN BUFFER CONSISTS OF DATA WHICH RELATES TO THE
01576  M00S00944.resex   +++|*         USAGE OF MOUNTED MAGNETIC TAPES AND REMOVABLE PACKS.

Seq #  *Modification Id* Act 
----------------------------+
01577  M01S00945.ns21000 ---|*         EACH *EVSB* ENTRY IS TWO WORDS IN LENGTH AND HAS THE FORMAT-

Seq #  *Modification Id* Act 
----------------------------+
01578  M01S00043.ns21000 +++|*         EACH *EVSB* ENTRY, CORRESPONDING IN POSITION TO ITS
01579  M01S00044.ns21000 +++|*         *RET* ENTRY, IS TWO WORDS IN LENGTH AND HAS THE FORMAT -
01580  M00S00946.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01581  M01S00947.ns22000 ---|*  EVSB   42/VSN OR PACKNAME, 9/0, 3/UC, 6/RI

Seq #  *Modification Id* Act 
----------------------------+
01582  M02S00948.ns22000 ---|*         6/EQ,6/FLAGS,12/SHARERS,12/UDT,MST ADDRESS,12/0,12/EJTO

Seq #  *Modification Id* Act 
----------------------------+
01583  M02S00045.ns22000 ---|*         12/EQ, 12/SHARERS, 6/FLAGS, 18/UDT,MST ADDRESS, 12/EJTO

Seq #  *Modification Id* Act 
----------------------------+
01584  M01S00949.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01585  M01S00061.ns22000 +++|*  EVSB   42/VSN OR PACKNAME, 6/LA, 6/UA, 6/RI
01586  M01S00062.ns22000 +++|*         12/EQ, 12/SHARERS, 6/FLAGS, 18/UDT,MST ADDRESS, 12/EJTO
01587  M01S00063.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01588  M01S00328.274l797 +++|*         NOTE - FOR ACS TAPES *VSN* IS THE EXTERNAL VSN.
01589  M01S00329.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01590  M01S00064.ns22000 +++|*         LA     LOWER ACCESS LEVEL
01591  M01S00065.ns22000 +++|*                6/0 FOR PACKS
01592  M01S00066.ns22000 +++|*                3/0, 3/LOWER ACCESS LEVEL FOR TAPES
01593  M01S00067.ns22000 +++|*         UA     UPPER ACCESS LEVEL
01594  M01S00068.ns22000 +++|*                6/UNIT COUNT FOR PACKS
01595  M01S00069.ns22000 +++|*                3/UPPER ACCESS LEVEL, 3/BYTE POINTER FOR TAPES
01596  M01S00070.ns22000 +++|*         RI     DEMAND FILE RESOURCE INDEX

Seq #  *Modification Id* Act 
----------------------------+
01597  M01S00950.ns2504  ---|*         FLAGS  1/A, 1/S, 1/U, 1/D, 2/

Seq #  *Modification Id* Act 
----------------------------+
01598  M01S00001.ns2504  +++|*         FLAGS  1/A, 1/S, 1/U, 1/D, 1/P, 1/
01599  M00S00951.resex   +++|*                A = ASSIGNED
01600  M00S00952.resex   +++|*                S = SCRATCH VSN

Seq #  *Modification Id* Act 
----------------------------+
01601  M01S00953.ns21000 ---|*                U = UNLOADED PACK WITH USER COUNT

Seq #  *Modification Id* Act 
----------------------------+
01602  M02S00046.282l826 ---|*                U = UNLOADED PACK WITH USER COUNT OR
01603  M02S00047.282l826 ---|*                    CHECKING LABELS ON TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
01604  M01S00036.282l826 +++|*                U = UNLOADED PACK WITH USER COUNT
01605  M00S00954.resex   +++|*                D = DEFAULT VSN

Seq #  *Modification Id* Act 
----------------------------+
01606  M01S00002.ns2504  +++|*                P = DEVICE SUSPECT FLAG

Seq #  *Modification Id* Act 
----------------------------+
01607  M01S00955.ns22000 ---|*         RI     DEMAND FILE RESOURCE INDEX
01608  M01S00956.ns22000 ---|*         UC     UNIT COUNT (1-8) FOR PACKS, BYTE POINTER FOR TAPES
01609  M00S00957.resex   +++|*         EJTO   EJT ORDINAL OF ASSIGNED JOB.
01610  M00S00958.resex   +++|*
01611  M00S00959.resex   +++|*
01612  M00S00960.resex   +++|*         RESOURCES DEMANDED TABLE CONSISTS OF A TWO WORD ENTRY FOR
01613  M00S00961.resex   +++|*         EACH RESOURCE WHICH IS YET TO BE SATISFIED.  THE FORMAT IS-
01614  M00S00962.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01615  M01S00963.ns21000 ---|*  RDT    12/RESOURCE TYPE,6/UNIT COUNT,30/0,6/FLAGS,6/ORIGINAL EQ
01616  M01S00964.ns21000 ---|*         6/EQ1,6/EQ2,6/EQ3,6/EQ4,6/EQ5,6/EQ6,6/EQ7,6/EQ8,12/0

Seq #  *Modification Id* Act 
----------------------------+
01617  M02S00048.ns22000 ---|*  RDT    12/RESOURCE TYPE, 6/UNIT COUNT, 6/0, 9/E1, 9/E2, 9/E3, 9/E4

Seq #  *Modification Id* Act 
----------------------------+
01618  M01S00071.ns22000 +++|*  RDT    12/RESOURCE TYPE, 6/UNIT COUNT, 6/AL, 9/E1, 9/E2, 9/E3, 9/E4,

Seq #  *Modification Id* Act 
----------------------------+
01619  M01S00049.ns21000 +++|*         12/OE, 12/0, 9/E5, 9/E6, 9/E7, 9/E8
01620  M01S00050.ns21000 +++|*                OE, E1 - E8 = *RET* ENTRY INDEX FOR EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
01621  M01S00072.ns22000 +++|*                AL = ACCESS LEVEL, TAPES ONLY
01622  M00S00965.resex   +++|*
01623  M00S00966.resex   +++|*
01624  M00S00967.resex   +++|*         RESOURCE TYPE NAMES ARE FOUND IN *RSXB*.
01625  M00S00968.resex   +++|          SPACE  4,30
01626  M00S00969.resex   +++|***       RESOURCE REQUEST BLOCK.
01627  M00S00970.resex   +++|*
01628  M00S00971.resex   +++|*         THE USER RESOURCE REQUEST BLOCK IS A COMMON REQUESTING
01629  M00S00972.resex   +++|*         MECHANISM OF THE OVERCOMMITMENT ALGORITHM FOR BOTH TAPES AND
01630  M00S00973.resex   +++|*         PACKS.  THE USER RESOURCE REQUEST BLOCK CONSISTS OF THE JOB
01631  M00S00974.resex   +++|*         DEMAND FILE ENTRY IN THE REQUEST DEMAND ENTRY BUFFER (RESB)
01632  M00S00975.resex   +++|*         AND REQUEST IDENTIFICATION INFORMATION.  THIS INFORMATION
01633  M00S00976.resex   +++|*         CONSISTS OF A REQUEST WORD (RQ) HAVING FORMAT--
01634  M00S00977.resex   +++|*
01635  M00S00978.resex   +++|*T  PACK  42/ PACKNAME,12/ RTYPE,6/UNITS

Figure PACK

01636  M00S00979.resex   +++|*         WHERE  UNITS = UNIT COUNT (1-8) IN DISPLAY CODE
01637  M00S00980.resex   +++|*                RTYPE = RESOURCE TYPE IN DISPLAY CODE
01638  M00S00981.resex   +++|*T  TAPE  36/ VSN,6/0,12/ RTYPE,6/0

Figure TAPE

01639  M00S00982.resex   +++|*
01640  M00S00983.resex   +++|*         THE REQUESTED RESOURCE INDEX (RI) HAVING FORMAT-
01641  M00S00984.resex   +++|*
01642  M00S00985.resex   +++|*T        51/0, 3/UC, 6/ RI

Figure

01643  M00S00986.resex   +++|*         WHERE  RI = DEMAND FILE RESOURCE INDEX
01644  M00S00987.resex   +++|*                UC = UNIT COUNT FOR PACKS, BYTE POINTER FOR TAPES
01645  M00S00988.resex   +++|*
01646  M00S00989.resex   +++|*         FOR 9-TRACK TAPE ASSIGNMENTS, *DD* HAS FOLLOWING FORMAT-
01647  M00S00990.resex   +++|*
01648  M00S00991.resex   +++|*T        48/ 0, 12/ DC

Figure

01649  M00S00992.resex   +++|*         WHERE  DC = DISPLAY CODE FOR 9-TRACK RESOURCE DENSITY
01650  M00S00993.resex   +++|*
01651  M00S00994.resex   +++|*         FOR 9-TRACK TAPE ASSIGNMENTS, *OI* HAS FOLLOWING FORMAT-
01652  M00S00995.resex   +++|*
01653  M00S00996.resex   +++|*T        54/ 0, 6/ DI

Figure

01654  M00S00997.resex   +++|*         WHERE  DI = ORIGINAL 9-TRACK TAPE DENSITY RESOURCE INDEX
01655  M00S00998.resex   +++|
01656  M00S00999.resex   +++|
01657  M00S01000.resex   +++| RQ       CON    0           REQUEST
01658  M00S01001.resex   +++| RI       CON    0           REQUESTED RESOURCE INDEX

Seq #  *Modification Id* Act 
----------------------------+
01659  M01S01002.274l797 ---| TM       CON    0           TIME OF REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01660  M01S00330.274l797 +++| TM       CON    0           TIME OF REQUEST (ABSOLUTE SECONDS)

Seq #  *Modification Id* Act 
----------------------------+
01661  M01S01003.282l826 ---| DD       CON    0           9-TRACK TAPE RESOURCE DENSITY DISPLAY
01662  M00S01004.resex   +++| OI       CON    0           ORIGINAL NT TAPE DENSITY RESOURCE INDEX
01663  M00S01005.resex   +++|          TITLE  OVERCOMMITMENT ALGORITHM.
01664  M00S01006.resex   +++| COM      SPACE  4,25
01665  M00S01007.resex   +++|**        COM - CHECK FOR OVERCOMMITMENT.
01666  M00S01008.resex   +++|*
01667  M00S01009.resex   +++|*         ENTRY  USER RESOURCE REQUEST BLOCK BUILT.
01668  M00S01010.resex   +++|*                VSNE = VSN ENTRY FOR TAPES.
01669  M00S01011.resex   +++|*                AT *COM4* IF ASSIGNMENT REJECTED DUE TO
01670  M00S01012.resex   +++|*                     *MAGNET* IDLEDOWN.
01671  M00S01013.resex   +++|*                AT *COM5*, IF RE-REQUEST OPERATOR ASSIGNMENT OF
01672  M00S01014.resex   +++|*                     EQUIPMENT.
01673  M00S01015.resex   +++|*                AT *COM6*, IF REQUEST OPERATOR SELECTION FOR
01674  M00S01016.resex   +++|*                     DUPLICATE VSN.
01675  M00S01017.resex   +++|*
01676  M00S01018.resex   +++|*         EXIT   (X2) = STATUS.
01677  M00S01019.resex   +++|*
01678  M00S01020.resex   +++|*         ERROR  TO *PER* IF NT DRIVE CONFLICT.
01679  M00S01021.resex   +++|*
01680  M00S01022.resex   +++|*         USES   A - 1, 2, 3, 4, 6.
01681  M00S01023.resex   +++|*                B - 2, 3, 5.
01682  M00S01024.resex   +++|*                X - ALL.
01683  M00S01025.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01684  M01S01026.282l826 ---|*         CALLS  BRE, BSF, CFU, CIC, CRC, CRQ, DEI, DLY, IRC, OCA,
01685  M01S01027.282l826 ---|*                PMM, ROA, SDT, VUR.

Seq #  *Modification Id* Act 
----------------------------+
01686  M01S00037.282l826 +++|*         CALLS  BRE, BSF, CFU, CIC, CRC, CRQ, DEI, IRC, OCA, PMM, ROA,
01687  M01S00038.282l826 +++|*                SDT, SPM.
01688  M00S01028.resex   +++|*
01689  M00S01029.resex   +++|*         MACROS MESSAGE, RETRF.
01690  M00S01030.resex   +++|
01691  M00S01031.resex   +++|
01692  M00S01032.resex   +++| COM      SUBR               ENTRY/EXIT
01693  M00S01033.resex   +++| COM1     RJ     BRE         BUILD RESOURCE ENVIRONMENT
01694  M00S01034.resex   +++|          NG     X0,COM4     IF SUBSYSTEM MISSING
01695  M00S01035.resex   +++|          RJ     CRQ         CHECK REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01696  M02S00007.274l797 ---|          SX7    B0+         CLEAR *RESOURC* COMMAND FLAG
01697  M00S01036.resex   +++|          RJ     DEI         DEMAND EXCEEDS INSTALLATION CHECK
01698  M00S01037.resex   +++|          RJ     BSF         BUILD SCRATCH FILE
01699  M00S01038.resex   +++|          RJ     CFU         CHECK FOR UNIT

Seq #  *Modification Id* Act 
----------------------------+
01700  M01S00073.ns22000 +++|          SA1    TPAL        TAPE ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
01701  M02S00074.282l826 ---|          NG     X1,COM4.2   IF ACCESS LEVEL CONFLICTS

Seq #  *Modification Id* Act 
----------------------------+
01702  M01S00039.282l826 +++|          SX6    ALC         ACCESS LEVEL CONFLICT ERROR
01703  M01S00040.282l826 +++|          NG     X1,COM8.1   IF ACCESS LEVEL CONFLICT
01704  M00S01039.resex   +++|          RJ     CIC         CHECK FOR INTERNAL CONFLICT
01705  M00S01040.resex   +++|          NZ     X2,COM8     IF DEMANDS NOT SATISFIABLE
01706  M00S01041.resex   +++|          SB2    RESB
01707  M00S01042.resex   +++|          RJ     CRC         CHECK REQUESTOR COMPLETE
01708  M00S01043.resex   +++|          ZR     X5,COM2     IF REQUESTOR COMPLETES
01709  M00S01044.resex   +++|          RJ     OCA         EXERCISE OVERCOMMITMENT ALGORITHM
01710  M00S01045.resex   +++|          SX2    /STATUS/OV
01711  M00S01046.resex   +++|          ZR     X5,COM3     IF OVERCOMMITMENT
01712  M00S01047.resex   +++| COM2     SX2    /STATUS/OK
01713  M00S01048.resex   +++| COM3     SA1    AV          CHECK IF VSN IN ENVIRONMENT
01714  M00S01049.resex   +++|          NZ     X1,COMX     IF VSN PRESENT
01715  M00S01050.resex   +++|          SX2    X2+/STATUS/MV  SET MISSING VSN
01716  M00S01051.resex   +++|          EQ     COMX        RETURN
01717  M00S01052.resex   +++|
01718  M00S01053.resex   +++|
01719  M00S01054.resex   +++|**        PROCESS SUBSYSTEM MISSING.
01720  M00S01055.resex   +++|
01721  M00S01056.resex   +++|
01722  M00S01057.resex   +++| COM4     RJ     PMM         PROCESS *MAGNET* MISSING
01723  M00S01058.resex   +++|          SA1    AA

Seq #  *Modification Id* Act 
----------------------------+
01724  M01S01059.resex4  ---|          ZR     X1,COM5     IF OPERATOR ASSIGNMENT OF EQUIPMENT
01725  M01S01060.resex4  ---|          SX6    B0+
01726  M01S01061.resex4  ---|          PL     X1,COM1     IF *ASSIGN* WITH UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01727  M01S00001.resex4  +++|          BX6    X6-X6
01728  M01S00002.resex4  +++|          SB2    X1

Seq #  *Modification Id* Act 
----------------------------+
01729  M02S00003.ns22000 ---|          GT     B2,COM4.1   IF *ASSIGN* WITH UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01730  M01S00075.ns22000 +++|          GT     B2,COM4.1   IF *ASSIGN* WITH EST ORDINAL SPECIFIED
01731  M00S01062.resex   +++|          SA6    EQ          CLEAR EQUIPMENT ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
01732  M01S00004.resex4  +++|          NG     B2,COM1     IF AUTOMATIC ASSIGNMENT
01733  M01S00005.resex4  +++| COM4.1   SA1    RQ          CLEAR VSN
01734  M01S00006.resex4  +++|          MX6    -24
01735  M01S00007.resex4  +++|          BX6    -X6*X1
01736  M01S00008.resex4  +++|          SA6    A1
01737  M00S01063.resex   +++|          EQ     COM1        RETRY OVERCOMMITMENT CHECK
01738  M00S01064.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
01739  M02S00076.v23l617 ---| COM4.2   SX7    /COMSMTX/IAL  ILLEGAL ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
01740  M02S00030.282l826 ---| COM4.2   SX7    /COMSMTX/IAL  INCORRECT ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
01741  M02S00077.282l826 ---|          RJ     VUR         VERIFY UNIT REQUEST
01742  M02S00078.282l826 ---|          SB5    -1
01743  M02S00079.282l826 ---|          RJ     IRC         DECREMENT RESOURCE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01744  M01S01065.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
01745  M01S01066.274l797 ---|**        RE-REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT OR VSN CHOICE.

Seq #  *Modification Id* Act 
----------------------------+
01746  M01S00331.274l797 +++|*         REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT.
01747  M00S01067.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
01748  M01S00332.274l797 +++| COM5     SA1    RQ          CLEAR VSN IN REQUEST
01749  M01S00333.274l797 +++|          MX6    -24
01750  M01S00334.274l797 +++|          BX6    -X6*X1
01751  M01S00335.274l797 +++|          SX4    B0          INDICATE OPERATOR ASSIGNMENT OF EQUIPMENT
01752  M01S00336.274l797 +++|          SA6    A1
01753  M01S00337.274l797 +++|          EQ     COM7        RE-REQUEST OPERATOR ASSIGNMENT
01754  M00S01068.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
01755  M01S01069.274l797 ---| COM5     SX4    B0          INDICATE OPERATOR ASSIGNMENT OF EQUIPMENT
01756  M01S01070.274l797 ---|          EQ     COM7        RE-REQUEST OPERATOR ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
01757  M01S00338.274l797 +++|*         REQUEST OPERATOR ASSIGNMENT ON DUPLICATE VSN OR VERIFY OF
01758  M01S00339.274l797 +++|*         NON-TMS TAPE REQUEST.
01759  M00S01071.resex   +++|
01760  M00S01072.resex   +++| COM6     SX4    B1+         INDICATE DUPLICATE VSN
01761  M00S01073.resex   +++| COM7     RETRF  D           RETURN DEMAND FILE AND RELEASE INTERLOCK
01762  M00S01074.resex   +++|          RJ     ROA         RE-REQUEST OPERATOR ASSIGNMENT
01763  M00S01075.resex   +++|          EQ     COM1        RETRY OVERCOMMITMENT CHECK
01764  M00S01076.resex   +++|
01765  M00S01077.resex   +++|
01766  M00S01078.resex   +++|**        PROCESS INTERNAL CONFLICT.
01767  M00S01079.resex   +++|*         VSN FOUND MOUNTED ON WRONG 9-TRACK DRIVE TYPE.
01768  M00S01080.resex   +++|
01769  M00S01081.resex   +++|
01770  M00S01082.resex   +++| COM8     SA1    OI          GET ORIGINAL TAPE DENSITY INDEX
01771  M00S01083.resex   +++|          SB2    /PER/DRC    * NT DRIVE CONFLICT.*
01772  M00S01084.resex   +++|          SX1    X1-RPEP
01773  M00S01085.resex   +++|          NZ     X1,PER      IF NOT *PE* REQUEST
01774  M00S01086.resex   +++|          SA2    AV
01775  M00S01087.resex   +++|          ZR     X2,PER      IF RESEX SELECTED DRIVE TYPE
01776  M00S01088.resex   +++|          SA3    AA
01777  M00S01089.resex   +++|          SA4    X2
01778  M00S01090.resex   +++|          SB3    X3
01779  M00S01091.resex   +++|          GT     B3,PER      IF *ASSIGN* WITH EST ORDINAL
01780  M00S01092.resex   +++|          RJ     SDT         SWITCH 9-TRACK DRIVE TYPE

Seq #  *Modification Id* Act 
----------------------------+
01781  M01S01093.282l826 ---|          SX7    /COMSMTX/DCF  DRIVE CONFLICT ERROR CODE
01782  M01S01094.282l826 ---|          RJ     VUR         SEND DRIVE CONFLICT CALL BLOCK TO MAGNET

Seq #  *Modification Id* Act 
----------------------------+
01783  M01S00041.282l826 +++|          SX6    DRC         SET DRIVE CONFLICT
01784  M01S00042.282l826 +++| COM8.1   RJ     SPM         SET PREVIEW DISPLAY MESSAGE
01785  M00S01095.resex   +++|          SA1    EQ
01786  M00S01096.resex   +++|          SX2    /STATUS/MV  SET MISSING VSN STATUS
01787  M00S01097.resex   +++|          ZR     X1,COMX     IF NO OPERATOR ASSIGNMENT
01788  M00S01098.resex   +++|          SB5    -1          DECREMENT TOTAL AND RESOURCE ASSIGN COUNTS
01789  M00S01099.resex   +++|          RJ     IRC
01790  M00S01100.resex   +++|          SA1    AA
01791  M00S01101.resex   +++|          NG     X1,COM6     IF DUPLICATE VSN
01792  M00S01102.resex   +++|          EQ     COM5        RE-REQUEST OPERATOR ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
01793  M01S01103.282l826 ---|
01794  M01S01104.282l826 ---|
01795  M01S01105.282l826 ---|**        WAIT FOR ASSIGNED UNIT TO BECOME AVAILABLE.
01796  M01S01106.282l826 ---|
01797  M01S01107.282l826 ---|
01798  M01S01108.282l826 ---| COM9     RETRF  D           RETURN DEMAND FILE AND RELEASE INTERLOCK
01799  M01S01109.282l826 ---|          SA1    EQ          ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01800  M02S01110.282l826 ---|          MX0    3
01801  M02S01111.282l826 ---|          BX5    X0*X1
01802  M02S01112.282l826 ---|          BX1    -X0*X1
01803  M02S01113.282l826 ---|          LX1    6
01804  M02S01114.282l826 ---|          SX6    X1+2R00
01805  M02S01115.282l826 ---|          LX5    9
01806  M02S01116.282l826 ---|          IX6    X6+X5
01807  M02S01117.282l826 ---|          SA1    COMB+2
01808  M02S01118.282l826 ---|          LX6    18

Seq #  *Modification Id* Act 
----------------------------+
01809  M02S00051.282l826 ---|          LX1    12
01810  M02S00052.282l826 ---|          MX0    -3
01811  M02S00053.282l826 ---|          BX5    -X0*X1
01812  M02S00054.282l826 ---|          LX1    -3
01813  M02S00055.282l826 ---|          BX6    -X0*X1
01814  M02S00056.282l826 ---|          LX1    -3
01815  M02S00057.282l826 ---|          BX1    -X0*X1
01816  M02S00058.282l826 ---|          LX1    6
01817  M02S00059.282l826 ---|          BX1    X1+X6
01818  M02S00060.282l826 ---|          LX1    6
01819  M02S00061.282l826 ---|          BX1    X1+X5
01820  M02S00062.282l826 ---|          SX6    3R000
01821  M02S00063.282l826 ---|          IX6    X6+X1
01822  M02S00064.282l826 ---|          SA1    COMB+2
01823  M02S00065.282l826 ---|          LX6    12

Seq #  *Modification Id* Act 
----------------------------+
01824  M01S01119.282l826 ---|          BX6    X6+X1
01825  M01S01120.282l826 ---|          SX1    COMB
01826  M01S01121.282l826 ---|          SA6    A1
01827  M01S01122.282l826 ---|          MESSAGE X1,2
01828  M01S01123.282l826 ---|          RJ     DLY         DELAY
01829  M01S01124.282l826 ---|          MESSAGE COMA,2     CLEAR MESSAGE
01830  M01S01125.282l826 ---|          EQ     COM1        RETRY
01831  M01S01126.282l826 ---|
01832  M01S01127.282l826 ---|
01833  M01S01128.282l826 ---| COMA     CON    0
01834  M01S01129.282l826 ---| COMB     DATA   10H  WAITING
01835  M01S01130.282l826 ---|          DATA   10HFOR READY
01836  M01S01131.282l826 ---|          VFD    30/5HUNIT ,30/0
01837  M00S01132.resex   +++|          TITLE  OVERCOMMITMENT ALGORITHM SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
01838  M01S01133.274l797 ---| BRE      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
01839  M01S00340.274l797 +++| BRE      SPACE  4,25
01840  M00S01134.resex   +++|**        BRE - BUILD RESOURCE ENVIRONMENT.
01841  M00S01135.resex   +++|*
01842  M00S01136.resex   +++|*         EXIT   DEMAND FILE INTERLOCKED AND RET AND EVSB
01843  M00S01137.resex   +++|*                TABLES BUILT.
01844  M00S01138.resex   +++|*                (X0) .LT. 0 IF *MAGNET* MISSING.
01845  M00S01139.resex   +++|*
01846  M00S01140.resex   +++|*         ERROR  TO *ERR2*, IF SUBSYSTEM COMMUNICATION ERROR.
01847  M00S01141.resex   +++|*                TO *PER*, IF RESOURCE ENVIRONMENT ERROR.
01848  M00S01142.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01849  M01S01143.274l797 ---|*         FOR REMOVABLE PACK ENTRIES WHICH ARE *DOWN*, NO RET ENTRY IS
01850  M01S01144.274l797 ---|*         MADE.  CHAIN LINKAGE IS NOT CLEARED IN THE PREVIOUS EQUIPMENT
01851  M01S01145.274l797 ---|*         RET ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01852  M02S00341.resex43 ---|*         NO *RET* ENTRY IS MADE FOR A TAPE DEVICE IF THE REMOVED
01853  M02S00342.resex43 ---|*         FROM RESOURCE ENVIRONMENT FLAG IS SET IN THE EST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01854  M01S01146.resex43 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01855  M01S01147.ns21000 ---|*         USES   A - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01856  M01S00066.ns21000 +++|*         USES   A - 0, 1, 2, 3, 4, 6, 7.
01857  M00S01148.resex   +++|*                B - 2, 3, 4, 5, 6, 7.
01858  M00S01149.resex   +++|*                X - ALL.
01859  M00S01150.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01860  M01S01151.resex43 ---|*         CALLS  CET, DLY, GRI, GRL.

Seq #  *Modification Id* Act 
----------------------------+
01861  M01S00001.resex43 +++|*         CALLS  CET, CTE, DLY, GRI, GRL.
01862  M00S01152.resex   +++|*
01863  M00S01153.resex   +++|*         MACROS CLEAR, FATRF, RDSB, RETRF.
01864  M00S01154.resex   +++|
01865  M00S01155.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
01866  M01S00067.ns21000 +++| BRE17    SX6    B3+         SAVE ENDING RET/EVSB INDEX
01867  M01S00068.ns21000 +++|          SA6    RETE
01868  M01S00069.ns21000 +++|
01869  M00S01156.resex   +++| BRE      SUBR               ENTRY/EXIT
01870  M00S01157.resex   +++|
01871  M00S01158.resex   +++|*         INTERLOCK DEMAND FILE.
01872  M00S01159.resex   +++|
01873  M00S01160.resex   +++|          RETRF  D

Seq #  *Modification Id* Act 
----------------------------+
01874  M01S01161.resex3  ---|          FATRF  D,M

Seq #  *Modification Id* Act 
----------------------------+
01875  M01S00001.resex3  +++| BRE0     FATRF  D,M
01876  M00S01162.resex   +++|
01877  M00S01163.resex   +++|*         CLEAR ENVIRONMENT.
01878  M00S01164.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
01879  M01S01165.ns21000 ---|          CLEAR  RET,ESTL+EVBL  CLEAR RET AND EVSB
01880  M01S01166.ns21000 ---|          RJ     CET         COPY EQUIPMENT STATUS TABLE
01881  M01S01167.ns21000 ---|          SB3    B0+         CLEAR EVSB POINTER
01882  M01S01168.ns21000 ---|
01883  M01S01169.ns21000 ---|*         PROCESS REMOVABLE PACKS.
01884  M01S01170.ns21000 ---|
01885  M01S01171.ns21000 ---|          SB6    ESTL
01886  M01S01172.ns21000 ---|          SX0    11B         MASK FOR INTERCHANGABLE DEVICE
01887  M01S01173.ns21000 ---|          LX0    -4
01888  M01S01174.ns21000 ---|          SB5    -B1         PRESET EST POINTER
01889  M01S01175.ns21000 ---|
01890  M01S01176.ns21000 ---| BRE1     SB5    B5+B1       READ EST ENTRY
01891  M01S01177.ns21000 ---|          SA1    B5+EST
01892  M01S01178.ns21000 ---|          BX5    X0*X1
01893  M01S01179.ns21000 ---|          EQ     B5,B6,BRE9  IF END OF EST
01894  M01S01180.ns21000 ---|          ZR     X1,BRE1     IF NO ENTRY
01895  M01S01181.ns21000 ---|          BX6    X5-X0
01896  M01S01182.ns21000 ---|          NZ     X6,BRE1     IF NOT REMOVABLE PACK
01897  M01S01183.ns21000 ---|          MX2    -12
01898  M01S01184.ns21000 ---|          BX7    -X2*X1      MST ADDRESS
01899  M01S01185.ns21000 ---|          LX1    59-53
01900  M01S01186.ns21000 ---|          NG     X1,BRE1     IF DEVICE *DOWN*

Seq #  *Modification Id* Act 
----------------------------+
01901  M01S00070.ns21000 +++|          CLEAR  RET,RETL+EVBL  CLEAR RET AND EVSB
01902  M01S00071.ns21000 +++|          SB3    B1          PRESET BEGINNING RET/EVSB INDEX

Seq #  *Modification Id* Act 
----------------------------+
01903  M02S00072.ns22000 ---|          SB5    B0          PRESET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01904  M01S00080.ns22000 +++|          SB5    B0          PRESET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01905  M02S00073.274l797 ---|          SA0    BUF2        MT/NT EST ENTRY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01906  M01S00343.274l797 +++|          SA0    BUF2        TAPE EST ENTRY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01907  M01S00074.ns21000 +++|
01908  M01S00075.ns21000 +++|*         PROCESS REMOVABLE PACKS.  SAVE EST ENTRIES FOR TAPES.
01909  M01S00076.ns21000 +++|
01910  M01S00077.ns21000 +++| BRE0.1   SB5    B5-B1
01911  M01S00078.ns21000 +++|          RJ     CET         COPY EST BLOCK
01912  M01S00079.ns21000 +++|          NG     B6,BRE9     IF END OF EST
01913  M01S00080.ns21000 +++|          SX0    B5+B1       SAVE STARTING BLOCK EST ORDINAL
01914  M01S00081.ns21000 +++|          SB6    X0+B6       SAVE ENDING BLOCK EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01915  M02S00082.ns22000 ---| BRE1     SB5    B5+B1       ADVANCE EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01916  M01S00081.ns22000 +++| BRE1     SB5    B5+B1       ADVANCE EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01917  M01S00083.ns21000 +++|          EQ     B5,B6,BRE0.1  IF END OF EST BLOCK
01918  M01S00084.ns21000 +++|          SX1    B5          GET NEXT EST ENTRY
01919  M01S00085.ns21000 +++|          R=     X2,ESTE
01920  M01S00086.ns21000 +++|          IX1    X1-X0
01921  M01S00087.ns21000 +++|          SX3    11B
01922  M01S00088.ns21000 +++|          IX1    X1*X2
01923  M01S00089.ns21000 +++|          LX3    -4

Seq #  *Modification Id* Act 
----------------------------+
01924  M02S00090.274l797 ---|          SA4    SBUF2+X1

Seq #  *Modification Id* Act 
----------------------------+
01925  M01S00344.274l797 +++|          SA4    SBUF2+EQDE+X1  GET *EQDE*

Seq #  *Modification Id* Act 
----------------------------+
01926  M01S00091.ns21000 +++|          BX5    X3*X4
01927  M01S00092.ns21000 +++|          ZR     X4,BRE1     IF NO ENTRY
01928  M01S00093.ns21000 +++|          BX6    X5-X3
01929  M01S00094.ns21000 +++|          MX2    -12
01930  M01S00095.ns21000 +++|          ZR     X6,BRE1.2   IF REMOVABLE PACK

Seq #  *Modification Id* Act 
----------------------------+
01931  M02S00096.274l797 ---|          MX3    -11         CHECK FOR MT/NT DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
01932  M01S00097.ns21000 +++|          BX6    X2*X4
01933  M01S00098.ns21000 +++|          LX4    -12

Seq #  *Modification Id* Act 
----------------------------+
01934  M02S00099.274l797 ---|          BX3    -X3*X4
01935  M02S00100.274l797 ---|          SX1    X3-2RMT
01936  M02S00101.274l797 ---|          ZR     X1,BRE1.1   IF MT DEVICE TYPE
01937  M02S00102.274l797 ---|          SX1    X3-2RNT
01938  M02S00103.274l797 ---|          NZ     X1,BRE1     IF NOT NT DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
01939  M03S00104.274l797 ---| BRE1.1   SX7    B5          SAVE EQUIPMENT NUMBER AND EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01940  M02S00082.274l797 ---| BRE1.1   SX7    B5          SAVE EST ORDINAL AND EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01941  M01S00345.274l797 +++|          BX7    -X2*X4      DEVICE CODE
01942  M01S00346.274l797 +++|          RJ     CTE         CHECK FOR TAPE EQUIPMENT
01943  M01S00347.274l797 +++|          ZR     X2,BRE1     IF NOT TAPE DEVICE
01944  M01S00348.274l797 +++|          SA1    A4+B1
01945  M01S00349.274l797 +++|          ERRNZ  EQAE-EQDE-1

Seq #  *Modification Id* Act 
----------------------------+
01946  M02S00350.resex43 ---|          LX1    59-6
01947  M02S00351.resex43 ---|          NG     X1,BRE1     IF DEVICE NOT IN RESOURCE ENVIRONMENT

Seq #  *Modification Id* Act 
----------------------------+
01948  M01S00352.274l797 +++|          SX7    B5          SAVE EST ORDINAL AND EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01949  M01S00105.ns21000 +++|          BX6    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
01950  M02S00083.274l797 ---|          SA1    A4+B1       SECOND WORD OF EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01951  M02S00353.resex43 ---|          LX1    6-59

Seq #  *Modification Id* Act 
----------------------------+
01952  M01S00084.ns22000 +++|          MX2    6
01953  M01S00085.ns22000 +++|          LX2    17-59
01954  M01S00086.ns22000 +++|          BX1    X1*X2
01955  M01S00087.ns22000 +++|          LX1    12
01956  M01S00088.ns22000 +++|          LX2    12
01957  M01S00089.ns22000 +++|          BX6    -X2*X6      CLEAR *AL* FIELD
01958  M01S00090.ns22000 +++|          BX6    X1+X6       SAVE *AL* FIELD OF EST

Seq #  *Modification Id* Act 
----------------------------+
01959  M01S00106.ns21000 +++|          SA6    A0
01960  M01S00107.ns21000 +++|          SA0    A0+B1
01961  M01S00108.ns21000 +++|          EQ     BRE1        CONTINUE EST SCAN
01962  M01S00109.ns21000 +++|
01963  M01S00110.ns21000 +++| BRE1.2   BX7    -X2*X4      MST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01964  M02S00111.251l670 ---|          LX4    59-53
01965  M02S00112.251l670 ---|          NG     X4,BRE1     IF DEVICE *DOWN*

Seq #  *Modification Id* Act 
----------------------------+
01966  M01S01187.251l670 ---|          SA7    BREA        SAVE MST ADDRESS
01967  M01S01188.251l670 ---|          LX7    3
01968  M01S01189.251l670 ---|          MX6    1

Seq #  *Modification Id* Act 
----------------------------+
01969  M02S00001.274l797 ---|          MX2    -2
01970  M02S00002.274l797 ---|          LX4    -48         POSITION DEVICE STATE
01971  M02S00003.274l797 ---|          BX2    -X2*X4

Seq #  *Modification Id* Act 
----------------------------+
01972  M01S00004.251l670 +++|          SA7    BREA        SAVE MST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01973  M02S00005.274l797 ---|          SX2    X2-3
01974  M02S00006.274l797 ---|          ZR     X2,BRE1     IF DEVICE *DOWN*

Seq #  *Modification Id* Act 
----------------------------+
01975  M01S00007.251l670 +++|          MX6    1
01976  M01S00008.251l670 +++|          LX7    3
01977  M00S01190.resex   +++|          SA6    BUF
01978  M00S01191.resex   +++|          RDSB   0,MSTL,X7,A6  READ MST

Seq #  *Modification Id* Act 
----------------------------+
01979  M01S01192.ns21000 ---|          SA4    B5+EST      READ EST ENTRY
01980  M00S01193.resex   +++|          MX2    -11

Seq #  *Modification Id* Act 
----------------------------+
01981  M01S01194.ns21000 ---|          LX4    48

Seq #  *Modification Id* Act 
----------------------------+
01982  M02S00113.251l670 ---|          LX4    48-59+53

Seq #  *Modification Id* Act 
----------------------------+
01983  M02S00009.252l678 ---|          LX4    48-12

Seq #  *Modification Id* Act 
----------------------------+
01984  M02S00071.274l797 ---|          LX4    -12+48

Seq #  *Modification Id* Act 
----------------------------+
01985  M01S00354.274l797 +++|          LX4    -12
01986  M00S01195.resex   +++|          BX7    -X2*X4      DEVICE TYPE
01987  M00S01196.resex   +++|          MX2    -3
01988  M00S01197.resex   +++|          SA3    BUF+DDLL    NUMBER OF UNITS
01989  M00S01198.resex   +++|          LX3    12
01990  M00S01199.resex   +++|          BX5    -X2*X3

Seq #  *Modification Id* Act 
----------------------------+
01991  M01S01200.ns21000 ---|          LX4    59-54-48
01992  M00S01201.resex   +++|          LX7    6
01993  M00S01202.resex   +++|          SX2    X5+1R1
01994  M00S01203.resex   +++|          BX1    X7+X2
01995  M00S01204.resex   +++|          LX1    42
01996  M00S01205.resex   +++|          AX7    6
01997  M00S01206.resex   +++|          RJ     GRI         GET RESOURCE INDEX
01998  M00S01207.resex   +++|          ZR     B2,BRE16    IF NO MATCH
01999  M00S01208.resex   +++|          SA2    BREB        MASK FOR FULL TRACK CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
02000  M01S01209.252l678 ---|          SA1    BUF+DILL

Seq #  *Modification Id* Act 
----------------------------+
02001  M01S00072.252l678 +++|          LX4    12
02002  M01S00073.252l678 +++|          BX1    X4-X2
02003  M00S01210.resex   +++|          SB7    X6
02004  M00S01211.resex   +++|          BX6    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
02005  M01S00074.252l678 +++|          SA1    BUF+DILL
02006  M00S01212.resex   +++|          LX1    59-22

Seq #  *Modification Id* Act 
----------------------------+
02007  M01S01213.251l670 ---|          NG     X1,BRE2     IF 819 DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02008  M01S00010.251l670 +++|          NG     X1,BRE2     IF BUFFERED DEVICE
02009  M00S01214.resex   +++|          ZR     X6,BRE2     IF NOT CONNECTED TO FULL TRACK CONTROLLER
02010  M00S01215.resex   +++|          SB4    TRSLL1
02011  M00S01216.resex   +++|          RJ     GRL         GET INDEX OF RESOURCE LIST

Seq #  *Modification Id* Act 
----------------------------+
02012  M01S01217.ns21000 ---|          NG     B4,BRE16    IF RESOURCE NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
02013  M01S00114.ns21000 +++|          NG     B4,BRE2     IF RESOURCE NOT FOUND
02014  M00S01218.resex   +++|          SX7    B4+4000B    SET RESOURCE LIST INDICATOR AND FLAG

Seq #  *Modification Id* Act 
----------------------------+
02015  M01S01219.ns22000 ---| BRE2     SA3    BUF+STLL

Seq #  *Modification Id* Act 
----------------------------+
02016  M01S00091.ns22000 +++| BRE2     SA3    BUF+DDLL
02017  M00S01220.resex   +++|          SA1    BUF+PFGL

Seq #  *Modification Id* Act 
----------------------------+
02018  M01S01221.ns21000 ---|          LX7    6

Seq #  *Modification Id* Act 
----------------------------+
02019  M02S00115.252l678 ---|          MX2    12
02020  M02S00116.252l678 ---|          LX4    12-48
02021  M02S00117.252l678 ---|          BX2    X2*X4       CHANNELS
02022  M02S00118.252l678 ---|          BX7    X7+X2

Seq #  *Modification Id* Act 
----------------------------+
02023  M01S00075.252l678 +++|          MX2    6
02024  M01S00076.252l678 +++|          LX4    59-41
02025  M01S00077.252l678 +++|          BX2    X2*X4
02026  M01S00078.252l678 +++|          BX7    X7+X2       CHANNEL 1
02027  M01S00079.252l678 +++|          LX4    59-29-59+41
02028  M01S00080.252l678 +++|          MX2    6
02029  M01S00081.252l678 +++|          BX2    X2*X4
02030  M01S00082.252l678 +++|          LX2    -6
02031  M01S00083.252l678 +++|          BX7    X7+X2       CHANNEL 2

Seq #  *Modification Id* Act 
----------------------------+
02032  M01S00119.ns21000 +++|          LX7    0-9-12
02033  M00S01222.resex   +++|          BX7    X7+X5
02034  M00S01223.resex   +++|          MX2    -3

Seq #  *Modification Id* Act 
----------------------------+
02035  M01S01224.ns22000 ---|          LX3    -3

Seq #  *Modification Id* Act 
----------------------------+
02036  M01S00092.ns22000 +++|          LX3    -51
02037  M00S01225.resex   +++|          BX5    -X2*X1      NUMBER OF MULTI-UNITS

Seq #  *Modification Id* Act 
----------------------------+
02038  M01S01226.ns21000 ---|          LX7    6

Seq #  *Modification Id* Act 
----------------------------+
02039  M01S00120.ns21000 +++|          LX7    3
02040  M00S01227.resex   +++|          BX6    -X2*X3      ORIGINAL NUMBER OF UNITS
02041  M00S01228.resex   +++|          LX1    -3

Seq #  *Modification Id* Act 
----------------------------+
02042  M01S00093.ns22000 +++|          SA3    BUF+STLL
02043  M00S01229.resex   +++|          BX7    X7+X6
02044  M00S01230.resex   +++|          LX3    -3
02045  M00S01231.resex   +++|          BX1    -X2*X1      RELATIVE UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
02046  M01S01232.ns22000 ---|          MX2    -6

Seq #  *Modification Id* Act 
----------------------------+
02047  M01S00094.ns22000 +++|          MX2    -9

Seq #  *Modification Id* Act 
----------------------------+
02048  M01S01233.ns21000 ---|          LX7    6
02049  M01S01234.ns21000 ---|          SX6    B5
02050  M01S01235.ns21000 ---|          BX7    X7+X6       EQUIPMENT
02051  M01S01236.ns21000 ---|          LX7    6
02052  M01S01237.ns21000 ---|          BX6    -X2*X3      NEXT EQUIPMENT
02053  M01S01238.ns21000 ---|          BX7    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
02054  M01S00121.ns21000 +++|          BX6    -X2*X3      NEXT EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
02055  M02S00122.252l678 ---|          LX4    59-54-12

Seq #  *Modification Id* Act 
----------------------------+
02056  M01S00084.252l678 +++|          LX4    59-54-59+29

Seq #  *Modification Id* Act 
----------------------------+
02057  M02S00123.ns22000 ---|          SX2    B5          EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
02058  M01S00095.ns22000 +++|          SX2    B5          EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
02059  M01S00124.ns21000 +++|          LX6    12
02060  M01S00125.ns21000 +++|          BX6    X6+X2
02061  M01S00126.ns21000 +++|          LX6    12
02062  M00S01239.resex   +++|          MX2    -1
02063  M00S01240.resex   +++|          BX1    X1-X5

Seq #  *Modification Id* Act 
----------------------------+
02064  M01S01241.ns21000 ---|          LX7    24

Seq #  *Modification Id* Act 
----------------------------+
02065  M01S00127.ns21000 +++|          LX7    6
02066  M00S01242.resex   +++|          BX2    -X2*X4      LDAM STATUS

Seq #  *Modification Id* Act 
----------------------------+
02067  M01S00128.ns21000 +++|          BX7    X7+X6
02068  M00S01243.resex   +++|          LX2    3
02069  M00S01244.resex   +++|          BX7    X7+X2
02070  M00S01245.resex   +++|          SX6    4
02071  M00S01246.resex   +++|          BX5    X4
02072  M00S01247.resex   +++|          NZ     X1,BRE3     IF NOT END OF CHAIN
02073  M00S01248.resex   +++|          BX7    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
02074  M01S01249.resex15 ---| BRE3     LX3    -6          GET USER COUNT

Seq #  *Modification Id* Act 
----------------------------+
02075  M01S00001.resex15 +++| BRE3     LX3    -12+3       GET USER COUNT
02076  M00S01250.resex   +++|          MX2    -12

Seq #  *Modification Id* Act 
----------------------------+
02077  M01S01251.ns21000 ---|          LX5    2-23-59+54

Seq #  *Modification Id* Act 
----------------------------+
02078  M02S00129.251l670 ---|          LX5    1-23-59+54

Seq #  *Modification Id* Act 
----------------------------+
02079  M01S00011.251l670 +++|          LX5    54-59+1-49

Seq #  *Modification Id* Act 
----------------------------+
02080  M01S00130.ns21000 +++|          SX6    B1+B1
02081  M00S01252.resex   +++|          BX2    -X2*X3

Seq #  *Modification Id* Act 
----------------------------+
02082  M02S00131.274l797 ---|          BX1    X6*X5       SAVE *OFF* FLAG

Seq #  *Modification Id* Act 
----------------------------+
02083  M01S00355.274l797 +++|          BX1    X6*X5       SAVE *OFF*/*DOWN* FLAG

Seq #  *Modification Id* Act 
----------------------------+
02084  M01S00132.ns21000 +++|          BX7    X7+X1

Seq #  *Modification Id* Act 
----------------------------+
02085  M01S01253.274l797 ---|          BX5    -X5*X6      GET *OFF* FLAG

Seq #  *Modification Id* Act 
----------------------------+
02086  M01S00356.274l797 +++|          BX5    -X5*X6      GET *OFF*/*DOWN* FLAG

Seq #  *Modification Id* Act 
----------------------------+
02087  M01S01254.ns21000 ---|          SA7    RET+B5      ENTER RESOURCE EQUIPMENT TABLE

Seq #  *Modification Id* Act 
----------------------------+
02088  M01S00133.ns21000 +++|          SA7    RET+B3      ENTER RESOURCE EQUIPMENT TABLE
02089  M01S00134.ns21000 +++|          SX6    B3-RETL
02090  M01S00135.ns21000 +++|          ZR     X6,BRE16    IF TABLE OVERFLOW
02091  M01S00136.ns21000 +++|          SB3    B3+B1
02092  M00S01255.resex   +++|          BX1    X2+X5

Seq #  *Modification Id* Act 
----------------------------+
02093  M01S01256.274l797 ---|          ZR     X1,BRE1     IF DEVICE *OFF* WITH NO USER COUNT

Seq #  *Modification Id* Act 
----------------------------+
02094  M01S00357.274l797 +++|          ZR     X1,BRE1     IF DEVICE *OFF*/*DOWN* WITH NO USER COUNT
02095  M00S01257.resex   +++|          SA1    BUF+MDGL    CHECK FOR FAMILY DEVICE
02096  M00S01258.resex   +++|          NG     X4,BRE1     IF DEVICE UNAVAILABLE
02097  M00S01259.resex   +++|          LX1    59-58
02098  M00S01260.resex   +++|          MX6    1
02099  M00S01261.resex   +++|          PL     X1,BRE1     IF FAMILY DEVICE
02100  M00S01262.resex   +++|          SA4    BUF+PFGL
02101  M00S01263.resex   +++|          LX3    59-51+12
02102  M00S01264.resex   +++|          SX7    B5

Seq #  *Modification Id* Act 
----------------------------+
02103  M01S01265.274l797 ---|          ZR     X5,BRE4     IF DEVICE *OFF* WITH USER COUNT

Seq #  *Modification Id* Act 
----------------------------+
02104  M01S00358.274l797 +++|          ZR     X5,BRE4     IF DEVICE *OFF*/*DOWN* WITH USER COUNT
02105  M00S01266.resex   +++|          PL     X3,BRE5     IF PACK NOT UNLOADED
02106  M00S01267.resex   +++|          ZR     X2,BRE1     IF NO USER COUNT

Seq #  *Modification Id* Act 
----------------------------+
02107  M01S01268.ns21000 ---| BRE4     LX6    51-59+6     SET UNLOAD FLAG

Seq #  *Modification Id* Act 
----------------------------+
02108  M01S00137.ns21000 +++| BRE4     LX6    33-59+12    SET UNLOAD FLAG
02109  M00S01269.resex   +++|          BX7    X7+X6

Seq #  *Modification Id* Act 
----------------------------+
02110  M01S01270.ns2504  ---| BRE5     MX1    42

Seq #  *Modification Id* Act 
----------------------------+
02111  M01S00003.ns2504  +++| BRE5     SA1    BUF+DALL
02112  M01S00004.ns2504  +++|          LX1    59-55
02113  M01S00005.ns2504  +++|          MX6    1
02114  M01S00006.ns2504  +++|          BX6    X6*X1       GET SUSPECT STATUS
02115  M01S00007.ns2504  +++|          LX6    31-59+12
02116  M01S00008.ns2504  +++|          BX7    X6+X7       SET SUSPECT FLAG
02117  M01S00009.ns2504  +++|          MX1    42

Seq #  *Modification Id* Act 
----------------------------+
02118  M01S01271.ns21000 ---|          BX4    X1*X4
02119  M01S01272.ns21000 ---|          SA1    BREA
02120  M01S01273.ns21000 ---|          SX5    B7
02121  M01S01274.ns21000 ---|          LX7    30

Seq #  *Modification Id* Act 
----------------------------+
02122  M01S00138.ns21000 +++|          BX4    X1*X4       PACKNAME
02123  M01S00139.ns21000 +++|          SA1    BREA        MST ADDRESS
02124  M01S00140.ns21000 +++|          SX5    B7          UNIT COUNT
02125  M01S00141.ns21000 +++|          LX7    -24
02126  M00S01275.resex   +++|          BX6    X5+X4       PACKNAME/INDEX
02127  M00S01276.resex   +++|          BX7    X7+X1

Seq #  *Modification Id* Act 
----------------------------+
02128  M01S01277.ns21000 ---|          LX7    24
02129  M01S01278.ns21000 ---|          MX5    1
02130  M01S01279.ns21000 ---|          SA6    EVSB+B3     ENTER EVSB WORD 1
02131  M01S01280.ns21000 ---|          ZR     X2,BRE6     IF NO USERS
02132  M01S01281.ns21000 ---|          LX5    -6
02133  M01S01282.ns21000 ---|          BX7    X7+X5       SET ASSIGNED BIT
02134  M01S01283.ns21000 ---| BRE6     SA7    A6+B1       ENTER EVSB WORD 2
02135  M01S01284.ns21000 ---|          SB3    B3+2
02136  M01S01285.ns21000 ---|          SX7    B3
02137  M01S01286.ns21000 ---|          SX6    B3-EVBL+2
02138  M01S01287.ns21000 ---|          ZR     X6,BRE16    IF TABLE FULL
02139  M01S01288.ns21000 ---|          SA1    B5+RET      SET EVSB POINTER IN RET ENTRY
02140  M01S01289.ns21000 ---|          LX7    12
02141  M01S01290.ns21000 ---|          BX7    X7+X1
02142  M01S01291.ns21000 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
02143  M01S00142.ns21000 +++|          LX7    12
02144  M01S00143.ns21000 +++|          SB2    B3+B3
02145  M01S00144.ns21000 +++|          SA6    EVSB-2+B2   ENTER EVSB WORD 1
02146  M01S00145.ns21000 +++|          SA7    A6+B1       ENTER EVSB WORD 2
02147  M01S00146.ns21000 +++|          ZR     X2,BRE1     IF NO USERS
02148  M01S00147.ns21000 +++|          MX5    1
02149  M01S00148.ns21000 +++|          LX5    35-59
02150  M01S00149.ns21000 +++|          BX7    X7+X5
02151  M01S00150.ns21000 +++|          SA7    A7
02152  M00S01292.resex   +++|          EQ     BRE1        PROCESS NEXT EQUIPMENT
02153  M00S01293.resex   +++|
02154  M00S01294.resex   +++|*         READ UDT,S FROM MAGNET.
02155  M00S01295.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
02156  M01S01296.282l826 ---| BRE7     SA2    SBUF2+/COMSMTX/USWP  CHECK FOR UNIT SWAP/EXTERNAL CALL
02157  M01S01297.282l826 ---|          SA3    A2+B1
02158  M01S01298.282l826 ---|          BX2    X2+X3
02159  M01S01299.282l826 ---|          SA3    A3+B1
02160  M01S01300.282l826 ---|          BX2    X2+X3
02161  M01S01301.282l826 ---|          NZ     X2,BRE8     IF UNIT SWAP/EXTERNAL CALLS IN PROGRESS
02162  M01S01302.282l826 ---|          NG     X2,BRE8     IF UNIT SWAP/EXTERNAL CALLS IN PROGRESS
02163  M01S01303.282l826 ---|          SA4    SBUF2+/COMSMTX/UBUF  INITIALIZE POINTERS TO READ UDT-S

Seq #  *Modification Id* Act 
----------------------------+
02164  M01S00043.282l826 +++| BRE7     SA4    SBUF2+/COMSMTX/UBUF  INITIALIZE POINTERS TO READ UDT-S
02165  M00S01304.resex   +++|          SB2    -100B

Seq #  *Modification Id* Act 
----------------------------+
02166  M01S01305.ns21000 ---|          ZR     X4,BREX     IF UDT POINTER ZERO

Seq #  *Modification Id* Act 
----------------------------+
02167  M01S00151.ns21000 +++|          ZR     X4,BRE17    IF UDT POINTER ZERO
02168  M00S01306.resex   +++|          SX6    X4
02169  M00S01307.resex   +++|          AX4    24
02170  M00S01308.resex   +++|          SA6    BREA
02171  M00S01309.resex   +++|          SX7    B2+SBUF2
02172  M00S01310.resex   +++|          SA7    A6+1
02173  M00S01311.resex   +++|          SX7    X6+B2
02174  M00S01312.resex   +++|          SA7    A7+B1
02175  M00S01313.resex   +++|          SX7    X4+B1
02176  M00S01314.resex   +++|          SA7    A7+B1
02177  M00S01315.resex   +++|          SA1    SBUF2       SET *MAGNET* IDLEDOWN INDICATOR
02178  M00S01316.resex   +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
02179  M01S01317.resex5  ---|          LX6    59-13

Seq #  *Modification Id* Act 
----------------------------+
02180  M01S00001.resex5  +++|          LX6    59-15
02181  M00S01318.resex   +++|          SA6    MIDI
02182  M00S01319.resex   +++|          EQ     BRE11       READ UDT,S
02183  M00S01320.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
02184  M01S01321.resex3  ---| BRE8     RJ     DLY         WAIT FOR MAGNET TO COMPLETE EXTERNAL CALLS

Seq #  *Modification Id* Act 
----------------------------+
02185  M01S00002.resex3  +++| BRE8     RETRF  D           RETURN DEMAND FILE
02186  M01S00003.resex3  +++|          RJ     DLY         WAIT FOR *MAGNET* EXTERNAL CALLS
02187  M01S00004.resex3  +++|          EQ     BRE0        RETRY BUILD OF ENVIRONMENT
02188  M01S00005.resex3  +++|

Seq #  *Modification Id* Act 
----------------------------+
02189  M01S01322.ns21000 ---| BRE9     SX6    SBUF2       SET UP TO READ UDT POINTER WORD
02190  M01S01323.ns21000 ---|          SX7    B0          READ FROM *MAGNET* RA+0

Seq #  *Modification Id* Act 
----------------------------+
02191  M01S00152.ns21000 +++| BRE9     SX6    B3          SAVE RET/EVSB TAPE INDEX
02192  M01S00153.ns21000 +++|          BX7    X7-X7       READ FROM *MAGNET* RA+0
02193  M01S00154.ns21000 +++|          SA6    RETI
02194  M01S00155.ns21000 +++|          SX6    SBUF2       SET UP TO READ UDT POINTER WORD

Seq #  *Modification Id* Act 
----------------------------+
02195  M02S00156.274l797 ---|          SA7    A0          SET END OF MT/NT EST ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
02196  M01S00359.274l797 +++|          SA7    A0          SET END OF TAPE EST ENTRIES
02197  M00S01324.resex   +++|          MX0    1           PRESET *MAGNET* MISSING FLAG

Seq #  *Modification Id* Act 
----------------------------+
02198  M01S01325.282l826 ---|          SX5    /COMSMTX/XREQ+2

Seq #  *Modification Id* Act 
----------------------------+
02199  M01S00044.282l826 +++|          SX5    /COMSMTX/UBUF+1  SET WORD COUNT
02200  M00S01326.resex   +++|          SA7    BREA
02201  M00S01327.resex   +++| BRE10    RDSB   MTSI,X5,X7,X6,X  READ UDT WORD
02202  M00S01328.resex   +++|          SA2    SS          READ STATUS WORD
02203  M00S01329.resex   +++|          NG     X2,BRE11    IF TRANSFER COMPLETE
02204  M00S01330.resex   +++|          LX2    1
02205  M00S01331.resex   +++|          PL     X2,ERR2     IF SYSTEM COMMUNICATION ERROR
02206  M00S01332.resex   +++|          EQ     BREX        RETURN WITH *MAGNET* MISSING STATUS
02207  M00S01333.resex   +++|
02208  M00S01334.resex   +++| BRE11    SA2    BREA
02209  M00S01335.resex   +++|          ZR     X2,BRE7     IF POINTER READ
02210  M00S01336.resex   +++|          SA2    A2+B1
02211  M00S01337.resex   +++|          SA3    A2+B1
02212  M00S01338.resex   +++|          SB2    100B
02213  M00S01339.resex   +++|          SA4    A3+B1
02214  M00S01340.resex   +++|          SX6    X2+B2
02215  M00S01341.resex   +++|          SX7    X3+B2
02216  M00S01342.resex   +++|          SA6    A2
02217  M00S01343.resex   +++|          SA7    A3
02218  M00S01344.resex   +++|          SB7    X7+B2
02219  M00S01345.resex   +++|          SX5    B2
02220  M00S01346.resex   +++|          SB5    X4
02221  M00S01347.resex   +++|          GE     B5,B7,BRE10 IF MORE THAN 100 WORD BLOCKS TO TRANSFER
02222  M00S01348.resex   +++|          SB7    /COMSMTX/UNITL
02223  M00S01349.resex   +++|          IX5    X4-X7
02224  M00S01350.resex   +++|          PL     X5,BRE10    IF LAST SHORT BLOCK TO TRANSFER
02225  M00S01351.resex   +++|          SB5    -B7
02226  M00S01352.resex   +++|
02227  M00S01353.resex   +++|*         PROCESS MAGNETIC TAPES.
02228  M00S01354.resex   +++|
02229  M00S01355.resex   +++| BRE12    SB5    B5+B7
02230  M00S01356.resex   +++|          SA2    B5+SBUF2
02231  M00S01357.resex   +++|          SX0    B1          SET ENVIRONMENT BUILD COMPLETE STATUS

Seq #  *Modification Id* Act 
----------------------------+
02232  M01S01358.ns21000 ---|          NG     X2,BREX     IF ALL UDTS PROCESSED
02233  M01S01359.ns21000 ---|          SA1    B5+SBUF2+/COMSMTX/UST1

Seq #  *Modification Id* Act 
----------------------------+
02234  M01S00157.ns21000 +++|          NG     X2,BRE17    IF ALL UDTS PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
02235  M02S00360.282l826 ---|          SA4    B5+SBUF2+/COMSMTX/UJID

Seq #  *Modification Id* Act 
----------------------------+
02236  M01S00045.282l826 +++|          SA4    B5+SBUF2+/COMSMTX/UST4

Seq #  *Modification Id* Act 
----------------------------+
02237  M01S00158.ns21000 +++|          SA3    B5+SBUF2+/COMSMTX/UST1

Seq #  *Modification Id* Act 
----------------------------+
02238  M01S01360.274l797 ---|          SX0    2RMT        SET MT RESOURCE

Seq #  *Modification Id* Act 
----------------------------+
02239  M02S01361.274l797 ---|          SX5    RMTP+100B

Seq #  *Modification Id* Act 
----------------------------+
02240  M02S00096.274l797 ---|          SX5    RMTP

Seq #  *Modification Id* Act 
----------------------------+
02241  M02S01362.274l797 ---|          BX3    X1
02242  M02S01363.274l797 ---|          LX1    59-36
02243  M02S01364.274l797 ---|          PL     X1,BRE13    IF MT DRIVE

Seq #  *Modification Id* Act 
----------------------------+
02244  M02S00159.274l797 ---|          LX3    59-36
02245  M02S00160.274l797 ---|          PL     X3,BRE13    IF MT DRIVE

Seq #  *Modification Id* Act 
----------------------------+
02246  M01S00361.274l797 +++|          MX0    -2

Seq #  *Modification Id* Act 
----------------------------+
02247  M02S00362.282l826 ---|          LX4    -55

Seq #  *Modification Id* Act 
----------------------------+
02248  M01S00046.282l826 +++|          LX4    0-55

Seq #  *Modification Id* Act 
----------------------------+
02249  M01S00363.274l797 +++|          LX3    59-37
02250  M01S00364.274l797 +++|          BX4    -X0*X4      TAPE DEVICE TYPE
02251  M01S00365.274l797 +++|          SA5    TTDV+X4
02252  M01S00366.274l797 +++|          SX0    X5          SET DEVICE MNEMONIC
02253  M01S00367.274l797 +++|          SX4    X4-/COMSMTX/DVNT
02254  M01S00368.274l797 +++|          AX5    18          SET RESOURCE TYPE
02255  M01S00369.274l797 +++|          NZ     X4,BRE13    IF NOT *NT* DEVICE
02256  M00S01365.resex   +++|          SX0    TRHD+4000B  SET HD, PE, NT RESOURCE LIST

Seq #  *Modification Id* Act 
----------------------------+
02257  M01S01366.ns21000 ---|          LX1    59-37-59+36 CHECK FOR GCR DRIVE

Seq #  *Modification Id* Act 
----------------------------+
02258  M02S00161.274l797 ---|          LX3    59-37-59+36 CHECK FOR GCR DRIVE

Seq #  *Modification Id* Act 
----------------------------+
02259  M01S01367.ns22000 ---|          SX5    RHDP+100B

Seq #  *Modification Id* Act 
----------------------------+
02260  M01S00097.ns22000 +++|          SX5    RHDP

Seq #  *Modification Id* Act 
----------------------------+
02261  M01S01368.ns21000 ---|          PL     X1,BRE13    IF 800/1600 NT DRIVE

Seq #  *Modification Id* Act 
----------------------------+
02262  M01S00162.ns21000 +++|          PL     X3,BRE13    IF 800/1600 NT DRIVE
02263  M00S01369.resex   +++|          SX0    TRGE+4000B  SET PE, GE RESOURCE LIST

Seq #  *Modification Id* Act 
----------------------------+
02264  M01S01370.ns22000 ---|          SX5    RGEP+100B

Seq #  *Modification Id* Act 
----------------------------+
02265  M01S00098.ns22000 +++|          SX5    RGEP

Seq #  *Modification Id* Act 
----------------------------+
02266  M01S01371.282l826 ---| BRE13    SA4    B5+SBUF2+/COMSMTX/UST4

Proceed to Part 2