Deck MAGNET Part 006

50 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
06411  M01S02196.282l826 ---|          SA2    A0+UFLA     GET REWIND REPOSITIONING REQUIRED FLAG
06412  M01S02197.282l826 ---|          MX0    1
06413  M01S02198.282l826 ---|          LX0    57-59
06414  M01S02199.282l826 ---|          BX5    X0*X2
06415  M01S02200.282l826 ---|          BX7    -X0*X2      CLEAR REWIND REPOSITIONING REQUIRED FLAG
06416  M01S02201.282l826 ---|          LX5    0-57

Seq #  *Modification Id* Act 
----------------------------+
06417  M02S02202.282l826 ---|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
06418  M02S00022.282l826 ---|          SA7    A2+

Seq #  *Modification Id* Act 
----------------------------+
06419  M01S01306.282l826 +++|          SA1    A0+UVRI
06420  M01S01307.282l826 +++|          SA2    A0+USID
06421  M01S01308.282l826 +++|          SA3    A0+UFSN
06422  M01S01309.282l826 +++|          SA5    A0+UST2
06423  M00S02203.magnet  +++|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
06424  M01S02204.282l826 ---|          BX4    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
06425  M02S00023.282l826 ---|          LX2    59-53
06426  M02S00024.282l826 ---|          NG     X2,REW0     IF USER BREAK 2

Seq #  *Modification Id* Act 
----------------------------+
06427  M01S01310.282l826 +++|          LX1    -12
06428  M01S01311.282l826 +++|          BX4    -X0*X1      CURRENT REEL NUMBER
06429  M01S01312.282l826 +++|          SB3    X2          FILE SEQUENCE NUMBER
06430  M01S01313.282l826 +++|          BX0    X5
06431  M01S01314.282l826 +++|          SX7    X4          PRESET NUMBER OF REELS TO BACK UP
06432  M01S01315.282l826 +++|          LX5    59-5
06433  M01S01316.282l826 +++|          LX0    59-11
06434  M01S01317.282l826 +++|          NG     X5,REW0     IF FILE POSITION INDETERMINATE
06435  M00S02205.magnet  +++|          ZR     X4,REW5     IF FIRST REEL

Seq #  *Modification Id* Act 
----------------------------+
06436  M01S02206.ns2672  ---|          SA2    A0+USID     CHECK IF MULTI - FILE

Seq #  *Modification Id* Act 
----------------------------+
06437  M02S00025.282l826 ---| REW0     SA2    A0+USID     CHECK IF MULTI-FILE

Seq #  *Modification Id* Act 
----------------------------+
06438  M01S02207.282l826 ---|          SA3    A0+UFSN
06439  M01S02208.282l826 ---|          SB3    X2
06440  M01S02209.282l826 ---|          SX7    X4          PRESET NUMBER OF REELS TO BACKUP
06441  M01S02210.282l826 ---|          LE     B3,B1,REW2  IF NOT MULTI-FILE
06442  M01S02211.282l826 ---|          NZ     X5,REW1     IF *REWIND* OR *CLOSE/REWIND*

Seq #  *Modification Id* Act 
----------------------------+
06443  M01S01318.282l826 +++| REW0     LE     B3,B1,REW2  IF NOT MULTI-FILE
06444  M01S01319.282l826 +++|          NG     X0,REW1     IF REWIND BEFORE OPERATION
06445  M00S02212.magnet  +++|          SA2    A0+UCIB     CHECK IF *POSMF*
06446  M00S02213.magnet  +++|          AX2    50
06447  M00S02214.magnet  +++|          MX0    -8
06448  M00S02215.magnet  +++|          BX2    -X0*X2
06449  M00S02216.magnet  +++|          SX2    X2-22B
06450  M00S02217.magnet  +++|          ZR     X2,REW2     IF *POSMF* BACK UP MAXIMUM REELS
06451  M00S02218.magnet  +++| REW1     SX7    X3-1

Seq #  *Modification Id* Act 
----------------------------+
06452  M01S01320.282l826 +++|          NG     X5,REW2     IF POSITION INDETERMINATE
06453  M00S02219.magnet  +++|          ZR     X7,REW5     IF CURRENT REEL REWIND
06454  M00S02220.magnet  +++| REW2     IX4    X4-X7
06455  M00S02221.magnet  +++|          PL     X4,REW3     IF POSSIBLE TO BACK UP MAXIMUM REELS
06456  M00S02222.magnet  +++|          IX7    X4+X7
06457  M00S02223.magnet  +++| REW3     IX6    X1-X7       RESET REEL NUMBER

Seq #  *Modification Id* Act 
----------------------------+
06458  M02S00287.282l826 ---|          SB4    X7+         SAVE REEL OFFSET

Seq #  *Modification Id* Act 
----------------------------+
06459  M01S01321.282l826 +++|          SB4    X7          SAVE REEL OFFSET
06460  M01S01322.282l826 +++|          LX6    12
06461  M00S02224.magnet  +++|          MX0    42          UPDATE FILE SECTION NUMBER

Seq #  *Modification Id* Act 
----------------------------+
06462  M01S02225.282l826 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
06463  M01S01323.282l826 +++|          SA6    A1          UPDATE REEL NUMBER
06464  M00S02226.magnet  +++|          BX3    X0*X3
06465  M00S02227.magnet  +++|          SX1    B1
06466  M00S02228.magnet  +++|          BX7    X3+X1

Seq #  *Modification Id* Act 
----------------------------+
06467  M01S02229.282l826 ---|          SA1    A0+UST2
06468  M01S02230.282l826 ---|          SA7    A3

Seq #  *Modification Id* Act 
----------------------------+
06469  M01S01324.282l826 +++|          SA1    A0+UST4
06470  M01S01325.282l826 +++|          SA7    A3+
06471  M00S02231.magnet  +++|          LE     B3,B1,REW4  IF NOT MULTI-FILE

Seq #  *Modification Id* Act 
----------------------------+
06472  M01S02232.282l826 ---|          LX1    59-11

Seq #  *Modification Id* Act 
----------------------------+
06473  M01S01326.282l826 +++|          LX1    59-58
06474  M00S02233.magnet  +++|          SX7    PMFR        REPOSITION MULTI-VOLUME, MULTI-FILE
06475  M00S02234.magnet  +++|          PL     X1,REW4     IF NOT LABELED TAPE

Seq #  *Modification Id* Act 
----------------------------+
06476  M01S02235.282l826 ---|          LX1    11-10

Seq #  *Modification Id* Act 
----------------------------+
06477  M01S01327.282l826 +++|          LX1    59-57-59+58
06478  M00S02236.magnet  +++|          NG     X1,REW4     IF NON-STANDARD LABEL

Seq #  *Modification Id* Act 
----------------------------+
06479  M01S01328.282l826 +++|          NG     X5,EXI4     IF POSITION INDETERMINATE

Seq #  *Modification Id* Act 
----------------------------+
06480  M01S02237.252l678 ---|          EQ     EXI4        QUEUE NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
06481  M01S00288.252l678 +++|          SA2    A0+UTMS     CHECK FOR SYMBOLIC ACCESS TAPE
06482  M01S00289.252l678 +++|          LX2    59-8
06483  M01S00290.252l678 +++|          PL     X2,EXI4     IF NON-SYMBOLIC ACCESS
06484  M01S00291.252l678 +++|          SA3    A0+UTCI     CHECK FOR *POSMF*
06485  M01S00292.252l678 +++|          AX3    24
06486  M01S00293.252l678 +++|          MX0    -24
06487  M01S00294.252l678 +++|          BX3    -X0*X3
06488  M01S00295.252l678 +++|          LX2    59-17-59+8
06489  M01S00296.252l678 +++|          ZR     X3,EXI4     IF NOT *POSMF*
06490  M01S00297.252l678 +++|          NG     X2,EXI4     IF REEL SWAP NECESSARY
06491  M01S00298.252l678 +++|          SX3    B4          RESET REEL NUMBER
06492  M01S00299.252l678 +++|          IX6    X6+X3
06493  M01S00300.252l678 +++|          SA6    A6+
06494  M01S00301.252l678 +++|          EQ     REW5        REWIND REEL
06495  M00S02238.magnet  +++|
06496  M00S02239.magnet  +++| REW4     SX7    PERW
06497  M00S02240.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06498  M00S02241.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06499  M01S02242.253l688 ---| REW5     SA2    A0+USID     CHECK IF MULTI-FILE

Seq #  *Modification Id* Act 
----------------------------+
06500  M01S00265.253l688 +++| REW5     BSS    0           ENTRY
06501  M01S00266.253l688 +++|          SA2    A0+USID     CHECK IF MULTI-FILE

Seq #  *Modification Id* Act 
----------------------------+
06502  M01S02243.282l826 ---|          SA1    A0+UST2

Seq #  *Modification Id* Act 
----------------------------+
06503  M01S01329.282l826 +++|          SA1    A0+UST4
06504  M00S02244.magnet  +++|          SB3    X2

Seq #  *Modification Id* Act 
----------------------------+
06505  M01S02245.252l678 ---|          LE     B3,B1,EXIT  IF NOT MULTI-FILE SET TAPE

Seq #  *Modification Id* Act 
----------------------------+
06506  M01S00302.252l678 +++|          LE     B3,B1,REW7  IF NOT MULTI-FILE SET TAPE

Seq #  *Modification Id* Act 
----------------------------+
06507  M01S02246.282l826 ---|          LX1    59-11

Seq #  *Modification Id* Act 
----------------------------+
06508  M01S01330.282l826 +++|          LX1    59-58
06509  M00S02247.magnet  +++|          PL     X1,EXIT     IF NOT LABELED TAPE

Seq #  *Modification Id* Act 
----------------------------+
06510  M01S02248.282l826 ---|          LX1    59-10-59+11

Seq #  *Modification Id* Act 
----------------------------+
06511  M01S01331.282l826 +++|          LX1    59-57-59+58
06512  M00S02249.magnet  +++|          NG     X1,EXIT     IF NON-STANDARD LABEL
06513  M00S02250.magnet  +++|          SX7    PCFL        REWIND SINGLE-VOLUME MULTI-FILE SET TAPE

Seq #  *Modification Id* Act 
----------------------------+
06514  M01S00303.252l678 +++|          MX0    1           CHECK FOR SYMBOLIC ACCESS TAPE FILE
06515  M01S00304.252l678 +++|          SA2    A0+UTMS     CHECK FOR *TFM* FORCED REEL SWAP
06516  M01S00305.252l678 +++|          LX2    59-8
06517  M01S00306.252l678 +++|          PL     X2,EXI4     IF NON-SYMBOLIC ACCESS FILE
06518  M01S00307.252l678 +++|          LX2    59-18-59+8
06519  M01S00308.252l678 +++|          BX6    X0+X2       SET FIRST *HDR1* ON VOLUME FLAG
06520  M01S00309.252l678 +++|          LX6    -59+18
06521  M01S00310.252l678 +++|          SA6    A2+
06522  M00S02251.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06523  M00S02252.magnet  +++|
06524  M00S02253.magnet  +++|*         REENTER HERE TO DETERMINE IF UNLOAD NEEDED.
06525  M00S02254.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06526  M01S02255.253l688 ---| REW6     RJ     FNR         FIND NEXT REEL

Seq #  *Modification Id* Act 
----------------------------+
06527  M01S00267.253l688 +++| REW6     BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06528  M02S00268.ns2672  ---|          RJ     FNR         FIND NEXT REEL

Seq #  *Modification Id* Act 
----------------------------+
06529  M02S00026.282l826 ---|          SA2    A0+UFLA
06530  M02S00027.282l826 ---|          MX3    1           CLEAR USER BREAK 2 FLAG
06531  M02S00028.282l826 ---|          LX2    59-53
06532  M02S00029.282l826 ---|          PL     X2,REW6.1   IF NOT USER BREAK 2
06533  M02S00030.282l826 ---|          BX6    X2-X3
06534  M02S00031.282l826 ---|          LX6    53-59
06535  M02S00032.282l826 ---|          SA6    A2+
06536  M02S00033.282l826 ---|          EQ     EXIT        PROCESS NEXT REQUEST
06537  M02S00034.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
06538  M03S00035.282l826 ---| REW6.1   RJ     FNR         FIND NEXT REEL

Seq #  *Modification Id* Act 
----------------------------+
06539  M02S02256.282l826 ---|          PL     X6,EXIT     IF NEXT REEL AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
06540  M02S01813.282l826 ---| REW6.1   RJ     CUL         CHECK UNLOAD REQUIRED
06541  M02S01814.282l826 ---|          PL     X6,EXIT     IF UNIT NOT TO BE UNLOADED

Seq #  *Modification Id* Act 
----------------------------+
06542  M01S02257.282l826 ---|          SX7    PUNL        UNLOAD LAST REEL

Seq #  *Modification Id* Act 
----------------------------+
06543  M01S01332.282l826 +++|          SA1    A0+UST2
06544  M01S01333.282l826 +++|          LX1    59-5
06545  M01S01334.282l826 +++|          NG     X1,REW6.1   IF FILE POSITION INDETERMINATE
06546  M01S01335.282l826 +++|          RJ     CUL         CHECK UNLOAD REQUIRED
06547  M01S01336.282l826 +++|          NZ     B3,EXIT     IF UNIT NOT TO BE UNLOADED
06548  M01S01337.282l826 +++| REW6.1   SX7    PUNL        UNLOAD LAST REEL
06549  M00S02258.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
06550  M01S00311.252l678 +++|
06551  M01S00312.252l678 +++| REW7     SA1    A0+UTCI     CHECK FOR *POSMF* IN PROGRESS
06552  M01S00313.252l678 +++|          MX2    24
06553  M01S00314.252l678 +++|          LX1    59-47
06554  M01S00315.252l678 +++|          BX1    X2*X1
06555  M01S00316.252l678 +++|          ZR     X1,EXIT     IF NOT *POSMF* IN PROGRESS
06556  M01S00317.252l678 +++|          SX7    PCFL
06557  M01S00318.252l678 +++|          EQ     EXI4        QUEUE NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
06558  M02S01815.282l826 ---| RRA      SPACE  4,10
06559  M02S01816.282l826 ---|**        RRA - REEL REJECT ABORT.

Seq #  *Modification Id* Act 
----------------------------+
06560  M01S01338.282l826 +++| RPR      SPACE  4,10
06561  M01S01339.282l826 +++|**        RPR - REISSUE PP REQUEST AFTER DELAY.
06562  M01S01340.282l826 +++|
06563  M01S01341.282l826 +++|
06564  M01S01342.282l826 +++| RPR      BSS    0           ENTRY
06565  M01S01343.282l826 +++|          SA1    A0+UFLA
06566  M01S01344.282l826 +++|          SX7    B0+
06567  M01S01345.282l826 +++|          MX2    -48
06568  M01S01346.282l826 +++|          SA7    A0+UREQ     PREVENT THIS REQUEST FROM BEING STACKED
06569  M01S01347.282l826 +++|          BX6    -X2*X1
06570  M01S01348.282l826 +++|          SA6    A0+UXRQ
06571  M01S01349.282l826 +++|          RJ     GNR         GET NEXT REQUEST
06572  M01S01350.282l826 +++|          EQ     EXIX        PROCESS NEXT UNIT
06573  M01S01351.282l826 +++| RRM      SPACE  4,10
06574  M01S01352.282l826 +++|**        RRM - REQUEST REEL MOUNT.
06575  M01S01353.282l826 +++|
06576  M01S01354.282l826 +++|
06577  M01S01355.282l826 +++| RRM      BSS    0           ENTRY
06578  M01S01356.282l826 +++|          SA1    A0+UST1
06579  M01S01357.282l826 +++|          SX3    B0          SET NO ERROR MESSAGE
06580  M01S01358.282l826 +++|          LX1    59-49
06581  M01S01359.282l826 +++|          NG     X1,EXIT     IF ACS UNIT
06582  M01S01360.282l826 +++|          RJ     SPR         SET PREVIEW DISPLAY REQUEST
06583  M01S01361.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
06584  M01S01362.282l826 +++| RRP      SPACE  4,10
06585  M01S01363.282l826 +++|**        RRP - REEL REJECT EXIT PROCESSOR.
06586  M01S01364.282l826 +++|
06587  M01S01365.282l826 +++|
06588  M01S01366.282l826 +++| RRP      BSS    0           ENTRY
06589  M01S01367.282l826 +++|
06590  M01S01368.282l826 +++|*         CHECK ERROR STATUS.
06591  M01S01369.282l826 +++|
06592  M01S01370.282l826 +++|          SA1    A0+UST1
06593  M01S01371.282l826 +++|          SA2    A0+UTMS
06594  M01S01372.282l826 +++|          SA3    A0+UST5
06595  M01S01373.282l826 +++|          SA4    A0+UST2
06596  M01S01374.282l826 +++|          SX5    B0
06597  M01S01375.282l826 +++|          LX1    59-49
06598  M01S01376.282l826 +++|          LX2    59-12
06599  M01S01377.282l826 +++|          LX3    12
06600  M01S01378.282l826 +++|          LX4    59-10
06601  M01S01379.282l826 +++|          AX3    48          *RRJ* ERROR SUB-CODE
06602  M01S01380.282l826 +++|          NG     X1,RRP1     IF ACS UNIT
06603  M01S01381.282l826 +++|          SX6    X3-WRD
06604  M01S01382.282l826 +++|          ZR     X6,RRP2     IF WRITE DISABLED ERROR
06605  M01S01383.282l826 +++|          NG     X2,RRP3     IF TO WRITE TMS SECURITY LABELS
06606  M01S01384.282l826 +++|          SX6    X3-CAD
06607  M01S01385.282l826 +++|          NZ     X6,RRP2     IF NOT ACCESS ERROR
06608  M01S01386.282l826 +++|          NG     X4,RRP2     IF NOT INITIAL REEL ASSIGNMENT
06609  M01S01387.282l826 +++|
06610  M01S01388.282l826 +++|*         ABORT REQUEST.
06611  M01S01389.282l826 +++|
06612  M01S01390.282l826 +++| RRP1     SX7    PRRA
06613  M01S01391.282l826 +++|          EQ     EXI3        CLEAR QUEUE AND ABORT REQUEST
06614  M01S01392.282l826 +++|
06615  M01S01393.282l826 +++|*         REQUEST REMOUNT OF REEL.
06616  M01S01394.282l826 +++|
06617  M01S01395.282l826 +++| RRP2     SA3    RRPA+X3     GET PREVIEW DISPLAY MESSAGE CODE
06618  M01S01396.282l826 +++|          SX7    PRUL
06619  M01S01397.282l826 +++|          EQ     RRP4        REQUEST PREVIEW DISPLAY
06620  M01S01398.282l826 +++|
06621  M01S01399.282l826 +++|*         WAIT FOR OPERATOR GO.
06622  M01S01400.282l826 +++|
06623  M01S01401.282l826 +++| RRP3     SA3    RRPB+X3     GET PREVIEW DISPLAY MESSAGE CODE
06624  M01S01402.282l826 +++|          SX6    B1
06625  M01S01403.282l826 +++|          LX2    12-12-59+12
06626  M01S01404.282l826 +++|          LX6    23-0
06627  M01S01405.282l826 +++|          BX6    X2+X6       SET WAIT GO FLAG
06628  M01S01406.282l826 +++|          SX7    PWUG        WAIT FOR UNIT GO
06629  M01S01407.282l826 +++|          SA6    A2+
06630  M01S01408.282l826 +++|
06631  M01S01409.282l826 +++|*         SET PREVIEW DISPLAY REQUEST.
06632  M01S01410.282l826 +++|
06633  M01S01411.282l826 +++| RRP4     RJ     SPR         SET PREVIEW DISPLAY REQUEST
06634  M01S01412.282l826 +++|          EQ     EXI1        CLEAR CURRENT REQUEST AND ENTER NEW
06635  M01S01413.282l826 +++|
06636  M01S01414.282l826 +++|
06637  M01S01415.282l826 +++| RRPA     IVFD
06638  M01S01416.282l826 +++|          IVFD   WRD,(54/0,6//RSX/NWE)  WRITE DISABLED
06639  M01S01417.282l826 +++|          IVFD   NLB,(54/0,6//RSX/NLB)  NEEDS LABEL
06640  M01S01418.282l826 +++|          IVFD   CAD,(54/0,6//RSX/CAD)  CANNOT ACCESS DATA
06641  M01S01419.282l826 +++|          IVFD   WVS,(54/0,6//RSX/WVS)  WRONG VSN
06642  M01S01420.282l826 +++|          IVFD   MRSC
06643  M01S01421.282l826 +++|
06644  M01S01422.282l826 +++| RRPB     IVFD
06645  M01S01423.282l826 +++|          IVFD   NLB,(54/0,6//RSX/NLG)  NEEDS LABEL
06646  M01S01424.282l826 +++|          IVFD   CAD,(54/0,6//RSX/CAG)  CANNOT ACCESS DATA
06647  M01S01425.282l826 +++|          IVFD   WVS,(54/0,6//RSX/WVG)  WRONG VSN
06648  M01S01426.282l826 +++|          IVFD   MRSC
06649  M01S01427.282l826 +++| RSP      SPACE  4,10
06650  M01S01428.282l826 +++|**        RSP - REWIND OR UNLOAD UNIT PRIOR TO REEL SWAP.

Seq #  *Modification Id* Act 
----------------------------+
06651  M01S01817.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
06652  M02S01818.282l826 ---|*         ABORTS JOB IF REEL REJECT ON ACS UNIT.

Seq #  *Modification Id* Act 
----------------------------+
06653  M01S01429.282l826 +++|*         FOR CTS UNITS, THE REWIND OR UNLOAD OPERATION ALSO UPDATES
06654  M01S01430.282l826 +++|*         THE RECOVERED ERROR COUNTS IN *UERC* FOR LOGGING BY REEL
06655  M01S01431.282l826 +++|*         RETURN PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
06656  M01S01819.274l797 +++|
06657  M01S01820.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
06658  M02S01821.282l826 ---| RRA      BSS    0           ENTRY
06659  M02S01822.282l826 ---|          SA1    A0+UJID
06660  M02S01823.282l826 ---|          LX1    -36
06661  M02S01824.282l826 ---|          SX1    X1
06662  M02S01825.282l826 ---|          ZR     X1,EXIT     IF NOT ACS UNIT
06663  M02S01826.282l826 ---|          SA1    A0+UVSN
06664  M02S01827.282l826 ---|          MX6    -4
06665  M02S01828.282l826 ---|          LX6    12
06666  M02S01829.282l826 ---|          SX7    PMAB
06667  M02S01830.282l826 ---|          LX1    12-15
06668  M02S01831.282l826 ---|          SX5    RRJ         SET REEL ASSIGNMENT REJECT
06669  M02S01832.282l826 ---|          BX1    -X6*X1      *DSD* ERROR CODE
06670  M02S01833.282l826 ---|          BX5    X5+X1       SET *DSD* ERROR CODE IN REQUEST
06671  M02S01834.282l826 ---|          EQ     EXI3        CLEAR REQUEST QUEUE AND ABORT JOB

Seq #  *Modification Id* Act 
----------------------------+
06672  M01S02259.282l826 ---| RVF      SPACE  4,10
06673  M01S02260.282l826 ---|**        RVF - RECHECK VSN FILE FOR MOUNTED VSN.
06674  M01S02261.282l826 ---|*         IF EQUIVALENCED VSN,S PRESENT FOR THIS REEL AND NONE
06675  M01S02262.282l826 ---|*         OF THEM WERE MOUNTED ON THE LAST SCAN, RECHECK THE
06676  M01S02263.282l826 ---|*         VSN FILE TO DETERMINE IF ANY OF THEM HAVE BEEN

Seq #  *Modification Id* Act 
----------------------------+
06677  M02S02264.282l826 ---|*         MOUNTED.

Seq #  *Modification Id* Act 
----------------------------+
06678  M02S00014.282l826 ---|*         MOUNTED.  IF A *RING CONFLICT* HAS OCCURRED, RECHECK THE VSN
06679  M02S00015.282l826 ---|*         FILE, BUT DO NOT REISSUE THE *CHECK E,P DISPLAY* MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
06680  M01S02265.282l826 ---|
06681  M01S02266.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
06682  M02S02267.282l826 ---| RVF      SA1    A0+UVSN

Seq #  *Modification Id* Act 
----------------------------+
06683  M02S00269.282l826 ---| RVF      BSS    0           ENTRY
06684  M02S00270.282l826 ---|          SA1    A0+UVSN

Seq #  *Modification Id* Act 
----------------------------+
06685  M01S02268.282l826 ---|          LX1    59-19

Seq #  *Modification Id* Act 
----------------------------+
06686  M02S02269.282l826 ---|          SX7    PAVS        SET TO RECHECK VSN FILE

Seq #  *Modification Id* Act 
----------------------------+
06687  M02S00016.282l826 ---|          MX0    -4

Seq #  *Modification Id* Act 
----------------------------+
06688  M01S02270.282l826 ---|          PL     X1,EXIT     IF NOT EQUIVALENCED VSN,S

Seq #  *Modification Id* Act 
----------------------------+
06689  M02S00017.282l826 ---|          SX7    PAVS        SET TO RECHECK VSN FILE
06690  M02S00018.282l826 ---|          LX1    0-15-59+19  GET POSSIBLE ERROR CODE
06691  M02S00019.282l826 ---|          BX1    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
06692  M03S00020.282l826 ---|          SX1    X1-RCF
06693  M03S00021.282l826 ---|          NZ     X1,EXI4     IF NOT *RING CONFLICT*

Seq #  *Modification Id* Act 
----------------------------+
06694  M02S01835.282l826 ---|          SX1    X1-WRD
06695  M02S01836.282l826 ---|          NZ     X1,EXI4     IF NOT *WRITE DISABLED*

Seq #  *Modification Id* Act 
----------------------------+
06696  M02S00022.282l826 ---|          SX7    PAVT        SET TO RECHECK VSN FILE

Seq #  *Modification Id* Act 
----------------------------+
06697  M01S02271.282l826 ---|          EQ     EXI4        QUEUE NEW REQUEST
06698  M01S02272.282l826 ---| RVL      SPACE  4,10
06699  M01S02273.282l826 ---|**        RVL - RECHECK VSN FILE AFTER LABEL ERROR.
06700  M01S02274.282l826 ---|*         IF EQUIVALENCED VSN,S ARE PRESENT, THE VSN FILE MUST BE
06701  M01S02275.282l826 ---|*         SCANNED ONE MORE TIME AFTER A *WRONG VSN* MESSAGE SINCE
06702  M01S02276.282l826 ---|*         THE VSN IS LEGAL IF IT IS IN THE EQUIVALENCED VSN LIST.

Seq #  *Modification Id* Act 
----------------------------+
06703  M02S00023.282l826 ---|*         IF A RING CONFLICT HAS OCCURRED, READ THE VSN FILE TO
06704  M02S00024.282l826 ---|*         DETERMINE IF EQUIVALENCED VSN-S EXIST.

Seq #  *Modification Id* Act 
----------------------------+
06705  M01S02277.282l826 ---|
06706  M01S02278.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
06707  M02S02279.282l826 ---| RVL      SA1    A0+UVSN

Seq #  *Modification Id* Act 
----------------------------+
06708  M02S00271.282l826 ---| RVL      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06709  M02S01837.282l826 ---|          SA1    A0+UTMS
06710  M02S01838.282l826 ---|          LX1    59-11
06711  M02S01839.282l826 ---|          NG     X1,EXIT     IF TMS CONTROLLED FILE

Seq #  *Modification Id* Act 
----------------------------+
06712  M02S00272.282l826 ---|          SA1    A0+UVSN

Seq #  *Modification Id* Act 
----------------------------+
06713  M01S02280.282l826 ---|          SX7    PRVS        RECHECK VSN FILE
06714  M01S02281.282l826 ---|          LX1    59-19

Seq #  *Modification Id* Act 
----------------------------+
06715  M02S02282.282l826 ---|          PL     X1,EXIT     IF NO EQUIVALENCED VSN,S

Seq #  *Modification Id* Act 
----------------------------+
06716  M02S00001.282l826 ---|          SA2    A0+UST2
06717  M02S00002.282l826 ---|          LX2    59-2

Seq #  *Modification Id* Act 
----------------------------+
06718  M03S00003.282l826 ---|          PL     X2,RVL1     IF NOT TO RESET THE EQUIVALENCED VSN FLAG
06719  M03S00004.282l826 ---|          MX0    1

Seq #  *Modification Id* Act 
----------------------------+
06720  M02S00025.282l826 ---|          NG     X2,RVL1     IF TO RESET EQUIVALENCED VSN FLAG
06721  M02S00026.282l826 ---|          MX0    -4          GET POSSIBLE ERROR CODE
06722  M02S00027.282l826 ---|          LX1    0-15-59+19
06723  M02S00028.282l826 ---|          BX2    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
06724  M03S00029.282l826 ---|          SX2    X2-RCF

Seq #  *Modification Id* Act 
----------------------------+
06725  M02S01840.282l826 ---|          SX2    X2-WRD

Seq #  *Modification Id* Act 
----------------------------+
06726  M02S00030.282l826 ---|          LX1    59-19-0+15

Seq #  *Modification Id* Act 
----------------------------+
06727  M03S00031.282l826 ---|          NZ     X2,RVL2     IF NOT *RING CONFLICT*

Seq #  *Modification Id* Act 
----------------------------+
06728  M02S01841.282l826 ---|          NZ     X2,RVL2     IF NOT *WRITE DISABLED*

Seq #  *Modification Id* Act 
----------------------------+
06729  M02S00032.282l826 ---|          SX7    PCEV        CHECK FOR EQUIVALENCED VSN-S
06730  M02S00033.282l826 ---|          BX5    X5-X5       NO PARAMETERS
06731  M02S00034.282l826 ---|          EQ     EXI4        QUEUE NEW REQUEST
06732  M02S00035.282l826 ---|
06733  M02S00036.282l826 ---| RVL1     MX0    1

Seq #  *Modification Id* Act 
----------------------------+
06734  M02S00005.282l826 ---|          BX6    X0+X1
06735  M02S00006.282l826 ---|          LX6    -59+19
06736  M02S00007.282l826 ---|          SA6    A1          RE-REQUEST TAPE WITH EQUIVALENCED VSN-S
06737  M02S00008.282l826 ---|          BX6    -X0*X2
06738  M02S00009.282l826 ---|          LX6    -59+2

Seq #  *Modification Id* Act 
----------------------------+
06739  M03S00010.282l826 ---|          SA6    A2          CLEAR RESET EQUIVALENCED VSN FLAG
06740  M03S00011.282l826 ---| RVL1     PL     X1,EXIT     IF NO EQUIVALENCED VSN-S

Seq #  *Modification Id* Act 
----------------------------+
06741  M02S00037.282l826 ---|          SA6    A2+         CLEAR RESET EQUIVALENCED VSN FLAG
06742  M02S00038.282l826 ---| RVL2     PL     X1,EXIT     IF NO EQUIVALENCED VSN-S

Seq #  *Modification Id* Act 
----------------------------+
06743  M01S02283.282l826 ---|          EQ     EXI1        CLEAR CURRENT REQUEST, QUEUE NEW REQUEST
06744  M01S02284.282l826 ---| RSP      SPACE  4,10
06745  M01S02285.282l826 ---|**        RSP - REEL SWAP.
06746  M01S02286.282l826 ---|*         UPDATES REEL NUMBER AND FILE SECTION NUMBER.  IF THE NEXT
06747  M01S02287.282l826 ---|*         REEL IS NOT MOUNTED AND AVAILABLE, THE CURRENT REEL WILL
06748  M01S02288.282l826 ---|*         BE UNLOADED.  THE CURRENT REEL WILL ALWAYS BE UNLOADED
06749  M01S02289.282l826 ---|*         IF INHIBIT UNLOAD IS NOT SELECTED.
06750  M01S02290.282l826 ---|
06751  M01S02291.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
06752  M01S02292.253l688 ---| RSP      SA3    A0+UFSN     INCREMENT SECTION NUMBER

Seq #  *Modification Id* Act 
----------------------------+
06753  M01S00273.253l688 +++| RSP      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06754  M02S00274.282l826 ---|          SA3    A0+UFSN     INCREMENT SECTION NUMBER

Seq #  *Modification Id* Act 
----------------------------+
06755  M01S02293.282l826 ---|          SX2    B1
06756  M01S02294.282l826 ---|          IX6    X2+X3
06757  M01S02295.282l826 ---|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
06758  M01S02296.274l797 ---|          SA1    A0+UST4
06759  M01S02297.274l797 ---|          LX1    59-5
06760  M01S02298.274l797 ---|          SX7    PREW

Seq #  *Modification Id* Act 
----------------------------+
06761  M01S01842.274l797 +++|          RJ     CUL         CHECK UNLOAD REQUIRED
06762  M01S01843.274l797 +++|          SX7    PREW        REWIND REEL
06763  M00S02299.magnet  +++|          SX5    B0+

Seq #  *Modification Id* Act 
----------------------------+
06764  M01S02300.274l797 ---|          PL     X1,RSP1     IF NOT INHIBIT UNLOAD
06765  M01S02301.274l797 ---|          RJ     FNR         FIND NEXT REEL
06766  M01S02302.274l797 ---|          PL     X6,EXI4     IF REEL FOUND
06767  M01S02303.274l797 ---| RSP1     SX7    PUNL

Seq #  *Modification Id* Act 
----------------------------+
06768  M02S01844.282l826 ---|          PL     X6,EXI4     IF NOT TO UNLOAD UNIT

Seq #  *Modification Id* Act 
----------------------------+
06769  M01S01432.282l826 +++|          NZ     B3,EXI4     IF NOT TO UNLOAD UNIT

Seq #  *Modification Id* Act 
----------------------------+
06770  M01S01845.274l797 +++|          SX7    PUNL        UNLOAD UNIT
06771  M00S02304.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06772  M00S02305.magnet  +++| RXL      SPACE  4,10
06773  M00S02306.magnet  +++|**        RXL - RETURN LABELS TO EXTENDED LABEL BUFFER.
06774  M00S02307.magnet  +++|
06775  M00S02308.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06776  M01S02309.253l688 ---| RXL      SA1    A0+UCIB     CHECK XL BIT

Seq #  *Modification Id* Act 
----------------------------+
06777  M01S00275.253l688 +++| RXL      BSS    0           ENTRY
06778  M01S00276.253l688 +++|          SA1    A0+UCIB     CHECK XL BIT
06779  M00S02310.magnet  +++|          LX1    59-41
06780  M00S02311.magnet  +++|          PL     X1,EXIT     IF NO EXTENDED LABELS
06781  M00S02312.magnet  +++|          SX7    PRXL        RETURN HEADER LABELS TO XL BUFFER
06782  M00S02313.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06783  M00S02314.magnet  +++| SEF      SPACE  4,10
06784  M00S02315.magnet  +++|**        SEF - CHECK ERROR FLAG DURING SKIP.
06785  M00S02316.magnet  +++|*
06786  M00S02317.magnet  +++|*         ENTRY  (ULRQ, 21) = 1 IF CHECK ERROR FLAG.
06787  M00S02318.magnet  +++|
06788  M00S02319.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06789  M01S02320.253l688 ---| SEF      SA1    A0+ULRQ     OBTAIN LAST STATUS

Seq #  *Modification Id* Act 
----------------------------+
06790  M01S00277.253l688 +++| SEF      BSS    0           ENTRY
06791  M01S00278.253l688 +++|          SA1    A0+ULRQ     OBTAIN LAST STATUS
06792  M00S02321.magnet  +++|          LX1    59-21
06793  M00S02322.magnet  +++|          PL     X1,FET      IF SKIP OPERATION COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
06794  M01S02323.ns2678  ---|          SX7    PSEF        CHECK ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
06795  M01S00001.ns2678  +++|          LX1    59-35-59+21
06796  M01S00002.ns2678  +++|          MX0    -18
06797  M01S00003.ns2678  +++|          PL     X1,SEF2     IF SKIP FORWARD
06798  M01S00004.ns2678  +++|
06799  M01S00005.ns2678  +++|*         CHECK FOR END OF RECORD.  IF NOT AT END OF RECORD, DO NOT
06800  M01S00006.ns2678  +++|*         DECREMENT THE SKIP COUNT SINCE THE TAPE IS STILL POSITIONED
06801  M01S00007.ns2678  +++|*         ON THE SAME RECORD.
06802  M01S00008.ns2678  +++|
06803  M01S00009.ns2678  +++|          LX1    59-24-59+35
06804  M01S00010.ns2678  +++|          PL     X1,SEF1     IF END OF RECORD
06805  M01S00011.ns2678  +++|          MX0    -59         CLEAR THE NOT END OF RECORD FLAG
06806  M01S00012.ns2678  +++|          BX7    -X0*X1
06807  M01S00013.ns2678  +++|          LX7    24-59
06808  M01S00014.ns2678  +++|          SA7    A1
06809  M01S00015.ns2678  +++|          EQ     SEF2        DO NOT DECREMENT SKIP COUNT
06810  M01S00016.ns2678  +++|
06811  M01S00017.ns2678  +++|*         DECREMENT THE SKIP COUNT BY ONE.  THIS IS NEEDED TO MAKE
06812  M01S00018.ns2678  +++|*         THE TOTAL NUMBER OF RECORDS SKIPPED COME OUT RIGHT ON A
06813  M01S00019.ns2678  +++|*         SKIP REVERSE OPERATION.
06814  M01S00020.ns2678  +++|
06815  M01S00021.ns2678  +++| SEF1     LX1    24-59
06816  M01S00022.ns2678  +++|          BX2    -X0*X1
06817  M01S00023.ns2678  +++|          SX2    X2-1        DECREMENT SKIP COUNT
06818  M01S00024.ns2678  +++|          ZR     X2,FET      IF SKIP REVERSE OPERATION COMPLETE
06819  M01S00025.ns2678  +++|          BX1    X0*X1
06820  M01S00026.ns2678  +++|          BX6    X1+X2
06821  M01S00027.ns2678  +++|          SA6    A1+
06822  M01S00028.ns2678  +++| SEF2     SX7    PSEF        CHECK ERROR FLAG
06823  M00S02324.magnet  +++|          EQ     EXI1        QUEUE NEW REQUEST
06824  M00S02325.magnet  +++| SKR      SPACE  4,10
06825  M00S02326.magnet  +++|**        SKR - SKIP RECORDS/FILES.
06826  M00S02327.magnet  +++|
06827  M00S02328.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06828  M01S02329.253l688 ---| SKR      SA1    A0+UCIA     SET SKIP COUNT

Seq #  *Modification Id* Act 
----------------------------+
06829  M01S00279.253l688 +++| SKR      BSS    0           ENTRY
06830  M01S00280.253l688 +++|          SA1    A0+UCIA     SET SKIP COUNT
06831  M00S02330.magnet  +++|          SX7    SKP
06832  M00S02331.magnet  +++|          MX2    -18
06833  M00S02332.magnet  +++|          LX1    -24
06834  M00S02333.magnet  +++|          BX3    -X2*X1
06835  M00S02334.magnet  +++|          BX5    X5+X3
06836  M00S02335.magnet  +++|          EQ     IOR         BUILD I/O REQUEST

Seq #  *Modification Id* Act 
----------------------------+
06837  M02S01846.282l826 ---| SLC      SPACE  4,10
06838  M02S01847.282l826 ---|**        SLC - SET LABEL CHECK IN PROGRESS.

Seq #  *Modification Id* Act 
----------------------------+
06839  M01S01433.282l826 +++| SRA      SPACE  4,10
06840  M01S01434.282l826 +++|**        SRA - SET REEL ASSIGNED.

Seq #  *Modification Id* Act 
----------------------------+
06841  M01S01848.274l797 +++|
06842  M01S01849.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
06843  M02S01850.282l826 ---| SLC      BSS    0           ENTRY
06844  M02S01851.282l826 ---|          SA1    A0+UVSN
06845  M02S01852.282l826 ---|          SX2    B1
06846  M02S01853.282l826 ---|          LX2    23
06847  M02S01854.282l826 ---|          BX6    X1+X2       SET LABEL CHECK FLAG

Seq #  *Modification Id* Act 
----------------------------+
06848  M01S01435.282l826 +++| SRA      BSS    0           ENTRY
06849  M01S01436.282l826 +++|          SA1    A0+UST2
06850  M01S01437.282l826 +++|          SA2    A0+UVRI
06851  M01S01438.282l826 +++|          SX6    40B
06852  M01S01439.282l826 +++|          SX7    1
06853  M01S01440.282l826 +++|          BX1    -X6*X1      CLEAR FILE POSITION INDETERMINATE
06854  M01S01441.282l826 +++|          BX2    -X7*X2      CLEAR MESSAGE FLAG
06855  M01S01442.282l826 +++|          SX6    2000B
06856  M01S01443.282l826 +++|          SX7    20B
06857  M01S01444.282l826 +++|          BX6    X1+X6       SET INITIAL REEL ASSIGNED
06858  M01S01445.282l826 +++|          BX7    X2+X7       SET REEL ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
06859  M01S01855.274l797 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
06860  M01S01446.282l826 +++|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
06861  M01S01856.274l797 +++|          EQ     EXIT        PROCESS NEXT REQUEST
06862  M00S02336.magnet  +++| SRF      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
06863  M01S02337.282l826 ---|**        SRF - SET REWIND REPOSITIONING REQUIRED FLAG.

Seq #  *Modification Id* Act 
----------------------------+
06864  M01S01447.282l826 +++|**        SRF - SET REWIND BEFORE OPERATION FLAG.
06865  M00S02338.magnet  +++|
06866  M00S02339.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06867  M01S02340.253l688 ---| SRF      SA1    A0+UFLA     SET REWIND REPOSITIONING REQUIRED FLAG

Seq #  *Modification Id* Act 
----------------------------+
06868  M01S00281.253l688 +++| SRF      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06869  M02S00282.282l826 ---|          SA1    A0+UFLA     SET REWIND REPOSITIONING REQUIRED FLAG

Seq #  *Modification Id* Act 
----------------------------+
06870  M01S02341.282l826 ---|          MX6    1
06871  M01S02342.282l826 ---|          LX6    57-59
06872  M01S02343.282l826 ---|          BX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
06873  M01S01448.282l826 +++|          SA1    A0+UST2
06874  M01S01449.282l826 +++|          SX6    4000B
06875  M01S01450.282l826 +++|          BX6    X1+X6       SET REWIND BEFORE OPERATION
06876  M00S02344.magnet  +++|          SA6    A1
06877  M00S02345.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST
06878  M00S02346.magnet  +++| SSC      SPACE  4,10
06879  M00S02347.magnet  +++|**        SSC - SAVE REMAINING SKIP COUNT
06880  M00S02348.magnet  +++|
06881  M00S02349.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06882  M01S02350.253l688 ---| SSC      SA1    A0+ULRQ

Seq #  *Modification Id* Act 
----------------------------+
06883  M01S00283.253l688 +++| SSC      BSS    0           ENTRY
06884  M01S00284.253l688 +++|          SA1    A0+ULRQ
06885  M00S02351.magnet  +++|          MX2    -18
06886  M00S02352.magnet  +++|          BX6    -X2*X1      GET REMAINING SKIP COUNT (PA AND PB)
06887  M00S02353.magnet  +++|          LX6    24
06888  M00S02354.magnet  +++|          SA1    A0+UCIA
06889  M00S02355.magnet  +++|          LX2    24
06890  M00S02356.magnet  +++|          BX1    X2*X1       CLEAR OUT ORIGINAL SKIP COUNT
06891  M00S02357.magnet  +++|          BX6    X1+X6       USE REMAINING SKIP COUNT
06892  M00S02358.magnet  +++|          SA6    A1+
06893  M00S02359.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
06894  M01S01451.282l826 +++| SVC      SPACE  4,10
06895  M01S01452.282l826 +++|**        SVC - SET VSN FOR REEL CHECK.
06896  M01S01453.282l826 +++|
06897  M01S01454.282l826 +++|
06898  M01S01455.282l826 +++| SVC      BSS    0           ENTRY
06899  M01S01456.282l826 +++|          SA1    A0+UVSN
06900  M01S01457.282l826 +++|          SA2    A0+UISN
06901  M01S01458.282l826 +++|          MX0    -24
06902  M01S01459.282l826 +++|          BX1    -X0*X1
06903  M01S01460.282l826 +++|          BX2    X0*X2
06904  M01S01461.282l826 +++|          BX6    X1+X2       SET VSN
06905  M01S01462.282l826 +++|          SA6    A1          UPDATE *UVSN*
06906  M01S01463.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
06907  M01S01464.282l826 +++| SVR      SPACE  4,10
06908  M01S01465.282l826 +++|**        SVR - SET NEXT VSN RETURNED.
06909  M01S01466.282l826 +++|
06910  M01S01467.282l826 +++|
06911  M01S01468.282l826 +++| SVR      BSS    0           ENTRY
06912  M01S01469.282l826 +++|          SA1    A0+UVRI
06913  M01S01470.282l826 +++|          SX6    2
06914  M01S01471.282l826 +++|          BX6    X1+X6       SET NEXT VSN RETURNED
06915  M01S01472.282l826 +++|          SA6    A1
06916  M01S01473.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
06917  M00S02360.magnet  +++| URN      SPACE  4,10
06918  M00S02361.magnet  +++|**        URN - UPDATE REEL NUMBER.
06919  M00S02362.magnet  +++|
06920  M00S02363.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
06921  M01S02364.253l688 ---| URN      SA1    A0+UVSN     INCREMENT REEL NUMBER

Seq #  *Modification Id* Act 
----------------------------+
06922  M01S00285.253l688 +++| URN      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
06923  M02S00286.282l826 ---|          SA1    A0+UVSN     INCREMENT REEL NUMBER

Seq #  *Modification Id* Act 
----------------------------+
06924  M01S02365.282l826 ---|          SX2    B1
06925  M01S02366.282l826 ---|          IX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
06926  M01S01474.282l826 +++|          SA1    A0+UVRI
06927  M01S01475.282l826 +++|          SX6    10000B
06928  M01S01476.282l826 +++|          SX7    4
06929  M01S01477.282l826 +++|          IX6    X1+X6       ADVANCE REEL NUMBER
06930  M01S01478.282l826 +++|          BX6    X6+X7       SET REEL NUMBER ADVANCED FLAG
06931  M01S01479.282l826 +++|          SA6    A1+
06932  M01S01480.282l826 +++|          EQ     EXIT        PROCESS NEXT REQUEST
06933  M01S01481.282l826 +++| USC      SPACE  4,10
06934  M01S01482.282l826 +++|**        USC - COMPLETE UNIT SWAP.
06935  M01S01483.282l826 +++|*
06936  M01S01484.282l826 +++|*         ENTRY  (X5) = NEW UDT ADDRESS.
06937  M01S01485.282l826 +++|
06938  M01S01486.282l826 +++|
06939  M01S01487.282l826 +++| USC      BSS    0           ENTRY
06940  M01S01488.282l826 +++|
06941  M01S01489.282l826 +++|*         SET NEW UDT ADDRESS.
06942  M01S01490.282l826 +++|
06943  M01S01491.282l826 +++|          SA1    X5+UVRI
06944  M01S01492.282l826 +++|          SA2    X5+UREQ
06945  M01S01493.282l826 +++|          LX1    59-47
06946  M01S01494.282l826 +++|          PL     X1,HGU      IF UNIT SWAP NOT SET
06947  M01S01495.282l826 +++|          NZ     X2,HGU      IF PROCESSOR ACTIVE ON NEW UNIT
06948  M01S01496.282l826 +++|
06949  M01S01497.282l826 +++|*         MOVE PARAMETERS TO NEW UDT ENTRY.
06950  M01S01498.282l826 +++|
06951  M01S01499.282l826 +++|          MOVE   UCIC+1-UFRQ,A0+UFRQ,X5+UFRQ  MOVE FILE REQUEST
06952  M01S01500.282l826 +++|          MOVE   UST5+1-UST2,A0+UST2,X5+UST2  MOVE STATUS FLAGS
06953  M01S01501.282l826 +++|          MOVE   UDAT+1-UBLC,A0+UBLC,X5+UBLC  MOVE FLAGS AND LABEL DATA
06954  M01S01502.282l826 +++|          SX6    B0+
06955  M01S01503.282l826 +++|          SA6    A0+UFRQ     CLEAR FILE REQUEST
06956  M01S01504.282l826 +++|          SA6    A0+UVRI     CLEAR JOB ASSIGNMENT
06957  M01S01505.282l826 +++|
06958  M01S01506.282l826 +++|*         SET NEW UDT ORDINAL IN QUEUE ENTRIES.
06959  M01S01507.282l826 +++|
06960  M01S01508.282l826 +++|          TA1    -1,UQUE
06961  M01S01509.282l826 +++|          MX0    6
06962  M01S01510.282l826 +++|          SX2    B2          OLD UDT ORDINAL
06963  M01S01511.282l826 +++|          LX2    -6
06964  M01S01512.282l826 +++|          TX3    X5,-UBUF    NEW UDT OFFSET
06965  M01S01513.282l826 +++|          SX4    UNITL
06966  M01S01514.282l826 +++|          IX3    X3/X4       NEW UDT ORDINAL
06967  M01S01515.282l826 +++|          LX3    -6
06968  M01S01516.282l826 +++| USC1     SA1    A1+1        GET NEXT ENTRY
06969  M01S01517.282l826 +++|          NG     X1,USC2     IF END OF ENTRIES
06970  M01S01518.282l826 +++|          ZR     X1,USC1     IF NO ENTRY
06971  M01S01519.282l826 +++|          BX1    X1-X2
06972  M01S01520.282l826 +++|          BX7    X0*X1
06973  M01S01521.282l826 +++|          NZ     X7,USC1     IF NO MATCH ON UDT ORDINAL
06974  M01S01522.282l826 +++|          BX6    X1+X3       SET NEW UDT ORDINAL
06975  M00S02367.magnet  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
06976  M01S02368.282l826 ---|          EQ     EXIX        PROCESS NEXT UNIT

Seq #  *Modification Id* Act 
----------------------------+
06977  M01S01523.282l826 +++|          EQ     USC1        CHECK NEXT ENTRY
06978  M01S01524.282l826 +++|
06979  M01S01525.282l826 +++| USC2     SX5    B0+
06980  M01S01526.282l826 +++|          SX7    PCVS        CLEAR VSN ON OLD UNIT
06981  M01S01527.282l826 +++|          EQ     EXI3        CLEAR QUEUE AND MAKE REQUEST
06982  M01S01528.282l826 +++| USF      SPACE  4,10
06983  M01S01529.282l826 +++|**        USF - PROCESS UNIT SWAP FAILURE.
06984  M01S01530.282l826 +++|*
06985  M01S01531.282l826 +++|*         ENTRY  (X5) = NEW UDT ADDRESS.
06986  M01S01532.282l826 +++|
06987  M01S01533.282l826 +++|
06988  M01S01534.282l826 +++| USF      BSS    0           ENTRY
06989  M01S01535.282l826 +++|          SA1    X5+UVRI
06990  M01S01536.282l826 +++|          SX6    B1
06991  M01S01537.282l826 +++|          LX6    47-0
06992  M01S01538.282l826 +++|          BX2    X6*X1
06993  M01S01539.282l826 +++|          BX6    -X6*X1      CLEAR UNIT SWAP FLAG
06994  M01S01540.282l826 +++|          ZR     X2,HGU      IF UNIT SWAP NOT SET
06995  M01S01541.282l826 +++|          SA6    A1
06996  M01S01542.282l826 +++|          SX5    B0
06997  M01S01543.282l826 +++|          SX7    PCNR        RESTART REEL CHECK PROCESSOR
06998  M01S01544.282l826 +++|          EQ     EXI1        CLEAR CURRENT AND ENTER NEW REQUEST
06999  M00S02369.magnet  +++| USN      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
07000  M01S02370.282l826 ---|*         USN - UPDATE SEQUENCE AND SECTION NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
07001  M01S01545.282l826 +++|**        USN - UPDATE SEQUENCE AND SECTION NUMBER.
07002  M00S02371.magnet  +++|
07003  M00S02372.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
07004  M01S02373.253l688 ---| USN      SA1    A0+USID     INCREMENT SEQUENCE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
07005  M01S00287.253l688 +++| USN      BSS    0           ENTRY
07006  M01S00288.253l688 +++|          SA1    A0+USID     INCREMENT SEQUENCE NUMBER
07007  M00S02374.magnet  +++|          SX2    B1
07008  M00S02375.magnet  +++|          MX0    42
07009  M00S02376.magnet  +++|          SA3    A0+UFSN     SET SECTION NUMBER TO 1
07010  M00S02377.magnet  +++|          IX6    X1+X2
07011  M00S02378.magnet  +++|          BX4    X0*X3
07012  M00S02379.magnet  +++|          SA6    A1
07013  M00S02380.magnet  +++|          BX6    X4+X2
07014  M00S02381.magnet  +++|          SA6    A3+
07015  M00S02382.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07016  M01S01546.282l826 +++| USP      SPACE  4,10
07017  M01S01547.282l826 +++|**        USP - INITIATE UNIT SWAP.
07018  M01S01548.282l826 +++|*
07019  M01S01549.282l826 +++|*         ENTRY  (X5) = NEW UDT ADDRESS.
07020  M01S01550.282l826 +++|
07021  M01S01551.282l826 +++|
07022  M01S01552.282l826 +++| USP      BSS    0           ENTRY
07023  M01S01553.282l826 +++|          LX5    12
07024  M01S01554.282l826 +++|          SX6    AFUS
07025  M01S01555.282l826 +++|          BX5    X5+X6       SET UDT ADDRESS AND SUBFUNCTION
07026  M01S01556.282l826 +++|          SX7    AFN
07027  M01S01557.282l826 +++|          EQ     EXI2        MAKE *1MU* REQUEST
07028  M01S01558.282l826 +++| VME      SPACE  4,10
07029  M01S01559.282l826 +++|**        VME - ISSUE EVENT AFTER ACS VSN MOUNT ERROR.
07030  M01S01560.282l826 +++|*
07031  M01S01561.282l826 +++|*         ENTRY  (X5) = VSN ERROR TABLE ORDINAL.
07032  M01S01562.282l826 +++|
07033  M01S01563.282l826 +++|
07034  M01S01564.282l826 +++| VME      BSS    0           ENTRY
07035  M01S01565.282l826 +++|          LX5    12
07036  M01S01566.282l826 +++|          SX6    AFME
07037  M01S01567.282l826 +++|          BX5    X5+X6       SET TABLE ORDINAL AND SUBFUNCTION
07038  M01S01568.282l826 +++|          SX7    AFN
07039  M01S01569.282l826 +++|          EQ     EXI2        MAKE *1MU* REQUEST
07040  M01S01570.282l826 +++| WAC      SPACE  4,10
07041  M01S01571.282l826 +++|**        WAC - WAIT FOR UNIT ACCESSIBLE.
07042  M01S01572.282l826 +++|
07043  M01S01573.282l826 +++|
07044  M01S01574.282l826 +++| WAC      BSS    0
07045  M01S01575.282l826 +++|          SA1    ACCU
07046  M01S01576.282l826 +++|          SA2    ITIM
07047  M01S01577.282l826 +++|          LX1    B2
07048  M01S01578.282l826 +++|          LX2    59-3
07049  M01S01579.282l826 +++|          NG     X1,EXIT     IF UNIT ACCESSIBLE
07050  M01S01580.282l826 +++|          PL     X2,EXI5     IF NOT 8 SECOND INTERVAL
07051  M01S01581.282l826 +++|          SX5    B0+
07052  M01S01582.282l826 +++|          SX7    PWAC
07053  M01S01583.282l826 +++|          EQ     EXI1        CHECK ERROR FLAG AND REENTER
07054  M00S02383.magnet  +++| WDA      SPACE  4,10
07055  M00S02384.magnet  +++|**        WDA - WRITE DATA.
07056  M00S02385.magnet  +++|*         EOF WRITES ON TAPES WHERE THIS IS A TAPE MARK ARE HANDLED
07057  M00S02386.magnet  +++|*         BY THE WRITE LABEL CODE IN *1MT*.  THUS, THEY ARE HANDLED
07058  M00S02387.magnet  +++|*         BY THE POST WRITE CHECKING.
07059  M00S02388.magnet  +++|
07060  M00S02389.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
07061  M01S02390.253l688 ---| WDA      SX7    WTF         SET WRITE FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
07062  M01S00289.253l688 +++| WDA      BSS    0           ENTRY
07063  M01S00290.253l688 +++|          SX7    WTF         SET WRITE FUNCTION
07064  M00S02391.magnet  +++|          EQ     IOR         BUILD I/O REQUEST
07065  M00S02392.magnet  +++|
07066  M00S02393.magnet  +++|*         POST PROCESS WRITE.
07067  M00S02394.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
07068  M01S02395.253l688 ---| WDA1     SA1    A0+ULRQ     CHECK IF EOF NEEDED

Seq #  *Modification Id* Act 
----------------------------+
07069  M01S00291.253l688 +++| WDA1     BSS    0           ENTRY
07070  M01S00292.253l688 +++|          SA1    A0+ULRQ     CHECK IF EOF NEEDED
07071  M00S02396.magnet  +++|          SX2    14B
07072  M00S02397.magnet  +++|          LX2    24
07073  M00S02398.magnet  +++|          BX3    X2*X1
07074  M00S02399.magnet  +++|          BX5    X3-X2
07075  M00S02400.magnet  +++|          NZ     X5,EXIT     IF NO EOF
07076  M00S02401.magnet  +++|          SX7    WLA         WRITE EOF

Seq #  *Modification Id* Act 
----------------------------+
07077  M01S01584.282l826 +++|          ERRNZ  WLTM
07078  M00S02402.magnet  +++|          EQ     EXI2        ENTER *1MT* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07079  M01S01585.282l826 +++| WNB      SPACE  4,10
07080  M01S01586.282l826 +++|**        WNB - WAIT FOR UNIT NOT BUSY.
07081  M01S01587.282l826 +++|
07082  M01S01588.282l826 +++|
07083  M01S01589.282l826 +++| WNB      BSS    0
07084  M01S01590.282l826 +++|          SA1    A0+UST1
07085  M01S01591.282l826 +++|          SA2    ITIM
07086  M01S01592.282l826 +++|          LX1    59-1
07087  M01S01593.282l826 +++|          LX2    59-3
07088  M01S01594.282l826 +++|          PL     X1,EXIT     IF UNIT NOT BUSY
07089  M01S01595.282l826 +++|          PL     X2,EXI5     IF NOT 8 SECOND INTERVAL
07090  M01S01596.282l826 +++|          SX5    B0+
07091  M01S01597.282l826 +++|          SX7    PWNB
07092  M01S01598.282l826 +++|          EQ     EXI1        CHECK ERROR FLAG AND REENTER

Seq #  *Modification Id* Act 
----------------------------+
07093  M01S00067.ns2773  +++| WNV      SPACE  4,10
07094  M01S00068.ns2773  +++|**        WNV - WAIT FOR OPERATOR TO SPECIFY NEXT VSN.
07095  M01S00069.ns2773  +++|
07096  M01S00070.ns2773  +++|
07097  M01S00071.ns2773  +++| WNV      BSS    0
07098  M01S00072.ns2773  +++|          SA1    A0+UESN
07099  M01S00073.ns2773  +++|          SA2    ITIM
07100  M01S00074.ns2773  +++|          MX6    36
07101  M01S00075.ns2773  +++|          SX5    B0
07102  M01S00076.ns2773  +++|          BX1    X6*X1
07103  M01S00077.ns2773  +++|          LX2    59-3
07104  M01S00078.ns2773  +++|          NZ     X1,EXIT     IF NEXT VSN SPECIFIED
07105  M01S00079.ns2773  +++|          PL     X2,EXI5     IF NOT 8 SECONDS, REENTER
07106  M01S00080.ns2773  +++|          SX7    PWNV
07107  M01S00081.ns2773  +++|          EQ     EXI1        CHECK ERROR FLAG AND REENTER

Seq #  *Modification Id* Act 
----------------------------+
07108  M01S01599.282l826 +++| WTD      SPACE  4,10
07109  M01S01600.282l826 +++|**        WTD - WAIT FOR TIME DELAY.
07110  M01S01601.282l826 +++|
07111  M01S01602.282l826 +++|
07112  M01S01603.282l826 +++| WTD      BSS    0           ENTRY
07113  M01S01604.282l826 +++|          SA1    ITIM
07114  M01S01605.282l826 +++|          SX5    B0+
07115  M01S01606.282l826 +++|          LX1    59-6
07116  M01S01607.282l826 +++|          NG     X1,EXIT     IF 64 SECOND INTERVAL
07117  M01S01608.282l826 +++|          LX1    59-3-59+6
07118  M01S01609.282l826 +++|          PL     X1,EXI5     IF NOT 8 SECOND INTERVAL
07119  M01S01610.282l826 +++|          SX7    PWTD
07120  M01S01611.282l826 +++|          EQ     EXI1        CHECK ERROR FLAG AND REENTER

Seq #  *Modification Id* Act 
----------------------------+
07121  M01S00319.252l678 +++|          TITLE  TAPE MANAGEMENT SYSTEM.

Seq #  *Modification Id* Act 
----------------------------+
07122  M02S00320.274l797 ---|          QUAL   TFM

Seq #  *Modification Id* Act 
----------------------------+
07123  M02S00025.282l826 ---| LRP      SPACE  4,10
07124  M02S00026.282l826 ---|**        LRP - LABEL REJECT PROCESSING.
07125  M02S00027.282l826 ---|*
07126  M02S00028.282l826 ---|*         VERIFY CONTINUATION OF BLANK LABELING.
07127  M02S00029.282l826 ---|*         SET THE UNIT NUMBER IN THE E,P DISPLAY
07128  M02S00030.282l826 ---|*         MESSAGE AND CHECK THE BLANK LABEL FLAG.
07129  M02S00031.282l826 ---|*         IF THE BLANK LABEL FLAG IS NOT SET,
07130  M02S00032.282l826 ---|*         REJECT THE REEL. IF THE BLANK LABEL FLAG
07131  M02S00033.282l826 ---|*         IS SET, SET THE WAIT GO FLAG, QUEUE THE
07132  M02S00034.282l826 ---|*         WAIT UNIT GO STRING PROCESSOR, AND
07133  M02S00035.282l826 ---|*         REQUEST *TFM* TO ROLLOUT THE JOB.
07134  M02S00036.282l826 ---|
07135  M02S00037.282l826 ---| LRP      BSS    0           ENTRY
07136  M02S00038.282l826 ---|          SA1    A0+UST4     VERIFY BLANK LABELING
07137  M02S00039.282l826 ---|          MX0    -12
07138  M02S00040.282l826 ---|          AX1    24          SET EQUIPMENT IN MESSAGE
07139  M02S00041.282l826 ---|          BX1    -X0*X1
07140  M02S00042.282l826 ---|          RJ     COD         CONVERT TO DISPLAY CODE
07141  M02S00043.282l826 ---|          MX0    -18
07142  M02S00044.282l826 ---|          SA1    LRPA
07143  M02S00045.282l826 ---|          BX3    -X0*X6
07144  M02S00046.282l826 ---|          LX0    24
07145  M02S00047.282l826 ---|          LX3    24
07146  M02S00048.282l826 ---|          BX2    X0*X1
07147  M02S00049.282l826 ---|          BX6    X2+X3
07148  M02S00050.282l826 ---|          SA6    A1+
07149  M02S00051.282l826 ---|          SA1    A0+UTMS

Seq #  *Modification Id* Act 
----------------------------+
07150  M02S01857.282l826 ---|          SA3    A0+UJID

Seq #  *Modification Id* Act 
----------------------------+
07151  M02S00052.282l826 ---|          SX0    /TFM/WUBL
07152  M02S00053.282l826 ---|          SX7    PRRL        ASSUME REEL REJECT
07153  M02S00054.282l826 ---|          LX0    23-11
07154  M02S00055.282l826 ---|          BX5    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
07155  M02S01858.282l826 ---|          LX3    -36

Seq #  *Modification Id* Act 
----------------------------+
07156  M02S00056.282l826 ---|          ZR     X5,EXI1     IF AUTO-BLANK FLAG NOT SET

Seq #  *Modification Id* Act 
----------------------------+
07157  M02S01859.282l826 ---|          SX3    X3
07158  M02S01860.282l826 ---|          SX5    B0
07159  M02S01861.282l826 ---|          NZ     X3,EXI1     IF ACS UNIT

Seq #  *Modification Id* Act 
----------------------------+
07160  M02S00057.282l826 ---|          SX2    /TFM/WUGO
07161  M02S00058.282l826 ---|          SA3    A0+UVSN
07162  M02S00059.282l826 ---|          LX2    23-11
07163  M02S00060.282l826 ---|          MX4    -4
07164  M02S00061.282l826 ---|          LX3    0-15
07165  M02S00062.282l826 ---|          BX5    -X4*X3      ISOLATE LABEL ERROR CODE
07166  M02S00063.282l826 ---|          SX3    X5-CAD
07167  M02S00064.282l826 ---|          ZR     X3,LRP1     IF VA FIELD SET
07168  M02S00065.282l826 ---|          SX3    X5-WVS
07169  M02S00066.282l826 ---|          ZR     X3,LRP1     IF WRONG VSN
07170  M02S00067.282l826 ---|          SX3    X5-NLB
07171  M02S00068.282l826 ---|          NZ     X3,EXI1     IF NOT *NEEDS LABEL*
07172  M02S00069.282l826 ---| LRP1     BX6    X1+X2       SET WAIT GO FLAG
07173  M02S00070.282l826 ---|          SA2    LRPA        SET WAIT GO MESSAGE
07174  M02S00071.282l826 ---|          SA6    A1
07175  M02S00072.282l826 ---|          LX7    X2
07176  M02S00073.282l826 ---|          SA3    A2+B1
07177  M02S00074.282l826 ---|          SA7    A0+UMB2     SET MESSAGE
07178  M02S00075.282l826 ---|          BX6    X3
07179  M02S00076.282l826 ---|          SX7    PWUG        SET WAIT GO STRING
07180  M02S00077.282l826 ---|          SA6    A7+B1
07181  M02S00078.282l826 ---|          SX6    B0
07182  M02S00079.282l826 ---|          SX5    B0
07183  M02S00080.282l826 ---|          SA6    A0+UREQ     CLEAR CURRENT REQUEST
07184  M02S00081.282l826 ---|          RJ     MQE         MAKE QUEUED ENTRY
07185  M02S00082.282l826 ---|          SX2    /TFM/ROJS   REQUEST JOB ROLLOUT
07186  M02S00083.282l826 ---|          RJ     STF         SET TMS FUNCTION
07187  M02S00084.282l826 ---|          SX7    PCTM        CALL TAPE MANAGER
07188  M02S00085.282l826 ---|          EQ     EXI4        QUEUE NEW REQUEST
07189  M02S00086.282l826 ---|
07190  M02S00087.282l826 ---| LRPA     DATA   20HGO,XXX TO BLNK LABEL

Seq #  *Modification Id* Act 
----------------------------+
07191  M02S00321.ns2770  ---| ABL      SPACE  4,10
07192  M02S00322.ns2770  ---|**        ABL - AUTO-BLANK LABEL PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
07193  M01S00005.ns2770  +++| ATM      SPACE  4,10
07194  M01S00006.ns2770  +++|**        ATM - CHECK ASSIGNMENT OF TMS TAPE.

Seq #  *Modification Id* Act 
----------------------------+
07195  M01S00323.252l678 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07196  M02S00324.ns2770  ---|*         CHECK FOR AUTOBLANK REQUIRED.
07197  M02S00325.ns2770  ---|*
07198  M02S00326.ns2770  ---|*         1. IF THE AUTOBLANK FLAG IS CLEAR, CONTINUE.
07199  M02S00327.ns2770  ---|*         2. IF THE AUTOBLANK FLAG IS SET, UNCONDITIONALLY
07200  M02S00328.ns2770  ---|*            SET THE INTERNAL VSN TO MATCH THE EXTERNAL VSN
07201  M02S00329.ns2770  ---|*            AND QUEUE THE NEW REQUESTER, *PWDL*, WRITE
07202  M02S00330.ns2770  ---|*            DEFAULT SECURITY LABELS.

Seq #  *Modification Id* Act 
----------------------------+
07203  M01S00007.ns2770  +++|*         IF A SCRATCH REEL HAS BEEN ASSIGNED, INITIALIZE UDT FIELDS
07204  M01S00008.ns2770  +++|*         FOR *VOL1* AND *HDR1* LABEL WRITE.

Seq #  *Modification Id* Act 
----------------------------+
07205  M01S00331.252l678 +++|
07206  M01S00332.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
07207  M02S00333.253l688 ---| ABL      SA1    A0+UTMS     AUTO-BLANK LABEL PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
07208  M02S00293.ns2770  ---| ABL      BSS    0           ENTRY
07209  M02S00294.ns2770  ---|          SA1    A0+UTMS     AUTO-BLANK LABEL PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
07210  M01S00009.ns2770  +++| ATM      BSS    0           ENTRY
07211  M01S00010.ns2770  +++|          SA1    A0+UTMS

Seq #  *Modification Id* Act 
----------------------------+
07212  M01S00334.252l678 +++|          SX0    /TFM/WUBL
07213  M01S00335.252l678 +++|          MX2    1
07214  M01S00336.252l678 +++|          LX0    23-11
07215  M01S00337.252l678 +++|          BX5    X0*X1
07216  M01S00338.252l678 +++|          LX2    6+12-59     SET FIRST LABEL ON VOLUME
07217  M01S00339.252l678 +++|          BX6    X1+X2
07218  M01S00340.252l678 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
07219  M02S00341.ns2770  ---|          ZR     X5,ABL1     IF NOT BLANK LABEL
07220  M02S00342.ns2770  ---|          BX6    -X0*X1      CLEAR AUTO-BLANK FLAG

Seq #  *Modification Id* Act 
----------------------------+
07221  M01S00011.ns2770  +++|          ZR     X5,ATM1     IF NOT TMS SCRATCH TAPE ASSIGNMENT
07222  M01S00012.ns2770  +++|          BX6    -X0*X1      CLEAR SCRATCH TAPE FLAG

Seq #  *Modification Id* Act 
----------------------------+
07223  M01S00343.252l678 +++|          SA6    A1+
07224  M01S00344.252l678 +++|          MX0    6*6         SET INTERNAL = EXTERNAL VSN
07225  M01S00345.252l678 +++|          SA1    A0+UESN
07226  M01S00346.252l678 +++|          SA2    A0+UVSN

Seq #  *Modification Id* Act 
----------------------------+
07227  M01S01612.282l826 +++|          SA3    A0+UISN

Seq #  *Modification Id* Act 
----------------------------+
07228  M01S00347.252l678 +++|          BX1    X0*X1
07229  M01S00348.252l678 +++|          BX2    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
07230  M01S01613.282l826 +++|          BX3    -X0*X3

Seq #  *Modification Id* Act 
----------------------------+
07231  M01S00349.252l678 +++|          BX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
07232  M01S01614.282l826 +++|          BX7    X1+X3

Seq #  *Modification Id* Act 
----------------------------+
07233  M01S00350.252l678 +++|          SX5    B0
07234  M01S00351.252l678 +++|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
07235  M02S00352.282l826 ---|          SA1    A0+UST4     ISSUE BLANK LABEL EVENT
07236  M02S00353.282l826 ---|          MX6    12
07237  M02S00354.282l826 ---|          LX1    17-35
07238  M02S00355.282l826 ---|          LX6    17-59
07239  M02S00356.282l826 ---|          BX1    X6*X1
07240  M02S00357.282l826 ---|          EESET  X1

Seq #  *Modification Id* Act 
----------------------------+
07241  M01S01615.282l826 +++|          SA7    A3

Seq #  *Modification Id* Act 
----------------------------+
07242  M02S00358.ns2770  ---|          SX7    PWDL        SET WRITE BLANK LABEL SEQUENCE
07243  M02S00359.ns2770  ---|          EQ     EXI4        QUEUE NEW REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07244  M01S00013.ns2770  +++|          SA1    A0+UST2
07245  M01S00014.ns2770  +++|          MX7    54
07246  M01S00015.ns2770  +++|          LX1    59-10
07247  M01S00016.ns2770  +++|          NG     X1,EXIT     IF NOT INITIAL REEL ASSIGNMENT
07248  M01S00017.ns2770  +++|          SA1    A0+UGNU
07249  M01S00018.ns2770  +++|          SX0    20000B
07250  M01S00019.ns2770  +++|          SX3    55B
07251  M01S00020.ns2770  +++|          LX7    30
07252  M01S00021.ns2770  +++|          LX3    30
07253  M01S00022.ns2770  +++|          BX6    X6+X0       SET LABEL EXPIRED
07254  M01S00023.ns2770  +++|          BX1    X7*X1
07255  M01S00024.ns2770  +++|          SA6    A6
07256  M01S00025.ns2770  +++|          BX7    X1+X3       SET BLANK VOLUME ACCESSIBILITY
07257  M01S00026.ns2770  +++|          SA7    A1
07258  M01S00027.ns2770  +++|          EQ     EXIT        PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07259  M01S00360.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
07260  M02S00361.ns2770  ---| ABL1     SA1    A0+UCIA     CHECK FOR *CIO* READ REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07261  M01S00028.ns2770  +++| ATM1     SA1    A0+UCIA     CHECK FOR *CIO* READ REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07262  M01S00362.252l678 +++|          AX1    48

Seq #  *Modification Id* Act 
----------------------------+
07263  M02S00363.282l826 ---|          SX2    1702B       MASK FROM ROUTINE *CUT*

Seq #  *Modification Id* Act 
----------------------------+
07264  M01S01616.282l826 +++|          SX2    1702B

Seq #  *Modification Id* Act 
----------------------------+
07265  M01S00364.252l678 +++|          BX1    X2*X1
07266  M01S00365.252l678 +++|          ZR     X1,VTL      IF READ REQUEST
07267  M01S00366.252l678 +++|          EQ     EXIT        PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07268  M02S00367.282l826 ---| AUG      SPACE  4,10
07269  M02S00368.282l826 ---|**        AUG - ASSIGNED UNIT GO.
07270  M02S00369.282l826 ---|*
07271  M02S00370.282l826 ---|*         THE WAIT UNIT GO FLAG IS CLEARED AND THE
07272  M02S00371.282l826 ---|*         UNIT UNLOAD FLAG IS SET IF ENTERED FROM
07273  M02S00372.282l826 ---|*         *AUU*. IF THE JOB IS WAITING ROLLIN, THE
07274  M02S00373.282l826 ---|*         THE CALL TAPE MANAGER PROCESSING STRING
07275  M02S00374.282l826 ---|*         IS QUEUED TO ISSUE THE EVENT.
07276  M02S00375.282l826 ---|
07277  M02S00376.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
07278  M03S00377.282l826 ---| AUG      SX1    /TFM/WUUU-/TFM/WUUU  ASSIGNED UNIT GO

Seq #  *Modification Id* Act 
----------------------------+
07279  M02S00295.282l826 ---| AUG      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07280  M02S01862.282l826 ---|          SA3    A0+UJID
07281  M02S01863.282l826 ---|          SX3    X3+
07282  M02S01864.282l826 ---|          ZR     X3,PQRX     IF NO JOB ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
07283  M02S00296.282l826 ---|          SX1    /TFM/WUUU-/TFM/WUUU  ASSIGNED UNIT GO

Seq #  *Modification Id* Act 
----------------------------+
07284  M02S01865.282l826 ---|
07285  M02S01866.282l826 ---|*         ENTRY FROM *AUU*.
07286  M02S01867.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
07287  M02S00378.282l826 ---| AUG1     SX2    /TFM/WUGO   CLEAR/SET UNIT GO/UNLOAD FLAGS
07288  M02S00379.282l826 ---|          SA3    A0+UTMS
07289  M02S00380.282l826 ---|          LX1    23-11
07290  M02S00381.282l826 ---|          LX2    23-11
07291  M02S00382.282l826 ---|          BX5    X2*X3

Seq #  *Modification Id* Act 
----------------------------+
07292  M03S00383.282l826 ---|          ZR     X5,CXRX     IF NOT WAIT UNIT GO

Seq #  *Modification Id* Act 
----------------------------+
07293  M02S01868.282l826 ---|          ZR     X5,PQRX     IF NOT WAIT UNIT GO

Seq #  *Modification Id* Act 
----------------------------+
07294  M02S00384.282l826 ---|          BX6    X1+X3       SET UNLOAD FLAG IF REQUIRED
07295  M02S00385.282l826 ---|          BX7    -X2*X6      CLEAR WAIT UNIT GO FLAG
07296  M02S00386.282l826 ---|          SA7    A3+
07297  M02S00387.282l826 ---|          SX0    /TFM/WUJR
07298  M02S00388.282l826 ---|          LX0    23-11
07299  M02S00389.282l826 ---|          BX3    X0*X7

Seq #  *Modification Id* Act 
----------------------------+
07300  M03S00390.282l826 ---|          ZR     X3,CXRX     IF NOT WAITING ROLLIN

Seq #  *Modification Id* Act 
----------------------------+
07301  M02S01869.282l826 ---|          ZR     X3,PQRX     IF NOT WAITING ROLLIN

Seq #  *Modification Id* Act 
----------------------------+
07302  M02S00391.282l826 ---|          SX2    /TFM/RIJS
07303  M02S00392.282l826 ---|          RJ     STF         SET TMS FUNCTION
07304  M02S00393.282l826 ---|          SX5    B0+
07305  M02S00394.282l826 ---|          SX7    PCTM
07306  M02S00395.282l826 ---|          RJ     MQE         MAKE QUEUED ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07307  M03S00396.282l826 ---|          EQ     CXRX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07308  M02S01870.282l826 ---|          EQ     PQRX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07309  M02S00397.282l826 ---| AUU      SPACE  4,10
07310  M02S00398.282l826 ---|**        AUU - ASSIGNED UNIT UNLOAD.
07311  M02S00399.282l826 ---|*
07312  M02S00400.282l826 ---|*         SET THE UNLOAD UNIT FLAG.
07313  M02S00401.282l826 ---|
07314  M02S00402.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
07315  M03S00403.282l826 ---| AUU      SX1    /TFM/WUUU   ASSIGNED UNIT UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
07316  M02S00297.282l826 ---| AUU      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07317  M02S01871.282l826 ---|          SA3    A0+UJID
07318  M02S01872.282l826 ---|          SX3    X3+
07319  M02S01873.282l826 ---|          ZR     X3,PQRX     IF NO JOB ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
07320  M02S00298.282l826 ---|          SX1    /TFM/WUUU   ASSIGNED UNIT UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
07321  M02S00404.282l826 ---|          EQ     AUG1        SET WAIT UNIT UNLOAD FLAG

Seq #  *Modification Id* Act 
----------------------------+
07322  M01S00405.252l678 +++| AVS      SPACE  4,10
07323  M01S00406.252l678 +++|**        AVS - ADVANCE VSN FILE.
07324  M01S00407.252l678 +++|*

Seq #  *Modification Id* Act 
----------------------------+
07325  M02S00408.274l797 ---|*         IF NOT A TMS CONTROLLED FILE, A
07326  M02S00409.274l797 ---|*         REQUEST TO *1MT* IS MADE TO ADVANCE
07327  M02S00410.274l797 ---|*         THE VSN FILE. IF THIS IS A TMS
07328  M02S00411.274l797 ---|*         CONTROLLED FILE, THE CURRENT STRING
07329  M02S00412.274l797 ---|*         IS CLEARED AND A REQUEST TO TFM IS
07330  M02S00413.274l797 ---|*         MADE TO ADVANCE THE VSN FILE.

Seq #  *Modification Id* Act 
----------------------------+
07331  M02S01874.282l826 ---|*         IF NOT A TMS CONTROLLED FILE, A REQUEST TO *1MT* IS MADE TO

Seq #  *Modification Id* Act 
----------------------------+
07332  M01S01617.282l826 +++|*         IF NOT A TMS CONTROLLED FILE, A REQUEST TO *1MU* IS MADE TO

Seq #  *Modification Id* Act 
----------------------------+
07333  M01S01875.274l797 +++|*         ADVANCE THE VSN FILE.  IF A TMS CONTROLLED FILE, THE CURRENT
07334  M01S01876.274l797 +++|*         STRING IS CLEARED AND A REQUEST TO *TFM* IS MADE TO ADVANCE
07335  M01S01877.274l797 +++|*         THE VSN FILE.

Seq #  *Modification Id* Act 
----------------------------+
07336  M01S00414.252l678 +++|
07337  M01S00415.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
07338  M02S00416.253l688 ---| AVS      SA1    A0+UTMS     ADVANCE VSN FILE

Seq #  *Modification Id* Act 
----------------------------+
07339  M01S00299.253l688 +++| AVS      BSS    0           ENTRY
07340  M01S00300.253l688 +++|          SA1    A0+UTMS     ADVANCE VSN FILE

Seq #  *Modification Id* Act 
----------------------------+
07341  M01S00417.252l678 +++|          SX0    /TFM/RSTC

Seq #  *Modification Id* Act 
----------------------------+
07342  M02S00418.282l826 ---|          SX2    /TFM/WURF

Seq #  *Modification Id* Act 
----------------------------+
07343  M01S01618.282l826 +++|          BX5    X0*X1
07344  M01S01619.282l826 +++|          NZ     X5,AVS1     IF TMS CONTROLLED FILE
07345  M01S01620.282l826 +++|          SX7    AFN         SET FUNCTION
07346  M01S01621.282l826 +++|          SX5    AFNV        SET SUBFUNCTION
07347  M01S01622.282l826 +++|          EQ     EXI2        MAKE *1MU* REQUEST
07348  M01S01623.282l826 +++|
07349  M01S01624.282l826 +++| AVS1     SX2    /TFM/WURF

Seq #  *Modification Id* Act 
----------------------------+
07350  M01S00419.252l678 +++|          LX2    23-11

Seq #  *Modification Id* Act 
----------------------------+
07351  M02S00420.282l826 ---|          BX5    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
07352  M01S00421.252l678 +++|          BX3    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
07353  M02S00422.282l826 ---|          ZR     X5,EXIT     IF NOT TMS FILE
07354  M02S00423.282l826 ---|          SA1    A0+UST2     CLEAR NEXT VSN MESSAGE ISSUED FLAG
07355  M02S00424.282l826 ---|          MX0    59
07356  M02S00425.282l826 ---|          LX0    6-0
07357  M02S00426.282l826 ---|          BX7    X0*X1       CLEAR THE FLAG
07358  M02S00427.282l826 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
07359  M01S00428.252l678 +++|          SX2    /TFM/AVSS

Seq #  *Modification Id* Act 
----------------------------+
07360  M02S00429.282l826 ---|          ZR     X3,AVS1     IF NOT REWIND

Seq #  *Modification Id* Act 
----------------------------+
07361  M01S01625.282l826 +++|          ZR     X3,AVS2     IF NOT REWIND

Seq #  *Modification Id* Act 
----------------------------+
07362  M01S00430.252l678 +++|          SX2    /TFM/RFVS

Seq #  *Modification Id* Act 
----------------------------+
07363  M02S00431.282l826 ---| AVS1     RJ     STF         SET TMS FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
07364  M01S01626.282l826 +++| AVS2     RJ     STF         SET TMS FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
07365  M01S00432.252l678 +++|          SX5    B0+
07366  M01S00433.252l678 +++|          SX7    PCTM        CALL TAPE MANAGER

Seq #  *Modification Id* Act 
----------------------------+
07367  M02S00434.282l826 ---|          EQ     EXI1        CLEAR CURRENT AND QUEUE NEW REQUEST
07368  M02S00435.282l826 ---| COD      SPACE  4,10
07369  M02S00436.282l826 ---|**        COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.
07370  M02S00437.282l826 ---|*
07371  M02S00438.282l826 ---|*         COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH
07372  M02S00439.282l826 ---|*         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL
07373  M02S00440.282l826 ---|*         AND IS RIGHT AND LEFT JUSTIFIED.
07374  M02S00441.282l826 ---|*
07375  M02S00442.282l826 ---|*         ENTRY  (X1) = NUMBER TO BE CONVERTED.
07376  M02S00443.282l826 ---|*                (B1) = 1.
07377  M02S00444.282l826 ---|*
07378  M02S00445.282l826 ---|*         EXIT   (X4) = DPC CONVERSION LEFT JUSTIFIED.
07379  M02S00446.282l826 ---|*                (X6) = DPC CONVERSION RIGHT JUSTIFIED.
07380  M02S00447.282l826 ---|*                (B5) = 6*COUNT OF DIGITS CONVERTED.
07381  M02S00448.282l826 ---|*
07382  M02S00449.282l826 ---|*         USES   X - 1, 2, 3, 4, 6, 7.
07383  M02S00450.282l826 ---|*                A - 4.
07384  M02S00451.282l826 ---|*                B - 3, 4, 5.
07385  M02S00452.282l826 ---|*
07386  M02S00453.282l826 ---|*         CALLS  NONE.
07387  M02S00454.282l826 ---|
07388  M02S00455.282l826 ---|
07389  M02S00456.282l826 ---| COD      SUBR               ENTRY/EXIT
07390  M02S00457.282l826 ---|          SA4    CODA        =1H
07391  M02S00458.282l826 ---|          SB3    6           (B3) = SHIFT INCREMENT
07392  M02S00459.282l826 ---|          MX2    -3          (X2) = DIGIT MASK
07393  M02S00460.282l826 ---|          SB5    B0          CLEAR JUSTIFY COUNT
07394  M02S00461.282l826 ---|          SB4    1R0-1R      (B4) = CONVERSION COUNT
07395  M02S00462.282l826 ---| COD1     BX7    -X2*X1      EXTRACT DIGIT
07396  M02S00463.282l826 ---|          LX4    -6          SHIFT ASSEMBLY
07397  M02S00464.282l826 ---|          SB5    B5+B3
07398  M02S00465.282l826 ---|          SX3    X7+B4       CONVERT DIGIT
07399  M02S00466.282l826 ---|          AX1    3           SHIFT OFF DIGIT
07400  M02S00467.282l826 ---|          IX4    X4+X3       ADD DIGIT TO ASSEMBLY
07401  M02S00468.282l826 ---|          NZ     X1,COD1     IF NON-ZERO DIGIT
07402  M02S00469.282l826 ---|          LX4    -6          LEFT JUSTIFY ASSEMBLY
07403  M02S00470.282l826 ---|          LX6    X4,B5       RIGHT JUSTIFY ASSEMBLY
07404  M02S00471.282l826 ---|          EQ     CODX        RETURN
07405  M02S00472.282l826 ---|
07406  M02S00473.282l826 ---| CODA     CON    1H

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

Seq #  *Modification Id* Act 
----------------------------+
07408  M01S00474.252l678 +++| CTM      SPACE  4,10
07409  M01S00475.252l678 +++|**        CTM - CALL TAPE MANAGER.
07410  M01S00476.252l678 +++|*
07411  M01S00477.252l678 +++|*         SET THE REQUEST IN PROCESS FLAG IN *UXRQ*
07412  M01S00478.252l678 +++|*         TO MAKE *MAGNET* SKIP PROCESSING OF THIS
07413  M01S00479.252l678 +++|*         UNIT AND SET THE REQUEST PENDING FLAG FOR
07414  M01S00480.252l678 +++|*         *TFM*. CALL *TFM*.
07415  M01S00481.252l678 +++|
07416  M01S00482.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
07417  M02S00483.253l688 ---| CTM      SX7    RIP         CALL TAPE MANAGER

Seq #  *Modification Id* Act 
----------------------------+
07418  M01S00301.253l688 +++| CTM      BSS    0           ENTRY
07419  M01S00302.253l688 +++|          SX7    RIP         CALL TAPE MANAGER

Seq #  *Modification Id* Act 
----------------------------+
07420  M01S00484.252l678 +++|          SA1    A0+UTMS     INSURE REQUEST PENDING SET
07421  M01S00485.252l678 +++|          LX7    48
07422  M01S00486.252l678 +++|          MX0    -6
07423  M01S00487.252l678 +++|          SX5    /TFM/RSIL

Seq #  *Modification Id* Act 
----------------------------+
07424  M02S00488.253l688 ---|          SA7    A0          SET REQUEST IN PROCESS

Seq #  *Modification Id* Act 
----------------------------+
07425  M01S00303.253l688 +++|          SA7    A0+UXRQ     SET REQUEST IN PROCESS

Seq #  *Modification Id* Act 
----------------------------+
07426  M01S00489.252l678 +++|          BX2    X0*X1
07427  M01S00490.252l678 +++|          BX7    X5+X2
07428  M01S00491.252l678 +++|          MX0    -18         BUILD TFM REQUEST
07429  M01S00492.252l678 +++|          SA7    A1+
07430  M01S00493.252l678 +++|          SA1    CTMA

Seq #  *Modification Id* Act 
----------------------------+
07431  M02S00494.253l688 ---|          SX2    A0+

Seq #  *Modification Id* Act 
----------------------------+
07432  M01S00304.253l688 +++|          SX2    A0

Seq #  *Modification Id* Act 
----------------------------+
07433  M01S00495.252l678 +++|          BX7    X0*X1
07434  M01S00496.252l678 +++|          BX6    X2+X7
07435  M01S00497.252l678 +++|          RJ     SYS=        PROCESS SYSTEM REQUEST
07436  M01S00498.252l678 +++|          EQ     EXIX        PROCESS NEXT UNIT
07437  M01S00499.252l678 +++|
07438  M01S00500.252l678 +++| CTMA     VFD    18/0LTFM,6/0,18//TFM/MAGF*100B,18/0

Seq #  *Modification Id* Act 
----------------------------+
07439  M02S00501.magne17 ---| LRP      SPACE  4,10
07440  M02S00502.magne17 ---|**        LRP - LABEL REJECT PROCESSING.
07441  M02S00503.magne17 ---|*
07442  M02S00504.magne17 ---|*         VERIFY CONTINUATION OF BLANK LABELING.
07443  M02S00505.magne17 ---|*         SET THE UNIT NUMBER IN THE E,P DISPLAY
07444  M02S00506.magne17 ---|*         MESSAGE AND CHECK THE BLANK LABEL FLAG.
07445  M02S00507.magne17 ---|*         IF THE BLANK LABEL FLAG IS NOT SET,
07446  M02S00508.magne17 ---|*         REJECT THE REEL. IF THE BLANK LABEL FLAG
07447  M02S00509.magne17 ---|*         IS SET, SET THE WAIT GO FLAG, QUEUE THE
07448  M02S00510.magne17 ---|*         WAIT UNIT GO STRING PROCESSOR, AND
07449  M02S00511.magne17 ---|*         REQUEST *TFM* TO ROLLOUT THE JOB.
07450  M02S00512.magne17 ---|

Seq #  *Modification Id* Act 
----------------------------+
07451  M03S00513.magne17 ---| LRP      SA1    A0+UST4     VERIFY BLANK LABELING

Seq #  *Modification Id* Act 
----------------------------+
07452  M02S00305.magne17 ---| LRP      BSS    0           ENTRY
07453  M02S00306.magne17 ---|          SA1    A0+UST4     VERIFY BLANK LABELING

Seq #  *Modification Id* Act 
----------------------------+
07454  M02S00514.magne17 ---|          MX0    -12
07455  M02S00515.magne17 ---|          AX1    24          SET EQUIPMENT IN MESSAGE
07456  M02S00516.magne17 ---|          BX1    -X0*X1
07457  M02S00517.magne17 ---|          RJ     COD         CONVERT TO DISPLAY CODE
07458  M02S00518.magne17 ---|          MX0    -18
07459  M02S00519.magne17 ---|          SA1    LRPA
07460  M02S00520.magne17 ---|          BX3    -X0*X6
07461  M02S00521.magne17 ---|          LX0    24
07462  M02S00522.magne17 ---|          LX3    24
07463  M02S00523.magne17 ---|          BX2    X0*X1
07464  M02S00524.magne17 ---|          BX6    X2+X3
07465  M02S00525.magne17 ---|          SA6    A1+
07466  M02S00526.magne17 ---|          SA1    A0+UTMS
07467  M02S00527.magne17 ---|          SX0    /TFM/WUBL
07468  M02S00528.magne17 ---|          SX7    PRRL        ASSUME REEL REJECT
07469  M02S00529.magne17 ---|          LX0    23-11
07470  M02S00530.magne17 ---|          BX5    X0*X1
07471  M02S00531.magne17 ---|          ZR     X5,EXI1     IF AUTO-BLANK FLAG NOT SET
07472  M02S00532.magne17 ---|          SX2    /TFM/WUGO
07473  M02S00533.magne17 ---|          SA3    A0+UVSN
07474  M02S00534.magne17 ---|          LX2    23-11
07475  M02S00535.magne17 ---|          MX4    -4
07476  M02S00536.magne17 ---|          LX3    0-15
07477  M02S00537.magne17 ---|          BX5    -X4*X3      ISOLATE LABEL ERROR CODE
07478  M02S00538.magne17 ---|          SX3    X5-CAD
07479  M02S00539.magne17 ---|          ZR     X3,LRP1     IF VA FIELD SET
07480  M02S00540.magne17 ---|          SX3    X5-WVS
07481  M02S00541.magne17 ---|          ZR     X3,LRP1     IF WRONG VSN
07482  M02S00542.magne17 ---|          SX3    X5-NLB
07483  M02S00543.magne17 ---|          NZ     X3,EXI1     IF NOT *NEEDS LABEL*
07484  M02S00544.magne17 ---| LRP1     BX6    X1+X2       SET WAIT GO FLAG
07485  M02S00545.magne17 ---|          SA2    LRPA        SET WAIT GO MESSAGE
07486  M02S00546.magne17 ---|          SA6    A1
07487  M02S00547.magne17 ---|          LX7    X2
07488  M02S00548.magne17 ---|          SA3    A2+B1
07489  M02S00549.magne17 ---|          SA7    A0+UMB2     SET MESSAGE
07490  M02S00550.magne17 ---|          BX6    X3
07491  M02S00551.magne17 ---|          SX7    PWUG        SET WAIT GO STRING
07492  M02S00552.magne17 ---|          SA6    A7+B1
07493  M02S00553.magne17 ---|          SX6    B0
07494  M02S00554.magne17 ---|          SX5    B0
07495  M02S00555.magne17 ---|          SA6    A0+UREQ     CLEAR CURRENT REQUEST
07496  M02S00556.magne17 ---|          RJ     MQE         MAKE QUEUED ENTRY
07497  M02S00557.magne17 ---|          SX2    /TFM/ROJS   REQUEST JOB ROLLOUT
07498  M02S00558.magne17 ---|          RJ     STF         SET TMS FUNCTION
07499  M02S00559.magne17 ---|          SX7    PCTM        CALL TAPE MANAGER
07500  M02S00560.magne17 ---|          EQ     EXI4        QUEUE NEW REQUEST
07501  M02S00561.magne17 ---|
07502  M02S00562.magne17 ---| LRPA     DATA   20HGO,XXX TO BLNK LABEL

Seq #  *Modification Id* Act 
----------------------------+
07503  M01S00563.252l678 +++| RFV      SPACE  4,10
07504  M01S00564.252l678 +++|**        RFV - REWIND FILE TO FIRST VOLUME.
07505  M01S00565.252l678 +++|*
07506  M01S00566.252l678 +++|*         IF THIS IS A TMS CONTROLLED FILE, SET THE
07507  M01S00567.252l678 +++|*         REWIND FILE FLAG IN UTMS.
07508  M01S00568.252l678 +++|
07509  M01S00569.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
07510  M02S00570.253l688 ---| RFV      SA1    A0+UTMS     REWIND FILE

Seq #  *Modification Id* Act 
----------------------------+
07511  M01S00307.253l688 +++| RFV      BSS    0           ENTRY
07512  M01S00308.253l688 +++|          SA1    A0+UTMS     REWIND FILE

Seq #  *Modification Id* Act 
----------------------------+
07513  M01S00571.252l678 +++|          SX0    /TFM/RSTC
07514  M01S00572.252l678 +++|          BX5    X0*X1
07515  M01S00573.252l678 +++|          ZR     X5,EXIT     IF NOT TMS FILE
07516  M01S00574.252l678 +++|          SX2    /TFM/WURF   SET REWIND FLAG
07517  M01S00575.252l678 +++|          LX2    23-11
07518  M01S00576.252l678 +++|          BX6    X1+X2
07519  M01S00577.252l678 +++|          SA6    A1
07520  M01S00578.252l678 +++|          EQ     EXIT        PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07521  M02S00579.282l826 ---| RTF      SPACE  4,10
07522  M02S00580.282l826 ---|**        RTF - RETURN/RESERVE TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
07523  M01S01628.282l826 +++| RRF      SPACE  4,10
07524  M01S01629.282l826 +++|**        RRF - RETURN/RESERVE TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
07525  M01S00581.252l678 +++|*
07526  M01S00582.252l678 +++|*         IF THIS IS A TMS CONTROLLED FILE, REQUEST
07527  M01S00583.252l678 +++|*         *TFM* TO RETURN/RESERVE THE FILE.
07528  M01S00584.252l678 +++|
07529  M01S00585.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
07530  M02S00586.253l688 ---| RTF      SA1    A0+UTMS     RETURN/RESERVE TAPE FILE

Seq #  *Modification Id* Act 
----------------------------+
07531  M02S00309.282l826 ---| RTF      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07532  M01S01630.282l826 +++| RRF      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
07533  M01S00310.253l688 +++|          SA1    A0+UTMS     RETURN/RESERVE TAPE FILE

Seq #  *Modification Id* Act 
----------------------------+
07534  M01S00587.252l678 +++|          SX0    /TFM/RSTC
07535  M01S00588.252l678 +++|          BX5    X0*X1
07536  M01S00589.252l678 +++|          ZR     X5,EXIT     IF NOT TMS FILE
07537  M01S00590.252l678 +++|          SX2    /TFM/RTFS
07538  M01S00591.252l678 +++|          RJ     STF         SET TMS FUNCTION
07539  M01S00592.252l678 +++|          SX5    B0+
07540  M01S00593.252l678 +++|          SX7    PCTM        CALL TAPE MANAGER
07541  M01S00594.252l678 +++|          EQ     EXI4        QUEUE NEW REQUEST
07542  M01S00595.252l678 +++| STF      SPACE  4,10
07543  M01S00596.252l678 +++|**        STF - SET TMS FUNCTION CODE.
07544  M01S00597.252l678 +++|*
07545  M01S00598.252l678 +++|*         SET THE *TFM* FUNCTION CODE IN *UTMS*
07546  M01S00599.252l678 +++|*         BYTE 0.
07547  M01S00600.252l678 +++|*
07548  M01S00601.252l678 +++|*         ENTRY  (X2) = FUNCTION CODE.
07549  M01S00602.252l678 +++|*
07550  M01S00603.252l678 +++|*         USES   X - 0, 1, 6, 7.
07551  M01S00604.252l678 +++|*                A - 1, 7.
07552  M01S00605.252l678 +++|
07553  M01S00606.252l678 +++|
07554  M01S00607.252l678 +++| STF      SUBR               ENTRY/EXIT
07555  M01S00608.252l678 +++|          SA1    A0+UTMS
07556  M01S00609.252l678 +++|          MX0    12
07557  M01S00610.252l678 +++|          BX6    -X0*X1
07558  M01S00611.252l678 +++|          LX2    59-11
07559  M01S00612.252l678 +++|          BX7    X2+X6
07560  M01S00613.252l678 +++|          SA7    A1+
07561  M01S00614.252l678 +++|          EQ     STFX        RETURN

Proceed to Part 7