Deck LFM Part 001

48 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01646  M01S00004.lfm23   +++|          STD    FN+4        TERMINATE FILE NAME
01647  M01S00005.lfm23   +++|          LDD    FN+3
01648  M01S00006.lfm23   +++|          SCN    77
01649  M01S00007.lfm23   +++|          STD    FN+3
01650  M01S00008.lfm23   +++|          LDM    ERPA,EQ     ADD FILE NAME TO MESSAGE
01651  M01S00009.lfm23   +++|          ADN    13
01652  M01S00010.lfm23   +++|          STD    T1
01653  M01S00011.lfm23   +++|          LDN    FN
01654  M01S00012.lfm23   +++|          RJM    /COMPACS/ACS
01655  M01S00013.lfm23   +++|          LDC    =C*. *      ADD PERIOD
01656  M01S00014.lfm23   +++|          RJM    /COMPACS/ACS
01657  M01S00015.lfm23   +++| ERP0     LDM    ERPA,EQ
01658  M01S01327.lfm     +++|          LMC    CPON
01659  M01S01328.lfm     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01660  M02S01329.242l642 ---| ERP1     AOD    FS+4        SET FILE NOT BUSY

Seq #  *Modification Id* Act 
----------------------------+
01661  M02S01330.242l642 ---|          LDD    FA

Seq #  *Modification Id* Act 
----------------------------+
01662  M02S01331.242l642 ---|          ZJN    ERP2        IF NO FNT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01663  M02S01332.242l642 ---|          NFA    FA,R

Seq #  *Modification Id* Act 
----------------------------+
01664  M02S01333.242l642 ---|          ADN    FSTL

Seq #  *Modification Id* Act 
----------------------------+
01665  M02S01334.242l642 ---|          CWD    FS          STORE FST ENTRY
01666  M01S00079.242l642 +++| ERP1     RJM    SNB         SET FILE(S) NOT BUSY
01667  M01S01335.lfm     +++| ERP2     RJM    SFS         SET FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
01668  M02S01336.ns22000 ---|          MONITOR ABTM       ABORT CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
01669  M02S01337.ns22000 ---|          LJM    PPR         EXIT TO PP RESIDENT
01670  M01S00071.ns22000 +++|          LDD    EQ
01671  M01S00072.ns22000 +++|          LMN    /ERR/LNV
01672  M01S00073.ns22000 +++|          ZJN    ERP4        IF *ACCESS LEVEL NOT VALID FOR FILE* ERROR
01673  M01S00074.ns22000 +++|          MONITOR  ABTM      ABORT CONTROL POINT
01674  M01S00075.ns22000 +++| ERP3     LJM    PPR         EXIT TO PP RESIDENT
01675  M01S00076.ns22000 +++|
01676  M01S00077.ns22000 +++| ERP4     LDN    SVET        SET SECURITY VIOLATION ERROR FLAG
01677  M01S00078.ns22000 +++|          STD    CM+1
01678  M01S00079.ns22000 +++|          MONITOR  CEFM      SET ERROR FLAG
01679  M01S00080.ns22000 +++|          MONITOR  DPPM      DROP PP
01680  M01S00081.ns22000 +++|          UJN    ERP3        EXIT TO PPR
01681  M01S01338.lfm     +++|
01682  M01S01339.lfm     +++|
01683  M01S01340.lfm     +++| ERPA     BSS    0
01684  M01S01341.lfm     +++|          QUAL   ERR
01685  M01S01342.lfm     +++|          LOC    0
01686  M01S01343.lfm     +++|
01687  M01S01344.lfm     +++| FNF      CON    =C* FILE NOT FOUND.*
01688  M01S01345.lfm     +++| FLN      CON    =C* FILE NAME ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01689  M02S01346.v23l617 ---| IFT      CON    =C* ILLEGAL FILE TYPE.*
01690  M01S00023.v23l617 +++| IFT      CON    =C* INCORRECT FILE TYPE.*
01691  M01S01347.lfm     +++| FLE      CON    =C* FILE EMPTY.*

Seq #  *Modification Id* Act 
----------------------------+
01692  M02S01348.v23l617 ---| MNA      CON    =C* MAGNET NOT ACTIVE.*
01693  M01S00024.v23l617 +++| MNA      CON    =C* MAGNETIC TAPE SUBSYSTEM NOT ACTIVE.*

Seq #  *Modification Id* Act 
----------------------------+
01694  M02S01349.lfm19   ---|          CON    0           NOT USED
01695  M01S00004.lfm19   +++| CFE      CON    =C* COMMAND FILE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01696  M02S01350.v23l617 ---| IEQ      CON    =C* ILLEGAL EQUIPMENT.*
01697  M01S00025.v23l617 +++| IEQ      CON    =C* INCORRECT EQUIPMENT.*
01698  M01S01351.lfm     +++| WEQ      CON    =C* EQUIPMENT NOT AVAILABLE.*

Seq #  *Modification Id* Act 
----------------------------+
01699  M02S01352.lfm23   ---| DFN      CON    =C* DUPLICATE FILE NAME.*
01700  M01S00016.lfm23   +++| DFN      CON    =C* DUPLICATE FILE NAME - *

Seq #  *Modification Id* Act 
----------------------------+
01701  M02S01353.v23l617 ---| IUA      CON    =C* ILLEGAL USER ACCESS.*
01702  M01S00026.v23l617 +++| IUA      CON    =C* USER ACCESS NOT VALID.*

Seq #  *Modification Id* Act 
----------------------------+
01703  M02S01354.ns22000 ---|          CON    0           NOT USED
01704  M01S00082.ns22000 +++| LNV      CON    =C* ACCESS LEVEL NOT VALID FOR FILE.*
01705  M01S01355.lfm     +++|          CON    0           NOT USED
01706  M01S01356.lfm     +++| RDE      CON    0           RESEX DETECTED ERROR
01707  M01S01357.lfm     +++| IOE      CON    =C* I/O SEQUENCE ERROR.*
01708  M01S01358.lfm     +++|          CON    0           NOT USED
01709  M01S01359.lfm     +++|          CON    0           NOT USED
01710  M01S01360.lfm     +++| NMA      CON    =C* NO MASS STORAGE AVAILABLE.*

Seq #  *Modification Id* Act 
----------------------------+
01711  M02S01361.v23l617 ---| ILM      CON    =C* ILLEGAL FILE MODE.*
01712  M01S00027.v23l617 +++| ILM      CON    =C* INCORRECT FILE MODE.*
01713  M01S01362.lfm     +++| FTS      CON    =C* FET TOO SHORT.*
01714  M01S01363.lfm     +++| GTL      CON    =C* GETFNT TABLE TOO LARGE.*
01715  M01S01364.lfm     +++|          CON    0           NOT USED
01716  M01S01365.lfm     +++| PBB      CON    =C* PARAMETER BLOCK BUSY.*
01717  M01S01366.lfm     +++| AOR      CON    =C* ADDRESS OUT OF RANGE.*
01718  M01S01367.lfm     +++| SYE      CON    =C* SYSTEM ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01719  M02S01368.v23l617 ---| IRA      CON    =C* ILLEGAL RANDOM ADDRESS.*
01720  M01S00028.v23l617 +++| IRA      CON    =C* INCORRECT RANDOM ADDRESS.*

Seq #  *Modification Id* Act 
----------------------------+
01721  M02S01369.274l797 ---|          CON    0           NOT USED
01722  M01S00002.274l797 +++| ODE      CON    =C* OPTICAL DISK SYSTEM ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01723  M02S01370.v23l617 ---| IFS      CON    =C* ILLEGAL FILE STATUS.*
01724  M01S00029.v23l617 +++| IFS      CON    =C* INCORRECT FILE STATUS.*
01725  M01S01371.lfm     +++|
01726  M01S01372.lfm     +++|          LOC    *O
01727  M01S01373.lfm     +++|          QUAL   *
01728  M01S00011.lfm17   +++|          SPACE  4,10
01729  M01S00012.lfm17   +++|          ERRNG  OVL0-*      CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
01730  M01S00013.lfm17   +++|          OVERFLOW  OVL
01731  M01S01374.lfm     +++|          OVERLAY (LOCAL FILE FUNCTIONS.)
01732  M01S01375.lfm     +++|          SPACE  4,10
01733  M01S01376.lfm     +++|****      ADDITIONAL DIRECT LOCATION ASSIGNMENTS.
01734  M01S01377.lfm     +++|
01735  M01S01378.lfm     +++|
01736  M01S01379.lfm     +++| UD       EQU    60 - 64     UDT WORD BUFFER (5 LOCATIONS)
01737  M01S00030.v23l617 +++| ST       EQU    65          FILINFO STATUS BYTE (1 LOCATION)
01738  M01S00003.274l797 +++| SX       EQU    66          FILINFO EXTENDED STATUS (1 LOCATION)
01739  M01S01380.lfm     +++|
01740  M01S01381.lfm     +++|****
01741  M01S01382.lfm     +++| RNM      SPACE  4,25
01742  M01S01383.lfm     +++|***       FUNCTION 0.
01743  M01S01384.lfm     +++|*         RENAME FILE.
01744  M01S01385.lfm     +++|*
01745  M01S01386.lfm     +++|*         RENAME FILE TO THE NAME SPECIFIED IN (FET+6).
01746  M01S01387.lfm     +++|*
01747  M01S01388.lfm     +++|*         RENAME,A=B.
01748  M01S01389.lfm     +++|*         RENAME *B* TO *A*.
01749  M01S01390.lfm     +++|*
01750  M01S01391.lfm     +++|*         1.  IF FILE *A* DOES NOT EXIST, THEN THE FILE NAME OF *B*
01751  M01S01392.lfm     +++|*         IS CHANGED TO *A* IN THE LOCAL FNT.
01752  M01S01393.lfm     +++|*
01753  M01S01394.lfm     +++|*         2.  IF FILE *A* EXISTS, THEN
01754  M01S01395.lfm     +++|*                A.  *0DF* IS CALLED TO DROP THE LOCAL AND GLOBAL FNT
01755  M01S01396.lfm     +++|*                ENTRY FOR FILE *A*.
01756  M01S01397.lfm     +++|*                NOTE - IF FILE *A* IS NAMED /INPUT/, *0DF* DOES NOT
01757  M01S01398.lfm     +++|*                DROP THE FILE BUT RATHER CHANGES THE NAME TO /INPUT*/.
01758  M01S01399.lfm     +++|*
01759  M01S01400.lfm     +++|*                B.  THE FILE NAME OF *B* IS CHANGED TO *A* IN THE
01760  M01S01401.lfm     +++|*                LOCAL FNT.
01761  M01S01402.lfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01762  M02S01403.v23l617 ---|*         * ILLEGAL FILE TYPE.* - FILE *B* IS NOT TYPE LOFT, OR THE
01763  M01S00031.v23l617 +++|*         * INCORRECT FILE TYPE.* - FILE *B* IS NOT TYPE LOFT, OR THE
01764  M01S01404.lfm     +++|*                FILE TYPES OF *A* AND *B* ARE NOT THE SAME.
01765  M01S01405.lfm     +++|*
01766  M01S01406.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
01767  M01S01407.lfm     +++|
01768  M01S01408.lfm     +++|
01769  M01S01409.lfm     +++|          ENTRY  RNM
01770  M01S01410.lfm     +++|          LCN    6           CHECK FET LENGTH .GE. 7
01771  M01S01411.lfm     +++|          RJM    CFL
01772  M01S01412.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
01773  M01S01413.lfm     +++|          RJM    SIF         SEARCH AND INTERLOCK FILE
01774  M01S01414.lfm     +++|          LDD    FA          SET FNT ADDRESS OF *B*
01775  M01S01415.lfm     +++|          STM    RNMA
01776  M01S01416.lfm     +++|          LDD    FS+2        CHECK CURRENT TRACK
01777  M01S01417.lfm     +++|          NJN    RNM1        IF FILE HAS BEEN USED
01778  M01S01418.lfm     +++|          AOM    RNMD        SET ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01779  M02S01419.ns22000 ---| RNM1     LDD    FS          SET EST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01780  M02S01420.ns22000 ---|          ADM    ESTS
01781  M01S00083.ns22000 +++| RNM1     LDD    FS          SAVE EST ORDINAL IN *CFT*
01782  M01S01421.lfm     +++|          STM    CFTB
01783  M01S00001.lfm8    +++|          SFA    EST
01784  M01S00002.lfm8    +++|          ADK    EQDE
01785  M01S01422.lfm     +++|          RJM    CDP         CHECK FOR DMP= CALLING PROGRAM
01786  M01S01423.lfm     +++|          LDD    CM+3
01787  M01S01424.lfm     +++|          LPN    77
01788  M01S01425.lfm     +++|          STM    RNMC        SET STATUS
01789  M01S01426.lfm     +++|          LDD    CM+4        CHECK FILE TYPE
01790  M01S01427.lfm     +++|          STM    RNMB        PRESET FILE TYPE
01791  M01S01428.lfm     +++|          SHN    -6
01792  M01S01429.lfm     +++|          RAM    CFTA        SET FILE TYPE
01793  M01S01430.lfm     +++|
01794  M01S01431.lfm     +++|*         GET NEW FILE NAME FROM FET.
01795  M01S01432.lfm     +++|
01796  M01S01433.lfm     +++|          RJM    CPA         READ NEW NAME - *A*
01797  M01S01434.lfm     +++|          ADN    6
01798  M01S01435.lfm     +++|          CRD    FN
01799  M01S00080.242l642 +++|          LDD    FA          SET FNT ADDRESS OF FILE *B*
01800  M01S00081.242l642 +++|          STM    SNBA
01801  M01S01436.lfm     +++|          LDN    0           SET NO INITIAL FNT ADDRESS
01802  M01S01437.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
01803  M01S01438.lfm     +++|          NJN    RNM2        IF FILE *A* ALREADY EXISTS
01804  M01S00082.242l642 +++|*         LDN    0
01805  M01S01439.lfm     +++|          LJM    RNM5        GET *B* FST
01806  M01S01440.lfm     +++|
01807  M01S01441.lfm     +++|*         CHECK FILE TYPE OF *A*.
01808  M01S01442.lfm     +++|
01809  M01S01443.lfm     +++| RNM2     LMM    RNMA
01810  M01S01444.lfm     +++|          ZJN    RNM3        IF SAME FILE
01811  M01S01445.lfm     +++|          RJM    SFB         SET FILE *A* BUSY
01812  M01S01446.lfm     +++|          ZJN    RNM4        IF NO REJECT ON FILE INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
01813  M02S01447.242l642 ---|          LDM    RNMA        RESTORE *B* FST WORD FOR EXIT

Seq #  *Modification Id* Act 
----------------------------+
01814  M02S01448.242l642 ---|          STD    FA

Seq #  *Modification Id* Act 
----------------------------+
01815  M02S01449.242l642 ---|          NFA    FA,R

Seq #  *Modification Id* Act 
----------------------------+
01816  M02S01450.242l642 ---|          ADN    FSTL

Seq #  *Modification Id* Act 
----------------------------+
01817  M02S01451.242l642 ---|          CRD    FS

Seq #  *Modification Id* Act 
----------------------------+
01818  M02S01452.242l642 ---|          AOD    FS+4        SET FILE *B* COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
01819  M02S01453.242l642 ---|          NFA    FA,R

Seq #  *Modification Id* Act 
----------------------------+
01820  M02S01454.242l642 ---|          ADN    FSTL

Seq #  *Modification Id* Act 
----------------------------+
01821  M02S01455.242l642 ---|          CWD    FS
01822  M01S01456.lfm     +++|          LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
01823  M01S01457.lfm     +++|          UJN    RNM6        PROCESS ERROR
01824  M01S01458.lfm     +++|
01825  M01S01459.lfm     +++|*         EXIT WHEN FILE NAMES ARE THE SAME.
01826  M01S01460.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01827  M02S01461.242l642 ---| RNM3     NFA    FA,R        RESTORE *B* FST ENTRY FOR EXIT

Seq #  *Modification Id* Act 
----------------------------+
01828  M02S01462.242l642 ---|          ADN    FSTL

Seq #  *Modification Id* Act 
----------------------------+
01829  M02S01463.242l642 ---|          CRD    FS
01830  M01S00083.242l642 +++| RNM3     STD    FA
01831  M01S01464.lfm     +++|          LJM    LFMX        EXIT
01832  M01S01465.lfm     +++|
01833  M01S01466.lfm     +++| RNM4     RJM    CFT         CHECK FILE TYPE

Seq #  *Modification Id* Act 
----------------------------+
01834  M02S01467.v23l617 ---|          NJN    RNM7        IF ILLEGAL FILE TYPE
01835  M01S00032.v23l617 +++|          NJN    RNM7        IF INCORRECT FILE TYPE
01836  M01S01468.lfm     +++|          RJM    DRF         DROP FILE *A*

Seq #  *Modification Id* Act 
----------------------------+
01837  M02S01469.242l642 ---| RNM5     LDC    *           RESTORE *B* FNT ADDRESS
01838  M01S00084.242l642 +++|*         LDN    0
01839  M01S00085.242l642 +++| RNM5     STM    SNBA
01840  M01S00086.242l642 +++|          LDC    0           RESTORE FILE *B* FNT ADDRESS
01841  M01S01470.lfm     +++| RNMA     EQU    *-1
01842  M01S01471.lfm     +++|          STD    FA
01843  M01S01472.lfm     +++|          NFA    FA,R
01844  M01S01473.lfm     +++|          ADN    FSTL
01845  M01S01474.lfm     +++|          CRD    FS          LOAD ORIGINAL FST ENTRY
01846  M01S01475.lfm     +++|          RJM    VFN         VERIFY FILE NAME
01847  M01S01476.lfm     +++|          NJN    RNM8        IF NO ERROR
01848  M01S01477.lfm     +++|          LDN    /ERR/FLN    FILE NAME ERROR
01849  M01S01478.lfm     +++| RNM6     LJM    ERR         PROCESS ERROR
01850  M01S01479.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01851  M02S01480.v23l617 ---|*         EXIT IF ILLEGAL FILE TYPE ON FILE *B*.
01852  M01S00033.v23l617 +++|*         EXIT IF INCORRECT FILE TYPE ON FILE *B*.
01853  M01S01481.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01854  M02S01482.242l642 ---| RNM7     AOD    FS+4        SET FILE *A* COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
01855  M02S01483.242l642 ---|          NFA    FA,R

Seq #  *Modification Id* Act 
----------------------------+
01856  M02S01484.242l642 ---|          ADN    FSTL

Seq #  *Modification Id* Act 
----------------------------+
01857  M02S01485.242l642 ---|          CWD    FS

Seq #  *Modification Id* Act 
----------------------------+
01858  M02S01486.242l642 ---|          LDM    RNMA        RESTORE *B* FST WORD FOR EXIT

Seq #  *Modification Id* Act 
----------------------------+
01859  M02S01487.242l642 ---|          STD    FA

Seq #  *Modification Id* Act 
----------------------------+
01860  M02S01488.242l642 ---|          NFA    FA,R

Seq #  *Modification Id* Act 
----------------------------+
01861  M02S01489.242l642 ---|          ADN    FSTL

Seq #  *Modification Id* Act 
----------------------------+
01862  M02S01490.242l642 ---|          CRD    FS

Seq #  *Modification Id* Act 
----------------------------+
01863  M03S01491.242l642 ---|          LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*

Seq #  *Modification Id* Act 
----------------------------+
01864  M02S00034.242l642 ---|          LDN    /ERR/IFT    * INCORRECT FILE TYPE.*

Seq #  *Modification Id* Act 
----------------------------+
01865  M02S01492.242l642 ---|          LJM    ERR         PROCESS ERROR
01866  M01S00087.242l642 +++| RNM7     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
01867  M01S00088.242l642 +++|          UJN    RNM6        PROCESS ERROR
01868  M01S01493.lfm     +++|
01869  M01S01494.lfm     +++|*         CHANGE FILE NAME FROM *B* TO *A* IN FNT WORD.
01870  M01S01495.lfm     +++|
01871  M01S01496.lfm     +++| RNM8     LDC    *           RESTORE FILE TYPE OF *B*
01872  M01S01497.lfm     +++| RNMB     EQU    *-1         FILE TYPE
01873  M01S01498.lfm     +++|          STD    FN+4
01874  M01S01499.lfm     +++|          LDD    FN+3        RESTORE FILE STATUS OF *B*
01875  M01S01500.lfm     +++|          SCN    77
01876  M01S01501.lfm     +++|          ADC    *
01877  M01S01502.lfm     +++| RNMC     EQU    *-1         FILE STATUS
01878  M01S01503.lfm     +++|          STD    FN+3
01879  M01S01504.lfm     +++|          NFA    FA,R        WRITE NEW FNT WORD
01880  M01S01505.lfm     +++|          CWD    FN
01881  M01S01506.lfm     +++|          LDD    FN+4
01882  M01S01507.lfm     +++|          SHN    -6
01883  M01S01508.lfm     +++|          LMN    PTFT
01884  M01S01509.lfm     +++|          NJN    RNM10       IF NOT PRIMARY TERMINAL TYPE
01885  M01S01510.lfm     +++| RNMD     LDN    0
01886  M01S01511.lfm     +++|*         LDN    1           (FILE NOT USED)
01887  M01S01512.lfm     +++|          ZJN    RNM9        IF FILE USED
01888  M01S01513.lfm     +++|          LDN    /ERR/FLE    EMPTY FILE
01889  M01S01514.lfm     +++|          LJM    ERR         PROCESS ERROR
01890  M01S01515.lfm     +++|
01891  M01S01516.lfm     +++| RNM9     RJM    UPP         UPDATE PRIMARY FILE POINTERS
01892  M01S01517.lfm     +++| RNM10    LDN    0           SET TO NON-TAPE EQUIPMENT
01893  M01S01518.lfm     +++|*         LDN    1           (TAPE EQUIPMENT)
01894  M01S01519.lfm     +++| RNME     EQU    *-1
01895  M01S01520.lfm     +++|          NJN    RNM11       IF TAPE EQUIPMENT
01896  M01S00004.274l797 +++|          SFA    EST,FS      GET EQUIPMENT TYPE
01897  M01S00005.274l797 +++|          ADK    EQDE
01898  M01S00006.274l797 +++|          CRD    CM
01899  M01S00007.274l797 +++|          LDD    CM+3
01900  M01S00008.274l797 +++|          LMC    2ROD
01901  M01S00009.274l797 +++|          ZJP    RNM12       IF OPTICAL DISK FILE
01902  M01S01521.lfm     +++|          LJM    LFMX        EXIT
01903  M01S00010.274l797 +++|
01904  M01S00011.274l797 +++|*         PROCESS TAPE EQUIPMENT.
01905  M01S01522.lfm     +++|
01906  M01S01523.lfm     +++| RNM11    LDN    0
01907  M01S01524.lfm     +++|          STD    CM+1
01908  M01S01525.lfm     +++|          MONITOR ROCM       ROLLOUT JOB
01909  M01S01526.lfm     +++|          LDD    IA          READ REQUEST
01910  M01S01527.lfm     +++|          CRD    CM
01911  M01S01528.lfm     +++|          CRD    CN
01912  M01S01529.lfm     +++|          LDD    CN+1
01913  M01S01530.lfm     +++|          SCN    77
01914  M01S01531.lfm     +++|          ADN    20          SET RECALL PP PROCESSOR BIT
01915  M01S01532.lfm     +++|          STD    CN+1
01916  M01S01533.lfm     +++|          STD    CM+1
01917  M01S01534.lfm     +++|          LDD    CN+3
01918  M01S01535.lfm     +++|          LPN    77
01919  M01S01536.lfm     +++|          STD    CN+3
01920  M01S01537.lfm     +++|          LDD    CP
01921  M01S01538.lfm     +++|          ADC    SPCW
01922  M01S01539.lfm     +++|          CWD    CN          ENTER EXTERNAL CALL
01923  M01S01540.lfm     +++|          LDD    RA          REWRITE USERS CALL
01924  M01S01541.lfm     +++|          SHN    6
01925  M01S01542.lfm     +++|          ADN    1
01926  M01S01543.lfm     +++|          CWD    CM
01927  M01S01544.lfm     +++|          RJM    CPA         SET ORIGINAL NAME IN FET + 0
01928  M01S01545.lfm     +++|          CRD    FN
01929  M01S01546.lfm     +++|          LJM    LFMX        EXIT
01930  M01S00012.274l797 +++|
01931  M01S00013.274l797 +++|*         PROCESS OPTICAL DISK EQUIPMENT.
01932  M01S00014.274l797 +++|
01933  M01S00015.274l797 +++| RNM12    RJM    CPA         READ OLD FILE NAME
01934  M01S00016.274l797 +++|          CRD    FN
01935  M01S00017.274l797 +++|          RJM    SOF         SEARCH OPTICAL DISK FILE
01936  M01S00018.274l797 +++|          ZJN    RNM14       IF FILE FOUND
01937  M01S00019.274l797 +++| RNM13    NFA    FA,R        RESTORE FNT/FST WORDS
01938  M01S00020.274l797 +++|          CRD    FN
01939  M01S00021.274l797 +++|          ADN    FSTL
01940  M01S00022.274l797 +++|          CRD    FS
01941  M01S00023.274l797 +++|          LDN    /ERR/ODE    * OPTICAL DISK SYSTEM ERROR.*
01942  M01S00024.274l797 +++|          LJM    ERR         PROCESS ERROR
01943  M01S00025.274l797 +++|
01944  M01S00026.274l797 +++| RNM14    NFA    FA,R        SET NEW FILE NAME IN LABEL RECORD
01945  M01S00027.274l797 +++|          CRM    BFMS+2,ON
01946  M01S00028.274l797 +++|          LDM    BFMS+5
01947  M01S00029.274l797 +++|          SCN    77
01948  M01S00030.274l797 +++|          STM    BFMS+5
01949  M01S00031.274l797 +++|          LDN    0
01950  M01S00032.274l797 +++|          STM    BFMS+6
01951  M01S00033.274l797 +++|          SETMS  IO,RW
01952  M01S00034.274l797 +++|          LDC    BFMS+WLSF
01953  M01S00035.274l797 +++|          RJM    WDS         WRITE SECTOR
01954  M01S00036.274l797 +++|          MJN    RNM13       IF WRITE ERROR
01955  M01S00037.274l797 +++|          ENDMS
01956  M01S00038.274l797 +++|          NFA    FA,R        RESTORE FNT/FST WORDS
01957  M01S00039.274l797 +++|          CRD    FN
01958  M01S00040.274l797 +++|          ADN    FSTL
01959  M01S00041.274l797 +++|          CRD    FS
01960  M01S00042.274l797 +++|          LJM    LFMX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
01961  M02S01547.lfm17   ---|

Seq #  *Modification Id* Act 
----------------------------+
01962  M02S01548.lfm17   ---|

Seq #  *Modification Id* Act 
----------------------------+
01963  M02S01549.lfm17   ---|          ERRNG  OVL0-*      CHECK FOR OVERFLOW
01964  M01S01550.lfm     +++| STS      SPACE  4,10
01965  M01S01551.lfm     +++|***       FUNCTION 3.
01966  M01S01552.lfm     +++|*         SET FILE STATUS.
01967  M01S01553.lfm     +++|*
01968  M01S01554.lfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
01969  M01S01555.lfm     +++|*                (FN - FN+3) = FILE NAME FROM FET+0.
01970  M01S01556.lfm     +++|*                (FF) = FET SPECIFIED FNT ADDRESS.
01971  M01S01557.lfm     +++|*                (FP) = FILE STATUS.
01972  M01S01558.lfm     +++|
01973  M01S01559.lfm     +++|
01974  M01S01560.lfm     +++|          ENTRY  STS         ENTRY
01975  M01S01561.lfm     +++|          LDD    CP          CHECK FOR *SSJ=* CALLER
01976  M01S01562.lfm     +++|          ADC    SEPW
01977  M01S01563.lfm     +++|          CRD    CM
01978  M01S01564.lfm     +++|          LDD    CM
01979  M01S01565.lfm     +++|          SHN    21-2
01980  M01S01566.lfm     +++|          MJN    STS2        IF CALLER IS *SSJ=*
01981  M01S01567.lfm     +++|
01982  M01S01568.lfm     +++|*         FOR NON-*SSJ=* CALLER, VERIFY THAT VALUE SPECIFIED
01983  M01S01569.lfm     +++|*         IS ALLOWED.  OTHERWISE IGNORE REQUEST.
01984  M01S01570.lfm     +++|
01985  M01S01571.lfm     +++|          AOM    STSA        INDICATE NON-*SSJ=* CALLER
01986  M01S01572.lfm     +++|          LDN    TNFSL-1
01987  M01S01573.lfm     +++|          STD    T1
01988  M01S01574.lfm     +++| STS1     LDM    TNFS,T1     CHECK IF SPECIFIED VALUE IS IN TABLE
01989  M01S01575.lfm     +++|          LMD    FP
01990  M01S01576.lfm     +++|          ZJN    STS2        IF NEW STATUS FOUND IN TABLE
01991  M01S01577.lfm     +++|          SOD    T1
01992  M01S01578.lfm     +++|          PJN    STS1        IF NOT END OF TABLE
01993  M01S01579.lfm     +++|          LJM    LFMX        EXIT
01994  M01S01580.lfm     +++|
01995  M01S01581.lfm     +++| STS2     LDD    FP          CHECK SPECIFIED STATUS
01996  M01S01582.lfm     +++|          SBN    MXST
01997  M01S01583.lfm     +++|          MJN    STS5        IF LEGAL STATUS

Seq #  *Modification Id* Act 
----------------------------+
01998  M02S01584.v23l617 ---|          LDN    /ERR/IFS    * ILLEGAL FILE STATUS.*
01999  M01S00035.v23l617 +++|          LDN    /ERR/IFS    * INCORRECT FILE STATUS.*
02000  M01S01585.lfm     +++| STS3     LJM    ERR         PROCESS ERROR
02001  M01S01586.lfm     +++|
02002  M01S01587.lfm     +++|*         CHECK CURRENT VALUE OF FILE STATUS FIELD.
02003  M01S01588.lfm     +++|
02004  M01S01589.lfm     +++| STS4     NFA    FA,R        READ LOCAL FNT WORD
02005  M01S01590.lfm     +++|          CRD    FS
02006  M01S01591.lfm     +++|          RJM    SFB         SET FILE BUSY
02007  M01S01592.lfm     +++|          ZJN    STS6        IF FILE SET BUSY
02008  M01S01593.lfm     +++|          LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
02009  M01S01594.lfm     +++|          UJN    STS3        PROCESS ERROR
02010  M01S01595.lfm     +++|
02011  M01S01596.lfm     +++| STS5     LDD    FF          SEARCH FOR ASSIGNED FILE
02012  M01S01597.lfm     +++|          RJM    SAF
02013  M01S01598.lfm     +++|          NJN    STS4        IF FILE FOUND
02014  M01S01599.lfm     +++|          RJM    EFN         CREATE LOCAL FILE
02015  M01S01600.lfm     +++|          NFA    FA,R
02016  M01S01601.lfm     +++|          CRD    CM
02017  M01S01602.lfm     +++|
02018  M01S01603.lfm     +++|*         FOR A NON-*SSJ=* CALLER, VERIFY THAT THE CURRENT STATUS
02019  M01S01604.lfm     +++|*         IS A VALUE THAT MAY BE CHANGED.
02020  M01S01605.lfm     +++|
02021  M01S01606.lfm     +++| STS6     LDN    0
02022  M01S01607.lfm     +++|*         LDN    1           (NON-*SSJ=* CALLER)
02023  M01S01608.lfm     +++| STSA     EQU    *-1
02024  M01S01609.lfm     +++|          ZJN    STS9        IF CALLER IS *SSJ=*
02025  M01S01610.lfm     +++|          LDN    TOFSL-1
02026  M01S01611.lfm     +++|          STD    T1
02027  M01S01612.lfm     +++| STS7     LDM    TOFS,T1     COMPARE EXISTING STATUS WITH TABLE
02028  M01S01613.lfm     +++|          LMD    CM+4
02029  M01S01614.lfm     +++|          LPN    77
02030  M01S01615.lfm     +++|          ZJN    STS9        IF EXISTING STATUS FOUND IN TABLE
02031  M01S01616.lfm     +++|          SOD    T1
02032  M01S01617.lfm     +++|          PJN    STS7        IF NOT END OF TABLE
02033  M01S01618.lfm     +++| STS8     LJM    LFMX        IGNORE REQUEST
02034  M01S01619.lfm     +++|
02035  M01S01620.lfm     +++|*         SET NEW FILE STATUS.
02036  M01S01621.lfm     +++|
02037  M01S01622.lfm     +++| STS9     LDD    CM+4
02038  M01S01623.lfm     +++|          SCN    77
02039  M01S01624.lfm     +++|          LMD    FP
02040  M01S01625.lfm     +++|          STD    CM+4
02041  M01S01626.lfm     +++|          NFA    FA,R        REWRITE FNT WORD
02042  M01S01627.lfm     +++|          CWD    CM
02043  M01S01628.lfm     +++|          UJN    STS8        EXIT
02044  M01S01629.lfm     +++|
02045  M01S01630.lfm     +++|
02046  M01S01631.lfm     +++|*         TABLE OF STATUSES THAT MAY BE SET BY USER.
02047  M01S01632.lfm     +++|
02048  M01S01633.lfm     +++| TNFS     BSS    0
02049  M01S01634.lfm     +++|          CON    0
02050  M01S01635.lfm     +++|          CON    NDST
02051  M01S01636.lfm     +++| TNFSL    EQU    *-TNFS
02052  M01S01637.lfm     +++|
02053  M01S01638.lfm     +++|
02054  M01S01639.lfm     +++|*         TABLE OF STATUSES THAT MAY BE CHANGED BY USER.
02055  M01S01640.lfm     +++|
02056  M01S01641.lfm     +++| TOFS     BSS    0
02057  M01S01642.lfm     +++|          CON    0
02058  M01S00001.lfm22   +++|          CON    UPST
02059  M01S01643.lfm     +++|          CON    NDST
02060  M01S01644.lfm     +++| TOFSL    EQU    *-TOFS
02061  M01S00084.ns22000 +++| FSL      SPACE  4,20
02062  M01S00085.ns22000 +++|***       FSL - FUNCTION 7.
02063  M01S00086.ns22000 +++|*
02064  M01S00087.ns22000 +++|*         SET FILE ACCESS LEVEL.
02065  M01S00088.ns22000 +++|*
02066  M01S00089.ns22000 +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
02067  M01S00090.ns22000 +++|*                (FET+1, BIT 39) = SECURITY PROCESSING BIT-
02068  M01S00091.ns22000 +++|*                                = NONZERO, TAKE ACCESS LEVEL
02069  M01S00092.ns22000 +++|*                                  FROM FET+4, BITS 36-38.
02070  M01S00093.ns22000 +++|*                                = ZERO, USE JOB SECURITY ACCESS LEVEL.
02071  M01S00094.ns22000 +++|*                (FN - FN+4) = FILE NAME.
02072  M01S00095.ns22000 +++|
02073  M01S00096.ns22000 +++|
02074  M01S00097.ns22000 +++|          ENTRY  FSL
02075  M01S00098.ns22000 +++|          LDN    0           SET FILE BUSY
02076  M01S00099.ns22000 +++|          RJM    SIF
02077  M01S00100.ns22000 +++|          SFA    EST,FS      READ EST ENTRY
02078  M01S00101.ns22000 +++|          ADK    EQDE
02079  M01S00102.ns22000 +++|          CRD    CN
02080  M01S00103.ns22000 +++|          LDD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
02081  M02S00104.252l678 ---|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
02082  M02S00105.274l797 ---|          LMC    2RMT

Seq #  *Modification Id* Act 
----------------------------+
02083  M02S00106.274l797 ---|          ZJN    FSL0        IF TAPE FILE

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

Seq #  *Modification Id* Act 
----------------------------+
02085  M02S00108.274l797 ---|          ZJN    FSL0        IF TAPE FILE
02086  M01S00043.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
02087  M01S00044.274l797 +++|          PJN    FSL0        IF TAPE FILE
02088  M01S00109.ns22000 +++|          LDD    CM+4        CHECK FILE TYPE
02089  M01S00110.ns22000 +++|          SHN    -6
02090  M01S00111.ns22000 +++|          LMN    LOFT
02091  M01S00112.ns22000 +++|          ZJN    FSL1        IF *LOFT*
02092  M01S00113.ns22000 +++|          LMN    PTFT&LOFT
02093  M01S00114.ns22000 +++|          ZJN    FSL1        IF *PTFT*
02094  M01S00115.ns22000 +++|          LMN    QFFT&PTFT
02095  M01S00116.ns22000 +++|          ZJN    FSL1        IF *QFFT*

Seq #  *Modification Id* Act 
----------------------------+
02096  M02S00117.v23l617 ---| FSL0     LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
02097  M01S00036.v23l617 +++| FSL0     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
02098  M01S00118.ns22000 +++|          LJM    ERR         PROCESS ERROR
02099  M01S00119.ns22000 +++|
02100  M01S00120.ns22000 +++|*         EXTRACT REQUESTED SECURITY ACCESS LEVEL.
02101  M01S00121.ns22000 +++|
02102  M01S00122.ns22000 +++| FSL1     RJM    CPA         READ FET+1
02103  M01S00123.ns22000 +++|          ADN    1
02104  M01S00124.ns22000 +++|          CRD    CN
02105  M01S00125.ns22000 +++|          ADN    3           READ FET+4
02106  M01S00126.ns22000 +++|          CRD    CM
02107  M01S00127.ns22000 +++|          LDD    CN+1        CHECK *SP* BIT
02108  M01S00128.ns22000 +++|          SHN    21-3
02109  M01S00129.ns22000 +++|          PJN    FSL2        IF NOT SET
02110  M01S00130.ns22000 +++|          LDD    CM+1        EXTRACT SECURITY ACCESS LEVEL
02111  M01S00131.ns22000 +++|          UJN    FSL3        CHECK REQUESTED LEVEL
02112  M01S00132.ns22000 +++|
02113  M01S00133.ns22000 +++| FSL2     LDD    CP          READ JOB SECURITY WORD
02114  M01S00134.ns22000 +++|          ADC    JSCW
02115  M01S00135.ns22000 +++|          CRD    CM
02116  M01S00136.ns22000 +++|          LDD    CM+1        EXTRACT JOB ACCESS LEVEL
02117  M01S00137.ns22000 +++|          SHN    -11
02118  M01S00138.ns22000 +++|
02119  M01S00139.ns22000 +++|*         CHECK AND SET FILE SECURITY ACCESS LEVEL.
02120  M01S00140.ns22000 +++|
02121  M01S00141.ns22000 +++| FSL3     LPN    7           SAVE REQUESTED LEVEL
02122  M01S00142.ns22000 +++|          STD    CM+4
02123  M01S00143.ns22000 +++|          STM    FSLB
02124  M01S00144.ns22000 +++|          LDD    FA          SET FNT ADDRESS
02125  M01S00145.ns22000 +++|          STD    CM+3
02126  M01S00146.ns22000 +++|          LDN    VSFS        SET SUBFUNCTION
02127  M01S00147.ns22000 +++|          STD    CM+1
02128  M01S00148.ns22000 +++|          MONITOR  VSAM
02129  M01S00149.ns22000 +++|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
02130  M02S00150.v23l617 ---|          NJN    FSL4        IF INVALID ACCESS LEVEL
02131  M01S00037.v23l617 +++|          NJN    FSL4        IF INCORRECT ACCESS LEVEL
02132  M01S00151.ns22000 +++|          LJM    LFMX        EXIT
02133  M01S00152.ns22000 +++|
02134  M01S00153.ns22000 +++|*         PROCESS SECURITY VIOLATION.
02135  M01S00154.ns22000 +++|
02136  M01S00155.ns22000 +++| FSL4     LDC    FSLA+3      SET FILE NAME IN MESSAGE
02137  M01S00156.ns22000 +++|          STD    T1
02138  M01S00157.ns22000 +++|          LDN    FN
02139  M01S00158.ns22000 +++|          RJM    /COMPACS/ACS
02140  M01S00159.ns22000 +++|          LDC    =C*, *      APPEND COMMA
02141  M01S00160.ns22000 +++|          RJM    /COMPACS/ACS
02142  M01S00161.ns22000 +++|          LDC    **          DETERMINE MNEMONIC OF ACCESS LEVEL
02143  M01S00162.ns22000 +++| FSLB     EQU    *-1
02144  M01S00163.ns22000 +++|          SHN    2
02145  M01S00164.ns22000 +++|          ADC    TALV        APPEND NEW ACCESS LEVEL
02146  M01S00165.ns22000 +++|          RJM    /COMPACS/ACS
02147  M01S00166.ns22000 +++|          LDC    =C*. *      TERMINATE MESSAGE WITH A PERIOD
02148  M01S00167.ns22000 +++|          RJM    /COMPACS/ACS
02149  M01S00168.ns22000 +++|          LDC    FSLA+ACFN   ISSUE ACCOUNT FILE MESSAGE
02150  M01S00169.ns22000 +++|          RJM    DFM
02151  M01S00170.ns22000 +++|          LDN    /ERR/LNV    * ACCESS LEVEL NOT VALID FOR FILE.*
02152  M01S00171.ns22000 +++|          LJM    ERR         PROCESS ERROR
02153  M01S00172.ns22000 +++|
02154  M01S00173.ns22000 +++| FSLA     DATA   C*MFFI, *
02155  M01S00174.ns22000 +++|          BSSZ   12
02156  M01S01645.lfm     +++| LCK      SPACE  4,10
02157  M01S01646.lfm     +++|***       FUNCTION 10.
02158  M01S01647.lfm     +++|*         LOCK FILE.
02159  M01S01648.lfm     +++|*         SET WRITE LOCKOUT FOR FILE.

Seq #  *Modification Id* Act 
----------------------------+
02160  M02S01649.ns2685  ---|*         FILE MUST BE LOCAL AND CAN NOT BE IN EXECUTE-ONLY MODE.

Seq #  *Modification Id* Act 
----------------------------+
02161  M02S01650.ns2685  ---|*         THE FILE CAN ALSO BE A PRIMARY FILE.
02162  M01S00001.ns2685  +++|*         FILE MUST BE TYPE *LOFT* OR *PTFT*.
02163  M01S00002.ns2685  +++|*         THE FILE CAN ALSO BE TYPE *ROFT* IF CALLED BY *RESTART*.
02164  M01S01651.lfm     +++|*
02165  M01S01652.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
02166  M01S01653.lfm     +++|
02167  M01S01654.lfm     +++|
02168  M01S01655.lfm     +++|          ENTRY  LCK
02169  M01S01656.lfm     +++| LCK1     LDD    FF          SET INITIAL FNT ADDRESS
02170  M01S01657.lfm     +++|          RJM    SIF         SEARCH AND INTERLOCK FILE
02171  M01S01658.lfm     +++|          LDD    CM+4
02172  M01S01659.lfm     +++|          SHN    -6
02173  M01S01660.lfm     +++|          LMN    LOFT

Seq #  *Modification Id* Act 
----------------------------+
02174  M02S01661.ns2685  ---|          ZJN    LCK3        IF *LOCAL*

Seq #  *Modification Id* Act 
----------------------------+
02175  M02S01662.ns2685  ---|          LMN    LOFT&PTFT

Seq #  *Modification Id* Act 
----------------------------+
02176  M02S01663.ns2685  ---|          ZJN    LCK3        IF *PRIMARY*

Seq #  *Modification Id* Act 
----------------------------+
02177  M03S01664.ns2685  ---|          LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*

Seq #  *Modification Id* Act 
----------------------------+
02178  M02S00038.ns2685  ---|          LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
02179  M01S00003.ns2685  +++|          ZJN    LCK3        IF LOCAL FILE TYPE
02180  M01S00004.ns2685  +++|          LMN    PTFT&LOFT
02181  M01S00005.ns2685  +++|          ZJN    LCK3        IF PRIMARY FILE TYPE
02182  M01S00006.ns2685  +++|          LMN    ROFT&PTFT
02183  M01S00007.ns2685  +++|          NJN    LCK1.1      IF NOT ROLLOUT FILE TYPE
02184  M01S00008.ns2685  +++|          LDM    LCKA
02185  M01S00009.ns2685  +++|          LPN    1
02186  M01S00010.ns2685  +++|          ZJN    LCK1.1      IF NOT *LOCK* FUNCTION
02187  M01S00011.ns2685  +++|          LDD    CP
02188  M01S00012.ns2685  +++|          ADK    SEPW
02189  M01S00013.ns2685  +++|          CRD    CN
02190  M01S00014.ns2685  +++|          LDD    CN+2
02191  M01S00015.ns2685  +++|          SHN    21-13
02192  M01S00016.ns2685  +++|          MJN    LCK3        IF *RESTART*
02193  M01S00017.ns2685  +++| LCK1.1   LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
02194  M01S01665.lfm     +++| LCK2     LJM    ERR         PROCESS ERROR
02195  M01S01666.lfm     +++|
02196  M01S01667.lfm     +++| LCK3     LDM    LCKA

Seq #  *Modification Id* Act 
----------------------------+
02197  M02S01668.ns2685  ---|          LMN    PSNI
02198  M01S00018.ns2685  +++|          LPN    1
02199  M01S01669.lfm     +++|          NJN    LCK4        IF LOCK
02200  M01S01670.lfm     +++|          LDD    CM+3        CHECK FOR EXECUTE ONLY
02201  M01S01671.lfm     +++|          SHN    21-2
02202  M01S01672.lfm     +++|          PJN    LCK4        IF NOT EXECUTE-ONLY

Seq #  *Modification Id* Act 
----------------------------+
02203  M02S01673.v23l617 ---|          LDN    /ERR/ILM    * ILLEGAL FILE MODE.*
02204  M01S00039.v23l617 +++|          LDN    /ERR/ILM    * INCORRECT FILE MODE.*
02205  M01S01674.lfm     +++|          UJN    LCK2        PROCESS ERROR
02206  M01S01675.lfm     +++|
02207  M01S01676.lfm     +++| LCK4     LDD    CM+3
02208  M01S01677.lfm     +++|          SCN    1
02209  M01S01678.lfm     +++| LCKA     LMN    1

Seq #  *Modification Id* Act 
----------------------------+
02210  M02S01679.ns2685  ---|*         PSN                (UNLOCK COMMAND)
02211  M01S00019.ns2685  +++|*         LMN    0           (UNLOCK FUNCTION)
02212  M01S01680.lfm     +++|          STD    CM+3
02213  M01S01681.lfm     +++|          NFA    FA,R        STORE FNT ENTRY
02214  M01S01682.lfm     +++|          CWD    CM
02215  M01S01683.lfm     +++|          LJM    LFMX        EXIT
02216  M01S01684.lfm     +++| ULK      SPACE  4,10
02217  M01S01685.lfm     +++|***       FUNCTION 11.
02218  M01S01686.lfm     +++|*         UNLOCK FILE.
02219  M01S01687.lfm     +++|*         CLEAR WRITE LOCKOUT FOR FILE.

Seq #  *Modification Id* Act 
----------------------------+
02220  M02S01688.ns2685  ---|*         FILE MUST BE LOCAL OR PRIMARY.
02221  M01S00020.ns2685  +++|*         FILE MUST BE TYPE *LOFT* OR *PTFT* AND NOT EXECUTE-ONLY.
02222  M01S01689.lfm     +++|
02223  M01S01690.lfm     +++|
02224  M01S01691.lfm     +++|          ENTRY  ULK

Seq #  *Modification Id* Act 
----------------------------+
02225  M02S01692.ns2685  ---|          LDN    PSNI        CLEAR LOCK

Seq #  *Modification Id* Act 
----------------------------+
02226  M02S01693.ns2685  ---|          STM    LCKA
02227  M01S00021.ns2685  +++|          SOM    LCKA        DO NOT SET WRITE LOCKOUT
02228  M01S01694.lfm     +++|          LJM    LCK1        PROCESS AS LOCK
02229  M01S01695.lfm     +++| RLS      SPACE  4,10
02230  M01S01696.lfm     +++|***       FUNCTION 12.
02231  M01S01697.lfm     +++|*         RETURN FILE FOUND/NOT FOUND.
02232  M01S01698.lfm     +++|*
02233  M01S01699.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
02234  M01S01700.lfm     +++|*                (FN - FN+3) = FILE NAME FROM FET+0.
02235  M01S01701.lfm     +++|
02236  M01S01702.lfm     +++|
02237  M01S01703.lfm     +++|          ENTRY  RLS
02238  M01S01704.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
02239  M01S01705.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
02240  M01S01706.lfm     +++|          ZJN    RLS2        IF NOT FOUND
02241  M01S01707.lfm     +++|          RJM    SFB         SET FILE BUSY
02242  M01S01708.lfm     +++|          ZJN    RLS1        IF NO REJECT ON FILE INTERLOCK
02243  M01S01709.lfm     +++|          LDN    /ERR/IOE    *I/O SEQUENCE ERROR.*
02244  M01S01710.lfm     +++|          LJM    ERR         PROCESS ERROR
02245  M01S01711.lfm     +++|
02246  M01S01712.lfm     +++| RLS1     LDN    2           FLAG FILE FOUND
02247  M01S01713.lfm     +++| RLS2     STD    LS
02248  M01S01714.lfm     +++|          LJM    LFMX        EXIT
02249  M01S01715.lfm     +++| RCP      SPACE  4,20
02250  M01S01716.lfm     +++|***       FUNCTION 13.
02251  M01S01717.lfm     +++|*         RETURN CURRENT POSITION AND STATUS.
02252  M01S00175.ns22000 +++|*         RETURN FILE ACCESS LEVEL IN FET+4 IF BIT 39 IN FET+1 IS SET.
02253  M01S01718.lfm     +++|*         RETURN FNT ENTRY IN (FET+5).
02254  M01S01719.lfm     +++|*         RETURN FST ENTRY IN (FET+6).
02255  M01S01720.lfm     +++|*         OPTIONALLY RETURNS ADDITIONAL MAGNETIC TAPE INFORMATION
02256  M01S01721.lfm     +++|*         TO FET+8 IN LABEL MACRO FORMAT.
02257  M01S01722.lfm     +++|*         FIELDS RETURNED TO FET+8 INCLUDE -
02258  M01S01723.lfm     +++|*                1.  LABEL BIT (58)
02259  M01S01724.lfm     +++|*                2.  NONSTANDARD LABEL BIT (57)

Seq #  *Modification Id* Act 
----------------------------+
02260  M02S01725.274l797 ---|*                3.  TRACK BIT (56)
02261  M01S00045.274l797 +++|*                3.  TAPE DEVICE TYPE (55-56)
02262  M01S01726.lfm     +++|*                4.  DENSITY (51-53)
02263  M01S01727.lfm     +++|*                5.  CONVERSION MODE (48-50)
02264  M01S01728.lfm     +++|*                6.  PROCESSING OPTIONS (36-47)
02265  M01S01729.lfm     +++|*                7.  FORMAT (30-35)
02266  M01S01730.lfm     +++|*                8.  NOISE SIZE (24-29) - IN FRAMES
02267  M01S01731.lfm     +++|*                9.  BLOCK SIZE (0-23) - IN CM WORDS
02268  M01S01732.lfm     +++|*         REFER TO LFM FUNCTION 24 DOCUMENTATION FOR FURTHER
02269  M01S01733.lfm     +++|*         DETAILS ON CONTENTS OF FET+8 FIELDS.
02270  M01S01734.lfm     +++|*
02271  M01S01735.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
02272  M01S01736.lfm     +++|
02273  M01S01737.lfm     +++|
02274  M01S01738.lfm     +++|          ENTRY  RCP
02275  M01S01739.lfm     +++|          LCN    6           CHECK FET LENGTH .GE. 7
02276  M01S01740.lfm     +++|          RJM    CFL
02277  M01S01741.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
02278  M01S01742.lfm     +++|          RJM    SIF         SEARCH AND INTERLOCK FILE
02279  M01S01743.lfm     +++|          RJM    CPA         READ FIRST
02280  M01S01744.lfm     +++|          ADN    1
02281  M01S01745.lfm     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
02282  M02S01746.ns22000 ---|          ADN    4
02283  M01S00176.ns22000 +++|          ADN    3
02284  M01S00177.ns22000 +++|          CRD    UD          READ FET+4
02285  M01S00178.ns22000 +++|          ADN    1
02286  M01S01747.lfm     +++|          CWD    CM          STORE FNT
02287  M01S01748.lfm     +++|          ADN    1
02288  M01S01749.lfm     +++|          CWD    FS          STORE FST

Seq #  *Modification Id* Act 
----------------------------+
02289  M02S01750.ns22000 ---|          LDN    0           INITIALIZE *FIRST* EQUIPMENT TYPE
02290  M01S00179.ns22000 +++|          LDD    CN+1        CHECK WHETHER TO RETURN FILE ACCESS LEVEL
02291  M01S00180.ns22000 +++|          SHN    21-3
02292  M01S00181.ns22000 +++|          PJN    RCP0        IF NOT RETURNING FILE ACCESS LEVEL
02293  M01S00182.ns22000 +++|          NFA    FA,R        GET FILE ACCESS LEVEL
02294  M01S00183.ns22000 +++|          ADN    FUTL
02295  M01S00184.ns22000 +++|          CRD    CM
02296  M01S00185.ns22000 +++|          LDD    CM+2        SET FILE ACCESS LEVEL IN FET+4
02297  M01S00186.ns22000 +++|          LMD    UD+1
02298  M01S00187.ns22000 +++|          LPN    7
02299  M01S00188.ns22000 +++|          LMD    UD+1
02300  M01S00189.ns22000 +++|          STD    UD+1
02301  M01S00190.ns22000 +++|          RJM    CPA         WRITE FET+4
02302  M01S00191.ns22000 +++|          ADN    4
02303  M01S00192.ns22000 +++|          CWD    UD
02304  M01S00193.ns22000 +++| RCP0     LDN    0           INITIALIZE *FIRST* EQUIPMENT TYPE
02305  M01S01751.lfm     +++|          STD    CN
02306  M01S01752.lfm     +++|          LDD    FS          READ EST ENTRY
02307  M01S01753.lfm     +++|          ZJN    RCP1        IF NO EQUIPMENT ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
02308  M02S01754.ns22000 ---|          ADM    ESTS
02309  M01S00194.ns22000 +++|          SFA    EST
02310  M01S00195.ns22000 +++|          ADK    EQDE
02311  M01S01755.lfm     +++|          CRD    CM
02312  M01S01756.lfm     +++|          LDD    CM+3        SET EQUIPMENT TYPE

Seq #  *Modification Id* Act 
----------------------------+
02313  M02S01757.252l678 ---|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
02314  M02S01758.252l678 ---|          STD    EQ          SAVE DEVICE TYPE
02315  M01S01759.lfm     +++|          STD    CN
02316  M01S01760.lfm     +++|          LDD    CM          CHECK EQUIPMENT TYPE
02317  M01S01761.lfm     +++|          SHN    21-13
02318  M01S01762.lfm     +++|          MJN    RCP1        IF MASS STORAGE
02319  M01S01763.lfm     +++|          SHN    21-12-21+13
02320  M01S01764.lfm     +++|          MJN    RCP1        IF ALLOCATABLE TYPE
02321  M01S01765.lfm     +++|          LDC    4000
02322  M01S01766.lfm     +++|          RAD    CN
02323  M01S01767.lfm     +++| RCP1     RJM    CPA         STORE FIRST
02324  M01S01768.lfm     +++|          ADN    1
02325  M01S01769.lfm     +++|          CWD    CN
02326  M01S01770.lfm     +++|          LDD    FP          FUNCTION PARAMETER
02327  M01S01771.lfm     +++|          LMN    1
02328  M01S01772.lfm     +++|          NJN    RCP2        IF EXTRA TAPE INFORMATION NOT REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
02329  M02S01773.252l678 ---|          LDD    EQ
02330  M01S00001.252l678 +++|          LDD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
02331  M02S01774.274l797 ---|          LMC    2RMT

Seq #  *Modification Id* Act 
----------------------------+
02332  M02S01775.274l797 ---|          ZJN    RCP3        IF 7-TRACK TAPE EQUIPMENT

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

Seq #  *Modification Id* Act 
----------------------------+
02334  M02S01777.274l797 ---|          ZJN    RCP4        IF 9-TRACK TAPE EQUIPMENT
02335  M01S00046.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
02336  M01S00047.274l797 +++|          PJN    RCP3        IF TAPE EQUIPMENT
02337  M01S01778.lfm     +++| RCP2     LJM    LFMX        EXIT
02338  M01S01779.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02339  M02S01780.274l797 ---| RCP3     STD    FP          CLEAR TRACK BIT

Seq #  *Modification Id* Act 
----------------------------+
02340  M02S01781.274l797 ---| RCP4     LCN    10          CHECK FET LENGTH .GE. 9D
02341  M01S00048.274l797 +++| RCP3     STD    FP          SET TAPE DEVICE TYPE
02342  M01S00049.274l797 +++|          LCN    10          CHECK FET LENGTH .GE. 9D
02343  M01S01782.lfm     +++|          RJM    CFL

Seq #  *Modification Id* Act 
----------------------------+
02344  M02S01783.282l826 ---|          LDN    /MTX/UST2   GET UST2, UST3, UST4 WORDS FROM UDT
02345  M01S00001.282l826 +++|          LDN    /MTX/UST4   GET *UST4* AND *UST5* WORDS FROM UDT
02346  M01S01784.lfm     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
02347  M02S01785.282l826 ---|          LDN    3
02348  M01S00002.282l826 +++|          LDN    2
02349  M01S01786.lfm     +++|          RJM    TUW         READ UDT WORDS
02350  M01S01787.lfm     +++|          LDD    MA

Seq #  *Modification Id* Act 
----------------------------+
02351  M02S01788.282l826 ---|          CRD    T3          (T3 - T7) = UST2
02352  M01S00003.282l826 +++|          CRD    UD          (UD - UD+4) = UST4
02353  M01S01789.lfm     +++|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
02354  M02S01790.282l826 ---|          CRD    CM          (CM - CM+4) = UST3

Seq #  *Modification Id* Act 
----------------------------+
02355  M02S01791.282l826 ---|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
02356  M02S01792.282l826 ---|          CRD    UD          (UD - UD+4) = UST4
02357  M01S00004.282l826 +++|          CRD    CM          (CM - CM+4) = UST5
02358  M01S01793.lfm     +++|          LDN    ZERL        CLEAR FET+8 ASSEMBLY BUFFER
02359  M01S01794.lfm     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
02360  M02S01795.274l797 ---|          LDD    T7

Seq #  *Modification Id* Act 
----------------------------+
02361  M02S01796.274l797 ---|          SHN    11          LABEL AND NONSTANDARD LABEL BITS

Seq #  *Modification Id* Act 
----------------------------+
02362  M02S01797.274l797 ---|          LPN    6

Seq #  *Modification Id* Act 
----------------------------+
02363  M02S01798.274l797 ---|          ADD    FP          TRACK BIT

Seq #  *Modification Id* Act 
----------------------------+
02364  M02S01799.274l797 ---|          SHN    10

Seq #  *Modification Id* Act 
----------------------------+
02365  M02S00050.282l826 ---|          LDD    T3+4

Seq #  *Modification Id* Act 
----------------------------+
02366  M02S00051.282l826 ---|          SHN    3-13+22     SET LABEL AND NONSTANDARD LABEL BITS

Seq #  *Modification Id* Act 
----------------------------+
02367  M02S00052.282l826 ---|          LPN    14

Seq #  *Modification Id* Act 
----------------------------+
02368  M02S00053.282l826 ---|          ADD    FP          SET TAPE DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
02369  M02S00054.282l826 ---|          SHN    12-3
02370  M01S00005.282l826 +++|          LDD    UD          SET LABELED FLAGS AND DEVICE TYPE
02371  M01S00006.282l826 +++|          LPC    3700
02372  M01S01800.lfm     +++|          STD    CN

Seq #  *Modification Id* Act 
----------------------------+
02373  M02S01801.lfm25   ---|          LDD    CM+4        CONVERT DENSITY
02374  M01S00001.lfm25   +++|          LDD    CM          CONVERT DENSITY

Seq #  *Modification Id* Act 
----------------------------+
02375  M02S01802.282l826 ---|          SHN    -6
02376  M01S00007.282l826 +++|          SHN    -3
02377  M01S00008.282l826 +++|          LPN    7
02378  M01S01803.lfm     +++|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
02379  M02S01804.lfm25   ---|          LDD    CM+4        CONVERT CONVERSION MODE
02380  M01S00002.lfm25   +++|          LDD    CM          CONVERT CONVERSION MODE

Seq #  *Modification Id* Act 
----------------------------+
02381  M02S01805.282l826 ---|          ZJN    RCP5        IF NO CONVERSION MODE
02382  M01S00009.282l826 +++|          LPN    7
02383  M01S01806.lfm     +++|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
02384  M02S01807.282l826 ---|          LPN    7
02385  M01S01808.lfm     +++| RCP5     LMM    TDEN-1,T2
02386  M01S01809.lfm     +++|          RAD    CN

Seq #  *Modification Id* Act 
----------------------------+
02387  M02S01810.282l826 ---|          LDD    UD+4

Seq #  *Modification Id* Act 
----------------------------+
02388  M02S00010.lfm25   ---|          LDD    UD+1

Seq #  *Modification Id* Act 
----------------------------+
02389  M02S01811.lfm25   ---|          SHN    -12

Seq #  *Modification Id* Act 
----------------------------+
02390  M02S01812.lfm25   ---|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
02391  M03S01813.lfm25   ---|          LDD    UD+4        CONVERT PROCESSING OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
02392  M02S00011.lfm25   ---|          LDD    UD+1        CONVERT PROCESSING OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
02393  M02S01814.lfm25   ---|          LPC    777

Seq #  *Modification Id* Act 
----------------------------+
02394  M02S01815.lfm25   ---|          LMM    TERL,T2
02395  M01S00003.lfm25   +++|          LDD    UD+1        SET PROCESSING OPTIONS
02396  M01S01816.lfm     +++|          STD    CN+1
02397  M01S01817.lfm     +++|
02398  M01S01818.lfm     +++|*         CONVERT NOISE BYTES (NB) AND FILL STATUS BACK TO NOISE SIZE
02399  M01S01819.lfm     +++|*         (NS) IN FRAMES.
02400  M01S01820.lfm     +++|*                7-TRACK FORMULA -
02401  M01S01821.lfm     +++|*                    NS = NB * 2
02402  M01S01822.lfm     +++|*                    IF FILL STATUS, NS = NS - 1 = NB * 2 - 1
02403  M01S01823.lfm     +++|*                9-TRACK FORMULA -
02404  M01S01824.lfm     +++|*                    NS = ( NB * 3 ) / 2
02405  M01S01825.lfm     +++|*                    IF FILL STATUS, NS = NS - 1 = ( NB * 3 ) / 2 - 1
02406  M01S01826.lfm     +++|
02407  M01S00055.274l797 +++|          LDD    FP          CHECK TAPE DEVICE TYPE
02408  M01S00056.274l797 +++|          LPN    1
02409  M01S00057.274l797 +++|          NJN    RCP7        IF *CT* OR *AT* DEVICE

Seq #  *Modification Id* Act 
----------------------------+
02410  M02S01827.lfm25   ---|          LDD    UD+3        FILL STATUS BIT
02411  M01S00004.lfm25   +++|          LDD    UD+2        FILL STATUS BIT
02412  M01S01828.lfm     +++|          LPN    40
02413  M01S01829.lfm     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
02414  M02S01830.lfm25   ---|          LDD    UD+3        NOISE SIZE IN BYTES
02415  M01S00005.lfm25   +++|          LDD    UD+2        NOISE SIZE IN BYTES
02416  M01S01831.lfm     +++|          LPN    37
02417  M01S01832.lfm     +++|          STD    T2
02418  M01S01833.lfm     +++|          SHN    1           NB * 2
02419  M01S01834.lfm     +++|          STD    CN+2
02420  M01S01835.lfm     +++|          LDD    FP
02421  M01S01836.lfm     +++|          ZJN    RCP6        IF 7-TRACK
02422  M01S01837.lfm     +++|          LDD    T2
02423  M01S01838.lfm     +++|          ADD    CN+2        NB + NB * 2
02424  M01S01839.lfm     +++|          SHN    -1          ( NB * 3 ) / 2
02425  M01S01840.lfm     +++|          STD    CN+2
02426  M01S01841.lfm     +++| RCP6     LDD    T1
02427  M01S01842.lfm     +++|          ZJN    RCP7        IF NO FILL STATUS
02428  M01S01843.lfm     +++|          SOD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
02429  M02S01844.ns22000 ---| RCP7     LDD    UD+2        DATA FORMAT

Seq #  *Modification Id* Act 
----------------------------+
02430  M02S01845.ns22000 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
02431  M02S00196.282l826 ---| RCP7     LDD    UD+3        DATA FORMAT

Seq #  *Modification Id* Act 
----------------------------+
02432  M02S00197.282l826 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
02433  M02S01846.282l826 ---|          SHN    6
02434  M01S00012.282l826 +++| RCP7     LDD    UD+2        DATA FORMAT
02435  M01S00013.282l826 +++|          LPC    7700
02436  M01S01847.lfm     +++|          RAD    CN+2
02437  M01S01848.lfm     +++|
02438  M01S01849.lfm     +++|*         RETURN BLOCK SIZE (IN CM WORDS).

Seq #  *Modification Id* Act 
----------------------------+
02439  M02S01850.274l797 ---|*         BLOCK SIZE = BLOCK WORD COUNT + CHUNK COUNT * 634B.
02440  M01S00058.274l797 +++|*         BLOCK SIZE = BLOCK WORD COUNT + CHUNK COUNT * 600B.
02441  M01S01851.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02442  M02S01852.282l826 ---|          LDD    UD          BLOCK WORD COUNT
02443  M01S00014.282l826 +++|          LDD    UD+3        BLOCK WORD COUNT
02444  M01S01853.lfm     +++|          STD    CN+4

Seq #  *Modification Id* Act 
----------------------------+
02445  M02S01854.282l826 ---|          LDD    UD+1        CHUNK COUNT
02446  M01S00015.282l826 +++|          LDD    UD+4        CHUNK COUNT
02447  M01S01855.lfm     +++|          ZJN    RCP9        IF NOT LONG BLOCK
02448  M01S01856.lfm     +++|          STD    T1
02449  M01S01857.lfm     +++| RCP8     LDC    /MTX/LBWD
02450  M01S01858.lfm     +++|          RAD    CN+4
02451  M01S01859.lfm     +++|          SHN    -14
02452  M01S01860.lfm     +++|          RAD    CN+3
02453  M01S01861.lfm     +++|          SOD    T1
02454  M01S01862.lfm     +++|          NJN    RCP8        IF OVERFLOW COUNT NOT EXHAUSTED
02455  M01S01863.lfm     +++|
02456  M01S01864.lfm     +++|*         RETURN ADDITIONAL TAPE INFORMATION TO FET+8.
02457  M01S01865.lfm     +++|
02458  M01S01866.lfm     +++| RCP9     RJM    CPA         STORE FET + 8
02459  M01S01867.lfm     +++|          ADN    10
02460  M01S01868.lfm     +++|          CWD    CN
02461  M01S01869.lfm     +++|          LJM    LFMX        EXIT
02462  M01S01870.lfm     +++| TUW      SPACE  4,15
02463  M01S01871.lfm     +++|**        TUW - TRANSFER UDT WORDS.
02464  M01S01872.lfm     +++|*
02465  M01S01873.lfm     +++|*         ENTRY  (A) = NUMBER OF WORDS TO TRANSFER.
02466  M01S01874.lfm     +++|*                (T1) = FIRST WORD FROM UDT TO BE TRANSFERRED.
02467  M01S01875.lfm     +++|*                (FS+1) = UDT ADDRESS OF ASSIGNED TAPE.
02468  M01S01876.lfm     +++|*
02469  M01S01877.lfm     +++|*         EXIT   CONTIGUOUS UDT WORDS REQUESTED IN MESSAGE BUFFER.
02470  M01S01878.lfm     +++|*
02471  M01S01879.lfm     +++|*         ERROR  TO *ERR* IF *MAGNET* NOT PRESENT.
02472  M01S01880.lfm     +++|*                TO *LFMX*, IF ERROR FLAG SET ON CONTROL POINT.
02473  M01S01881.lfm     +++|*
02474  M01S01882.lfm     +++|*         USES   T1, T2, CM - CM+4.
02475  M01S01883.lfm     +++|*
02476  M01S01884.lfm     +++|*         MACROS DELAY, MONITOR, PAUSE.
02477  M01S01885.lfm     +++|
02478  M01S01886.lfm     +++|
02479  M01S01887.lfm     +++| TUW      SUBR               ENTRY/EXIT
02480  M01S01888.lfm     +++|          SHN    6
02481  M01S01889.lfm     +++|          STD    T2
02482  M01S01890.lfm     +++|          LDD    FS+1        UDT ADDRESS OF ASSIGNED TAPE
02483  M01S01891.lfm     +++|          ZJN    TUW2        IF NO UDT ADDRESS IN FST WORD
02484  M01S01892.lfm     +++|          RAD    T1          FWA IN MAGNET TO BE TRANSFERRED
02485  M01S01893.lfm     +++| TUW1     LDD    T2          NUMBER OF WORDS TO TRANSFER
02486  M01S01894.lfm     +++|          STD    CM+3
02487  M01S01895.lfm     +++|          LDD    T1
02488  M01S01896.lfm     +++|          STD    CM+4
02489  M01S01897.lfm     +++|          LDN    0           SET READ
02490  M01S01898.lfm     +++|          STD    CM+1
02491  M01S01899.lfm     +++|          LCN    7777-MTSI   SET *MAGNET* SUBSYSTEM ID
02492  M01S01900.lfm     +++|          STD    CM+2
02493  M01S01901.lfm     +++|          MONITOR TDAM       GET UDT WORDS
02494  M01S01902.lfm     +++|          LDD    CM+1
02495  M01S01903.lfm     +++|          ZJN    TUWX        IF TRANSFER COMPLETE
02496  M01S01904.lfm     +++|          SBN    3
02497  M01S01905.lfm     +++| TUW2     PJN    TUW3        IF *MAGNET* NOT UP OR FUNCTION REJECT
02498  M01S01906.lfm     +++|          PAUSE
02499  M01S01907.lfm     +++|          DELAY
02500  M01S01908.lfm     +++|          LDD    CM+1
02501  M01S01909.lfm     +++|          ZJN    TUW1        IF NO ERROR FLAGS SET ON CP
02502  M01S01910.lfm     +++|          LJM    LFMX        EXIT
02503  M01S01911.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02504  M02S01912.v23l617 ---| TUW3     LDN    /ERR/MNA    * MAGNET NOT ACTIVE.*
02505  M01S00040.v23l617 +++| TUW3     LDN    /ERR/MNA    * MAGNETIC TAPE SUBSYSTEM NOT ACTIVE *
02506  M01S01913.lfm     +++|          LJM    ERR         PROCESS ERROR
02507  M01S01914.lfm     +++| RFI      SPACE  4,30
02508  M01S01915.lfm     +++|***       RFI - FUNCTION 32.
02509  M01S01916.lfm     +++|*         RETURN FILE INFORMATION.
02510  M01S01917.lfm     +++|*         RETURN FILE INFORMATION TO USER IN SPECIFIED PARAMETER BLOCK.
02511  M01S01918.lfm     +++|*
02512  M01S01919.lfm     +++|*         ENTRY  (IR+3 - IR+4) = ADDRESS OF PARAMETER BLOCK.
02513  M01S01920.lfm     +++|*                THE PARAMETER BLOCK SHOULD HAVE THE FOLLOWING FORMAT.
02514  M01S01921.lfm     +++|*                (FE) = LENGTH OF PARAMETER BLOCK - 1.
02515  M01S01922.lfm     +++|*                (FF) = FET SPECIFIED FNT ADDRESS.
02516  M01S01923.lfm     +++|*
02517  M01S01924.lfm     +++|*T ADDR   42/LFN, 6/LEN, 11/0, 1/0

Figure ADDR

02518  M01S01925.lfm     +++|*T,ADDR+1 60/,

Figure ADDR+1

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


 is invalid.

Please check your syntax and try again.

02519  M01S01926.lfm     +++|*T,ADDR+2 60/,

Figure ADDR+2

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


 is invalid.

Please check your syntax and try again.

02520  M01S01927.lfm     +++|*T,ADDR+3 60/,

Figure ADDR+3

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


 is invalid.

Please check your syntax and try again.

02521  M01S01928.lfm     +++|*T,ADDR+4 60/,

Figure ADDR+4

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


 is invalid.

Please check your syntax and try again.

02522  M01S01929.lfm     +++|*         LEN = LENGTH OF TABLE, MUST BE .GE. 5.
02523  M01S01930.lfm     +++|*
02524  M01S01931.lfm     +++|*         EXIT   TO *ERR* IF ERROR ENCOUNTERED.
02525  M01S01932.lfm     +++|*                PARAMETER BLOCK RETURNED TO USER IN THE FOLLOWING
02526  M01S01933.lfm     +++|*                FORMAT.
02527  M01S01934.lfm     +++|*
02528  M01S01935.lfm     +++|*T ADDR   42/LFN, 6/LEN, 11/0, 1/1

Figure ADDR

Seq #  *Modification Id* Act 
----------------------------+
02529  M02S01936.274l797 ---|*T ADDR+1 12/DEVICE TYPE, 24/RESERVED, 18/STATUS BITS, 6/FT

Figure ADDR+1

02530  M01S00059.274l797 +++|*T ADDR+1 12/DEVICE TYPE, 12/RESERVED, 30/STATUS BITS, 6/FT

Figure ADDR+1

02531  M01S01937.lfm     +++|*T,ADDR+2 12/EQ, 48/0

Figure ADDR+2

02532  M01S01938.lfm     +++|*T,ADDR+3 24/FILE LENGTH IN SECTORS, 6/0, 24/CRA, 6/0

Figure ADDR+3

02533  M01S01939.lfm     +++|*T,ADDR+4 60/RESERVED

Figure ADDR+4

02534  M01S01940.lfm     +++|*         LEN = LENGTH OF TABLE.
02535  M01S00060.274l797 +++|*         STATUS BITS -
02536  M01S00061.274l797 +++|*                9/RESERVED.
02537  M01S00062.274l797 +++|*                2/TAPE DEVICE TYPE.
02538  M01S00063.274l797 +++|*                    0 = 7-TRACK TAPE (*MT*).
02539  M01S00064.274l797 +++|*                    1 = CARTRIDGE TAPE (*CT*).
02540  M01S00065.274l797 +++|*                    2 = 9-TRACK TAPE (*NT*).
02541  M01S00066.274l797 +++|*                    3 = ACS CARTRIDGE TAPE (*AT*).
02542  M01S00067.274l797 +++|*                1/TAPE FILE.
02543  M01S00068.274l797 +++|*                1/FILE AT EOI (MASS STORAGE ONLY).
02544  M01S00069.274l797 +++|*                1/FILE AT EOF (MASS STORAGE ONLY).
02545  M01S00070.274l797 +++|*                1/FILE AT BOI (MASS STORAGE ONLY).
02546  M01S00071.274l797 +++|*                1/LABELED TAPE FILE.
02547  M01S00072.274l797 +++|*                1/9-TRACK TAPE FILE.
02548  M01S00073.274l797 +++|*                1/7-TRACK TAPE FILE.
02549  M01S00074.274l797 +++|*                1/FILE OPEN.
02550  M01S00075.274l797 +++|*                1/INTERACTIVE TERMINAL FILE.
02551  M01S00076.274l797 +++|*                1/MASS STORAGE FILE.
02552  M01S00077.274l797 +++|*                1/FILE ON INACCESSIBLE DEVICE.
02553  M01S00078.274l797 +++|*                1/RESERVED.
02554  M01S00079.274l797 +++|*                1/FILE IS EXECUTE-ONLY.
02555  M01S00080.274l797 +++|*                1/FILE IN *RA* OR *RM* MODE.
02556  M01S00081.274l797 +++|*                1/FILE IN *RU* OR *RM* MODE.
02557  M01S00082.274l797 +++|*                1/FILE MAY BE ALTERED (*U*, *M* OR *W* MODE).
02558  M01S00083.274l797 +++|*                1/FILE MAY BE EXTENDED (*A*, *M* OR *W* MODE).
02559  M01S00084.274l797 +++|*                1/FILE MAY BE SHORTENED (*W* MODE).
02560  M01S00085.274l797 +++|*                1/FILE MAY NOT BE WRITTEN.
02561  M01S01941.lfm     +++|*         FT = FILE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
02562  M02S01942.ns22000 ---|*         EQ = EQUIPMENT NUMBER.
02563  M01S00198.ns22000 +++|*         EQ = EST ORDINAL.
02564  M01S01943.lfm     +++|*         CRA = CURRENT RANDOM ADDRESS.
02565  M01S01944.lfm     +++|*
02566  M01S01945.lfm     +++|*         ADDITIONAL INFORMATION IS RETURNED BASED ON THE *KEY*
02567  M01S01946.lfm     +++|*         SPECIFIED IN BITS 0-4 OF EACH WORD DEFINED IN THE *FILINFO*
02568  M01S01947.lfm     +++|*         PARAMETER BLOCK BEYOND THE STANDARD 5 WORD LENGTH.  THE KEY
02569  M01S01948.lfm     +++|*         WORDS BEGIN AT THE *FILINFO* PARAMETER BLOCK ADDRESS + 5
02570  M01S01949.lfm     +++|*         AND CAN BE IN ANY ORDER.
02571  M01S01950.lfm     +++|*
02572  M01S01951.lfm     +++|*         KEY    RETURNED WORD (IF APPLICABLE - ELSE BIT 5 IS SET)
02573  M01S01952.lfm     +++|*
02574  M01S01953.lfm     +++|*         1      48/0, 6/F, 1/0, 5/1
02575  M01S01954.lfm     +++|*         2      41/0, 1/IEP, 6/LBTYP, 3/DEN, 3/CV, 1/0, 5/2
02576  M01S01955.lfm     +++|*         3      RESERVED FOR ANSI 1977 LBL. STD.
02577  M01S01956.lfm     +++|*         4-13B  RESERVED FOR CDC (COMMON O/S)
02578  M01S01957.lfm     +++|*         14B    12/0, 24/BSIZE, 12/PO, 6/NOISE, 1/0, 5/14B
02579  M01S01958.lfm     +++|*         15B-17B RESERVED FOR CDC (NOS ONLY)
02580  M01S01959.lfm     +++|*         20B-27B RESERVED FOR CDC (OTHER O/S-S)
02581  M01S01960.lfm     +++|*         30B-37B RESERVED FOR INSTALLATIONS
02582  M01S01961.lfm     +++|*                F = TAPE FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
02583  M02S01962.274l797 ---|*                    0 = INTERNAL (I)

Seq #  *Modification Id* Act 
----------------------------+
02584  M02S01963.274l797 ---|*                    1 = SYSTEM INTERNAL (SI)
02585  M01S00086.274l797 +++|*                    0 = INTERNAL BINARY (I)
02586  M01S00087.274l797 +++|*                    1 = NOS/BE INTERNAL BINARY (SI)
02587  M01S01964.lfm     +++|*                    2 = FOREIGN (F)
02588  M01S01965.lfm     +++|*                    3 = STRANGER (S)
02589  M01S01966.lfm     +++|*                    4 = LONG BLOCK STRANGER (L)

Seq #  *Modification Id* Act 
----------------------------+
02590  M02S01967.274l797 ---|*                    5-77B = RESERVED FOR CDC
02591  M01S00088.274l797 +++|*                    5 = LONG BLOCK INTERNAL BINARY (LI)
02592  M01S00089.274l797 +++|*                    6-77B = RESERVED FOR CDC
02593  M01S01968.lfm     +++|*                IEP = ERROR PROCESSING INHIBITED (IF SET).
02594  M01S01969.lfm     +++|*                LBTYP = LABEL TYPE.
02595  M01S01970.lfm     +++|*                    0 = UNLABELED
02596  M01S01971.lfm     +++|*                    1 = STANDARD (ANSI 1969 STD.)
02597  M01S01972.lfm     +++|*                    2 = RESERVED FOR CDC (ANSI 1977 STD.)
02598  M01S01973.lfm     +++|*                    3-10B = RESERVED FOR CDC
02599  M01S01974.lfm     +++|*                    11B-13B = NOS/BE ONLY
02600  M01S01975.lfm     +++|*                    14B = NONSTANDARD (SKIP LABELS)
02601  M01S01976.lfm     +++|*                    15B-67B = RESERVED FOR CDC
02602  M01S01977.lfm     +++|*                    70B-77B = RESERVED FOR INSTALLATIONS
02603  M01S01978.lfm     +++|*                DEN = TAPE DENSITY.
02604  M01S01979.lfm     +++|*                    0 = NOT APPLICABLE
02605  M01S01980.lfm     +++|*                    1 = 556 BPI (7-TRACK)
02606  M01S01981.lfm     +++|*                    2 = 200 BPI (7-TRACK)
02607  M01S01982.lfm     +++|*                    3 = 800 BPI (7- OR 9-TRACK)
02608  M01S01983.lfm     +++|*                    4 = 1600 CPI (9-TRACK)
02609  M01S01984.lfm     +++|*                    5 = 6250 CPI (9-TRACK)

Seq #  *Modification Id* Act 
----------------------------+
02610  M02S01985.274l797 ---|*                    6-7 = RESERVED FOR CDC
02611  M01S00090.274l797 +++|*                    6 = 38000 CPI (CARTRIDGE)
02612  M01S00091.274l797 +++|*                    7 = RESERVED FOR CDC
02613  M01S01986.lfm     +++|*                CV = CONVERSION MODE.
02614  M01S01987.lfm     +++|*                    0 = BCD CONVERSION (7-TRACK)
02615  M01S01988.lfm     +++|*                    1 = ASCII CONVERSION (9-TRACK)
02616  M01S01989.lfm     +++|*                    2 = EBCDIC CONVERSION (9-TRACK)
02617  M01S01990.lfm     +++|*                    3-7 = RESERVED FOR CDC
02618  M01S01991.lfm     +++|*                BSIZE = MAXIMUM BLOCK SIZE (IN CM WORDS).
02619  M01S01992.lfm     +++|*                PO = PROCESSING OPTIONS.
02620  M01S01993.lfm     +++|*                    0 = ABORT ON IRRECOVERABLE PARITY ERROR
02621  M01S01994.lfm     +++|*                        WITH EP SET
02622  M01S01995.lfm     +++|*                    1 = DO NOT ABORT ON IRRECOVERABLE PARITY
02623  M01S01996.lfm     +++|*                        WITHOUT EP SET
02624  M01S01997.lfm     +++|*                    2 = INHIBIT ERROR PROCESSING
02625  M01S01998.lfm     +++|*                    3 = ENFORCE RING OUT
02626  M01S01999.lfm     +++|*                    4 = ENFORCE RING IN
02627  M01S02000.lfm     +++|*                    5 = INHIBIT UNLOAD
02628  M01S02001.lfm     +++|*                    6 = DISABLE GCR HARDWARE WRITE ERROR CORRECTION
02629  M01S02002.lfm     +++|*                    7 = ISSUE ALL ERROR RECOVERY MESSAGES TO USER
02630  M01S02003.lfm     +++|*                        DAYFILE
02631  M01S02004.lfm     +++|*                    8 = RESERVED FOR CDC
02632  M01S02005.lfm     +++|*                    9-11 = END-OF-REEL PROCESSING OPTION
02633  M01S02006.lfm     +++|*                        9 = OPTION *S*
02634  M01S02007.lfm     +++|*                        10 = OPTION *P*
02635  M01S02008.lfm     +++|*                        11 = OPTION *I*
02636  M01S02009.lfm     +++|*                NOISE = NOISE SIZE (IN FRAMES).
02637  M01S02010.lfm     +++|
02638  M01S02011.lfm     +++|
02639  M01S02012.lfm     +++|          ENTRY  RFI         RETURN FILE INFORMATION
02640  M01S00092.274l797 +++|          LDN    0           CLEAR STATUS BYTES
02641  M01S00093.274l797 +++|          STD    ST
02642  M01S00094.274l797 +++|          STD    SX
02643  M01S02013.lfm     +++|          LDN    FIPBL*5-1*5-1
02644  M01S02014.lfm     +++|          STD    T1
02645  M01S02015.lfm     +++| RFI1     LDN    0           INITIALIZE PARAMETER BLOCK BUFFER
02646  M01S02016.lfm     +++|          STM    FIPB,T1
02647  M01S02017.lfm     +++|          SOD    T1
02648  M01S02018.lfm     +++|          PJN    RFI1        IF MORE WORDS TO CLEAR
02649  M01S02019.lfm     +++|          RJM    CPA         GET PARAMETER BLOCK ADDRESS
02650  M01S02020.lfm     +++|          CRD    FN          READ FIRST WORD OF PARAMETER BLOCK
02651  M01S02021.lfm     +++|          ADN    1
02652  M01S02022.lfm     +++|          CWM    FIPB,ON     ZERO WORD ONE OF PARAMETER BLOCK
02653  M01S02023.lfm     +++|          LDD    FN+4        CHECK IF COMPLETION BIT SET
02654  M01S02024.lfm     +++|          SHN    21-0
02655  M01S02025.lfm     +++|          PJN    RFI2        IF COMPLETION BIT NOT SET
02656  M01S02026.lfm     +++|          LDN    /ERR/PBB    * PARAMETER BLOCK BUSY.*
02657  M01S02027.lfm     +++|          LJM    ERR         EXIT TO ERROR PROCESSOR
02658  M01S02028.lfm     +++|
02659  M01S02029.lfm     +++| RFI2     LCN    FIPBL-1     CHECK FET LENGTH .GE. MINIMUM LENGTH
02660  M01S02030.lfm     +++|          RJM    CFL
02661  M01S02031.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
02662  M01S02032.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
02663  M01S02033.lfm     +++|          NJN    RFI3        IF FILE FOUND
02664  M01S02034.lfm     +++|          LDN    FIPBL-2     CLEAR REMAINDER OF PARAMETER BLOCK
02665  M01S02035.lfm     +++|          STD    T4
02666  M01S02036.lfm     +++|          RJM    CPA         DETERMINE RETURN ADDRESS
02667  M01S02037.lfm     +++|          ADN    2
02668  M01S02038.lfm     +++|          CWM    FIPB,T4
02669  M01S02039.lfm     +++|          LJM    LFMX        EXIT
02670  M01S02040.lfm     +++|
02671  M01S02041.lfm     +++| RFI3     RJM    SFB         SET FILE BUSY
02672  M01S02042.lfm     +++|          ZJN    RFI4        IF NO REJECT ON FILE INTERLOCK
02673  M01S02043.lfm     +++|          LDN    0
02674  M01S02044.lfm     +++|          STD    FA
02675  M01S02045.lfm     +++|          LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
02676  M01S02046.lfm     +++|          LJM    ERR         EXIT TO ERROR PROCESSOR
02677  M01S02047.lfm     +++|
02678  M01S02048.lfm     +++|*         DETERMINE FILE TYPE.
02679  M01S02049.lfm     +++|
02680  M01S02050.lfm     +++| RFI4     STD    T4
02681  M01S02051.lfm     +++|          LDD    CM+4        GET FILE TYPE FROM FNT
02682  M01S02052.lfm     +++|          SHN    -6
02683  M01S02053.lfm     +++|          STD    T3
02684  M01S02054.lfm     +++| RFI5     LDM    TAFT,T4     CHECK TABLE FOR MATCH
02685  M01S02055.lfm     +++|          LMD    T3
02686  M01S02056.lfm     +++|          ZJN    RFI6        IF MATCH
02687  M01S02057.lfm     +++|          AOD    T4
02688  M01S02058.lfm     +++|          LMN    TAFTL
02689  M01S02059.lfm     +++|          NJN    RFI5        IF NOT END OF TABLE
02690  M01S02060.lfm     +++|          LDN    77          SET FILE TYPE = OTHER
02691  M01S02061.lfm     +++|          STD    T4
02692  M01S02062.lfm     +++| RFI6     LDD    T4
02693  M01S02063.lfm     +++|          STM    FIPB+4      PLACE FILE TYPE IN PARAMETER BLOCK
02694  M01S02064.lfm     +++|          LDD    CM+3        PICK UP FILE ACCESS MODE
02695  M01S02065.lfm     +++|          LPN    35          ISOLATE ACCESS MODE
02696  M01S02066.lfm     +++|          STD    EQ          SAVE FILE ACCESS MODE

Seq #  *Modification Id* Act 
----------------------------+
02697  M02S02067.ns22000 ---|          LDD    FS          GET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
02698  M02S02068.ns22000 ---|          STD    T5          SAVE EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
02699  M02S02069.ns22000 ---|          STM    FIPB+1*5    PLACE EQUIPMENT NUMBER IN PARAMETER BLOCK
02700  M01S00199.ns22000 +++|          LDD    FS          GET EST ORDINAL
02701  M01S00200.ns22000 +++|          STD    T5          SAVE EST ORDINAL
02702  M01S00201.ns22000 +++|          STM    FIPB+1*5    PLACE EST ORDINAL IN PARAMETER BLOCK
02703  M01S02070.lfm     +++|          ZJN    RFI7        IF NOT ASSIGNED TO MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
02704  M02S02071.ns22000 ---|          ADM    ESTS        READ EST ENTRY FOR FILE
02705  M01S00202.ns22000 +++|          SFA    EST         READ EST ENTRY FOR FILE
02706  M01S00203.ns22000 +++|          ADK    EQDE
02707  M01S02072.lfm     +++|          CRD    CN
02708  M01S02073.lfm     +++|          LDD    CN+3        GET DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
02709  M02S02074.252l678 ---|          LPC    3777
02710  M01S02075.lfm     +++|          STM    FIPB
02711  M01S02076.lfm     +++|          LDD    CN
02712  M01S02077.lfm     +++|          SHN    21-13
02713  M01S02078.lfm     +++|          MJN    RFI7        IF MASS STORAGE
02714  M01S02079.lfm     +++|          LJM    RFI18       PROCESS NON MASS STORAGE
02715  M01S02080.lfm     +++|
02716  M01S02081.lfm     +++|*         CHECK FOR EOI, EOF, AND BOI FOR MASS STORAGE FILES.
02717  M01S02082.lfm     +++|
02718  M01S02083.lfm     +++| RFI7     LDD    FS+4        SET MASS STORAGE AND OPEN BITS
02719  M01S02084.lfm     +++|          SHN    -3
02720  M01S02085.lfm     +++|          LPN    40
02721  M01S02086.lfm     +++|          ADN    10

Seq #  *Modification Id* Act 
----------------------------+
02722  M02S02087.v23l617 ---|          STD    FT
02723  M01S00041.v23l617 +++|          STD    ST

Seq #  *Modification Id* Act 
----------------------------+
02724  M02S02088.242l642 ---|          LDD    FS+4        CHECK FOR EOF OR EOI
02725  M01S00089.242l642 +++|          LDD    T5
02726  M01S00090.242l642 +++|          ZJN    RFI7.1      IF NOT ASSIGNED TO MASS STORAGE DEVICE
02727  M01S00091.242l642 +++|          SETMS  STATUS

Seq #  *Modification Id* Act 
----------------------------+
02728  M02S00092.ns2776  ---|          ZJN    RFI7.1      IF DEVICE ACCESSIBLE
02729  M01S00001.ns2776  +++|          LDM    MSD
02730  M01S00002.ns2776  +++|          SHN    21-6
02731  M01S00003.ns2776  +++|          PJN    RFI7.1      IF DEVICE ACCESSIBLE
02732  M01S00093.242l642 +++|          LDN    4
02733  M01S00094.242l642 +++|          RAD    ST
02734  M01S00095.242l642 +++| RFI7.1   LDD    FS+4        CHECK FOR EOF OR EOI
02735  M01S02089.lfm     +++|          SHN    21-3
02736  M01S02090.lfm     +++|          PJN    RFI9        IF NOT EOI OR EOF

Seq #  *Modification Id* Act 
----------------------------+
02737  M02S02091.242l642 ---|          SHN    21-20
02738  M01S00096.242l642 +++|          SHN    3-2

Seq #  *Modification Id* Act 
----------------------------+
02739  M02S02092.lfm21   ---|          PJN    RFI8        IF EOF

Seq #  *Modification Id* Act 
----------------------------+
02740  M02S02093.lfm21   ---|          LDN    4           SET BIT TO INDICATE EOI
02741  M01S00001.lfm21   +++|          MJN    RFI8        IF NOT EOF
02742  M01S00002.lfm21   +++|          LDN    2           SET BIT TO INDICATE EOF
02743  M01S02094.lfm     +++|          UJN    RFI10       SET UP FILE MODE FIELDS
02744  M01S02095.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02745  M02S02096.lfm21   ---| RFI8     LDN    2           SET BIT TO INDICATE EOF

Seq #  *Modification Id* Act 
----------------------------+
02746  M02S02097.lfm21   ---|          UJN    RFI10       SET UP FILE MODE FIELDS

Seq #  *Modification Id* Act 
----------------------------+
02747  M02S02098.lfm21   ---|

Seq #  *Modification Id* Act 
----------------------------+
02748  M02S02099.lfm21   ---| RFI9     LDD    FS+1        CHECK FOR BOI

Seq #  *Modification Id* Act 
----------------------------+
02749  M02S02100.lfm21   ---|          ZJN    RFI13       IF EMPTY FILE
02750  M01S00003.lfm21   +++| RFI8     LDN    4           SET BIT TO INDICATE EOI
02751  M01S00004.lfm21   +++|          SHN    11
02752  M01S00005.lfm21   +++|          RAD    ST
02753  M01S00006.lfm21   +++| RFI9     LDD    FS+1        CHECK FOR EMPTY FILE
02754  M01S00007.lfm21   +++|          ZJN    RFI9.1      IF EMPTY FILE
02755  M01S02101.lfm     +++|          LMD    FS+2
02756  M01S02102.lfm     +++|          NJN    RFI11       IF FIRST TRACK .NE. CURRENT TRACK
02757  M01S02103.lfm     +++|          LDD    FS+3
02758  M01S02104.lfm     +++|          LMN    FSMS
02759  M01S02105.lfm     +++|          NJN    RFI11       IF CURRENT SECTOR .NE. FSMS

Seq #  *Modification Id* Act 
----------------------------+
02760  M02S02106.lfm21   ---|          LDN    1           SET BIT TO INDICATE BOI
02761  M01S00008.lfm21   +++| RFI9.1   LDN    1           SET BIT TO INDICATE BOI
02762  M01S02107.lfm     +++| RFI10    SHN    11

Seq #  *Modification Id* Act 
----------------------------+
02763  M02S02108.v23l617 ---|          RAD    FT
02764  M01S00042.v23l617 +++|          RAD    ST
02765  M01S02109.lfm     +++|
02766  M01S02110.lfm     +++|*         DETERMINE FILE LENGTH.
02767  M01S02111.lfm     +++|
02768  M01S02112.lfm     +++| RFI11    LDD    FS+1        SET FIRST TRACK
02769  M01S02113.lfm     +++|          ZJN    RFI13       IF NO FIRST TRACK
02770  M01S02114.lfm     +++|          STD    T6
02771  M01S02115.lfm     +++|          RJM    SEI         DETERMINE FILE LENGTH
02772  M01S02116.lfm     +++|          SOD    T3          SET FILE LENGTH IN PARAMETER BLOCK
02773  M01S02117.lfm     +++|          PJN    RFI12       IF NO BORROW
02774  M01S02118.lfm     +++|          LDD    T2
02775  M01S02119.lfm     +++|          ZJN    RFI12       IF LENGTH IS ZERO
02776  M01S02120.lfm     +++|          SOD    T2          BORROW
02777  M01S02121.lfm     +++|          LCN    0
02778  M01S02122.lfm     +++| RFI12    STM    FIPB+2*5+1
02779  M01S02123.lfm     +++|          LDD    T2
02780  M01S02124.lfm     +++|          STM    FIPB+2*5
02781  M01S02125.lfm     +++|
02782  M01S02126.lfm     +++|*         DETERMINE RANDOM ADDRESS.
02783  M01S02127.lfm     +++|
02784  M01S02128.lfm     +++| RFI13    LDD    FS+2        SET TRACK
02785  M01S02129.lfm     +++|          ZJN    RFI14       IF NO CURRENT TRACK
02786  M01S02130.lfm     +++|          STD    T6
02787  M01S02131.lfm     +++|          LDD    FS+3        SET SECTOR
02788  M01S02132.lfm     +++|          STD    T7
02789  M01S02133.lfm     +++|          LDD    FS+1
02790  M01S02134.lfm     +++|          RJM    SRA         SET RANDOM ADDRESS
02791  M01S02135.lfm     +++|          LDD    RI          SET RANDOM ADDRESS IN PARAMETER BLOCK
02792  M01S02136.lfm     +++|          SHN    6
02793  M01S02137.lfm     +++|          STM    FIPB+2*5+3
02794  M01S02138.lfm     +++|          SHN    -14
02795  M01S02139.lfm     +++|          STM    FIPB+2*5+2
02796  M01S02140.lfm     +++|          LDD    RI+1
02797  M01S02141.lfm     +++|          SHN    6
02798  M01S02142.lfm     +++|          STM    FIPB+2*5+4
02799  M01S02143.lfm     +++|          SHN    -14
02800  M01S02144.lfm     +++|          RAM    FIPB+2*5+3
02801  M01S02145.lfm     +++|
02802  M01S02146.lfm     +++|*         DETERMINE FILE ACCESS MODE.
02803  M01S02147.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02804  M02S02148.v23l617 ---| RFI14    AOD    FT          DEFAULT TO EXECUTE MODE
02805  M01S00043.v23l617 +++| RFI14    AOD    ST          DEFAULT TO EXECUTE MODE
02806  M01S02149.lfm     +++|          LDN    0
02807  M01S02150.lfm     +++|          STD    T4
02808  M01S02151.lfm     +++| RFI15    LDM    TAFM,T4     CHECK TABLE FOR MATCH
02809  M01S02152.lfm     +++|          LMD    EQ
02810  M01S02153.lfm     +++|          LPN    77
02811  M01S02154.lfm     +++|          ZJN    RFI16       IF MATCH
02812  M01S02155.lfm     +++|          AOD    T4
02813  M01S02156.lfm     +++|          LMN    TAFML
02814  M01S02157.lfm     +++|          NJN    RFI15       IF NOT END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
02815  M02S02158.241l630 ---|          MONITOR  HNGM      HANG PP
02816  M01S00024.241l630 +++|          LDN    SWET        SET SYSTEM SOFTWARE ERROR FLAG
02817  M01S00025.241l630 +++|          STD    CM+2
02818  M01S00026.241l630 +++|          LDC    *           SET ADDRESS WHERE ERROR DETECTED
02819  M01S00027.241l630 +++|          STD    CM+1
02820  M01S00028.241l630 +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
02821  M01S00029.241l630 +++|          LJM    LFMX        RETURN
02822  M01S02159.lfm     +++|
02823  M01S02160.lfm     +++|*         PROGRAMMER NOTE - BECAUSE ALL POSSIBLE FILE MODES
02824  M01S02161.lfm     +++|*         SHOULD BE INCLUDED IN TABLE *TAFM*, A MATCH
02825  M01S02162.lfm     +++|*         FAILURE INDICATES THAT THE FNT ENTRY FOR THE
02826  M01S02163.lfm     +++|*         FILE IS INCORRECT.
02827  M01S02164.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02828  M02S02165.241l630 ---|          UJN    RFI17       RETURN ZERO FOR FILE PERMISSIONS

Seq #  *Modification Id* Act 
----------------------------+
02829  M02S02166.241l630 ---|
02830  M01S02167.lfm     +++| RFI16    LDM    TAFM,T4     SET BITS TO INDICATE MODE
02831  M01S02168.lfm     +++|          SCN    77
02832  M01S02169.lfm     +++| RFI17    RAM    FIPB+4
02833  M01S02170.lfm     +++|          LJM    RFI27       CHECK FOR KEYWORD
02834  M01S02171.lfm     +++|
02835  M01S02172.lfm     +++|*         CHECK FOR TAPE OR TTY FILE.
02836  M01S02173.lfm     +++|
02837  M01S02174.lfm     +++| RFI18    LDD    CN+3        CHECK FOR *TTY* OR TAPE FILE
02838  M01S00095.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
02839  M01S00096.274l797 +++|          MJN    RFI18.1     IF NOT TAPE EQUIPMENT
02840  M01S00097.274l797 +++|          SHN    1           SAVE TAPE DEVICE TYPE AND TAPE FLAG
02841  M01S00098.274l797 +++|          LMN    1
02842  M01S00099.274l797 +++|          STD    SX
02843  M01S00100.274l797 +++|          LDD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
02844  M02S02175.252l678 ---|          LPC    3777
02845  M01S02176.lfm     +++|          LMC    2RMT
02846  M01S02177.lfm     +++|          ZJN    RFI21       IF *MT*
02847  M01S02178.lfm     +++|          LMC    2RNT&2RMT
02848  M01S02179.lfm     +++|          ZJN    RFI20       IF *NT*

Seq #  *Modification Id* Act 
----------------------------+
02849  M02S02180.274l797 ---|          LMC    2RTT&2RNT
02850  M01S00101.274l797 +++|          UJN    RFI21.1     CHECK IF LABELED TAPE
02851  M01S00102.274l797 +++|
02852  M01S00103.274l797 +++| RFI18.1  LDD    CN+3
02853  M01S00104.274l797 +++|          LMC    2RTT
02854  M01S02181.lfm     +++|          ZJN    RFI19       IF *TT*
02855  M01S02182.lfm     +++|          LDN    20          CLEAR STATUS BYTE
02856  M01S02183.lfm     +++| RFI19    LMN    20          SET BIT TO INDICATE *TT*

Seq #  *Modification Id* Act 
----------------------------+
02857  M02S02184.v23l617 ---|          STD    FT
02858  M01S00044.v23l617 +++|          STD    ST
02859  M01S02185.lfm     +++|          LJM    RFI23       CHECK ACCESS MODE
02860  M01S02186.lfm     +++|
02861  M01S02187.lfm     +++| RFI20    LDD    HN
02862  M01S02188.lfm     +++| RFI21    ADD    HN

Seq #  *Modification Id* Act 
----------------------------+
02863  M02S02189.v23l617 ---|          STD    FT

Seq #  *Modification Id* Act 
----------------------------+
02864  M02S00045.274l797 ---|          STD    ST

Seq #  *Modification Id* Act 
----------------------------+
02865  M02S02190.274l797 ---|          LDD    FS+4        CHECK IF LABELLED TAPE
02866  M01S00105.274l797 +++|          STD    ST          SET 7-TRACK BIT OR 9-TRACK BIT
02867  M01S00106.274l797 +++| RFI21.1  LDD    FS+4        CHECK IF LABELLED TAPE
02868  M01S02191.lfm     +++|          LPC    4000
02869  M01S02192.lfm     +++|          SHN    -3

Seq #  *Modification Id* Act 
----------------------------+
02870  M02S02193.v23l617 ---|          RAD    FT
02871  M01S00046.v23l617 +++|          RAD    ST
02872  M01S02194.lfm     +++|
02873  M01S02195.lfm     +++|*         CHECK FOR FILE OPENED.
02874  M01S02196.lfm     +++|
02875  M01S02197.lfm     +++|          LDN    /MTX/UVSN
02876  M01S02198.lfm     +++|          STD    T1
02877  M01S02199.lfm     +++|          LDN    1
02878  M01S02200.lfm     +++|          RJM    TUW         TRANSFER UDT WORD
02879  M01S02201.lfm     +++|          LDD    MA

Seq #  *Modification Id* Act 
----------------------------+
02880  M02S02202.v23l617 ---|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
02881  M02S02203.v23l617 ---|          LDD    CN+3        CHECK FOR OPEN BIT

Seq #  *Modification Id* Act 
----------------------------+
02882  M02S00047.lfm25   ---|          CRD    UD          VSN, REEL NUMBER, AND OPEN BIT
02883  M01S00006.lfm25   +++|          CRD    UD          GET VSN AND OPEN STATUS
02884  M01S00048.v23l617 +++|          LDD    UD+3        CHECK FOR OPEN BIT
02885  M01S02204.lfm     +++|          SHN    21-11
02886  M01S02205.lfm     +++|          PJN    RFI22       IF NOT OPEN
02887  M01S02206.lfm     +++|          LDN    40          SET OPEN BIT FOR REPLY

Seq #  *Modification Id* Act 
----------------------------+
02888  M02S02207.v23l617 ---|          RAD    FT
02889  M01S00049.v23l617 +++|          RAD    ST
02890  M01S02208.lfm     +++|
02891  M01S02209.lfm     +++|*         CHECK FOR WRITE LOCKOUT.
02892  M01S02210.lfm     +++|
02893  M01S02211.lfm     +++| RFI22    LDN    /MTX/UST1   GET DEVICE STATUS FROM UDT
02894  M01S02212.lfm     +++|          STD    T1
02895  M01S02213.lfm     +++|          LDN    1
02896  M01S02214.lfm     +++|          RJM    TUW
02897  M01S02215.lfm     +++|          LDD    MA
02898  M01S02216.lfm     +++|          CRD    CN
02899  M01S02217.lfm     +++|          LDD    CN+4        CHECK FOR WRITE RING
02900  M01S02218.lfm     +++|          SHN    21-7
02901  M01S02219.lfm     +++|          PJN    RFI24       IF NO WRITE RING
02902  M01S02220.lfm     +++|
02903  M01S02221.lfm     +++| RFI23    LDD    EQ          PICK UP FILE ACCESS MODE
02904  M01S02222.lfm     +++|          SHN    21-0
02905  M01S02223.lfm     +++|          PJN    RFI25       IF NOT WRITE LOCKOUT
02906  M01S02224.lfm     +++| RFI24    LDD    HN          SET READ BIT
02907  M01S02225.lfm     +++|          UJN    RFI26       SET UP FILE MODE FIELD
02908  M01S02226.lfm     +++|
02909  M01S02227.lfm     +++| RFI25    LDC    300         SET READ AND WRITE BITS
02910  M01S02228.lfm     +++| RFI26    RAM    FIPB+4
02911  M01S02229.lfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
02912  M02S02230.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
02913  M03S02231.274l797 ---| RFI27    LDD    FT          SET STATUS BYTE

Seq #  *Modification Id* Act 
----------------------------+
02914  M02S00050.274l797 ---| RFI27    LDD    ST          SET STATUS BYTE
02915  M01S00107.274l797 +++| RFI27    LDD    ST          SET STATUS BYTES
02916  M01S02232.lfm     +++|          STM    FIPB+3
02917  M01S00108.274l797 +++|          LDD    SX
02918  M01S00109.274l797 +++|          STM    FIPB+2
02919  M01S02233.lfm     +++|
02920  M01S02234.lfm     +++|*         RETURN STANDARD PARAMETER BLOCK.
02921  M01S02235.lfm     +++|
02922  M01S02236.lfm     +++|          LDN    FIPBL-1     NUMBER OF WORDS TO TRANSFER
02923  M01S02237.lfm     +++|          STD    FP
02924  M01S02238.lfm     +++|          RJM    CPA         DETERMINE RETURN ADDRESS
02925  M01S02239.lfm     +++|          ADN    1
02926  M01S02240.lfm     +++|          CWM    FIPB,FP
02927  M01S02241.lfm     +++|          LDD    FE          SET KEYWORD COUNT - 1
02928  M01S02242.lfm     +++|          SBN    FIPBL-1+1
02929  M01S02243.lfm     +++|          STD    FE
02930  M01S02244.lfm     +++|          PJN    RFI32       IF KEYWORDS TO PROCESS
02931  M01S02245.lfm     +++| RFI28    LJM    LFMX        RETURN
02932  M01S02246.lfm     +++|
02933  M01S02247.lfm     +++|*         PROCESS KEY WORDS.
02934  M01S02248.lfm     +++|
02935  M01S02249.lfm     +++| RFI29    LDN    40          SET KEY NOT DEFINED FLAG
02936  M01S02250.lfm     +++|          RAD    CN+4
02937  M01S02251.lfm     +++| RFI30    RJM    CPA         GET PARAMETER BLOCK ADDRESS
02938  M01S02252.lfm     +++|          ADD    FP
02939  M01S02253.lfm     +++|          CWD    CN          RETURN KEYWORD
02940  M01S02254.lfm     +++| RFI31    SOD    FE
02941  M01S02255.lfm     +++|          MJN    RFI28       IF NO MORE KEYS TO PROCESS
02942  M01S02256.lfm     +++| RFI32    AOD    FP          ADVANCE PARAMETER BLOCK POINTER
02943  M01S02257.lfm     +++|          RJM    CPA         GET PARAMETER BLOCK ADDRESS
02944  M01S02258.lfm     +++|          ADD    FP
02945  M01S02259.lfm     +++|          CRD    CM          READ NEXT KEY WORD
02946  M01S02260.lfm     +++|          LDN    ZERL        INITIALIZE KEY WORD FIELDS
02947  M01S02261.lfm     +++|          CRD    CN
02948  M01S02262.lfm     +++|          LDD    CM+4
02949  M01S02263.lfm     +++|          LPN    37
02950  M01S02264.lfm     +++|          ZJN    RFI31       IF ZERO KEY, IGNORE WORD
02951  M01S02265.lfm     +++|          STD    CN+4
02952  M01S02266.lfm     +++|          LDN    TAPKL
02953  M01S02267.lfm     +++|          STD    T1
02954  M01S02268.lfm     +++| RFI33    LCN    TAPKE       SEARCH FOR KEY
02955  M01S02269.lfm     +++|          RAD    T1
02956  M01S02270.lfm     +++|          MJN    RFI29       IF END OF TABLE
02957  M01S02271.lfm     +++|          LDM    TAPK,T1
02958  M01S02272.lfm     +++|          LMD    CN+4
02959  M01S02273.lfm     +++|          NJN    RFI33       IF NO MATCH
02960  M01S02274.lfm     +++|          LDM    TAPK+1,T1   GET KEY WORD PROCESSOR ADDRESS
02961  M01S02275.lfm     +++|          STD    T1
02962  M01S02276.lfm     +++|          LJM    0,T1        JUMP TO KEYWORD PROCESSOR
02963  M01S02277.lfm     +++| RFI      SPACE  4,15
02964  M01S02278.lfm     +++|**        KEY WORD PROCESSORS.
02965  M01S02279.lfm     +++|*
02966  M01S02280.lfm     +++|*         ENTRY  (CN - CN+3) = 0.
02967  M01S02281.lfm     +++|*                (CN+4) = KEY.

Seq #  *Modification Id* Act 
----------------------------+
02968  M02S02282.v23l617 ---|*                (FT) = FILE STATUS.

Proceed to Part 2