Deck MAGNET Part 004

50 Modifications

Seq #  *Modification Id* Act 
----------------------------+
04270  M01S00884.282l826 +++|*         FIRST BECOMES ACCESSIBLE TO CHECK THE UNIT HARDWARE.

Seq #  *Modification Id* Act 
----------------------------+
04271  M01S01609.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04272  M02S01610.282l826 ---| CUA4     SX0    X0-1
04273  M02S01611.282l826 ---|          NZ     X0,CUA1     IF UNIT BUSY OR NOT READY

Seq #  *Modification Id* Act 
----------------------------+
04274  M01S00885.282l826 +++| CUA4     SA3    A0+UDS4
04275  M01S00886.282l826 +++|          LX0    59-1
04276  M01S00887.282l826 +++|          LX2    59-43-59+49
04277  M01S00888.282l826 +++|          NG     X0,CUA1     IF UNIT BUSY
04278  M01S00889.282l826 +++|          PL     X6,CUA1     IF UNIT NOT ACCESSIBLE

Seq #  *Modification Id* Act 
----------------------------+
04279  M01S01612.274l797 +++|          SX7    PCLA        INITIATE LABEL CHECK

Seq #  *Modification Id* Act 
----------------------------+
04280  M01S00890.282l826 +++|          NZ     X0,CUA5     IF UNIT READY
04281  M01S00891.282l826 +++|          NG     X2,CUA1     IF CTS UNIT
04282  M01S00892.282l826 +++|          NZ     X3,CUA1     IF INITIAL UNIT CHECK COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
04283  M01S01613.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04284  M02S01246.274l797 ---|          BX7    X4+X1

Seq #  *Modification Id* Act 
----------------------------+
04285  M03S01247.274l797 ---|          SA7    A1          INSURE READY STATUS

Seq #  *Modification Id* Act 
----------------------------+
04286  M03S00009.274l797 ---|          SA7    A1+         INSURE READY STATUS

Seq #  *Modification Id* Act 
----------------------------+
04287  M02S00001.274l797 ---|          SA2    A0+UFLA     SET FORCED LABEL CHECK FLAG
04288  M02S00002.274l797 ---|          SX7    B1
04289  M02S00003.274l797 ---|          LX7    56-0
04290  M02S00004.274l797 ---|          BX7    X2+X7
04291  M02S00005.274l797 ---|          SA7    A2+

Seq #  *Modification Id* Act 
----------------------------+
04292  M01S01248.274l797 ---|          EQ     CXR3        ENTER VSN

Seq #  *Modification Id* Act 
----------------------------+
04293  M01S01614.274l797 +++|*         ENTER QUEUED REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
04294  M01S00099.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
04295  M02S00100.274l797 ---|*         SET *RETRY* FLAG.
04296  M02S00101.274l797 ---|
04297  M02S00102.274l797 ---| CXR14    MX3    1
04298  M02S00103.274l797 ---|          LX3    3-59
04299  M02S00104.274l797 ---|          EQ     CXR16       SET *RETRY* FLAG
04300  M02S00105.274l797 ---|
04301  M02S00106.274l797 ---|*         SET *TERMINATE* FLAG.
04302  M02S00107.274l797 ---|
04303  M02S00108.274l797 ---| CXR15    MX3    1
04304  M02S00109.274l797 ---|          LX3    4-59

Seq #  *Modification Id* Act 
----------------------------+
04305  M03S00110.274l797 ---| CXR16    SA0    X2          RESET UDT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04306  M02S00002.274l797 ---| CXR16    SA0    X2+         RESET UDT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04307  M02S00111.274l797 ---|          SA2    A0+UST2

Seq #  *Modification Id* Act 
----------------------------+
04308  M03S00112.274l797 ---|          BX6    X2+X3

Seq #  *Modification Id* Act 
----------------------------+
04309  M02S00003.274l797 ---| CXR16.1  BX6    X2+X3

Seq #  *Modification Id* Act 
----------------------------+
04310  M02S00113.274l797 ---|          SA6    A2
04311  M02S00114.274l797 ---|          BX7    X7-X7       CLEAR EXTERNAL REQUEST WORD
04312  M02S00115.274l797 ---|          SA7    A5
04313  M02S00116.274l797 ---|          EQ     CXRX        RETURN
04314  M02S00117.274l797 ---|
04315  M02S00118.274l797 ---|*         UNIT GO (TMS).
04316  M02S00119.274l797 ---|
04317  M02S00120.274l797 ---| CXR17    SA3    A0+UJID
04318  M02S00121.274l797 ---|          NZ     X3,/TFM/AUG IF JOB ASSIGNED
04319  M02S00122.274l797 ---|          EQ     CXRX        RETURN
04320  M02S00123.274l797 ---|
04321  M02S00124.274l797 ---|*         UNIT STOP (TMS).
04322  M02S00125.274l797 ---|
04323  M02S00126.274l797 ---| CXR18    SA3    A0+UJID
04324  M02S00127.274l797 ---|          NZ     X3,/TFM/AUU IF JOB ASSIGNED
04325  M02S00128.274l797 ---|          EQ     CXRX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04326  M02S00004.274l797 ---|
04327  M02S00005.274l797 ---|*         SET *NEXTREEL* FLAG.
04328  M02S00006.274l797 ---|
04329  M02S00007.274l797 ---| CXR18.1  MX3    1
04330  M02S00008.274l797 ---|          LX3    55-59
04331  M02S00009.274l797 ---|          SA0    X2+         RESET UDT ADDRESS
04332  M02S00010.274l797 ---|          SA2    A0+UFLA
04333  M02S00011.274l797 ---|          EQ     CXR16.1     CONTINUE

Seq #  *Modification Id* Act 
----------------------------+
04334  M02S00005.274l797 ---|
04335  M02S00006.274l797 ---|*         CLEAR BAD EXTERNAL REQUEST.
04336  M02S00007.274l797 ---|
04337  M02S00008.274l797 ---| CXR18.2  SA1    A5          SAVE BAD REQUEST
04338  M02S00009.274l797 ---|          BX6    X1
04339  M02S00010.274l797 ---|          SA6    CXRA
04340  M02S00011.274l797 ---|          BX6    X6-X6       CLEAR BAD REQUEST
04341  M02S00012.274l797 ---|          SA6    A5
04342  M02S00013.274l797 ---|          RJ     WOD         CONVERT BAD REQUEST
04343  M02S00014.274l797 ---|          SA6    CXRB+3
04344  M02S00015.274l797 ---|          SA7    CXRB+4
04345  M02S00016.274l797 ---|          SA1    CXRA
04346  M02S00017.274l797 ---|          RJ     ZTB
04347  M02S00018.274l797 ---|          SA6    CXRB+5
04348  M02S00019.274l797 ---|          MESSAGE CXRB       ISSUE BAD REQUEST MESSAGE
04349  M02S00020.274l797 ---|          EQ     CXRX        RETURN
04350  M02S00021.274l797 ---|
04351  M02S00022.274l797 ---| CXRA     BSS    1           BAD REQUEST SAVE AREA
04352  M02S00023.274l797 ---| CXRB     DATA   30H INCORRECT EXTERNAL REQUEST -
04353  M02S00024.274l797 ---|          BSSZ   4

Seq #  *Modification Id* Act 
----------------------------+
04354  M01S01249.274l797 ---| TXRP     SPACE  4,10
04355  M01S01250.274l797 ---|**        TXRP - TABLE OF EXTERNAL REQUEST PROCESSORS.
04356  M01S01251.274l797 ---|*
04357  M01S01252.274l797 ---|*         ONE WORD PER ENTRY -
04358  M01S01253.274l797 ---|*T        1/U, 1/I, 40/0, 18/ PROC

Figure

Seq #  *Modification Id* Act 
----------------------------+
04359  M02S01254.274l797 ---|*         U      SET IF UDT OPERATION.

Seq #  *Modification Id* Act 
----------------------------+
04360  M02S00012.274l797 ---|*         U      SET IF UDT OPERATION.  EXCEPTION - IF THE UDT
04361  M02S00013.274l797 ---|*                OPERATION ONLY SETS A FLAG BIT IN THE UDT, THEN THIS
04362  M02S00014.274l797 ---|*                BIT SHOULD BE CLEAR.

Seq #  *Modification Id* Act 
----------------------------+
04363  M01S01255.274l797 ---|*         I      SET IF UDT EXTERNAL REQUEST TO BE IGNORED IF
04364  M01S01256.274l797 ---|*                JOB ASSIGNED.
04365  M01S01257.274l797 ---|*         PROC   PROCESSOR ADDRESS.
04366  M01S01258.274l797 ---|
04367  M01S01259.274l797 ---|
04368  M01S01260.274l797 ---| TXRP     BSS    0
04369  M01S01261.274l797 ---|          LOC    0
04370  M01S01262.274l797 ---|          VFD    1/1,1/0,40/0,18/CXR5   RETURN UNIT
04371  M01S01263.274l797 ---|          VFD    1/1,1/1,40/0,18/CXR2   ENTER VSN
04372  M01S01264.274l797 ---|          VFD    1/1,1/1,40/0,18/CXR6   UNLOAD UNIT
04373  M01S01265.274l797 ---|          VFD    1/1,1/1,40/0,18/CXR4   ENTER SCRATCH VSN
04374  M01S01266.274l797 ---|          VFD    1/0,1/0,40/0,18/CXR10  UP/DOWN CHANNEL
04375  M01S01267.274l797 ---|          VFD    1/1,1/1,40/0,18/CXR13  ON/OFF UNIT

Seq #  *Modification Id* Act 
----------------------------+
04376  M02S00129.274l797 ---|          VFD    1/0,1/0,40/0,18/CXR14  SET *RETRY* FLAG
04377  M02S00130.274l797 ---|          VFD    1/1,1/0,40/0,18/CXR17  UNIT GO (TMS)
04378  M02S00131.274l797 ---|          VFD    1/1,1/0,40/0,18/CXR18  UNIT STOP (TMS)
04379  M02S00132.274l797 ---|          VFD    60/0                   RESERVED
04380  M02S00133.274l797 ---|          VFD    1/0,1/0,40/0,18/CXR15  SET *TERMINATE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
04381  M02S00015.274l797 ---|          VFD    1/0,1/0,40/0,18/CXR18.1  SET *NEXTREEL* FLAG

Seq #  *Modification Id* Act 
----------------------------+
04382  M01S01268.274l797 ---|          LOC    *O
04383  M01S01269.274l797 ---| TXRPL    EQU    *-TXRP      TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
04384  M03S00134.274l797 ---| CXU      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
04385  M02S00136.274l797 ---| CXU      SPACE  4,25

Seq #  *Modification Id* Act 
----------------------------+
04386  M02S00135.274l797 ---|**        CXU - CHECK EXTERNAL UDT UPDATE REQUEST.
04387  M02S00136.274l797 ---|*
04388  M02S00137.274l797 ---|*         ENTRY  (X5) = REQUEST WORD (RCAL+0).
04389  M02S00138.274l797 ---|*                (A5) = CALL BLOCK ADDRESS (RCAL).
04390  M02S00139.274l797 ---|*
04391  M02S00140.274l797 ---|*         EXIT   (X5) = 0 IF UPDATE MADE OR ERROR.

Seq #  *Modification Id* Act 
----------------------------+
04392  M03S00141.274l797 ---|*                (X5) UNCHANGED IF NOT CXU REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
04393  M02S00137.274l797 ---|*                (X5) UNCHANGED IF NOT *RUU* REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
04394  M02S00142.274l797 ---|*                (A5) = CALL BLOCK ADDRESS.
04395  M02S00143.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
04396  M03S00144.274l797 ---|*T  RCAL  12/ FC,18/ 0,6/ FW,6/ WC,18/ UDT

Figure RCAL

Seq #  *Modification Id* Act 
----------------------------+
04397  M02S00138.274l797 ---|*T  RCAL  12/ FC,18/ 0,6/ FW,6/ WC,18/ UDT ADDRESS

Figure RCAL

Seq #  *Modification Id* Act 
----------------------------+
04398  M02S00145.274l797 ---|*T,       60/ UPDATE WORD 1

Figure

04399  M02S00146.274l797 ---|*T,       60/ UPDATE WORD 2

Figure

04400  M02S00147.274l797 ---|*T,       60/ UPDATE WORD 3

Figure

04401  M02S00148.274l797 ---|*T,       60/ UPDATE WORD 4

Figure

04402  M02S00149.274l797 ---|*T,       60/ UPDATE WORD 5

Figure

04403  M02S00150.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
04404  M03S00151.274l797 ---|*         USES   X - 0, 1, 2, 3,5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04405  M02S00139.274l797 ---|*         UDT ADDRESS        ADDRESS OF UDT ENTRY TO UPDATE.
04406  M02S00140.274l797 ---|*         FW                 INDEX INTO ENTRY OF FIRST WORD TO UPDATE.
04407  M02S00141.274l797 ---|*         WC                 NUMBER OF WORDS TO UPDATE (1 - 5).
04408  M02S00142.274l797 ---|*
04409  M02S00143.274l797 ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04410  M02S00152.274l797 ---|*                A - 0, 5, 7.
04411  M02S00153.274l797 ---|*                B - 2, 3, 4.
04412  M02S00154.274l797 ---|
04413  M02S00155.274l797 ---|
04414  M02S00156.274l797 ---| CXU2     SX7    B0          CLEAR REQUEST WORD
04415  M02S00157.274l797 ---|          SX5    B0
04416  M02S00158.274l797 ---|          SA7    RCAL
04417  M02S00159.274l797 ---|
04418  M02S00160.274l797 ---| CXU      SUBR               ENTRY/EXIT
04419  M02S00161.274l797 ---|          BX1    X5
04420  M02S00162.274l797 ---|          AX1    48
04421  M02S00163.274l797 ---|          SX6    X1-RUU
04422  M02S00164.274l797 ---|          NZ     X6,CXUX     IF NOT UDT UPDATE REQUEST
04423  M02S00165.274l797 ---|          TX7    X5,-UBUF
04424  M02S00166.274l797 ---|          TX3    X5,-UBUF,LWA
04425  M02S00167.274l797 ---|          BX2    -X3-X7
04426  M02S00168.274l797 ---|          NG     X2,CXU2     IF INCORRECT UDT ADDRESS
04427  M02S00169.274l797 ---|          SA0    X5          (A0) = UDT ADDRESS
04428  M02S00170.274l797 ---|          MX0    -6
04429  M02S00171.274l797 ---|          AX5    18
04430  M02S00172.274l797 ---|          BX6    -X0*X5
04431  M02S00173.274l797 ---|          AX5    6
04432  M02S00174.274l797 ---|          BX7    -X0*X5
04433  M02S00175.274l797 ---|          SB2    X6          (B2) = WORD COUNT
04434  M02S00176.274l797 ---|          SB3    X7          (B3) = UDT OFF-SET
04435  M02S00177.274l797 ---|          SB4    B2-5
04436  M02S00178.274l797 ---|          GT     B4,CXU2     IF WORD COUNT OUT OF RANGE
04437  M02S00179.274l797 ---| CXU1     LE     B2,CXU2     IF LAST UPDATE WORD
04438  M02S00180.274l797 ---|          SA5    A5+B1
04439  M02S00181.274l797 ---|          BX7    X5
04440  M02S00182.274l797 ---|          SA7    A0+B3
04441  M02S00183.274l797 ---|          SB2    B2-B1
04442  M02S00184.274l797 ---|          SB3    B3+B1
04443  M02S00185.274l797 ---|          EQ     CXU1        GET NEXT UPDATE WORD

Seq #  *Modification Id* Act 
----------------------------+
04444  M01S01270.274l797 ---| IUN      SPACE  4,45
04445  M01S01271.274l797 ---|**        IUN - PROCESS INTERLOCKED REQUEST FOR A UNIT.
04446  M01S01272.274l797 ---|*
04447  M01S01273.274l797 ---|*         PROGRAMMING NOTE - THIS ROUTINE IS USED BY COPIES
04448  M01S01274.274l797 ---|*         OF *1MT* WHEN IT IS NECESSARY TO PROCESS AN INTERLOCKED
04449  M01S01275.274l797 ---|*         REQUEST.  THE PP ISSUING THE REQUEST WILL WAIT FOR
04450  M01S01276.274l797 ---|*         RESPONSE IN WORD *URIW* AND THEREFORE, IF A PP EVER
04451  M01S01277.274l797 ---|*         GETS A *TDAM* REJECT DUE TO WRITE TO NON-ZERO FIRST WORD,
04452  M01S01278.274l797 ---|*         THAT PP *MUST* DROP SINCE THIS ROUTINE MAY BE WAITING
04453  M01S01279.274l797 ---|*         FOR ALL QUIET.
04454  M01S01280.274l797 ---|*
04455  M01S01281.274l797 ---|*         ENTRY  (X1) = REQUEST FROM LOCATION *URIW*.
04456  M01S01282.274l797 ---|*
04457  M01S01283.274l797 ---|*         REQUEST WORD FROM *1MT* -
04458  M01S01284.274l797 ---|*T,URIW   12/UDT ADDR,12/CH,18/0,18/FC

Figure URIW

04459  M01S01285.274l797 ---|*
04460  M01S01286.274l797 ---|*         CH     CHANNEL INDEX
04461  M01S01287.274l797 ---|*
04462  M01S01288.274l797 ---|*         FC     FUNCTION CODE
04463  M01S01289.274l797 ---|*
04464  M01S01290.274l797 ---|*         0      INTERLOCK AND RESERVE A UNIT.  THIS MECHANISM IS
04465  M01S01291.274l797 ---|*                USED BY *1MT* WHEN THE CONNECT OPERATION FAILS.
04466  M01S01292.274l797 ---|*
04467  M01S01293.274l797 ---|*         1      DOWN A UNIT.  NOTE - IT IS THE RESPONSIBILITY OF
04468  M01S01294.274l797 ---|*                THE CALLING PP TO CLEAR *URIW* FOR THIS FUNCTION
04469  M01S01295.274l797 ---|*                IF THE FUNCTION IS REJECTED.  THIS FUNCTION
04470  M01S01296.274l797 ---|*                IS USED IF A *CONNECT REJECT* OCCURS TO
04471  M01S01297.274l797 ---|*                INTERLOCK DOWNING/ASSIGNING OF THE UNIT.
04472  M01S01298.274l797 ---|*
04473  M01S01299.274l797 ---|*         2      UNCONDITIONAL DOWN UNIT (NO REJECT CASES).
04474  M01S01300.274l797 ---|*                THIS FUNCTION IS USED BY THE TAPE CONTROLLER DIALOGUE
04475  M01S01301.274l797 ---|*                MONITORING PROGRAM TO SET THE DOWN FLAG ON THE
04476  M01S01302.274l797 ---|*                MONITORED UNIT BEFORE THE I/O FUNCTION IS INITIATED.
04477  M01S01303.274l797 ---|*                THIS PREVENTS AN ACTIVE *1MT* FROM PROCESSING THE
04478  M01S01304.274l797 ---|*                UNIT BEFORE IT DETECTS THAT MONITORING IS IN EFFECT.
04479  M01S01305.274l797 ---|*                *1MT* CLEARS THE DOWN FLAG IMMEDIATELY BEFORE
04480  M01S01306.274l797 ---|*                PROCESSING THE MONITORED UNIT.
04481  M01S01307.274l797 ---|*
04482  M01S01308.274l797 ---|*         EXIT   (URIW) = 0 FOR FUNCTIONS 0 AND 2.
04483  M01S01309.274l797 ---|*                (URIW) = 48/0,12/RC FOR FUNCTION 1.
04484  M01S01310.274l797 ---|*
04485  M01S01311.274l797 ---|*                RC = 0 IF UNIT SUCCESSFULLY DOWNED.
04486  M01S01312.274l797 ---|*                   = 1 IF UNIT NOT DOWNED. (REJECT)
04487  M01S01313.274l797 ---|
04488  M01S01314.274l797 ---|
04489  M01S01315.274l797 ---|*         DOWN UNIT.
04490  M01S01316.274l797 ---|
04491  M01S01317.274l797 ---| IUN3     SA1    X4+UST1
04492  M01S01318.274l797 ---|          MX0    1
04493  M01S01319.274l797 ---|          LX0    -3
04494  M01S01320.274l797 ---|          SX7    B0
04495  M01S01321.274l797 ---|          BX6    X1+X0       SET DOWN BIT
04496  M01S01322.274l797 ---|          NE     B2,B1,IUN4  IF UNCONDITIONAL DOWN UNIT FUNCTION
04497  M01S01323.274l797 ---|          BX2    X0*X1
04498  M01S01324.274l797 ---|          SX7    B1          SET REJECT RESPONSE
04499  M01S01325.274l797 ---|          NZ     X2,IUN5     IF UNIT ALREADY DOWNED
04500  M01S01326.274l797 ---|          SA3    X4+UJID
04501  M01S01327.274l797 ---|          SA5    X4+UREQ
04502  M01S01328.274l797 ---|          BX3    X3+X5
04503  M01S01329.274l797 ---|          NZ     X3,IUN5     IF JOB ASSIGNED OR PENDING REQUEST
04504  M01S01330.274l797 ---|          BX7    X7-X7       SET UNIT DOWNED STATUS
04505  M01S01331.274l797 ---|          SA7    X4+UVSN     CLEAR VSN FIELD
04506  M01S01332.274l797 ---| IUN4     SA6    A1+         SET UNIT DOWN FLAG
04507  M01S01333.274l797 ---| IUN5     SA7    URIW
04508  M01S01334.274l797 ---|
04509  M01S01335.274l797 ---| IUN      SUBR               ENTRY/EXIT
04510  M01S01336.274l797 ---|          SA5    UITW-2
04511  M01S01337.274l797 ---|          SB2    X1
04512  M01S01338.274l797 ---|          MX0    -12
04513  M01S01339.274l797 ---|          LX1    12
04514  M01S01340.274l797 ---|          BX4    -X0*X1
04515  M01S01341.274l797 ---|          NZ     B2,IUN3     IF DOWN UNIT FUNCTION
04516  M01S01342.274l797 ---|          LX1    12
04517  M01S01343.274l797 ---|          SX1    X1+UITW-1
04518  M01S01344.274l797 ---|          BX7    -X0*X1
04519  M01S01345.274l797 ---|          SB3    59-52+1     SET SHIFT FOR CHANNEL CHECK
04520  M01S01346.274l797 ---|          SA2    X4+UST1
04521  M01S01347.274l797 ---|
04522  M01S01348.274l797 ---|*         WAIT ALL QUIET ON OTHER *1MT*S WHICH CAN ACCESS UNIT.
04523  M01S01349.274l797 ---|
04524  M01S01350.274l797 ---| IUN1     SB3    B3-B1       DECREMENT SHIFT COUNT
04525  M01S01351.274l797 ---|          SA5    A5+2
04526  M01S01352.274l797 ---|          SA3    A5+B1
04527  M01S01353.274l797 ---|          NG     X5,IUN2     IF END OF CHANNEL TABLE
04528  M01S01354.274l797 ---|          SX0    A5
04529  M01S01355.274l797 ---|          BX0    X0-X7
04530  M01S01356.274l797 ---|          ZR     X0,IUN1     IF *1MT* MAKING REQUEST
04531  M01S01357.274l797 ---|          PL     X3,IUN1     IF NO ACTIVITY
04532  M01S01358.274l797 ---|          LX3    X2,B3
04533  M01S01359.274l797 ---|          PL     X3,IUN1     IF UNIT NOT ACCESSABLE ON THIS CHANNEL
04534  M01S01360.274l797 ---|          SB3    B3+B1
04535  M01S01361.274l797 ---|          RECALL
04536  M01S01362.274l797 ---|          SA5    A5-2
04537  M01S01363.274l797 ---|          EQ     IUN1        RECHECK CHANNEL
04538  M01S01364.274l797 ---|
04539  M01S01365.274l797 ---| IUN2     SA1    X4          SET REQUEST IN PROGRESS
04540  M01S01366.274l797 ---|          SX2    RIP
04541  M01S01367.274l797 ---|          MX0    -48
04542  M01S01368.274l797 ---|          BX6    -X0*X1
04543  M01S01369.274l797 ---|          LX2    48
04544  M01S01370.274l797 ---|          MX7    0
04545  M01S01371.274l797 ---|          BX6    X6+X2
04546  M01S01372.274l797 ---|          SA6    A1
04547  M01S01373.274l797 ---|          EQ     IUN5        CLEAR INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04548  M01S01615.274l797 +++| CUA5     SX5    B0
04549  M01S01616.274l797 +++|          RJ     MQE         MAKE QUEUE ENTRY
04550  M01S01617.274l797 +++|          SA5    ITIM        RESTORE INTERVAL TIMER
04551  M01S01618.274l797 +++|          LX5    59-1
04552  M01S01619.274l797 +++|          EQ     CUA1        CHECK NEXT UNIT
04553  M01S01620.274l797 +++|          TITLE  REQUEST PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
04554  M01S01374.274l797 ---|          TITLE  REQUEST PROCESSING.
04555  M00S01375.magnet  +++| CUT      SPACE  4,10
04556  M00S01376.magnet  +++|**        CUT - CHECK UNIT DESCRIPTOR TABLE.

Seq #  *Modification Id* Act 
----------------------------+
04557  M01S01377.282l826 ---|*         THIS ROUTINE KEEPS TRACK OF WHAT IS HAPPENING ON EACH UNIT
04558  M01S01378.282l826 ---|*         AND INITIATES NEW OPERATIONS ON UNITS.

Seq #  *Modification Id* Act 
----------------------------+
04559  M01S00893.282l826 +++|*
04560  M01S00894.282l826 +++|*         CALLS  GNR, GNS, GPI, MQE, PCR, PUR, SPR.
04561  M00S01379.magnet  +++|
04562  M00S01380.magnet  +++|
04563  M00S01381.magnet  +++| CUT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
04564  M01S01382.282l826 ---|          TA1    0,UBUF

Seq #  *Modification Id* Act 
----------------------------+
04565  M02S01383.282l826 ---|          SA2    ITIM
04566  M02S01384.282l826 ---|          SX3    B1
04567  M02S01385.282l826 ---|          AX4    X2,B1
04568  M02S01386.282l826 ---|          BX6    X3*X4
04569  M02S01387.282l826 ---|          SB2    B1
04570  M02S01388.282l826 ---|          SA2    CUTC+X6
04571  M02S01389.282l826 ---|          SA0    A1
04572  M02S01390.282l826 ---|          BX6    X2
04573  M02S01391.282l826 ---|          SA6    CUTA

Seq #  *Modification Id* Act 
----------------------------+
04574  M02S01621.282l826 ---|          SB2    B1          SET FIRST UDT NUMBER
04575  M02S01622.282l826 ---|          SA0    A1          SET FIRST UDT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04576  M01S01392.282l826 ---|          EQ     CUT13       ENTER LOOP

Seq #  *Modification Id* Act 
----------------------------+
04577  M01S00895.282l826 +++|          TA0    0,UBUF      SET FIRST UDT ADDRESS
04578  M01S00896.282l826 +++|          SB2    B0+         SET FIRST UDT ORDINAL
04579  M01S00897.282l826 +++|          EQ     CUT11       ENTER LOOP
04580  M00S01393.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04581  M01S01394.282l826 ---|*         PROCESS CIO REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
04582  M01S00898.282l826 +++|*         PROCESS FILE REQUEST.
04583  M00S01395.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04584  M01S01396.282l826 ---| CUT1     LX2    59-57-59+58
04585  M01S01397.282l826 ---|          NG     X2,REW      IF REWIND REQUIRED
04586  M01S01398.282l826 ---|          SB3    X3          CHECK IF LOST JOB
04587  M01S01399.282l826 ---|          LE     B3,B1,CUT12 IF UNIT RESERVED

Seq #  *Modification Id* Act 
----------------------------+
04588  M01S00899.282l826 +++| CUT1     BX6    X3
04589  M01S00900.282l826 +++|          AX3    48
04590  M01S00901.282l826 +++|          SX1    X3-CIO
04591  M01S00902.282l826 +++|          ZR     X1,CUT2     IF *CIO* REQUEST
04592  M01S00903.282l826 +++|          SX1    X3-RTF
04593  M01S00904.282l826 +++|          NZ     X1,CUT10    IF NOT RETURN FILE REQUEST
04594  M01S00905.282l826 +++|          RJ     PUR         PRE-PROCESS UNIT RETURN
04595  M01S00906.282l826 +++|          EQ     CUT3        MAKE QUEUE ENTRY
04596  M01S00907.282l826 +++|
04597  M01S00908.282l826 +++| CUT2     SA3    A0+UCIA
04598  M00S01400.magnet  +++|          RJ     PCR         PRE-PROCESS *CIO* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04599  M01S01401.282l826 ---|          LX3    6
04600  M01S01402.282l826 ---|          MX1    -4
04601  M01S01403.282l826 ---|          SX7    4074B
04602  M01S01404.282l826 ---|          BX2    -X1*X3      INTERNAL FUNCTION CODE
04603  M01S01405.282l826 ---|          LX3    6
04604  M01S01406.282l826 ---|          SX1    X2-/CIO/SKP
04605  M01S01407.282l826 ---|          ZR     X1,CUT2     IF SKIP FUNCTION
04606  M01S01408.282l826 ---|          SX7    4060B       CLEAR TERMINATION CONDITION
04607  M01S01409.282l826 ---| CUT2     BX5    X7*X3       EXTRACT FUNCTION FLAGS
04608  M01S01410.282l826 ---|          LX5    24
04609  M01S01411.282l826 ---|          SX7    TPRO+X2
04610  M00S01412.magnet  +++|
04611  M00S01413.magnet  +++|*         MAKE QUEUE ENTRY.
04612  M00S01414.magnet  +++|
04613  M00S01415.magnet  +++| CUT3     LX7    36
04614  M00S01416.magnet  +++|          SX3    12
04615  M00S01417.magnet  +++|          BX5    X5+X7
04616  M00S01418.magnet  +++|          LX3    48
04617  M00S01419.magnet  +++|          BX6    X5+X3
04618  M00S01420.magnet  +++|          IX4    X5+X3
04619  M00S01421.magnet  +++|          SA6    A4
04620  M00S01422.magnet  +++|
04621  M00S01423.magnet  +++|*         PROCESS STRING CALL.
04622  M00S01424.magnet  +++|
04623  M00S01425.magnet  +++| CUT4     SA6    CUTB        SAVE REQUEST
04624  M00S01426.magnet  +++|          RJ     GNS         GET NEXT STRING ITEM
04625  M00S01427.magnet  +++| CUT5     ZR     X7,CUT8     IF END OF STRING

Seq #  *Modification Id* Act 
----------------------------+
04626  M01S01428.274l797 ---|          SA3    A0+UST4     SET UP REGISTER
04627  M00S01429.magnet  +++|          MX0    -36

Seq #  *Modification Id* Act 
----------------------------+
04628  M01S01623.274l797 +++|          BX5    -X0*X4
04629  M00S01430.magnet  +++|          SB4    X7-TPRO

Seq #  *Modification Id* Act 
----------------------------+
04630  M01S01431.274l797 ---|          BX5    -X0*X4

Seq #  *Modification Id* Act 
----------------------------+
04631  M02S01432.274l797 ---|          LX3    24          EXTRACT FORMAT

Seq #  *Modification Id* Act 
----------------------------+
04632  M02S00063.274l797 ---|          LX3    36
04633  M00S01433.magnet  +++|          SB5    X7-TPRO-TPROL

Seq #  *Modification Id* Act 
----------------------------+
04634  M01S01434.ns22000 ---|          AX3    48

Seq #  *Modification Id* Act 
----------------------------+
04635  M02S00064.274l797 ---|          AX3    54

Seq #  *Modification Id* Act 
----------------------------+
04636  M01S01435.274l797 ---|          SB7    X3          SET FORMAT
04637  M00S01436.magnet  +++|          PL     B4,CUT6     IF NOT FUNCTION ISSUE
04638  M00S01437.magnet  +++|
04639  M00S01438.magnet  +++|*         FUNCTION ISSUE.
04640  M00S01439.magnet  +++|
04641  M00S01440.magnet  +++|          LX7    36          POSITION FUNCTION
04642  M00S01441.magnet  +++|          BX5    X7
04643  M00S01442.magnet  +++|          RJ     GPI         GET PARAMETER
04644  M00S01443.magnet  +++|          LX7    24          MERGE MODE
04645  M00S01444.magnet  +++|          BX5    X5+X7

Seq #  *Modification Id* Act 
----------------------------+
04646  M01S01445.253l688 ---|          RJ     GPI         GET PARMETER

Seq #  *Modification Id* Act 
----------------------------+
04647  M01S00144.253l688 +++|          RJ     GPI         GET PARAMETER
04648  M00S01446.magnet  +++|          BX5    X5+X7       MERGE PARAMETER
04649  M00S01447.magnet  +++|          RJ     GPI         GET PARAMETER
04650  M00S01448.magnet  +++|          LX7    12          MERGE PARAMETER
04651  M00S01449.magnet  +++|          BX6    X5+X7       MAKE *1MT* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04652  M01S01450.253l688 ---|          SA6    A0

Seq #  *Modification Id* Act 
----------------------------+
04653  M01S00145.253l688 +++|          SA6    A0+UXRQ

Seq #  *Modification Id* Act 
----------------------------+
04654  M01S01451.282l826 ---|          EQ     CUT12       PROCESS NEXT UNIT

Seq #  *Modification Id* Act 
----------------------------+
04655  M01S00909.282l826 +++|          NZ     X4,CUT10    IF PROCESSOR NOT COMPLETE
04656  M01S00910.282l826 +++|          RJ     GNR         GET NEXT REQUEST
04657  M01S00911.282l826 +++|          EQ     CUT10       PROCESS NEXT UNIT
04658  M00S01452.magnet  +++|
04659  M00S01453.magnet  +++|*         CHECK FOR ROUTINE CALL.
04660  M00S01454.magnet  +++|
04661  M00S01455.magnet  +++| CUT6     NG     B5,CUT7     IF ANOTHER STRING CALLED
04662  M00S01456.magnet  +++|          JP     B5+TPRO+TPROL
04663  M00S01457.magnet  +++|
04664  M00S01458.magnet  +++| CUT7     RJ     MQE         MAKE QUEUE ENTRY
04665  M00S01459.magnet  +++|
04666  M00S01460.magnet  +++|*         CHECK NEXT REQUEST
04667  M00S01461.magnet  +++|
04668  M00S01462.magnet  +++| CUT8     RJ     GNR         GET NEXT REQUEST
04669  M00S01463.magnet  +++| CUT9     BX6    X4
04670  M00S01464.magnet  +++|          NZ     X4,CUT4     IF REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04671  M01S01465.magne1  ---|          EQ     CUT12       PROCESS NEXT UNIT

Seq #  *Modification Id* Act 
----------------------------+
04672  M02S00001.253l688 ---|          SA1    A0

Seq #  *Modification Id* Act 
----------------------------+
04673  M02S00146.282l826 ---|          SA1    A0+UXRQ

Seq #  *Modification Id* Act 
----------------------------+
04674  M02S00002.282l826 ---|          EQ     CUT13       CHECK FOR *CIO* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04675  M01S00912.282l826 +++|          EQ     CUT11       CHECK FOR FILE REQUEST
04676  M00S01466.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04677  M01S01467.274l797 ---|*         CHECK FOR LABELS.
04678  M01S01468.274l797 ---|
04679  M01S01469.274l797 ---| CUT10    SA1    USWP
04680  M01S01470.274l797 ---|          NZ     X1,CUT12    IF REEL SWAP IN PROGRESS
04681  M01S01471.274l797 ---|          SA3    A0+UST1     CHECK FOR UNIT DOWN
04682  M01S01472.274l797 ---|          BX6    X6-X6
04683  M01S01473.274l797 ---|          LX3    59-56
04684  M01S01474.274l797 ---|          NG     X3,CUT12    IF UNIT DOWN
04685  M01S01475.274l797 ---|          LX3    56-0        CHECK FOR READY
04686  M01S01476.274l797 ---|          SA2    A0+UVSN     CHECK IF VSN DEFINED
04687  M01S01477.274l797 ---|          BX5    X3
04688  M01S01478.274l797 ---|          LX3    59+1-1      MERGE BUSY BIT
04689  M01S01479.274l797 ---|          BX5    X3+X5
04690  M01S01480.274l797 ---|          LX3    1
04691  M01S01481.274l797 ---|          ZR     X2,CUT11    IF VSN NOT DEFINED

Seq #  *Modification Id* Act 
----------------------------+
04692  M02S00017.274l797 ---|          SA1    A0+UST2     CHECK IF UNIT IS *SUSPECT*
04693  M02S00018.274l797 ---|          LX1    59-5
04694  M02S00019.274l797 ---|          NG     X1,CUT12    IF UNIT IS *SUSPECT*

Seq #  *Modification Id* Act 
----------------------------+
04695  M01S01482.274l797 ---|          SA1    A0+UJID
04696  M01S01483.274l797 ---|          NZ     X1,CUT12    IF JOB ASSIGNED
04697  M01S01484.274l797 ---|          NG     X5,CUT12    IF UNIT READY OR BUSY
04698  M01S01485.274l797 ---|          SA6    A0+UVSN     CLEAR VSN

Seq #  *Modification Id* Act 
----------------------------+
04699  M02S00001.274l797 ---|          MX2    -18         CLEAR FILE ID
04700  M02S00002.274l797 ---|          SA6    A0+UFID
04701  M02S00003.274l797 ---|          SA1    A0+UFSN
04702  M02S00004.274l797 ---|          BX7    -X2*X1
04703  M02S00005.274l797 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
04704  M01S01486.274l797 ---| CUT11    SX7    PCLA

Seq #  *Modification Id* Act 
----------------------------+
04705  M02S01487.274l797 ---|          PL     X3,CUT12    IF UNIT NOT READY

Seq #  *Modification Id* Act 
----------------------------+
04706  M02S00006.274l797 ---|          SA2    A0+UFLA
04707  M02S00007.274l797 ---|          MX1    -59
04708  M02S00008.274l797 ---|          LX2    59-56
04709  M02S00009.274l797 ---|          PL     X2,CUT11.1  IF NOT FORCED LABEL CHECK
04710  M02S00010.274l797 ---|          BX6    -X1*X2      CLEAR FORCED LABEL CHECK FLAG
04711  M02S00011.274l797 ---|          LX6    56-59
04712  M02S00012.274l797 ---|          SA6    A2
04713  M02S00013.274l797 ---|          BX3    X3+X1       FORCE READY STATUS
04714  M02S00014.274l797 ---| CUT11.1  PL     X3,CUT12    IF UNIT NOT READY

Seq #  *Modification Id* Act 
----------------------------+
04715  M01S01488.274l797 ---|          LX3    59+1-1
04716  M01S01489.274l797 ---|          BX5    X5-X5
04717  M01S01490.274l797 ---|          PL     X3,CUT3     IF UNIT NOT BUSY
04718  M01S01491.274l797 ---|
04719  M00S01492.magnet  +++|*         PROCESS NEXT UNIT.
04720  M00S01493.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04721  M01S01494.253l688 ---| CUT12    SA1    A0+UNITL    INCREMENT TO NEXT UNIT
04722  M01S01495.253l688 ---|          SB2    B2+B1
04723  M01S01496.253l688 ---|          SA0    A1          CHECK IF PENDING REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04724  M02S00147.282l826 ---| CUT12    SA0    A0+UNITL    INCREMENT TO NEXT UNIT
04725  M02S00148.282l826 ---|          SB2    B2+1
04726  M02S00149.282l826 ---|          SA1    A0+UXRQ     CHECK IF PENDING REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04727  M01S01497.282l826 ---| CUT13    NG     X1,CUTX     IF END OF UDT

Seq #  *Modification Id* Act 
----------------------------+
04728  M01S00913.282l826 +++| CUT10    SA0    A0+UNITL    ADVANCE UDT ADDRESS
04729  M01S00914.282l826 +++|          SB2    B2+1        ADVANCE UDT ORDINAL
04730  M01S00915.282l826 +++| CUT11    SA1    A0+UXRQ
04731  M01S00916.282l826 +++|          SA4    A0+UREQ
04732  M01S00917.282l826 +++|          SA3    A0+UFRQ
04733  M01S00918.282l826 +++|          NG     X1,CUTX     IF END OF UDT
04734  M01S00919.282l826 +++|          NZ     X4,CUT12    IF REQUEST PROCESSOR ACTIVE
04735  M01S00920.282l826 +++|          ZR     X3,CUT10    IF NO FILE REQUEST
04736  M01S00921.282l826 +++|          EQ     CUT1        PROCESS FILE REQUEST
04737  M01S00922.282l826 +++|
04738  M01S00923.282l826 +++| CUT12    ZR     X1,CUT9     IF NO PP REQUEST
04739  M00S01498.magnet  +++|          BX7    X1
04740  M00S01499.magnet  +++|          AX1    48

Seq #  *Modification Id* Act 
----------------------------+
04741  M01S01500.282l826 ---|          NZ     X7,CUT14    IF PENDING REQUEST
04742  M01S01501.282l826 ---|          SA4    A0+UREQ
04743  M01S01502.282l826 ---|          NZ     X4,CUT9     IF REQUEST
04744  M01S01503.282l826 ---|          SA2    A0+UFLA
04745  M01S01504.282l826 ---|          NG     X2,CUT8     IF STACKED REQUEST
04746  M01S01505.282l826 ---|          SA3    A0+UCIA
04747  M01S01506.282l826 ---|          LX2    59-58
04748  M01S01507.282l826 ---|          NZ     X3,CUT1     IF *CIO* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04749  M02S01508.282l826 ---| CUTA     PL     X2,CUT12    IF NO EXTERNAL REQUEST
04750  M02S01509.282l826 ---|*         PL     X2,CUT10    IF NO EXTERNAL REQUEST (2 SEC. INTERVALS)

Seq #  *Modification Id* Act 
----------------------------+
04751  M02S01624.282l826 ---|          PL     X2,CUT12    IF NO EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04752  M01S01510.282l826 ---|          RJ     GER         GET EXTERNAL REQUEST FROM QUEUE
04753  M01S01511.282l826 ---|          ZR     X5,CUT12    IF NO EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04754  M02S01512.282l826 ---|          RJ     CXR         PROCESS EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04755  M02S01625.282l826 ---|          RJ     PQR         PROCESS QUEUED EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04756  M02S01513.282l826 ---|          SA1    A0

Seq #  *Modification Id* Act 
----------------------------+
04757  M02S00150.282l826 ---|          SA1    A0+UXRQ

Seq #  *Modification Id* Act 
----------------------------+
04758  M01S01514.282l826 ---|          EQ     CUT13       CHECK FOR FUNCTION ON UNIT
04759  M01S01515.282l826 ---|
04760  M01S01516.282l826 ---| CUT14    SB7    X1-NCP
04761  M01S01517.282l826 ---|          NG     B7,CUT12    IF IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
04762  M01S00924.282l826 +++|          SB7    X1-NCP
04763  M01S00925.282l826 +++|          NG     B7,CUT10    IF IN PROGRESS
04764  M01S00926.282l826 +++|          ERRNZ  NCP-RIP-1
04765  M00S01518.magnet  +++|          SA7    A0+ULRQ     SAVE COMPLETED REQUEST
04766  M00S01519.magnet  +++|          BX6    X6-X6       CLEAR REQUEST WORD
04767  M00S01520.magnet  +++|          SA6    A1
04768  M00S01521.magnet  +++|          ZR     B7,CUT8     IF NORMAL COMPLETION

Seq #  *Modification Id* Act 
----------------------------+
04769  M01S01522.282l826 ---|          SX5    REQ*10000B+MAB  JOB ABORT CHECK DO NOT REQUEUE
04770  M01S01523.282l826 ---|          LX5    36
04771  M01S01524.282l826 ---|          BX5    X7-X5
04772  M01S01525.282l826 ---|          ZR     X5,CUT8     IF JOB ABORT SKIP REQUEUE
04773  M01S01526.282l826 ---|          SX7    PDEL        SET FOR DELAY PROCESSOR
04774  M01S01527.282l826 ---|          SX5    B0+
04775  M01S01528.282l826 ---|          NE     B7,B1,CUT15 IF NOT REQUEUE WITH DELAY
04776  M01S01529.282l826 ---|          SA1    A0+UST1
04777  M01S01530.282l826 ---|          LX1    59-1
04778  M01S01531.282l826 ---|          NG     X1,EXI4     IF BUSY
04779  M01S01532.282l826 ---|          SX7    PJOB        WAIT FOR JOB RETURN
04780  M01S01533.282l826 ---|          EQ     EXI4        QUEUE NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04781  M01S00927.282l826 +++|          SB7    X1-ERR
04782  M01S00928.282l826 +++|          ZR     B7,CUT13    IF ERROR RETURN
04783  M01S00929.282l826 +++|          SX7    PDEL        SET REQUEUE WITH DELAY
04784  M01S00930.282l826 +++|          SX5    B0
04785  M01S00931.282l826 +++|          EQ     EXI4        ENTER REQUEST
04786  M00S01534.magnet  +++|
04787  M00S01535.magnet  +++|*         PROCESS ERROR RETURN.
04788  M00S01536.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04789  M01S01537.282l826 ---| CUT15    SA1    A0+UJID     CHECK IF ASSIGNED
04790  M01S01538.282l826 ---|          SA5    A0+UST1     GET ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
04791  M02S01626.282l826 ---|          SX6    X1
04792  M02S01627.282l826 ---|          LX1    -36
04793  M02S01628.282l826 ---|          ZR     X6,CUT17    IF NOT ASSIGNED
04794  M02S01629.282l826 ---|          SX1    X1+

Seq #  *Modification Id* Act 
----------------------------+
04795  M02S01539.282l826 ---|          ZR     X1,CUT17    IF NOT ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
04796  M01S01540.282l826 ---|          LX5    24          EXTRACT ERROR CODE
04797  M01S01541.282l826 ---|          AX5    48

Seq #  *Modification Id* Act 
----------------------------+
04798  M02S01630.282l826 ---|          NZ     X1,CUT15.2  IF ACS UNIT

Seq #  *Modification Id* Act 
----------------------------+
04799  M02S00186.282l826 ---|          SX3    X5-TCF
04800  M02S00187.282l826 ---|          SX4    FCT
04801  M02S00188.282l826 ---|          ZR     X3,CUT15.1  IF *TCF* ERROR
04802  M02S00189.282l826 ---|          SX3    X5-BFR
04803  M02S00190.282l826 ---|          SX4    RFB
04804  M02S00191.282l826 ---|          ZR     X3,CUT15.1  IF *BFR* ERROR
04805  M02S00192.282l826 ---|          SX3    X5-BFW
04806  M02S00193.282l826 ---|          SX4    WFB
04807  M02S00194.282l826 ---|          ZR     X3,CUT15.1  IF *BFW* ERROR

Seq #  *Modification Id* Act 
----------------------------+
04808  M02S01542.282l826 ---|          SX3    X5-BEI

Seq #  *Modification Id* Act 
----------------------------+
04809  M03S00001.282l826 ---|          SA4    A0+UREQ     CHECK CURRENT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04810  M02S01631.282l826 ---| CUT15.2  SA4    A0+UREQ     CHECK CURRENT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04811  M02S00002.282l826 ---|          MX3    -12
04812  M02S00003.282l826 ---|          AX4    36
04813  M02S00004.282l826 ---|          SA1    A0+UVSN
04814  M02S00005.282l826 ---|          BX4    -X3*X4
04815  M02S00006.282l826 ---|          SX6    X4-PWEV-1
04816  M02S00007.282l826 ---|          SX4    B1
04817  M02S00008.282l826 ---|          NZ     X6,CUT15.0  IF CURRENT REQUEST IS NOT *PWEV*
04818  M02S00009.282l826 ---|          BX3    -X3*X1
04819  M02S00010.282l826 ---|          IX6    X1-X4
04820  M02S00011.282l826 ---|          ZR     X3,CUT15.0  IF REEL NUMBER IS ZERO
04821  M02S00012.282l826 ---|          SA6    A1+         DECREMENT REEL NUMBER
04822  M02S00013.282l826 ---| CUT15.0  SX3    X5-BEI

Seq #  *Modification Id* Act 
----------------------------+
04823  M01S01543.282l826 ---|          NZ     X3,CUT16    IF NOT *BEI* ERROR
04824  M01S01544.282l826 ---|          SA4    A0+UREQ
04825  M01S01545.282l826 ---|          RJ     GPI         CHECK FOR ERROR PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
04826  M02S01546.282l826 ---|          BX1    X7

Seq #  *Modification Id* Act 
----------------------------+
04827  M01S01547.282l826 ---|          ZR     X2,CUT16    IF NO ERROR PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
04828  M01S00932.282l826 +++| CUT13    SA1    A0+UVRI
04829  M01S00933.282l826 +++|          SA5    A0+UST3
04830  M01S00934.282l826 +++|          SA2    A0+UST1
04831  M01S00935.282l826 +++|          SX7    B0+
04832  M01S00936.282l826 +++|          AX1    48
04833  M01S00937.282l826 +++|          LX5    48
04834  M01S00938.282l826 +++|          ZR     X1,EXI3     IF UNIT NOT ASSIGNED TO JOB
04835  M01S00939.282l826 +++|          LX2    59-49
04836  M01S00940.282l826 +++|          AX5    48          ERROR CODE
04837  M01S00941.282l826 +++|          NG     X2,CUT14    IF ACS UNIT
04838  M01S00942.282l826 +++|          SX2    X5-TCF
04839  M01S00943.282l826 +++|          SX3    /RSX/TCF
04840  M01S00944.282l826 +++|          ZR     X2,CUT16    IF *TCF* ERROR
04841  M01S00945.282l826 +++|          SX2    X5-BFR
04842  M01S00946.282l826 +++|          SX3    /RSX/BFR
04843  M01S00947.282l826 +++|          ZR     X2,CUT16    IF *BFR* ERROR
04844  M01S00948.282l826 +++|          SX2    X5-BFW
04845  M01S00949.282l826 +++|          SX3    /RSX/BFW
04846  M01S00950.282l826 +++|          ZR     X2,CUT16    IF *BFW* ERROR
04847  M01S00951.282l826 +++| CUT14    SX2    X5-BEI
04848  M01S00952.282l826 +++|          ZR     X2,CUT15    IF *BEI* ERROR
04849  M01S00953.282l826 +++|          SX2    X5-RRJ
04850  M01S00954.282l826 +++|          NZ     X2,CUT17    IF NOT *RRJ* ERROR
04851  M01S00955.282l826 +++| CUT15    RJ     GPI         CHECK FOR ERROR PROCESSOR
04852  M01S00956.282l826 +++|          ZR     X2,CUT17    IF NO ERROR PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
04853  M01S01548.274l797 ---|          LX1    59-10
04854  M01S01549.274l797 ---|          PL     X1,CUT5     IF NOT CLEAR CURRENT STRING ON ERROR
04855  M01S01550.274l797 ---|          SX7    X7-2000B
04856  M00S01551.magnet  +++|          BX6    X6-X6       CLEAR CURRENT STRING
04857  M00S01552.magnet  +++|          SA6    A4
04858  M00S01553.magnet  +++|          EQ     CUT5        CALL ERROR PROCESSOR
04859  M00S01554.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04860  M02S00195.282l826 ---| CUT15.1  LX4    18-3        SET LOAD POINT ERROR CODE IN *UVSN*
04861  M02S00196.282l826 ---|          SA5    A0+UVSN
04862  M02S00197.282l826 ---|          BX6    X4+X5
04863  M02S00198.282l826 ---|          SA6    A5

Seq #  *Modification Id* Act 
----------------------------+
04864  M03S00199.282l826 ---|          MESSAGE  MAGD,2    +CHECK *E,P* DISPLAY+

Seq #  *Modification Id* Act 
----------------------------+
04865  M03S00014.282l826 ---|          MESSAGE  CEPD,2    +CHECK *E,P* DISPLAY+

Seq #  *Modification Id* Act 
----------------------------+
04866  M02S01632.282l826 ---|          MX6    1           SET OPERATOR REQUEST FLAG
04867  M02S01633.282l826 ---|          SA6    OPRF

Seq #  *Modification Id* Act 
----------------------------+
04868  M01S00957.282l826 +++| CUT16    RJ     SPR         SET PREVIEW DISPLAY REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04869  M01S00200.252l678 +++|          SX7    PLPD        PROCESS LOAD POINT RECOVERY
04870  M01S00201.252l678 +++|          EQ     EXI4        ENTER NEW REQUEST
04871  M01S00202.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
04872  M01S01555.252l678 ---| CUT16    SX7    PMAB        ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
04873  M02S00203.274l797 ---| CUT16    RJ     /TFM/SUE    SET UNRECOVERED ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
04874  M02S01634.282l826 ---| CUT16    RJ     SUE         SET UNRECOVERED ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
04875  M02S00204.282l826 ---|          SX7    PMAB        ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
04876  M01S01556.282l826 ---|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
04877  M01S01557.282l826 ---|
04878  M01S01558.282l826 ---| CUT17    SX7    PCFI        SET TO CLEAR FILE IDENTIFIER
04879  M01S01559.282l826 ---|          EQ     EXI3        CLEAR REQUEST QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04880  M01S00958.282l826 +++| CUT17    SA1    A0+UTMS
04881  M01S00959.282l826 +++|          SA2    A0+ULRQ

Seq #  *Modification Id* Act 
----------------------------+
04882  M02S00960.ns2773  ---|          SX5    2000B       USE UDT ERROR CODE IN ABORT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04883  M01S00042.ns2773  +++|          SX5    B0+         USE UDT ERROR CODE IN ABORT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04884  M01S00961.282l826 +++|          LX1    59-11
04885  M01S00962.282l826 +++|          LX2    12
04886  M01S00963.282l826 +++|          PL     X1,ABR      IF NOT TMS CONTROLLED FILE
04887  M01S00964.282l826 +++|          AX2    48          LAST PP REQUEST
04888  M01S00965.282l826 +++|          LX1    11-11-59+11
04889  M01S00966.282l826 +++|          SX3    X2-WTF
04890  M01S00967.282l826 +++|          ZR     X3,CUT18    IF WRITE DATA
04891  M01S00968.282l826 +++|          SX3    X2-WLA
04892  M01S00969.282l826 +++|          NZ     X3,ABR      IF NOT WRITE LABELS
04893  M01S00970.282l826 +++| CUT18    SX0    200B
04894  M01S00971.282l826 +++|          BX6    X0+X1       SET UNRECOVERED WRITE ERROR
04895  M01S00972.282l826 +++|          SA6    A1
04896  M01S00973.282l826 +++|          EQ     ABR         ABORT REQUEST
04897  M00S01560.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04898  M01S01635.274l797 +++|
04899  M00S01561.magnet  +++| CUTB     CON    0

Seq #  *Modification Id* Act 
----------------------------+
04900  M01S01562.274l797 ---|
04901  M01S01563.274l797 ---| CUTC     PL     X2,CUT12    IF NO EXTERNAL REQUEST
04902  M01S01564.274l797 ---|          RJ     GER         GET EXTERNAL REQUEST FROM QUEUE
04903  M01S01565.274l797 ---|+         PL     X2,CUT10    IF NO EXTERNAL REQUEST (2 SEC. INTERVALS)
04904  M01S01566.274l797 ---|          RJ     GER         GET EXTERNAL REQUEST FROM QUEUE
04905  M00S01567.magnet  +++| EXI      SPACE  4,10
04906  M00S01568.magnet  +++|**        EXI - COMMON EXIT POINTS.
04907  M00S01569.magnet  +++|
04908  M00S01570.magnet  +++|
04909  M00S01571.magnet  +++|*         EXIX - EXIT TO PROCESS NEXT UNIT.
04910  M00S01572.magnet  +++|*         EXIT - EXIT AND PROCESS NEXT OPERATION FOR THIS UNIT.
04911  M00S01573.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04912  M01S01574.282l826 ---| EXIX     EQU    CUT12       PROCESS NEXT UNIT

Seq #  *Modification Id* Act 
----------------------------+
04913  M01S00974.282l826 +++| EXIX     EQU    CUT10       PROCESS NEXT UNIT
04914  M00S01575.magnet  +++| EXIT     EQU    CUT8        PROCESS NEXT REQUEST
04915  M00S01576.magnet  +++|
04916  M00S01577.magnet  +++|*         EXI1 - CLEAR CURRENT REQUEST AND ENTER NEW REQUEST.
04917  M00S01578.magnet  +++|*
04918  M00S01579.magnet  +++|*         ENTRY  (X5) = PARAMETERS.
04919  M00S01580.magnet  +++|*                (X7) = REQUEST.
04920  M00S01581.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04921  M01S01582.253l688 ---| EXI1     SX6    B0+         CLEAR CURRENT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04922  M01S00151.253l688 +++| EXI1     BSS    0           ENTRY
04923  M01S00152.253l688 +++|          SX6    B0+         CLEAR CURRENT REQUEST
04924  M00S01583.magnet  +++|          SA6    A0+UREQ

Seq #  *Modification Id* Act 
----------------------------+
04925  M01S01584.282l826 ---|          EQ     EXI4        QUEUE NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04926  M01S00975.282l826 +++|          NZ     X7,EXI4     IF NEW REQUEST
04927  M01S00976.282l826 +++|          RJ     GNR         GET NEXT REQUEST
04928  M01S00977.282l826 +++|          EQ     EXIX        PROCESS NEXT UNIT
04929  M00S01585.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04930  M01S01586.282l826 ---|*         EXI2 - MAKE REQUEST TO *1MT*.

Seq #  *Modification Id* Act 
----------------------------+
04931  M01S00978.282l826 +++|*         EXI2 - MAKE REQUEST TO *1MT* OR *1MU*.
04932  M00S01587.magnet  +++|*
04933  M00S01588.magnet  +++|*         ENTRY  (X5) = MD, PA, PB PARAMETERS.
04934  M00S01589.magnet  +++|*                (X7) = FUNCTION.
04935  M00S01590.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04936  M01S01591.253l688 ---| EXI2     LX7    36

Seq #  *Modification Id* Act 
----------------------------+
04937  M01S00153.253l688 +++| EXI2     BSS    0           ENTRY
04938  M01S00154.253l688 +++|          LX7    36
04939  M00S01592.magnet  +++|          BX6    X5+X7

Seq #  *Modification Id* Act 
----------------------------+
04940  M01S01593.253l688 ---|          SA6    A0+

Seq #  *Modification Id* Act 
----------------------------+
04941  M01S00155.253l688 +++|          SA6    A0+UXRQ
04942  M00S01594.magnet  +++|          EQ     EXIX        PROCESS NEXT UNIT
04943  M00S01595.magnet  +++|
04944  M00S01596.magnet  +++|*         EXI3 - EMPTY REQUEST QUEUE AND QUEUE NEW REQUEST.
04945  M00S01597.magnet  +++|*
04946  M00S01598.magnet  +++|*         ENTRY  (X5) = PARAMETER.
04947  M00S01599.magnet  +++|*                (X7) = REQUEST.
04948  M00S01600.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04949  M01S01601.253l688 ---| EXI3     RJ     GNR         GET NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04950  M01S00156.253l688 +++| EXI3     BSS    0           ENTRY
04951  M01S00157.253l688 +++|          RJ     GNR         GET NEXT REQUEST
04952  M00S01602.magnet  +++|          BX6    X6-X6       CLEAR REQUEST
04953  M00S01603.magnet  +++|          SA6    A4
04954  M00S01604.magnet  +++|          NZ     X4,EXI3     IF REQUEST QUEUE NOT EMPTY
04955  M00S01605.magnet  +++|*         EQ     EXI4        QUEUE NEW REQUEST
04956  M00S01606.magnet  +++|
04957  M00S01607.magnet  +++|*         EXI4 - QUEUE NEW REQUEST.
04958  M00S01608.magnet  +++|*
04959  M00S01609.magnet  +++|*         ENTRY  (X5) = PARAMETERS.
04960  M00S01610.magnet  +++|*                (X7) = REQUEST.
04961  M00S01611.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04962  M01S01612.253l688 ---| EXI4     ZR     X7,EXIX     IF NO REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04963  M01S00158.253l688 +++| EXI4     BSS    0           ENTRY
04964  M01S00159.253l688 +++|          ZR     X7,EXIX     IF NO REQUEST
04965  M00S01613.magnet  +++|          RJ     MQE
04966  M00S01614.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST
04967  M00S01615.magnet  +++|
04968  M00S01616.magnet  +++|*         EXI5 - REQUEUE OPERATION.
04969  M00S01617.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
04970  M01S01618.253l688 ---| EXI5     SA1    CUTB

Seq #  *Modification Id* Act 
----------------------------+
04971  M01S00160.253l688 +++| EXI5     BSS    0           ENTRY
04972  M01S00161.253l688 +++|          SA1    CUTB
04973  M00S01619.magnet  +++|          BX6    X1
04974  M00S01620.magnet  +++|          SA6    A0+UREQ
04975  M00S01621.magnet  +++|          EQ     EXIX        PROCESS NEXT UNIT
04976  M00S01622.magnet  +++|          TITLE  REQUEST PROCESSORS.
04977  M00S01623.magnet  +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04978  M01S01624.282l826 ---|**        SUBROUTINE REGISTER CONVENTIONS.

Seq #  *Modification Id* Act 
----------------------------+
04979  M01S00979.282l826 +++|**        REQUEST PROCESSOR REGISTER CONVENTIONS.
04980  M00S01625.magnet  +++|*         UNLESS OTHERWISE DOCUMENTED ALL ROUTINES EXPECT THE FOLLOWING
04981  M00S01626.magnet  +++|*         ENTRY CONDITIONS AND WILL EXIT WITH THESE REGISTERS
04982  M00S01627.magnet  +++|*         UNCHANGED.
04983  M00S01628.magnet  +++|*
04984  M00S01629.magnet  +++|*         ENTRY  (A0) = FWA OF UDT.

Seq #  *Modification Id* Act 
----------------------------+
04985  M01S01630.282l826 ---|*                (B2) = UNIT NUMBER (SOFTWARE).

Seq #  *Modification Id* Act 
----------------------------+
04986  M01S00980.282l826 +++|*                (B2) = UDT ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
04987  M01S01631.274l797 ---|*                (B7) = FORMAT.
04988  M00S01632.magnet  +++|*                (X5) = CIO INTERNAL REQUEST IF FIRST STRING PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
04989  M01S00981.282l826 +++| CAT      SPACE  4,10
04990  M01S00982.282l826 +++|**        CAT - CHECK STATISTICAL ACCUMULATOR THESHOLDS.
04991  M01S00983.282l826 +++|
04992  M01S00984.282l826 +++|
04993  M01S00985.282l826 +++| CAT      BSS    0           ENTRY
04994  M01S00986.282l826 +++|          SA1    A0+UERC     GET RECOVERED ERROR COUNTS
04995  M01S00987.282l826 +++|          SA2    CATA
04996  M01S00988.282l826 +++|          SA3    A0+UBLC     GET BLOCKS TRANSFERRED COUNTS
04997  M01S00989.282l826 +++|          SA4    CATB
04998  M01S00990.282l826 +++|          BX1    X2*X1
04999  M01S00991.282l826 +++|          BX3    X4*X3
05000  M01S00992.282l826 +++|          IX1    X1+X3
05001  M01S00993.282l826 +++|          ZR     X1,EXIT     IF NO ACCUMULATOR THRESHOLDS REACHED
05002  M01S00994.282l826 +++|          SX7    PLAC        LOG ACCUMULATORS
05003  M01S00995.282l826 +++|          EQ     EXI4        QUEUE NEW REQUEST
05004  M01S00996.282l826 +++|
05005  M01S00997.282l826 +++|
05006  M01S00998.282l826 +++| CATA     CON    77700077700000777000B  *UERC* THRESHOLDS MASK
05007  M01S00999.282l826 +++| CATB     CON    77770000777700000000B  *UBLC* THRESHOLDS MASK

Seq #  *Modification Id* Act 
----------------------------+
05008  M01S00003.ns2106  +++| CCR      SPACE  4,10
05009  M01S00004.ns2106  +++|**        CCR - CHECK IF CLOSER/RETURN.
05010  M01S00005.ns2106  +++|
05011  M01S00006.ns2106  +++|

Seq #  *Modification Id* Act 
----------------------------+
05012  M02S00007.253l688 ---| CCR      SA1    A0+UCIB     CHECK EXTERNAL *CIO* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05013  M01S00162.253l688 +++| CCR      BSS    0           ENTRY
05014  M01S00163.253l688 +++|          SA1    A0+UCIB     CHECK EXTERNAL *CIO* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05015  M01S00008.ns2106  +++|          SX2    774B
05016  M01S00009.ns2106  +++|          LX1    12
05017  M01S00010.ns2106  +++|          BX2    X2*X1
05018  M01S00011.ns2106  +++|          SX2    X2-374B
05019  M01S00012.ns2106  +++|          NZ     X2,EXIT     IF NOT CLOSER/RETURN

Seq #  *Modification Id* Act 
----------------------------+
05020  M02S00013.282l826 ---|          BX6    X6-X6       CLEAR CURRENT REQUEST
05021  M02S00014.282l826 ---|          SX5    B1          SET FET COMPLETION CODE
05022  M02S00015.282l826 ---|          SX7    CUF         SET FUNCTION
05023  M02S00016.282l826 ---|          SA6    A0+UREQ
05024  M02S00017.282l826 ---|          EQ     EXI2        ENTER *1MT* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05025  M01S01000.282l826 +++|          SX5    1           SET FET COMPLETION CODE
05026  M01S01001.282l826 +++|          SX7    PFET
05027  M01S01002.282l826 +++|          EQ     EXI3        CLEAR QUEUE AND MAKE NEW REQUEST
05028  M00S01633.magnet  +++| CCS      SPACE  4,10
05029  M00S01634.magnet  +++|**        CCS - CHECK IF LABEL CHECKING COMPLETE.
05030  M00S01635.magnet  +++|
05031  M00S01636.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05032  M01S01637.253l688 ---| CCS      SA1    A0+UVSN

Seq #  *Modification Id* Act 
----------------------------+
05033  M01S00164.253l688 +++| CCS      BSS    0           ENTRY
05034  M01S00165.253l688 +++|          SA1    A0+UVSN
05035  M00S01638.magnet  +++|          BX5    X5-X5
05036  M00S01639.magnet  +++|          LX1    59-23
05037  M00S01640.magnet  +++|          ZR     X1,CCS1     IF NO LABEL READ
05038  M00S01641.magnet  +++|          PL     X1,EXIX     IF LABEL CHECK COMPLETE
05039  M00S01642.magnet  +++| CCS1     SX7    PILA

Seq #  *Modification Id* Act 
----------------------------+
05040  M01S01643.274l797 ---|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05041  M01S01636.274l797 +++|          EQ     EXI1        RESTART INITIAL LABEL CHECK
05042  M00S01644.magnet  +++| CEF      SPACE  4,10
05043  M00S01645.magnet  +++|**        CEF - CHECK ERROR FLAG.

Seq #  *Modification Id* Act 
----------------------------+
05044  M01S01646.magne15 ---|*         IF ERROR FLAG HAS BEEN SET ON THE JOB THE REQUEST QUEUE WILL
05045  M01S01647.magne15 ---|*         BE CLEARED.

Seq #  *Modification Id* Act 
----------------------------+
05046  M01S00001.magne15 +++|*

Seq #  *Modification Id* Act 
----------------------------+
05047  M02S00002.282l826 ---|*         THE REQUEST QUEUE WILL BE CLEARED IF THE ERROR FLAG HAS BEEN
05048  M02S00003.282l826 ---|*         SET ON THE JOB AND THE CLEAR JOB ASSIGNMENT REQUEST (*PCNA*)
05049  M02S00004.282l826 ---|*         IS NOT IN THE QUEUE.  NOTICE THAT THE REQUEST QUEUE MAY BE
05050  M02S00005.282l826 ---|*         CLEARED EVEN IF THE CLEAR JOB ASSIGNMENT EXTERNAL REQUEST
05051  M02S00006.282l826 ---|*         (*XRU*) IS IN THE QUEUE.  THIS IS OK SINCE EXTERNAL REQUESTS
05052  M02S00007.282l826 ---|*         ARE IGNORED WHEN CLEARING THE QUEUE.  IF THE ERROR IS A USER
05053  M02S00008.282l826 ---|*         BREAK 2, SET THE REWIND REPOSITIONING FLAG TO FORCE THE USER
05054  M02S00009.282l826 ---|*         TO REMOUNT THE FIRST REEL SHOULD THEY WANT TO RESUME USING
05055  M02S00010.282l826 ---|*         THE TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
05056  M01S01003.282l826 +++|*         THE REQUEST QUEUE WILL BE CLEARED IF AN APPROPRIATE ERROR
05057  M01S01004.282l826 +++|*         FLAG IS SET AND A *CIO* REQUEST IS IN PROGRESS.
05058  M00S01648.magnet  +++|
05059  M00S01649.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05060  M01S01650.253l688 ---| CEF      SA1    A0+UCIA

Seq #  *Modification Id* Act 
----------------------------+
05061  M01S00166.253l688 +++| CEF      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
05062  M02S00011.282l826 ---|          SA2    A0+UFLA
05063  M02S00012.282l826 ---|          LX2    59-54
05064  M02S00013.282l826 ---|          NG     X2,CEF0     IF *PCNA* REQUEST IN QUEUE

Seq #  *Modification Id* Act 
----------------------------+
05065  M02S00167.282l826 ---|          SA1    A0+UCIA

Seq #  *Modification Id* Act 
----------------------------+
05066  M02S01651.282l826 ---|          NZ     X1,EXIT     IF PENDING REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05067  M02S01637.282l826 ---|          NZ     X1,EXIT     IF *CIO* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05068  M03S00007.282l826 ---|          SA2    A0+UFLA
05069  M03S00008.282l826 ---|          LX2    59-54
05070  M03S00009.282l826 ---|          NG     X2,CEF0     IF CLEAR JOB ASSIGNMENT IS IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
05071  M02S00016.282l826 ---|          SA2    A0+UJID

Seq #  *Modification Id* Act 
----------------------------+
05072  M03S00017.282l826 ---|          NG     X2,CEF2     IF RETURN IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
05073  M02S00014.282l826 ---|          NG     X2,CEF2     IF *XRU* EXTERNAL REQUEST IN QUEUE

Seq #  *Modification Id* Act 
----------------------------+
05074  M02S01652.282l826 ---|          BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
05075  M02S00010.282l826 ---| CEF0     BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
05076  M01S01005.282l826 +++|          SA1    A0+UFRQ
05077  M01S01006.282l826 +++|          AX1    48
05078  M01S01007.282l826 +++|          SX7    B0          SET NO NEW REQUEST
05079  M01S01008.282l826 +++|          SX1    X1-CIO
05080  M01S01009.282l826 +++|          ZR     X1,EXIT     IF *CIO* REQUEST
05081  M00S01653.magnet  +++|          EQ     EXI1        CLEAR CURRENT REQUEST
05082  M00S01654.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05083  M01S01010.282l826 +++|*         REENTRY TO CHECK REQUEST STATUS.

Seq #  *Modification Id* Act 
----------------------------+
05084  M01S00043.ns2773  +++|*         THE PREVIEW DISPLAY MESSAGE FLAG IS CLEARED TO INSURE THAT
05085  M01S00044.ns2773  +++|*         OPERATOR COMMANDS WHICH COULD MODIFY THE UDT ARE NOT
05086  M01S00045.ns2773  +++|*         PROCESSED WHILE THE *1MU* *MAB* FUNCTION IS EXECUTING.

Seq #  *Modification Id* Act 
----------------------------+
05087  M01S01011.282l826 +++|

Seq #  *Modification Id* Act 
----------------------------+
05088  M01S01655.253l688 ---| CEF1     SA1    A0+ULRQ

Seq #  *Modification Id* Act 
----------------------------+
05089  M01S00168.253l688 +++| CEF1     BSS    0           ENTRY
05090  M01S00169.253l688 +++|          SA1    A0+ULRQ

Seq #  *Modification Id* Act 
----------------------------+
05091  M01S00046.ns2773  +++|          SA2    A0+UVRI

Seq #  *Modification Id* Act 
----------------------------+
05092  M01S01656.282l826 ---|          SX2    X1
05093  M01S01657.282l826 ---|          BX7    X7-X7
05094  M01S01658.282l826 ---|          ZR     X2,EXIX     IF NO ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
05095  M02S01659.282l826 ---|          SA1    A0+UVSN     CLEAR POSSIBLE *DSD* ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
05096  M03S00018.282l826 ---| CEF2     SA1    A0+UVSN     CLEAR POSSIBLE *DSD* ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
05097  M02S01660.282l826 ---|          MX2    4
05098  M02S01661.282l826 ---|          LX2    18

Seq #  *Modification Id* Act 
----------------------------+
05099  M02S00001.282l826 ---| CEF2     SA1    A0+UVSN     CLEAR POSSIBLE *E,P* DISPLAY CONDITION
05100  M02S00002.282l826 ---|          SX2    171B
05101  M02S00003.282l826 ---|          LX2    12

Seq #  *Modification Id* Act 
----------------------------+
05102  M01S01662.282l826 ---|          BX6    -X2*X1

Seq #  *Modification Id* Act 
----------------------------+
05103  M02S01663.282l826 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
05104  M02S00004.282l826 ---|          SA6    A1+
05105  M02S00005.282l826 ---|          SA3    A0+ULRQ
05106  M02S00006.282l826 ---|          SX3    X3
05107  M02S00007.282l826 ---|          AX3    12
05108  M02S00008.282l826 ---|          SX3    X3-TAET
05109  M02S00009.282l826 ---|          NZ     X3,EXI3     IF NOT USER BREAK 2
05110  M02S00010.282l826 ---|          BX1    X2*X1
05111  M02S00011.282l826 ---|          LX1    59-12
05112  M02S00012.282l826 ---|          PL     X1,EXI3     IF NOT *MOUNT* REQUEST
05113  M02S00013.282l826 ---|          SA1    A0+UFLA     SET USER BREAK 2 FLAG
05114  M02S00014.282l826 ---|          SX2    1040B       SET REWIND REPOSITIONING FLAG
05115  M02S00015.282l826 ---|          LX2    48
05116  M02S00016.282l826 ---|          BX6    X1+X2
05117  M02S00017.282l826 ---|          SA6    A1+

Seq #  *Modification Id* Act 
----------------------------+
05118  M01S01012.282l826 +++|          MX6    -12

Seq #  *Modification Id* Act 
----------------------------+
05119  M01S00047.ns2773  +++|          MX7    59

Seq #  *Modification Id* Act 
----------------------------+
05120  M01S01013.282l826 +++|          BX6    -X6*X1

Seq #  *Modification Id* Act 
----------------------------+
05121  M02S01014.ns2773  ---|          ZR     X6,EXIX     IF REQUEST NOT ABORTED
05122  M02S01015.ns2773  ---|          SX7    B0+

Seq #  *Modification Id* Act 
----------------------------+
05123  M01S01664.ns2773  ---|          EQ     EXI3        EMPTY QUEUE

Seq #  *Modification Id* Act 
----------------------------+
05124  M01S00048.ns2773  +++|          BX7    X7*X2
05125  M01S00049.ns2773  +++|          ZR     X6,EXIX     IF NOT TO ABORT REQUEST
05126  M01S00050.ns2773  +++|          SA7    A2+         CLEAR MESSAGE FLAG
05127  M01S00051.ns2773  +++|          SX5    EFT         SET ERROR FLAG TERMINATION
05128  M01S00052.ns2773  +++|          EQ     ABR         ABORT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05129  M02S00010.282l826 ---| CER      SPACE  4,20
05130  M02S00011.282l826 ---|**        CER - CORRECTED ERROR REPORTING.
05131  M02S00012.282l826 ---|*         (UST10) HAS COUNTS OF CORRECTED TAPE ERRORS.

Seq #  *Modification Id* Act 
----------------------------+
05132  M01S01016.282l826 +++| CER      SPACE  4,10
05133  M01S01017.282l826 +++|**        CER - CLEAR END OF REEL FLAGS AND ADVANCE SECTION.
05134  M01S01018.282l826 +++|*
05135  M01S01019.282l826 +++|*         THE SECTION NUMBER MUST BE ADVANCED WHEN THE END OF REEL
05136  M01S01020.282l826 +++|*         FLAGS ARE CLEARED SO THAT REQUEST ABORT PROCESSING WILL WORK
05137  M01S01021.282l826 +++|*         PROPERLY.  SEE *1MU* *MAB* FUNCTION.

Seq #  *Modification Id* Act 
----------------------------+
05138  M01S00013.ns21000 +++|

Seq #  *Modification Id* Act 
----------------------------+
05139  M02S00014.253l688 ---| CER      SA1    A0+UST10

Seq #  *Modification Id* Act 
----------------------------+
05140  M02S00170.282l826 ---| CER      BSS    0           ENTRY
05141  M02S00171.282l826 ---|          SA1    A0+UST10

Seq #  *Modification Id* Act 
----------------------------+
05142  M02S00015.282l826 ---|          ZR     X1,EXIT     IF NO CORRECTED ERRORS, DO NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05143  M03S00016.282l826 ---|          SX5    11B

Seq #  *Modification Id* Act 
----------------------------+
05144  M02S01638.282l826 ---|          SX5    FNCM

Seq #  *Modification Id* Act 
----------------------------+
05145  M02S00017.282l826 ---|          SX7    FNH
05146  M02S00018.282l826 ---|          EQ     EXI2        ENTER *1MT* REQUEST TO REPORT ERRORS

Seq #  *Modification Id* Act 
----------------------------+
05147  M01S01022.282l826 +++|
05148  M01S01023.282l826 +++| CER      BSS    0
05149  M01S01024.282l826 +++|          SA1    A0+UVRI
05150  M01S01025.282l826 +++|          SA2    A0+UFSN
05151  M01S01026.282l826 +++|          SX6    16B
05152  M01S01027.282l826 +++|          SX7    1
05153  M01S01028.282l826 +++|          BX6    -X6*X1      CLEAR END OF REEL FLAGS
05154  M01S01029.282l826 +++|          IX7    X2+X7       INCREMENT SECTION NUMBER
05155  M01S01030.282l826 +++|          SA6    A1
05156  M01S01031.282l826 +++|          SA7    A2
05157  M01S01032.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
05158  M00S01665.magnet  +++| CET      SPACE  4,10
05159  M00S01666.magnet  +++|**        CET - CHECK END OF TAPE TYPE AND DETERMINE TYPE OF BACKSPACE
05160  M00S01667.magnet  +++|*         TO DO.
05161  M00S01668.magnet  +++|
05162  M00S01669.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05163  M01S01670.253l688 ---| CET      SA1    A0+UST4

Seq #  *Modification Id* Act 
----------------------------+
05164  M01S00172.253l688 +++| CET      BSS    0           ENTRY
05165  M01S00173.253l688 +++|          SA1    A0+UST4
05166  M00S01671.magnet  +++|          SX2    3
05167  M00S01672.magnet  +++|          SX7    RLA
05168  M00S01673.magnet  +++|          SA5    =210000010300B

Seq #  *Modification Id* Act 
----------------------------+
05169  M01S01674.282l826 ---|          LX1    -10

Seq #  *Modification Id* Act 
----------------------------+
05170  M01S01033.282l826 +++|          LX1    -46
05171  M00S01675.magnet  +++|          BX3    X2*X1
05172  M00S01676.magnet  +++|          SB3    X3
05173  M00S01677.magnet  +++|          SX6    B1
05174  M00S01678.magnet  +++|          ZR     B3,EXI2     IF READ TO TAPE MARK
05175  M00S01679.magnet  +++|          LX6    12
05176  M00S01680.magnet  +++|          BX5    -X6*X5
05177  M00S01681.magnet  +++|          EQ     EXI2        ENTER *1MT* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05178  M01S01682.282l826 ---| CFI      SPACE  4,10
05179  M01S01683.282l826 ---|**        CFI - CLEAR FILE IDENTIFIER.
05180  M01S01684.282l826 ---|
05181  M01S01685.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
05182  M02S01686.282l826 ---| CFI      SX6    B0

Seq #  *Modification Id* Act 
----------------------------+
05183  M02S00174.282l826 ---| CFI      BSS    0           ENTRY
05184  M02S00175.282l826 ---|          SX6    B0

Seq #  *Modification Id* Act 
----------------------------+
05185  M01S01687.282l826 ---|          MX2    -18
05186  M01S01688.282l826 ---|          SA6    A0+UFID
05187  M01S01689.282l826 ---|          SA1    A0+UFSN     CLEAR SECOND HALF
05188  M01S01690.282l826 ---|          BX6    -X2*X1
05189  M01S01691.282l826 ---|          SA6    A1
05190  M01S01692.282l826 ---|          EQ     EXIT        PROCESS NEXT REQUEST
05191  M00S01693.magnet  +++| CEV      SPACE  4,10
05192  M00S01694.magnet  +++|**        CEV - CHECK END OF VOLUME.
05193  M00S01695.magnet  +++|*         (PA) FROM LAST REQUEST = 4XXX IF *EOV1* ENCOUNTERED.
05194  M00S01696.magnet  +++|
05195  M00S01697.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05196  M01S01698.253l688 ---| CEV      SA1    A0+ULRQ     CHECK IF *EOV1* ENCOUNTERED

Seq #  *Modification Id* Act 
----------------------------+
05197  M01S00176.253l688 +++| CEV      BSS    0           ENTRY
05198  M01S00177.253l688 +++|          SA1    A0+ULRQ     CHECK IF *EOV1* ENCOUNTERED
05199  M00S01699.magnet  +++|          LX1    59-23
05200  M00S01700.magnet  +++|          PL     X1,EXIT     IF NOT REEL SWAP
05201  M00S01701.magnet  +++|          SX7    PMFV
05202  M00S01702.magnet  +++|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
05203  M00S01703.magnet  +++| CFP      SPACE  4,10
05204  M00S01704.magnet  +++|**        CFP - CHECK FILE POSITION.
05205  M00S01705.magnet  +++|*         IF POSITIONED AT END OF SET AND POSMF *9999* FUNCTION,
05206  M00S01706.magnet  +++|*         THEN WRITE MULTI FILE LABEL.
05207  M00S01707.magnet  +++|
05208  M00S01708.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05209  M01S01709.253l688 ---| CFP      SA1    A0+ULRQ     CHECK IF EOI

Seq #  *Modification Id* Act 
----------------------------+
05210  M01S00178.253l688 +++| CFP      BSS    0           ENTRY
05211  M01S00179.253l688 +++|          SA1    A0+ULRQ     CHECK IF EOI
05212  M00S01710.magnet  +++|          SX7    PWFL        SET TO WRITE MULTI-FILE LABEL

Seq #  *Modification Id* Act 
----------------------------+
05213  M01S01711.274l797 ---|          SA3    A0+UST1     CHECK FOR MULTI-FILE MISSING

Seq #  *Modification Id* Act 
----------------------------+
05214  M02S01639.282l826 ---|          SA3    A0+UFLA     CHECK FOR MULTI-FILE MISSING

Seq #  *Modification Id* Act 
----------------------------+
05215  M01S01034.282l826 +++|          SA3    A0+UST2     CHECK FOR MULTI-FILE MISSING
05216  M00S01712.magnet  +++|          SX2    7000B

Seq #  *Modification Id* Act 
----------------------------+
05217  M01S01713.274l797 ---|          LX3    59-43

Seq #  *Modification Id* Act 
----------------------------+
05218  M02S01640.282l826 ---|          LX3    59-52

Seq #  *Modification Id* Act 
----------------------------+
05219  M01S01035.282l826 +++|          LX3    59-6
05220  M00S01714.magnet  +++|          BX4    X2*X1
05221  M00S01715.magnet  +++|          NG     X3,CFP2     IF MULTI-FILE NOT FOUND
05222  M00S01716.magnet  +++|          NZ     X4,CFP1     IF END OF TAPE AND USER PROCESSING SET
05223  M00S01717.magnet  +++|          LX1    36
05224  M00S01718.magnet  +++|          AX1    48
05225  M00S01719.magnet  +++|          ZR     X1,EXI4     IF END OF SET AND POSMF *9999*
05226  M00S01720.magnet  +++|          SX7    PPEI        CONTINUE SKIP
05227  M00S01721.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05228  M00S01722.magnet  +++|
05229  M00S01723.magnet  +++| CFP1     SX7    PEOI        SET TO COMPLETE FET
05230  M00S01724.magnet  +++|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
05231  M00S01725.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05232  M01S01726.282l826 ---| CFP2     MX1    -59         CLEAR END OF SET FLAG
05233  M01S01727.282l826 ---|          BX6    -X1*X3
05234  M01S01728.282l826 ---|          SX7    PRES        SET TO REPOSITION PRIOR TO END OF SET

Seq #  *Modification Id* Act 
----------------------------+
05235  M02S01729.282l826 ---|          LX6    43-59

Seq #  *Modification Id* Act 
----------------------------+
05236  M02S01641.282l826 ---|          LX6    52-59

Seq #  *Modification Id* Act 
----------------------------+
05237  M01S01730.282l826 ---|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
05238  M01S01036.282l826 +++| CFP2     SX7    PRES        SET TO REPOSITION PRIOR TO END OF SET
05239  M00S01731.magnet  +++|          EQ     EXI3        CLEAR REQUEST QUEUE AND QUEUE NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05240  M02S00011.274l797 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
05241  M01S01642.274l797 +++| CIL      SPACE  4,10
05242  M01S01643.274l797 +++|**        CIL - COMPLETE INITIAL LABEL CHECK.
05243  M01S01644.274l797 +++|
05244  M01S01645.274l797 +++|
05245  M01S01646.274l797 +++| CIL      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
05246  M02S01647.282l826 ---|          SA3    A0+UJID
05247  M02S01648.282l826 ---|          LX3    -36
05248  M02S01649.282l826 ---|          SX3    X3          AST ADDRESS IF ACS UNIT
05249  M02S01650.282l826 ---|          ZR     X3,CIL1     IF NOT ACS UNIT
05250  M02S01651.282l826 ---|          SA3    X3+AMST

Seq #  *Modification Id* Act 
----------------------------+
05251  M01S01037.282l826 +++|          SA1    A0+UST1
05252  M01S01038.282l826 +++|          SA3    A0+UMST

Seq #  *Modification Id* Act 
----------------------------+
05253  M01S01652.274l797 +++|          MX6    -2

Seq #  *Modification Id* Act 
----------------------------+
05254  M01S01039.282l826 +++|          LX1    59-49
05255  M01S01040.282l826 +++|          PL     X1,CIL1     IF NOT ACS UNIT

Seq #  *Modification Id* Act 
----------------------------+
05256  M01S01653.274l797 +++|          BX6    -X6*X3      MOUNT STATUS FLAGS
05257  M01S01654.274l797 +++|          SX7    X6-2
05258  M01S01655.274l797 +++|          ZR     X7,CIL1     IF MOUNT COMPLETE
05259  M01S01656.274l797 +++|          NZ     X6,EXI5     IF MOUNT OR DISMOUNT OPERATION IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
05260  M02S01657.282l826 ---|          MX6    54

Seq #  *Modification Id* Act 
----------------------------+
05261  M01S01041.282l826 +++|          MX6    57

Seq #  *Modification Id* Act 
----------------------------+
05262  M01S01658.274l797 +++|          SX2    2
05263  M01S01659.274l797 +++|          BX3    X6*X3       CLEAR STATUS FLAGS
05264  M01S01660.274l797 +++|          BX6    X3+X2       SET MOUNTED STATUS
05265  M01S01661.274l797 +++|          SX5    B0

Seq #  *Modification Id* Act 
----------------------------+
05266  M02S01662.282l826 ---|          SA6    A3+
05267  M02S01663.282l826 ---|          SX7    PUNL        UNLOAD UNIT NOT MOUNTED FROM THIS SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
05268  M01S01042.282l826 +++|          SA6    A3
05269  M01S01043.282l826 +++|          SX7    PULR        UNLOAD UNIT NOT MOUNTED FROM THIS SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
05270  M01S01664.274l797 +++|          EQ     EXI3        CLEAR QUEUE AND MAKE NEW REQUEST
05271  M01S01665.274l797 +++|
05272  M01S01666.274l797 +++| CIL1     SA1    RTIM

Seq #  *Modification Id* Act 
----------------------------+
05273  M02S01667.282l826 ---|          MX6    36
05274  M02S01668.282l826 ---|          BX3    X6*X3       EXTERNAL VSN IF ACS UNIT
05275  M02S01669.282l826 ---|          AX1    36
05276  M02S01670.282l826 ---|          BX6    X3+X1       SET ACS EXTERNAL VSN AND LABEL READ TIME
05277  M02S01671.282l826 ---|          SA6    A0+UESN

Seq #  *Modification Id* Act 
----------------------------+
05278  M01S01044.282l826 +++|          SA2    A0+UTIM
05279  M01S01045.282l826 +++|          MX6    24
05280  M01S01046.282l826 +++|          BX1    X6*X1
05281  M01S01047.282l826 +++|          BX2    -X6*X2
05282  M01S01048.282l826 +++|          BX6    X1+X2       SET LABELS READ TIME
05283  M01S01049.282l826 +++|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
05284  M01S01672.274l797 +++|          EQ     EXIT        EXIT

Seq #  *Modification Id* Act 
----------------------------+
05285  M02S01673.282l826 ---| CJF      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
05286  M03S00012.282l826 ---|**        CJF - CLEAR THE CLEAR JOB ASSIGNMENT FLAG.

Seq #  *Modification Id* Act 
----------------------------+
05287  M02S00018.282l826 ---|**        CJF - CLEAR JOB ASSIGNMENT FLAGS.

Seq #  *Modification Id* Act 
----------------------------+
05288  M02S00013.282l826 ---|*         CLEAR THE CLEAR JOB ASSIGNMENT FLAG TO INDICATE THAT THE

Seq #  *Modification Id* Act 
----------------------------+
05289  M03S00014.282l826 ---|*         *PCNA* REQUEST HAS BEEN COMPLETELY PROCESSED.

Seq #  *Modification Id* Act 
----------------------------+
05290  M02S00019.282l826 ---|*         *PCNA* REQUEST HAS BEEN COMPLETELY PROCESSED.  CLEAR THE USER
05291  M02S00020.282l826 ---|*         BREAK 2 FLAG (MAY ALREADY BE CLEAR).

Seq #  *Modification Id* Act 
----------------------------+
05292  M02S00015.282l826 ---|
05293  M02S00016.282l826 ---|
05294  M02S00017.282l826 ---| CJF      BSS    0           ENTRY
05295  M02S00018.282l826 ---|          SA1    A0+UFLA     CLEAR THE CLEAR JOB ASSIGNMENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
05296  M03S00019.282l826 ---|          MX5    1

Seq #  *Modification Id* Act 
----------------------------+
05297  M02S00021.282l826 ---|          MX5    2           CLEAR THE USER BREAK 2 FLAG

Seq #  *Modification Id* Act 
----------------------------+
05298  M02S00020.282l826 ---|          LX5    54-59
05299  M02S00021.282l826 ---|          BX6    -X5*X1
05300  M02S00022.282l826 ---|          SA6    A1
05301  M02S00023.282l826 ---|          EQ     EXIT        PROCESS NEXT REQUEST
05302  M00S01732.magnet  +++| CLR      SPACE  4,10
05303  M00S01733.magnet  +++|**        CLR - CHECK IF LABEL READ.
05304  M00S01734.magnet  +++|*         (PA) FROM LAST REQUEST = 74 IF LABEL NOT READ.
05305  M00S01735.magnet  +++|
05306  M00S01736.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05307  M01S01737.253l688 ---| CLR      SA1    A0+ULRQ

Seq #  *Modification Id* Act 
----------------------------+
05308  M01S00180.253l688 +++| CLR      BSS    0           ENTRY
05309  M01S00181.253l688 +++|          SA1    A0+ULRQ
05310  M00S01738.magnet  +++|          SX7    PPNB        SET TO SKIP TO END OF LABEL BLOCK
05311  M00S01739.magnet  +++|          LX1    36
05312  M00S01740.magnet  +++|          AX1    48
05313  M00S01741.magnet  +++|          ZR     X1,EXI4     IF LABELS READ
05314  M00S01742.magnet  +++|          SX7    PSKT        CONTINUE TO SKIP DATA
05315  M00S01743.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05316  M00S01744.magnet  +++| CLM      SPACE  4,10
05317  M00S01745.magnet  +++|**        CLM - CHECK LABEL MATCH.
05318  M00S01746.magnet  +++|
05319  M00S01747.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
05320  M01S01748.253l688 ---| CLM      SX7    PPEI        SEARCH FOR CORRECT FILE SET

Seq #  *Modification Id* Act 
----------------------------+
05321  M01S00182.253l688 +++| CLM      BSS    0           ENTRY
05322  M01S00183.253l688 +++|          SX7    PPEI        SEARCH FOR CORRECT FILE SET
05323  M00S01749.magnet  +++|          SA2    A0+UCIB     CHECK IF POSMF
05324  M00S01750.magnet  +++|          AX2    50
05325  M00S01751.magnet  +++|          MX3    -8
05326  M00S01752.magnet  +++|          BX2    -X3*X2
05327  M00S01753.magnet  +++|          SX2    X2-22B
05328  M00S01754.magnet  +++|          ZR     X2,EXI4     IF POSMF
05329  M00S01755.magnet  +++|          SX7    PNLB        PROCESS NORMAL ERROR
05330  M00S01756.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05331  M00S01757.magnet  +++| CLO      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
05332  M01S01758.282l826 ---|**        CLO - CLOSE REEL.

Seq #  *Modification Id* Act 
----------------------------+
05333  M01S01050.282l826 +++|**        CLO - *CLOSE*/*CLOSER* PROCESSOR.

Proceed to Part 5