User Tools

Site Tools


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

Deck MAGNET Part 010

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S02303 Modification History
M01 (Added by) magnet
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06767  M02S02303.274l797 ---| RSP1     SX7    PUNL
Line S01844 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06768  M02S01844.282l826 ---|          PL     X6,EXI4     IF NOT TO UNLOAD UNIT
06769  M01S01432.282l826 +++|          NZ     B3,EXI4     IF NOT TO UNLOAD UNIT
06770  M01S01845.274l797 +++|          SX7    PUNL        UNLOAD UNIT
06771  M01S02304.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06772  M01S02305.magnet  +++| RXL      SPACE  4,10
06773  M01S02306.magnet  +++|**        RXL - RETURN LABELS TO EXTENDED LABEL BUFFER.
06774  M01S02307.magnet  +++|
06775  M01S02308.magnet  +++|
Line S02309 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06776  M02S02309.253l688 ---| RXL      SA1    A0+UCIB     CHECK XL BIT
06777  M01S00275.253l688 +++| RXL      BSS    0           ENTRY
06778  M01S00276.253l688 +++|          SA1    A0+UCIB     CHECK XL BIT
06779  M01S02310.magnet  +++|          LX1    59-41
06780  M01S02311.magnet  +++|          PL     X1,EXIT     IF NO EXTENDED LABELS
06781  M01S02312.magnet  +++|          SX7    PRXL        RETURN HEADER LABELS TO XL BUFFER
06782  M01S02313.magnet  +++|          EQ     EXI4        QUEUE NEW REQUEST
06783  M01S02314.magnet  +++| SEF      SPACE  4,10
06784  M01S02315.magnet  +++|**        SEF - CHECK ERROR FLAG DURING SKIP.
06785  M01S02316.magnet  +++|*
06786  M01S02317.magnet  +++|*         ENTRY  (ULRQ, 21) = 1 IF CHECK ERROR FLAG.
06787  M01S02318.magnet  +++|
06788  M01S02319.magnet  +++|
Line S02320 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06789  M02S02320.253l688 ---| SEF      SA1    A0+ULRQ     OBTAIN LAST STATUS
06790  M01S00277.253l688 +++| SEF      BSS    0           ENTRY
06791  M01S00278.253l688 +++|          SA1    A0+ULRQ     OBTAIN LAST STATUS
06792  M01S02321.magnet  +++|          LX1    59-21
06793  M01S02322.magnet  +++|          PL     X1,FET      IF SKIP OPERATION COMPLETE
Line S02323 Modification History
M01 (Added by) magnet
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
06794  M02S02323.ns2678  ---|          SX7    PSEF        CHECK ERROR FLAG
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  M01S02324.magnet  +++|          EQ     EXI1        QUEUE NEW REQUEST
06824  M01S02325.magnet  +++| SKR      SPACE  4,10
06825  M01S02326.magnet  +++|**        SKR - SKIP RECORDS/FILES.
06826  M01S02327.magnet  +++|
06827  M01S02328.magnet  +++|
Line S02329 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06828  M02S02329.253l688 ---| SKR      SA1    A0+UCIA     SET SKIP COUNT
06829  M01S00279.253l688 +++| SKR      BSS    0           ENTRY
06830  M01S00280.253l688 +++|          SA1    A0+UCIA     SET SKIP COUNT
06831  M01S02330.magnet  +++|          SX7    SKP
06832  M01S02331.magnet  +++|          MX2    -18
06833  M01S02332.magnet  +++|          LX1    -24
06834  M01S02333.magnet  +++|          BX3    -X2*X1
06835  M01S02334.magnet  +++|          BX5    X5+X3
06836  M01S02335.magnet  +++|          EQ     IOR         BUILD I/O REQUEST
Line S01846 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06837  M02S01846.282l826 ---| SLC      SPACE  4,10
Line S01847 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06838  M02S01847.282l826 ---|**        SLC - SET LABEL CHECK IN PROGRESS.
06839  M01S01433.282l826 +++| SRA      SPACE  4,10
06840  M01S01434.282l826 +++|**        SRA - SET REEL ASSIGNED.
06841  M01S01848.274l797 +++|
06842  M01S01849.274l797 +++|
Line S01850 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06843  M02S01850.282l826 ---| SLC      BSS    0           ENTRY
Line S01851 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06844  M02S01851.282l826 ---|          SA1    A0+UVSN
Line S01852 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06845  M02S01852.282l826 ---|          SX2    B1
Line S01853 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06846  M02S01853.282l826 ---|          LX2    23
Line S01854 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06847  M02S01854.282l826 ---|          BX6    X1+X2       SET LABEL CHECK FLAG
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
06859  M01S01855.274l797 +++|          SA6    A1
06860  M01S01446.282l826 +++|          SA7    A2
06861  M01S01856.274l797 +++|          EQ     EXIT        PROCESS NEXT REQUEST
06862  M01S02336.magnet  +++| SRF      SPACE  4,10
Line S02337 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06863  M02S02337.282l826 ---|**        SRF - SET REWIND REPOSITIONING REQUIRED FLAG.
06864  M01S01447.282l826 +++|**        SRF - SET REWIND BEFORE OPERATION FLAG.
06865  M01S02338.magnet  +++|
06866  M01S02339.magnet  +++|
Line S02340 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06867  M02S02340.253l688 ---| SRF      SA1    A0+UFLA     SET REWIND REPOSITIONING REQUIRED FLAG
06868  M01S00281.253l688 +++| SRF      BSS    0           ENTRY
Line S00282 Modification History
M01 (Added by) 253l688
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06869  M02S00282.282l826 ---|          SA1    A0+UFLA     SET REWIND REPOSITIONING REQUIRED FLAG
Line S02341 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06870  M02S02341.282l826 ---|          MX6    1
Line S02342 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06871  M02S02342.282l826 ---|          LX6    57-59
Line S02343 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06872  M02S02343.282l826 ---|          BX6    X1+X6
06873  M01S01448.282l826 +++|          SA1    A0+UST2
06874  M01S01449.282l826 +++|          SX6    4000B
06875  M01S01450.282l826 +++|          BX6    X1+X6       SET REWIND BEFORE OPERATION
06876  M01S02344.magnet  +++|          SA6    A1
06877  M01S02345.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST
06878  M01S02346.magnet  +++| SSC      SPACE  4,10
06879  M01S02347.magnet  +++|**        SSC - SAVE REMAINING SKIP COUNT
06880  M01S02348.magnet  +++|
06881  M01S02349.magnet  +++|
Line S02350 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06882  M02S02350.253l688 ---| SSC      SA1    A0+ULRQ
06883  M01S00283.253l688 +++| SSC      BSS    0           ENTRY
06884  M01S00284.253l688 +++|          SA1    A0+ULRQ
06885  M01S02351.magnet  +++|          MX2    -18
06886  M01S02352.magnet  +++|          BX6    -X2*X1      GET REMAINING SKIP COUNT (PA AND PB)
06887  M01S02353.magnet  +++|          LX6    24
06888  M01S02354.magnet  +++|          SA1    A0+UCIA
06889  M01S02355.magnet  +++|          LX2    24
06890  M01S02356.magnet  +++|          BX1    X2*X1       CLEAR OUT ORIGINAL SKIP COUNT
06891  M01S02357.magnet  +++|          BX6    X1+X6       USE REMAINING SKIP COUNT
06892  M01S02358.magnet  +++|          SA6    A1+
06893  M01S02359.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST
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  M01S02360.magnet  +++| URN      SPACE  4,10
06918  M01S02361.magnet  +++|**        URN - UPDATE REEL NUMBER.
06919  M01S02362.magnet  +++|
06920  M01S02363.magnet  +++|
Line S02364 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06921  M02S02364.253l688 ---| URN      SA1    A0+UVSN     INCREMENT REEL NUMBER
06922  M01S00285.253l688 +++| URN      BSS    0           ENTRY
Line S00286 Modification History
M01 (Added by) 253l688
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06923  M02S00286.282l826 ---|          SA1    A0+UVSN     INCREMENT REEL NUMBER
Line S02365 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06924  M02S02365.282l826 ---|          SX2    B1
Line S02366 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06925  M02S02366.282l826 ---|          IX6    X1+X2
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  M01S02367.magnet  +++|          SA6    A1
Line S02368 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06976  M02S02368.282l826 ---|          EQ     EXIX        PROCESS NEXT UNIT
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  M01S02369.magnet  +++| USN      SPACE  4,10
Line S02370 Modification History
M01 (Added by) magnet
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07000  M02S02370.282l826 ---|*         USN - UPDATE SEQUENCE AND SECTION NUMBER.
07001  M01S01545.282l826 +++|**        USN - UPDATE SEQUENCE AND SECTION NUMBER.
07002  M01S02371.magnet  +++|
07003  M01S02372.magnet  +++|
Line S02373 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07004  M02S02373.253l688 ---| USN      SA1    A0+USID     INCREMENT SEQUENCE NUMBER
07005  M01S00287.253l688 +++| USN      BSS    0           ENTRY
07006  M01S00288.253l688 +++|          SA1    A0+USID     INCREMENT SEQUENCE NUMBER
07007  M01S02374.magnet  +++|          SX2    B1
07008  M01S02375.magnet  +++|          MX0    42
07009  M01S02376.magnet  +++|          SA3    A0+UFSN     SET SECTION NUMBER TO 1
07010  M01S02377.magnet  +++|          IX6    X1+X2
07011  M01S02378.magnet  +++|          BX4    X0*X3
07012  M01S02379.magnet  +++|          SA6    A1
07013  M01S02380.magnet  +++|          BX6    X4+X2
07014  M01S02381.magnet  +++|          SA6    A3+
07015  M01S02382.magnet  +++|          EQ     EXIT        PROCESS NEXT REQUEST
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  M01S02383.magnet  +++| WDA      SPACE  4,10
07055  M01S02384.magnet  +++|**        WDA - WRITE DATA.
07056  M01S02385.magnet  +++|*         EOF WRITES ON TAPES WHERE THIS IS A TAPE MARK ARE HANDLED
07057  M01S02386.magnet  +++|*         BY THE WRITE LABEL CODE IN *1MT*.  THUS, THEY ARE HANDLED
07058  M01S02387.magnet  +++|*         BY THE POST WRITE CHECKING.
07059  M01S02388.magnet  +++|
07060  M01S02389.magnet  +++|
Line S02390 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07061  M02S02390.253l688 ---| WDA      SX7    WTF         SET WRITE FUNCTION
07062  M01S00289.253l688 +++| WDA      BSS    0           ENTRY
07063  M01S00290.253l688 +++|          SX7    WTF         SET WRITE FUNCTION
07064  M01S02391.magnet  +++|          EQ     IOR         BUILD I/O REQUEST
07065  M01S02392.magnet  +++|
07066  M01S02393.magnet  +++|*         POST PROCESS WRITE.
07067  M01S02394.magnet  +++|
Line S02395 Modification History
M01 (Added by) magnet
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07068  M02S02395.253l688 ---| WDA1     SA1    A0+ULRQ     CHECK IF EOF NEEDED
07069  M01S00291.253l688 +++| WDA1     BSS    0           ENTRY
07070  M01S00292.253l688 +++|          SA1    A0+ULRQ     CHECK IF EOF NEEDED
07071  M01S02396.magnet  +++|          SX2    14B
07072  M01S02397.magnet  +++|          LX2    24
07073  M01S02398.magnet  +++|          BX3    X2*X1
07074  M01S02399.magnet  +++|          BX5    X3-X2
07075  M01S02400.magnet  +++|          NZ     X5,EXIT     IF NO EOF
07076  M01S02401.magnet  +++|          SX7    WLA         WRITE EOF
07077  M01S01584.282l826 +++|          ERRNZ  WLTM
07078  M01S02402.magnet  +++|          EQ     EXI2        ENTER *1MT* REQUEST
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
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
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
07121  M01S00319.252l678 +++|          TITLE  TAPE MANAGEMENT SYSTEM.
Line S00320 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07122  M02S00320.274l797 ---|          QUAL   TFM
Line S00025 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07123  M02S00025.282l826 ---| LRP      SPACE  4,10
Line S00026 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07124  M02S00026.282l826 ---|**        LRP - LABEL REJECT PROCESSING.
Line S00027 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07125  M02S00027.282l826 ---|*
Line S00028 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07126  M02S00028.282l826 ---|*         VERIFY CONTINUATION OF BLANK LABELING.
Line S00029 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07127  M02S00029.282l826 ---|*         SET THE UNIT NUMBER IN THE E,P DISPLAY
Line S00030 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07128  M02S00030.282l826 ---|*         MESSAGE AND CHECK THE BLANK LABEL FLAG.
Line S00031 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07129  M02S00031.282l826 ---|*         IF THE BLANK LABEL FLAG IS NOT SET,
Line S00032 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07130  M02S00032.282l826 ---|*         REJECT THE REEL. IF THE BLANK LABEL FLAG
Line S00033 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07131  M02S00033.282l826 ---|*         IS SET, SET THE WAIT GO FLAG, QUEUE THE
Line S00034 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07132  M02S00034.282l826 ---|*         WAIT UNIT GO STRING PROCESSOR, AND
Line S00035 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07133  M02S00035.282l826 ---|*         REQUEST *TFM* TO ROLLOUT THE JOB.
Line S00036 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07134  M02S00036.282l826 ---|
Line S00037 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07135  M02S00037.282l826 ---| LRP      BSS    0           ENTRY
Line S00038 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07136  M02S00038.282l826 ---|          SA1    A0+UST4     VERIFY BLANK LABELING
Line S00039 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07137  M02S00039.282l826 ---|          MX0    -12
Line S00040 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07138  M02S00040.282l826 ---|          AX1    24          SET EQUIPMENT IN MESSAGE
Line S00041 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07139  M02S00041.282l826 ---|          BX1    -X0*X1
Line S00042 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07140  M02S00042.282l826 ---|          RJ     COD         CONVERT TO DISPLAY CODE
Line S00043 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07141  M02S00043.282l826 ---|          MX0    -18
Line S00044 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07142  M02S00044.282l826 ---|          SA1    LRPA
Line S00045 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07143  M02S00045.282l826 ---|          BX3    -X0*X6
Line S00046 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07144  M02S00046.282l826 ---|          LX0    24
Line S00047 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07145  M02S00047.282l826 ---|          LX3    24
Line S00048 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07146  M02S00048.282l826 ---|          BX2    X0*X1
Line S00049 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07147  M02S00049.282l826 ---|          BX6    X2+X3
Line S00050 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07148  M02S00050.282l826 ---|          SA6    A1+
Line S00051 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07149  M02S00051.282l826 ---|          SA1    A0+UTMS
Line S01857 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07150  M02S01857.282l826 ---|          SA3    A0+UJID
Line S00052 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07151  M02S00052.282l826 ---|          SX0    /TFM/WUBL
Line S00053 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07152  M02S00053.282l826 ---|          SX7    PRRL        ASSUME REEL REJECT
Line S00054 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07153  M02S00054.282l826 ---|          LX0    23-11
Line S00055 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07154  M02S00055.282l826 ---|          BX5    X0*X1
Line S01858 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07155  M02S01858.282l826 ---|          LX3    -36
Line S00056 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07156  M02S00056.282l826 ---|          ZR     X5,EXI1     IF AUTO-BLANK FLAG NOT SET
Line S01859 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07157  M02S01859.282l826 ---|          SX3    X3
Line S01860 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07158  M02S01860.282l826 ---|          SX5    B0
Line S01861 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07159  M02S01861.282l826 ---|          NZ     X3,EXI1     IF ACS UNIT
Line S00057 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07160  M02S00057.282l826 ---|          SX2    /TFM/WUGO
Line S00058 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07161  M02S00058.282l826 ---|          SA3    A0+UVSN
Line S00059 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07162  M02S00059.282l826 ---|          LX2    23-11
Line S00060 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07163  M02S00060.282l826 ---|          MX4    -4
Line S00061 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07164  M02S00061.282l826 ---|          LX3    0-15
Line S00062 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07165  M02S00062.282l826 ---|          BX5    -X4*X3      ISOLATE LABEL ERROR CODE
Line S00063 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07166  M02S00063.282l826 ---|          SX3    X5-CAD
Line S00064 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07167  M02S00064.282l826 ---|          ZR     X3,LRP1     IF VA FIELD SET
Line S00065 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07168  M02S00065.282l826 ---|          SX3    X5-WVS
Line S00066 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07169  M02S00066.282l826 ---|          ZR     X3,LRP1     IF WRONG VSN
Line S00067 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07170  M02S00067.282l826 ---|          SX3    X5-NLB
Line S00068 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07171  M02S00068.282l826 ---|          NZ     X3,EXI1     IF NOT *NEEDS LABEL*
Line S00069 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07172  M02S00069.282l826 ---| LRP1     BX6    X1+X2       SET WAIT GO FLAG
Line S00070 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07173  M02S00070.282l826 ---|          SA2    LRPA        SET WAIT GO MESSAGE
Line S00071 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07174  M02S00071.282l826 ---|          SA6    A1
Line S00072 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07175  M02S00072.282l826 ---|          LX7    X2
Line S00073 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07176  M02S00073.282l826 ---|          SA3    A2+B1
Line S00074 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07177  M02S00074.282l826 ---|          SA7    A0+UMB2     SET MESSAGE
Line S00075 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07178  M02S00075.282l826 ---|          BX6    X3
Line S00076 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07179  M02S00076.282l826 ---|          SX7    PWUG        SET WAIT GO STRING
Line S00077 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07180  M02S00077.282l826 ---|          SA6    A7+B1
Line S00078 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07181  M02S00078.282l826 ---|          SX6    B0
Line S00079 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07182  M02S00079.282l826 ---|          SX5    B0
Line S00080 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07183  M02S00080.282l826 ---|          SA6    A0+UREQ     CLEAR CURRENT REQUEST
Line S00081 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07184  M02S00081.282l826 ---|          RJ     MQE         MAKE QUEUED ENTRY
Line S00082 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07185  M02S00082.282l826 ---|          SX2    /TFM/ROJS   REQUEST JOB ROLLOUT
Line S00083 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07186  M02S00083.282l826 ---|          RJ     STF         SET TMS FUNCTION
Line S00084 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07187  M02S00084.282l826 ---|          SX7    PCTM        CALL TAPE MANAGER
Line S00085 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07188  M02S00085.282l826 ---|          EQ     EXI4        QUEUE NEW REQUEST
Line S00086 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07189  M02S00086.282l826 ---|
Line S00087 Modification History
M01 (Added by) magne17
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07190  M02S00087.282l826 ---| LRPA     DATA   20HGO,XXX TO BLNK LABEL
Line S00321 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07191  M02S00321.ns2770  ---| ABL      SPACE  4,10
Line S00322 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07192  M02S00322.ns2770  ---|**        ABL - AUTO-BLANK LABEL PROCESSING.
07193  M01S00005.ns2770  +++| ATM      SPACE  4,10
07194  M01S00006.ns2770  +++|**        ATM - CHECK ASSIGNMENT OF TMS TAPE.
07195  M01S00323.252l678 +++|*
Line S00324 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07196  M02S00324.ns2770  ---|*         CHECK FOR AUTOBLANK REQUIRED.
Line S00325 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07197  M02S00325.ns2770  ---|*
Line S00326 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07198  M02S00326.ns2770  ---|*         1. IF THE AUTOBLANK FLAG IS CLEAR, CONTINUE.
Line S00327 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07199  M02S00327.ns2770  ---|*         2. IF THE AUTOBLANK FLAG IS SET, UNCONDITIONALLY
Line S00328 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07200  M02S00328.ns2770  ---|*            SET THE INTERNAL VSN TO MATCH THE EXTERNAL VSN
Line S00329 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07201  M02S00329.ns2770  ---|*            AND QUEUE THE NEW REQUESTER, *PWDL*, WRITE
Line S00330 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07202  M02S00330.ns2770  ---|*            DEFAULT SECURITY LABELS.
07203  M01S00007.ns2770  +++|*         IF A SCRATCH REEL HAS BEEN ASSIGNED, INITIALIZE UDT FIELDS
07204  M01S00008.ns2770  +++|*         FOR *VOL1* AND *HDR1* LABEL WRITE.
07205  M01S00331.252l678 +++|
07206  M01S00332.252l678 +++|
Line S00333 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07207  M02S00333.253l688 ---| ABL      SA1    A0+UTMS     AUTO-BLANK LABEL PROCESSING
Line S00293 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07208  M02S00293.ns2770  ---| ABL      BSS    0           ENTRY
Line S00294 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07209  M02S00294.ns2770  ---|          SA1    A0+UTMS     AUTO-BLANK LABEL PROCESSING
07210  M01S00009.ns2770  +++| ATM      BSS    0           ENTRY
07211  M01S00010.ns2770  +++|          SA1    A0+UTMS
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
Line S00341 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07219  M02S00341.ns2770  ---|          ZR     X5,ABL1     IF NOT BLANK LABEL
Line S00342 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07220  M02S00342.ns2770  ---|          BX6    -X0*X1      CLEAR AUTO-BLANK FLAG
07221  M01S00011.ns2770  +++|          ZR     X5,ATM1     IF NOT TMS SCRATCH TAPE ASSIGNMENT
07222  M01S00012.ns2770  +++|          BX6    -X0*X1      CLEAR SCRATCH TAPE FLAG
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
07227  M01S01612.282l826 +++|          SA3    A0+UISN
07228  M01S00347.252l678 +++|          BX1    X0*X1
07229  M01S00348.252l678 +++|          BX2    -X0*X2
07230  M01S01613.282l826 +++|          BX3    -X0*X3
07231  M01S00349.252l678 +++|          BX6    X1+X2
07232  M01S01614.282l826 +++|          BX7    X1+X3
07233  M01S00350.252l678 +++|          SX5    B0
07234  M01S00351.252l678 +++|          SA6    A2
Line S00352 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07235  M02S00352.282l826 ---|          SA1    A0+UST4     ISSUE BLANK LABEL EVENT
Line S00353 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07236  M02S00353.282l826 ---|          MX6    12
Line S00354 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07237  M02S00354.282l826 ---|          LX1    17-35
Line S00355 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07238  M02S00355.282l826 ---|          LX6    17-59
Line S00356 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07239  M02S00356.282l826 ---|          BX1    X6*X1
Line S00357 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07240  M02S00357.282l826 ---|          EESET  X1
07241  M01S01615.282l826 +++|          SA7    A3
Line S00358 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07242  M02S00358.ns2770  ---|          SX7    PWDL        SET WRITE BLANK LABEL SEQUENCE
Line S00359 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07243  M02S00359.ns2770  ---|          EQ     EXI4        QUEUE NEW REQUEST
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
07259  M01S00360.252l678 +++|
Line S00361 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07260  M02S00361.ns2770  ---| ABL1     SA1    A0+UCIA     CHECK FOR *CIO* READ REQUEST
07261  M01S00028.ns2770  +++| ATM1     SA1    A0+UCIA     CHECK FOR *CIO* READ REQUEST
07262  M01S00362.252l678 +++|          AX1    48
Line S00363 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07263  M02S00363.282l826 ---|          SX2    1702B       MASK FROM ROUTINE *CUT*
07264  M01S01616.282l826 +++|          SX2    1702B
07265  M01S00364.252l678 +++|          BX1    X2*X1
07266  M01S00365.252l678 +++|          ZR     X1,VTL      IF READ REQUEST
07267  M01S00366.252l678 +++|          EQ     EXIT        PROCESS NEXT REQUEST
Line S00367 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07268  M02S00367.282l826 ---| AUG      SPACE  4,10
Line S00368 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07269  M02S00368.282l826 ---|**        AUG - ASSIGNED UNIT GO.
Line S00369 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07270  M02S00369.282l826 ---|*
Line S00370 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07271  M02S00370.282l826 ---|*         THE WAIT UNIT GO FLAG IS CLEARED AND THE
Line S00371 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07272  M02S00371.282l826 ---|*         UNIT UNLOAD FLAG IS SET IF ENTERED FROM
Line S00372 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07273  M02S00372.282l826 ---|*         *AUU*. IF THE JOB IS WAITING ROLLIN, THE
Line S00373 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07274  M02S00373.282l826 ---|*         THE CALL TAPE MANAGER PROCESSING STRING
Line S00374 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07275  M02S00374.282l826 ---|*         IS QUEUED TO ISSUE THE EVENT.
Line S00375 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07276  M02S00375.282l826 ---|
Line S00376 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07277  M02S00376.282l826 ---|
Line S00377 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07278  M03S00377.282l826 ---| AUG      SX1    /TFM/WUUU-/TFM/WUUU  ASSIGNED UNIT GO
Line S00295 Modification History
M01 (Added by) 253l688
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07279  M02S00295.282l826 ---| AUG      BSS    0           ENTRY
Line S01862 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07280  M02S01862.282l826 ---|          SA3    A0+UJID
Line S01863 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07281  M02S01863.282l826 ---|          SX3    X3+
Line S01864 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07282  M02S01864.282l826 ---|          ZR     X3,PQRX     IF NO JOB ASSIGNED
Line S00296 Modification History
M01 (Added by) 253l688
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07283  M02S00296.282l826 ---|          SX1    /TFM/WUUU-/TFM/WUUU  ASSIGNED UNIT GO
Line S01865 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07284  M02S01865.282l826 ---|
Line S01866 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07285  M02S01866.282l826 ---|*         ENTRY FROM *AUU*.
Line S01867 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07286  M02S01867.282l826 ---|
Line S00378 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07287  M02S00378.282l826 ---| AUG1     SX2    /TFM/WUGO   CLEAR/SET UNIT GO/UNLOAD FLAGS
Line S00379 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07288  M02S00379.282l826 ---|          SA3    A0+UTMS
Line S00380 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07289  M02S00380.282l826 ---|          LX1    23-11
Line S00381 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07290  M02S00381.282l826 ---|          LX2    23-11
Line S00382 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07291  M02S00382.282l826 ---|          BX5    X2*X3
Line S00383 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07292  M03S00383.282l826 ---|          ZR     X5,CXRX     IF NOT WAIT UNIT GO
Line S01868 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07293  M02S01868.282l826 ---|          ZR     X5,PQRX     IF NOT WAIT UNIT GO
Line S00384 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07294  M02S00384.282l826 ---|          BX6    X1+X3       SET UNLOAD FLAG IF REQUIRED
Line S00385 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07295  M02S00385.282l826 ---|          BX7    -X2*X6      CLEAR WAIT UNIT GO FLAG
Line S00386 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07296  M02S00386.282l826 ---|          SA7    A3+
Line S00387 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07297  M02S00387.282l826 ---|          SX0    /TFM/WUJR
Line S00388 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07298  M02S00388.282l826 ---|          LX0    23-11
Line S00389 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07299  M02S00389.282l826 ---|          BX3    X0*X7
Line S00390 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07300  M03S00390.282l826 ---|          ZR     X3,CXRX     IF NOT WAITING ROLLIN
Line S01869 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07301  M02S01869.282l826 ---|          ZR     X3,PQRX     IF NOT WAITING ROLLIN
Line S00391 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07302  M02S00391.282l826 ---|          SX2    /TFM/RIJS
Line S00392 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07303  M02S00392.282l826 ---|          RJ     STF         SET TMS FUNCTION
Line S00393 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07304  M02S00393.282l826 ---|          SX5    B0+
Line S00394 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07305  M02S00394.282l826 ---|          SX7    PCTM
Line S00395 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07306  M02S00395.282l826 ---|          RJ     MQE         MAKE QUEUED ENTRY
Line S00396 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07307  M03S00396.282l826 ---|          EQ     CXRX        RETURN
Line S01870 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07308  M02S01870.282l826 ---|          EQ     PQRX        RETURN
Line S00397 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07309  M02S00397.282l826 ---| AUU      SPACE  4,10
Line S00398 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07310  M02S00398.282l826 ---|**        AUU - ASSIGNED UNIT UNLOAD.
Line S00399 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07311  M02S00399.282l826 ---|*
Line S00400 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07312  M02S00400.282l826 ---|*         SET THE UNLOAD UNIT FLAG.
Line S00401 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07313  M02S00401.282l826 ---|
Line S00402 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07314  M02S00402.282l826 ---|
Line S00403 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07315  M03S00403.282l826 ---| AUU      SX1    /TFM/WUUU   ASSIGNED UNIT UNLOAD
Line S00297 Modification History
M01 (Added by) 253l688
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07316  M02S00297.282l826 ---| AUU      BSS    0           ENTRY
Line S01871 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07317  M02S01871.282l826 ---|          SA3    A0+UJID
Line S01872 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07318  M02S01872.282l826 ---|          SX3    X3+
Line S01873 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07319  M02S01873.282l826 ---|          ZR     X3,PQRX     IF NO JOB ASSIGNED
Line S00298 Modification History
M01 (Added by) 253l688
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07320  M02S00298.282l826 ---|          SX1    /TFM/WUUU   ASSIGNED UNIT UNLOAD
Line S00404 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07321  M02S00404.282l826 ---|          EQ     AUG1        SET WAIT UNIT UNLOAD FLAG
07322  M01S00405.252l678 +++| AVS      SPACE  4,10
07323  M01S00406.252l678 +++|**        AVS - ADVANCE VSN FILE.
07324  M01S00407.252l678 +++|*
Line S00408 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07325  M02S00408.274l797 ---|*         IF NOT A TMS CONTROLLED FILE, A
Line S00409 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07326  M02S00409.274l797 ---|*         REQUEST TO *1MT* IS MADE TO ADVANCE
Line S00410 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07327  M02S00410.274l797 ---|*         THE VSN FILE. IF THIS IS A TMS
Line S00411 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07328  M02S00411.274l797 ---|*         CONTROLLED FILE, THE CURRENT STRING
Line S00412 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07329  M02S00412.274l797 ---|*         IS CLEARED AND A REQUEST TO TFM IS
Line S00413 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07330  M02S00413.274l797 ---|*         MADE TO ADVANCE THE VSN FILE.
Line S01874 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07331  M02S01874.282l826 ---|*         IF NOT A TMS CONTROLLED FILE, A REQUEST TO *1MT* IS MADE TO
07332  M01S01617.282l826 +++|*         IF NOT A TMS CONTROLLED FILE, A REQUEST TO *1MU* IS MADE TO
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.
07336  M01S00414.252l678 +++|
07337  M01S00415.252l678 +++|
Line S00416 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07338  M02S00416.253l688 ---| AVS      SA1    A0+UTMS     ADVANCE VSN FILE
07339  M01S00299.253l688 +++| AVS      BSS    0           ENTRY
07340  M01S00300.253l688 +++|          SA1    A0+UTMS     ADVANCE VSN FILE
07341  M01S00417.252l678 +++|          SX0    /TFM/RSTC
Line S00418 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07342  M02S00418.282l826 ---|          SX2    /TFM/WURF
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
07350  M01S00419.252l678 +++|          LX2    23-11
Line S00420 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07351  M02S00420.282l826 ---|          BX5    X0*X1
07352  M01S00421.252l678 +++|          BX3    X2*X1
Line S00422 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07353  M02S00422.282l826 ---|          ZR     X5,EXIT     IF NOT TMS FILE
Line S00423 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07354  M02S00423.282l826 ---|          SA1    A0+UST2     CLEAR NEXT VSN MESSAGE ISSUED FLAG
Line S00424 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07355  M02S00424.282l826 ---|          MX0    59
Line S00425 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07356  M02S00425.282l826 ---|          LX0    6-0
Line S00426 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07357  M02S00426.282l826 ---|          BX7    X0*X1       CLEAR THE FLAG
Line S00427 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07358  M02S00427.282l826 ---|          SA7    A1
07359  M01S00428.252l678 +++|          SX2    /TFM/AVSS
Line S00429 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07360  M02S00429.282l826 ---|          ZR     X3,AVS1     IF NOT REWIND
07361  M01S01625.282l826 +++|          ZR     X3,AVS2     IF NOT REWIND
07362  M01S00430.252l678 +++|          SX2    /TFM/RFVS
Line S00431 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07363  M02S00431.282l826 ---| AVS1     RJ     STF         SET TMS FUNCTION
07364  M01S01626.282l826 +++| AVS2     RJ     STF         SET TMS FUNCTION
07365  M01S00432.252l678 +++|          SX5    B0+
07366  M01S00433.252l678 +++|          SX7    PCTM        CALL TAPE MANAGER
Line S00434 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07367  M02S00434.282l826 ---|          EQ     EXI1        CLEAR CURRENT AND QUEUE NEW REQUEST
Line S00435 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07368  M02S00435.282l826 ---| COD      SPACE  4,10
Line S00436 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07369  M02S00436.282l826 ---|**        COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.
Line S00437 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07370  M02S00437.282l826 ---|*
Line S00438 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07371  M02S00438.282l826 ---|*         COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH
Line S00439 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07372  M02S00439.282l826 ---|*         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL
Line S00440 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07373  M02S00440.282l826 ---|*         AND IS RIGHT AND LEFT JUSTIFIED.
Line S00441 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07374  M02S00441.282l826 ---|*
Line S00442 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07375  M02S00442.282l826 ---|*         ENTRY  (X1) = NUMBER TO BE CONVERTED.
Line S00443 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07376  M02S00443.282l826 ---|*                (B1) = 1.
Line S00444 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07377  M02S00444.282l826 ---|*
Line S00445 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07378  M02S00445.282l826 ---|*         EXIT   (X4) = DPC CONVERSION LEFT JUSTIFIED.
Line S00446 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07379  M02S00446.282l826 ---|*                (X6) = DPC CONVERSION RIGHT JUSTIFIED.
Line S00447 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07380  M02S00447.282l826 ---|*                (B5) = 6*COUNT OF DIGITS CONVERTED.
Line S00448 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07381  M02S00448.282l826 ---|*
Line S00449 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07382  M02S00449.282l826 ---|*         USES   X - 1, 2, 3, 4, 6, 7.
Line S00450 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07383  M02S00450.282l826 ---|*                A - 4.
Line S00451 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07384  M02S00451.282l826 ---|*                B - 3, 4, 5.
Line S00452 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07385  M02S00452.282l826 ---|*
Line S00453 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07386  M02S00453.282l826 ---|*         CALLS  NONE.
Line S00454 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07387  M02S00454.282l826 ---|
Line S00455 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07388  M02S00455.282l826 ---|
Line S00456 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07389  M02S00456.282l826 ---| COD      SUBR               ENTRY/EXIT
Line S00457 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07390  M02S00457.282l826 ---|          SA4    CODA        =1H
Line S00458 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07391  M02S00458.282l826 ---|          SB3    6           (B3) = SHIFT INCREMENT
Line S00459 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07392  M02S00459.282l826 ---|          MX2    -3          (X2) = DIGIT MASK
Line S00460 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07393  M02S00460.282l826 ---|          SB5    B0          CLEAR JUSTIFY COUNT
Line S00461 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07394  M02S00461.282l826 ---|          SB4    1R0-1R      (B4) = CONVERSION COUNT
Line S00462 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07395  M02S00462.282l826 ---| COD1     BX7    -X2*X1      EXTRACT DIGIT
Line S00463 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07396  M02S00463.282l826 ---|          LX4    -6          SHIFT ASSEMBLY
Line S00464 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07397  M02S00464.282l826 ---|          SB5    B5+B3
Line S00465 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07398  M02S00465.282l826 ---|          SX3    X7+B4       CONVERT DIGIT
Line S00466 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07399  M02S00466.282l826 ---|          AX1    3           SHIFT OFF DIGIT
Line S00467 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07400  M02S00467.282l826 ---|          IX4    X4+X3       ADD DIGIT TO ASSEMBLY
Line S00468 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07401  M02S00468.282l826 ---|          NZ     X1,COD1     IF NON-ZERO DIGIT
Line S00469 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07402  M02S00469.282l826 ---|          LX4    -6          LEFT JUSTIFY ASSEMBLY
Line S00470 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07403  M02S00470.282l826 ---|          LX6    X4,B5       RIGHT JUSTIFY ASSEMBLY
Line S00471 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07404  M02S00471.282l826 ---|          EQ     CODX        RETURN
Line S00472 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07405  M02S00472.282l826 ---|
Line S00473 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07406  M02S00473.282l826 ---| CODA     CON    1H
07407  M01S01627.282l826 +++|          EQ     EXI4        QUEUE NEW REQUEST
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 +++|
Line S00483 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07417  M02S00483.253l688 ---| CTM      SX7    RIP         CALL TAPE MANAGER
07418  M01S00301.253l688 +++| CTM      BSS    0           ENTRY
07419  M01S00302.253l688 +++|          SX7    RIP         CALL TAPE MANAGER
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
Line S00488 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07424  M02S00488.253l688 ---|          SA7    A0          SET REQUEST IN PROCESS
07425  M01S00303.253l688 +++|          SA7    A0+UXRQ     SET REQUEST IN PROCESS
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
Line S00494 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07431  M02S00494.253l688 ---|          SX2    A0+
07432  M01S00304.253l688 +++|          SX2    A0
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
Line S00501 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07439  M02S00501.magne17 ---| LRP      SPACE  4,10
Line S00502 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07440  M02S00502.magne17 ---|**        LRP - LABEL REJECT PROCESSING.
Line S00503 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07441  M02S00503.magne17 ---|*
Line S00504 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07442  M02S00504.magne17 ---|*         VERIFY CONTINUATION OF BLANK LABELING.
Line S00505 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07443  M02S00505.magne17 ---|*         SET THE UNIT NUMBER IN THE E,P DISPLAY
Line S00506 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07444  M02S00506.magne17 ---|*         MESSAGE AND CHECK THE BLANK LABEL FLAG.
Line S00507 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07445  M02S00507.magne17 ---|*         IF THE BLANK LABEL FLAG IS NOT SET,
Line S00508 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07446  M02S00508.magne17 ---|*         REJECT THE REEL. IF THE BLANK LABEL FLAG
Line S00509 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07447  M02S00509.magne17 ---|*         IS SET, SET THE WAIT GO FLAG, QUEUE THE
Line S00510 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07448  M02S00510.magne17 ---|*         WAIT UNIT GO STRING PROCESSOR, AND
Line S00511 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07449  M02S00511.magne17 ---|*         REQUEST *TFM* TO ROLLOUT THE JOB.
Line S00512 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07450  M02S00512.magne17 ---|
Line S00513 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
M03 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07451  M03S00513.magne17 ---| LRP      SA1    A0+UST4     VERIFY BLANK LABELING
Line S00305 Modification History
M01 (Added by) 253l688
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07452  M02S00305.magne17 ---| LRP      BSS    0           ENTRY
Line S00306 Modification History
M01 (Added by) 253l688
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07453  M02S00306.magne17 ---|          SA1    A0+UST4     VERIFY BLANK LABELING
Line S00514 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07454  M02S00514.magne17 ---|          MX0    -12
Line S00515 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07455  M02S00515.magne17 ---|          AX1    24          SET EQUIPMENT IN MESSAGE
Line S00516 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07456  M02S00516.magne17 ---|          BX1    -X0*X1
Line S00517 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07457  M02S00517.magne17 ---|          RJ     COD         CONVERT TO DISPLAY CODE
Line S00518 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07458  M02S00518.magne17 ---|          MX0    -18
Line S00519 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07459  M02S00519.magne17 ---|          SA1    LRPA
Line S00520 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07460  M02S00520.magne17 ---|          BX3    -X0*X6
Line S00521 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07461  M02S00521.magne17 ---|          LX0    24
Line S00522 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07462  M02S00522.magne17 ---|          LX3    24
Line S00523 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07463  M02S00523.magne17 ---|          BX2    X0*X1
Line S00524 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07464  M02S00524.magne17 ---|          BX6    X2+X3
Line S00525 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07465  M02S00525.magne17 ---|          SA6    A1+
Line S00526 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07466  M02S00526.magne17 ---|          SA1    A0+UTMS
Line S00527 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07467  M02S00527.magne17 ---|          SX0    /TFM/WUBL
Line S00528 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07468  M02S00528.magne17 ---|          SX7    PRRL        ASSUME REEL REJECT
Line S00529 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07469  M02S00529.magne17 ---|          LX0    23-11
Line S00530 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07470  M02S00530.magne17 ---|          BX5    X0*X1
Line S00531 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07471  M02S00531.magne17 ---|          ZR     X5,EXI1     IF AUTO-BLANK FLAG NOT SET
Line S00532 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07472  M02S00532.magne17 ---|          SX2    /TFM/WUGO
Line S00533 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07473  M02S00533.magne17 ---|          SA3    A0+UVSN
Line S00534 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07474  M02S00534.magne17 ---|          LX2    23-11
Line S00535 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07475  M02S00535.magne17 ---|          MX4    -4
Line S00536 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07476  M02S00536.magne17 ---|          LX3    0-15
Line S00537 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07477  M02S00537.magne17 ---|          BX5    -X4*X3      ISOLATE LABEL ERROR CODE
Line S00538 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07478  M02S00538.magne17 ---|          SX3    X5-CAD
Line S00539 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07479  M02S00539.magne17 ---|          ZR     X3,LRP1     IF VA FIELD SET
Line S00540 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07480  M02S00540.magne17 ---|          SX3    X5-WVS
Line S00541 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07481  M02S00541.magne17 ---|          ZR     X3,LRP1     IF WRONG VSN
Line S00542 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07482  M02S00542.magne17 ---|          SX3    X5-NLB
Line S00543 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07483  M02S00543.magne17 ---|          NZ     X3,EXI1     IF NOT *NEEDS LABEL*
Line S00544 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07484  M02S00544.magne17 ---| LRP1     BX6    X1+X2       SET WAIT GO FLAG
Line S00545 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07485  M02S00545.magne17 ---|          SA2    LRPA        SET WAIT GO MESSAGE
Line S00546 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07486  M02S00546.magne17 ---|          SA6    A1
Line S00547 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07487  M02S00547.magne17 ---|          LX7    X2
Line S00548 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07488  M02S00548.magne17 ---|          SA3    A2+B1
Line S00549 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07489  M02S00549.magne17 ---|          SA7    A0+UMB2     SET MESSAGE
Line S00550 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07490  M02S00550.magne17 ---|          BX6    X3
Line S00551 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07491  M02S00551.magne17 ---|          SX7    PWUG        SET WAIT GO STRING
Line S00552 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07492  M02S00552.magne17 ---|          SA6    A7+B1
Line S00553 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07493  M02S00553.magne17 ---|          SX6    B0
Line S00554 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07494  M02S00554.magne17 ---|          SX5    B0
Line S00555 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07495  M02S00555.magne17 ---|          SA6    A0+UREQ     CLEAR CURRENT REQUEST
Line S00556 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07496  M02S00556.magne17 ---|          RJ     MQE         MAKE QUEUED ENTRY
Line S00557 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07497  M02S00557.magne17 ---|          SX2    /TFM/ROJS   REQUEST JOB ROLLOUT
Line S00558 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07498  M02S00558.magne17 ---|          RJ     STF         SET TMS FUNCTION
Line S00559 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07499  M02S00559.magne17 ---|          SX7    PCTM        CALL TAPE MANAGER
Line S00560 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07500  M02S00560.magne17 ---|          EQ     EXI4        QUEUE NEW REQUEST
Line S00561 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07501  M02S00561.magne17 ---|
Line S00562 Modification History
M01 (Added by) 252l678
M02 (Updated by) magne17
Seq #  *Modification Id* Act 
----------------------------+
07502  M02S00562.magne17 ---| LRPA     DATA   20HGO,XXX TO BLNK LABEL
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 +++|
Line S00570 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07510  M02S00570.253l688 ---| RFV      SA1    A0+UTMS     REWIND FILE
07511  M01S00307.253l688 +++| RFV      BSS    0           ENTRY
07512  M01S00308.253l688 +++|          SA1    A0+UTMS     REWIND FILE
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
Line S00579 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07521  M02S00579.282l826 ---| RTF      SPACE  4,10
Line S00580 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07522  M02S00580.282l826 ---|**        RTF - RETURN/RESERVE TAPE FILE.
07523  M01S01628.282l826 +++| RRF      SPACE  4,10
07524  M01S01629.282l826 +++|**        RRF - RETURN/RESERVE TAPE FILE.
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 +++|
Line S00586 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07530  M02S00586.253l688 ---| RTF      SA1    A0+UTMS     RETURN/RESERVE TAPE FILE
Line S00309 Modification History
M01 (Added by) 253l688
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07531  M02S00309.282l826 ---| RTF      BSS    0           ENTRY
07532  M01S01630.282l826 +++| RRF      BSS    0           ENTRY
07533  M01S00310.253l688 +++|          SA1    A0+UTMS     RETURN/RESERVE TAPE FILE
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
Line S00615 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07562  M02S00615.282l826 ---| SUE      SPACE  4,10
Proceed to Part 11
cdc/nos2.source/opl.opl871/deck/magnet.010.txt ยท Last modified: by 127.0.0.1