User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:magnet.005

Deck MAGNET Part 005

50 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
05334  M00S01759.magnet  +++|
05335  M00S01760.magnet  +++|
Line S01761 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05336  M01S01761.253l688 ---| CLO      SA1    A0+UST1
Line S00184 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05337  M01S00184.253l688 +++| CLO      BSS    0           ENTRY
Line S00185 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05338  M02S00185.282l826 ---|          SA1    A0+UST1
Line S01051 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05339  M01S01051.282l826 +++|          SA1    A0+UST2
05340  M00S01762.magnet  +++|          SA2    A0+UCIB
Line S01763 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05341  M01S01763.282l826 ---|          LX1    59-47
05342  M01S01764.282l826 ---|          LX2    59-55       CHECK IF CLOSE REEL
Line S01052 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05343  M01S01052.282l826 +++|          LX1    59-4
05344  M01S01053.282l826 +++|          LX2    59-55
05345  M00S01765.magnet  +++|          PL     X1,CLO1     IF LAST OPERATION NOT WRITE
05346  M00S01766.magnet  +++|          SX7    PCWT        WRITE EOF1 LABEL
Line S01767 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05347  M01S01767.282l826 ---|          PL     X2,EXI4     IF NOT CLOSE REEL WRITE EOF1
Line S01054 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05348  M01S01054.282l826 +++|          PL     X2,EXI4     IF NOT CLOSE REEL
05349  M00S01768.magnet  +++|          SX7    PCLR        WRITE EOV1
05350  M00S01769.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05351  M00S01770.magnet  +++|
Line S01771 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05352  M01S01771.282l826 ---| CLO1     SA1    A0+UST2     CHECK IF LABELED TAPE
Line S01055 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05353  M01S01055.282l826 +++| CLO1     SA1    A0+UST4
05354  M00S01772.magnet  +++|          BX3    X2
Line S01773 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05355  M01S01773.282l826 ---|          LX1    59-11
Line S01056 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05356  M01S01056.282l826 +++|          LX1    59-58
05357  M00S01774.magnet  +++|          LX2    55-41
05358  M00S01775.magnet  +++|          BX2    X1*X2
05359  M00S01776.magnet  +++|          NG     X2,CLO2     IF LABELED TAPE AND XL BIT SET
05360  M00S01777.magnet  +++|          SX7    PCLO        SET TO CLOSE FILE
05361  M00S01778.magnet  +++|          PL     X3,EXI4     IF NOT CLOSE REEL
05362  M00S01779.magnet  +++|          SX7    PERP        PROCESS END OF TAPE
05363  M00S01780.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05364  M00S01781.magnet  +++|
05365  M00S01782.magnet  +++| CLO2     SX7    PCLL        SET TO PROCESS CLOSE AND RETURN LABELS
05366  M00S01783.magnet  +++|          PL     X3,EXI4     IF NOT CLOSE REEL
05367  M00S01784.magnet  +++|          SX7    PERT        PROCESS END OF TAPE AND RETURN LABELS
05368  M00S01785.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05369  M00S01786.magnet  +++|
Line S01057 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05370  M01S01057.282l826 +++|*         CHECK FOR REWIND AFTER CLOSE OPERATION.
05371  M01S01058.282l826 +++|
Line S01787 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05372  M01S01787.253l688 ---| CLO3     LX5    59-35
Line S00186 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05373  M01S00186.253l688 +++| CLO3     BSS    0           ENTRY
05374  M01S00187.253l688 +++|          LX5    59-35
05375  M00S01788.magnet  +++|          PL     X5,EXIT     IF NOT REWIND
05376  M00S01789.magnet  +++|          BX5    X5-X5
05377  M00S01790.magnet  +++|          SX7    PRWC        REWIND CURRENT REEL AND SET REWIND FLAG
05378  M00S01791.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05379  M00S01792.magnet  +++| CNR      SPACE  4,10
05380  M00S01793.magnet  +++|**        CNR - CHECK NEXT REEL.
05381  M00S01794.magnet  +++|
05382  M00S01795.magnet  +++|
Line S01796 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05383  M01S01796.253l688 ---| CNR      SX7    PRET        SET TO ISSUE RETURN MESSAGE
Line S00188 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05384  M01S00188.253l688 +++| CNR      BSS    0           ENTRY
Line S01674 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05385  M02S01674.282l826 ---|          SA1    USWP
05386  M02S01675.282l826 ---|          SA5    A0+UJID
05387  M02S01676.282l826 ---|          NZ     X1,CNR10    IF UNIT SWAP IN PROGRESS
05388  M02S01677.282l826 ---|          LX5    -36
05389  M02S01678.282l826 ---|          SX5    X5          AST ADDRESS IF ACS UNIT
05390  M02S01679.282l826 ---|          ZR     X5,CNR6     IF NOT ACS UNIT
Line S01059 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05391  M01S01059.282l826 +++|          SA1    A0+UST1
05392  M01S01060.282l826 +++|          LX1    59-49
05393  M01S01061.282l826 +++|          PL     X1,CNR6     IF NOT ACS UNIT
Line S01680 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05394  M01S01680.274l797 +++|
05395  M01S01681.274l797 +++|*         LOCATE ACS VSN.
05396  M01S01682.274l797 +++|
05397  M01S01683.274l797 +++|          SA1    A0+UESN     REQUIRED VSN
05398  M01S01684.274l797 +++|          RJ     FAV         FIND ACS VSN
Line S01685 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05399  M02S01685.282l826 ---|          SA4    X5+AMST     GET CURRENT UNIT MOUNT STATUS
Line S01062 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05400  M01S01062.282l826 +++|          SA4    A0+UMST     GET CURRENT UNIT MOUNT STATUS
Line S01686 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05401  M01S01686.274l797 +++|          MX6    -2
05402  M01S01687.274l797 +++|          BX6    -X6*X4
05403  M01S01688.274l797 +++|          SB5    X6-1        CURRENT UNIT MOUNT STATUS - 1
Line S01689 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05404  M02S01689.282l826 ---|          EQ     B3,B4,CNR2  IF VSN NOT FOUND
Line S01063 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05405  M01S01063.282l826 +++|          ZR     B3,CNR3     IF VSN NOT FOUND
05406  M01S01064.282l826 +++|          NG     B3,CNR2     IF ERROR ON VSN
Line S01690 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05407  M01S01690.274l797 +++|          SX6    A0-B3
05408  M01S01691.274l797 +++|          SB4    X7-1
05409  M01S01692.274l797 +++|          EQ     B4,B1,CNR1  IF VSN MOUNTED
05410  M01S01693.274l797 +++|          GT     B4,B1,CNR10 IF DISMOUNT IN PROGRESS
05411  M01S01694.274l797 +++|          ZR     X6,CNR10    IF MOUNT IN PROGRESS ON CURRENT UNIT
05412  M01S01695.274l797 +++|          NZ     X3,CNR5     IF MOUNT IN PROGRESS ON ASSIGNED UNIT
05413  M01S01696.274l797 +++|          EQ     CNR10       WAIT FOR MOUNT COMPLETE
05414  M01S01697.274l797 +++|
05415  M01S01698.274l797 +++|*         VSN MOUNTED.
05416  M01S01699.274l797 +++|
05417  M01S01700.274l797 +++| CNR1     ZR     X6,CNR7     IF MOUNTED ON CURRENT UNIT
05418  M01S01701.274l797 +++|          NZ     X3,CNR5     IF MOUNTED ON ASSIGNED UNIT
05419  M01S01702.274l797 +++|          EQ     B5,B1,CNR5  IF CURRENT UNIT MOUNTED
Line S01703 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05420  M02S01703.282l826 ---|          SA1    B3+UESN
Line S01065 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05421  M01S01065.282l826 +++|          SA1    B3+UVSN
Line S01704 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05422  M01S01704.274l797 +++|          SA2    B3+UREQ
Line S01705 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05423  M02S01705.282l826 ---|          SA3    B3+UFLA
05424  M02S01706.282l826 ---|          MX0    36
05425  M02S01707.282l826 ---|          MX6    2
05426  M02S01708.282l826 ---|          BX1    X0*X1
05427  M02S01709.282l826 ---|          BX3    X6*X3
05428  M02S01710.282l826 ---|          ZR     X1,CNR10    IF INITIAL LABEL CHECK NOT COMPLETE
05429  M02S01711.282l826 ---|          NZ     X2,CNR10    IF REQUEST
05430  M02S01712.282l826 ---|          NZ     X3,CNR10    IF STACKED REQUEST OR EXTERNAL REQUEST
05431  M02S01713.282l826 ---|          SX6    B3+         SET UDT ADDRESS FOR UNIT SWAP
Line S01066 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05432  M01S01066.282l826 +++|          ZR     X1,CNR10    IF INITIAL LABEL CHECK NOT PERFORMED
05433  M01S01067.282l826 +++|          LX1    59-23
05434  M01S01068.282l826 +++|          NZ     X2,CNR10    IF PROCESSOR ACTIVE
05435  M01S01069.282l826 +++|          NG     X1,CNR10    IF LABEL CHECK IN PROGRESS
Line S01714 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05436  M01S01714.274l797 +++|          EQ     CNR8        INITIATE UNIT SWAP
05437  M01S01715.274l797 +++|
Line S01070 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05438  M01S01070.282l826 +++|*         VSN FOUND IN ERROR TABLE.
05439  M01S01071.282l826 +++|
05440  M01S01072.282l826 +++| CNR2     ZR     X3,CNR5     IF TRANSIENT ERROR
05441  M01S01073.282l826 +++|          RJ     SPR         SET PREVIEW DISPLAY REQUEST
05442  M01S01074.282l826 +++|          EQ     CNR5        DELAY FOR RETRY OF MOUNT
05443  M01S01075.282l826 +++|
Line S01716 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05444  M01S01716.274l797 +++|*         VSN NOT FOUND.
05445  M01S01717.274l797 +++|
Line S01718 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05446  M02S01718.282l826 ---| CNR2     LX4    59-3
05447  M02S01719.282l826 ---|          NG     X4,CNR10    IF VSN NOT AVAILABLE
05448  M02S01720.282l826 ---|          LX4    59-4-59+3
05449  M02S01721.282l826 ---|          PL     X4,CNR3     IF NOT FATAL VSN ERROR
05450  M02S01722.282l826 ---|          SA4    A4+ARQP-AMST
05451  M02S01723.282l826 ---|          MX6    -6
05452  M02S01724.282l826 ---|          LX6    12
05453  M02S01725.282l826 ---|          LX4    -18
05454  M02S01726.282l826 ---|          BX4    -X6*X4      MOUNT RESPONSE CODE
05455  M02S01727.282l826 ---|          SX5    AME         SET ACS MOUNT ERROR
05456  M02S01728.282l826 ---|          SX7    PMAB
05457  M02S01729.282l826 ---|          BX5    X5+X4       SET RESPONSE CODE IN REQUEST
05458  M02S01730.282l826 ---|          EQ     EXI3        CLEAR REQUEST QUEUE AND ABORT JOB
05459  M02S01731.282l826 ---|
05460  M02S01732.282l826 ---| CNR3     LX4    59-5-59+4
05461  M02S01733.282l826 ---|          NG     X4,CNR4     IF ALTERNATE UNIT MOUNT ALREADY ATTEMPTED
05462  M02S01734.282l826 ---|          MX6    1
05463  M02S01735.282l826 ---|          ZR     B6,CNR4     IF ALTERNATE UNIT NOT AVAILABLE
05464  M02S01736.282l826 ---|          BX6    X4+X6       SET ALTERNATE MOUNT FLAG
05465  M02S01737.282l826 ---|          LX6    5-5-59+5
05466  M02S01738.282l826 ---|          SA6    X5+AMST
Line S01076 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05467  M01S01076.282l826 +++| CNR3     ZR     B6,CNR4     IF ALTERNATE UNIT NOT AVAILABLE
Line S01739 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05468  M01S01739.274l797 +++|          RJ     MAV         MOUNT ON ALTERNATE UNIT
05469  M01S01740.274l797 +++|          EQ     CNR10       WAIT FOR MOUNT COMPLETE
05470  M01S01741.274l797 +++|
05471  M01S01742.274l797 +++| CNR4     PL     B5,CNR5     IF CURRENT UNIT NOT DISMOUNTED
Line S01743 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05472  M02S01743.282l826 ---|          LX4    59-2-59+5
05473  M02S01744.282l826 ---|          SB6    X5          SET CURRENT UNIT
Line S01077 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05474  M01S01077.282l826 +++|          LX4    59-2
05475  M01S01078.282l826 +++|          SB6    A0          SET CURRENT UNIT
Line S01745 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05476  M01S01745.274l797 +++|          NG     X4,CNR10    IF CONTROL PATH ERROR ON CURRENT UNIT
05477  M01S01746.274l797 +++|          RJ     MAV         MOUNT ON CURRENT UNIT
05478  M01S01747.274l797 +++|          EQ     CNR10       WAIT FOR MOUNT COMPLETE
05479  M01S01748.274l797 +++|
05480  M01S01749.274l797 +++|*         UNLOAD AND DISMOUNT CURRENT UNIT.
05481  M01S01750.274l797 +++|
05482  M01S01751.274l797 +++| CNR5     NE     B5,B1,CNR10 IF CURRENT UNIT NOT MOUNTED
05483  M01S01752.274l797 +++|          SX7    PRUL        UNLOAD UNIT
05484  M01S01753.274l797 +++|          EQ     EXI1        CLEAR CURRENT REQUEST AND ENTER NEW
05485  M01S01754.274l797 +++|
05486  M01S01755.274l797 +++|*         PROCESS NON-ACS UNIT.
05487  M01S01756.274l797 +++|
05488  M01S01757.274l797 +++| CNR6     RJ     FNR         FIND NEXT REEL
Line S01758 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05489  M02S01758.282l826 ---|          PL     X6,CNR8     IF UNIT SWAP POSSIBLE
Line S01079 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05490  M01S01079.282l826 +++|          NE     B3,B4,CNR8  IF UNIT SWAP POSSIBLE
Line S01759 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05491  M01S01759.274l797 +++|
05492  M01S01760.274l797 +++|*         CHECK LABELS ON CURRENT UNIT IF READY.
05493  M01S01761.274l797 +++|
05494  M01S01762.274l797 +++| CNR7     SA1    A0+UST1
05495  M01S01763.274l797 +++|          LX1    59-0
Line S01080 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05496  M01S01080.282l826 +++|          SX5    B0
Line S01764 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05497  M01S01764.274l797 +++|          PL     X1,CNR10    IF UNIT NOT READY
Line S01765 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05498  M02S01765.282l826 ---|          SA1    A0+UST2
05499  M02S01766.282l826 ---|          SX5    B0
05500  M02S01767.282l826 ---|          LX1    59-7
Line S00189 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05501  M02S00189.282l826 ---|          SX7    PRET        SET TO ISSUE RETURN MESSAGE
Line S01797 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05502  M02S01797.282l826 ---|          RJ     FNR         FIND NEXT REEL
Line S00001 Modification History
M01 (Added by) ns2320
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05503  M03S00001.282l826 ---|          SA2    ITIM
Line S01768 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05504  M02S01768.282l826 ---|          NG     X1,EXI1     IF ASSIGNED MESSAGE WAS ISSUED FOR UNIT
Line S01769 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05505  M01S01769.274l797 +++|          SX7    PCHR        SET TO CHECK NEXT REEL
05506  M01S01770.274l797 +++|          EQ     EXI1        CLEAR CURRENT AND MAKE NEW REQUEST
05507  M01S01771.274l797 +++|
Line S01772 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05508  M02S01772.282l826 ---|*         INITIATE UNIT SWAP.
Line S01081 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05509  M01S01081.282l826 +++|*         PERFORM UNIT SWAP IF JOB IS AT A CONTROL POINT.
Line S01773 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05510  M01S01773.274l797 +++|
Line S01774 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05511  M02S01774.282l826 ---| CNR8     SA1    A0+UJID     CHECK FOR JOB ROLLOUT
05512  M02S01775.282l826 ---|          MX3    6
05513  M02S01776.282l826 ---|          LX3    -24
05514  M02S01777.282l826 ---|          SX5    B0
05515  M02S01778.282l826 ---|          BX3    X3*X1
05516  M02S01779.282l826 ---|          ZR     X3,CNR10    IF JOB ROLLED OUT
05517  M02S01780.282l826 ---|          SA1    X6+UST1     CHECK CHANNEL FLAGS
Line S00002 Modification History
M01 (Added by) ns2320
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05518  M02S00002.282l826 ---|          SB3    8
Line S01798 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05519  M02S01798.282l826 ---|          SA1    A0+UST2
05520  M02S01799.282l826 ---|          BX5    X5-X5
05521  M02S01800.282l826 ---|          LX1    59-7
05522  M02S01801.282l826 ---|          NG     X1,CNR1     IF RETURN MESSAGE NOT ISSUED YET
05523  M02S01802.282l826 ---|          SX7    PCHR        SET TO CHECK NEXT REEL
05524  M02S01803.282l826 ---| CNR1     PL     X6,CNR3     IF UNIT SWAP NEEDED
05525  M02S01804.282l826 ---|          SA1    A0+UST1
Line S01805 Modification History
M01 (Removed by) ns2320
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05526  M03S01805.282l826 ---|          SA2    ITIM
05527  M03S01806.282l826 ---|          LX1    59-0
05528  M03S01807.282l826 ---|          LX2    59-3
Line S00003 Modification History
M01 (Added by) ns2320
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05529  M03S00003.282l826 ---|          LX1    59-0
Line S01808 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05530  M02S01808.282l826 ---|          NG     X1,EXI1     IF CURRENT UNIT READY
Line S00004 Modification History
M01 (Added by) ns2320
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05531  M03S00004.282l826 ---| CNR1.1   LX2    59-3
Line S01809 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05532  M02S01809.282l826 ---|          PL     X2,EXI5     IF NOT 8 SECONDS
05533  M02S01810.282l826 ---| CNR2     SX7    PCNR        START OVER AND CHECK ERROR FLAG
05534  M02S01811.282l826 ---|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
05535  M02S01812.282l826 ---|
05536  M02S01813.282l826 ---| CNR3     SA5    USWP
05537  M02S01814.282l826 ---|          NZ     X5,CNR2     IF UNIT SWAP IN PROGRESS
Line S00001 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2320
M03 (Removed by) 274l797
M04 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05538  M04S00001.282l826 ---| CNR3.1   SA1    X6+UST1     CHECK CHANNEL FLAGS
05539  M04S00002.282l826 ---|          SB3    8
Line S00005 Modification History
M01 (Added by) ns2320
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05540  M03S00005.282l826 ---|          SA1    A0+UJID     CHECK FOR JOB ROLLOUT
05541  M03S00006.282l826 ---|          MX3    6
05542  M03S00007.282l826 ---|          LX3    -24
05543  M03S00008.282l826 ---|          BX3    X3*X1
05544  M03S00009.282l826 ---|          ZR     X3,CNR1.1   IF JOB ROLLED OUT
05545  M03S00010.282l826 ---|          SA1    X6+UST1     CHECK CHANNEL FLAGS
Line S00003 Modification History
M01 (Added by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05546  M02S00003.282l826 ---|          MX3    5
05547  M02S00004.282l826 ---|          LX1    59-56
Line S00005 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05548  M03S00005.282l826 ---| CNR3.2   SB3    B3-2
Line S00001 Modification History
M01 (Added by) magne7
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05549  M03S00001.282l826 ---|          NG     B3,CNR2     IF NO CHANNEL AVAILABLE
Line S01781 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05550  M02S01781.282l826 ---| CNR9     SB3    B3-2
05551  M02S01782.282l826 ---|          NG     B3,CNR10    IF NO CHANNEL AVAILABLE
Line S00006 Modification History
M01 (Added by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05552  M02S00006.282l826 ---|          LX1    B1,X1
Line S00007 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05553  M03S00007.282l826 ---|          PL     X1,CNR3.2   IF CHANNEL FLAG NOT SET
Line S01783 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05554  M02S01783.282l826 ---|          PL     X1,CNR9     IF CHANNEL FLAG NOT SET
Line S00008 Modification History
M01 (Added by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05555  M02S00008.282l826 ---|          SA2    UITW+B3     CHANNEL NUMBER
Line S00009 Modification History
M01 (Added by) v23l617
M02 (Removed by) magne4
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05556  M03S00009.282l826 ---|          LX2    59-28
Line S00001 Modification History
M01 (Added by) magne4
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05557  M02S00001.282l826 ---|          LX2    59-32
Line S00002 Modification History
M01 (Added by) magne4
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05558  M03S00002.282l826 ---|          NG     X2,CNR3.2   IF CHANNEL IS DOWN
Line S01784 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05559  M02S01784.282l826 ---|          NG     X2,CNR9     IF CHANNEL IS DOWN
Line S00003 Modification History
M01 (Added by) magne4
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05560  M02S00003.282l826 ---|          LX2    59-28+32-59
Line S00010 Modification History
M01 (Added by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05561  M02S00010.282l826 ---|          BX2    X3*X2
05562  M02S00011.282l826 ---|          LX2    12+5
05563  M02S00012.282l826 ---|          BX6    X6+X2
Line S01815 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05564  M02S01815.282l826 ---|          SA6    A5+         SET UNIT SWAP IN PROGRESS
Line S01785 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05565  M02S01785.282l826 ---|          SA6    USWP        SET UNIT SWAP IN PROGRESS
Line S01816 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05566  M01S01816.282l826 ---|          SX7    PUSP        PERFORM UNIT SWAP
05567  M01S01817.282l826 ---|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
Line S01082 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05568  M01S01082.282l826 +++| CNR8     SA1    ACCU        GET UNIT ACCESSIBILITY
05569  M01S01083.282l826 +++|          SA2    JBRO        GET *1MU* JOB STATUS
05570  M01S01084.282l826 +++|          SA3    A0+UST1     GET *1MT* JOB STATUS
05571  M01S01085.282l826 +++|          LX1    B2
05572  M01S01086.282l826 +++|          LX2    B2
05573  M01S01087.282l826 +++|          PL     X1,CNR9     IF CURRENT UNIT NOT ACCESSIBLE
05574  M01S01088.282l826 +++|          LX3    59-48
05575  M01S01089.282l826 +++|          BX2    X2*X3       COMBINE *1MT* AND *1MU* JOB STATUS
05576  M01S01090.282l826 +++| CNR9     NG     X2,CNR10    IF JOB ROLLED OUT
05577  M01S01091.282l826 +++|          SA1    B3+UVRI
05578  M01S01092.282l826 +++|          SX6    B1
05579  M01S01093.282l826 +++|          LX6    47-0
05580  M01S01094.282l826 +++|          SX5    B3          NEW UDT ADDRESS
05581  M01S01095.282l826 +++|          BX6    X1+X6       SET UNIT SWAP FLAG IN NEW UDT
05582  M01S01096.282l826 +++|          SX7    PUSP        INITIATE UNIT SWAP
05583  M01S01097.282l826 +++|          SA6    A1+
05584  M01S01098.282l826 +++|          EQ     EXI1        CLEAR CURRENT AND ENTER NEW REQUEST
05585  M00S01818.magnet  +++|
Line S01819 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05586  M01S01819.274l797 ---|*         SET LABEL CHECK IN PROGRESS.
Line S01786 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05587  M01S01786.274l797 +++|*         CHECK ERROR FLAG AND RESTART PROCESSING IF NOT 8 SECONDS
05588  M01S01787.274l797 +++|*         ELAPSED.
05589  M00S01820.magnet  +++|
Line S01821 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05590  M01S01821.253l688 ---| CNR4     SA1    A0+UVSN
Line S00190 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05591  M02S00190.274l797 ---| CNR4     BSS    0           ENTRY
05592  M02S00191.274l797 ---|          SA1    A0+UVSN
Line S01822 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05593  M01S01822.274l797 ---|          SX2    B1
05594  M01S01823.274l797 ---|          LX2    23
05595  M01S01824.274l797 ---|          BX6    X1+X2
05596  M01S01825.274l797 ---|          SA6    A1
05597  M01S01826.274l797 ---|          EQ     EXIT        PROCESS NEXT REQUEST
05598  M01S01827.274l797 ---|
05599  M01S01828.274l797 ---|*         CHECK IF NEED ANOTHER RECHECK ON THIS REEL BECAUSE OF LOST
05600  M01S01829.274l797 ---|*         DATA AT 1600 BPI.
05601  M01S01830.274l797 ---|
Line S01831 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05602  M02S01831.274l797 ---| CNR5     SA1    A0+UVSN
Line S00192 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05603  M02S00192.274l797 ---| CNR5     BSS    0           ENTRY
05604  M02S00193.274l797 ---|          SA1    A0+UVSN
Line S01832 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05605  M01S01832.274l797 ---|          SX7    PASN        SET TO ISSUE ASSIGN MESSAGE
05606  M01S01833.274l797 ---|          LX1    59-23
05607  M01S01834.274l797 ---|          NG     X1,EXIX     IF RECHECK NOT COMPLETE
05608  M01S01835.274l797 ---|          BX5    X5-X5
Line S01788 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05609  M01S01788.274l797 +++| CNR10    SA2    ITIM
Line S01099 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05610  M01S01099.282l826 +++|          SX5    B0
Line S01789 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05611  M01S01789.274l797 +++|          LX2    59-3
05612  M01S01790.274l797 +++|          PL     X2,EXI5     IF NOT 8 SECONDS, REENTER
05613  M01S01791.274l797 +++|          SX7    PCNR        START OVER AND CHECK ERROR FLAG
05614  M00S01836.magnet  +++|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
Line S00053 Modification History
M01 (Added by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
05615  M01S00053.ns2773  +++| CNV      SPACE  4,10
05616  M01S00054.ns2773  +++|**        CNV - CHECK NEXT VSN SPECIFIED.
05617  M01S00055.ns2773  +++|
05618  M01S00056.ns2773  +++|
05619  M01S00057.ns2773  +++| CNV      BSS    0           ENTRY
05620  M01S00058.ns2773  +++|          SA1    A0+UESN
05621  M01S00059.ns2773  +++|          MX6    36
05622  M01S00060.ns2773  +++|          BX6    X6*X1
05623  M01S00061.ns2773  +++|          NZ     X6,EXIT     IF NEXT VSN SPECIFIED
05624  M01S00062.ns2773  +++|          SX3    /RSX/NTV    SET NEXT VSN PROMPT
05625  M01S00063.ns2773  +++|          RJ     SPR         SET PREVIEW DISPLAY REQUEST
05626  M01S00064.ns2773  +++|          SX7    PWNV        REQUEST OPERATOR SPECIFICATION OF VSN
05627  M01S00065.ns2773  +++|          SX5    B0+
05628  M01S00066.ns2773  +++|          EQ     EXI4        MAKE REQUEST
05629  M00S01837.magnet  +++| CPT      SPACE  4,10
05630  M00S01838.magnet  +++|**        CPT - CHECK *POSMF* TYPE.
05631  M00S01839.magnet  +++|
05632  M00S01840.magnet  +++|
Line S01841 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05633  M01S01841.253l688 ---| CPT      SA1    A0+UST2
Line S00194 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05634  M01S00194.253l688 +++| CPT      BSS    0           ENTRY
05635  M01S00195.253l688 +++|          SA1    A0+UST2
05636  M00S01842.magnet  +++|          LX1    59-1
05637  M00S01843.magnet  +++|          PL     X1,EXIT     IF NOT *POSMF 9999*
05638  M00S01844.magnet  +++|          SX7    PPEI        CONTINUE POSITIONING
05639  M00S01845.magnet  +++|          EQ     EXI3        CLEAR QUEUE AND ENTER NEW REQUEST
Line S00030 Modification History
M01 (Added by) ns2668
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05640  M02S00030.282l826 ---| CRD      SPACE  4,10
05641  M02S00031.282l826 ---|**        CRD - CHECK REQUESTED DENSITY.
05642  M02S00032.282l826 ---|*
05643  M02S00033.282l826 ---|*         IF REQUESTED DENSITY DIFFERS FROM ACTUAL DENSITY AND THE
05644  M02S00034.282l826 ---|*         UNIT IS AT LOAD POINT, RESET TO THE REQUESTED DENSITY.
05645  M02S00035.282l826 ---|*         CALLED BEFORE ANY WRITE FUNCTION OF ANY TYPE IF THE UNIT
05646  M02S00036.282l826 ---|*         COULD POSSIBLY BE AT LOAD POINT.
Line S01100 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05647  M01S01100.282l826 +++| CRA      SPACE  4,10
05648  M01S01101.282l826 +++|**        CRA - CHECK REEL ASSIGNED.
Line S00037 Modification History
M01 (Added by) ns2668
Seq #  *Modification Id* Act 
----------------------------+
05649  M01S00037.ns2668  +++|
05650  M01S00038.ns2668  +++|
Line S00039 Modification History
M01 (Added by) ns2668
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05651  M02S00039.282l826 ---| CRD      BSS    0           ENTRY
05652  M02S00040.282l826 ---|          SA1    A0+UST1
05653  M02S00041.282l826 ---|          LX1    59-1
05654  M02S00042.282l826 ---|          NG     X1,EXI5     IF BUSY (REQUEUE REQUEST)
05655  M02S00043.282l826 ---|          LX1    59-2-59+1
05656  M02S00044.282l826 ---|          PL     X1,EXIT     IF NOT AT LOAD POINT
05657  M02S00045.282l826 ---|          RJ     MRC         MAKE REQUESTED DENSITY CURRENT
05658  M02S00046.282l826 ---|          SX7    PDEN        SET DENSITY REQUEST
05659  M02S00047.282l826 ---|          EQ     EXI4        QUEUE REQUEST
Line S01102 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05660  M01S01102.282l826 +++| CRA      BSS    0           ENTRY
05661  M01S01103.282l826 +++|          SA1    A0+UVRI
05662  M01S01104.282l826 +++|          SX6    B1
05663  M01S01105.282l826 +++|          LX6    4-0
05664  M01S01106.282l826 +++|          BX2    X6*X1
05665  M01S01107.282l826 +++|          ZR     X2,EXIT     IF REEL NOT ASSIGNED
05666  M01S01108.282l826 +++|          BX6    -X6*X1      CLEAR REEL ASSIGNED
05667  M01S01109.282l826 +++|          SX7    AFN         SET REQUEST CODE
05668  M01S01110.282l826 +++|          SA6    A1+
05669  M01S01111.282l826 +++|          SX5    AFRR        SET FUNCTION CODE
05670  M01S01112.282l826 +++|          EQ     EXI2        CALL *1MU* TO ISSUE REEL RETURN MESSAGES
05671  M01S01113.282l826 +++| CRC      SPACE  4,10
05672  M01S01114.282l826 +++|**        CRC - CHECK IF REEL CHECK COMPLETE.
05673  M01S01115.282l826 +++|
05674  M01S01116.282l826 +++|
05675  M01S01117.282l826 +++| CRC      BSS    0           ENTRY
05676  M01S01118.282l826 +++|          SA1    A0+UVSN
05677  M01S01119.282l826 +++|          SX5    B0
05678  M01S01120.282l826 +++|          LX1    59-23
05679  M01S01121.282l826 +++|          PL     X1,EXIT     IF REEL CHECK COMPLETE
05680  M01S01122.282l826 +++|          SX7    PCHR
05681  M01S01123.282l826 +++|          EQ     EXI1        RESTART REEL CHECK
05682  M01S01124.282l826 +++| CRF      SPACE  4,10
05683  M01S01125.282l826 +++|**        CRF - CLEAR REWIND BEFORE OPERATION FLAG.
05684  M01S01126.282l826 +++|
05685  M01S01127.282l826 +++|
05686  M01S01128.282l826 +++| CRF      BSS    0           ENTRY
05687  M01S01129.282l826 +++|          SA1    A0+UST2
05688  M01S01130.282l826 +++|          SX6    4000B
05689  M01S01131.282l826 +++|          BX6    -X6*X1      CLEAR REWIND FLAG
05690  M01S01132.282l826 +++|          SA6    A1
05691  M01S01133.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
05692  M00S01846.magnet  +++| CRK      SPACE  4,10
05693  M00S01847.magnet  +++|**        CRK - CHECK IF SKIP REQUIRED FOR *READSKP*.
05694  M00S01848.magnet  +++|*
05695  M00S01849.magnet  +++|*         ENTRY  (ULRQ, 12-0) = 0 IF TAPE MARK OR END OF TAPE.
05696  M00S01850.magnet  +++|*                (ULRQ, 12-0) = 4 IF RECORD SKIP REQUIRED.
05697  M00S01851.magnet  +++|*                (ULRQ, 12-0) = 10 IF FILE SKIP REQUIRED.
05698  M00S01852.magnet  +++|
05699  M00S01853.magnet  +++|
Line S01854 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05700  M01S01854.253l688 ---| CRK      SA1    A0+ULRQ     CHECK RESPONSE TO LAST REQUEST
Line S00196 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05701  M01S00196.253l688 +++| CRK      BSS    0           ENTRY
05702  M01S00197.253l688 +++|          SA1    A0+ULRQ     CHECK RESPONSE TO LAST REQUEST
05703  M00S01855.magnet  +++|          MX0    -12
05704  M00S01856.magnet  +++|          BX2    -X0*X1
05705  M00S01857.magnet  +++|          SX7    PEOT        SET TO CHECK END OF TAPE
05706  M00S01858.magnet  +++|          ZR     X2,EXI4     IF CHECK END OF TAPE
05707  M00S01859.magnet  +++|          BX5    X2          SET TO SKIP RECORD/FILE
05708  M00S01860.magnet  +++|          SX7    PSKK        PERFORM SKIP
05709  M00S01861.magnet  +++|          LX5    24          POSITION RECORD/FILE FLAG
05710  M00S01862.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05711  M00S01863.magnet  +++| CRS      SPACE  4,10
05712  M00S01864.magnet  +++|**        CRS - CHECK REQUEST STATUS.
Line S01865 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05713  M01S01865.282l826 ---|*         IF ERROR CONDITION ENCOUNTERED WHEN NO USER OPERATION
05714  M01S01866.282l826 ---|*         IN PROGRESS, THE MESSAGE WILL BE HELD AND ISSUED ON THE
05715  M01S01867.282l826 ---|*         NEXT USER OPERATION.
Line S01134 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05716  M01S01134.282l826 +++|*
05717  M01S01135.282l826 +++|*         IF AN ERROR CONDITION IS ENCOUNTERED WHEN NO *CIO* REQUEST IS
05718  M01S01136.282l826 +++|*         IN PROGRESS, THE MESSAGE WILL BE HELD AND ISSUED ON THE NEXT
05719  M01S01137.282l826 +++|*         *CIO* CALL.
05720  M00S01868.magnet  +++|
05721  M00S01869.magnet  +++|
Line S01870 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05722  M01S01870.253l688 ---| CRS      SA1    A0+UCIA     CHECK IF CIO REQUEST IN PROGRESS
Line S00198 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05723  M01S00198.253l688 +++| CRS      BSS    0           ENTRY
Line S00199 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05724  M02S00199.282l826 ---|          SA1    A0+UCIA     CHECK IF CIO REQUEST IN PROGRESS
Line S01871 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05725  M01S01871.282l826 ---|          SA2    A0+UFLA     CHECK FOR PENDING EXTERNAL REQUEST
05726  M01S01872.282l826 ---|          SB3    X1
05727  M01S01873.282l826 ---|          LX2    59-58
05728  M01S01874.282l826 ---|          LE     B3,B1,CRS1  IF NO *CIO* REQUEST IN PROGRESS
Line S01138 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05729  M01S01138.282l826 +++|          SA1    A0+UFRQ     CHECK IF CIO REQUEST IN PROGRESS
05730  M01S01139.282l826 +++|          AX1    48
05731  M01S01140.282l826 +++|          SX6    X1-CIO
05732  M01S01141.282l826 +++|          NZ     X6,CRS1     IF NO *CIO* REQUEST IN PROGRESS
05733  M00S01875.magnet  +++|          SX7    MAB         ISSUE MESSAGE
Line S01876 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05734  M01S01876.282l826 ---|          EQ     EXI2        ENTER *1MT* REQUEST
Line S01142 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05735  M01S01142.282l826 +++|          EQ     EXI2        MAKE *1MU* REQUEST
05736  M00S01877.magnet  +++|
Line S01878 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05737  M01S01878.282l826 ---| CRS1     PL     X2,EXI5     IF NO PENDING *RETURN* FUNCTION
Line S01143 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05738  M01S01143.282l826 +++| CRS1     SX6    X1-RTF
05739  M01S01144.282l826 +++|          NZ     X6,EXI5     IF NO FILE RETURN REQUEST
05740  M00S01879.magnet  +++|          EQ     EXIT        SKIP ISSUE OF MESSAGE
05741  M00S01880.magnet  +++| CRW      SPACE  4,10
05742  M00S01881.magnet  +++|**        CRW - CHECK IF REWIND AFTER *POSMF*.
05743  M00S01882.magnet  +++|*         PERFORMED IF AT FIRST LABEL GROUP OF CURRENT REEL.
05744  M00S01883.magnet  +++|*         (PA) FROM LAST REQUEST = 4XXX IF REWIND REQUIRED.
05745  M00S01884.magnet  +++|
05746  M00S01885.magnet  +++|
Line S01886 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05747  M01S01886.253l688 ---| CRW      SA1    A0+ULRQ
Line S00200 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05748  M01S00200.253l688 +++| CRW      BSS    0           ENTRY
05749  M01S00201.253l688 +++|          SA1    A0+ULRQ
05750  M00S01887.magnet  +++|          BX5    X5-X5
Line S01792 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05751  M01S01792.274l797 +++|          ERRNZ  FNRW
05752  M00S01888.magnet  +++|          LX1    59-23
05753  M00S01889.magnet  +++|          PL     X1,EXIT     IF NOT AT FIRST LABEL GROUP
05754  M00S01890.magnet  +++|          SX7    FNH         REWIND TO BOI
05755  M00S01891.magnet  +++|          EQ     EXI2        ENTER *1MT* REQUEST
Line S00048 Modification History
M01 (Added by) ns2668
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05756  M02S00048.282l826 ---| CSD      SPACE  4,10
05757  M02S00049.282l826 ---|**        CSD - CHECK SEVEN-TRACK DENSITY.
05758  M02S00050.282l826 ---|*
05759  M02S00051.282l826 ---|*         IF 7-TRACK, MAKE THE REQUESTED DENSITY THE CURRENT DENSITY.
Line S01145 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05760  M01S01145.282l826 +++| CUR      SPACE  4,10
05761  M01S01146.282l826 +++|**        CUR - CHECK UNLOAD REQUIRED ON UNIT RETURN.
Line S00052 Modification History
M01 (Added by) ns2668
Seq #  *Modification Id* Act 
----------------------------+
05762  M01S00052.ns2668  +++|
05763  M01S00053.ns2668  +++|
Line S00054 Modification History
M01 (Added by) ns2668
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05764  M02S00054.282l826 ---| CSD      BSS    0           ENTRY
Line S01147 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05765  M01S01147.282l826 +++| CUR      BSS    0           ENTRY
Line S00055 Modification History
M01 (Added by) ns2668
Seq #  *Modification Id* Act 
----------------------------+
05766  M01S00055.ns2668  +++|          SA1    A0+UST1
Line S00056 Modification History
M01 (Added by) ns2668
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05767  M02S00056.274l797 ---|          LX1    59-36
05768  M02S00057.274l797 ---|          NG     X1,EXIT     IF NINE TRACK DRIVE
Line S01793 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05769  M02S01793.282l826 ---|          SX6    2001B
05770  M02S01794.282l826 ---|          LX6    36-0
05771  M02S01795.282l826 ---|          BX1    X6*X1
05772  M02S01796.282l826 ---|          NZ     X1,EXIT     IF NINE TRACK OR CTS UNIT
Line S00058 Modification History
M01 (Added by) ns2668
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05773  M02S00058.282l826 ---|          RJ     MRC         MAKE REQUESTED DENSITY CURRENT
05774  M02S00059.282l826 ---|          EQ     EXIT        EXIT
Line S01148 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05775  M01S01148.282l826 +++|          SA2    A0+UST2
05776  M01S01149.282l826 +++|          SA4    A0+UST4
05777  M01S01150.282l826 +++|          LX1    59-49
05778  M01S01151.282l826 +++|          LX2    59-5
05779  M01S01152.282l826 +++|          LX4    59-41
05780  M01S01153.282l826 +++|          BX1    X1+X2
05781  M01S01154.282l826 +++|          SX5    B0+
05782  M01S01155.282l826 +++|          SX7    PUNL        SET UNLOAD
05783  M01S01156.282l826 +++|          NG     X1,EXI4     IF ACS UNIT OR FILE POSITION INDETERMINATE
05784  M01S01157.282l826 +++|          PL     X4,EXI4     IF NOT INHIBIT UNLOAD
05785  M01S01158.282l826 +++|          SX7    PREW        SET REWIND
05786  M01S01159.282l826 +++|          EQ     EXI4        ENTER REQUEST
05787  M01S01160.282l826 +++| CVS      SPACE  4,10
05788  M01S01161.282l826 +++|**        CVS - CLEAR VSN.
05789  M01S01162.282l826 +++|
05790  M01S01163.282l826 +++|
05791  M01S01164.282l826 +++| CVS      BSS    0           ENTRY
05792  M01S01165.282l826 +++|          SX6    B0+
05793  M01S01166.282l826 +++|          SA6    A0+UVSN
05794  M01S01167.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
05795  M00S01892.magnet  +++| CWC      SPACE  4,10
05796  M00S01893.magnet  +++|**        CWC - CHECK IF WRITE WAS COMPLETE.
05797  M00S01894.magnet  +++|
05798  M00S01895.magnet  +++|
Line S01896 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05799  M01S01896.253l688 ---| CWC      SA1    A0+ULRQ
Line S00202 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05800  M01S00202.253l688 +++| CWC      BSS    0           ENTRY
05801  M01S00203.253l688 +++|          SA1    A0+ULRQ
05802  M00S01897.magnet  +++|          SX2    14B
05803  M00S01898.magnet  +++|          LX2    24
05804  M00S01899.magnet  +++|          BX3    X2*X1
05805  M00S01900.magnet  +++|          SX7    PWTI        SET WRITE INCOMPLETE
05806  M00S01901.magnet  +++|          ZR     X3,EXI3     IF NOT EOR/EOF WRITE REQUEST
05807  M00S01902.magnet  +++|          LX1    59-32       CHECK BIT 8 OF *MD*
05808  M00S01903.magnet  +++|          PL     X1,EXI3     IF NOT EOR/EOF WRITTEN THIS OPERATION
05809  M00S01904.magnet  +++|          SX7    PWTC        WRITE COMPLETE
05810  M00S01905.magnet  +++|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
Line S01168 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05811  M01S01168.282l826 +++| CWL      SPACE  4,10
05812  M01S01169.282l826 +++|**        CWL - CHECK WRITE FROM LOAD POINT.
05813  M01S01170.282l826 +++|*
05814  M01S01171.282l826 +++|*         IF WRITE FROM LOAD POINT ON THE FIRST REEL, SET THE DENSITY
05815  M01S01172.282l826 +++|*         AND CONVERSION MODE FROM THE TAPE REQUEST PARAMETERS.
05816  M01S01173.282l826 +++|
05817  M01S01174.282l826 +++|
05818  M01S01175.282l826 +++| CWL      BSS    0           ENTRY
05819  M01S01176.282l826 +++|          SA1    A0+UST1
05820  M01S01177.282l826 +++|          SA2    A0+UVRI
05821  M01S01178.282l826 +++|          MX0    -12
05822  M01S01179.282l826 +++|          LX1    59-1
05823  M01S01180.282l826 +++|          LX0    12
05824  M01S01181.282l826 +++|          NG     X1,EXI5     IF UNIT BUSY
05825  M01S01182.282l826 +++|          BX2    -X0*X2
05826  M01S01183.282l826 +++|          LX1    59-2-59+1
05827  M01S01184.282l826 +++|          PL     X1,EXIT     IF NOT AT LOAD POINT
05828  M01S01185.282l826 +++|          NZ     X2,EXIT     IF NOT FIRST REEL
05829  M01S01186.282l826 +++|          SA1    A0+UST4
05830  M01S01187.282l826 +++|          SA2    A0+UST5
05831  M01S01188.282l826 +++|          MX0    -6
05832  M01S01189.282l826 +++|          LX0    48
05833  M01S01190.282l826 +++|          BX1    -X0*X1      REQUESTED DENSITY AND CONVERSION MODE
05834  M01S01191.282l826 +++|          BX2    X0*X2
05835  M01S01192.282l826 +++|          BX6    X2+X1       UPDATE DENSITY AND CONVERSION MODE
05836  M01S01193.282l826 +++|          SA6    A2
05837  M01S01194.282l826 +++|          SX7    PDEN        SET DENSITY REQUEST
05838  M01S01195.282l826 +++|          EQ     EXI4        QUEUE REQUEST
05839  M00S01906.magnet  +++| CWR      SPACE  4,10
05840  M00S01907.magnet  +++|**        CWR - CHECK WRITE.
05841  M00S01908.magnet  +++|*         IF LAST OPERATION ON THE TAPE WAS A WRITE, A TRAILER LABEL
05842  M00S01909.magnet  +++|*         SEQUENCE WILL BE PERFORMED.
05843  M00S01910.magnet  +++|
05844  M00S01911.magnet  +++|
Line S01912 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05845  M01S01912.253l688 ---| CWR      SA1    A0+UST1
Line S00204 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05846  M01S00204.253l688 +++| CWR      BSS    0           ENTRY
Line S00205 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05847  M02S00205.282l826 ---|          SA1    A0+UST1
Line S01913 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05848  M01S01913.282l826 ---|          LX1    59-47
Line S01196 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05849  M01S01196.282l826 +++|          SA1    A0+UST2
05850  M01S01197.282l826 +++|          LX1    59-4
05851  M00S01914.magnet  +++|          PL     X1,EXIT     IF NOT WRITE
05852  M00S01915.magnet  +++|          SX7    PWTL        WRITE TRAILER LABEL
05853  M00S01916.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
05854  M00S01917.magnet  +++| CUP      SPACE  4,10
05855  M00S01918.magnet  +++|**        CUP - CHECK IF UP SELECTED ON END OF REEL.
05856  M00S01919.magnet  +++|
05857  M00S01920.magnet  +++|
Line S01921 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05858  M01S01921.253l688 ---| CUP      SA1    A0+UCIB
Line S00206 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05859  M01S00206.253l688 +++| CUP      BSS    0           ENTRY
05860  M01S00207.253l688 +++|          SA1    A0+UCIB
05861  M00S01922.magnet  +++|          SX2    774B
05862  M00S01923.magnet  +++|          LX1    59-45
05863  M00S01924.magnet  +++|          PL     X1,EXIT     IF NOT USER PROCESSING
05864  M00S01925.magnet  +++|          LX1    60+45-47
05865  M00S01926.magnet  +++|          BX2    X2*X1
05866  M00S01927.magnet  +++|          SX5    X2+2000B    MERGE END OF REEL STATUS
Line S01928 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05867  M01S01928.282l826 ---|          BX6    X6-X6       CLEAR CURRENT REQUEST
05868  M01S01929.282l826 ---|          SX7    CUF         COMPLETE USERS FET
05869  M01S01930.282l826 ---|          SA6    A0+UREQ
05870  M01S01931.282l826 ---|          EQ     EXI2        ENTER *1MT* REQUEST
05871  M01S01932.282l826 ---| DEL      SPACE  4,10
05872  M01S01933.282l826 ---|**        DEL - DELAY AND REISSUE OPERATION WHEN UNIT NOT BUSY.
Line S01198 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05873  M01S01198.282l826 +++|          SX7    PFET
05874  M01S01199.282l826 +++|          EQ     EXI3        CLEAR QUEUE AND MAKE NEW REQUEST
05875  M01S01200.282l826 +++| DRT      SPACE  4,10
05876  M01S01201.282l826 +++|**        DRT - DETERMINE REQUEUE TYPE.
05877  M00S01934.magnet  +++|
05878  M00S01935.magnet  +++|
Line S01936 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05879  M01S01936.253l688 ---| DEL      SA1    A0+ULRQ     SAVE LAST 1MT REQUEST
Line S00208 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05880  M02S00208.282l826 ---| DEL      BSS    0           ENTRY
05881  M02S00209.282l826 ---|          SA1    A0+ULRQ     SAVE LAST 1MT REQUEST
Line S01202 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05882  M01S01202.282l826 +++| DRT      BSS    0           ENTRY
05883  M01S01203.282l826 +++|          SA1    A0+ULRQ
05884  M00S01937.magnet  +++|          SA2    A0+UFLA
Line S01938 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05885  M01S01938.282l826 ---|          MX3    -48
05886  M01S01939.282l826 ---|          BX4    -X3*X1
05887  M01S01940.282l826 ---|          BX6    X3*X2
05888  M01S01941.282l826 ---|          BX7    X4+X6
05889  M01S01942.282l826 ---|          SA7    A2+
05890  M01S01943.282l826 ---| DEL1     SX7    PWNB
05891  M01S01944.282l826 ---|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
05892  M01S01945.282l826 ---|
Line S01946 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05893  M02S01946.282l826 ---| DEL2     SA1    A0+UST1
Line S00210 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05894  M02S00210.282l826 ---| DEL2     BSS    0           ENTRY
05895  M02S00211.282l826 ---|          SA1    A0+UST1
Line S01947 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05896  M01S01947.282l826 ---|          SA4    ITIM
05897  M01S01948.282l826 ---|          LX1    59-1
05898  M01S01949.282l826 ---|          LX4    59-3
05899  M01S01950.282l826 ---|          PL     X1,DEL3     IF UNIT NOT BUSY
05900  M01S01951.282l826 ---|          NG     X4,DEL1     IF 8 SECONDS
05901  M01S01952.282l826 ---|          EQ     EXI5        REQUEUE REQUEST
05902  M01S01953.282l826 ---|
05903  M01S01954.282l826 ---| DEL3     SA1    A0+UFLA     REISSUE 1MT REQUEST
05904  M01S01955.282l826 ---|          BX7    X7-X7
05905  M01S01956.282l826 ---|          MX2    -48
05906  M01S01957.282l826 ---|          SA7    A0+UREQ     PREVENT THIS REQUEST FROM BEING STACKED
05907  M01S01958.282l826 ---|          BX6    -X2*X1
Line S01959 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05908  M02S01959.282l826 ---|          SA6    A0
Line S00212 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05909  M02S00212.282l826 ---|          SA6    A0+UXRQ
Line S01960 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05910  M01S01960.282l826 ---|          RJ     GNR         GET NEXT REQUEST
05911  M01S01961.282l826 ---|          EQ     EXIX        PROCESS NEXT UNIT
Line S01204 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05912  M01S01204.282l826 +++|          MX6    -48
05913  M01S01205.282l826 +++|          BX3    -X6*X1
05914  M01S01206.282l826 +++|          BX6    X6*X2
05915  M01S01207.282l826 +++|          AX1    48
05916  M01S01208.282l826 +++|          BX6    X3+X6
05917  M01S01209.282l826 +++|          SX4    X1-RJB
05918  M01S01210.282l826 +++|          SA6    A2          SAVE LAST PP REQUEST
05919  M01S01211.282l826 +++|          SX5    B0+
05920  M01S01212.282l826 +++|          SX7    PJOB
05921  M01S01213.282l826 +++|          ZR     X4,EXI4     IF WAIT FOR JOB ROLLIN
05922  M01S01214.282l826 +++|          SX4    X1-RBS
05923  M01S01215.282l826 +++|          SX7    PWNB
05924  M01S01216.282l826 +++|          ZR     X4,EXI4     IF WAIT FOR NOT BUSY
05925  M01S01217.282l826 +++|          SX4    X1-RAC
05926  M01S01218.282l826 +++|          SX7    PWAC
05927  M01S01219.282l826 +++|          ZR     X4,EXI4     IF WAIT FOR UNIT ACCESSIBLE
05928  M01S01220.282l826 +++|          ERRNZ  RDL-6
05929  M01S01221.282l826 +++|          SX7    PWTD
05930  M01S01222.282l826 +++|          EQ     EXI4        WAIT FOR TIME DELAY
Line S01797 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05931  M01S01797.274l797 +++| DMA      SPACE  4,10
05932  M01S01798.274l797 +++|**        DMA - DISMOUNT ACS UNIT.
05933  M01S01799.274l797 +++|
05934  M01S01800.274l797 +++|
05935  M01S01801.274l797 +++| DMA      BSS    0           ENTRY
Line S01802 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05936  M02S01802.282l826 ---|          SA1    A0+UJID
05937  M02S01803.282l826 ---|          LX1    -36
05938  M02S01804.282l826 ---|          SB6    X1          SET AST ADDRESS
05939  M02S01805.282l826 ---|          ZR     B6,EXIT     IF NOT ACS UNIT
Line S01223 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05940  M01S01223.282l826 +++|          SA1    A0+UST1
05941  M01S01224.282l826 +++|          LX1    59-49
05942  M01S01225.282l826 +++|          PL     X1,EXIT     IF NOT ACS UNIT
Line S01806 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05943  M01S01806.274l797 +++|          RJ     DAU         DISMOUNT ACS UNIT
Line S01226 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05944  M01S01226.282l826 +++|          EQ     EXIT        EXIT
05945  M01S01227.282l826 +++| DUC      SPACE  4,10
05946  M01S01228.282l826 +++|**        DUC - DECREMENT ASSIGNED UNIT COUNT.
05947  M01S01229.282l826 +++|
05948  M01S01230.282l826 +++|
05949  M01S01231.282l826 +++| DUC      BSS    0           ENTRY
05950  M01S01232.282l826 +++|          SA1    NTAS        DECREMENT UNITS ASSIGNED
05951  M01S01233.282l826 +++|          SX6    X1-1
05952  M01S01234.282l826 +++|          SA6    A1
Line S01807 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05953  M01S01807.274l797 +++|          EQ     EXIT        EXIT
05954  M00S01962.magnet  +++| EOI      SPACE  4,10
05955  M00S01963.magnet  +++|**        EOI - CHECK IF EOF OR EOI RETURNED ON LABEL CHECK.
05956  M00S01964.magnet  +++|*         THE TAPE FORMAT DETERMINES EOF OR EOI.  WHENEVER AN EOI
05957  M00S01965.magnet  +++|*         IS ENCOUNTERED, THE TAPE WILL BE REPOSITIONED PRIOR TO
05958  M00S01966.magnet  +++|*         THE EOI SO THAT ADDITIONAL READS WILL CONTINUE TO RETURN EOI.
05959  M00S01967.magnet  +++|
05960  M00S01968.magnet  +++|
Line S01969 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05961  M01S01969.253l688 ---| EOI      SA1    A0+ULRQ
Line S00213 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05962  M01S00213.253l688 +++| EOI      BSS    0           ENTRY
05963  M01S00214.253l688 +++|          SA1    A0+ULRQ
05964  M00S01970.magnet  +++|          SX2    7000B
05965  M00S01971.magnet  +++|          BX3    X2*X1
05966  M00S01972.magnet  +++|          NZ     X3,EXIT     IF EOI OR END OF REEL RETURNED
05967  M00S01973.magnet  +++|          SX7    PEOF
05968  M00S01974.magnet  +++|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
05969  M00S01975.magnet  +++| FET      SPACE  4,10
05970  M00S01976.magnet  +++|**        FET - SET FET COMPLETE.
05971  M00S01977.magnet  +++|
05972  M00S01978.magnet  +++|
Line S01979 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05973  M01S01979.282l826 ---|*         FET COMPLETION STATUS IS FROM LAST REQUEST.
Line S01235 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05974  M01S01235.282l826 +++|*         SET FET COMPLETION STATUS FROM LAST REQUEST.
05975  M00S01980.magnet  +++|
Line S01981 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05976  M01S01981.253l688 ---| FET      SA1    A0+ULRQ     GET RETURNED STATUS
Line S00215 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05977  M01S00215.253l688 +++| FET      BSS    0           ENTRY
05978  M01S00216.253l688 +++|          SA1    A0+ULRQ     GET RETURNED STATUS
05979  M00S01982.magnet  +++|          MX2    -24
05980  M00S01983.magnet  +++|          BX5    -X2*X1
05981  M00S01984.magnet  +++|          EQ     FET2        CHECK ERROR FLAG
05982  M00S01985.magnet  +++|
Line S01986 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05983  M01S01986.253l688 ---|*         COMPLETE USERS FET.
Line S00217 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05984  M01S00217.253l688 +++|*         COMPLETE USER-S FET.
05985  M00S01987.magnet  +++|
Line S01988 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05986  M01S01988.253l688 ---| FET1     SX5    1
Line S00218 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05987  M01S00218.253l688 +++| FET1     BSS    0           ENTRY
05988  M01S00219.253l688 +++|          SX5    1
05989  M00S01989.magnet  +++|*         EQ     FET2        CHECK ERROR FLAG
05990  M00S01990.magnet  +++|
Line S01991 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05991  M01S01991.282l826 ---| FET2     SA1    A0+UCIA
Line S01236 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05992  M01S01236.282l826 +++|*         SET FET COMPLETION STATUS FROM (X5).
05993  M01S01237.282l826 +++|
05994  M01S01238.282l826 +++| FET2     BSS    0           ENTRY
05995  M01S01239.282l826 +++|          SA1    A0+UFRQ
05996  M01S01240.282l826 +++|          AX1    48
05997  M01S01241.282l826 +++|          SX1    X1-CIO
05998  M00S01992.magnet  +++|          SX7    CUF
Line S01993 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05999  M01S01993.282l826 ---|          ZR     X1,EXIT     IF ERROR FLAG HAS OCCURED
06000  M01S01994.282l826 ---|          EQ     EXI2        ENTER *1MT* REQUEST
06001  M01S01995.282l826 ---|
Line S01242 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06002  M01S01242.282l826 +++|          NZ     X1,EXIT     IF NO *CIO* REQUEST
06003  M01S01243.282l826 +++|          EQ     EXI2        ENTER *1MU* REQUEST
Line S00220 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06004  M01S00220.253l688 +++| FRE      SPACE  4,10
06005  M01S00221.253l688 +++|**        FRE - FLAG ROLLIN EVENT IF UNIT NOT ASSIGNED.
06006  M01S00222.253l688 +++|*
06007  M01S00223.253l688 +++|*         EXIT   (ROLF) NONZERO IF ALTERNATE STORAGE ACTIVE.
06008  M01S00224.253l688 +++|*                TO *EXIT*.
06009  M01S00225.253l688 +++|
06010  M01S00226.253l688 +++|
06011  M01S00227.253l688 +++| FRE      BSS    0           ENTRY
06012  M01S00228.253l688 +++|          SA1    TAJP
06013  M01S00229.253l688 +++|          ZR     X1,EXIT     IF TAPE ALTERNATE STORAGE NOT ACTIVE
06014  M01S00230.253l688 +++|          SX6    B1+
06015  M01S00231.253l688 +++|          SA6    /STAGE/ROLF
06016  M01S00232.253l688 +++|          EQ     EXIT        EXIT
Line S01244 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06017  M01S01244.282l826 +++| HNG      SPACE  4,10
06018  M01S01245.282l826 +++|**        HNG - HANG UNIT.
06019  M01S01246.282l826 +++|
06020  M01S01247.282l826 +++|
06021  M01S01248.282l826 +++| HNG      BSS    0           ENTRY
06022  M01S01249.282l826 +++|          EQ     EXIX        PROCESS NEXT UNIT
06023  M00S01996.magnet  +++| IOR      SPACE  4,10
06024  M00S01997.magnet  +++|**        IOR - I/O REQUEST PROCESSOR.
06025  M00S01998.magnet  +++|*         SETS MODE FROM CODED BIT IN REQUEST OR FROM THE INTERNAL
06026  M00S01999.magnet  +++|*         MODE DEPENDING ON THE FORMAT.
06027  M00S02000.magnet  +++|*
06028  M00S02001.magnet  +++|*         ENTRY  (X7) = FUNCTION CODE.
06029  M00S02002.magnet  +++|
06030  M00S02003.magnet  +++|
Line S02004 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06031  M01S02004.253l688 ---| IOR      SA1    A0+UST2
Line S00233 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06032  M01S00233.253l688 +++| IOR      BSS    0           ENTRY
Line S01808 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06033  M01S01808.274l797 +++|          SA2    A0+UST4
Line S00234 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06034  M01S00234.253l688 +++|          SA1    A0+UST2
Line S01809 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06035  M02S01809.282l826 ---|          LX2    36
Line S01250 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06036  M01S01250.282l826 +++|          LX2    24
Line S01810 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06037  M01S01810.274l797 +++|          AX2    54
06038  M00S02005.magnet  +++|          SB5    TFSI
Line S01811 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06039  M01S01811.274l797 +++|          SB7    X2+         FORMAT
06040  M00S02006.magnet  +++|          SB6    B7-TFS
06041  M00S02007.magnet  +++|          EQ     B5,B7,IOR1  IF SI FORMAT
06042  M00S02008.magnet  +++|          NG     B6,IOR2     IF NOT S FORMAT
06043  M00S02009.magnet  +++|          GT     B6,B1,IOR2  IF NOT S OR L FORMAT
06044  M00S02010.magnet  +++| IOR1     SA2    A0+UCIB     POSITION CODED BIT
06045  M00S02011.magnet  +++|          LX2    59-49+1
06046  M00S02012.magnet  +++|          BX1    -X2
06047  M00S02013.magnet  +++| IOR2     SX2    B1          EXTRACT CODED BIT
06048  M00S02014.magnet  +++|          BX3    X2*X1
06049  M00S02015.magnet  +++|          LX3    30
06050  M00S02016.magnet  +++|          BX5    X5+X3       MERGE CODED BIT
06051  M00S02017.magnet  +++|          EQ     EXI2        ENTER *1MT* REQUEST
Line S02018 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06052  M01S02018.282l826 ---| IVM      SPACE  4,10
06053  M01S02019.282l826 ---|**        IVM - ISSUE NEXT VSN MESSAGE.
06054  M01S02020.282l826 ---|
06055  M01S02021.282l826 ---|
Line S02022 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06056  M02S02022.282l826 ---| IVM      SA1    A0+UST2
Line S00235 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06057  M02S00235.282l826 ---| IVM      BSS    0           ENTRY
06058  M02S00236.282l826 ---|          SA1    A0+UST2
Line S02023 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06059  M01S02023.282l826 ---|          SX7    FNH         SET FUNCTION
06060  M01S02024.282l826 ---|          LX1    59-6
Line S02025 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06061  M02S02025.282l826 ---|          SX5    7           SET PARAMETERS
Line S01812 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06062  M02S01812.282l826 ---|          SX5    FNVM        SET PARAMETERS
Line S02026 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06063  M01S02026.282l826 ---|          PL     X1,EXI2     IF MESSAGE NOT ALREADY ISSUED
06064  M01S02027.282l826 ---|          EQ     EXIT        PROCESS NEXT REQUEST
06065  M00S02028.magnet  +++| JOB      SPACE  4,10
06066  M00S02029.magnet  +++|**        JOB - JOB ROLLED OUT PROCESSOR.
06067  M00S02030.magnet  +++|
06068  M00S02031.magnet  +++|
Line S02032 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06069  M01S02032.253l688 ---| JOB      SA1    A0+UJID
Line S00237 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06070  M01S00237.253l688 +++| JOB      BSS    0           ENTRY
Line S00238 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06071  M02S00238.282l826 ---|          SA1    A0+UJID
Line S02033 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06072  M01S02033.282l826 ---|          MX2    6
06073  M01S02034.282l826 ---|          LX2    -24
06074  M01S02035.282l826 ---|          BX3    X2*X1
06075  M01S02036.282l826 ---|          SX1    X1
06076  M01S02037.282l826 ---|          ZR     X1,EXIT     IF NO JOB ASSIGNED
06077  M01S02038.282l826 ---|          ZR     X3,EXI5     IF JOB STILL ROLLED OUT
06078  M01S02039.282l826 ---|          EQ     DEL         DELAY AND REQUEUE REQUEST
Line S01251 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06079  M01S01251.282l826 +++|          SA1    ACCU        GET UNIT ACCESSIBILITY
06080  M01S01252.282l826 +++|          SA2    JBRO        GET *1MU* JOB STATUS
06081  M01S01253.282l826 +++|          SA3    A0+UST1     GET *1MT* JOB STATUS
06082  M01S01254.282l826 +++|          LX1    B2
06083  M01S01255.282l826 +++|          LX2    B2
06084  M01S01256.282l826 +++|          PL     X1,JOB1     IF UNIT NOT ACCESSIBLE
06085  M01S01257.282l826 +++|          LX3    59-48
06086  M01S01258.282l826 +++|          BX2    X2*X3       COMBINE *1MT* AND *1MU* JOB STATUS
06087  M01S01259.282l826 +++| JOB1     NG     X2,EXI5     IF JOB ROLLED OUT
06088  M01S01260.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
06089  M00S02040.magnet  +++| LAB      SPACE  4,10
06090  M00S02041.magnet  +++|**        LAB - SKIP OVER LABEL.
06091  M00S02042.magnet  +++|
06092  M00S02043.magnet  +++|
Line S02044 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06093  M01S02044.253l688 ---| LAB      SX7    PSLA        SET TO SKIP LABELS
Line S00239 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06094  M01S00239.253l688 +++| LAB      BSS    0           ENTRY
06095  M01S00240.253l688 +++|          SX7    PSLA        SET TO SKIP LABELS
06096  M00S02045.magnet  +++|          EQ     LAB3        CHECK LABELS TO BE UPDATED
06097  M00S02046.magnet  +++|
Line S02047 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06098  M01S02047.253l688 ---| LAB1     SX7    PWHD        WRITE VOLUME LABEL
Line S00241 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06099  M01S00241.253l688 +++| LAB1     BSS    0           ENTRY
06100  M01S00242.253l688 +++|          SX7    PWHD        WRITE VOLUME LABEL
Line S02048 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06101  M01S02048.282l826 ---| LAB2     SA1    A0+UST4     UPDATE EST ORDINAL WRITTEN ON
06102  M01S02049.282l826 ---|          SA2    A0+UUFN
Line S02050 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06103  M02S02050.282l826 ---|          SX3    7700B
06104  M02S02051.282l826 ---|          LX1    -12
06105  M02S02052.282l826 ---|          BX4    -X3*X2      CLEAR UNIT WRITTEN ON
06106  M02S02053.282l826 ---|          BX3    X3*X1
Line S00065 Modification History
M01 (Added by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06107  M02S00065.282l826 ---|          MX3    48
06108  M02S00066.282l826 ---|          LX1    -24
06109  M02S00067.282l826 ---|          BX4    X3*X2       CLEAR UNIT WRITTEN ON
06110  M02S00068.282l826 ---|          BX3    -X3*X1
Line S02054 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06111  M01S02054.282l826 ---|          BX6    X4+X3       MERGE UNIT WRITTEN ON
Line S01261 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06112  M01S01261.282l826 +++| LAB2     SA1    A0+UST1
06113  M01S01262.282l826 +++|          SA2    A0+UGNU
06114  M01S01263.282l826 +++|          MX6    48
06115  M01S01264.282l826 +++|          LX6    36
06116  M01S01265.282l826 +++|          LX1    12
06117  M01S01266.282l826 +++|          BX2    X6*X2
06118  M01S01267.282l826 +++|          BX6    -X6*X1      EST ORDINAL
06119  M01S01268.282l826 +++|          BX6    X2+X6       SET EST ORDINAL WRITTEN ON
06120  M00S02055.magnet  +++|          SA6    A2+
06121  M00S02056.magnet  +++| LAB3     SA1    A0+UST2
06122  M00S02057.magnet  +++|          MX2    24
06123  M00S02058.magnet  +++|          LX2    -24
06124  M00S02059.magnet  +++|          BX5    X2*X1
06125  M00S02060.magnet  +++|          NZ     X5,EXIT     IF NONZERO BLOCK COUNT
06126  M00S02061.magnet  +++|          SA2    A0+UST1
Line S01269 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06127  M01S01269.282l826 +++|          SA1    A0+UST4
06128  M00S02062.magnet  +++|          LX2    59-1
Line S02063 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06129  M01S02063.282l826 ---|          LX1    59-11
Line S01270 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06130  M01S01270.282l826 +++|          LX1    59-58
06131  M00S02064.magnet  +++|          NG     X2,EXI5     IF BUSY
06132  M00S02065.magnet  +++|          LX2    59-2-59+1+60
Line S02066 Modification History
M01 (Removed by) ns2668
Seq #  *Modification Id* Act 
----------------------------+
06133  M01S02066.ns2668  ---|          BX1    X2*X1
06134  M01S02067.ns2668  ---|          PL     X1,EXIT     IF NOT LABELED OR NOT LOAD POINT
06135  M01S02068.ns2668  ---|          EQ     EXI4        QUEUE NEW REQUEST
Line S00060 Modification History
M01 (Added by) ns2668
Seq #  *Modification Id* Act 
----------------------------+
06136  M01S00060.ns2668  +++|          PL     X2,EXIT     IF NOT AT LOAD POINT
06137  M01S00061.ns2668  +++|          NG     X1,EXI4     IF LABELED AND LOAD POINT
06138  M01S00062.ns2668  +++|          SX7    X7-PSLA
06139  M01S00063.ns2668  +++|          ZR     X7,EXIT     IF A READ OPERATION
Line S00064 Modification History
M01 (Added by) ns2668
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06140  M02S00064.282l826 ---|          RJ     MRC         MAKE REQUESTED DENSITY CURRENT
06141  M02S00065.282l826 ---|          SX7    PDEN        SET DENSITY REQUEST
Line S01271 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06142  M01S01271.282l826 +++|          SX7    PCWL        CHECK UNLABELED WRITE FROM LOAD POINT
Line S00066 Modification History
M01 (Added by) ns2668
Seq #  *Modification Id* Act 
----------------------------+
06143  M01S00066.ns2668  +++|          EQ     EXI4        QUEUE REQUEST
06144  M00S02069.magnet  +++|
Line S02070 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06145  M01S02070.253l688 ---| LAB4     SX7    PWHR        WRITE *VOL1* AND *HDR1* AFTER REEL SWAP
Line S00243 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06146  M01S00243.253l688 +++| LAB4     BSS    0           ENTRY
06147  M01S00244.253l688 +++|          SX7    PWHR        WRITE *VOL1* AND *HDR1* AFTER REEL SWAP
06148  M00S02071.magnet  +++|          EQ     LAB2        CHECK LABELS TO BE UPDATED
Line S00205 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06149  M01S00205.252l678 +++| LPD      SPACE  4,10
06150  M01S00206.252l678 +++|**        LPD - DELAY UNTIL JOB DROPPED OR *RETRY* COMMAND ENTERED.
06151  M01S00207.252l678 +++|*
06152  M01S00208.252l678 +++|*         THIS ROUTINE IS EXECUTED IN RESPONSE TO A LOAD POINT ERROR.
06153  M01S00209.252l678 +++|*         THE REQUEST THAT WAS ISSUED WHEN THE ERROR OCCURRED IS
06154  M01S00210.252l678 +++|*         SAVED.  THE OPERATOR MUST TRY TO FIX THE LOAD POINT PROBLEM
06155  M01S00211.252l678 +++|*         AND ENTER THE *RETRY* COMMAND (MEANING THAT THE
06156  M01S00212.252l678 +++|*         REQUEST SHOULD BE RETRIED) OR ENTER THE *TERMINATE*
06157  M01S00213.252l678 +++|*         COMMAND (MEANING THAT THE PROBLEM CANNOT BE FIXED
06158  M01S00214.252l678 +++|*         AT THIS TIME).
06159  M01S00215.252l678 +++|
06160  M01S00216.252l678 +++|
06161  M01S00217.252l678 +++| LPD      BSS    0           ENTRY
06162  M01S00218.252l678 +++|          SA1    A0+ULRQ     SAVE LAST 1MT REQUEST
06163  M01S00219.252l678 +++|          SA2    A0+UFLA
06164  M01S00220.252l678 +++|          MX3    -48
06165  M01S00221.252l678 +++|          BX4    -X3*X1
06166  M01S00222.252l678 +++|          BX6    X3*X2
06167  M01S00223.252l678 +++|          BX7    X4+X6
06168  M01S00224.252l678 +++|          SA7    A2+
06169  M01S00225.252l678 +++| LPD1     SX7    PWOP        WAIT FOR OPERATOR ACTION
06170  M01S00226.252l678 +++|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
06171  M01S00227.252l678 +++|
06172  M01S00228.252l678 +++|*         RETURN HERE TO CHECK STATUS OF OPERATOR ACTION.
06173  M01S00229.252l678 +++|
Line S00230 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06174  M02S00230.253l688 ---| LPD2     SA1    A0+ULRQ
Line S00245 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06175  M01S00245.253l688 +++| LPD2     BSS    0           ENTRY
06176  M01S00246.253l688 +++|          SA1    A0+ULRQ
Line S00231 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06177  M01S00231.252l678 +++|          SX2    X1
Line S00232 Modification History
M01 (Added by) 252l678
M02 (Removed by) magne13
Seq #  *Modification Id* Act 
----------------------------+
06178  M02S00232.magne13 ---|          ZR     X2,LPD3     IF CONTROL POINT NOT DROPPED
06179  M02S00233.magne13 ---|          MESSAGE  =0,2      CLEAR *CHECK E,P DISPLAY* MESSAGE
06180  M02S00234.magne13 ---|          EQ     EXIX        DROP CONTROL POINT
06181  M02S00235.magne13 ---|
06182  M02S00236.magne13 ---| LPD3     SA1    A0+UST2
Line S00015 Modification History
M01 (Added by) magne13
Seq #  *Modification Id* Act 
----------------------------+
06183  M01S00015.magne13 +++|          NZ     X2,EXIX     IF DROP CONTROL POINT
Line S00016 Modification History
M01 (Added by) magne13
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06184  M02S00016.282l826 ---|          SA1    A0+UST2
Line S00237 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06185  M02S00237.282l826 ---|          LX1    59-3
Line S01272 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06186  M01S01272.282l826 +++|          SA1    A0+UFLA
06187  M01S01273.282l826 +++|          LX1    59-51
Line S00238 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06188  M01S00238.252l678 +++|          NG     X1,LPD4     IF OPERATOR HAS TYPED THE *RETRY* COMMAND
Line S00239 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06189  M02S00239.282l826 ---|          LX1    59-4-59+3
Line S01274 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06190  M01S01274.282l826 +++|          LX1    59-52-59+51
Line S00240 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06191  M01S00240.252l678 +++|          NG     X1,LPD5     IF OPERATOR HAS TYPED *TERMINATE*
06192  M01S00241.252l678 +++|          SA4    ITIM
06193  M01S00242.252l678 +++|          LX4    59-3
06194  M01S00243.252l678 +++|          NG     X4,LPD1     IF 8 SECONDS
06195  M01S00244.252l678 +++|          EQ     EXI5        REQUEUE REQUEST
06196  M01S00245.252l678 +++|
Line S00246 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06197  M02S00246.282l826 ---| LPD4     SA1    A0+UVSN     CLEAR *UVSN* ERROR CODE
06198  M02S00247.282l826 ---|          MX2    4
06199  M02S00248.282l826 ---|          LX2    18-59
06200  M02S00249.282l826 ---|          BX6    -X2*X1
Line S01275 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06201  M01S01275.282l826 +++| LPD4     SA1    A0+UVRI     CLEAR PREVIEW DISPLAY MESSAGE
06202  M01S01276.282l826 +++|          MX6    59
06203  M01S01277.282l826 +++|          BX6    X6*X1
Line S00250 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06204  M01S00250.252l678 +++|          SA6    A1
Line S00251 Modification History
M01 (Added by) 252l678
M02 (Removed by) magne13
Seq #  *Modification Id* Act 
----------------------------+
06205  M02S00251.magne13 ---|          MESSAGE  =0,2      CLEAR *CHECK E,P DISPLAY* MESSAGE
Line S00252 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06206  M02S00252.282l826 ---|          SA1    A0+UST2
Line S01278 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06207  M01S01278.282l826 +++|          SA1    A0+UFLA
Line S00253 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06208  M01S00253.252l678 +++|          MX2    1
Line S00254 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06209  M02S00254.282l826 ---|          LX2    3-59
06210  M02S00255.282l826 ---|          BX6    -X2*X1
06211  M02S00256.282l826 ---|          SA6    A1          CLEAR *RETRY* FLAG
06212  M02S00257.282l826 ---|          SA1    A0+UFLA     REISSUE 1MT REQUEST
Line S01279 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06213  M01S01279.282l826 +++|          LX2    51-59
06214  M01S01280.282l826 +++|          BX6    -X2*X1      CLEAR *RETRY* FLAG
06215  M01S01281.282l826 +++|          SA6    A1
Line S00258 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06216  M01S00258.252l678 +++|          BX7    X7-X7
06217  M01S00259.252l678 +++|          MX2    -48
06218  M01S00260.252l678 +++|          SA7    A0+UREQ     PREVENT THIS REQUEST FROM BEING STACKED
06219  M01S00261.252l678 +++|          BX6    -X2*X1
Line S00262 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06220  M02S00262.253l688 ---|          SA6    A0
Line S00247 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06221  M01S00247.253l688 +++|          SA6    A0+UXRQ
Line S00263 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06222  M01S00263.252l678 +++|          RJ     GNR         GET NEXT REQUEST
06223  M01S00264.252l678 +++|          EQ     EXIX        PROCESS NEXT UNIT
06224  M01S00265.252l678 +++|
Line S00266 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06225  M02S00266.282l826 ---| LPD5     SA1    A0+UVSN     CLEAR *UVSN* ERROR CODE
06226  M02S00267.282l826 ---|          MX2    4
06227  M02S00268.282l826 ---|          LX2    18-59
Line S01282 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06228  M01S01282.282l826 +++| LPD5     SA1    A0+UFLA
06229  M01S01283.282l826 +++|          MX2    1
06230  M01S01284.282l826 +++|          LX2    52-59
Line S00269 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06231  M01S00269.252l678 +++|          BX6    -X2*X1
Line S00270 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06232  M02S00270.282l826 ---|          SA6    A1
Line S00271 Modification History
M01 (Added by) 252l678
M02 (Removed by) magne13
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06233  M03S00271.282l826 ---|          MESSAGE  =0,2      CLEAR *CHECK E,P DISPLAY* MESSAGE
Line S00272 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06234  M02S00272.282l826 ---|          SA1    A0+UST2
06235  M02S00273.282l826 ---|          MX2    1
06236  M02S00274.282l826 ---|          LX2    4-59
06237  M02S00275.282l826 ---|          BX6    -X2*X1
Line S00276 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06238  M01S00276.252l678 +++|          SA6    A1          CLEAR *TERMINATE* FLAG
Line S00277 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06239  M02S00277.282l826 ---|          SA5    A0+UST1     GET ERROR CODE
06240  M02S00278.282l826 ---|          LX5    24
06241  M02S00279.282l826 ---|          AX5    48
06242  M02S00280.282l826 ---|          SX7    PMAB        ISSUE LOAD POINT ERROR MESSAGE
06243  M02S00281.282l826 ---|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
Line S01285 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06244  M01S01285.282l826 +++|          SA1    A0+UISN
06245  M01S01286.282l826 +++|          MX6    -6
06246  M01S01287.282l826 +++|          LX1    -12
06247  M01S01288.282l826 +++|          BX1    -X6*X1      PREVIEW DISPLAY CODE
06248  M01S01289.282l826 +++|          SX6    X1-/RSX/TCF
06249  M01S01290.282l826 +++|          SX5    TCF
06250  M01S01291.282l826 +++|          ZR     X6,ABR      IF *TCF* ERROR
06251  M01S01292.282l826 +++|          SX6    X1-/RSX/BFR
06252  M01S01293.282l826 +++|          SX5    BFR
06253  M01S01294.282l826 +++|          ZR     X6,ABR      IF *BFR* ERROR
06254  M01S01295.282l826 +++|          SX5    BFW         SET *BFW* ERROR
06255  M01S01296.282l826 +++|          EQ     ABR         CLEAR REQUEST QUEUE AND ABORT JOB
06256  M00S02072.magnet  +++| OPE      SPACE  4,10
06257  M00S02073.magnet  +++|**        OPE - OPEN.
06258  M00S02074.magnet  +++|*         REWINDS TAPE IF SELECTED.
06259  M00S02075.magnet  +++|
06260  M00S02076.magnet  +++|
06261  M00S02077.magnet  +++| OPE7     PL     X5,EXIT     IF NOT REWIND
06262  M00S02078.magnet  +++|          SX7    PRWO        REWIND CURRENT REEL
06263  M00S02079.magnet  +++|          BX5    X5-X5
06264  M00S02080.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06265  M00S02081.magnet  +++|
Line S02082 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06266  M01S02082.253l688 ---| OPE      SA1    A0+UCIB     CHECK IF *POSMF*
Line S00248 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06267  M02S00248.282l826 ---|
Line S00249 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06268  M01S00249.253l688 +++| OPE      BSS    0           ENTRY
06269  M01S00250.253l688 +++|          SA1    A0+UCIB     CHECK IF *POSMF*
06270  M00S02083.magnet  +++|          LX5    59-35
06271  M00S02084.magnet  +++|          AX1    50
06272  M00S02085.magnet  +++|          MX3    -8
06273  M00S02086.magnet  +++|          BX1    -X3*X1
06274  M00S02087.magnet  +++|          SX1    X1-110B/4
06275  M00S02088.magnet  +++|          NZ     X1,OPE7     IF NOT *POSMF*
Line S02089 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06276  M01S02089.282l826 ---|          SA2    A0+UST2
06277  M01S02090.282l826 ---|          LX2    59-11
Line S01297 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06278  M01S01297.282l826 +++|          SA2    A0+UST4
06279  M01S01298.282l826 +++|          LX2    59-58
06280  M00S02091.magnet  +++|          PL     X2,OPE1     IF NOT LABELED TAPE
Line S02092 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06281  M01S02092.282l826 ---|          LX2    11-10
Line S01299 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06282  M01S01299.282l826 +++|          LX2    59-57-59+58
06283  M00S02093.magnet  +++|          NG     X2,OPE1     IF NON-STANDARD LABEL
06284  M00S02094.magnet  +++|          SX7    PDRW        DETERMINE TYPE OF *POSMF*
06285  M00S02095.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06286  M00S02096.magnet  +++|
06287  M00S02097.magnet  +++| OPE1     SX7    PNLB        COMPLETE FET
06288  M00S02098.magnet  +++|          EQ     EXI3        CLEAR QUEUE AND ENTER NEW REQUEST
06289  M00S02099.magnet  +++|
06290  M00S02100.magnet  +++|*         RETURN HERE IF *POSMF 9999*.
06291  M00S02101.magnet  +++|
Line S02102 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06292  M01S02102.253l688 ---| OPE2     SA2    A0+UST1
Line S00251 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06293  M01S00251.253l688 +++| OPE2     BSS    0           ENTRY
Line S00252 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06294  M02S00252.282l826 ---|          SA2    A0+UST1
Line S01300 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06295  M01S01300.282l826 +++|          SA2    A0+UST2
06296  M00S02103.magnet  +++|          MX0    36
Line S02104 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06297  M01S02104.282l826 ---|          LX2    59-47
Line S01301 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06298  M01S01301.282l826 +++|          LX2    59-4
06299  M00S02105.magnet  +++|          NG     X2,OPE3     IF LAST OPERATION WRITE
06300  M00S02106.magnet  +++|          SA2    A0+USID     CHECK IF SETID SPECIFIED
06301  M00S02107.magnet  +++|          SA1    OPEA
06302  M00S02108.magnet  +++|          BX3    X0*X2
06303  M00S02109.magnet  +++|          BX1    X1-X3
06304  M00S02110.magnet  +++|          NZ     X1,OPE6     IF SETID SPECIFIED
06305  M00S02111.magnet  +++|          MX0    -18         CHECK SEQUENCE NUMBER
06306  M00S02112.magnet  +++|          SX3    B1
06307  M00S02113.magnet  +++|          BX2    -X0*X2
06308  M00S02114.magnet  +++|          BX1    X2-X3
06309  M00S02115.magnet  +++|          NZ     X1,OPE6     IF NOT POSITIONED AT FIRST FILE
06310  M00S02116.magnet  +++|          SX7    PWBL        WRITE MULTI-FILE LABELS
06311  M00S02117.magnet  +++|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
06312  M00S02118.magnet  +++|
06313  M00S02119.magnet  +++| OPE3     SX7    PMFL        WRITE MULTI-FILE LABEL
06314  M00S02120.magnet  +++|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
06315  M00S02121.magnet  +++|
06316  M00S02122.magnet  +++|*         PROCESS OPEN WRITE.
06317  M00S02123.magnet  +++|
Line S02124 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06318  M01S02124.253l688 ---| OPE4     SA2    A0+UCIB     CHECK IF OPEN WRITE
Line S00253 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06319  M01S00253.253l688 +++| OPE4     BSS    0           ENTRY
06320  M01S00254.253l688 +++|          SA2    A0+UCIB     CHECK IF OPEN WRITE
06321  M00S02125.magnet  +++|          LX2    59-50
06322  M00S02126.magnet  +++|          PL     X2,EXIT     IF NOT WRITE
06323  M00S02127.magnet  +++|          EQ     LAB1        WRITE LABEL
06324  M00S02128.magnet  +++|
06325  M00S02129.magnet  +++|*         RETURN HERE IF NOT *POSMF 9999*.
06326  M00S02130.magnet  +++|
Line S02131 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06327  M01S02131.253l688 ---| OPE5     MX0    12
Line S00255 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06328  M01S00255.253l688 +++| OPE5     BSS    0           ENTRY
06329  M01S00256.253l688 +++|          MX0    12
06330  M00S02132.magnet  +++|          SA2    A0+ULRQ     CHECK IF REWIND NEEDED
06331  M00S02133.magnet  +++|          LX0    24
06332  M00S02134.magnet  +++|          BX3    X0*X2
06333  M00S02135.magnet  +++|          SX7    PRWP        REWIND AND REPOSITION TO CORRECT FILE SET
06334  M00S02136.magnet  +++|          ZR     X3,EXI4     IF REWIND NEEDED
Line S02137 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06335  M01S02137.252l678 ---| OPE6     SX7    PPEI        POSITION TO CORRECT FILE SET
Line S00282 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06336  M01S00282.252l678 +++| OPE6     SA2    A0+UTMS     CHECK FOR LAST CATALOG ON ANOTHER VOLUME
06337  M01S00283.252l678 +++|          SX7    PMFS        PROCESS MULTI-FILE REEL SWAP ON POSMF
06338  M01S00284.252l678 +++|          LX2    59-17
06339  M01S00285.252l678 +++|          NG     X2,EXI3     IF REWIND NEEDED
06340  M01S00286.252l678 +++|          SX7    PPEI        POSITION TO CORRECT FILE SET
06341  M00S02138.magnet  +++|          EQ     EXI3        CLEAR QUEUE AND ENTER NEW REQUEST
06342  M00S02139.magnet  +++|
06343  M00S02140.magnet  +++| OPEA     DATA   6L
06344  M00S02141.magnet  +++| PEO      SPACE  4,10
06345  M00S02142.magnet  +++|**        PEO - CHECK IF EOI RETURNED ON SKIP OPERATION.
06346  M00S02143.magnet  +++|*         IF EOI IS NOT RETURNED, DETERMINE IF SKIP IS COMPLETE
06347  M00S02144.magnet  +++|*         AND CONTINUE SKIP IF NOT COMPLETE. THIS IS TO HANDLE
06348  M00S02145.magnet  +++|*         S/L LABELED TAPES WITH TAPE MARKS EMBEDDED IN THE DATA.
06349  M00S02146.magnet  +++|
06350  M00S02147.magnet  +++|
Line S02148 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06351  M01S02148.253l688 ---| PEO      SA1    A0+ULRQ
Line S00257 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06352  M01S00257.253l688 +++| PEO      BSS    0           ENTRY
06353  M01S00258.253l688 +++|          SA1    A0+ULRQ
06354  M00S02149.magnet  +++|          SX2    7000B
06355  M00S02150.magnet  +++|          BX3    X2*X1
06356  M00S02151.magnet  +++|          MX0    -18
06357  M00S02152.magnet  +++|          NZ     X3,EXIT     IF EOI OR END OF REEL RETURNED
06358  M00S02153.magnet  +++|          SA1    A0+UCIA     DETERMINE IF SKIP COMPLETE
06359  M00S02154.magnet  +++|          MX2    -2
06360  M00S02155.magnet  +++|          AX1    24
06361  M00S02156.magnet  +++|          BX3    -X0*X1
06362  M00S02157.magnet  +++|          AX1    26
06363  M00S02158.magnet  +++|          BX4    -X2*X1
06364  M00S02159.magnet  +++|          BX2    -X2-X4
06365  M00S02160.magnet  +++|          SX7    PSKK        SET TO CONTINUE SKIP
06366  M00S02161.magnet  +++|          ZR     X2,EXI1     IF SKIPEI
06367  M00S02162.magnet  +++|          NZ     X3,EXI1     IF SKIP COUNT NOT ZERO
06368  M00S02163.magnet  +++|          SX7    PEOF        PROCESS EOF
06369  M00S02164.magnet  +++|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
06370  M00S02165.magnet  +++| PTM      SPACE  4,10
06371  M00S02166.magnet  +++|**        PTM - RESET BLOCK COUNT TO ZERO.
06372  M00S02167.magnet  +++|
06373  M00S02168.magnet  +++|
Line S02169 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06374  M01S02169.253l688 ---| PTM      SA1    A0+UST2     RESET BLOCK COUNTER
Line S00259 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06375  M01S00259.253l688 +++| PTM      BSS    0           ENTRY
06376  M01S00260.253l688 +++|          SA1    A0+UST2     RESET BLOCK COUNTER
06377  M00S02170.magnet  +++|          MX3    -24
06378  M00S02171.magnet  +++|          LX3    12
06379  M00S02172.magnet  +++|          BX6    X3*X1
06380  M00S02173.magnet  +++|          SA6    A1
06381  M00S02174.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST
06382  M00S02175.magnet  +++| RDA      SPACE  4,10
06383  M00S02176.magnet  +++|**        RDA - READ DATA.
06384  M00S02177.magnet  +++|*         CHECKS FOR READ AFTER WRITE.
06385  M00S02178.magnet  +++|
06386  M00S02179.magnet  +++|
Line S02180 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06387  M01S02180.253l688 ---| RDA      SA1    A0+UST1
Line S00261 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06388  M01S00261.253l688 +++| RDA      BSS    0           ENTRY
Line S00262 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06389  M02S00262.282l826 ---|          SA1    A0+UST1
Line S01302 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06390  M01S01302.282l826 +++|          SA1    A0+UST2
06391  M00S02181.magnet  +++|          SX7    RDF         SET READ FUNCTION
Line S02182 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06392  M01S02182.282l826 ---|          LX1    59-47
Line S01303 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06393  M01S01303.282l826 +++|          LX1    59-4
06394  M00S02183.magnet  +++|          PL     X1,IOR      IF LAST OPERATION NOT WRITE
Line S02184 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06395  M01S02184.282l826 ---|          SX7    PMAB        ISSUE READ AFTER WRITE MESSAGE
06396  M00S02185.magnet  +++|          SX5    RAF         READ AFTER WRITE
Line S02186 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06397  M01S02186.282l826 ---|          EQ     EXI3        CLEAR REQUEST QUEUE AND ENTER NEW REQUEST
Line S01304 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06398  M01S01304.282l826 +++|          EQ     ABR         CLEAR REQUEST QUEUE AND ABORT
06399  M00S02187.magnet  +++| REW      SPACE  4,10
06400  M00S02188.magnet  +++|**        REW - REWIND.
Line S01305 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06401  M01S01305.282l826 +++|*
06402  M00S02189.magnet  +++|*         DETERMINES IF NOT ON FIRST REEL OF THE FILE.  IF NOT FIRST
06403  M00S02190.magnet  +++|*         REEL, THEN REEL SWAP PROCEDURES ARE STARTED.  THE CURRENT
06404  M00S02191.magnet  +++|*         REEL WILL BE UNLOADED IF THE FIRST REEL IS NOT READY AND
06405  M00S02192.magnet  +++|*         UNASSIGNED ON A DRIVE AND INHIBIT UNLOAD WAS SELECTED.
06406  M00S02193.magnet  +++|
06407  M00S02194.magnet  +++|
Line S02195 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06408  M01S02195.253l688 ---| REW      SA1    A0+UVSN     CHECK REEL NUMBER
Line S00263 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06409  M01S00263.253l688 +++| REW      BSS    0           ENTRY
Line S00264 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06410  M02S00264.282l826 ---|          SA1    A0+UVSN     CHECK REEL NUMBER
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/magnet.005.txt ยท Last modified: by 127.0.0.1