Deck LFM Part 002

48 Modifications

Seq #  *Modification Id* Act 
----------------------------+
02969  M01S02283.lfm     +++|*                (FS - FS+4) = FST ENTRY.
02970  M01S00051.v23l617 +++|*                (ST) = FILE STATUS
02971  M01S00110.274l797 +++|*                (SX) = EXTENDED FILE STATUS
02972  M01S00052.v23l617 +++|*                (UD - UD+4) = WORD *UVSN* FROM THE UDT
02973  M01S02284.lfm     +++|*
02974  M01S02285.lfm     +++|*         EXIT   (CN - CN+4) = RETURNED KEY WORD.
02975  M01S02286.lfm     +++|*                TO *RFI29*, IF KEY NOT APPLICABLE FOR FILE TYPE.
02976  M01S02287.lfm     +++|*                TO *RFI30*, TO PROCESS NEXT KEY WORD.
02977  M01S02288.lfm     +++|*
02978  M01S02289.lfm     +++|*         NOTES  KEY WORD PROCESSORS CAN USE THE FOLLOWING
02979  M01S02290.lfm     +++|*                DIRECT CELLS -
02980  M01S02291.lfm     +++|*                EQ, OC, CM - CM+4, CN - CN+4, RI - RI+1.
02981  M01S02292.lfm     +++| RFI      SPACE  4,10
02982  M01S02293.lfm     +++|**        KEY 1.
02983  M01S02294.lfm     +++|*         RETURN TAPE FORMAT.
02984  M01S02295.lfm     +++|
02985  M01S02296.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02986  M02S02297.v23l617 ---| RFI34    LDD    FT          CHECK FILE TYPE

Seq #  *Modification Id* Act 
----------------------------+
02987  M02S00053.274l797 ---| RFI34    LDD    ST          CHECK FILE TYPE

Seq #  *Modification Id* Act 
----------------------------+
02988  M02S02298.274l797 ---|          LPC    300
02989  M01S00111.274l797 +++| RFI34    LDD    SX          CHECK FILE TYPE
02990  M01S00112.274l797 +++|          LPN    1
02991  M01S02299.lfm     +++|          ZJN    RFI35       IF NOT TAPE FILE
02992  M01S02300.lfm     +++|          LDD    FS+2        DATA FORMAT
02993  M01S02301.lfm     +++|          SHN    -10
02994  M01S02302.lfm     +++|          SHN    6
02995  M01S02303.lfm     +++|          RAD    CN+4
02996  M01S02304.lfm     +++|          LJM    RFI30       GET NEXT WORD
02997  M01S02305.lfm     +++|
02998  M01S02306.lfm     +++| RFI35    LJM    RFI29       SET KEY NOT DEFINED FLAG
02999  M01S02307.lfm     +++| RFI      SPACE  4,10
03000  M01S02308.lfm     +++|**        KEY 2.
03001  M01S02309.lfm     +++|*         RETURN LABEL TYPE, DENSITY, CONVERSION MODE, AND
03002  M01S02310.lfm     +++|*         INHIBIT ERROR PROCESSING BIT.
03003  M01S02311.lfm     +++|
03004  M01S02312.lfm     +++|
03005  M01S02313.lfm     +++| RFI36    RJM    TAI         TRANSFER ADDITIONAL TAPE INFORMATION
03006  M01S02314.lfm     +++|          ZJN    RFI35       IF NOT TAPE FILE

Seq #  *Modification Id* Act 
----------------------------+
03007  M02S02315.282l826 ---|          LDM    FIPB+4

Seq #  *Modification Id* Act 
----------------------------+
03008  M02S02316.282l826 ---|          SHN    21-13
03009  M01S00016.282l826 +++|          LDM    FIPB+2*5
03010  M01S00017.282l826 +++|          SHN    21-12
03011  M01S02317.lfm     +++|          PJN    RFI39       IF UNLABELED

Seq #  *Modification Id* Act 
----------------------------+
03012  M02S02318.282l826 ---|          SHN    21-12-21+13
03013  M01S00018.282l826 +++|          SHN    21-11-21+12
03014  M01S02319.lfm     +++|          PJN    RFI37       IF STANDARD LABEL
03015  M01S02320.lfm     +++|          LDN    14
03016  M01S02321.lfm     +++|          UJN    RFI38       SET LABEL TYPE
03017  M01S02322.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
03018  M02S02323.282l826 ---| RFI37    SHN    0-10-21+12+22

Seq #  *Modification Id* Act 
----------------------------+
03019  M02S02324.282l826 ---|          LPN    3

Seq #  *Modification Id* Act 
----------------------------+
03020  M02S02325.282l826 ---|          ADN    1
03021  M01S00019.282l826 +++| RFI37    LDN    1           SET ANSI LABELS
03022  M01S02326.lfm     +++| RFI38    STD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
03023  M02S02327.282l826 ---| RFI39    LDM    FIPB+2*5+4  ERROR PROCESSING INHIBITED
03024  M01S00020.282l826 +++| RFI39    LDM    FIPB+2*5+1  ERROR PROCESSING INHIBITED
03025  M01S02328.lfm     +++|          LPN    4
03026  M01S02329.lfm     +++|          SHN    6-2
03027  M01S02330.lfm     +++|          RAD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
03028  M02S02331.282l826 ---|          LDM    FIPB+1*5+4  CONVERT DENSITY

Seq #  *Modification Id* Act 
----------------------------+
03029  M02S02332.282l826 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
03030  M02S00021.lfm25   ---|          LDM    FIPB+3*5+4  CONVERT DENSITY
03031  M01S00007.lfm25   +++|          LDM    FIPB+3*5    CONVERT DENSITY
03032  M01S00022.282l826 +++|          SHN    -3
03033  M01S00023.282l826 +++|          LPN    7
03034  M01S02333.lfm     +++|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
03035  M02S02334.282l826 ---|          LDM    FIPB+1*5+4  CONVERT CONVERSION MODE

Seq #  *Modification Id* Act 
----------------------------+
03036  M03S02335.282l826 ---|          ZJN    RFI40       IF NO CONVERSION MODE

Seq #  *Modification Id* Act 
----------------------------+
03037  M02S00113.282l826 ---|          ZJN    RFI39.1     IF NO CONVERSION MODE

Seq #  *Modification Id* Act 
----------------------------+
03038  M02S00024.lfm25   ---|          LDM    FIPB+3*5+4  CONVERT CONVERSION MODE
03039  M01S00008.lfm25   +++|          LDM    FIPB+3*5    CONVERT CONVERSION MODE
03040  M01S00025.282l826 +++|          LPN    7
03041  M01S02336.lfm     +++|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
03042  M02S02337.282l826 ---|          LPN    7

Seq #  *Modification Id* Act 
----------------------------+
03043  M02S02338.274l797 ---| RFI40    LMM    TDEN-1,T2
03044  M01S00114.274l797 +++| RFI39.1  LMM    TDEN-1,T2
03045  M01S02339.lfm     +++|          SHN    6
03046  M01S02340.lfm     +++|          RAD    CN+4        MERGE DENSITY, CONVERSION MODE, AND KEY
03047  M01S02341.lfm     +++|          LJM    RFI30       RETURN KEY WORD
03048  M01S00115.274l797 +++| RFI      SPACE  4,20
03049  M01S00116.274l797 +++|**        KEY 4.
03050  M01S00117.274l797 +++|*         RETURN CURRENT VSN AND REEL NUMBER.
03051  M01S00118.274l797 +++|
03052  M01S00119.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
03053  M02S00120.lfm25   ---| RFI40    LDD    SX          CHECK FILE TYPE

Seq #  *Modification Id* Act 
----------------------------+
03054  M02S00121.lfm25   ---|          LPN    1
03055  M01S00009.lfm25   +++| RFI40    RJM    TAI         TRANSFER ADDITIONAL TAPE INFORMATION
03056  M01S00122.274l797 +++|          ZJN    RFI40.1     IF NOT TAPE FILE
03057  M01S00123.274l797 +++|          LDD    UD          MOVE VSN TO KEY WORD
03058  M01S00124.274l797 +++|          STD    CN
03059  M01S00125.274l797 +++|          LDD    UD+1
03060  M01S00126.274l797 +++|          STD    CN+1
03061  M01S00127.274l797 +++|          LDD    UD+2
03062  M01S00128.274l797 +++|          STD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
03063  M02S00129.lfm25   ---|          LDD    UD+4        UDT REEL NUMBER
03064  M01S00010.lfm25   +++|          LDM    FIPB+4*5+3  UDT REEL NUMBER
03065  M01S00130.274l797 +++|          ADN    1
03066  M01S00131.274l797 +++|          STD    CN+3        ACTUAL REEL NUMBER TO KEY WORD
03067  M01S00132.274l797 +++|          LJM    RFI30       RETURN KEY WORD
03068  M01S00133.274l797 +++|
03069  M01S00134.274l797 +++| RFI40.1  LJM    RFI29       SET KEY NOT DEFINED FLAG
03070  M01S02342.lfm     +++| RFI      SPACE  4,15
03071  M01S02343.lfm     +++|**        KEY 14B.
03072  M01S02344.lfm     +++|*         RETURN BLOCK SIZE, PROCESSING OPTIONS, AND NOISE SIZE.
03073  M01S02345.lfm     +++|*
03074  M01S02346.lfm     +++|*         NOTES  TO CONVERT NOISE BYTES (NB) AND FILL STATUS FIELDS
03075  M01S02347.lfm     +++|*                IN UDT WORD UST4 BACK TO NOISE SIZE (NS) IN FRAMES,
03076  M01S02348.lfm     +++|*                THE FOLLOWING FORMULAS ARE USED.
03077  M01S02349.lfm     +++|*                7-TRACK FORMULA -
03078  M01S02350.lfm     +++|*                    NS = NB * 2
03079  M01S02351.lfm     +++|*                    IF FILL STATUS, NS = NS - 1 = NB * 2 - 1
03080  M01S02352.lfm     +++|*                9-TRACK FORMULA -
03081  M01S02353.lfm     +++|*                    NS = ( NB * 3 ) / 2
03082  M01S02354.lfm     +++|*                    IF FILL STATUS, NS = NS - 1 = ( NB * 3 ) / 2 - 1
03083  M01S02355.lfm     +++|
03084  M01S02356.lfm     +++|
03085  M01S02357.lfm     +++| RFI41    RJM    TAI         TRANSFER ADDITIONAL TAPE INFORMATION
03086  M01S02358.lfm     +++|          NJN    RFI42       IF TAPE FILE
03087  M01S02359.lfm     +++|          LJM    RFI29       SET KEY NOT DEFINED FLAG
03088  M01S02360.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
03089  M02S02361.274l797 ---| RFI42    LDM    FIPB+2*5+3  FILL STATUS BIT
03090  M01S00135.274l797 +++| RFI42    LDD    SX
03091  M01S00136.274l797 +++|          LPN    2
03092  M01S00137.274l797 +++|          NJN    RFI44.1     IF CARTRIDGE TAPE (*CT* OR *AT*)

Seq #  *Modification Id* Act 
----------------------------+
03093  M02S00138.282l826 ---|          LDM    FIPB+2*5+3  FILL STATUS BIT
03094  M01S00026.282l826 +++|          LDM    FIPB+2*5+2  FILL STATUS BIT
03095  M01S02362.lfm     +++|          LPN    40
03096  M01S02363.lfm     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
03097  M02S02364.282l826 ---|          LDM    FIPB+2*5+3  NOISE SIZE IN BYTES
03098  M01S00027.282l826 +++|          LDM    FIPB+2*5+2  NOISE SIZE IN BYTES
03099  M01S02365.lfm     +++|          LPN    37
03100  M01S02366.lfm     +++|          STD    T2
03101  M01S02367.lfm     +++|          SHN    1           NB * 2
03102  M01S02368.lfm     +++|          STD    T3

Seq #  *Modification Id* Act 
----------------------------+
03103  M02S02369.v23l617 ---|          LDD    FT
03104  M01S00054.v23l617 +++|          LDD    ST
03105  M01S02370.lfm     +++|          SHN    21-6
03106  M01S02371.lfm     +++|          MJN    RFI43       IF 7-TRACK
03107  M01S02372.lfm     +++|          LDD    T2
03108  M01S02373.lfm     +++|          ADD    T3          NB + NB * 2
03109  M01S02374.lfm     +++|          SHN    -1          ( NB * 3 ) / 2
03110  M01S02375.lfm     +++|          STD    T3
03111  M01S02376.lfm     +++| RFI43    LDD    T1
03112  M01S02377.lfm     +++|          ZJN    RFI44       IF NO FILL STATUS
03113  M01S02378.lfm     +++|          SOD    T3
03114  M01S02379.lfm     +++| RFI44    LDD    T3          MERGE NOISE SIZE AND KEY
03115  M01S02380.lfm     +++|          SHN    6
03116  M01S02381.lfm     +++|          RAD    CN+4

Seq #  *Modification Id* Act 
----------------------------+
03117  M02S02382.274l797 ---|          LDM    FIPB+2*5+4

Seq #  *Modification Id* Act 
----------------------------+
03118  M02S00139.282l826 ---| RFI44.1  LDM    FIPB+2*5+4

Seq #  *Modification Id* Act 
----------------------------+
03119  M02S00028.lfm25   ---| RFI44.1  LDM    FIPB+2*5+1

Seq #  *Modification Id* Act 
----------------------------+
03120  M02S02383.lfm25   ---|          SHN    -12

Seq #  *Modification Id* Act 
----------------------------+
03121  M02S02384.lfm25   ---|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
03122  M03S02385.lfm25   ---|          LDM    FIPB+2*5+4  CONVERT PROCESSING OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
03123  M02S00029.lfm25   ---|          LDM    FIPB+2*5+1  CONVERT PROCESSING OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
03124  M02S02386.lfm25   ---|          LPC    777

Seq #  *Modification Id* Act 
----------------------------+
03125  M02S02387.lfm25   ---|          LMM    TERL,T2
03126  M01S00011.lfm25   +++| RFI44.1  LDM    FIPB+2*5+1  SET PROCESSING OPTIONS
03127  M01S02388.lfm     +++|          STD    CN+3
03128  M01S02389.lfm     +++|
03129  M01S02390.lfm     +++|*         RETURN BLOCK SIZE (IN CM WORDS).

Seq #  *Modification Id* Act 
----------------------------+
03130  M02S02391.274l797 ---|*         BLOCK SIZE = BLOCK WORD COUNT + CHUNK COUNT * 634B.
03131  M01S00140.274l797 +++|*         BLOCK SIZE = BLOCK WORD COUNT + CHUNK COUNT * 600B.
03132  M01S02392.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
03133  M02S02393.282l826 ---|          LDM    FIPB+2*5    BLOCK WORD COUNT
03134  M01S00030.282l826 +++|          LDM    FIPB+2*5+3  BLOCK WORD COUNT
03135  M01S02394.lfm     +++|          STD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
03136  M02S02395.282l826 ---|          LDM    FIPB+2*5+1  CHUNK COUNT
03137  M01S00031.282l826 +++|          LDM    FIPB+2*5+4  CHUNK COUNT
03138  M01S02396.lfm     +++|          ZJN    RFI46       IF NOT LONG BLOCK
03139  M01S02397.lfm     +++|          STD    T2
03140  M01S02398.lfm     +++| RFI45    LDC    /MTX/LBWD
03141  M01S02399.lfm     +++|          RAD    CN+2
03142  M01S02400.lfm     +++|          SHN    -14
03143  M01S02401.lfm     +++|          RAD    CN+1
03144  M01S02402.lfm     +++|          SOD    T2
03145  M01S02403.lfm     +++|          NJN    RFI45       IF OVERFLOW COUNT NOT EXHAUSTED
03146  M01S02404.lfm     +++| RFI46    LJM    RFI30       RETURN KEY WORD
03147  M01S00030.241l630 +++|          SPACE  4,10
03148  M01S00031.241l630 +++|**        KEY 15B.
03149  M01S00032.241l630 +++|*         RETURN DIRECT ACCESS FILE VALIDATION SIZE AND ACCESS LEVEL.
03150  M01S00033.241l630 +++|
03151  M01S00034.241l630 +++| RFI49    NFA    FA,R
03152  M01S00035.241l630 +++|          ADK    FNTL
03153  M01S00036.241l630 +++|          CRD    CM          GET FILE TYPE
03154  M01S00037.241l630 +++|          ADK    FUTL-FNTL
03155  M01S00038.241l630 +++|          CRM    FIPB,ON     GET ACCESS LEVEL/FILE SIZE INDEX
03156  M01S00039.241l630 +++|          LDM    FIPB+2      SAVE ACCESS LEVEL IN PARAMETER BLOCK
03157  M01S00040.241l630 +++|          LPN    7
03158  M01S00041.241l630 +++|          SHN    6
03159  M01S00042.241l630 +++|          RAD    CN+4
03160  M01S00043.241l630 +++|          LDD    CM+4        CHECK FILE TYPE
03161  M01S00044.241l630 +++|          SHN    -6
03162  M01S00045.241l630 +++|          LMN    PMFT
03163  M01S00046.241l630 +++|          NJN    RFI51       IF NOT A DIRECT ACCESS FILE
03164  M01S00047.241l630 +++|          LDM    FIPB+2      CHECK FILE SIZE INDEX
03165  M01S00048.241l630 +++|          SHN    -6
03166  M01S00049.241l630 +++|          LPN    7
03167  M01S00050.241l630 +++|          NJN    RFI50       IF INDEX IS NOT SYSTEM CONTROLLED
03168  M01S00051.241l630 +++|          LDD    CP          GET EJT ORDINAL
03169  M01S00052.241l630 +++|          ADN    TFSW
03170  M01S00053.241l630 +++|          CRD    CM
03171  M01S00054.241l630 +++|          SFA    EJT,CM      GET SERVICE CLASS
03172  M01S00055.241l630 +++|          ADK    SCLE
03173  M01S00056.241l630 +++|          CRD    CM
03174  M01S00057.241l630 +++|          LDD    CM
03175  M01S00058.241l630 +++|          SHN    -6
03176  M01S00059.241l630 +++|          RJM    RJC         GET ADDRESS OF JOB CONTROL BLOCK
03177  M01S00060.241l630 +++|          ZJN    RFI51       IF NO JCB FOR SERVICE CLASS
03178  M01S00061.241l630 +++|          ADK    PFCT        READ DIRECT ACCESS FILE SIZE LIMIT
03179  M01S00062.241l630 +++|          CRD    CM
03180  M01S00063.241l630 +++|          LDD    CM
03181  M01S00064.241l630 +++|          SHN    -11
03182  M01S00065.241l630 +++| RFI50    SHN    1           OFFSET INTO *TDMS*
03183  M01S00066.241l630 +++|          STD    T2
03184  M01S00067.241l630 +++|          LDM    TMDS,T2     SAVE DIRECT ACCESS VALIDATION
03185  M01S00068.241l630 +++|          STD    CN+2
03186  M01S00069.241l630 +++|          LDM    TMDS+1,T2
03187  M01S00070.241l630 +++|          STD    CN+3
03188  M01S00071.241l630 +++| RFI51    LJM    RFI30       RETURN KEYWORD
03189  M01S00141.274l797 +++| RFI      SPACE  4,10
03190  M01S00142.274l797 +++|**        KEY 16B.    SPACE REMAINING ON OPTICAL DISK
03191  M01S00143.274l797 +++|*
03192  M01S00144.274l797 +++|*         48/ SPACE, 6/ 0, 6/16B
03193  M01S00145.274l797 +++|*                SPACE = NUMBER OF SECTORS REMAINING IN FILE IF THIS
03194  M01S00146.274l797 +++|*                        FILE IS OPEN FOR WRITE.
03195  M01S00147.274l797 +++|*                      = NUMBER OF SECTORS REMAINING IN PARTITION OR
03196  M01S00148.274l797 +++|*                        NUMBER OF PRE-ALLOCATED SECTORS REMAINING IF
03197  M01S00149.274l797 +++|*                        THIS FILE IS NOT OPEN.
03198  M01S00150.274l797 +++|
03199  M01S00151.274l797 +++|
03200  M01S00152.274l797 +++| RFI60    NFA    FA,A        GET CURRENT POSITION
03201  M01S00153.274l797 +++|          ADK    FSTL
03202  M01S00154.274l797 +++|          CRD    T0
03203  M01S00155.274l797 +++|          ADK    FUTL-FSTL   GET STARTING DISK ADDRESS AND SIZE
03204  M01S00156.274l797 +++|          CRD    CM
03205  M01S00157.274l797 +++|          LDD    CM+4        COMPUTE SPACE REMAINING
03206  M01S00158.274l797 +++|          SBD    T2
03207  M01S00159.274l797 +++|          STD    CN+3
03208  M01S00160.274l797 +++|          SHN    -12         SAVE REMAINDER
03209  M01S00161.274l797 +++|          LPN    1
03210  M01S00162.274l797 +++|          ADD    T1
03211  M01S00163.274l797 +++|          LDD    CM+3
03212  M01S00164.274l797 +++|          SBD    T1
03213  M01S00165.274l797 +++|          STD    CN+2
03214  M01S00166.274l797 +++|          LJM    RFI30       RETURN KEYWORD

Seq #  *Modification Id* Act 
----------------------------+
03215  M02S02405.274l797 ---| SLF      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
03216  M02S00055.274l797 ---|**        KEY 4.

Seq #  *Modification Id* Act 
----------------------------+
03217  M02S00056.274l797 ---|*         RETURN CURRENT VSN AND REEL NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
03218  M02S00057.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
03219  M02S00058.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
03220  M02S00059.274l797 ---| RFI47    LDD    ST          CHECK FILE TYPE

Seq #  *Modification Id* Act 
----------------------------+
03221  M02S00060.274l797 ---|          LPC    300

Seq #  *Modification Id* Act 
----------------------------+
03222  M02S00061.274l797 ---|          ZJN    RFI48       IF NOT TAPE FILE

Seq #  *Modification Id* Act 
----------------------------+
03223  M02S00062.274l797 ---|          LDD    UD          MOVE VSN TO KEY WORD

Seq #  *Modification Id* Act 
----------------------------+
03224  M02S00063.274l797 ---|          STD    CN

Seq #  *Modification Id* Act 
----------------------------+
03225  M02S00064.274l797 ---|          LDD    UD+1

Seq #  *Modification Id* Act 
----------------------------+
03226  M02S00065.274l797 ---|          STD    CN+1

Seq #  *Modification Id* Act 
----------------------------+
03227  M02S00066.274l797 ---|          LDD    UD+2

Seq #  *Modification Id* Act 
----------------------------+
03228  M02S00067.274l797 ---|          STD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
03229  M02S00068.274l797 ---|          LDD    UD+4        UDT REEL NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03230  M02S00069.274l797 ---|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
03231  M02S00070.274l797 ---|          STD    CN+3        ACTUAL REEL NUMBER TO KEY WORD

Seq #  *Modification Id* Act 
----------------------------+
03232  M02S00071.274l797 ---|          LJM    RFI30       RETURN KEY WORD

Seq #  *Modification Id* Act 
----------------------------+
03233  M02S00072.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
03234  M02S00073.274l797 ---| RFI48    LJM    RFI29       SET KEY NOT DEFINED FLAG

Seq #  *Modification Id* Act 
----------------------------+
03235  M02S00074.274l797 ---|          SPACE  4,10
03236  M01S00167.274l797 +++| SLF      SPACE  4,10
03237  M01S02406.lfm     +++|***       SLF - FUNCTION 33B.
03238  M01S02407.lfm     +++|*         SET LAST FILE EXECUTED.
03239  M01S02408.lfm     +++|*
03240  M01S02409.lfm     +++|*         SET FNT POINTER IN THE CONTROL POINT AREA TO INDICATE
03241  M01S02410.lfm     +++|*         THE FILE FROM WHICH THE LAST MAIN PROGRAM WAS LOADED.
03242  M01S02411.lfm     +++|*
03243  M01S02412.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
03244  M01S02413.lfm     +++|*                FET MUST BE SET BUSY ON ENTRY.
03245  M01S02414.lfm     +++|*
03246  M01S02415.lfm     +++|*         EXIT   CPA UPDATED, IF NO ERRORS.
03247  M01S02416.lfm     +++|*
03248  M01S02417.lfm     +++|*         ERROR  TO *ERR*, IF ERRORS.
03249  M01S02418.lfm     +++|*
03250  M01S02419.lfm     +++|*         USES   CM - CM+4, FN - FN+4.
03251  M01S02420.lfm     +++|*
03252  M01S02421.lfm     +++|*         CALLS  CPA, SIF.
03253  M01S02422.lfm     +++|
03254  M01S02423.lfm     +++|
03255  M01S02424.lfm     +++|          ENTRY  SLF
03256  M01S02425.lfm     +++|          LDD    CP          CHECK FOR SSJ=
03257  M01S02426.lfm     +++|          ADC    SEPW
03258  M01S02427.lfm     +++|          CRD    CM
03259  M01S02428.lfm     +++|          LDD    CM
03260  M01S02429.lfm     +++|          SHN    21-2
03261  M01S02430.lfm     +++|          MJN    SLF1        IF SSJ= PRESENT

Seq #  *Modification Id* Act 
----------------------------+
03262  M02S02431.v23l617 ---|          LDN    /ERR/IUA    * ILLEGAL USER ACCESS.*
03263  M01S00075.v23l617 +++|          LDN    /ERR/IUA    * USER ACCESS NOT VALID.*
03264  M01S02432.lfm     +++|          UJN    SLF2        PROCESS ERROR
03265  M01S02433.lfm     +++|
03266  M01S02434.lfm     +++| SLF1     RJM    CPA         READ FET+0
03267  M01S02435.lfm     +++|          CRD    FN
03268  M01S02436.lfm     +++|          LDD    FN+4        CHECK COMPLETE BIT
03269  M01S02437.lfm     +++|          LPN    1
03270  M01S02438.lfm     +++|          ZJN    SLF3        IF FET BUSY
03271  M01S02439.lfm     +++|          LDN    /ERR/PBB    * PARAMETER BLOCK BUSY.*
03272  M01S02440.lfm     +++| SLF2     LJM    ERR         PROCESS ERROR
03273  M01S02441.lfm     +++|
03274  M01S02442.lfm     +++| SLF3     LDD    FF          SEARCH FOR FILE
03275  M01S02443.lfm     +++|          RJM    SIF
03276  M01S02444.lfm     +++|          LDD    CP          UPDATE CPA
03277  M01S02445.lfm     +++|          ADC    EOCW
03278  M01S02446.lfm     +++|          CRD    CM
03279  M01S02447.lfm     +++|          LDD    FA
03280  M01S02448.lfm     +++|          STD    CM
03281  M01S02449.lfm     +++|          LDD    CP
03282  M01S02450.lfm     +++|          ADC    EOCW
03283  M01S02451.lfm     +++|          CWD    CM
03284  M01S02452.lfm     +++|          LJM    LFMX        RETURN
03285  M01S02453.lfm     +++| TAFT     SPACE  4,10
03286  M01S02454.lfm     +++|**        TAFT - TABLE OF FILE TYPES.
03287  M01S02455.lfm     +++|
03288  M01S02456.lfm     +++|
03289  M01S02457.lfm     +++| TAFT     BSS    0
03290  M01S02458.lfm     +++|          LOC    0
03291  M01S02459.lfm     +++|          CON    LOFT        LOCAL
03292  M01S02460.lfm     +++|          CON    INFT        INPUT
03293  M01S02461.lfm     +++|          CON    QFFT        QUEUED
03294  M01S02462.lfm     +++|          CON    7777        RESERVED
03295  M01S02463.lfm     +++|          CON    PMFT        PERMANENT (DIRECT)
03296  M01S02464.lfm     +++|          CON    7777        RESERVED
03297  M01S02465.lfm     +++|          CON    PTFT        PRIMARY
03298  M01S02466.lfm     +++|          CON    LIFT        LIBRARY
03299  M01S02467.lfm     +++|          LOC    *O
03300  M01S02468.lfm     +++| TAFTL    EQU    *-TAFT
03301  M01S02469.lfm     +++| TAFM     SPACE  4,10
03302  M01S02470.lfm     +++|**        TAFM - TABLE OF FILE MODES.
03303  M01S02471.lfm     +++|*
03304  M01S02472.lfm     +++|*         TABLE IS IN THE FOLLOWING FORMAT.
03305  M01S02473.lfm     +++|*
03306  M01S02474.lfm     +++|*         6/BS,6/FM
03307  M01S02475.lfm     +++|*
03308  M01S02476.lfm     +++|*         WHERE  BS = BITS TO SET IN PARAMETER BLOCK TO INDICATE
03309  M01S02477.lfm     +++|*                     FILE MODE.
03310  M01S02478.lfm     +++|*                FM = FILE ACCESS MODE OBTAINED FROM THE *FNT*.
03311  M01S02479.lfm     +++|
03312  M01S02480.lfm     +++|
03313  M01S02481.lfm     +++| TAFM     BSS    0
03314  M01S02482.lfm     +++|          LOC    0
03315  M01S02483.lfm     +++|          VFD    6/1,6/1     READ
03316  M01S02484.lfm     +++|          VFD    6/17,6/0    WRITE
03317  M01S02485.lfm     +++|          VFD    6/5,6/20    APPEND
03318  M01S02486.lfm     +++|          VFD    6/15,6/30   MODIFY

Seq #  *Modification Id* Act 
----------------------------+
03319  M02S02487.ns21000 ---|          VFD    6/21,6/31   READ/ALLOW MODIFY
03320  M01S00001.ns21000 +++|          VFD    6/61,6/31   READ/ALLOW MODIFY
03321  M01S02488.lfm     +++|          VFD    6/41,6/21   READ/ALLOW APPEND

Seq #  *Modification Id* Act 
----------------------------+
03322  M02S02489.v23l617 ---|          VFD    6/0,6/5     EXECUTE
03323  M01S00076.v23l617 +++|          VFD    6/0,6/4     EXECUTE (INDIRECT ACCESS PERMANENT FILE)
03324  M01S00077.v23l617 +++|          VFD    6/0,6/5     EXECUTE (DIRECT ACCESS PERMANENT FILE)
03325  M01S00002.ns21000 +++|          VFD    6/11,6/10   UPDATE
03326  M01S00003.ns21000 +++|          VFD    6/21,6/11   READ/ALLOW UPDATE
03327  M01S02490.lfm     +++|          LOC    *O
03328  M01S02491.lfm     +++| TAFML    EQU    *-TAFM
03329  M01S02492.lfm     +++| TAPK     SPACE  4,10
03330  M01S02493.lfm     +++|**        TAPK - TABLE OF PARAMETER BLOCK KEYS.
03331  M01S02494.lfm     +++|*
03332  M01S02495.lfm     +++|*T        12/ KEY, 12/ PRAD

Figure

03333  M01S02496.lfm     +++|*         KEY    *FILINFO* ADDITIONAL INFORMATION KEY
03334  M01S02497.lfm     +++|*         PRAD   KEY WORD PROCESSOR ADDRESS.
03335  M01S02498.lfm     +++|
03336  M01S02499.lfm     +++|
03337  M01S02500.lfm     +++| TAPK     BSS    0
03338  M01S02501.lfm     +++|          LOC    0
03339  M01S02502.lfm     +++|          CON    FMTK,RFI34  FORMAT KEY
03340  M01S02503.lfm     +++| TAPKE    EQU    *           ENTRY LENGTH
03341  M01S02504.lfm     +++|          CON    LTYK,RFI36  LABEL TYPE, DENSITY, CONVERSION MODE KEY

Seq #  *Modification Id* Act 
----------------------------+
03342  M02S00078.274l797 ---|          CON    VSNK,RFI47  VSN, REEL NUMBER KEY
03343  M01S00168.274l797 +++|          CON    VSNK,RFI40  VSN, REEL NUMBER KEY
03344  M01S02505.lfm     +++|          CON    BSZK,RFI41  BLOCK SIZE, NOISE SIZE, OPTIONS KEY
03345  M01S00072.241l630 +++|          CON    DSVK,RFI49  DIRECT ACCESS FILE SIZE, ACCESS LEVEL
03346  M01S00169.274l797 +++|          CON    SPOD,RFI60  SPACE REMAINING ON OPTICAL DISK
03347  M01S02506.lfm     +++|          LOC    *O
03348  M01S02507.lfm     +++| TAPKL    EQU    *-TAPK
03349  M01S02508.lfm     +++| TDEN     SPACE  4,10
03350  M01S02509.lfm     +++|**        TDEN - TABLE OF DENSITY CONVERSIONS.
03351  M01S02510.lfm     +++|
03352  M01S02511.lfm     +++|
03353  M01S02512.lfm     +++| TDEN     BSS    0
03354  M01S02513.lfm     +++|          LOC    1
03355  M01S02514.lfm     +++|          CON    2*10B       200 BPI
03356  M01S02515.lfm     +++|          CON    1*10B       556 BPI
03357  M01S02516.lfm     +++|          CON    3*10B       800 BPI/CPI
03358  M01S02517.lfm     +++|          CON    4*10B       1600 CPI
03359  M01S02518.lfm     +++|          CON    5*10B       6250 CPI
03360  M01S00170.274l797 +++|          CON    6*10B       38000 CPI
03361  M01S02519.lfm     +++|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
03362  M02S02520.lfm25   ---| TERL     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03363  M02S02521.lfm25   ---|**        TERL - TABLE OF END OF REEL CONVERSIONS.

Seq #  *Modification Id* Act 
----------------------------+
03364  M02S02522.lfm25   ---|

Seq #  *Modification Id* Act 
----------------------------+
03365  M02S02523.lfm25   ---|

Seq #  *Modification Id* Act 
----------------------------+
03366  M02S02524.lfm25   ---| TERL     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
03367  M02S02525.lfm25   ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
03368  M02S02526.lfm25   ---|          VFD    3/1,9/0     *S* END OF REEL OPTION

Seq #  *Modification Id* Act 
----------------------------+
03369  M02S02527.lfm25   ---|          VFD    3/2,9/0     *P* END OF REEL OPTION

Seq #  *Modification Id* Act 
----------------------------+
03370  M02S02528.lfm25   ---|          VFD    3/4,9/0     *I* END OF REEL OPTION

Seq #  *Modification Id* Act 
----------------------------+
03371  M02S02529.lfm25   ---|          LOC    *O
03372  M01S00073.241l630 +++|          SPACE  4,10
03373  M01S00074.241l630 +++|**        TMDS - TABLE OF DIRECT ACCESS FILE VALIDATION SIZES.
03374  M01S00075.241l630 +++|
03375  M01S00076.241l630 +++| TMDS     BSS    0
03376  M01S00077.241l630 +++|          LOC    0
03377  M01S00078.241l630 +++|          CSR    DSRNG7
03378  M01S00079.241l630 +++|          CSR    DSRNG1
03379  M01S00080.241l630 +++|          CSR    DSRNG2
03380  M01S00081.241l630 +++|          CSR    DSRNG3
03381  M01S00082.241l630 +++|          CSR    DSRNG4
03382  M01S00083.241l630 +++|          CSR    DSRNG5
03383  M01S00084.241l630 +++|          CSR    DSRNG6
03384  M01S00085.241l630 +++|          CSR    DSRNG7
03385  M01S00086.241l630 +++|          LOC    *O
03386  M01S00171.274l797 +++|          TITLE  SUBROUTINES.
03387  M01S02530.lfm     +++| CDP      SPACE  4,10
03388  M01S02531.lfm     +++|**        CDP - CHECK FOR DMP= PROGRAM.
03389  M01S02532.lfm     +++|*
03390  M01S02533.lfm     +++|*         ENTRY  (A) = EST ENTRY ADDRESS.
03391  M01S02534.lfm     +++|*
03392  M01S02535.lfm     +++|*         ERROR  TO *ERR*, IF CALLING PROGRAM IS *DMP=*.
03393  M01S02536.lfm     +++|*
03394  M01S02537.lfm     +++|*         USES   CN - CN+4.
03395  M01S00172.274l797 +++|*
03396  M01S00173.274l797 +++|*         CALLS  CTE.
03397  M01S02538.lfm     +++|
03398  M01S02539.lfm     +++|
03399  M01S02540.lfm     +++| CDP      SUBR               ENTRY/EXIT
03400  M01S02541.lfm     +++|          CRD    CN          READ EST ENTRY
03401  M01S02542.lfm     +++|          LDD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
03402  M02S02543.252l678 ---|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
03403  M02S02544.274l797 ---|          LMC    2RMT

Seq #  *Modification Id* Act 
----------------------------+
03404  M02S02545.274l797 ---|          ZJN    CDP1        IF TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03405  M02S02546.274l797 ---|          LMC    2RNT&2RMT

Seq #  *Modification Id* Act 
----------------------------+
03406  M02S02547.274l797 ---|          ZJN    CDP1        IF TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03407  M02S02548.274l797 ---|          LMC    2RTE&2RNT
03408  M01S00174.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
03409  M01S00175.274l797 +++|          PJN    CDP1        IF TAPE EQUIPMENT
03410  M01S00176.274l797 +++|          LDD    CN+3
03411  M01S00177.274l797 +++|          LMC    2RTE
03412  M01S02549.lfm     +++|          NJN    CDPX        IF NOT *TE* EQUIPMENT
03413  M01S02550.lfm     +++| CDP1     AOM    RNME        SAVE TAPE STATUS
03414  M01S02551.lfm     +++|          LDD    CP          CHECK FOR *SPCW* BUSY
03415  M01S02552.lfm     +++|          ADC    SPCW
03416  M01S02553.lfm     +++|          CRD    CN
03417  M01S02554.lfm     +++|          LDD    CN
03418  M01S02555.lfm     +++|          ZJN    CDPX        IF DMP= REQUEST NOT ALREADY PRESENT
03419  M01S02556.lfm     +++|          LDN    /ERR/SYE    * SYSTEM ERROR.*
03420  M01S02557.lfm     +++|          LJM    ERR         PROCESS ERROR
03421  M01S02558.lfm     +++| CFT      SPACE  4,10
03422  M01S02559.lfm     +++|**        CFT - CHECK FILE TYPE.
03423  M01S02560.lfm     +++|*
03424  M01S02561.lfm     +++|*         ENTRY  (CM - CM+4) = FNT WORD.
03425  M01S02562.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03426  M02S02563.v23l617 ---|*         EXIT   (A) .NE. 0, IF ILLEGAL FILE TYPE.
03427  M01S00079.v23l617 +++|*         EXIT   (A) .NE. 0, IF INCORRECT FILE TYPE.
03428  M01S02564.lfm     +++|*                (RNMB) CHANGED IF RETAINING OLD FILE TYPE.
03429  M01S02565.lfm     +++|*
03430  M01S02566.lfm     +++|*         USES   T1, T7, CN - CN+4.
03431  M01S02567.lfm     +++|
03432  M01S02568.lfm     +++|
03433  M01S02569.lfm     +++| CFT      SUBR               ENTRY/EXIT
03434  M01S02570.lfm     +++|          LDD    CM+4
03435  M01S02571.lfm     +++|          SHN    -6
03436  M01S02572.lfm     +++|          STD    T7
03437  M01S02573.lfm     +++|          LDN    TPFTL+1     SET TABLE LENGTH
03438  M01S02574.lfm     +++|          STD    T1
03439  M01S02575.lfm     +++| CFT1     SOD    T1
03440  M01S02576.lfm     +++|          ZJN    CFTX        IF END OF TABLE
03441  M01S02577.lfm     +++|          LDM    TPFT-1,T1
03442  M01S02578.lfm     +++|          LMD    T7
03443  M01S02579.lfm     +++|          NJN    CFT1        IF NOT MATCHING FILE TYPE
03444  M01S02580.lfm     +++| CFTA     LDN    0
03445  M01S02581.lfm     +++|*         LDN    (A)         (FILE TYPE OF *B*)
03446  M01S02582.lfm     +++|          LMN    LOFT
03447  M01S02583.lfm     +++|          ZJN    CFT2        IF LOCAL FILE TYPE
03448  M01S02584.lfm     +++|          LMD    T7
03449  M01S02585.lfm     +++|          LMN    LOFT
03450  M01S02586.lfm     +++|          NJN    CFTX        IF NOT SAME TYPE
03451  M01S02587.lfm     +++| CFT2     LDC    **

Seq #  *Modification Id* Act 
----------------------------+
03452  M02S02588.ns22000 ---|*         LDC    (A)         (EST ADDRESS OF *B*)

Seq #  *Modification Id* Act 
----------------------------+
03453  M02S02589.ns22000 ---| CFTB     EQU    *-1
03454  M01S00204.ns22000 +++| CFTB     EQU    *-1         (EST ORDINAL OF FILE *B*)
03455  M01S00205.ns22000 +++|          SFA    EST         READ EST ENTRY
03456  M01S00206.ns22000 +++|          ADK    EQDE
03457  M01S02590.lfm     +++|          CRD    CN
03458  M01S02591.lfm     +++|          LDD    CM+4        PROPAGATE FILE TYPE OF *A*
03459  M01S02592.lfm     +++|          SCN    77
03460  M01S02593.lfm     +++|          STM    RNMB
03461  M01S02594.lfm     +++|          LDD    CN
03462  M01S02595.lfm     +++|          SHN    0-13        GET MASS STORAGE FLAG
03463  M01S02596.lfm     +++|          LMN    1
03464  M01S02597.lfm     +++|          UJN    CFTX        RETURN
03465  M01S02598.lfm     +++| TPFT     SPACE  4,10
03466  M01S02599.lfm     +++|**        TPFT - TABLE OF PROPAGATED FILE TYPES.
03467  M01S02600.lfm     +++|
03468  M01S02601.lfm     +++|
03469  M01S02602.lfm     +++| TPFT     BSS    0
03470  M01S02603.lfm     +++|          CON    PTFT        PRIMARY TERMINAL
03471  M01S02604.lfm     +++| TPFTL    EQU    *-TPFT      TABLE LENGTH
03472  M01S00178.274l797 +++| CTE      SPACE  4,10
03473  M01S00179.274l797 +++|**        CTE - CHECK FOR TAPE EQUIPMENT.
03474  M01S00180.274l797 +++|*
03475  M01S00181.274l797 +++|*         ENTRY  (A) = EQUIPMENT MNEMONIC.
03476  M01S00182.274l797 +++|*
03477  M01S00183.274l797 +++|*         EXIT   (A) < 0 IF NOT TAPE EQUIPMENT.
03478  M01S00184.274l797 +++|*                    = 0 IF *MT*.
03479  M01S00185.274l797 +++|*                    = 1 IF *CT*.
03480  M01S00186.274l797 +++|*                    = 2 IF *NT*.
03481  M01S00187.274l797 +++|*                    = 3 IF *AT*.
03482  M01S00188.274l797 +++|
03483  M01S00189.274l797 +++|
03484  M01S00190.274l797 +++| CTE3     LCN    1           INDICATE NON-TAPE EQUIPMENT
03485  M01S00191.274l797 +++|
03486  M01S00192.274l797 +++| CTE      SUBR               ENTRY/EXIT
03487  M01S00193.274l797 +++|          LMC    2RMT
03488  M01S00194.274l797 +++|          ZJN    CTEX        IF *MT* (*MT* = 0)
03489  M01S00195.274l797 +++|          LMC    2RNT&2RMT
03490  M01S00196.274l797 +++|          ZJN    CTE1        IF *NT*
03491  M01S00197.274l797 +++|          LMC    2RCT&2RNT
03492  M01S00198.274l797 +++|          ZJN    CTE2        IF *CT*
03493  M01S00199.274l797 +++|          LMC    2RAT&2RCT
03494  M01S00200.274l797 +++|          NJN    CTE3        IF NOT *AT*
03495  M01S00201.274l797 +++|          LDN    1           *AT* = 3
03496  M01S00202.274l797 +++| CTE1     ADN    1           *NT* = 2
03497  M01S00203.274l797 +++| CTE2     ADN    1           *CT* = 1
03498  M01S00204.274l797 +++|          UJN    CTEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03499  M02S02605.lfm25   ---| TAI      SPACE  4,10
03500  M01S00012.lfm25   +++| TAI      SPACE  4,15
03501  M01S02606.lfm     +++|**        TAI - TRANSFER ADDITIONAL INFORMATION FROM UDT.
03502  M01S02607.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03503  M02S02608.v23l617 ---|*         ENTRY  (FT) = FILE STATUS.

Seq #  *Modification Id* Act 
----------------------------+
03504  M02S00080.274l797 ---|*         ENTRY  (ST) = FILE STATUS.
03505  M01S00205.274l797 +++|*         ENTRY  (SX) = EXTENDED FILE STATUS.
03506  M01S02609.lfm     +++|*
03507  M01S02610.lfm     +++|*         EXIT   (A) = 0, IF NOT TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
03508  M02S02611.lfm25   ---|*                (FIPB) = UDT WORDS UST2, UST3, UST4, IF TAPE FILE.
03509  M01S00013.lfm25   +++|*                (FIPB) = UDT WORDS *UST2*, *UST3*, *UST4*, *UST5*,
03510  M01S00014.lfm25   +++|*                         *UVRI* IF TAPE FILE.
03511  M01S02612.lfm     +++|*
03512  M01S02613.lfm     +++|*         USES   T1.
03513  M01S02614.lfm     +++|*
03514  M01S02615.lfm     +++|*         CALLS  TUW.
03515  M01S02616.lfm     +++|
03516  M01S02617.lfm     +++|
03517  M01S02618.lfm     +++| TAI      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03518  M02S02619.v23l617 ---|          LDD    FT

Seq #  *Modification Id* Act 
----------------------------+
03519  M02S00081.274l797 ---|          LDD    ST

Seq #  *Modification Id* Act 
----------------------------+
03520  M02S02620.274l797 ---|          LPC    300
03521  M01S00206.274l797 +++|          LDD    SX
03522  M01S00207.274l797 +++|          LPN    1
03523  M01S02621.lfm     +++|          ZJN    TAIX        IF NOT TAPE FILE
03524  M01S02622.lfm     +++| TAIA     LDN    0           UDT WORDS NOT YET TRANSFERRED
03525  M01S02623.lfm     +++|*         LDN    1           (UDT WORDS ALREADY TRANSFERRED)
03526  M01S02624.lfm     +++|          NJN    TAIX        IF ADDITIONAL INFORMATION TRANSFERRED

Seq #  *Modification Id* Act 
----------------------------+
03527  M02S02625.282l826 ---|          LDN    /MTX/UST2   GET UST2, UST3, UST4 FROM UDT
03528  M01S00032.282l826 +++|          LDN    /MTX/UST2   GET UST2, UST3, UST4, UST5 FROM UDT
03529  M01S02626.lfm     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
03530  M02S02627.282l826 ---|          LDN    3           TRANSFER UDT WORDS
03531  M01S00033.282l826 +++|          LDN    4           TRANSFER UDT WORDS
03532  M01S02628.lfm     +++|          RJM    TUW
03533  M01S00015.lfm25   +++|          LDN    4           SET WORD COUNT
03534  M01S00016.lfm25   +++|          STD    T1
03535  M01S02629.lfm     +++|          LDD    MA

Seq #  *Modification Id* Act 
----------------------------+
03536  M02S02630.lfm25   ---|          CRM    FIPB,TR
03537  M01S00017.lfm25   +++|          CRM    FIPB,T1     READ UDT WORDS
03538  M01S00018.lfm25   +++|          LDK    /MTX/UVRI   SET UDT WORD TO READ
03539  M01S00019.lfm25   +++|          STD    T1
03540  M01S00020.lfm25   +++|          LDN    1           SET WORD COUNT
03541  M01S00021.lfm25   +++|          RJM    TUW         TRANSFER UDT WORD
03542  M01S00022.lfm25   +++|          LDD    MA
03543  M01S00023.lfm25   +++|          CRM    FIPB+4*5,ON READ UDT WORD
03544  M01S02631.lfm     +++|          AOM    TAIA        SET UDT WORDS TRANSFERRED FLAG
03545  M01S02632.lfm     +++|          UJN    TAIX        RETURN
03546  M01S00207.ns22000 +++|          SPACE  4,10
03547  M01S00208.ns22000 +++|**        COMMON DECKS.
03548  M01S00209.ns22000 +++|
03549  M01S00210.ns22000 +++|
03550  M01S00087.241l630 +++|*CALL     COMPRJC
03551  M01S00208.274l797 +++|*CALL     COMPSOF
03552  M01S00211.ns22000 +++| VAL$     SET    0
03553  M01S00212.ns22000 +++|*CALL     COMPVLC
03554  M01S02633.lfm     +++|          SPACE  4,10
03555  M01S02634.lfm     +++|**        BUFFER ASSIGNMENTS.
03556  M01S02635.lfm     +++|
03557  M01S02636.lfm     +++|
03558  M01S02637.lfm     +++| FIPB     EQU    *           *FILINFO* PARAMETER BLOCK BUFFER
03559  M01S02638.lfm     +++|          LOC    FIPB+FIPBL*5-1*5

Seq #  *Modification Id* Act 
----------------------------+
03560  M02S02639.lfm17   ---|

Seq #  *Modification Id* Act 
----------------------------+
03561  M02S02640.lfm17   ---|          OVERFLOW  OVL      CHECK FOR OVERFLOW
03562  M01S00014.lfm17   +++|          SPACE  4,10
03563  M01S00015.lfm17   +++|          ERRNG  OVL0-*      CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
03564  M01S00016.lfm17   +++|          OVERFLOW  OVL
03565  M01S02641.lfm     +++|          OVERLAY (EQUIPMENT REQUESTS.)
03566  M01S02642.lfm     +++|          SPACE  4,10
03567  M01S02643.lfm     +++|****      ADDITIONAL DIRECT LOCATION ASSIGNMENTS.
03568  M01S02644.lfm     +++|
03569  M01S02645.lfm     +++|
03570  M01S02646.lfm     +++| VS       EQU    60 - 64     VSN BUFFER (5 LOCATIONS)
03571  M01S02647.lfm     +++|
03572  M01S02648.lfm     +++|****
03573  M01S02649.lfm     +++| REQ      SPACE  4,20
03574  M01S02650.lfm     +++|***       FUNCTION 14.
03575  M01S02651.lfm     +++|*         REQUEST EQUIPMENT.
03576  M01S02652.lfm     +++|*
03577  M01S02653.lfm     +++|*T FET+1  12/*EQ*, 48/

Figure FET+1

03578  M01S02654.lfm     +++|*         EQ     EQUIPMENT TYPE.
03579  M01S02655.lfm     +++|*
03580  M01S02656.lfm     +++|*T FET+7  6/*ID*, 54/

Figure FET+7

03581  M01S02657.lfm     +++|*         ID     CHECKPOINT MODE ID
03582  M01S02658.lfm     +++|*                CBID = 75B = CHECKPOINT AT BOI.
03583  M01S02659.lfm     +++|*                CKID = 76B = CHECKPOINT AT EOI.
03584  M01S02660.lfm     +++|*
03585  M01S02661.lfm     +++|*         REQUEST OPERATOR EQUIPMENT ASSIGNMENT TO FILE.
03586  M01S02662.lfm     +++|*         IF THE FILE WAS PREVIOUSLY ASSIGNED, FUNCTION IS IGNORED.
03587  M01S02663.lfm     +++|*         REQUEST FUNCTION 14 CANNOT BE USED TO ASSIGN TAPE EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
03588  M02S02664.274l797 ---|*         IF *EQ* " 0, EQUIPMENT ASSIGNMENT MUST BE THIS TYPE.
03589  M01S00209.274l797 +++|*         IF *EQ* .NE. 0, EQUIPMENT ASSIGNMENT MUST BE THIS TYPE.
03590  M01S02665.lfm     +++|*         IF *EQ* = *MS*, A MASS STORAGE DEVICE MUST BE ASSIGNED.

Seq #  *Modification Id* Act 
----------------------------+
03591  M02S02666.v23l617 ---|*         IF *EQ* = *MT*, *NT*, OR *TE*, ERROR MESSAGE * ILLEGAL

Seq #  *Modification Id* Act 
----------------------------+
03592  M02S00082.274l797 ---|*         IF *EQ* = *MT*, *NT*, OR *TE*, ERROR MESSAGE * INCORRECT

Seq #  *Modification Id* Act 
----------------------------+
03593  M02S02667.274l797 ---|*         EQUIPMENT.* WILL BE ISSUED.
03594  M01S00210.274l797 +++|*         IF *EQ* = *MT*, *NT*, *CT*, *AT* OR *TE*, THE ERROR MESSAGE
03595  M01S00211.274l797 +++|*           * INCORRECT EQUIPMENT.* WILL BE ISSUED.
03596  M01S02668.lfm     +++|*         FOR REQUEST WITH *EQ* = 0, OPERATOR ASSIGNMENT OF TAPE

Seq #  *Modification Id* Act 
----------------------------+
03597  M02S02669.274l797 ---|*         EQUIPMENT (*MT*, *NT*, *TE*) WILL BE REJECTED.
03598  M01S00212.274l797 +++|*           EQUIPMENT (*MT*, *NT*, *CT*, *AT*, *TE*) WILL BE REJECTED.
03599  M01S02670.lfm     +++|
03600  M01S02671.lfm     +++|
03601  M01S02672.lfm     +++|          ENTRY  REQ
03602  M01S02673.lfm     +++|          RJM    CPA         READ FIRST
03603  M01S02674.lfm     +++|          ADN    1
03604  M01S02675.lfm     +++|          CRD    CN
03605  M01S00213.ns22000 +++|          RJM    GVA         GET AND VALIDATE ACCESS LEVEL
03606  M01S02676.lfm     +++|          LDD    CN          CHECK TYPE
03607  M01S02677.lfm     +++|          ZJN    REQ3        IF TYPE NOT REQUESTED
03608  M01S02678.lfm     +++|
03609  M01S02679.lfm     +++|*         IF EQUIPMENT TYPE IS REQUESTED, CHECK VALIDITY OF TYPE.
03610  M01S02680.lfm     +++|
03611  M01S02681.lfm     +++|          LMC    2RMS
03612  M01S02682.lfm     +++|          ZJN    REQ3        IF EQUIPMENT TYPE = *MS*

Seq #  *Modification Id* Act 
----------------------------+
03613  M02S02683.274l797 ---|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
03614  M02S02684.274l797 ---|          LMC    2RMT&2RMS

Seq #  *Modification Id* Act 
----------------------------+
03615  M02S02685.274l797 ---|          ZJN    REQ1        IF *MT* DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
03616  M02S02686.274l797 ---|          LMC    2RNT&2RMT

Seq #  *Modification Id* Act 
----------------------------+
03617  M02S02687.274l797 ---|          ZJN    REQ1        IF *NT* DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
03618  M02S02688.274l797 ---|          LMC    2RTE&2RNT

Seq #  *Modification Id* Act 
----------------------------+
03619  M02S02689.274l797 ---|          NJN    REQ2        IF NOT *TE* DEVICE TYPE
03620  M01S00213.274l797 +++|          LDD    CN
03621  M01S00214.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
03622  M01S00215.274l797 +++|          MJN    REQ2        IF NOT TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03623  M02S02690.v23l617 ---| REQ1     LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
03624  M01S00083.v23l617 +++| REQ1     LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
03625  M01S02691.lfm     +++|          LJM    ERR         PROCESS ERROR
03626  M01S02692.lfm     +++|
03627  M01S02693.lfm     +++| REQ2     RJM    SEQ         SEARCH FOR EQUIPMENT
03628  M01S02694.lfm     +++|
03629  M01S02695.lfm     +++|*         REQUEST OPERATOR ASSIGNMENT.
03630  M01S02696.lfm     +++|
03631  M01S02697.lfm     +++| REQ3     LDN    1
03632  M01S02698.lfm     +++| REQ4     RJM    REA         REQUEST EQUIPMENT ASSIGNMENT
03633  M01S02699.lfm     +++|          PJN    REQ4        IF TAPE RELATED EQUIPMENT
03634  M01S02700.lfm     +++|          LDD    EQ          RESET OPERATOR EQUIPMENT IF ENTER RECALL
03635  M01S02701.lfm     +++|          STM    EFNA
03636  M01S02702.lfm     +++|          LDD    FS
03637  M01S02703.lfm     +++|          SHN    21-13
03638  M01S02704.lfm     +++|          MJN    REQ6        IF MASS STORAGE
03639  M01S02705.lfm     +++|          SHN    21-12-21+13
03640  M01S02706.lfm     +++|          MJN    REQ5        IF ALLOCATABLE DEVICE
03641  M01S02707.lfm     +++|          RJM    VAE         VALIDATE ASSIGNED EQUIPMENT
03642  M01S02708.lfm     +++|          UJN    REQ6        ASSIGN FILE
03643  M01S02709.lfm     +++|
03644  M01S02710.lfm     +++| REQ5     RJM    DEQ         RELEASE EQUIPMENT
03645  M01S02711.lfm     +++| REQ6     LJM    ASF         ASSIGN FILE
03646  M01S02712.lfm     +++| AEQ      SPACE  4,25
03647  M01S02713.lfm     +++|***       FUNCTION 15.
03648  M01S02714.lfm     +++|*         ASSIGN EQUIPMENT.
03649  M01S02715.lfm     +++|*
03650  M01S02716.lfm     +++|*T FET+1  12/*EQ*, 48/

Figure FET+1

Seq #  *Modification Id* Act 
----------------------------+
03651  M02S02717.ns22000 ---|*         EQ     EQUIPMENT TYPE, MSAL DEVICE TYPE, OR EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03652  M02S02718.ns22000 ---|*                EST ORDINAL.
03653  M01S00214.ns22000 +++|*         EQ     EQUIPMENT TYPE, *MSAL* DEVICE TYPE, OR DESIRED
03654  M01S00215.ns22000 +++|*                EST ORDINAL + 7000B.
03655  M01S02719.lfm     +++|*
03656  M01S02720.lfm     +++|*T FET+7  6/*ID*, 54/

Figure FET+7

03657  M01S02721.lfm     +++|*         ID     CHECKPOINT MODE ID
03658  M01S02722.lfm     +++|*                CBID = 75B = CHECKPOINT AT BOI.
03659  M01S02723.lfm     +++|*                CKID = 76B = CHECKPOINT AT EOI.
03660  M01S02724.lfm     +++|*
03661  M01S02725.lfm     +++|*         REQUEST FUNCTION 15 CANNOT BE USED TO ASSIGN TAPE EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
03662  M02S02726.274l797 ---|*         FOR REQUEST WITH *EQ* = *MT*, *NT*, OR *TE* DEVICE TYPE OR

Seq #  *Modification Id* Act 
----------------------------+
03663  M02S02727.274l797 ---|*         SPECIFYING EST ORDINAL OF TAPE RELATED EQUIPMENT, ERROR

Seq #  *Modification Id* Act 
----------------------------+
03664  M03S02728.274l797 ---|*         MESSAGE * ILLEGAL EQUIPMENT.* WILL BE ISSUED.

Seq #  *Modification Id* Act 
----------------------------+
03665  M02S00084.274l797 ---|*         MESSAGE * INCORRECT EQUIPMENT.* WILL BE ISSUED.
03666  M01S00216.274l797 +++|*         FOR REQUEST WITH *EQ* = *MT*, *NT*, *CT*, *AT* OR *TE* DEVICE
03667  M01S00217.274l797 +++|*         TYPE OR SPECIFYING EST ORDINAL OF TAPE RELATED EQUIPMENT,
03668  M01S00218.274l797 +++|*         ERROR MESSAGE * INCORRECT EQUIPMENT.* WILL BE ISSUED.
03669  M01S02729.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03670  M02S02730.lfm5    ---|*         NO SPECIAL VALIDATION IS REQUIRED TO ASSIGN TT (FROM

Seq #  *Modification Id* Act 
----------------------------+
03671  M02S02731.lfm5    ---|*         TXOT ORIGIN), MS, TP, IN, OT, PY, LO, LG, OR NE EQUIPMENT.
03672  M01S00001.lfm5    +++|*         NO SPECIAL VALIDATION IS REQUIRED TO ASSIGN TT (FROM TXOT
03673  M01S00002.lfm5    +++|*         ORIGIN), NE OR CC EQUIPMENT OR MASS STORAGE FILE TYPES MS,
03674  M01S00003.lfm5    +++|*         TP, IN, OT, PY, LO OR LG.
03675  M01S00001.ns2253  +++|*         NO SPECIAL USER VALIDATION IS REQUIRED WHEN USING MASS
03676  M01S00002.ns2253  +++|*         STORAGE DEVICE MNEMONICS.  THE MASS STORAGE DEVICE MUST BE
03677  M01S00003.ns2253  +++|*         A TEMP DEVICE.
03678  M01S02732.lfm     +++|*         OTHER REQUESTS ARE VALID ONLY FROM SYSTEM ORIGIN OR TO A
03679  M01S02733.lfm     +++|*         USER WHO HAS SYSTEM ORIGIN PRIVILEGES.  SEE TABLE *TAEQ*.
03680  M01S02734.lfm     +++|*
03681  M01S02735.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
03682  M01S02736.lfm     +++|
03683  M01S02737.lfm     +++|
03684  M01S02738.lfm     +++|          ENTRY  AEQ
03685  M01S02739.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
03686  M01S02740.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
03687  M01S02741.lfm     +++|          ZJN    AEQ1        IF FILE NOT FOUND
03688  M01S02742.lfm     +++|          LDN    0           CLEAR FNT ADDRESS
03689  M01S02743.lfm     +++|          STD    FA
03690  M01S02744.lfm     +++|          LDN    /ERR/DFN    * DUPLICATE FILE NAME.*

Seq #  *Modification Id* Act 
----------------------------+
03691  M02S02745.ns22000 ---|          UJN    AEQ5        PROCESS ERROR
03692  M01S00216.ns22000 +++|          LJM    ERR         PROCESS ERROR
03693  M01S02746.lfm     +++|
03694  M01S02747.lfm     +++|*         CHECK DEVICE SPECIFICATION IN FET.
03695  M01S02748.lfm     +++|
03696  M01S02749.lfm     +++| AEQ1     RJM    CPA         READ FIRST
03697  M01S02750.lfm     +++|          ADN    1
03698  M01S02751.lfm     +++|          CRD    CN
03699  M01S00217.ns22000 +++|          RJM    GVA         GET AND VALIDATE ACCESS LEVEL
03700  M01S02752.lfm     +++|          LDD    CN          CHECK EQUIPMENT TYPE

Seq #  *Modification Id* Act 
----------------------------+
03701  M02S02753.ns22000 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
03702  M02S02754.ns22000 ---|          ZJN    AEQ6        IF NUMERIC TYPE
03703  M01S00218.ns22000 +++|          SHN    -11
03704  M01S00219.ns22000 +++|          LMN    7
03705  M01S00220.ns22000 +++|          ZJN    AEQ6        IF ASSIGN-BY-ORDINAL REQUEST
03706  M01S02755.lfm     +++|
03707  M01S02756.lfm     +++|*         PROCESS DEVICE MNEMONIC.
03708  M01S02757.lfm     +++|
03709  M01S02758.lfm     +++|          LDD    CN
03710  M01S02759.lfm     +++|          LMC    2RMS
03711  M01S02760.lfm     +++|          NJN    AEQ3        IF NOT MASS STORAGE
03712  M01S00221.ns22000 +++|          STM    ASFA        CLEAR *MSAL* FLAGS
03713  M01S00222.ns22000 +++|          LDN    NEEQ
03714  M01S02761.lfm     +++|          STD    EQ          ASSIGN MASS STORAGE
03715  M01S02762.lfm     +++|          LDD    CN          SET CORRECT DAYFILE MESSAGE
03716  M01S02763.lfm     +++|          STM    ASFC+1
03717  M01S02764.lfm     +++|          AOM    ASFB
03718  M01S02765.lfm     +++| AEQ2     LJM    ASF         ASSIGN FILE
03719  M01S02766.lfm     +++|
03720  M01S02767.lfm     +++| AEQ3     RJM    SEQ         SEARCH FOR EQUIPMENT
03721  M01S02768.lfm     +++|          MJN    AEQ2        IF *MSAL* REQUEST
03722  M01S02769.lfm     +++|          ZJN    AEQ7        IF EQUIPMENT AVAILABLE
03723  M01S02770.lfm     +++| AEQ4     LDN    /ERR/WEQ    * EQUIPMENT NOT AVAILABLE.*
03724  M01S02771.lfm     +++| AEQ5     LJM    ERR         PROCESS ERROR
03725  M01S02772.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
03726  M02S02773.ns22000 ---|*         PROCESS EQUIPMENT NUMBER.
03727  M01S00223.ns22000 +++|*         PROCESS EST ORDINAL.
03728  M01S02774.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
03729  M02S02775.ns22000 ---| AEQ6     LDD    CN          SET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03730  M02S00224.ns2253a ---| AEQ6     LDD    CN          SET EST ORDINAL
03731  M01S00001.ns2253a +++| AEQ6     RJM    VSO         VALIDATE SYSTEM ORIGIN PRIVILEGE
03732  M01S00002.ns2253a +++|          NJN    AEQ9.1      IF USER NOT VALIDATED FOR ASSIGN BY ORDINAL
03733  M01S00003.ns2253a +++|          LDD    CN          SET EST ORDINAL
03734  M01S00225.ns22000 +++|          LPC    777
03735  M01S02776.lfm     +++|          STD    EQ

Seq #  *Modification Id* Act 
----------------------------+
03736  M02S02777.ns22000 ---|          RJM    CEN         CHECK EQUIPMENT NUMBER
03737  M01S00226.ns22000 +++|          RJM    CEN         CHECK EST ORDINAL
03738  M01S02778.lfm     +++|          NJN    AEQ4        IF NOT AVAILABLE
03739  M01S02779.lfm     +++| AEQ7     LDD    FS+3

Seq #  *Modification Id* Act 
----------------------------+
03740  M02S02780.252l678 ---|          LPC    3777
03741  M01S00004.ns2253  +++|          STD    T2
03742  M01S02781.lfm     +++|          LMC    2RTT
03743  M01S02782.lfm     +++|          NJN    AEQ9        IF NOT *TT*
03744  M01S02783.lfm     +++|          LDD    OC

Seq #  *Modification Id* Act 
----------------------------+
03745  M02S02784.ns22000 ---|          LMN    TXOT

Seq #  *Modification Id* Act 
----------------------------+
03746  M02S02785.ns22000 ---|          ZJN    AEQ10       IF TXOT
03747  M01S00227.ns22000 +++|          LMK    IAOT
03748  M01S00228.ns22000 +++|          ZJN    AEQ10       IF INTERACTIVE

Seq #  *Modification Id* Act 
----------------------------+
03749  M02S02786.v23l617 ---| AEQ8     LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
03750  M01S00085.v23l617 +++| AEQ8     LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
03751  M01S02787.lfm     +++|          UJN    AEQ5        PROCESS ERROR
03752  M01S02788.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
03753  M02S02789.ns2253  ---| AEQ9     LMC    2RNE&2RTT

Seq #  *Modification Id* Act 
----------------------------+
03754  M02S02790.ns2253  ---|          ZJN    AEQ10       IF NULL EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03755  M02S00004.ns2253  ---|          LMC    2RCC&2RNE

Seq #  *Modification Id* Act 
----------------------------+
03756  M02S00005.ns2253  ---|          ZJN    AEQ10       IF COMMUNICATION COUPLER
03757  M01S00005.ns2253  +++| AEQ9     RJM    CDT         CHECK DEVICE TYPE
03758  M01S00006.ns2253  +++|          ZJN    AEQ10       IF DEVICE TYPE ALLOWED
03759  M01S02791.lfm     +++|          RJM    VSO         VALIDATE SYSTEM ORIGIN

Seq #  *Modification Id* Act 
----------------------------+
03760  M02S00001.ns2253a ---|          NJP    VSJ1        IF USER NOT VALIDATED
03761  M01S00004.ns2253a +++| AEQ9.1   NJP    VSJ1        IF USER NOT VALIDATED
03762  M01S02792.lfm     +++|          LDD    EQ
03763  M01S02793.lfm     +++|          RJM    VTE         CHECK FOR TAPE EQUIPMENT
03764  M01S02794.lfm     +++|          PJN    AEQ8        IF TAPE RELATED EQUIPMENT
03765  M01S02795.lfm     +++| AEQ10    LDD    FS
03766  M01S02796.lfm     +++|          SHN    21-13
03767  M01S02797.lfm     +++|          MJN    AEQ11       IF MASS STORAGE
03768  M01S02798.lfm     +++|          SHN    21-12-21+13
03769  M01S02799.lfm     +++|          MJN    AEQ11       IF ALLOCATABLE
03770  M01S02800.lfm     +++|          LDD    EQ          REQUEST EQUIPMENT
03771  M01S02801.lfm     +++|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
03772  M02S02802.242l642 ---|          LDN    0           REQUEST ACTIVE EQUIPMENT
03773  M01S00097.242l642 +++|          LDK    REQS        REQUEST ACTIVE EQUIPMENT
03774  M01S02803.lfm     +++|          STD    CM+2
03775  M01S02804.lfm     +++|          MONITOR REQM
03776  M01S02805.lfm     +++|          LDD    CM+1        CHECK ASSIGNMENT
03777  M01S02806.lfm     +++|          NJN    AEQ11       IF ASSIGNMENT MADE
03778  M01S02807.lfm     +++|          LJM    AEQ4        EQUIPMENT NOT AVAILABLE
03779  M01S02808.lfm     +++|
03780  M01S02809.lfm     +++| AEQ11    LJM    ASF         ASSIGN FILE
03781  M01S02810.lfm     +++| LBR      EJECT
03782  M01S02811.lfm     +++|***       FUNCTION 24.
03783  M01S02812.lfm     +++|*         LABEL TAPE REQUEST.
03784  M01S02813.lfm     +++|*         REQUEST AUTOMATIC ASSIGNMENT OF MAGNETIC TAPE BY VOLUME
03785  M01S02814.lfm     +++|*         SERIAL NUMBER.
03786  M01S02815.lfm     +++|*         IF THE FILE WAS PREVIOUSLY ASSIGNED, FUNCTION IS IGNORED.
03787  M01S02816.lfm     +++|*
03788  M01S02817.lfm     +++|*T  FET+1 12/EQ,48/

Figure FET+1

Seq #  *Modification Id* Act 
----------------------------+
03789  M02S02818.274l797 ---|*         EQ     DEVICE TYPE (*MT*, *NT*, OR ZERO)
03790  M01S00219.274l797 +++|*         EQ     DEVICE TYPE (*MT*, *NT*, *CT*, *AT*, OR ZERO)
03791  M01S02819.lfm     +++|*
03792  M01S02820.lfm     +++|*T  FET+7 6/ID,54/

Figure FET+7

03793  M01S02821.lfm     +++|*         ID     CHECKPOINT ID, IF TO BE SET ON FILE
03794  M01S02822.lfm     +++|*                CBID = 75B = CHECKPOINT AT BOI.
03795  M01S02823.lfm     +++|*                CKID = 76B = CHECKPOINT AT EOI.
03796  M01S02824.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03797  M02S02825.274l797 ---|*T  FET+10B 1/R,1/L,1/N,1/T,2/ ,3/D,3/CV,12/PO,6/F,6/NS,24/FC

Figure FET+10

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "FC", "bits": 24, "type": 4 },
{ "name": "NS", "bits": 6, "type": 3 },
{ "name": "F", "bits": 6, "type": 2 },
{ "name": "PO", "bits": 12, "type": 1 },
{ "name": "CV", "bits": 3, "type": 0 },
{ "name": "D", "bits": 3, "type": 6 },
{ "name": " ", "bits": 2, "type": 5 },
{ "name": "T", "bits": 1, "type": 4 },
{ "name": "N", "bits": 1, "type": 3 },
{ "name": "L", "bits": 1, "type": 2 },
{ "name": "R", "bits": B 1, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

03798  M01S00220.274l797 +++|*T  FET+10B 1/R,1/L,1/N,2/TT,1/,3/D,3/CV,12/PO,6/F,6/NS,24/FC

Figure FET+10

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "FC", "bits": 24, "type": 4 },
{ "name": "NS", "bits": 6, "type": 3 },
{ "name": "F", "bits": 6, "type": 2 },
{ "name": "PO", "bits": 12, "type": 1 },
{ "name": "CV", "bits": 3, "type": 0 },
{ "name": "D", "bits": 3, "type": 6 },
{ "name": "", "bits": 1, "type": 5 },
{ "name": "TT", "bits": 2, "type": 4 },
{ "name": "N", "bits": 1, "type": 3 },
{ "name": "L", "bits": 1, "type": 2 },
{ "name": "R", "bits": B 1, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

03799  M01S02826.lfm     +++|*         R      LABEL PROCESSING
03800  M01S02827.lfm     +++|*                0 = READ LABEL   FILE OPENED BY OPEN/ALTER
03801  M01S02828.lfm     +++|*                1 = WRITE LABEL  FILE OPENED BY OPEN/WRITE
03802  M01S02829.lfm     +++|*
03803  M01S02830.lfm     +++|*         L      NOS LABELED IF SET
03804  M01S02831.lfm     +++|*
03805  M01S02832.lfm     +++|*         N      NON-STANDARD LABELS IF SET
03806  M01S02833.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
03807  M02S02834.274l797 ---|*         T      NINE TRACK IF SET, OTHERWISE SEVEN TRACK
03808  M01S00221.274l797 +++|*         TT     TAPE DEVICE TYPE
03809  M01S00222.274l797 +++|*                0 = 7-TRACK TAPE.
03810  M01S00223.274l797 +++|*                1 = CARTRIDGE TAPE.
03811  M01S00224.274l797 +++|*                2 = 9-TRACK TAPE.
03812  M01S00225.274l797 +++|*                3 = ACS CARTRIDGE TAPE.
03813  M01S02835.lfm     +++|*
03814  M01S02836.lfm     +++|*         D      DENSITY
03815  M01S02837.lfm     +++|*                0 = INSTALLATION DEFAULT
03816  M01S02838.lfm     +++|*                1 = 556 BPI
03817  M01S02839.lfm     +++|*                2 = 200 BPI
03818  M01S02840.lfm     +++|*                3 = 800 BPI/CPI
03819  M01S02841.lfm     +++|*                4 = 1600 CPI
03820  M01S02842.lfm     +++|*                5 = 6250 CPI
03821  M01S00226.274l797 +++|*                6 = 38000 CPI
03822  M01S02843.lfm     +++|*
03823  M01S02844.lfm     +++|*         CV     CONVERSION MODE
03824  M01S02845.lfm     +++|*                0 = INSTALLATION DEFAULT
03825  M01S02846.lfm     +++|*                1 = USASI/ASCII CONVERSION 9 TRACK
03826  M01S02847.lfm     +++|*                2 = EBCDIC CONVERSION 9 TRACK
03827  M01S02848.lfm     +++|*
03828  M01S02849.lfm     +++|*         PO     PROCESSING OPTIONS
03829  M01S02850.lfm     +++|*                XXX0 = ABORT ON P.E. UNLESS E.P. SET
03830  M01S02851.lfm     +++|*                XXX1 = ABORT ON P.E. REGARDLESS OF E.P.
03831  M01S02852.lfm     +++|*                XXX2 = NO ABORT ON P.E.
03832  M01S02853.lfm     +++|*                XXX4 = INHIBIT ERROR PROCESSING
03833  M01S02854.lfm     +++|*                XX1X = ENFORCE RING OUT
03834  M01S02855.lfm     +++|*                XX2X = ENFORCE RING IN
03835  M01S02856.lfm     +++|*                XX4X = INHIBIT UNLOAD
03836  M01S02857.lfm     +++|*                X1XX = TOGGLE INSTALLATION SETTING TO ENABLE/DISABLE
03837  M01S02858.lfm     +++|*                       GCR HARDWARE WRITE ERROR CORRECTION
03838  M01S02859.lfm     +++|*                X2XX = TOGGLE INSTALLATION SETTING TO ENABLE/DISABLE
03839  M01S02860.lfm     +++|*                       ISSUING OF ERROR MESSAGES TO USER DAYFILE
03840  M01S02861.lfm     +++|*                0XXX = DEFAULT EOT OPTION SELECTED ACCORDING TO
03841  M01S02862.lfm     +++|*                       LABEL AND FORMAT SPECIFICATION
03842  M01S02863.lfm     +++|*                1XXX = STOP ON TAPE MARK AFTER EOT (UNLABELED)
03843  M01S02864.lfm     +++|*                1XXX = STOP ON TAPE MARK PLUS LABELS (LABELED)
03844  M01S02865.lfm     +++|*                2XXX = ACCEPT BLOCK IN PROGRESS ON EOT
03845  M01S02866.lfm     +++|*                4XXX = INGORE BLOCK IN PROGRESS ON EOT
03846  M01S02867.lfm     +++|*
03847  M01S02868.lfm     +++|*         F      DATA FORMAT
03848  M01S02869.lfm     +++|*                0 = INTERNAL BINARY
03849  M01S02870.lfm     +++|*                1 = NOS/BE INTERNAL BINARY
03850  M01S02871.lfm     +++|*                2 = FOREIGN
03851  M01S02872.lfm     +++|*                3 = STRANGER
03852  M01S02873.lfm     +++|*                4 = LONG BLOCK STRANGER
03853  M01S00227.274l797 +++|*                5 = LONG BLOCK INTERNAL BINARY
03854  M01S02874.lfm     +++|*
03855  M01S02875.lfm     +++|*         NS     NOISE SIZE IN FRAMES
03856  M01S02876.lfm     +++|*
03857  M01S02877.lfm     +++|*         FS     BLOCK SIZE IN FRAMES
03858  M01S02878.lfm     +++|*
03859  M01S02879.lfm     +++|*T  FET+11B 36/VSN,6/A,3/0,15/SN

Figure FET+11

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "SN", "bits": 15, "type": 4 },
{ "name": "0", "bits": 3, "type": 3 },
{ "name": "A", "bits": 6, "type": 2 },
{ "name": "VSN", "bits": B 36, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

03860  M01S02880.lfm     +++|*         VSN    6 CHARACTER VOLUME SERIAL NUMBER  (SPACE FILLED)
03861  M01S02881.lfm     +++|*         A      1 CHARACTER ACCESSIBILITY  (DEFAULT = * *)
03862  M01S02882.lfm     +++|*         SN     FILE SECTION NUMBER  (DEFAULT = 0001)
03863  M01S02883.lfm     +++|*
03864  M01S02884.lfm     +++|*T  FET+12B 60/FI

Figure FET+12

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "FI", "bits": B 60, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

03865  M01S02885.lfm     +++|*         FI     FIRST 10 CHARACTERS OF FILE IDENTIFIER
03866  M01S02886.lfm     +++|*
03867  M01S02887.lfm     +++|*T  FET+13B 42/FI,3/0,15/QN

Figure FET+13

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "QN", "bits": 15, "type": 3 },
{ "name": "0", "bits": 3, "type": 2 },
{ "name": "FI", "bits": B 42, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

03868  M01S02888.lfm     +++|*         FI     LAST 7 CHARACTERS OF FILE IDENTIFIER  (SPACE FILLED)
03869  M01S02889.lfm     +++|*         QN     FILE SEQUENCE NUMBER  (DEFAULT = 0001)
03870  M01S02890.lfm     +++|*
03871  M01S02891.lfm     +++|*T  FET+14B 36/SI,9/E,15/G

Figure FET+14

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "G", "bits": 15, "type": 3 },
{ "name": "E", "bits": 9, "type": 2 },
{ "name": "SI", "bits": B 36, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

03872  M01S02892.lfm     +++|*         SI     6 CHARACTER MULTI-SET IDENTIFIER  (SPACE FILLED)
03873  M01S02893.lfm     +++|*         E      GENERATION VERSION NUMBER  (DEFAULT = 00)
03874  M01S02894.lfm     +++|*         G      GENERATION NUMBER  (DEFAULT = 0001)
03875  M01S02895.lfm     +++|*
03876  M01S02896.lfm     +++|*T  FET+15B 30/RTD,30/CRD

Figure FET+15

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "CRD", "bits": 30, "type": 2 },
{ "name": "RTD", "bits": B 30, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

03877  M01S02897.lfm     +++|*         RTD    RETENTION DATE (JULIAN)  (DEFAULT = TODAY)
03878  M01S02898.lfm     +++|*         CRD    CREATION DATE (JULIAN)  (DEFAULT = TODAY)
03879  M01S02899.lfm     +++|*
03880  M01S02900.lfm     +++|*         FOR AUTOMATIC ASSIGNMENT, A VOLUME SERIAL NUMBER MUST BE

Seq #  *Modification Id* Act 
----------------------------+
03881  M02S02901.v23l617 ---|*         SUPPLIED EITHER THROUGH A *VSN* CONTROL CARD OR BY THE VSN
03882  M01S00086.v23l617 +++|*         SUPPLIED EITHER THROUGH A *VSN* COMMAND OR BY THE VSN
03883  M01S02902.lfm     +++|*         FIELD IN FET+11B.  IF THE VSN FIELD IN FET+11B IS ZERO
03884  M01S02903.lfm     +++|*         AND NO VSN IS SPECIFIED, THE OPERATOR IS REQUESTED TO
03885  M01S02904.lfm     +++|*         MAKE THE APPROPRIATE EQUIPMENT ASSIGNMENT.
03886  M01S02905.lfm     +++|
03887  M01S02906.lfm     +++|
03888  M01S02907.lfm     +++|
03889  M01S02908.lfm     +++|
03890  M01S02909.lfm     +++|          ENTRY  LBR
03891  M01S02910.lfm     +++|          LDD    CP          CHECK FOR *SPCW* BUSY
03892  M01S02911.lfm     +++|          ADC    SPCW
03893  M01S02912.lfm     +++|          CRD    CN
03894  M01S02913.lfm     +++|          LDD    CN
03895  M01S02914.lfm     +++|          NJN    LBR1        IF DMP= REQUEST ALREADY PRESENT
03896  M01S02915.lfm     +++|          STD    CM+1        CALL *RESEX*
03897  M01S02916.lfm     +++|          MONITOR ROCM       ROLLOUT JOB
03898  M01S02917.lfm     +++|          LDD    IA          READ REQUEST
03899  M01S02918.lfm     +++|          CRD    CM
03900  M01S02919.lfm     +++|          LDD    CM+1
03901  M01S02920.lfm     +++|          SCN    77
03902  M01S02921.lfm     +++|          ADN    20          SET RECALL PP PROCESSOR BIT
03903  M01S02922.lfm     +++|          STD    CM+1
03904  M01S02923.lfm     +++|          LDD    RA          REWRITE USER CALL
03905  M01S02924.lfm     +++|          SHN    6
03906  M01S02925.lfm     +++|          ADN    1
03907  M01S02926.lfm     +++|          CWD    CM
03908  M01S02927.lfm     +++|          LDD    CM+2        CLEAR UNUSED FIELDS
03909  M01S02928.lfm     +++|          LPN    77
03910  M01S02929.lfm     +++|          STD    CM+2
03911  M01S02930.lfm     +++|          LDD    CM+3
03912  M01S02931.lfm     +++|          LPN    77
03913  M01S02932.lfm     +++|          STD    CM+3
03914  M01S02933.lfm     +++|          LDD    CP          ENTER EXTERNAL CALL
03915  M01S02934.lfm     +++|          ADC    SPCW
03916  M01S02935.lfm     +++|          CWD    CM
03917  M01S02936.lfm     +++|          LJM    DPP         DROP PPU
03918  M01S02937.lfm     +++|
03919  M01S02938.lfm     +++| LBR1     LDN    0           CLEAR FNT ADDRESS
03920  M01S02939.lfm     +++|          STD    FA
03921  M01S02940.lfm     +++|          LDN    /ERR/SYE    * SYSTEM ERROR.*
03922  M01S02941.lfm     +++|          LJM    ERR         PROCESS ERROR
03923  M01S02942.lfm     +++| OAE      SPACE  4,25
03924  M01S02943.lfm     +++|***       FUNCTION 26.
03925  M01S02944.lfm     +++|*         REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT.
03926  M01S02945.lfm     +++|*
03927  M01S02946.lfm     +++|*T FET+1  12/*EQ*, 12/, 12/*DD*, 24/

Figure FET+1

Seq #  *Modification Id* Act 
----------------------------+
03928  M02S02947.274l797 ---|*         EQ     DEVICE TYPE (*MT*, *NT*, OR ZERO = ANY EQUIPMENT)
03929  M01S00228.274l797 +++|*         EQ     DEVICE TYPE (*MT*, *NT*, *CT*, *AT*,
03930  M01S00229.274l797 +++|*                  OR ZERO = ANY EQUIPMENT)
03931  M01S02948.lfm     +++|*         DD     DENSITY DISPLAY (*HD*, *PE*, *GE*) IF *EQ* = *NT*
03932  M01S02949.lfm     +++|*
03933  M01S02950.lfm     +++|*T FET+7  6/*ID*, 48/

Figure FET+7

03934  M01S02951.lfm     +++|*         ID     CHECKPOINT ID, IF TO BE SET ON NON-MAGNETIC TAPE FILE
03935  M01S02952.lfm     +++|*                CBID = 75B = CHECKPOINT AT BOI.
03936  M01S02953.lfm     +++|*                CKID = 76B = CHECKPOINT AT EOI.
03937  M01S02954.lfm     +++|*
03938  M01S02955.lfm     +++|*T FET+11B 36/*VSN*, 24/

Figure FET+11B

03939  M01S02956.lfm     +++|*         VSN    DUPLICATE VSN CHOICE TO BE DISPLAYED IN OPERATOR
03940  M01S02957.lfm     +++|*                REQUEST MESSAGE (FOR FP=1 FUNCTION ONLY)
03941  M01S02958.lfm     +++|*
03942  M01S02959.lfm     +++|*         EXIT   *EQ* = DEVICE TYPE OF ASSIGNED EQUIPMENT.
03943  M01S02960.lfm     +++|*                *DD* = EST ORDINAL OF ASSIGNED UNIT IF TAPE EQUIPMENT.
03944  M01S02961.lfm     +++|*
03945  M01S02962.lfm     +++|*         THIS FUNCTION IS CALLED BY *RESEX* TO GET THE OPERATOR
03946  M01S02963.lfm     +++|*         TO MAKE AN EQUIPMENT ASSIGNMENT.
03947  M01S02964.lfm     +++|*
03948  M01S02965.lfm     +++|*         CALLER MUST HAVE SSJ= ENTRY POINT SET.
03949  M01S02966.lfm     +++|
03950  M01S02967.lfm     +++|
03951  M01S02968.lfm     +++|          ENTRY  OAE
03952  M01S02969.lfm     +++|          RJM    VSJ         VALIDATE SSJ=
03953  M01S02970.lfm     +++|          RJM    SVF         SEARCH FOR VSN FILE
03954  M01S02971.lfm     +++|          ZJN    OAE2        IF VSN FILE OR NO ENTRY
03955  M01S02972.lfm     +++|          LDN    0           CLEAR FNT ADDRESS
03956  M01S02973.lfm     +++|          STD    FA
03957  M01S02974.lfm     +++|          LDN    /ERR/DFN    DUPLICATE FILE
03958  M01S02975.lfm     +++| OAE1     LJM    ERR         PROCESS ERROR
03959  M01S02976.lfm     +++|
03960  M01S02977.lfm     +++| OAE2     LDD    FA
03961  M01S02978.lfm     +++|          ZJN    OAE3        IF NO ENTRY
03962  M01S02979.lfm     +++|          RJM    SFB         SET FILE BUSY
03963  M01S02980.lfm     +++|          ZJN    OAE3        IF NO REJECT ON FILE INTERLOCK
03964  M01S02981.lfm     +++|          LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
03965  M01S02982.lfm     +++|          UJN    OAE1        PROCESS ERROR
03966  M01S02983.lfm     +++|
03967  M01S02984.lfm     +++| OAE3     RJM    CPA         READ FIRST
03968  M01S02985.lfm     +++|          ADN    1
03969  M01S02986.lfm     +++|          CRD    CN
03970  M01S02987.lfm     +++|          ADN    10          READ VSN FROM FET+11B
03971  M01S02988.lfm     +++|          CRD    VS
03972  M01S00229.ns22000 +++|          RJM    GVA         GET AND VALIDATE ACCESS LEVEL
03973  M01S02989.lfm     +++|          LDD    FP
03974  M01S02990.lfm     +++|          LPN    1
03975  M01S02991.lfm     +++|          NJN    OAE4        IF OPERATOR ASSIGNMENT ON DUPLICATE VSN
03976  M01S02992.lfm     +++|          STD    VS
03977  M01S02993.lfm     +++| OAE4     LDD    CN
03978  M01S02994.lfm     +++|          ZJN    OAE6        IF NO EQUIPMENT SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03979  M02S02995.274l797 ---|          LMC    2RMT

Seq #  *Modification Id* Act 
----------------------------+
03980  M02S02996.274l797 ---|          ZJN    OAE5        IF *MT*

Seq #  *Modification Id* Act 
----------------------------+
03981  M02S02997.274l797 ---|          LMC    2RNT&2RMT

Seq #  *Modification Id* Act 
----------------------------+
03982  M02S02998.274l797 ---|          ZJN    OAE5        IF *NT*
03983  M01S00230.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
03984  M01S00231.274l797 +++|          ZJN    OAE5        IF TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
03985  M02S02999.v23l617 ---|          LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
03986  M01S00087.v23l617 +++|          LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
03987  M01S03000.lfm     +++|          UJN    OAE1        PROCESS ERROR
03988  M01S03001.lfm     +++|
03989  M01S03002.lfm     +++| OAE5     RJM    SEQ         SEARCH FOR EQUIPMENT
03990  M01S03003.lfm     +++|
03991  M01S03004.lfm     +++|*         REQUEST OPERATOR ASSIGNMENT.
03992  M01S03005.lfm     +++|
03993  M01S03006.lfm     +++| OAE6     LDN    1
03994  M01S03007.lfm     +++|          RJM    REA         REQUEST EQUIPMENT ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
03995  M02S03008.274l797 ---|          ZJN    OAE9        IF TAPE EQUIPMENT (MT OR NT)
03996  M01S00232.274l797 +++|          ZJN    OAE9        IF TAPE EQUIPMENT (MT, NT, CT OR AT)
03997  M01S03009.lfm     +++|          LDD    EQ          RESET OPERATOR EQUIPMENT IF ENTER RECALL
03998  M01S03010.lfm     +++|          STM    EFNA
03999  M01S03011.lfm     +++|          LDD    FS
04000  M01S03012.lfm     +++|          SHN    21-13
04001  M01S03013.lfm     +++|          MJN    OAE8        IF MASS STORAGE
04002  M01S03014.lfm     +++|          SHN    21-12-21+13
04003  M01S03015.lfm     +++|          MJN    OAE7        IF ALLOCATABLE DEVICE
04004  M01S03016.lfm     +++|          RJM    VAE         VALIDATE ASSIGNED EQUIPMENT
04005  M01S03017.lfm     +++|          UJN    OAE8        ASSIGN FILE
04006  M01S03018.lfm     +++|
04007  M01S03019.lfm     +++| OAE7     RJM    DEQ         RELEASE EQUIPMENT
04008  M01S03020.lfm     +++| OAE8     LJM    ASF         ASSIGN FILE
04009  M01S03021.lfm     +++|
04010  M01S03022.lfm     +++|*         RETURN TAPE EQUIPMENT.
04011  M01S03023.lfm     +++|
04012  M01S03024.lfm     +++| OAE9     STD    CM          CLEAR REQUEST MESSAGE
04013  M01S03025.lfm     +++|          LDD    CP
04014  M01S03026.lfm     +++|          ADN    MS2W
04015  M01S03027.lfm     +++|          CWD    CM
04016  M01S03028.lfm     +++|          LDN    0           CLEAR PAUSE BIT
04017  M01S03029.lfm     +++|          RJM    SPB
04018  M01S03030.lfm     +++|          RJM    DEQ         RELEASE TAPE EQUIPMENT
04019  M01S03031.lfm     +++|          LDD    FS+3        RETURN DEVICE TYPE IN FET

Seq #  *Modification Id* Act 
----------------------------+
04020  M02S03032.252l678 ---|          LPC    3777
04021  M01S03033.lfm     +++|          STD    CN

Seq #  *Modification Id* Act 
----------------------------+
04022  M02S03034.ns22000 ---|          LDD    CN+2        RETURN EQUIPMENT ORDINAL IN FET

Seq #  *Modification Id* Act 
----------------------------+
04023  M02S03035.ns22000 ---|          SCN    77

Seq #  *Modification Id* Act 
----------------------------+
04024  M02S03036.ns22000 ---|          ADD    EQ
04025  M01S00230.ns22000 +++|          LDD    EQ
04026  M01S03037.lfm     +++|          STD    CN+2
04027  M01S03038.lfm     +++|          RJM    CPA         READ FET+1
04028  M01S03039.lfm     +++|          ADN    1
04029  M01S03040.lfm     +++|          CWD    CN
04030  M01S03041.lfm     +++|          LDD    FA
04031  M01S03042.lfm     +++|          ZJN    OAE10       IF NO FNT/FST ENTRY
04032  M01S03043.lfm     +++|          NFA    FA,R
04033  M01S03044.lfm     +++|          ADN    FSTL
04034  M01S03045.lfm     +++|          CRD    FS          READ FST ENTRY
04035  M01S03046.lfm     +++| OAE10    LJM    LFMX        RETURN
04036  M01S03047.lfm     +++| VSN      SPACE  4,30
04037  M01S03048.lfm     +++|***       FUNCTION 27.
04038  M01S03049.lfm     +++|*         BUILD TAPE FILE FNT/FST.
04039  M01S03050.lfm     +++|*
04040  M01S03051.lfm     +++|*         ASSIGNMENT OPERATIONS.
04041  M01S03052.lfm     +++|*T FET+10 1/R,11/EQ,12/UDT,4/FM,20/0,1/L,11/0

Figure FET+10

04042  M01S03053.lfm     +++|*
04043  M01S03054.lfm     +++|*         VSN OPERATIONS.
04044  M01S03055.lfm     +++|*T FET+10 30/0,18/VSN,12/0

Figure FET+10

04045  M01S03056.lfm     +++|*
04046  M01S03057.lfm     +++|*         R      RELEASE TAPE EQUIPMENT (REASSIGN TO *TE*)
04047  M01S03058.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04048  M02S03059.ns22000 ---|*         EQ     EQUIPMENT NUMBER
04049  M01S00231.ns22000 +++|*         EQ     EST ORDINAL
04050  M01S03060.lfm     +++|*
04051  M01S03061.lfm     +++|*         UDT    MAGNET UNIT DESCRIPTOR TABLE ADDRESS
04052  M01S03062.lfm     +++|*
04053  M01S03063.lfm     +++|*         FM     FORMAT
04054  M01S03064.lfm     +++|*
04055  M01S03065.lfm     +++|*         L      LABEL BIT
04056  M01S03066.lfm     +++|*
04057  M01S03067.lfm     +++|*         VSN    VSNFILE RANDOM INDEX
04058  M01S03068.lfm     +++|*
04059  M01S03069.lfm     +++|*         CALLER MUST HAVE SSJ= ENTRY POINT SET.
04060  M01S03070.lfm     +++|*
04061  M01S03071.lfm     +++|*         ENTRY  (FN - FN+3) = FILE NAME FROM FET+0.
04062  M01S03072.lfm     +++|*                (FF) = FET SPECIFIED FNT ADDRESS.
04063  M01S03073.lfm     +++|*
04064  M01S03074.lfm     +++|*         EXIT   FET+10B CLEARED IF REQUEST CANNOT BE SATISFIED.
04065  M01S03075.lfm     +++|*                TO ERR IF LOCAL FILE LIMIT EXCEEDED.
04066  M01S03076.lfm     +++|
04067  M01S03077.lfm     +++|
04068  M01S03078.lfm     +++|          ENTRY  VSN
04069  M01S03079.lfm     +++|          RJM    VSJ         VALIDATE SSJ=
04070  M01S03080.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
04071  M01S03081.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
04072  M01S03082.lfm     +++|          LDD    FA          SET FILE BUSY

Seq #  *Modification Id* Act 
----------------------------+
04073  M02S03083.lfm18   ---|          ZJN    VSN3        IF NO FILE
04074  M01S00001.lfm18   +++|          ZJP    VSN3        IF FILE NOT LOCAL
04075  M01S03084.lfm     +++|          RJM    SFB         SET FILE BUSY
04076  M01S03085.lfm     +++|          ZJN    VSN1        IF NO REJECT ON FILE INTERLOCK
04077  M01S03086.lfm     +++|          LDN    /ERR/IOE    *I/O SEQUENCE ERROR
04078  M01S03087.lfm     +++|          LJM    ERR         PROCESS ERROR
04079  M01S03088.lfm     +++|
04080  M01S03089.lfm     +++|
04081  M01S03090.lfm     +++|*         VALIDATE ENTRY.
04082  M01S03091.lfm     +++|
04083  M01S03092.lfm     +++| VSN1     LDD    FS
04084  M01S03093.lfm     +++|          RJM    VTE         VERIFY TAPE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04085  M02S03094.lfm18   ---|          PJN    VSN4        IF TAPE FILE
04086  M01S00002.lfm18   +++|          MJN    VSN2        IF NOT TAPE FILE
04087  M01S00003.lfm18   +++|          STD    T1          SAVE ENTRY STATUS
04088  M01S00004.lfm18   +++|          RJM    CPA         READ FET+1
04089  M01S00005.lfm18   +++|          ADN    1
04090  M01S00006.lfm18   +++|          CRD    CN
04091  M01S00007.lfm18   +++|          RJM    GVA         GET AND VALIDATE ACCESS LEVEL
04092  M01S00008.lfm18   +++|          LDD    AL
04093  M01S00009.lfm18   +++|          ZJN    VSN1.1      IF *AL* NOT SPECIFIED
04094  M01S00010.lfm18   +++|          NFA    FA,R        SET ACCESS LEVEL IN FNT
04095  M01S00011.lfm18   +++|          ADN    FUTL
04096  M01S00012.lfm18   +++|          CRD    CN
04097  M01S00013.lfm18   +++|          LDD    AL
04098  M01S00014.lfm18   +++|          LPN    7
04099  M01S00015.lfm18   +++|          LMD    CN+2
04100  M01S00016.lfm18   +++|          LPN    7
04101  M01S00017.lfm18   +++|          LMD    CN+2
04102  M01S00018.lfm18   +++|          STD    CN+2
04103  M01S00019.lfm18   +++|          NFA    FA,R
04104  M01S00020.lfm18   +++|          ADN    FUTL
04105  M01S00021.lfm18   +++|          CWD    CN
04106  M01S00022.lfm18   +++| VSN1.1   UJN    VSN4        CONTINUE
04107  M01S03095.lfm     +++|
04108  M01S03096.lfm     +++| VSN2     LDN    /ERR/DFN    *DUPLICATE FILE NAME.*
04109  M01S03097.lfm     +++|          LJM    ERR         PROCESS ERROR
04110  M01S03098.lfm     +++|
04111  M01S03099.lfm     +++| VSN3     LDN    TEEQ        ASSIGN TO *TE* EQUIPMENT
04112  M01S03100.lfm     +++|          STD    EQ
04113  M01S00232.ns22000 +++|          RJM    CPA         READ FET+1
04114  M01S00233.ns22000 +++|          ADN    1
04115  M01S00234.ns22000 +++|          CRD    CN
04116  M01S00235.ns22000 +++|          RJM    GVA         GET AND VALIDATE ACCESS LEVEL
04117  M01S03101.lfm     +++|          RJM    CLF         CREATE LOCAL FILE
04118  M01S03102.lfm     +++|          LDN    1           SET VSN STATUS

Seq #  *Modification Id* Act 
----------------------------+
04119  M02S03103.lfm18   ---| VSN4     STD    T1          SAVE ENTRY STATUS

Seq #  *Modification Id* Act 
----------------------------+
04120  M02S03104.lfm18   ---|          RJM    CPA         READ FET + 10
04121  M01S00023.lfm18   +++|          STD    T1
04122  M01S00024.lfm18   +++| VSN4     RJM    CPA         READ FET+10
04123  M01S03105.lfm     +++|          ADN    10
04124  M01S03106.lfm     +++|          CRD    CN
04125  M01S03107.lfm     +++|          LDD    CN          CHECK TYPE OF OPERATION
04126  M01S03108.lfm     +++|          NJN    VSN6        IF ENTERING ASSIGNMENT INFORMATION
04127  M01S03109.lfm     +++|          LDD    FS+2        CHECK FOR VSN INDEX PRESENT
04128  M01S03110.lfm     +++|          LPN    77
04129  M01S03111.lfm     +++|          SHN    14
04130  M01S03112.lfm     +++|          LMD    FS+3
04131  M01S03113.lfm     +++|          NJN    VSN2        IF VSN INDEX ALREADY ENTERED
04132  M01S03114.lfm     +++|          LDD    FS+2        ENTER VSN INDEX
04133  M01S03115.lfm     +++|          SCN    77
04134  M01S03116.lfm     +++|          STD    FS+2
04135  M01S03117.lfm     +++|          LDD    CN+2
04136  M01S03118.lfm     +++|          LPN    77
04137  M01S03119.lfm     +++|          RAD    FS+2
04138  M01S03120.lfm     +++|          LDD    CN+3
04139  M01S03121.lfm     +++|          STD    FS+3
04140  M01S03122.lfm     +++| VSN5     LJM    LFMX        EXIT
04141  M01S03123.lfm     +++|
04142  M01S03124.lfm     +++| VSN6     LDD    T1          CHECK ENTRY STATUS
04143  M01S03125.lfm     +++|          NJN    VSN7        IF VSN ENTRY PRESENT
04144  M01S03126.lfm     +++|          LDD    CN
04145  M01S03127.lfm     +++|          LPC    777
04146  M01S03128.lfm     +++|          STD    CN
04147  M01S03129.lfm     +++|          LMD    FS
04148  M01S03130.lfm     +++|          NJN    VSN8        IF EQUIPMENTS DO NOT MATCH
04149  M01S03131.lfm     +++|          LDD    CN
04150  M01S03132.lfm     +++|          STD    EQ

Seq #  *Modification Id* Act 
----------------------------+
04151  M02S03133.242l642 ---|          SHN    21-13       CHECK FOR EQUIPMENT RELEASE

Seq #  *Modification Id* Act 
----------------------------+
04152  M02S03134.242l642 ---|          PJN    VSN10       IF ENTER UDT INFORMATION FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
04153  M02S03135.242l642 ---|          RJM    DEQ         RELEASE TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04154  M02S03136.242l642 ---|          LDN    TEEQ        ASSIGN TO *TE* EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04155  M02S03137.242l642 ---|          STD    FS

Seq #  *Modification Id* Act 
----------------------------+
04156  M02S03138.242l642 ---|          UJN    VSN5        EXIT
04157  M01S00098.242l642 +++|          UJN    VSN10       ENTER UDT ADDRESS
04158  M01S03139.lfm     +++|
04159  M01S03140.lfm     +++| VSN7     LDD    CN          VALIDATE EQUIPMENT TO BE ASSIGNED
04160  M01S03141.lfm     +++|          RJM    VTE         VERIFY TAPE EQUIPMENT
04161  M01S03142.lfm     +++|          ZJN    VSN9        IF TAPE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04162  M02S03143.v23l617 ---| VSN8     LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
04163  M01S00088.v23l617 +++| VSN8     LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
04164  M01S03144.lfm     +++|          LJM    ERR         PROCESS ERROR
04165  M01S03145.lfm     +++|
04166  M01S03146.lfm     +++| VSN9     LDD    CN          ENTER EQUIPMENT
04167  M01S03147.lfm     +++|          STD    CM+1        RESERVE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
04168  M02S03148.242l642 ---|          LDN    0           REQUEST ACTIVE EQUIPMENT
04169  M01S00099.242l642 +++|          LDK    REQS        REQUEST ACTIVE EQUIPMENT
04170  M01S03149.lfm     +++|          STD    CM+2
04171  M01S03150.lfm     +++|          MONITOR REQM
04172  M01S03151.lfm     +++|          LDD    CM+1
04173  M01S03152.lfm     +++|          ZJN    VSN11       IF NOT RESERVED
04174  M01S00100.242l642 +++|          LDD    CN          SET EST ORDINAL
04175  M01S03153.lfm     +++|          STD    FS
04176  M01S03154.lfm     +++| VSN10    LDD    CN+1        ENTER UDT ADDRESS
04177  M01S03155.lfm     +++|          STD    FS+1
04178  M01S03156.lfm     +++|          LDD    FS+2
04179  M01S03157.lfm     +++|          LPN    77
04180  M01S03158.lfm     +++|          STD    FS+2
04181  M01S03159.lfm     +++|          LDD    CN+2        ENTER FORMAT
04182  M01S03160.lfm     +++|          LPC    7400
04183  M01S03161.lfm     +++|          RAD    FS+2
04184  M01S03162.lfm     +++|          LDD    CN+4        ENTER LABEL BIT
04185  M01S03163.lfm     +++|          LPC    4000
04186  M01S03164.lfm     +++|          RAD    FS+4
04187  M01S03165.lfm     +++|          UJN    VSN12       EXIT
04188  M01S03166.lfm     +++|
04189  M01S03167.lfm     +++| VSN11    LDN    ZERL        CLEAR FET+10
04190  M01S03168.lfm     +++|          CRD    CN
04191  M01S03169.lfm     +++|          RJM    CPA
04192  M01S03170.lfm     +++|          ADN    10
04193  M01S03171.lfm     +++|          CWD    CN
04194  M01S03172.lfm     +++| VSN12    LJM    LFMX        EXIT
04195  M01S03173.lfm     +++| ASF      SPACE  4,15
04196  M01S03174.lfm     +++|**        ASF - ASSIGN NON-TAPE FILE.
04197  M01S03175.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04198  M02S03176.ns22000 ---|*         ENTRY  (EQ) = EQUIPMENT NUMBER.
04199  M01S00236.ns22000 +++|*         ENTRY  (EQ) = EST ORDINAL.
04200  M01S00237.ns22000 +++|*                (AL) = 8/, 1/ACCESS LEVEL FLAG, 3/ACCESS LEVEL.
04201  M01S03177.lfm     +++|*
04202  M01S03178.lfm     +++|*         EXIT   (FA) = ADDRESS OF FNT ENTRY.
04203  M01S03179.lfm     +++|*                (FN - FN+4) = FILE NAME.
04204  M01S03180.lfm     +++|*                (FS - FS+4) = FST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
04205  M02S03181.ns22000 ---|*                (FET+4) = 12/FNT ADDRESS,30/,18/LIMIT
04206  M01S03182.lfm     +++|*
04207  M01S03183.lfm     +++|*         USES   CN, EQ, FN+3, FS, FS+1, T1, T4, CM - CM+4.
04208  M01S03184.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04209  M02S03185.ns22000 ---|*         CALLS  CLF, CPA, C2D, DFM, SPB.

Seq #  *Modification Id* Act 
----------------------------+
04210  M02S00238.ns2171  ---|*         CALLS  ACS, CLF, CPA, C2D, DFM, SPB.
04211  M01S00019.ns2171  +++|*         CALLS  ACS, CLF, CPA, C2D, DFM, STB, UPC.
04212  M01S03186.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04213  M02S03187.ns22000 ---|*         MACROS MONITOR, NFA.
04214  M01S00239.ns22000 +++|*         MACROS MONITOR, NFA, SFA.
04215  M01S03188.lfm     +++|
04216  M01S03189.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
04217  M02S03190.ns22000 ---| ASF      LDD    TH          REQUEST ASSIGNMENT OF EQUIPMENT
04218  M01S00240.ns22000 +++| ASF      BSS    0           ENTRY
04219  M01S00241.ns22000 +++|          LDD    TH          REQUEST ASSIGNMENT OF EQUIPMENT
04220  M01S03191.lfm     +++|          RAD    EQ
04221  M01S03192.lfm     +++|          RJM    CLF         CREATE LOCAL FILE
04222  M01S03193.lfm     +++|          LDN    ZERL
04223  M01S03194.lfm     +++|          CRD    CM
04224  M01S03195.lfm     +++|          LDC    7777        CHECK FOR ASSIGNMENT OF *MSAL* DEVICE
04225  M01S03196.lfm     +++| ASFA     EQU    *-1         (*MSAL* CODE - SET BY *SEQ*)
04226  M01S03197.lfm     +++|          STD    CM+2
04227  M01S03198.lfm     +++|          SHN    21-13
04228  M01S03199.lfm     +++|          MJN    ASF1        IF NOT *MSAL* DEVICE

Seq #  *Modification Id* Act 
----------------------------+
04229  M02S03200.ns22000 ---|          MONITOR  RTCM      ASSIGN MASS STORAGE SPACE
04230  M01S00242.ns22000 +++|          LDD    AL          PASS ACCESS LEVEL TO *RTCM*
04231  M01S00243.ns22000 +++|          LPN    7
04232  M01S00244.ns22000 +++|          LMN    40
04233  M01S00245.ns22000 +++|          SHN    6
04234  M01S00246.ns22000 +++|          STD    CM+3
04235  M01S00247.ns22000 +++|          MONITOR  RTCM      ASSIGN MASS STORAGE SPACE

Seq #  *Modification Id* Act 
----------------------------+
04236  M02S03201.ns22000 ---|          LDD    CM+1        SET EQUIPMENT IN FST WORD
04237  M01S00248.ns22000 +++|          LDD    CM+1        SET EST ORDINAL IN FST
04238  M01S00001.ns2511  +++|          LPC    777
04239  M01S03202.lfm     +++|          STD    FS
04240  M01S03203.lfm     +++|          LDD    CM+4        SET FIRST TRACK IN FST
04241  M01S03204.lfm     +++|          STD    FS+1
04242  M01S03205.lfm     +++|          NFA    FA,R        REWRITE FST
04243  M01S03206.lfm     +++|          ADN    FSTL
04244  M01S03207.lfm     +++|          CWD    FS
04245  M01S03208.lfm     +++| ASF1     LDD    FS          FETCH EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04246  M02S03209.ns22000 ---|          LPC    777
04247  M01S03210.lfm     +++|          STD    EQ

Seq #  *Modification Id* Act 
----------------------------+
04248  M02S00032.ns22000 ---|          ZJN    ASF1.1      IF NO EQUIPMENT ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
04249  M02S00249.ns2165  ---|          ZJP    ASF1.1      IF NO EQUIPMENT ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
04250  M02S00001.ns2423  ---|          SHN    21-13

Seq #  *Modification Id* Act 
----------------------------+
04251  M02S00002.ns2423  ---|          MJP    ASF1.1      IF NO EQUIPMENT ASSIGNED
04252  M01S00001.ns2423  +++|          LPC    777
04253  M01S00002.ns2423  +++|          ZJP    ASF1.1      IF NO EQUIPMENT ASSIGNED
04254  M01S00003.ns2165  +++|          LDD    EQ

Seq #  *Modification Id* Act 
----------------------------+
04255  M02S03211.ns22000 ---|          ADM    ESTS        ENTER EQUIPMENT TYPE
04256  M01S00250.ns22000 +++|          SFA    EST         SET EQUIPMENT TYPE
04257  M01S00251.ns22000 +++|          ADK    EQDE
04258  M01S03212.lfm     +++|          CRD    CM
04259  M01S03213.lfm     +++|          LDD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
04260  M02S03214.252l678 ---|          LPC    3777

Proceed to Part 3