User Tools

Site Tools


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

Deck RESEX Part 010

65 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
11229  M01S00856.282l826 +++|          BX7    X7+X6       DISABLE WRITE ACCESS (PO = R)
11230  M01S00857.282l826 +++|          MESSAGE CTPA,3     * WRITE DISABLE FORCED ON UNLABELED ...*
11231  M01S00858.282l826 +++| CTP2     SA7    A2          UPDATE TAPE DESCRIPTORS
11232  M01S00859.282l826 +++|          EQ     CTPX        RETURN
11233  M01S00860.282l826 +++|
11234  M01S00861.282l826 +++|
11235  M01S00862.282l826 +++| CTPA     DATA   C* WRITE DISABLE FORCED ON UNLABELED REQUEST.*
Line S00367 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11236  M01S00367.252l678 +++| FDF      SPACE  4,10
11237  M01S00368.252l678 +++|**        FDF - FLIP DATE FIELDS.
11238  M01S00369.252l678 +++|*
11239  M01S00370.252l678 +++|*         EXIT   CREATION AND RETENTION DATE FIELDS REVERSED IN FET.
11240  M01S00371.252l678 +++|*
11241  M01S00372.252l678 +++|*         USES   X - 0, 1, 6.
11242  M01S00373.252l678 +++|*                A - 1, 6.
11243  M01S00374.252l678 +++|
11244  M01S00375.252l678 +++|
11245  M01S00376.252l678 +++| FDF      SUBR               ENTRY/EXIT
11246  M01S00377.252l678 +++|          MX0    30          GET RETENTION DATE
11247  M01S00378.252l678 +++|          SA1    T+FCRD
11248  M01S00379.252l678 +++|          BX6    X0*X1
11249  M01S00380.252l678 +++|          BX1    -X0*X1      GET CREATION DATE
11250  M01S00381.252l678 +++|          LX6    -30         REVERSE FIELDS
11251  M01S00382.252l678 +++|          LX1    30
11252  M01S00383.252l678 +++|          BX6    X1+X6
11253  M01S00384.252l678 +++|          SA6    A1
11254  M01S00385.252l678 +++|          EQ     FDFX        RETURN
Line S00386 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11255  M02S00386.274l797 ---| FRA      SPACE  4,20
Line S01961 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11256  M01S01961.274l797 +++| FRA      SPACE  4,25
Line S00387 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11257  M01S00387.252l678 +++|**        FRA - FIRST REEL ASSIGNMENT.
11258  M01S00388.252l678 +++|*
11259  M01S00389.252l678 +++|*         BUILDS THE TFM ASSIGNMENT FET AND CALLS
11260  M01S00390.252l678 +++|*         TFM TO VALIDATE USER ACCESS OR ASSIGN A
11261  M01S00391.252l678 +++|*         SCRATCH VOLUME.
11262  M01S00392.252l678 +++|*
11263  M01S00393.252l678 +++|*         ENTRY  USER OPTIONS PROCESSED.
Line S01962 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11264  M01S01962.274l797 +++|*                (X5) = VSN FOUND STATUS SET BY *SVI*.
Line S00394 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11265  M01S00394.252l678 +++|*
Line S00395 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11266  M02S00395.274l797 ---|*         EXIT   ASSIGNMENT FET UPDATED WITH RETURNS
11267  M02S00396.274l797 ---|*                FROM TFM.
Line S01963 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11268  M01S01963.274l797 +++|*         EXIT   ASSIGNMENT FET UPDATED FROM *TMS* CATALOG ENTRY IF
11269  M01S01964.274l797 +++|*                  *TMS* CONTROLLED REQUEST.
11270  M01S01965.274l797 +++|*                (X5) = *SVI* VSN FOUND STATUS IF NOT *TMS* CONTROLLED
11271  M01S01966.274l797 +++|*                       REQUEST.
11272  M01S01967.274l797 +++|*                TO *RMT* IF *TMS* CONTROLLED REQUEST.
11273  M01S01968.274l797 +++|*                TO CALLER IF NOT *TMS* CONTROLLED REQUEST.
Line S00397 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11274  M01S00397.252l678 +++|*
11275  M01S00398.252l678 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
11276  M01S00399.252l678 +++|*                A - 1, 2, 6, 7.
11277  M01S00400.252l678 +++|*                B - 2.
11278  M01S00401.252l678 +++|*
Line S00402 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11279  M02S00402.274l797 ---|*         CALLS  CTD, FDF, IDE, IVE, PRO, PVS, SFN, SMF, TBD, VDD.
Line S01969 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11280  M02S01969.282l826 ---|*         CALLS  CJV, CTD, CTI, FDF, IDE, IVE, PRO, PVS, SFN, SMF, TBD,
11281  M02S01970.282l826 ---|*                VCD, VTD.
Line S00863 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11282  M01S00863.282l826 +++|*         CALLS  CJV, CTD, CTI, CTP, FDF, IDE, IVE, PRO, PVS, SFN, SMF,
11283  M01S00864.282l826 +++|*                TBD, VCD, VTD.
Line S00403 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11284  M01S00403.252l678 +++|*
11285  M01S00404.252l678 +++|*         MACROS MESSAGE, MOVE, TMS.
11286  M01S00405.252l678 +++|
11287  M01S00406.252l678 +++|
11288  M01S00407.252l678 +++| FRA13    MX6    1           SET OPERATOR VERIFICATION FLAG
11289  M01S00408.252l678 +++|          LX6    56-59
11290  M01S00409.252l678 +++|          SA6    TMPF
11291  M01S00410.252l678 +++|
11292  M01S00411.252l678 +++| FRA      SUBR               ENTRY/EXIT
11293  M01S00412.252l678 +++|          SA2    TMPF
Line S00413 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11294  M02S00413.253l688 ---|          NG     X2,FRAX     IF TMS DISABLED
Line S00568 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11295  M01S00568.253l688 +++|          NG     X2,FRAX     IF *TMS* DISABLED
Line S00414 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11296  M01S00414.252l678 +++|          SA1    F+FFTO      CHECK FOR *TO=F*
11297  M01S00415.252l678 +++|          LX1    59-1
11298  M01S00416.252l678 +++|          NG     X1,FRA13    IF *TO=F*
11299  M01S00417.252l678 +++|          LX1    59-4-59+1
11300  M01S00418.252l678 +++|          NG     X1,FRA1     IF *TO=T*
11301  M01S00419.252l678 +++|          LX2    59-53
11302  M01S00420.252l678 +++|          PL     X2,FRA13    IF DEFAULT *TO=F*
11303  M01S00421.252l678 +++| FRA1     SA1    CF
Line S00422 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11304  M02S00422.274l797 ---|          NZ     X1,FRA2     IF EXTERNAL REQUEST
11305  M02S00423.274l797 ---|          RJ     VDD         VERIFY DEPENDENT DEFAULTS
11306  M02S00424.274l797 ---| FRA2     RJ     TBD         BUILD TAPE BLOCK DESCRIPTORS
Line S01971 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11307  M01S01971.274l797 +++|          NZ     X1,FRA2     IF NOT COMMAND CALL
11308  M01S01972.274l797 +++|          RJ     VCD         VERIFY COMMAND DEFAULTS
11309  M01S01973.274l797 +++| FRA2     SA1    F+FTAP
11310  M01S01974.274l797 +++|          RJ     CTI         CONVERT TAPE DESCRIPTORS
11311  M01S01975.274l797 +++|          RJ     VTD         VERIFY USER SPECIFIED TAPE DESCRIPTORS
11312  M01S01976.274l797 +++|          NZ     B2,PER      IF ERROR IN TAPE DESCRIPTORS
11313  M01S01977.274l797 +++|          BX6    X1          UPDATE TAPE DESCRIPTORS
11314  M01S01978.274l797 +++|          SA6    A1
Line S00425 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11315  M02S00425.253l688 ---|          RJ     CTD         CHECK TMS DEFAULTS
Line S00569 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11316  M01S00569.253l688 +++|          RJ     CTD         CHECK *TMS* DEFAULTS
Line S00426 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11317  M02S00426.274l797 ---|          SA1    F+FFTO      SET *TO=T* FLAG IN FET
11318  M02S00427.274l797 ---|          SX6    20B
11319  M02S00428.274l797 ---|          BX6    X1+X6
11320  M02S00429.274l797 ---|          SA6    A1
11321  M02S00430.274l797 ---|          SX0    1200B       CHECK IF *TO=C* OR *TO=E*
11322  M02S00431.274l797 ---|          BX6    X0*X1
11323  M02S00432.274l797 ---|          NZ     X6,FRA3     IF USER HAS SPECIFIED *TO=C* OR *TO=E*
11324  M02S00433.274l797 ---|          MX0    -1          GET DEFAULT FOR *TO=C*/*TO=E*
11325  M02S00434.274l797 ---|          SA2    TMPF
11326  M02S00435.274l797 ---|          LX2    0-51
11327  M02S00436.274l797 ---|          BX2    -X0*X2
Line S00437 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11328  M03S00437.274l797 ---|          SA2    X2+FRAA     SET DEFAULT INTO TMS FET
Line S00570 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11329  M02S00570.274l797 ---|          SA2    X2+FRAA     SET DEFAULT INTO *TMS* FET
Line S00438 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11330  M02S00438.274l797 ---|          BX6    X1+X2
11331  M02S00439.274l797 ---|          SA6    A1
11332  M02S00440.274l797 ---| FRA3     SA1    F           SET LOCAL FILE NAME
Line S01979 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11333  M01S01979.274l797 +++|          SA1    F           SET LOCAL FILE NAME
Line S00441 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11334  M01S00441.252l678 +++|          MX0    -18
11335  M01S00442.252l678 +++|          BX6    X0*X1
11336  M01S00443.252l678 +++|          SA6    T
11337  M01S00444.252l678 +++|          MOVE   /TFM/TFPL,F+/TFM/TFFP,T+/TFM/TFFP
11338  M01S00445.252l678 +++|          SA2    T+FVSN
11339  M01S00446.252l678 +++|          SA1    CF
Line S00447 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11340  M02S00447.274l797 ---|          NZ     X1,FRA4     IF EXTERNAL CALL
Line S01980 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11341  M01S01980.274l797 +++|          NZ     X1,FRA4     IF *LFM* OR *REQ* CALL
Line S00448 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11342  M01S00448.252l678 +++|          SA1    VC
11343  M01S00449.252l678 +++|          NZ     X1,FRA4     IF VSN FROM *VSN* COMMAND
11344  M01S00450.252l678 +++|          SA1    VP
11345  M01S00451.252l678 +++|          SA2    BLANK       ASSUME SCRATCH
11346  M01S00452.252l678 +++|          ZR     X1,FRA4     IF VSN= NOT PROCESSED
11347  M01S00453.252l678 +++|          SA2    VSNE+VVSN
11348  M01S00454.252l678 +++| FRA4     MX0    36          CHECK FOR SCRATCH ASSIGNMENT
11349  M01S00455.252l678 +++|          BX6    X0*X2
11350  M01S00456.252l678 +++|          SA1    BLANK
11351  M01S00457.252l678 +++|          SA6    T+FESN
11352  M01S00458.252l678 +++|          BX7    X1-X6
11353  M01S00459.252l678 +++|          NZ     X7,FRA5     IF NOT VSN=SCRATCH
11354  M01S00460.252l678 +++|          BX6    X7
11355  M01S00461.252l678 +++|          SA6    A6
11356  M01S00462.252l678 +++| FRA5     SA1    T+FID1      CHECK FILE IDENTIFIER
11357  M01S00463.252l678 +++|          NZ     X1,FRA6     IF FILE IDENTIFIER SPECIFIED
11358  M01S00464.252l678 +++|          NZ     X6,FRA6     IF VSN SPECIFIED
11359  M01S00465.252l678 +++|          RJ     SFN         SPACE FILL NAME
11360  M01S00466.252l678 +++|          BX5    X6
11361  M01S00467.252l678 +++|          SA2    T           USE LFN FOR FILE NAME
11362  M01S00468.252l678 +++|          MX0    -18
11363  M01S00469.252l678 +++|          BX1    X0*X2
11364  M01S00470.252l678 +++|          RJ     SFN         SPACE FILL NAME
11365  M01S00471.252l678 +++|          SA6    T+FID1
11366  M01S00472.252l678 +++|          SA2    A6+B1
11367  M01S00473.252l678 +++|          BX6    X0*X5
11368  M01S00474.252l678 +++|          BX3    -X0*X2
11369  M01S00475.252l678 +++|          BX7    X3+X6
11370  M01S00476.252l678 +++|          SA7    A2+
11371  M01S00477.252l678 +++| FRA6     SA2    T+FESN      GET VSN
11372  M01S00478.252l678 +++|          BX6    X2
11373  M01S00479.252l678 +++|          RJ     PVS         PAD VSN WITH *0*
11374  M01S00480.252l678 +++|          BX2    X6
11375  M01S00481.252l678 +++|          SA1    VP          FLAG IF THE VSN PARAMETER WAS SPECIFIED
11376  M01S00482.252l678 +++|          LX1    22-0
11377  M01S00483.252l678 +++|          BX6    X2+X1       MERGE IN THE FLAG (IF SET)
11378  M01S00484.252l678 +++|          SA6    A2
11379  M01S00485.252l678 +++| FRA7     RJ     FDF         FLIP DATE FIELDS
11380  M01S00486.252l678 +++|          TMS    T,RFAS      CALL TAPE MANAGER
11381  M01S00487.252l678 +++|          RJ     FDF         FLIP DATE FIELDS
11382  M01S00488.252l678 +++|          MX0    -9          CHECK FOR ERROR
11383  M01S00489.252l678 +++|          SA1    T
11384  M01S00490.252l678 +++|          LX0    17-8
11385  M01S00491.252l678 +++|          BX6    -X0*X1
11386  M01S00492.252l678 +++|          ZR     X6,FRA9     IF NO ERROR
11387  M01S00493.252l678 +++|          LX6    59-17
11388  M01S00494.252l678 +++|          PL     X6,FRA8     IF NON-ROLLABLE ERROR
11389  M01S00495.252l678 +++|          SX1    EMSG        GET ERROR MESSAGE
11390  M01S00496.252l678 +++|          SX5    =0
11391  M01S00497.252l678 +++|          RJ     PRO         PROCESS ROLLOUT
11392  M01S00498.252l678 +++|          EQ     FRA7        REISSUE REQUEST
11393  M01S00499.252l678 +++|
11394  M01S00500.252l678 +++| FRA8     MESSAGE  EMSG,3,R  ISSUE MESSAGE TO USER DAYFILE
Line S00501 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11395  M02S00501.253l688 ---|          SB2    /PER/RTM    PROCESS FATAL TMS ERROR
Line S00571 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11396  M01S00571.253l688 +++|          SB2    /PER/RTM    PROCESS FATAL *TMS* ERROR
Line S00502 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11397  M01S00502.252l678 +++|          EQ     PER         PROCESS ERROR AND ABORT
11398  M01S00503.252l678 +++|
11399  M01S00504.252l678 +++| FRA9     SA1    VP          CHECK DEMAND FILE INITIALIZATION
11400  M01S00505.252l678 +++|          NZ     X1,FRA11    IF VSN= PROCESSED
11401  M01S00506.252l678 +++|          SX6    B1          SET VSN= PROCESSED
11402  M01S00507.252l678 +++|          SA6    A1
11403  M01S00508.252l678 +++|          SA2    /CPA/RFCW
11404  M01S00509.252l678 +++|          SX1    X2
Line S00510 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11405  M02S00510.274l797 ---|          NZ     X1,FRA10    IF DEMAND FILE EXISTS
Line S01981 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11406  M01S01981.274l797 +++|          NZ     X1,FRA10    IF DEMAND FILE ENTRY EXISTS
Line S00511 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11407  M01S00511.252l678 +++|          RJ     IDE         INITIALIZE DEMAND ENTRY
11408  M01S00512.252l678 +++| FRA10    SB2    B1+         SET INITIALIZE ENTIRE ENTRY
11409  M01S00513.252l678 +++|          SA3    F
11410  M01S00514.252l678 +++|          RJ     IVE         INITIALIZE VSN ENTRY
Line S00515 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11411  M02S00515.282l826 ---| FRA11    SA1    TMPF        SET PROCESSING FLAGS
Line S00865 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11412  M01S00865.282l826 +++| FRA11    SA1    TMPF        GET TMS FLAGS
Line S00516 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11413  M01S00516.252l678 +++|          SA2    T+FESN
11414  M01S00517.252l678 +++|          SX0    B1
Line S00518 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11415  M02S00518.282l826 ---|          LX0    23-0
11416  M02S00519.282l826 ---|          BX2    X2*X0
11417  M02S00520.282l826 ---|          LX2    57-23       SET BLANK LABEL FLAG
11418  M02S00521.282l826 ---|          BX1    X1+X2
Line S00522 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11419  M03S00522.282l826 ---|          LX0    58-23       SET TMS ASSIGNED FILE
Line S00572 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11420  M02S00572.282l826 ---|          LX0    58-23       SET *TMS* ASSIGNED FILE
Line S00523 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11421  M02S00523.282l826 ---|          BX7    X1+X0
11422  M02S00524.282l826 ---|          SA2    T+FFTO      SET RESERVE AND SYMBOLIC FLAGS
Line S00866 Modification History
M01 (Added by) 282l826
M02 (Removed by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11423  M02S00866.resex47 ---|          LX0    21-0
Line S00001 Modification History
M01 (Added by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11424  M01S00001.resex47 +++|          LX0    58-0
11425  M01S00002.resex47 +++|          BX6    X1+X0       SET TMS CONTROLLED REQUEST
11426  M01S00003.resex47 +++|          LX0    20-0-58+0
Line S00867 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
11427  M02S00867.ns2765  ---|          BX2    X2*X0       OFFSITE FLAG
Line S00001 Modification History
M01 (Added by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
11428  M01S00001.ns2765  +++|          BX3    X0*X2       OFFSITE FLAG
Line S00004 Modification History
M01 (Added by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11429  M01S00004.resex47 +++|          LX0    21-0-20+0
11430  M01S00005.resex47 +++|          BX1    X0*X2       USER OWNED FLAG
Line S00868 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11431  M01S00868.282l826 +++|          LX0    23-0-21+0
Line S00869 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
11432  M02S00869.ns2765  ---|          BX3    X0*X1       BLANK LABEL FLAG
Line S00002 Modification History
M01 (Added by) ns2765
M02 (Removed by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
11433  M02S00002.ns2770  ---|          BX2    X0*X2       BLANK LABEL FLAG
Line S00034 Modification History
M01 (Added by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
11434  M01S00034.ns2770  +++|          BX2    X0*X2       ASSIGN SCRATCH TAPE FLAG
Line S00870 Modification History
M01 (Added by) 282l826
M02 (Removed by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11435  M02S00870.resex47 ---|          LX0    58-0-23+0
Line S00871 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2765
M03 (Removed by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11436  M03S00871.resex47 ---|          LX2    50-21
11437  M03S00872.resex47 ---|          LX3    57-23
Line S00003 Modification History
M01 (Added by) ns2765
M02 (Removed by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11438  M02S00003.resex47 ---|          LX3    50-21
Line S00006 Modification History
M01 (Added by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11439  M01S00006.resex47 +++|          LX3    50-20
11440  M01S00007.resex47 +++|          LX1    52-21
Line S00004 Modification History
M01 (Added by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
11441  M01S00004.ns2765  +++|          LX2    57-23
Line S00873 Modification History
M01 (Added by) 282l826
M02 (Removed by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11442  M02S00873.resex47 ---|          BX6    X1+X0       SET TMS CONTROLLED REQUEST
Line S00008 Modification History
M01 (Added by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11443  M01S00008.resex47 +++|          BX3    X1+X3
Line S00874 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11444  M01S00874.282l826 +++|          BX2    X2+X3
Line S00875 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
11445  M02S00875.ns2770  ---|          BX6    X6+X2       SET BLANK LABEL AND OFFSITE STATUS
Line S00035 Modification History
M01 (Added by) ns2770
M02 (Removed by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11446  M02S00035.resex47 ---|          BX6    X6+X2       SET SCRATCH AND OFFSITE STATUS
Line S00009 Modification History
M01 (Added by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11447  M01S00009.resex47 +++|          BX6    X6+X2       SET SCRATCH, USER OWNED, OFFSITE STATUS
Line S00876 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11448  M01S00876.282l826 +++|          SA2    T+FFTO      GET TMS OPTIONS
Line S00525 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11449  M01S00525.252l678 +++|          SX3    14B
11450  M01S00526.252l678 +++|          BX5    X3*X2
11451  M01S00527.252l678 +++|          LX5    55-3
Line S00528 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11452  M02S00528.282l826 ---|          BX6    X5+X7
Line S00877 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11453  M01S00877.282l826 +++|          BX6    X6+X5
Line S00529 Modification History
M01 (Added by) 252l678
M02 (Removed by) resex47
Seq #  *Modification Id* Act 
----------------------------+
11454  M02S00529.resex47 ---|          SX3    100         SET USER OWNED FLAG
11455  M02S00530.resex47 ---|          BX2    X3*X2
11456  M02S00531.resex47 ---|          LX2    52-6
11457  M02S00532.resex47 ---|          BX6    X2+X6
Line S00533 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11458  M01S00533.252l678 +++|          SA6    A1
Line S00534 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11459  M02S00534.274l797 ---|          MOVE   6,T+FTAP,F+FTAP
11460  M02S00535.274l797 ---|          SA1    F+FTAP      CHECK FOR 7-TRACK
11461  M02S00536.274l797 ---|          LX1    59-56
11462  M02S00537.274l797 ---|          SX6    B0          PRESET DENSITY DISPLAY
11463  M02S00538.274l797 ---|          SX7    2RMT        PRESET TRACK DISPLAY
11464  M02S00539.274l797 ---|          PL     X1,FRA12    IF 7-TRACK
11465  M02S00540.274l797 ---|          MX0    -3          GET DENSITY
11466  M02S00541.274l797 ---|          LX1    0-51-59+56
11467  M02S00542.274l797 ---|          BX1    -X0*X1
11468  M02S00543.274l797 ---|          MX0    -12         GET DENSITY DISPLAY
11469  M02S00544.274l797 ---|          SA1    X1+TDEN-/COMSMTX/D08+/TDEN/HD
11470  M02S00545.274l797 ---|          LX1    12
11471  M02S00546.274l797 ---|          BX6    -X0*X1
11472  M02S00547.274l797 ---|          SX7    2RNT        GET 9-TRACK DISPLAY
11473  M02S00548.274l797 ---| FRA12    SA6    DD          SET DENSITY DISPLAY
11474  M02S00549.274l797 ---|          SA1    F+FDTY      SET TRACK DISPLAY
11475  M02S00550.274l797 ---|          MX0    12
11476  M02S00551.274l797 ---|          LX7    48
11477  M02S00552.274l797 ---|          BX1    -X0*X1
11478  M02S00553.274l797 ---|          BX7    X7+X1
11479  M02S00554.274l797 ---|          SA7    A1
Line S01982 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11480  M01S01982.274l797 +++|          MOVE   6,T+FTAP,F+FTAP  SET LABEL FET FROM CATALOG ENTRY
11481  M01S01983.274l797 +++|          SA1    F+FTAP
11482  M01S01984.274l797 +++|          RJ     VTD         VERIFY TAPE DESCRIPTORS FROM CATALOG
11483  M01S01985.274l797 +++|          NZ     B2,PER      IF ERROR IN TAPE DESCRIPTORS
11484  M01S01986.274l797 +++|          RJ     TBD         BUILD TAPE BLOCK DEFINITION
Line S00555 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11485  M01S00555.252l678 +++|          RJ     SMF         SET MULTI-FILE PROCESSING FLAGS
Line S00556 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11486  M02S00556.274l797 ---|          SX5    B0          SET VSN FOUND
11487  M02S00557.274l797 ---|          EQ     FRAX        RETURN
11488  M02S00558.274l797 ---|
11489  M02S00559.274l797 ---| FRAA     BSS    0           BITS TO SET FOR *TO=C* OR *TO=E*
11490  M02S00560.274l797 ---|          LOC    0
11491  M02S00561.274l797 ---|          CON    200B        BIT 7 FOR *TO=E*
11492  M02S00562.274l797 ---|          CON    1000B       BIT 9 FOR *TO=C*
11493  M02S00563.274l797 ---|          LOC    *O
Line S01987 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11494  M01S01987.274l797 +++|          RJ     CJV         CHECK JOB VALIDATION
Line S00878 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11495  M01S00878.282l826 +++|          RJ     CTP         CHECK TAPE ACCESS PRIVILEGES
Line S01988 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11496  M01S01988.274l797 +++|          SA1    T+FESN
11497  M01S01989.274l797 +++|          SA2    F+FVSN
11498  M01S01990.274l797 +++|          MX7    36
11499  M01S01991.274l797 +++|          BX6    X7*X1
11500  M01S01992.274l797 +++|          BX7    X7*X2
11501  M01S01993.274l797 +++|          SA6    EVSN        SET EXTERNAL VSN
11502  M01S01994.274l797 +++|          SA7    IVSN        SET INTERNAL VSN
11503  M01S01995.274l797 +++|          EQ     RMT         REQUEST MAGNETIC TAPE ASSIGNMENT
Line S00564 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11504  M01S00564.252l678 +++| IDF      SPACE  4,15
11505  M01S00565.252l678 +++|**        IDF - ISSUE DAYFILE MESSAGE.
11506  M01S00566.252l678 +++|*
11507  M01S00567.252l678 +++|*         ENTRY  (CCDR) = COMMAND IMAGE.
11508  M01S00568.252l678 +++|*
11509  M01S00569.252l678 +++|*         EXIT   DAYFILE MESSAGE ISSUED WITH SECURED PARAMETER VALUES
11510  M01S00570.252l678 +++|*                REMOVED.
11511  M01S00571.252l678 +++|*
11512  M01S00572.252l678 +++|*         USES   X - 1, 2, 3, 4, 5, 6.
11513  M01S00573.252l678 +++|*                A - 1, 3, 4, 5, 6.
11514  M01S00574.252l678 +++|*                B - 2, 3, 4, 5, 6.
11515  M01S00575.252l678 +++|*
11516  M01S00576.252l678 +++|*         CALLS  RSP.
11517  M01S00577.252l678 +++|*
11518  M01S00578.252l678 +++|*         MACROS MESSAGE, MOVE.
11519  M01S00579.252l678 +++|
11520  M01S00580.252l678 +++|
11521  M01S00581.252l678 +++| IDF      SUBR               ENTRY/EXIT
11522  M01S00582.252l678 +++|          BX6    X0          SAVE X0, X3, X4, X5
11523  M01S00583.252l678 +++|          SA6    IDFD
11524  M01S00584.252l678 +++|          BX6    X3
11525  M01S00585.252l678 +++|          SA6    A6+B1
11526  M01S00586.252l678 +++|          BX6    X4
11527  M01S00587.252l678 +++|          SA6    A6+B1
11528  M01S00588.252l678 +++|          BX6    X5
11529  M01S00589.252l678 +++|          SA6    A6+B1
11530  M01S00590.252l678 +++|          MX2    -18
11531  M01S00591.252l678 +++|          SX1    A3          SAVE A3, A4, A5
11532  M01S00592.252l678 +++|          BX6    -X2*X1
11533  M01S00593.252l678 +++|          SX1    A4
11534  M01S00594.252l678 +++|          LX6    18
11535  M01S00595.252l678 +++|          BX1    -X2*X1
11536  M01S00596.252l678 +++|          BX6    X6+X1
11537  M01S00597.252l678 +++|          SX1    A5
11538  M01S00598.252l678 +++|          LX6    18
11539  M01S00599.252l678 +++|          BX1    -X2*X1
11540  M01S00600.252l678 +++|          BX6    X6+X1
11541  M01S00601.252l678 +++|          SA6    A6+B1
11542  M01S00602.252l678 +++|          SX1    B3          SAVE B3, B4, B5
11543  M01S00603.252l678 +++|          BX6    -X2*X1
11544  M01S00604.252l678 +++|          SX1    B4
11545  M01S00605.252l678 +++|          LX6    18
11546  M01S00606.252l678 +++|          BX1    -X2*X1
11547  M01S00607.252l678 +++|          BX6    X6+X1
11548  M01S00608.252l678 +++|          SX1    B5
11549  M01S00609.252l678 +++|          LX6    18
11550  M01S00610.252l678 +++|          BX1    -X2*X1
11551  M01S00611.252l678 +++|          BX6    X6+X1
11552  M01S00612.252l678 +++|          SA6    A6+B1
11553  M01S00613.252l678 +++|          MOVE   8,CCDR,IDFA SET WORKING COMMAND BUFFER
11554  M01S00614.252l678 +++|          SA4    IDFB        FWA ARGUMENT TABLE
11555  M01S00615.252l678 +++|          SB6    IDFC        FWA KEYWORD/POSITION TABLE
11556  M01S00616.252l678 +++|          SA5    IDFA        FWA OF RELOCATED CONTROL STATEMENT
11557  M01S00617.252l678 +++|          SB2    1R,         SKIP TO *,*
11558  M01S00618.252l678 +++|          RJ     RSP         REMOVE SECURE PARAMETERS
11559  M01S00619.252l678 +++|          MESSAGE IDFA,0,R   ISSUE COMMAND TO DAYFILE
11560  M01S00620.252l678 +++|          SA1    IDFD+5      RESTORE B3, B4, B5
11561  M01S00621.252l678 +++|          SB5    X1
11562  M01S00622.252l678 +++|          LX1    -18
11563  M01S00623.252l678 +++|          SB4    X1
11564  M01S00624.252l678 +++|          LX1    -18
11565  M01S00625.252l678 +++|          SB3    X1
11566  M01S00626.252l678 +++|          SA1    A1-B1       RESTORE A3, A4, A5
11567  M01S00627.252l678 +++|          SA5    X1
11568  M01S00628.252l678 +++|          LX1    -18
11569  M01S00629.252l678 +++|          SA4    X1
11570  M01S00630.252l678 +++|          LX1    -18
11571  M01S00631.252l678 +++|          SA3    X1
11572  M01S00632.252l678 +++|          SA1    A1-B1       RESTORE X5,X4,X3,X0
11573  M01S00633.252l678 +++|          BX5    X1
11574  M01S00634.252l678 +++|          SA1    A1-B1
11575  M01S00635.252l678 +++|          BX4    X1
11576  M01S00636.252l678 +++|          SA1    A1-B1
11577  M01S00637.252l678 +++|          BX3    X1
11578  M01S00638.252l678 +++|          SA1    A1-B1
11579  M01S00639.252l678 +++|          BX0    X1
11580  M01S00640.252l678 +++|          EQ     IDFX        RETURN
11581  M01S00641.252l678 +++|
11582  M01S00642.252l678 +++| IDFA     BSS    8           WORKING COMMAND BUFFER
11583  M01S00643.252l678 +++|
11584  M01S00644.252l678 +++| IDFB     BSS    0           ARGUMENT TABLE
11585  M01S00645.252l678 +++| FA       ARG    0,0         FILE ACCESSIBILITY
11586  M01S00646.252l678 +++| PW       ARG    0,0         PASSWORD
11587  M01S00647.252l678 +++|          CON    0           END OF TABLE
11588  M01S00648.252l678 +++|
11589  M01S00649.252l678 +++| IDFC     BSS    0           KEYWORD/POSITION TABLE
11590  M01S00650.252l678 +++|          VFD    42/0LFA,18/0  FILE ACCESSIBILITY
11591  M01S00651.252l678 +++|          VFD    42/0LPW,18/0  PASSWORD
11592  M01S00652.252l678 +++|          CON    0           END OF TABLE
11593  M01S00653.252l678 +++|
11594  M01S00654.252l678 +++|IDFD      BSS    6           REGISTER SAVE AREA
11595  M01S00655.252l678 +++| MFA      SPACE  4,15
11596  M01S00656.252l678 +++|**        MFA - MULTI-FILE ASSIGNMENT.
11597  M01S00657.252l678 +++|*
Line S00658 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11598  M02S00658.253l688 ---|*         ENTRY  (TMPF) = TMS STATUS.
Line S00573 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11599  M01S00573.253l688 +++|*         ENTRY  (TMPF) = *TMS* STATUS.
Line S00659 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11600  M01S00659.252l678 +++|*
11601  M01S00660.252l678 +++|*         EXIT   MULTI-FILE PROCESSING FLAGS SET.
11602  M01S00661.252l678 +++|*
11603  M01S00662.252l678 +++|*         ERROR  EXIT TO *PER* IF NON-ROLLABLE *TFM* ERROR.
11604  M01S00663.252l678 +++|*
11605  M01S00664.252l678 +++|*         USES   X - 0, 1, 2, 5, 6.
11606  M01S00665.252l678 +++|*                A - 1, 2, 6.
11607  M01S00666.252l678 +++|*                B - 2.
11608  M01S00667.252l678 +++|*
11609  M01S00668.252l678 +++|*         CALLS  FDF, PRO, SMF.
11610  M01S00669.252l678 +++|*
11611  M01S00670.252l678 +++|*         MACROS MESSAGE, MOVE, TMS.
11612  M01S00671.252l678 +++|
11613  M01S00672.252l678 +++|
11614  M01S00673.252l678 +++| MFA      SUBR               ENTRY/EXIT
11615  M01S00674.252l678 +++|          SA1    TMPF
Line S00675 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11616  M02S00675.253l688 ---|          NG     X1,MFAX     IF TMS DISABLED
Line S00574 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11617  M01S00574.253l688 +++|          NG     X1,MFAX     IF *TMS* DISABLED
Line S00676 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11618  M01S00676.252l678 +++|          SA1    TS
Line S00677 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11619  M02S00677.253l688 ---|          PL     X1,MFAX     IF NOT SYMBOLIC TMS TAPE
Line S00575 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11620  M01S00575.253l688 +++|          PL     X1,MFAX     IF NOT SYMBOLIC *TMS* TAPE
Line S00678 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11621  M01S00678.252l678 +++|          SA2    F
11622  M01S00679.252l678 +++|          MX0    -18
11623  M01S00680.252l678 +++|          BX6    X0*X2
11624  M01S00681.252l678 +++|          SA6    T
11625  M01S00682.252l678 +++|          MOVE   /TFM/TFPL,F+/TFM/TFFP,T+/TFM/TFFP
11626  M01S00683.252l678 +++|          MX0    59          CLEAR SYMBOLIC ACCESS FLAG
11627  M01S00684.252l678 +++|          SA1    T+FFTO
11628  M01S00685.252l678 +++|          LX0    2-0
11629  M01S00686.252l678 +++|          BX6    X0*X1
11630  M01S00687.252l678 +++|          SA6    A1
11631  M01S00688.252l678 +++|          SX0    1200B       CHECK IF *TO=C* OR *TO=E*
11632  M01S00689.252l678 +++|          SA1    T+FFTO
11633  M01S00690.252l678 +++|          BX2    X0*X1
11634  M01S00691.252l678 +++|          NZ     X2,MFA1     IF USER HAS SPECIFIED *TO=C* OR *TO=E*
11635  M01S00692.252l678 +++|          MX0    -1          GET DEFAULT FOR *TO=C*/*TO=E*
11636  M01S00693.252l678 +++|          SA2    TMPF
11637  M01S00694.252l678 +++|          LX2    0-51
11638  M01S00695.252l678 +++|          BX2    -X0*X2
Line S00696 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11639  M02S00696.253l688 ---|          SA2    X2+MFAA     SET DEFAULT INTO TMS FET
Line S00576 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11640  M01S00576.253l688 +++|          SA2    X2+MFAA     SET DEFAULT INTO *TMS* FET
Line S00697 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11641  M01S00697.252l678 +++|          BX6    X1+X2
11642  M01S00698.252l678 +++|          SA6    A1
11643  M01S00699.252l678 +++| MFA1     RJ     FDF         FLIP DATE FIELDS
11644  M01S00700.252l678 +++|          TMS    T,MFAS      CALL TAPE MANAGER
11645  M01S00701.252l678 +++|          RJ     FDF         FLIP DATE FIELDS
11646  M01S00702.252l678 +++|          MX0    -9
11647  M01S00703.252l678 +++|          SA1    T
11648  M01S00704.252l678 +++|          LX0    17-8
11649  M01S00705.252l678 +++|          BX6    -X0*X1
11650  M01S00706.252l678 +++|          ZR     X6,MFA3     IF NO ERROR
11651  M01S00707.252l678 +++|          SA6    MFAB        SAVE ERROR CODE
11652  M01S00708.252l678 +++|          LX6    59-17
11653  M01S00709.252l678 +++|          PL     X6,MFA2     IF NON-ROLLABLE ERROR
11654  M01S00710.252l678 +++|          SX1    EMSG        GET ERROR MESSAGE
11655  M01S00711.252l678 +++|          SX5    =0
11656  M01S00712.252l678 +++|          RJ     PRO         PROCESS ROLLOUT
11657  M01S00713.252l678 +++|          EQ     MFA1        REISSUE REQUEST
11658  M01S00714.252l678 +++|
11659  M01S00715.252l678 +++| MFA2     MESSAGE  EMSG,3,R  ISSUE MESSAGE TO USER DAYFILE
11660  M01S00716.252l678 +++|          SB2    /PER/RTM
11661  M01S00717.252l678 +++|          EQ     PER         PROCESS ERROR AND ABORT
11662  M01S00718.252l678 +++|
11663  M01S00719.252l678 +++| MFA3     SA1    T+FFTO      CHECK FOR SYMBOLIC ACCESS
11664  M01S00720.252l678 +++|          LX1    59-2
11665  M01S00721.252l678 +++|          PL     X1,MFA4     IF NOT SYMBOLIC ACCESS
11666  M01S00722.252l678 +++|          MOVE   /TFM/TFPL,T+/TFM/TFFP,F+/TFM/TFFP
11667  M01S00723.252l678 +++| MFA4     RJ     SMF         SET MULTI-FILE PROCESSING FLAGS
11668  M01S00724.252l678 +++|          EQ     MFAX        RETURN
11669  M01S00725.252l678 +++|
11670  M01S00726.252l678 +++| MFAA     BSS    0           BITS TO SET FOR *TO=C* OR *TO=E*
11671  M01S00727.252l678 +++|          LOC    0
11672  M01S00728.252l678 +++|          CON    200B        BIT 7 FOR *TO=E*
11673  M01S00729.252l678 +++|          CON    1000B       BIT 9 FOR *TO=C*
11674  M01S00730.252l678 +++|          LOC    *O
11675  M01S00731.252l678 +++|
11676  M01S00732.252l678 +++| MFAB     CON    0           ERROR CODE FROM TFM
Line S00466 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
11677  M01S00466.ns22000 +++| PAL      SPACE  4,10
11678  M01S00467.ns22000 +++|**        PAL - PROCESS ACCESS LEVEL.
11679  M01S00468.ns22000 +++|*
11680  M01S00469.ns22000 +++|*         ENTRY  (RI) = RESOURCE INDEX AND UNIT COUNT.
11681  M01S00470.ns22000 +++|*                (RMTL) = LENGTH OF TAPE DRIVE ENTRIES.
Line S00471 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
11682  M02S00471.v23l617 ---|*                (SC) = SEPARATOR CHARACTER FROM CONTROL CARD.
Line S00073 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
11683  M01S00073.v23l617 +++|*                (SC) = SEPARATOR CHARACTER FROM COMMAND.
Line S00472 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
11684  M01S00472.ns22000 +++|*
11685  M01S00473.ns22000 +++|*         EXIT   (RI) = RESOURCE INDEX AND COUNT ALTERED IF
11686  M01S00474.ns22000 +++|*                MAGNETIC TAPE RESOURCE REQUEST WITH A SECURE SYSTEM.
11687  M01S00475.ns22000 +++|*
11688  M01S00476.ns22000 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
11689  M01S00477.ns22000 +++|*                A - 1, 2, 5, 6, 7.
11690  M01S00478.ns22000 +++|*                B - 2.
11691  M01S00479.ns22000 +++|*
11692  M01S00480.ns22000 +++|*         CALLS  VLC.
11693  M01S00481.ns22000 +++|
11694  M01S00482.ns22000 +++|
11695  M01S00483.ns22000 +++| PAL      SUBR               ENTRY/EXIT
11696  M01S00484.ns22000 +++|          SA1    SC
11697  M01S00485.ns22000 +++|          SX1    X1-1R/
Line S00486 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
11698  M02S00486.v23l617 ---|          NZ     X1,PAL1     IF ACCESS LEVEL NOT ON CONTROL CARD
Line S00074 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
11699  M01S00074.v23l617 +++|          NZ     X1,PAL1     IF ACCESS LEVEL NOT ON COMMAND
Line S00487 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
11700  M01S00487.ns22000 +++|          RJ     POP         PICK OUT PARAMETER
11701  M01S00488.ns22000 +++|          SX1    X1-1R=
11702  M01S00489.ns22000 +++|          ZR     X1,ERR      IF SEPARATOR IS *=*
11703  M01S00490.ns22000 +++|          SA2    SSMA        SYSTEM SECURITY MODE
11704  M01S00491.ns22000 +++|          ZR     X2,PAL1     IF UNSECURED SYSTEM
11705  M01S00492.ns22000 +++|          SA1    POPA
11706  M01S00493.ns22000 +++|          SB2    B0
11707  M01S00494.ns22000 +++|          MX0    -8
11708  M01S00495.ns22000 +++|          SA5    JCWA        SECURITY CONTROL WORD
11709  M01S00496.ns22000 +++|          RJ     VLC         VALIDATE ACCESS LEVEL
11710  M01S00497.ns22000 +++|          SB2    /PER/UAL    * UNKNOWN ACCESS LEVEL NAME.*
11711  M01S00498.ns22000 +++|          NG     X2,PER      IF ACCESS LEVEL NOT FOUND
11712  M01S00499.ns22000 +++|          LX5    7-43        RIGHT JUSTIFY ACCESS LEVEL VALIDATIONS
11713  M01S00500.ns22000 +++|          BX5    -X0*X5
11714  M01S00501.ns22000 +++|          MX0    -1
11715  M01S00502.ns22000 +++|          SB2    X2
11716  M01S00503.ns22000 +++|          LX0    B2
11717  M01S00504.ns22000 +++|          BX0    -X0*X5
11718  M01S00505.ns22000 +++|          SB2    /PER/NVA    NOT VALIDATED FOR ACCESS LEVEL
11719  M01S00506.ns22000 +++|          ZR     X0,PER      IF NOT A VALIDATED ACCESS LEVEL
11720  M01S00507.ns22000 +++|          EQ     PAL2        CONTINUE PROCESSING
11721  M01S00508.ns22000 +++|
11722  M01S00509.ns22000 +++| PAL1     SA2    JALA        JOB ACCESS LEVEL
11723  M01S00510.ns22000 +++|          MX0    -6
11724  M01S00511.ns22000 +++|          BX2    -X0*X2
11725  M01S00512.ns22000 +++| PAL2     SA1    RI
11726  M01S00513.ns22000 +++|          MX0    -6
11727  M01S00514.ns22000 +++|          BX3    -X0*X1
11728  M01S00515.ns22000 +++|          SX3    X3-RMTL
11729  M01S00516.ns22000 +++|          SX7    X2
11730  M01S00517.ns22000 +++|          NG     X3,PAL3     IF A TAPE UNIT
11731  M01S00518.ns22000 +++|          NZ     X3,PALX     IF MASS STORAGE
11732  M01S00519.ns22000 +++| PAL3     SX2    X2+B1
11733  M01S00520.ns22000 +++|          LX2    6
11734  M01S00521.ns22000 +++|          BX6    X1+X2
11735  M01S00522.ns22000 +++|          SA6    RI          ADJUSTED RESOURCE INDEX
11736  M01S00523.ns22000 +++|          SA7    AL
11737  M01S00524.ns22000 +++|          EQ     PALX        RETURN
Line S00525 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11738  M02S00525.274l797 ---|
Line S00733 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11739  M01S00733.252l678 +++| PVS      SPACE  4,20
11740  M01S00734.252l678 +++|**        PVS - PAD VSN WITH CHARACTER *0*.
11741  M01S00735.252l678 +++|*
11742  M01S00736.252l678 +++|*         ENTRY  (X6) = LEFT JUSTIFIED UNPADDED VSN.
11743  M01S00737.252l678 +++|*
11744  M01S00738.252l678 +++|*         EXIT   (X6) = PADDED VSN.  CHARACTER *0* INSERTED
11745  M01S00739.252l678 +++|*                       BEFORE FIRST NUMERIC CHARACTER UNTIL
11746  M01S00740.252l678 +++|*                       VSN IS SIX CHARACTERS LONG.
11747  M01S00741.252l678 +++|*
11748  M01S00742.252l678 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
11749  M01S00743.252l678 +++|*                A - 1, 3.
11750  M01S00744.252l678 +++|*                B - 2, 3.
11751  M01S00745.252l678 +++|
11752  M01S00746.252l678 +++|
11753  M01S00747.252l678 +++| PVS      SUBR               ENTRY/EXIT
11754  M01S00748.252l678 +++|          SA3    =1L
11755  M01S00749.252l678 +++|          MX0    6           GET LENGTH OF UNPADDED VSN
11756  M01S00750.252l678 +++|          BX2    X6
11757  M01S00751.252l678 +++|          SX4    B0
11758  M01S00752.252l678 +++| PVS1     BX1    X0*X6       CHECK FOR CHARACTER
11759  M01S00753.252l678 +++|          BX7    X1-X3
11760  M01S00754.252l678 +++|          ZR     X7,PVS2     IF CHARACTER IS A BLANK
11761  M01S00755.252l678 +++|          ZR     X1,PVS2     IF END OF CHARACTERS
11762  M01S00756.252l678 +++|          SX4    X4+B1
11763  M01S00757.252l678 +++|          LX6    6
11764  M01S00758.252l678 +++|          EQ     PVS1        CONTINUE
11765  M01S00759.252l678 +++|
11766  M01S00760.252l678 +++| PVS2     ZR     X4,PVSX     IF NO CHARACTERS, RETURN
11767  M01S00761.252l678 +++|          SX1    6           GET CORRECT NUMBER OF ZEROS
11768  M01S00762.252l678 +++|          IX4    X1*X4
11769  M01S00763.252l678 +++|          SB2    X4
11770  M01S00764.252l678 +++|          SB3    B2-6        SET UP MASK
11771  M01S00765.252l678 +++|          AX0    B3,X0
11772  M01S00766.252l678 +++|          BX2    X0*X2
11773  M01S00767.252l678 +++|          SA1    =36R000000
11774  M01S00768.252l678 +++|          AX1    B2
11775  M01S00769.252l678 +++|          SB3    60
11776  M01S00770.252l678 +++|          MX0    -6
11777  M01S00771.252l678 +++|          SX6    B0
11778  M01S00772.252l678 +++| PVS3     BX7    X2          SAVE END OF VSN
11779  M01S00773.252l678 +++|          LX2    6           CHECK CHARACTER
11780  M01S00774.252l678 +++|          BX3    -X0*X2
11781  M01S00775.252l678 +++|          ZR     X3,PVS4     IF END OF CHARACTERS
11782  M01S00776.252l678 +++|          SX4    X3-1R0
11783  M01S00777.252l678 +++|          PL     X4,PVS4     IF NUMERIC CHARACTER
11784  M01S00778.252l678 +++|          LX6    6           BUILD FIRST PART OF VSN
11785  M01S00779.252l678 +++|          BX6    X6+X3
11786  M01S00780.252l678 +++|          BX2    X0*X2
11787  M01S00781.252l678 +++|          SB3    B3-6
11788  M01S00782.252l678 +++|          EQ     PVS3        CHECK NEXT CHARACTER
11789  M01S00783.252l678 +++|
11790  M01S00784.252l678 +++| PVS4     SB2    B2-36       ADD ZEROS TO VSN
11791  M01S00785.252l678 +++|          AX6    B2
11792  M01S00786.252l678 +++|          BX6    X6+X1
11793  M01S00787.252l678 +++|          BX6    X6+X7       ADD END OF VSN
11794  M01S00788.252l678 +++|          SB3    B3+B2
11795  M01S00789.252l678 +++|          LX6    B3
11796  M01S00790.252l678 +++|          EQ     PVSX        RETURN
Line S01996 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11797  M01S01996.274l797 +++| SBF      SPACE  4,10
11798  M01S01997.274l797 +++|**        SBF - SET MAXIMUM BLOCK SIZE FROM FRAME COUNT.
11799  M01S01998.274l797 +++|*
11800  M01S01999.274l797 +++|*         ENTRY  (X1) = TAPE DESCRIPTOR WORD.
11801  M01S02000.274l797 +++|*                (B2) = TAPE DEVICE TYPE.
11802  M01S02001.274l797 +++|*
Line S02002 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11803  M02S02002.282l826 ---|*         EXIT   (X6) = 12/ WORD COUNT,12/ OVERFLOW,36/0
Line S00879 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11804  M01S00879.282l826 +++|*         EXIT   (X6) = 36/0,12/ WORD COUNT,12/ OVERFLOW
11805  M01S00880.282l826 +++|*                (X1) = TAPE DESCRIPTOR WORD.
11806  M01S00881.282l826 +++|*                (B2) = TAPE DEVICE TYPE.
Line S02003 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11807  M01S02003.274l797 +++|*
11808  M01S02004.274l797 +++|*         USES   X - 2, 3, 4, 6, 7.
11809  M01S02005.274l797 +++|
11810  M01S02006.274l797 +++|
11811  M01S02007.274l797 +++| SBF      SUBR               ENTRY/EXIT
11812  M01S02008.274l797 +++|
11813  M01S02009.274l797 +++|*         SET BITS PER FRAME.
11814  M01S02010.274l797 +++|
11815  M01S02011.274l797 +++|          MX7    -24
11816  M01S02012.274l797 +++|          BX2    -X7*X1      SPECIFIED FRAME COUNT
11817  M01S02013.274l797 +++|          SX6    6           7 TRACK BITS PER FRAME
11818  M01S02014.274l797 +++|          ZR     B2,SBF1     IF 7 TRACK TAPE
11819  M01S02015.274l797 +++|          ERRNZ  /COMSMTX/DVMT
11820  M01S02016.274l797 +++|          SX7    B2-/COMSMTX/DVNT
11821  M01S02017.274l797 +++|          SX6    8           9 TRACK BITS PER FRAME
11822  M01S02018.274l797 +++|          ZR     X7,SBF1     IF 9 TRACK TAPE
11823  M01S02019.274l797 +++|          SX6    16          CARTRIDGE TAPE BITS PER FRAME
11824  M01S02020.274l797 +++|
11825  M01S02021.274l797 +++|*         SET BLOCK SIZE IN CM WORDS.
11826  M01S02022.274l797 +++|
11827  M01S02023.274l797 +++| SBF1     IX2    X2*X6       MAXIMUM BLOCK SIZE IN BITS
11828  M01S02024.274l797 +++|          BX3    X2
11829  M01S02025.274l797 +++|          SX7    60
11830  M01S02026.274l797 +++|          IX6    X3/X7       WHOLE WORDS IN BLOCK
11831  M01S02027.274l797 +++|          BX3    X6
11832  M01S02028.274l797 +++|          SX7    60
11833  M01S02029.274l797 +++|          IX4    X3*X7       BITS IN WHOLE WORDS
11834  M01S02030.274l797 +++|          IX4    X2-X4
11835  M01S02031.274l797 +++|          ZR     X4,SBF2     IF NO PARTIAL WORD
11836  M01S02032.274l797 +++|          SX7    B1
11837  M01S02033.274l797 +++|          IX6    X6+X7       TOTAL WORDS IN BLOCK
11838  M01S02034.274l797 +++|
11839  M01S02035.274l797 +++|*         COMPUTE OVERFLOW IF BLOCK SIZE .GT. 1000B WORDS.
11840  M01S02036.274l797 +++|
11841  M01S02037.274l797 +++| SBF2     SX7    1000B
11842  M01S02038.274l797 +++|          SX2    B0          OVERFLOW = 0
11843  M01S02039.274l797 +++|          IX7    X7-X6
11844  M01S02040.274l797 +++|          PL     X7,SBF3     IF BLOCK SIZE .LE. 1000B WORDS
11845  M01S02041.274l797 +++|          SX3    /COMSMTX/LBWD  WORDS PER CHUNK
11846  M01S02042.274l797 +++|          BX2    X6
11847  M01S02043.274l797 +++|          IX2    X2/X3       OVERFLOW BLOCK COUNT
11848  M01S02044.274l797 +++|          SX3    /COMSMTX/LBWD
11849  M01S02045.274l797 +++|          IX3    X2*X3
11850  M01S02046.274l797 +++|          IX6    X6-X3       REMAINING WORD COUNT
11851  M01S02047.274l797 +++|
11852  M01S02048.274l797 +++|*         SET WORD COUNT AND OVERFLOW FOR EXIT.
11853  M01S02049.274l797 +++|
Line S02050 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11854  M02S02050.282l826 ---| SBF3     LX6    48
11855  M02S02051.282l826 ---|          LX2    36
Line S00882 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11856  M01S00882.282l826 +++| SBF3     LX6    12
Line S02052 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11857  M01S02052.274l797 +++|          BX6    X6+X2       MERGE WORD COUNT AND OVERFLOW
11858  M01S02053.274l797 +++|          EQ     SBFX        RETURN
Line S00791 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11859  M01S00791.252l678 +++| SMF      SPACE  4,15
11860  M01S00792.252l678 +++|**        SMF - SET MULTI-FILE PROCESSING FLAGS.
11861  M01S00793.252l678 +++|*
11862  M01S00794.252l678 +++|*         ENTRY  (F+FID1) = FILE IDENTIFIER.
11863  M01S00795.252l678 +++|*
11864  M01S00796.252l678 +++|*         EXIT   (MF) = MULTI-FILE PROCESSING FLAGS.
11865  M01S00797.252l678 +++|*                       01 - FILE IDENTIFIER PRESENT.
11866  M01S00798.252l678 +++|*                       02 - FILE SEQUENCE PRESENT.
11867  M01S00799.252l678 +++|*                       04 - MULTI-FILE POSITIONING.
11868  M01S00800.252l678 +++|*                       10 - FILE SEQUENCE .GT. 1.
11869  M01S00801.252l678 +++|*
11870  M01S00802.252l678 +++|*         USES   X - 0, 1, 2, 3, 6.
11871  M01S00803.252l678 +++|*                A - 1, 2, 3, 6.
11872  M01S00804.252l678 +++|
11873  M01S00805.252l678 +++|
11874  M01S00806.252l678 +++| SMF      SUBR               ENTRY/EXIT
Line S00807 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11875  M02S00807.274l797 ---|          BX6    X6-X6       CLEAR FLAG TO ZERO
Line S00808 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11876  M01S00808.252l678 +++|          SA1    F+FID1
Line S00809 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11877  M02S00809.274l797 ---|          SA2    A1+B1
11878  M02S00810.274l797 ---|          SA3    A2+B1
Line S02054 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11879  M01S02054.274l797 +++|          SA2    F+FID2
11880  M01S02055.274l797 +++|          SA3    F+FMSI
11881  M01S02056.274l797 +++|          SX6    B0+         INITIALIZE MULTI-FILE FLAGS
Line S00811 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11882  M01S00811.252l678 +++|          ZR     X1,SMF1     IF NO FILE IDENTIFIER (FI)
Line S00812 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11883  M02S00812.274l797 ---|          SX6    B1+
Line S02057 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11884  M01S02057.274l797 +++|          SX6    B1+         SET FILE IDENTIFIER FLAG
Line S00813 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11885  M01S00813.252l678 +++| SMF1     MX0    36          CHECK SET IDENTIFIER (SI)
11886  M01S00814.252l678 +++|          BX1    X0*X3
11887  M01S00815.252l678 +++|          ZR     X1,SMF2     IF NO SET IDENTIFIER
11888  M01S00816.252l678 +++|          SA1    =6L         CHECK FOR SPACES
11889  M01S00817.252l678 +++|          BX1    X1-X3
Line S00818 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11890  M02S00818.274l797 ---|          BX1    X0*X3
Line S02058 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11891  M01S02058.274l797 +++|          BX1    X0*X1
Line S00819 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11892  M01S00819.252l678 +++|          ZR     X1,SMF2     IF NO SET IDENTIFIER
Line S00820 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11893  M02S00820.274l797 ---|          SX6    X6+4
Line S02059 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11894  M01S02059.274l797 +++|          SX6    X6+4        SET POSITIONING FLAG
Line S00821 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11895  M01S00821.252l678 +++| SMF2     MX0    -18         CHECK FILE SEQUENCE (QN)
11896  M01S00822.252l678 +++|          BX1    -X0*X2
11897  M01S00823.252l678 +++|          ZR     X1,SMF3     IF NO FILE SEQUENCE
Line S00824 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11898  M02S00824.274l797 ---|          SX6    X6+2
Line S02060 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11899  M01S02060.274l797 +++|          SX6    X6+2        SET SEQUENCE NUMBER FLAG
Line S00825 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11900  M01S00825.252l678 +++|          SX2    X1-1
11901  M01S00826.252l678 +++|          ZR     X2,SMF3     IF SEQUENCE = 1
Line S00827 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11902  M02S00827.274l797 ---|          SX6    X6+10B
Line S02061 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11903  M01S02061.274l797 +++|          SX6    X6+10B      SET SEQUENCE NUMBER .GT. 1 FLAG
Line S00828 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
11904  M01S00828.252l678 +++| SMF3     SA6    MF          SET MULTI-FILE PROCESSING FLAGS
11905  M01S00829.252l678 +++|          EQ     SMFX        RETURN
Line S05670 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11906  M01S05670.274l797 ---| TBD      SPACE  4,25
Line S02062 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11907  M01S02062.274l797 +++| SNF      SPACE  4,20
11908  M01S02063.274l797 +++|**        SNF - SET NOISE BLOCK DEFINITION FROM FRAME COUNT.
11909  M01S02064.274l797 +++|*
11910  M01S02065.274l797 +++|*         ENTRY  (X2) = SPECIFIED NOISE FRAME COUNT.
Line S00883 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11911  M01S00883.282l826 +++|*                (X1) = TAPE DESCRIPTOR WORD.
Line S02066 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11912  M01S02066.274l797 +++|*                (B2) = TAPE DEVICE TYPE.
11913  M01S02067.274l797 +++|*
11914  M01S02068.274l797 +++|*         EXIT   (X6) = NOISE BLOCK DEFINITION.
Line S00884 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11915  M01S00884.282l826 +++|*                (X1) = TAPE DESCRIPTOR WORD.
11916  M01S00885.282l826 +++|*                (B2) = TAPE DEVICE TYPE.
Line S02069 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11917  M01S02069.274l797 +++|*
11918  M01S02070.274l797 +++|*         USES   X - 3, 4, 6, 7.
11919  M01S02071.274l797 +++|*
11920  M01S02072.274l797 +++|*         SEVEN TRACK NOISE FORMULA -
11921  M01S02073.274l797 +++|*                BYTES = (NS+1)/2.
11922  M01S02074.274l797 +++|*                FILL ALLOWED IF NS-2(BYTES) IS NEGATIVE.
11923  M01S02075.274l797 +++|*
11924  M01S02076.274l797 +++|*         NINE TRACK NOISE FORMULA -
11925  M01S02077.274l797 +++|*                BYTES = 2(NS+1)/3.
11926  M01S02078.274l797 +++|*                FILL ALLOWED IF NS-3(BYTES)/2 IS NEGATIVE.
11927  M01S02079.274l797 +++|
11928  M01S02080.274l797 +++|
11929  M01S02081.274l797 +++| SNF      SUBR               ENTRY/EXIT
11930  M01S02082.274l797 +++|          SX4    X2+1        (NS+1)
11931  M01S02083.274l797 +++|          NZ     B2,SNF1     IF NOT SEVEN TRACK TAPE
11932  M01S02084.274l797 +++|          ERRNZ  /COMSMTX/DVMT
11933  M01S02085.274l797 +++|          AX3    X4,B1       BYTES = (NS+1)/2
11934  M01S02086.274l797 +++|          LX7    X3,B1       BYTES*2
11935  M01S02087.274l797 +++|          EQ     SNF2        DETERMINE FILL ALLOWED STATUS
11936  M01S02088.274l797 +++|
11937  M01S02089.274l797 +++| SNF1     LX4    1           2(NS+1)
11938  M01S02090.274l797 +++|          SX7    3
11939  M01S02091.274l797 +++|          IX3    X4/X7       BYTES = 2(NS+1)/3
11940  M01S02092.274l797 +++|          LX7    X3,B1
11941  M01S02093.274l797 +++|          IX7    X7+X3       BYTES*3
11942  M01S02094.274l797 +++|          AX7    1           (BYTES*3)/2
11943  M01S02095.274l797 +++| SNF2     IX7    X2-X7
11944  M01S02096.274l797 +++|          MX6    1
11945  M01S02097.274l797 +++|          BX6    X7*X6       FILL ALLOWED STATUS
11946  M01S02098.274l797 +++|          LX6    5-59
11947  M01S02099.274l797 +++|          BX6    X6+X3       MERGE BYTE COUNT AND FILL STATUS
11948  M01S02100.274l797 +++|          EQ     SNFX        RETURN
11949  M01S02101.274l797 +++| TBD      SPACE  4,15
11950  M00S05671.resex   +++|**        TBD - BUILD TAPE BLOCK DEFINITION.
11951  M00S05672.resex   +++|*
Line S05673 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11952  M01S05673.274l797 ---|*         ENTRY  (F+FTAP) = TAPE DESCRIPTORS.
11953  M01S05674.274l797 ---|*                (TBDA) .NE. 0, IF RETURN REQUESTED ON TRACK CONFLICT.
Line S00830 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11954  M03S00830.274l797 ---|*                (TMPF) = BIT 58 SET IF TMS CONTROLLED TAPE FILE.
Line S00577 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11955  M02S00577.274l797 ---|*                (TMPF) = BIT 58 SET IF *TMS* CONTROLLED TAPE FILE.
Line S02102 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11956  M01S02102.274l797 +++|*         ENTRY  (F+FTAP) = CONVERTED TAPE DESCRIPTORS.
11957  M00S05675.resex   +++|*
Line S05676 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11958  M01S05676.274l797 ---|*         EXIT   (TB) = TAPE BLOCK DEFINITION AND SOFTWARE OPTIONS.
11959  M01S05677.274l797 ---|*                (F+FTAP) = TAPE DESCRIPTORS WITH DENSITY AND
11960  M01S05678.274l797 ---|*                     CONVERSION MODE DEFAULTED IF NEEDED AND
11961  M01S05679.274l797 ---|*                     DENSITY CONVERTED.
11962  M01S05680.274l797 ---|*                (F+FDTY) = *MT* OR *NT* DEVICE TYPE SET IN BITS 48-59.
Line S02103 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11963  M01S02103.274l797 +++|*         EXIT   (TB) = TAPE BLOCK DEFINITION PARAMETERS.
Line S05681 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11964  M01S05681.274l797 ---|*                (DD) = DISPLAY CODE FOR REQUIRED DENSITY (*HD*, *PE*,
11965  M01S05682.274l797 ---|*                     OR *GE*), IF *NT* EQUIPMENT.
11966  M01S05683.274l797 ---|*                (B2) .NE. 0, IF *MT/NT CONFLICT.* AND RETURN
11967  M01S05684.274l797 ---|*                     REQUESTED.
11968  M00S05685.resex   +++|*
Line S05686 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
11969  M01S05686.v23l617 ---|*         ERROR  TO *ERR*, IF CONTROL STATEMENT ERROR.
Line S00075 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11970  M02S00075.274l797 ---|*         ERROR  TO *ERR*, IF COMMAND ERROR.
Line S05687 Modification History
M01 (Removed by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11971  M02S05687.274l797 ---|*                TO *PER*, IF MT/NT CONFLICT OR TAPE BLOCK DEFINITION
11972  M02S05688.274l797 ---|*                     ERROR.
Line S00008 Modification History
M01 (Added by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11973  M02S00008.274l797 ---|*                TO *PER*, IF MT/NT CONFLICT, TAPE BLOCK DEFINITION
11974  M02S00009.274l797 ---|*                     ERROR, OR PROCESSING OPTION CONFLICT.
Line S02104 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11975  M01S02104.274l797 +++|*         USES   X - 0, 1, 2, 5, 6, 7.
11976  M01S02105.274l797 +++|*                A - 1, 5, 6.
11977  M01S02106.274l797 +++|*                B - 2, 3.
11978  M00S05689.resex   +++|*
Line S05690 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11979  M01S05690.274l797 ---|*         USES   A - 1, 2, 3, 5, 6, 7.
11980  M01S05691.274l797 ---|*                B - 2, 3, 4, 6.
11981  M01S05692.274l797 ---|*                X - ALL.
Line S02107 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11982  M01S02107.274l797 +++|*         CALLS  SBF, SNF.
11983  M00S05693.resex   +++|
11984  M00S05694.resex   +++|
11985  M00S05695.resex   +++| TBD      SUBR               ENTRY/EXIT
Line S02108 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11986  M01S02108.274l797 +++|          SA1    F+FTAP      GET TAPE DEVICE TYPE
11987  M01S02109.274l797 +++|          MX0    -2
11988  M01S02110.274l797 +++|          LX1    0-55
11989  M01S02111.274l797 +++|          BX6    -X0*X1
11990  M01S02112.274l797 +++|          LX1    0-51-0+55   GET TAPE DENSITY
Line S00886 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11991  M01S00886.282l826 +++|          SB2    X6          TAPE DEVICE TYPE
Line S02113 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11992  M01S02113.274l797 +++|          MX0    -3
11993  M01S02114.274l797 +++|          BX2    -X0*X1
Line S02115 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11994  M02S02115.282l826 ---|          SB3    X2
Line S00887 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11995  M01S00887.282l826 +++|          SB3    X2          DENSITY
Line S00001 Modification History
M01 (Added by) resex45
Seq #  *Modification Id* Act 
----------------------------+
11996  M01S00001.resex45 +++|          LX1    0-30-0+51
11997  M01S00002.resex45 +++|          MX0    -6
11998  M01S00003.resex45 +++|          BX6    -X0*X1      TAPE FORMAT
11999  M01S00004.resex45 +++|          LX1    59-59-0+30
12000  M01S00005.resex45 +++|          SA5    TTFM+X6     GET TAPE FORMAT CHARACTERISTICS
Line S00831 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
12001  M02S00831.253l688 ---|          SA1    TMPF        CHECK IF *TBD* CALLED FOR TMS TAPE
Line S00578 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12002  M02S00578.274l797 ---|          SA1    TMPF        CHECK IF *TBD* CALLED FOR *TMS* TAPE
Line S00832 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12003  M02S00832.274l797 ---|          LX1    59-58
Line S00833 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12004  M03S00833.274l797 ---|          NG     X1,TBDX     IF TMS CONTROLLED TAPE FILE
Line S00579 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12005  M02S00579.274l797 ---|          NG     X1,TBDX     IF *TMS* CONTROLLED TAPE FILE
12006  M00S05696.resex   +++|
Line S05697 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12007  M01S05697.274l797 ---|*         SET CORRECT INTERNAL DENSITY AND CONVERSION MODE.
Line S02116 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12008  M01S02116.274l797 +++|*         FORCE ASCII CONVERSION MODE IF UNLABELED *I*, *LI*, OR *SI*
Line S02117 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
12009  M02S02117.282l826 ---|*         FORMAT.
Line S00888 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
12010  M01S00888.282l826 +++|*         FORMAT AND NOT SEVEN TRACK TAPE.
12011  M00S05698.resex   +++|
Line S00889 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
12012  M01S00889.282l826 +++|          ZR     B2,TBD2     IF SEVEN TRACK TAPE
12013  M01S00890.282l826 +++|          ERRNZ  /COMSMTX/DVMT
Line S05699 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12014  M01S05699.274l797 ---|          SA1    F+FTAP
12015  M01S05700.274l797 ---|          SA3    /LWC/IPRL   INSTALLATION PARAMETERS
12016  M01S05701.274l797 ---|          LX1    9
12017  M01S05702.274l797 ---|          SX5    40B
12018  M01S05703.274l797 ---|          MX0    -3
12019  M01S05704.274l797 ---|          BX4    X5*X1       MT/NT BIT
12020  M01S05705.274l797 ---|          BX2    -X0*X1      DENSITY REQUESTED
12021  M01S05706.274l797 ---|          BX7    -X0*X3      MT DEFAULT DENSITY
12022  M01S05707.274l797 ---|          LX3    -6
12023  M01S05708.274l797 ---|          SB2    X2
12024  M01S05709.274l797 ---|          LX1    3
12025  M01S05710.274l797 ---|          ZR     X4,TBD1     IF MT
12026  M01S05711.274l797 ---|          BX7    -X0*X3      NT DEFAULT DENSITY
12027  M01S05712.274l797 ---|          BX6    X1
12028  M01S05713.274l797 ---|          LX6    60+47-58
12029  M01S05714.274l797 ---|          NG     X6,TBD1     IF LABELED TAPE REQUESTED
12030  M01S05715.274l797 ---|          LX6    59-35-1
12031  M01S05716.274l797 ---|          AX6    54+1
12032  M01S05717.274l797 ---|          NZ     X6,TBD1     IF NOT I OR SI FORMAT
12033  M01S05718.274l797 ---|          SX6    B1+         SET ASCII CONVERSION MODE
12034  M01S05719.274l797 ---|          BX1    X0*X1
12035  M01S05720.274l797 ---|          BX1    X6+X1
12036  M01S05721.274l797 ---| TBD1     LX3    -6
12037  M01S05722.274l797 ---|          BX6    -X0*X1      CONVERSION REQUESTED
12038  M01S05723.274l797 ---|          SB3    X6+B1
12039  M01S05724.274l797 ---|          LX2    1
12040  M01S05725.274l797 ---|          SB4    B3+B3
12041  M01S05726.274l797 ---|          BX3    -X0*X3      DEFAULT CONVERSION
12042  M01S05727.274l797 ---|          SB2    X2+B2       DENSITY SHIFT COUNT
12043  M01S05728.274l797 ---|          LX3    3
12044  M01S05729.274l797 ---|          SB3    B3+B4       CONVERSION SHIFT COUNT
12045  M01S05730.274l797 ---|          SA2    TBDB
12046  M01S05731.274l797 ---|          BX7    X2+X7
12047  M01S05732.274l797 ---|          BX2    X2+X3
12048  M01S05733.274l797 ---|          LX7    X7,B2
12049  M01S05734.274l797 ---|          AX2    X2,B3
12050  M01S05735.274l797 ---|          BX3    -X0*X7      DENSITY
12051  M01S05736.274l797 ---|          LX4    -6
12052  M01S05737.274l797 ---|          BX2    -X0*X2      CONVERSION
12053  M01S05738.274l797 ---|          MX0    -6
12054  M01S05739.274l797 ---|          SB3    X3
12055  M01S05740.274l797 ---|          BX1    X0*X1
12056  M01S05741.274l797 ---|          LX3    3
12057  M01S05742.274l797 ---|          NZ     X4,TBD2     IF *NT*
12058  M01S05743.274l797 ---|          NZ     X6,TBD18    IF *MT* AND 9-TRACK CONVERSION MODE
12059  M01S05744.274l797 ---|          R=     X2,/COMSMTX/BCD
12060  M01S05745.274l797 ---| TBD2     BX7    X2+X1
12061  M01S05746.274l797 ---|          SX1    X6-/COMSMTX/MCCO+1
12062  M01S05747.274l797 ---|          BX7    X3+X7
Line S05748 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12063  M02S05748.274l797 ---|          PL     X1,TBD17    IF ILLEGAL CONVERSION MODE
Line S00076 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12064  M02S00076.274l797 ---|          PL     X1,TBD17    IF INCORRECT CONVERSION MODE
Line S05749 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12065  M01S05749.274l797 ---|          LX7    -12
12066  M01S05750.274l797 ---|          BX1    X7
12067  M01S05751.274l797 ---|          MX5    -48
12068  M01S05752.274l797 ---|          SA7    A1          SAVE CONVERTED TAPE DESCRIPTORS
12069  M01S05753.274l797 ---|          SA3    DN          GET TRACK REQUIREMENTS FOR DENSITY
12070  M01S05754.274l797 ---|          SA2    F+FDTY
Line S05755 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12071  M02S05755.274l797 ---|          NZ     X3,TBD3     IF DN SET BY CONTROL CARD CALL
Line S00077 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12072  M02S00077.274l797 ---|          NZ     X3,TBD3     IF DN SET BY COMMAND CALL
Line S05756 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12073  M01S05756.274l797 ---|          SA3    TDEN+B3-1   GET MT/NT REQUIREMENTS FOR DENSITY
12074  M01S05757.274l797 ---|          LX3    -7
12075  M01S05758.274l797 ---| TBD3     PL     X3,TBD4     IF NO TRACK REQUIREMENTS
12076  M01S05759.274l797 ---|          LX3    1
12077  M01S05760.274l797 ---|          BX6    X3-X4
Line S05761 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12078  M02S05761.274l797 ---|          NG     X6,TBD18    IF ILLEGAL TRACK TYPE FOR DENSITY
Line S00078 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12079  M02S00078.274l797 ---|          NG     X6,TBD18    IF INCORRECT TRACK TYPE FOR DENSITY
Line S05762 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12080  M01S05762.274l797 ---| TBD4     LX4    7           SET MT OR NT DEVICE TYPE IN FET
12081  M01S05763.274l797 ---|          SX3    2RMT+X4
12082  M01S05764.274l797 ---|          LX3    -12
12083  M01S05765.274l797 ---|          BX2    -X5*X2
12084  M01S05766.274l797 ---|          LX1    X7
12085  M01S05767.274l797 ---|          BX6    X3+X2
12086  M01S05768.274l797 ---|          SA6    A2
12087  M01S05769.274l797 ---|          ZR     X4,TBD5     IF *MT*
12088  M01S05770.274l797 ---|          SA4    TDEN+B3-/COMSMTX/D08+/TDEN/HD  GET NT DENSITY DISPLAY
12089  M01S05771.274l797 ---|          BX6    X5*X4
12090  M01S05772.274l797 ---|          LX6    12
12091  M01S05773.274l797 ---|          SA6    DD
12092  M01S05774.274l797 ---| TBD5     LX7    -30
12093  M01S05775.274l797 ---|          SB6    1000B       DEFAULT FRAME COUNT
12094  M01S05776.274l797 ---|          BX6    -X0*X7      FORMAT
12095  M01S05777.274l797 ---|          LX7    33
12096  M01S05778.274l797 ---|          SX0    X6-/COMSMTX/TFMA
12097  M01S05779.274l797 ---|          MX5    -24
Line S05780 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12098  M02S05780.274l797 ---|          PL     X0,TBD17    IF ILLEGAL FORMAT
Line S00079 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12099  M02S00079.274l797 ---|          PL     X0,TBD17    IF INCORRECT FORMAT
Line S05781 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12100  M01S05781.274l797 ---|          SB2    X6-/COMSMTX/TFF
12101  M01S05782.274l797 ---|          MX0    3
12102  M01S05783.274l797 ---|          SX4    B0
12103  M01S05784.274l797 ---|          GT     B2,TBD10    IF S OR L FORMAT
12104  M01S05785.274l797 ---|          SX4    B6
12105  M01S05786.274l797 ---|          LX4    12
12106  M01S05787.274l797 ---|          LT     B2,TBD10    IF I OR SI FORMAT
12107  M01S05788.274l797 ---|
12108  M01S05789.274l797 ---|*         F FORMAT - WORD COUNT AND OVERFLOW COMPUTED.
12109  M01S05790.274l797 ---|
12110  M01S05791.274l797 ---|          BX4    -X5*X1      FRAME COUNT/CHARACTER COUNT
12111  M01S05792.274l797 ---|          ZR     X4,TBD17    IF NO FRAME SIZE SPECIFIED
12112  M01S05793.274l797 ---|          SB6    X4          SET FRAME COUNT
12113  M01S05794.274l797 ---|          SB4    60          BITS PER WORD
12114  M01S05795.274l797 ---|          SX6    6
12115  M01S05796.274l797 ---|          PL     X7,TBD6     IF 7-TRACK
12116  M01S05797.274l797 ---|          LX7    6
12117  M01S05798.274l797 ---|          BX0    X0*X7
12118  M01S05799.274l797 ---|          NZ     X0,TBD6     IF CONVERSION SPECIFIED
12119  M01S05800.274l797 ---|          SX6    8
12120  M01S05801.274l797 ---| TBD6     SB3    /COMSMTX/LBWD  WORDS IN OVERFLOW BLOCKS
12121  M01S05802.274l797 ---|          IX4    X6*X4       CONVERT TO BITS
12122  M01S05803.274l797 ---|          SX6    B4
12123  M01S05804.274l797 ---|          BX0    X4
12124  M01S05805.274l797 ---|          IX4    X4/X6       CONVERT TO WORDS
12125  M01S05806.274l797 ---|          SX6    B4
12126  M01S05807.274l797 ---|          BX5    X4
12127  M01S05808.274l797 ---|          IX5    X6*X5
12128  M01S05809.274l797 ---|          IX5    X0-X5       USED BITS
12129  M01S05810.274l797 ---|          SX2    B1
12130  M01S05811.274l797 ---|          ZR     X5,TBD7     IF NO USED BITS
12131  M01S05812.274l797 ---|          IX5    X6-X5       UNUSED BITS
12132  M01S05813.274l797 ---|          IX4    X4+X2       WORDS INCLUDING PARTIALLY USED WORD
12133  M01S05814.274l797 ---| TBD7     MX2    0           CLEAR OVERFLOW
12134  M01S05815.274l797 ---|          SX6    512
12135  M01S05816.274l797 ---|          IX0    X6-X4
12136  M01S05817.274l797 ---|          PL     X0,TBD8     IF BLOCK .LE. 512 WORDS
12137  M01S05818.274l797 ---|          BX7    X4
12138  M01S05819.274l797 ---|          SX6    B3
12139  M01S05820.274l797 ---|          IX0    X4/X6       COMPUTE OVERFLOW
12140  M01S05821.274l797 ---|          SX6    B3
12141  M01S05822.274l797 ---|          BX2    X0
12142  M01S05823.274l797 ---|          IX3    X6*X0
12143  M01S05824.274l797 ---|          IX4    X7-X3
12144  M01S05825.274l797 ---| TBD8     SA1    F+FTAP      GET CONVERTED TAPE PARAMETERS
12145  M01S05826.274l797 ---|          SX6    513
12146  M01S05827.274l797 ---|          ZR     X2,TBD9     IF NO OVERFLOW
12147  M01S05828.274l797 ---|          SX6    /COMSMTX/LBWD+1
12148  M01S05829.274l797 ---|          SX0    X2-4096
12149  M01S05830.274l797 ---|          SB6    X6          ASSURE TEST AGAINST NOISE SIZE PASSES
12150  M01S05831.274l797 ---|          PL     X0,TBD17    IF OVERFLOW TOO LARGE
12151  M01S05832.274l797 ---| TBD9     IX0    X4-X6
12152  M01S05833.274l797 ---|          PL     X0,TBD17    IF TOO MANY WORDS
12153  M01S05834.274l797 ---|          LX4    12
12154  M01S05835.274l797 ---|          BX4    X4+X2
Line S02118 Modification History
M01 (Added by) 274l797
M02 (Removed by) resex45
Seq #  *Modification Id* Act 
----------------------------+
12155  M02S02118.resex45 ---|          LX1    0-30-0+51
12156  M02S02119.resex45 ---|          MX0    -6
12157  M02S02120.resex45 ---|          BX6    -X0*X1      TAPE FORMAT
12158  M02S02121.resex45 ---|          LX1    59-59-0+30
12159  M02S02122.resex45 ---|          SA5    TTFM+X6     GET TAPE FORMAT CHARACTERISTICS
Line S02123 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12160  M01S02123.274l797 +++|          LX2    X1,B1
12161  M01S02124.274l797 +++|          MX7    57
12162  M01S02125.274l797 +++|          NG     X2,TBD2     IF LABELED TAPE REQUEST
12163  M01S02126.274l797 +++|          PL     X5,TBD2     IF NOT INTERNAL TAPE FORMAT
12164  M01S02127.274l797 +++|          LX1    0-48
12165  M01S02128.274l797 +++|          SX2    /COMSMTX/ANS  FORCE ASCII CONVERSION
12166  M01S02129.274l797 +++|          BX6    X7*X1
12167  M01S02130.274l797 +++|          BX6    X6+X2
12168  M01S02131.274l797 +++|          LX6    59-59-0+48
12169  M01S02132.274l797 +++|          BX1    X6          UPDATE TAPE DESCRIPTORS
12170  M01S02133.274l797 +++|          SA6    A1
12171  M00S05836.resex   +++|
Line S05837 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12172  M01S05837.274l797 ---|*         S, L FORMAT - WORD COUNT AND OVERFLOW = 0.
Line S02134 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12173  M01S02134.274l797 +++|*         SET MAXIMUM DATA BLOCK SIZE.
12174  M00S05838.resex   +++|
Line S05839 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12175  M01S05839.274l797 ---|*         I, SI FORMATS - WORD COUNT = 512, OVERFLOW = 0.
Line S02135 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
12176  M02S02135.282l826 ---| TBD2     LX5    59-47
12177  M02S02136.282l826 ---|          MX6    24
12178  M02S02137.282l826 ---|          BX6    X6*X5       BLOCK SIZE AND OVERFLOW
12179  M02S02138.282l826 ---|          LX5    59-58-59+47
Line S00891 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
12180  M01S00891.282l826 +++| TBD2     LX5    23-47
12181  M01S00892.282l826 +++|          MX6    -24
12182  M01S00893.282l826 +++|          BX6    -X6*X5      BLOCK SIZE AND OVERFLOW
12183  M01S00894.282l826 +++|          LX5    59-58-23+47
Line S02139 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12184  M01S02139.274l797 +++|          PL     X5,TBD3     IF NOT TO SET BLOCK SIZE FROM FRAME COUNT
12185  M01S02140.274l797 +++|          RJ     SBF         SET BLOCK SIZE FROM FRAME COUNT
12186  M01S02141.274l797 +++| TBD3     SA6    TB          SET WORD COUNT AND OVERFLOW
12187  M00S05840.resex   +++|
Line S05841 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12188  M01S05841.274l797 ---|*         ENTER TAPE BLOCK DEFINITION.
Line S02142 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12189  M01S02142.274l797 +++|*         PROCESS NOISE SIZE.
12190  M00S05842.resex   +++|
Line S05843 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12191  M01S05843.274l797 ---| TBD10    MX0    12
12192  M01S05844.274l797 ---|          LX1    12
12193  M01S05845.274l797 ---|          BX6    X0*X1       PROCESSING OPTIONS
12194  M01S05846.274l797 ---|          MX0    3
12195  M01S05847.274l797 ---|          BX5    X0*X6
12196  M01S05848.274l797 ---|          CX3    X5
12197  M01S05849.274l797 ---|          BX6    -X0*X6
12198  M01S05850.274l797 ---|          MX2    2
Line S02143 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12199  M01S02143.274l797 +++|          SX6    B3-/COMSMTX/DNMX-1
12200  M01S02144.274l797 +++|          LX5    59-59-59+58
12201  M01S02145.274l797 +++|          PL     X6,TBDX     IF DENSITY DOES NOT SUPPORT NOISE BLOCKS
12202  M01S02146.274l797 +++|          MX0    -6
12203  M01S02147.274l797 +++|          LX1    0-24
12204  M01S02148.274l797 +++|          NG     X5,TBD4     IF INTERNAL FORMAT
12205  M01S02149.274l797 +++|          BX2    -X0*X1      SPECIFIED NOISE SIZE
12206  M01S02150.274l797 +++|          ZR     X2,TBD4     IF NOISE SIZE NOT SPECIFIED
12207  M01S02151.274l797 +++|          RJ     SNF         SET NOISE BLOCK DEFINITION FROM FRAMES
12208  M01S02152.274l797 +++|          EQ     TBD5        SET NOISE FILL
12209  M01S02153.274l797 +++|
12210  M01S02154.274l797 +++| TBD4     LX5    0-18
12211  M01S02155.274l797 +++|          BX6    -X0*X5      DEFAULT 7 TRACK NOISE BLOCK DEFINITION
12212  M01S02156.274l797 +++|          ZR     B2,TBD5     IF SEVEN TRACK TAPE
12213  M01S02157.274l797 +++|          ERRNZ  /COMSMTX/DVMT
12214  M01S02158.274l797 +++|          LX5    0-12-0+18
12215  M01S02159.274l797 +++|          BX6    -X0*X5      DEFAULT 9 TRACK NOISE BLOCK DEFINITION
12216  M01S02160.274l797 +++| TBD5     SA2    TB
Line S02161 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
12217  M02S02161.282l826 ---|          LX6    12
Line S00895 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
12218  M01S00895.282l826 +++|          LX6    24
Line S02162 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12219  M01S02162.274l797 +++|          BX6    X2+X6       MERGE NOISE BLOCK DEFINITION
12220  M01S02163.274l797 +++|          SA6    A2          UPDATE TAPE BLOCK DESCRIPTORS
12221  M01S02164.274l797 +++|          EQ     TBDX        RETURN
12222  M01S02165.274l797 +++| VCD      SPACE  4,10
12223  M01S02166.274l797 +++|**        VCD - VERIFY TAPE ASSIGNMENT COMMAND DEFAULTS.
12224  M01S02167.274l797 +++|*
12225  M01S02168.274l797 +++|*         EXIT   *F+FTAP* PARAMETERS DEFAULTED AS REQUIRED.
12226  M01S02169.274l797 +++|*                TO *PER* IF ERROR IN COMMAND DEFAULTS.
12227  M01S02170.274l797 +++|*
12228  M01S02171.274l797 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
12229  M01S02172.274l797 +++|*                A - 1, 2, 3, 4, 7.
12230  M01S02173.274l797 +++|*                B - 2.
12231  M01S02174.274l797 +++|
12232  M01S02175.274l797 +++|
12233  M01S02176.274l797 +++| VCD      SUBR               ENTRY/EXIT
12234  M01S02177.274l797 +++|
12235  M01S02178.274l797 +++|*         SET IMPLICIT DEVICE TYPE IF REQUIRED.
12236  M01S02179.274l797 +++|
12237  M01S02180.274l797 +++|          SA1    F+FTAP
12238  M01S02181.274l797 +++|          SA2    TT
12239  M01S02182.274l797 +++|          SA4    DM
12240  M01S02183.274l797 +++|          ZR     X2,VCD1     IF DEVICE TYPE NOT EXPLICITY SPECIFIED
12241  M01S02184.274l797 +++|          ZR     X4,VCD4     IF NO DENSITY SELECTION
12242  M01S02185.274l797 +++|          MX6    -2
12243  M01S02186.274l797 +++|          LX1    -55
12244  M01S02187.274l797 +++|          BX6    -X6*X1      SPECIFIED DEVICE TYPE
12245  M01S02188.274l797 +++|          SB2    X6+59-3
12246  M01S02189.274l797 +++|          LX1    55
12247  M01S02190.274l797 +++|          LX4    B2
12248  M01S02191.274l797 +++|          NG     X4,VCD4     IF DENSITY VALID FOR DEVICE TYPE
12249  M01S02192.274l797 +++|          SB2    /PER/IDD    * INCORRECT DENSITY FOR TAPE DEVICE TYPE.*
12250  M01S02193.274l797 +++|          EQ     PER         PROCESS ERROR
12251  M01S02194.274l797 +++|
12252  M01S02195.274l797 +++| VCD1     ZR     X4,VCD2     IF NO DENSITY SELECTION
12253  M01S02196.274l797 +++|          CX2    X4
12254  M01S02197.274l797 +++|          LX4    47-3
12255  M01S02198.274l797 +++|          SB2    X2+         NUMBER OF DEVICE TYPES VALID FOR SELECTION
12256  M01S02199.274l797 +++|          GT     B2,B1,VCD2  IF DEVICE TYPE NOT DETERMINED BY SELECTION
12257  M01S02200.274l797 +++|          NX4,B2 X4
12258  M01S02201.274l797 +++|          SX2    B2          IMPLICIT DEVICE TYPE
12259  M01S02202.274l797 +++|          EQ     VCD3        SET IMPLICIT DEVICE TYPE
12260  M01S02203.274l797 +++|
12261  M01S02204.274l797 +++| VCD2     SA3    AA
12262  M01S02205.274l797 +++|          ZR     X3,VCD4     IF OPERATOR TO ASSIGN EQUIPMENT
12263  M01S02206.274l797 +++|          SA2    /LWC/IPRL   GET DEFAULT DEVICE TYPE
12264  M01S02207.274l797 +++|          LX2    -4
12265  M01S02208.274l797 +++| VCD3     MX6    -2
12266  M01S02209.274l797 +++|          BX2    -X6*X2
12267  M01S02210.274l797 +++|          LX2    55
12268  M01S02211.274l797 +++|          BX1    X1+X2       SET DEVICE TYPE
12269  M01S02212.274l797 +++|          SX7    1
12270  M01S02213.274l797 +++|          SA7    TT          SET TAPE DEVICE TYPE SPECIFIED
12271  M01S02214.274l797 +++|
12272  M01S02215.274l797 +++|*         SET LABEL TYPE IF REQUIRED.
12273  M01S02216.274l797 +++|
12274  M01S02217.274l797 +++| VCD4     SA2    LT
12275  M01S02218.274l797 +++|          SA3    RT
12276  M01S02219.274l797 +++|          SA4    VP
12277  M01S02220.274l797 +++|          NZ     X2,VCD6     IF LABEL TYPE EXPLICITLY SPECIFIED
12278  M01S02221.274l797 +++|          ZR     X3,VCD5     IF *LABEL* COMMAND
12279  M01S02222.274l797 +++|          ZR     X4,VCD6     IF VSN NOT SPECIFIED
12280  M01S02223.274l797 +++| VCD5     SX7    2           SET STANDARD LABELS
12281  M01S02224.274l797 +++|          LX7    57
12282  M01S02225.274l797 +++|          BX1    X1+X7       SET LABEL TYPE
12283  M01S02226.274l797 +++|
12284  M01S02227.274l797 +++|*         UPDATE FET PARAMETERS.
12285  M01S02228.274l797 +++|
12286  M01S02229.274l797 +++| VCD6     BX7    X1          UPDATE *F+FTAP*
12287  M01S02230.274l797 +++|          SA7    A1
12288  M01S02231.274l797 +++|          EQ     VCDX        RETURN
12289  M01S02232.274l797 +++| VTD      SPACE  4,15
12290  M01S02233.274l797 +++|**        VTD - VERIFY TAPE DESCRIPTORS.
12291  M01S02234.274l797 +++|*
12292  M01S02235.274l797 +++|*         ENTRY  (X1) = TAPE DESCRIPTOR WORD.
12293  M01S02236.274l797 +++|*
12294  M01S02237.274l797 +++|*         EXIT   (B2) = ERROR STATUS.
12295  M01S02238.274l797 +++|*                (X1) = TAPE DESCRIPTOR WORD.
12296  M01S02239.274l797 +++|*                (B3) = TAPE FORMAT.
12297  M01S02240.274l797 +++|*                (B4) = TAPE DEVICE TYPE.
12298  M01S02241.274l797 +++|*
12299  M01S02242.274l797 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
12300  M01S02243.274l797 +++|*                A - 3.
12301  M01S02244.274l797 +++|*                B - 2, 3, 4.
12302  M01S02245.274l797 +++|
12303  M01S02246.274l797 +++|
12304  M01S02247.274l797 +++| VTD      SUBR               ENTRY/EXIT
12305  M01S02248.274l797 +++|          MX6    -6
12306  M01S02249.274l797 +++|          LX1    0-30
12307  M01S02250.274l797 +++|          MX7    -2
12308  M01S02251.274l797 +++|          BX2    -X6*X1      FORMAT
12309  M01S02252.274l797 +++|          SB2    /PER/ITF    * INCORRECT TAPE FORMAT.*
12310  M01S02253.274l797 +++|          SX3    X2-/COMSMTX/TFMA
12311  M01S02254.274l797 +++|          LX1    0-39-0+30
12312  M01S02255.274l797 +++|          PL     X3,VTDX     IF ERROR IN FORMAT
12313  M01S02256.274l797 +++|          BX4    -X7*X1      PO=R AND PO=W FLAGS
12314  M01S02257.274l797 +++|          SB3    X2+         SAVE FORMAT
12315  M01S02258.274l797 +++|          CX4    X4
12316  M01S02259.274l797 +++|          LX1    0-45-0+39
12317  M01S02260.274l797 +++|          SX4    X4-2
12318  M01S02261.274l797 +++|          SB2    /PER/WED    * WRITE ENABLE AND DISABLE OPTIONS...*
12319  M01S02262.274l797 +++|          PL     X4,VTDX     IF WRITE ENABLE AND DISABLE BOTH SELECTED
12320  M01S02263.274l797 +++|          MX6    -3
12321  M01S02264.274l797 +++|          BX4    -X6*X1      PO=I, PO=P, AND PO=S FLAGS
12322  M01S02265.274l797 +++|          CX3    X4
12323  M01S02266.274l797 +++|          AX4    1           REMOVE PO=S FLAG
12324  M00S05851.resex   +++|          SX3    X3-2
Line S05852 Modification History
M01 (Removed by) resex38
Seq #  *Modification Id* Act 
----------------------------+
12325  M01S05852.resex38 ---|          PL     X3,ERR      IF CONFLICTING EOT OPTIONS SELECTED
Line S00010 Modification History
M01 (Added by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12326  M02S00010.274l797 ---|          PL     X3,TBD19    IF CONFLICTING EOT OPTIONS SELECTED
Line S05853 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12327  M01S05853.274l797 ---|          BX5    X2*X5
12328  M01S05854.274l797 ---|          LX1    7
12329  M01S05855.274l797 ---|          MX0    -6
12330  M01S05856.274l797 ---|          BX3    X2*X1       R AND W OPTION
12331  M01S05857.274l797 ---|          LX1    17
12332  M01S05858.274l797 ---|          CX3    X3
12333  M01S05859.274l797 ---|          BX6    X6+X5
12334  M01S05860.274l797 ---|          LX6    12
12335  M01S05861.274l797 ---|          SX3    X3-2
Line S05862 Modification History
M01 (Removed by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12336  M02S05862.274l797 ---|          PL     X3,ERR      IF CONFLICTING R AND W OPTION
Line S00011 Modification History
M01 (Added by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12337  M02S00011.274l797 ---|          PL     X3,TBD19    IF CONFLICTING *R* AND *W* OPTIONS
Line S05863 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12338  M01S05863.274l797 ---|          LX4    36
12339  M01S05864.274l797 ---|          BX6    X6+X4
Line S00080 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12340  M02S00080.274l797 ---|          SA2    F+FTAP      TAPE DESCRIPTOR
Line S05865 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12341  M01S05865.274l797 ---|          BX3    -X0*X1      NOISE
Line S00081 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12342  M02S00081.274l797 ---|          LX2    59-53
12343  M02S00082.274l797 ---|          SX7    B0          9 TRACK PE/GCR NOISE = 0
12344  M02S00083.274l797 ---|          SB3    B0
12345  M02S00084.274l797 ---|          SB4    X3+         SAVE USER SPECIFIED NOISE
12346  M02S00085.274l797 ---|          NG     X2,TBD12    IF 9 TRACK PE/GCR
Line S05866 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12347  M01S05866.274l797 ---|          LX1    3+24        POSITION TRACK BIT
12348  M01S05867.274l797 ---|          SB3    X3
12349  M01S05868.274l797 ---|          GE     B2,TBD11    IF S, L, OR F FORMAT
Line S05869 Modification History
M01 (Removed by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12350  M02S05869.274l797 ---|          NZ     X5,ERR      IF I OR P EOT OPTION SELECTED
Line S00012 Modification History
M01 (Added by) resex38
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12351  M02S00012.274l797 ---|          NZ     X5,TBD19    IF *I* OR *P* EOT OPTION SELECTED
Line S05870 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12352  M01S05870.274l797 ---|          SX7    4           DEFAULT NOISE FILL (I, SI FORMATS)
12353  M01S05871.274l797 ---|          SB3    8
12354  M01S05872.274l797 ---|          PL     X1,TBD12    IF SEVEN TRACK
12355  M01S05873.274l797 ---|          SB3    6
12356  M01S05874.274l797 ---|          EQ     TBD12
Line S02267 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12357  M01S02267.274l797 +++|          SB2    /PER/MET    * MULTIPLE END OF TAPE OPTIONS SELECTED.*
12358  M01S02268.274l797 +++|          PL     X3,VTDX     IF MORE THAN ONE OPTION SELECTED
12359  M01S02269.274l797 +++|          SB2    B3+59-17
12360  M01S02270.274l797 +++|          SX3    160000B     MASK OF FORMATS SUPPORTING PO=I OR PO=P
12361  M01S02271.274l797 +++|          LX1    59-58-0+45
12362  M01S02272.274l797 +++|          LX3    B2
12363  M01S02273.274l797 +++|          ZR     X4,VTD1     IF NEITHER PO=I NOR PO=P SPECIFIED
12364  M01S02274.274l797 +++|          SB2    /PER/IEF    * INCORRECT END OF TAPE OPTION FOR ...*
12365  M01S02275.274l797 +++|          PL     X3,VTDX     IF SELECTED OPTION NOT VALID FOR FORMAT
12366  M01S02276.274l797 +++| VTD1     PL     X1,VTD2     IF NOT LABELED TAPE
12367  M01S02277.274l797 +++|          SX3    B3-/COMSMTX/TFF
12368  M01S02278.274l797 +++|          SB2    /PER/FRU    * FORMAT REQUIRES UNLABELED TAPE.*
12369  M01S02279.274l797 +++|          ZR     X3,VTDX     IF *F* FORMAT
12370  M01S02280.274l797 +++| VTD2     LX1    0-48-59+58
12371  M01S02281.274l797 +++|          MX6    -3
12372  M01S02282.274l797 +++|          BX2    -X6*X1      CONVERSION MODE
12373  M01S02283.274l797 +++|          LX1    0-51-0+48
12374  M01S02284.274l797 +++|          SB2    /PER/ICM    * INCORRECT CONVERSION MODE.*
12375  M01S02285.274l797 +++|          SX3    X2-/COMSMTX/MCCO
12376  M01S02286.274l797 +++|          ZR     X2,VTDX     IF ERROR IN CONVERSION MODE
12377  M01S02287.274l797 +++|          PL     X3,VTDX     IF ERROR IN CONVERSION MODE
12378  M01S02288.274l797 +++|          BX4    -X6*X1      DENSITY
12379  M01S02289.274l797 +++|          LX1    0-55-0+51
12380  M01S02290.274l797 +++|          SX3    X4-/COMSMTX/DMAX
12381  M01S02291.274l797 +++|          SB2    /PER/IDN    * INCORRECT DENSITY*
12382  M01S02292.274l797 +++|          ZR     X4,VTDX     IF ERROR IN DENSITY
12383  M01S02293.274l797 +++|          PL     X3,VTDX     IF ERROR IN DENSITY
12384  M01S02294.274l797 +++|          BX7    -X7*X1      TAPE DEVICE TYPE
12385  M01S02295.274l797 +++|          LX1    55          RESTORE TAPE DESCRIPTORS
12386  M01S02296.274l797 +++|          SB4    X7+         SAVE DEVICE TYPE
12387  M01S02297.274l797 +++|          SX2    X2-/COMSMTX/BCD
12388  M01S02298.274l797 +++|          SB2    /PER/ICD    * INCORRECT CONVERSION MODE FOR TAPE...*
12389  M01S02299.274l797 +++|          NZ     B4,VTD3     IF NOT 7 TRACK DEVICE TYPE
12390  M01S02300.274l797 +++|          ERRNZ  /COMSMTX/DVMT
12391  M01S02301.274l797 +++|          NZ     X2,VTDX     IF NOT 7 TRACK CONVERSION MODE
12392  M01S02302.274l797 +++|          EQ     VTD4        CHECK DEVICE TYPE AND DENSITY
12393  M00S05875.resex   +++|
Line S05876 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12394  M01S05876.274l797 ---| TBD11    NZ     B3,TBD13    IF NOISE SPECIFIED
12395  M01S05877.274l797 ---|          SB3    18
12396  M01S05878.274l797 ---|          SX7    9           DEFAULT NOISE FILL (S, L, F 7-TRACK)
12397  M01S05879.274l797 ---|          PL     X1,TBD12    IF SEVEN TRACK
12398  M01S05880.274l797 ---|          SX7    12          DEFAULT NOISE FILL (S, L, F 9-TRACK)
12399  M01S05881.274l797 ---| TBD12    LX7    12          POSITION NOISE FILL
12400  M01S05882.274l797 ---|          BX6    X6+X7
12401  M01S05883.274l797 ---|          SA6    TB          ENTER TAPE BLOCK DEFINITION
12402  M01S05884.274l797 ---|          LE     B6,B3,TBD17 IF FRAME COUNT .LE. NOISE SIZE
Line S00086 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12403  M02S00086.274l797 ---|          SB2    B0          INDICATE NO ERROR
12404  M02S00087.274l797 ---|          NZ     X7,TBDX     IF NOISE SIZE VALID
12405  M02S00088.274l797 ---|          ZR     X3,TBDX     IF NOISE NOT SPECIFIED
12406  M02S00089.274l797 ---|          MESSAGE (=C* NOISE SIZE IGNORED FOR PE/GE.*),3,R
Line S05885 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12407  M01S05885.274l797 ---|          SB2    B0          INDICATE NO ERROR
12408  M01S05886.274l797 ---|          EQ     TBDX        RETURN
Line S02303 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12409  M01S02303.274l797 +++| VTD3     ZR     X2,VTDX     IF 7 TRACK CONVERSION MODE
12410  M01S02304.274l797 +++| VTD4     SA3    VTDA        GET DENSITY LIMITS
12411  M01S02305.274l797 +++|          SX2    6
12412  M01S02306.274l797 +++|          IX7    X7*X2
12413  M01S02307.274l797 +++|          SB2    X7+6
12414  M01S02308.274l797 +++|          LX3    B2          POSITION DENSITY LIMITS FOR DEVICE TYPE
12415  M01S02309.274l797 +++|          BX2    -X6*X3      MAXIMUM DENSITY
12416  M01S02310.274l797 +++|          LX3    -3
12417  M01S02311.274l797 +++|          BX3    -X6*X3      MINIMUM DENSITY
12418  M01S02312.274l797 +++|          IX2    X2-X4
12419  M01S02313.274l797 +++|          IX3    X4-X3
12420  M01S02314.274l797 +++|          SB2    /PER/IDD    * INCORRECT DENSITY FOR DEVICE TYPE.*
12421  M01S02315.274l797 +++|          NG     X2,VTDX     IF DENSITY .GT. MAXIMUM
12422  M01S02316.274l797 +++|          NG     X3,VTDX     IF DENSITY .LT. MINIMUM
12423  M01S02317.274l797 +++|          SX3    610000B     MASK OF INTERNAL TAPE FORMATS
12424  M01S02318.274l797 +++|          SB2    B3+59-17
12425  M01S02319.274l797 +++|          LX3    B2
12426  M01S02320.274l797 +++|          NG     X3,VTD6     IF INTERNAL TAPE FORMAT
12427  M01S02321.274l797 +++|          SX3    X4-/COMSMTX/DNMX-1
12428  M01S02322.274l797 +++|          PL     X3,VTD5     IF DENSITY DOES NOT SUPPORT NOISE BLOCKS
12429  M01S02323.274l797 +++|          MX6    -6
12430  M01S02324.274l797 +++|          LX1    0-24
12431  M01S02325.274l797 +++|          BX2    -X6*X1      NOISE SIZE
12432  M01S02326.274l797 +++|          LX1    24-0
12433  M01S02327.274l797 +++|          SX6    X2-31-1
12434  M01S02328.274l797 +++|          SB2    /PER/NSL    * NOISE SIZE TOO LARGE.*
12435  M01S02329.274l797 +++|          PL     X6,VTDX     IF NOISE SIZE TOO LARGE
12436  M01S02330.274l797 +++| VTD5     SX3    B3-/COMSMTX/TFF
12437  M01S02331.274l797 +++|          NZ     X3,VTD7     IF NOT *F* FORMAT
12438  M01S02332.274l797 +++|          MX6    -24
12439  M01S02333.274l797 +++|          BX3    -X6*X1      BLOCK SIZE FRAME COUNT
12440  M01S02334.274l797 +++|          SX6    32
12441  M01S02335.274l797 +++|          IX6    X3-X6
12442  M01S02336.274l797 +++|          SB2    /PER/FCS    * FRAME COUNT TOO SMALL.*
12443  M01S02337.274l797 +++|          NG     X6,VTDX     IF FRAME COUNT TOO SMALL
12444  M01S02338.274l797 +++|          SA2    VTDB+B4     GET MAXIMUM FRAME COUNT FOR DEVICE TYPE
12445  M01S02339.274l797 +++|          IX2    X2-X3
12446  M01S02340.274l797 +++|          SB2    /PER/FCL    * FRAME COUNT TOO LARGE.*
12447  M01S02341.274l797 +++|          PL     X2,VTD7     IF FRAME COUNT NOT TOO LARGE
12448  M01S02342.274l797 +++|          EQ     VTDX        RETURN WITH ERROR
12449  M00S05887.resex   +++|
Line S05888 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12450  M01S05888.274l797 ---| TBD13    BX5    X3          CALCULATE NOISE BLOCK SIZE
12451  M01S05889.274l797 ---|          SX4    X3+B1
12452  M01S05890.274l797 ---|          PL     X1,TBD14    IF SEVEN TRACK
Line S02343 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12453  M01S02343.274l797 +++| VTD6     SX2    B3-/COMSMTX/TFLI
12454  M01S02344.274l797 +++|          NZ     X2,VTD7     IF NOT *LI* FORMAT
12455  M01S02345.274l797 +++|          SX3    X4-/COMSMTX/DLIMN
12456  M01S02346.274l797 +++|          SB2    /PER/IDF    * INCORRECT DENSITY FOR FORMAT.*
12457  M01S02347.274l797 +++|          NG     X3,VTDX     IF DENSITY .LT. *LI* FORMAT MINIMUM
12458  M01S02348.274l797 +++| VTD7     SB2    B0          SET NO ERROR
12459  M01S02349.274l797 +++|          EQ     VTDX        RETURN
12460  M00S05891.resex   +++|
Line S05892 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12461  M01S05892.274l797 ---|*         NINE TRACK NOISE FORMULAE.
12462  M01S05893.274l797 ---|*         NOISE = 2(NS+1)/3.
12463  M01S05894.274l797 ---|*         FILL IF NS-(NOISE*3)/2 NEGATIVE.
12464  M00S05895.resex   +++|
Line S05896 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12465  M01S05896.274l797 ---|          LX4    1
12466  M01S05897.274l797 ---|          SX7    3
12467  M01S05898.274l797 ---|          IX3    X4/X7
12468  M01S05899.274l797 ---|          MX0    0
12469  M01S05900.274l797 ---|          LX7    X3,B1
12470  M01S05901.274l797 ---|          IX7    X7+X3
12471  M01S05902.274l797 ---|          AX7    1
12472  M01S05903.274l797 ---|          EQ     TBD15
Line S02350 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12473  M01S02350.274l797 +++| VTDA     BSS    0           DENSITY LIMITS BY TAPE DEVICE TYPE
12474  M01S02351.274l797 +++|          VFD    3//COMSMTX/D7MN,3//COMSMTX/D7MX    *MT* LIMITS
12475  M01S02352.274l797 +++|          VFD    3//COMSMTX/D18MN,3//COMSMTX/D18MX  *CT* LIMITS
12476  M01S02353.274l797 +++|          VFD    3//COMSMTX/D9MN,3//COMSMTX/D9MX    *NT* LIMITS
12477  M01S02354.274l797 +++|          VFD    3//COMSMTX/D18MN,3//COMSMTX/D18MX  *AT* LIMITS
12478  M01S02355.274l797 +++|          VFD    36/0
12479  M00S05904.resex   +++|
Line S05905 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12480  M01S05905.274l797 ---|*         SEVEN TRACK NOISE FORMULAE.
12481  M01S05906.274l797 ---|*         NOISE = (NS+1)/2.
12482  M01S05907.274l797 ---|*         FILL IF NS-(NOISE*2) NEGATIVE.
Line S02356 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12483  M01S02356.274l797 +++| VTDB     BSS    0           MAXIMUM FRAME COUNT BY TAPE DEVICE TYPE
12484  M01S02357.274l797 +++|          CON    377700B*60/6   MAXIMUM *MT* FRAME COUNT
12485  M01S02358.274l797 +++|          CON    377700B*60/16  MAXIMUM *CT* FRAME COUNT
12486  M01S02359.274l797 +++|          CON    377700B*60/8   MAXIMUM *NT* FRAME COUNT
12487  M01S02360.274l797 +++|          CON    377700B*60/16  MAXIMUM *AT* FRAME COUNT
12488  M01S02361.274l797 +++|          SPACE  4,10
12489  M01S02362.274l797 +++|**        GLOBAL DATA.
12490  M00S05908.resex   +++|
Line S05909 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12491  M01S05909.274l797 ---| TBD14    AX3    X4,B1
12492  M01S05910.274l797 ---|          LX7    X3,B1
12493  M01S05911.274l797 ---|          MX0    0
12494  M00S05912.resex   +++|
Line S05913 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
12495  M01S05913.274l797 ---| TBD15    IX7    X5-X7
12496  M01S05914.274l797 ---|          PL     X7,TBD16    IF FILL NOT PERMITTED
12497  M01S05915.274l797 ---|          SX0    B1
12498  M01S05916.274l797 ---| TBD16    MX1    -5
12499  M01S05917.274l797 ---|          BX7    X1*X3
12500  M01S05918.274l797 ---|          NZ     X7,TBD17    IF NOISE TOO LARGE
12501  M01S05919.274l797 ---|          LX0    5           SET FILL
12502  M01S05920.274l797 ---|          BX7    X0+X3
12503  M01S05921.274l797 ---|          EQ     TBD12
12504  M01S05922.274l797 ---|
12505  M01S05923.274l797 ---|
Proceed to Part 11
cdc/nos2.source/opl.opl871/deck/resex.010.txt ยท Last modified: (external edit)