User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:lfm.001

Deck LFM Part 001

48 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01562  M01S00068.ns22000 +++|          ADK    EQDE
01563  M00S01261.lfm     +++|          CRD    CM
Line S01262 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01564  M01S01262.242l642 ---|          LDD    CM+3
01565  M01S01263.242l642 ---|          SHN    21-13
Line S00077 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01566  M01S00077.242l642 +++|          LDD    CM
01567  M01S00078.242l642 +++|          SHN    21-1
01568  M00S01264.lfm     +++|          MJN    CRF2        IF DEVICE OFF
01569  M00S01265.lfm     +++|          LDD    CN+3        SET FIRST = CURRENT
01570  M00S01266.lfm     +++|          STD    FS+1
01571  M00S01267.lfm     +++|          STD    FS+2
01572  M00S01268.lfm     +++|          LDD    CN+4
01573  M00S01269.lfm     +++|          STD    FS+3
01574  M00S01270.lfm     +++|          UJN    CRFX        RETURN
01575  M00S01271.lfm     +++|
01576  M00S01272.lfm     +++| CRF1     LDD    CN+3        GET TRACK
01577  M00S01273.lfm     +++|          STM    CRFA+3
01578  M00S01274.lfm     +++|          LDD    CN+4        GET SECTOR
01579  M00S01275.lfm     +++|          STM    CRFA+4
01580  M00S01276.lfm     +++| CRF2     RJM    SSA         SET SYSTEM FILE FNT ADDRESS
01581  M00S01277.lfm     +++|          ADN    FSTG
01582  M00S01278.lfm     +++|          CRD    CM
01583  M00S01279.lfm     +++|          LDD    CM          SET SYSTEM EQUIPMENT
01584  M00S01280.lfm     +++|          STD    FS
01585  M00S01281.lfm     +++|          LDM    CRFA+3      SET FIRST = CURRENT
01586  M00S01282.lfm     +++|          STD    FS+1
01587  M00S01283.lfm     +++|          STD    FS+2
01588  M00S01284.lfm     +++|          LDM    CRFA+4      SET SECTOR
01589  M00S01285.lfm     +++|          STD    FS+3
01590  M00S01286.lfm     +++|          LJM    CRFX        RETURN
01591  M00S01287.lfm     +++|
01592  M00S01288.lfm     +++|
01593  M00S01289.lfm     +++| CRFA     BSS    5           SYSTEM DEVICE INFORMATION
01594  M00S01290.lfm     +++| SSA      SPACE  4,10
01595  M00S01291.lfm     +++|**        SSA - SET SYSTEM FILE FNT ENTRY ADDRESS.
01596  M00S01292.lfm     +++|*
01597  M00S01293.lfm     +++|*         EXIT   (A) = ABSOLUTE ADDRESS OF SYSTEM FILE ENTRY.
01598  M00S01294.lfm     +++|*
01599  M00S01295.lfm     +++|*         USES   CM - CM+4.
01600  M00S01296.lfm     +++|
01601  M00S01297.lfm     +++|
01602  M00S01298.lfm     +++| SSA      SUBR               ENTRY/EXIT
01603  M00S01299.lfm     +++|          LDN    FNTP        FETCH FNT POINTER
01604  M00S01300.lfm     +++|          CRD    CM
01605  M00S01301.lfm     +++|          LDD    CM          GET SYSTEM FILE FNT ADDRESS
01606  M00S01302.lfm     +++|          SHN    14
01607  M00S01303.lfm     +++|          ADD    CM+1
01608  M00S01304.lfm     +++|*         ADN    SYFO*FNTE
01609  M00S01305.lfm     +++|          ERRNZ  SYFO        SYSTEM FILE IS NOT FIRST SYSTEM FNT ENTRY
01610  M00S01306.lfm     +++|          UJN    SSAX        RETURN
01611  M00S01307.lfm     +++|          SPACE  4,10
01612  M00S01308.lfm     +++|**        COMMON DECKS.
01613  M00S01309.lfm     +++|
01614  M00S01310.lfm     +++|
01615  M00S01311.lfm     +++|*CALL     COMPCLD
01616  M00S01312.lfm     +++|*CALL     COMPCRS
01617  M00S01313.lfm     +++|          SPACE  4,10
01618  M00S01314.lfm     +++| IFP      HERE               DUMP *IFP* REMOTE CODE
Line S00001 Modification History
M01 (Added by) lfm17
Seq #  *Modification Id* Act 
----------------------------+
01619  M01S00001.lfm17   +++|          SPACE  4
01620  M01S00002.lfm17   +++|**        DEFINE ZERO LEVEL OVERLAY LOAD ADDRESS.
01621  M01S00003.lfm17   +++|
01622  M01S00004.lfm17   +++|
01623  M01S00005.lfm17   +++| .L1      EQU    7777-1-ZBFL LENGTH OF *0BF*
01624  M01S00006.lfm17   +++| .L2      EQU    BFMS-1-ZDFL LENGTH OF *0DF*
01625  M01S00007.lfm17   +++| .L3      MIN    .L1,.L2
01626  M01S00008.lfm17   +++| OVL0     EQU    .L3         DEFINE ZERO LEVEL OVERLAY LOAD ADDRESS
01627  M01S00009.lfm17   +++|          SPACE  4,10
01628  M01S00010.lfm17   +++|          ERRNG  OVL0-*      CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
01629  M00S01315.lfm     +++|          OVERLAY (ERROR PROCESSOR.)
01630  M00S01316.lfm     +++| ERP      SPACE  4,10
01631  M00S01317.lfm     +++|**        ERP - ERROR PPROCESSOR.
Line S00069 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01632  M01S00069.ns22000 +++|*
01633  M00S01318.lfm     +++|*         ENTRY  (EQ) = ERROR NUMBER.
01634  M00S01319.lfm     +++|
01635  M00S01320.lfm     +++|
01636  M00S01321.lfm     +++|          ENTRY  ERP
01637  M00S01322.lfm     +++|          LDM    ERPA,EQ
01638  M00S01323.lfm     +++|          ZJN    ERP1        IF NO DAYFILE MESSAGES ARE TO BE ISSUED
Line S01324 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01639  M01S01324.ns22000 ---|          LDC    =C*LFM ERROR.*
Line S00070 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01640  M01S00070.ns22000 +++|          LDC    =C* LFM ERROR.*
01641  M00S01325.lfm     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
Line S01326 Modification History
M01 (Removed by) lfm23
Seq #  *Modification Id* Act 
----------------------------+
01642  M01S01326.lfm23   ---|          LDM    ERPA,EQ
Line S00001 Modification History
M01 (Added by) lfm23
Seq #  *Modification Id* Act 
----------------------------+
01643  M01S00001.lfm23   +++|          LDD    EQ
01644  M01S00002.lfm23   +++|          LMN    /ERR/DFN
01645  M01S00003.lfm23   +++|          NJN    ERP0        IF NOT *DUPLICATE FILE NAME*
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  M00S01327.lfm     +++|          LMC    CPON
01659  M00S01328.lfm     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
Line S01329 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01660  M01S01329.242l642 ---| ERP1     AOD    FS+4        SET FILE NOT BUSY
01661  M01S01330.242l642 ---|          LDD    FA
01662  M01S01331.242l642 ---|          ZJN    ERP2        IF NO FNT ENTRY
01663  M01S01332.242l642 ---|          NFA    FA,R
01664  M01S01333.242l642 ---|          ADN    FSTL
01665  M01S01334.242l642 ---|          CWD    FS          STORE FST ENTRY
Line S00079 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01666  M01S00079.242l642 +++| ERP1     RJM    SNB         SET FILE(S) NOT BUSY
01667  M00S01335.lfm     +++| ERP2     RJM    SFS         SET FILE STATUS
Line S01336 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01668  M01S01336.ns22000 ---|          MONITOR ABTM       ABORT CONTROL POINT
01669  M01S01337.ns22000 ---|          LJM    PPR         EXIT TO PP RESIDENT
Line S00071 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01338.lfm     +++|
01682  M00S01339.lfm     +++|
01683  M00S01340.lfm     +++| ERPA     BSS    0
01684  M00S01341.lfm     +++|          QUAL   ERR
01685  M00S01342.lfm     +++|          LOC    0
01686  M00S01343.lfm     +++|
01687  M00S01344.lfm     +++| FNF      CON    =C* FILE NOT FOUND.*
01688  M00S01345.lfm     +++| FLN      CON    =C* FILE NAME ERROR.*
Line S01346 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01689  M01S01346.v23l617 ---| IFT      CON    =C* ILLEGAL FILE TYPE.*
Line S00023 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01690  M01S00023.v23l617 +++| IFT      CON    =C* INCORRECT FILE TYPE.*
01691  M00S01347.lfm     +++| FLE      CON    =C* FILE EMPTY.*
Line S01348 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01692  M01S01348.v23l617 ---| MNA      CON    =C* MAGNET NOT ACTIVE.*
Line S00024 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01693  M01S00024.v23l617 +++| MNA      CON    =C* MAGNETIC TAPE SUBSYSTEM NOT ACTIVE.*
Line S01349 Modification History
M01 (Removed by) lfm19
Seq #  *Modification Id* Act 
----------------------------+
01694  M01S01349.lfm19   ---|          CON    0           NOT USED
Line S00004 Modification History
M01 (Added by) lfm19
Seq #  *Modification Id* Act 
----------------------------+
01695  M01S00004.lfm19   +++| CFE      CON    =C* COMMAND FILE ERROR.*
Line S01350 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01696  M01S01350.v23l617 ---| IEQ      CON    =C* ILLEGAL EQUIPMENT.*
Line S00025 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01697  M01S00025.v23l617 +++| IEQ      CON    =C* INCORRECT EQUIPMENT.*
01698  M00S01351.lfm     +++| WEQ      CON    =C* EQUIPMENT NOT AVAILABLE.*
Line S01352 Modification History
M01 (Removed by) lfm23
Seq #  *Modification Id* Act 
----------------------------+
01699  M01S01352.lfm23   ---| DFN      CON    =C* DUPLICATE FILE NAME.*
Line S00016 Modification History
M01 (Added by) lfm23
Seq #  *Modification Id* Act 
----------------------------+
01700  M01S00016.lfm23   +++| DFN      CON    =C* DUPLICATE FILE NAME - *
Line S01353 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01701  M01S01353.v23l617 ---| IUA      CON    =C* ILLEGAL USER ACCESS.*
Line S00026 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01702  M01S00026.v23l617 +++| IUA      CON    =C* USER ACCESS NOT VALID.*
Line S01354 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01703  M01S01354.ns22000 ---|          CON    0           NOT USED
Line S00082 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01704  M01S00082.ns22000 +++| LNV      CON    =C* ACCESS LEVEL NOT VALID FOR FILE.*
01705  M00S01355.lfm     +++|          CON    0           NOT USED
01706  M00S01356.lfm     +++| RDE      CON    0           RESEX DETECTED ERROR
01707  M00S01357.lfm     +++| IOE      CON    =C* I/O SEQUENCE ERROR.*
01708  M00S01358.lfm     +++|          CON    0           NOT USED
01709  M00S01359.lfm     +++|          CON    0           NOT USED
01710  M00S01360.lfm     +++| NMA      CON    =C* NO MASS STORAGE AVAILABLE.*
Line S01361 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01711  M01S01361.v23l617 ---| ILM      CON    =C* ILLEGAL FILE MODE.*
Line S00027 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01712  M01S00027.v23l617 +++| ILM      CON    =C* INCORRECT FILE MODE.*
01713  M00S01362.lfm     +++| FTS      CON    =C* FET TOO SHORT.*
01714  M00S01363.lfm     +++| GTL      CON    =C* GETFNT TABLE TOO LARGE.*
01715  M00S01364.lfm     +++|          CON    0           NOT USED
01716  M00S01365.lfm     +++| PBB      CON    =C* PARAMETER BLOCK BUSY.*
01717  M00S01366.lfm     +++| AOR      CON    =C* ADDRESS OUT OF RANGE.*
01718  M00S01367.lfm     +++| SYE      CON    =C* SYSTEM ERROR.*
Line S01368 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01719  M01S01368.v23l617 ---| IRA      CON    =C* ILLEGAL RANDOM ADDRESS.*
Line S00028 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01720  M01S00028.v23l617 +++| IRA      CON    =C* INCORRECT RANDOM ADDRESS.*
Line S01369 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01721  M01S01369.274l797 ---|          CON    0           NOT USED
Line S00002 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01722  M01S00002.274l797 +++| ODE      CON    =C* OPTICAL DISK SYSTEM ERROR.*
Line S01370 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01723  M01S01370.v23l617 ---| IFS      CON    =C* ILLEGAL FILE STATUS.*
Line S00029 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01724  M01S00029.v23l617 +++| IFS      CON    =C* INCORRECT FILE STATUS.*
01725  M00S01371.lfm     +++|
01726  M00S01372.lfm     +++|          LOC    *O
01727  M00S01373.lfm     +++|          QUAL   *
Line S00011 Modification History
M01 (Added by) lfm17
Seq #  *Modification Id* Act 
----------------------------+
01728  M01S00011.lfm17   +++|          SPACE  4,10
01729  M01S00012.lfm17   +++|          ERRNG  OVL0-*      CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
01730  M01S00013.lfm17   +++|          OVERFLOW  OVL
01731  M00S01374.lfm     +++|          OVERLAY (LOCAL FILE FUNCTIONS.)
01732  M00S01375.lfm     +++|          SPACE  4,10
01733  M00S01376.lfm     +++|****      ADDITIONAL DIRECT LOCATION ASSIGNMENTS.
01734  M00S01377.lfm     +++|
01735  M00S01378.lfm     +++|
01736  M00S01379.lfm     +++| UD       EQU    60 - 64     UDT WORD BUFFER (5 LOCATIONS)
Line S00030 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01737  M01S00030.v23l617 +++| ST       EQU    65          FILINFO STATUS BYTE (1 LOCATION)
Line S00003 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01738  M01S00003.274l797 +++| SX       EQU    66          FILINFO EXTENDED STATUS (1 LOCATION)
01739  M00S01380.lfm     +++|
01740  M00S01381.lfm     +++|****
01741  M00S01382.lfm     +++| RNM      SPACE  4,25
01742  M00S01383.lfm     +++|***       FUNCTION 0.
01743  M00S01384.lfm     +++|*         RENAME FILE.
01744  M00S01385.lfm     +++|*
01745  M00S01386.lfm     +++|*         RENAME FILE TO THE NAME SPECIFIED IN (FET+6).
01746  M00S01387.lfm     +++|*
01747  M00S01388.lfm     +++|*         RENAME,A=B.
01748  M00S01389.lfm     +++|*         RENAME *B* TO *A*.
01749  M00S01390.lfm     +++|*
01750  M00S01391.lfm     +++|*         1.  IF FILE *A* DOES NOT EXIST, THEN THE FILE NAME OF *B*
01751  M00S01392.lfm     +++|*         IS CHANGED TO *A* IN THE LOCAL FNT.
01752  M00S01393.lfm     +++|*
01753  M00S01394.lfm     +++|*         2.  IF FILE *A* EXISTS, THEN
01754  M00S01395.lfm     +++|*                A.  *0DF* IS CALLED TO DROP THE LOCAL AND GLOBAL FNT
01755  M00S01396.lfm     +++|*                ENTRY FOR FILE *A*.
01756  M00S01397.lfm     +++|*                NOTE - IF FILE *A* IS NAMED /INPUT/, *0DF* DOES NOT
01757  M00S01398.lfm     +++|*                DROP THE FILE BUT RATHER CHANGES THE NAME TO /INPUT*/.
01758  M00S01399.lfm     +++|*
01759  M00S01400.lfm     +++|*                B.  THE FILE NAME OF *B* IS CHANGED TO *A* IN THE
01760  M00S01401.lfm     +++|*                LOCAL FNT.
01761  M00S01402.lfm     +++|*
Line S01403 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01762  M01S01403.v23l617 ---|*         * ILLEGAL FILE TYPE.* - FILE *B* IS NOT TYPE LOFT, OR THE
Line S00031 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01763  M01S00031.v23l617 +++|*         * INCORRECT FILE TYPE.* - FILE *B* IS NOT TYPE LOFT, OR THE
01764  M00S01404.lfm     +++|*                FILE TYPES OF *A* AND *B* ARE NOT THE SAME.
01765  M00S01405.lfm     +++|*
01766  M00S01406.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
01767  M00S01407.lfm     +++|
01768  M00S01408.lfm     +++|
01769  M00S01409.lfm     +++|          ENTRY  RNM
01770  M00S01410.lfm     +++|          LCN    6           CHECK FET LENGTH .GE. 7
01771  M00S01411.lfm     +++|          RJM    CFL
01772  M00S01412.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
01773  M00S01413.lfm     +++|          RJM    SIF         SEARCH AND INTERLOCK FILE
01774  M00S01414.lfm     +++|          LDD    FA          SET FNT ADDRESS OF *B*
01775  M00S01415.lfm     +++|          STM    RNMA
01776  M00S01416.lfm     +++|          LDD    FS+2        CHECK CURRENT TRACK
01777  M00S01417.lfm     +++|          NJN    RNM1        IF FILE HAS BEEN USED
01778  M00S01418.lfm     +++|          AOM    RNMD        SET ERROR FLAG
Line S01419 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01779  M01S01419.ns22000 ---| RNM1     LDD    FS          SET EST ADDRESS
01780  M01S01420.ns22000 ---|          ADM    ESTS
Line S00083 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01781  M01S00083.ns22000 +++| RNM1     LDD    FS          SAVE EST ORDINAL IN *CFT*
01782  M00S01421.lfm     +++|          STM    CFTB
Line S00001 Modification History
M01 (Added by) lfm8
Seq #  *Modification Id* Act 
----------------------------+
01783  M01S00001.lfm8    +++|          SFA    EST
01784  M01S00002.lfm8    +++|          ADK    EQDE
01785  M00S01422.lfm     +++|          RJM    CDP         CHECK FOR DMP= CALLING PROGRAM
01786  M00S01423.lfm     +++|          LDD    CM+3
01787  M00S01424.lfm     +++|          LPN    77
01788  M00S01425.lfm     +++|          STM    RNMC        SET STATUS
01789  M00S01426.lfm     +++|          LDD    CM+4        CHECK FILE TYPE
01790  M00S01427.lfm     +++|          STM    RNMB        PRESET FILE TYPE
01791  M00S01428.lfm     +++|          SHN    -6
01792  M00S01429.lfm     +++|          RAM    CFTA        SET FILE TYPE
01793  M00S01430.lfm     +++|
01794  M00S01431.lfm     +++|*         GET NEW FILE NAME FROM FET.
01795  M00S01432.lfm     +++|
01796  M00S01433.lfm     +++|          RJM    CPA         READ NEW NAME - *A*
01797  M00S01434.lfm     +++|          ADN    6
01798  M00S01435.lfm     +++|          CRD    FN
Line S00080 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01799  M01S00080.242l642 +++|          LDD    FA          SET FNT ADDRESS OF FILE *B*
01800  M01S00081.242l642 +++|          STM    SNBA
01801  M00S01436.lfm     +++|          LDN    0           SET NO INITIAL FNT ADDRESS
01802  M00S01437.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
01803  M00S01438.lfm     +++|          NJN    RNM2        IF FILE *A* ALREADY EXISTS
Line S00082 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01804  M01S00082.242l642 +++|*         LDN    0
01805  M00S01439.lfm     +++|          LJM    RNM5        GET *B* FST
01806  M00S01440.lfm     +++|
01807  M00S01441.lfm     +++|*         CHECK FILE TYPE OF *A*.
01808  M00S01442.lfm     +++|
01809  M00S01443.lfm     +++| RNM2     LMM    RNMA
01810  M00S01444.lfm     +++|          ZJN    RNM3        IF SAME FILE
01811  M00S01445.lfm     +++|          RJM    SFB         SET FILE *A* BUSY
01812  M00S01446.lfm     +++|          ZJN    RNM4        IF NO REJECT ON FILE INTERLOCK
Line S01447 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01813  M01S01447.242l642 ---|          LDM    RNMA        RESTORE *B* FST WORD FOR EXIT
01814  M01S01448.242l642 ---|          STD    FA
01815  M01S01449.242l642 ---|          NFA    FA,R
01816  M01S01450.242l642 ---|          ADN    FSTL
01817  M01S01451.242l642 ---|          CRD    FS
01818  M01S01452.242l642 ---|          AOD    FS+4        SET FILE *B* COMPLETE
01819  M01S01453.242l642 ---|          NFA    FA,R
01820  M01S01454.242l642 ---|          ADN    FSTL
01821  M01S01455.242l642 ---|          CWD    FS
01822  M00S01456.lfm     +++|          LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
01823  M00S01457.lfm     +++|          UJN    RNM6        PROCESS ERROR
01824  M00S01458.lfm     +++|
01825  M00S01459.lfm     +++|*         EXIT WHEN FILE NAMES ARE THE SAME.
01826  M00S01460.lfm     +++|
Line S01461 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01827  M01S01461.242l642 ---| RNM3     NFA    FA,R        RESTORE *B* FST ENTRY FOR EXIT
01828  M01S01462.242l642 ---|          ADN    FSTL
01829  M01S01463.242l642 ---|          CRD    FS
Line S00083 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01830  M01S00083.242l642 +++| RNM3     STD    FA
01831  M00S01464.lfm     +++|          LJM    LFMX        EXIT
01832  M00S01465.lfm     +++|
01833  M00S01466.lfm     +++| RNM4     RJM    CFT         CHECK FILE TYPE
Line S01467 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01834  M01S01467.v23l617 ---|          NJN    RNM7        IF ILLEGAL FILE TYPE
Line S00032 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01835  M01S00032.v23l617 +++|          NJN    RNM7        IF INCORRECT FILE TYPE
01836  M00S01468.lfm     +++|          RJM    DRF         DROP FILE *A*
Line S01469 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01837  M01S01469.242l642 ---| RNM5     LDC    *           RESTORE *B* FNT ADDRESS
Line S00084 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01838  M01S00084.242l642 +++|*         LDN    0
01839  M01S00085.242l642 +++| RNM5     STM    SNBA
01840  M01S00086.242l642 +++|          LDC    0           RESTORE FILE *B* FNT ADDRESS
01841  M00S01470.lfm     +++| RNMA     EQU    *-1
01842  M00S01471.lfm     +++|          STD    FA
01843  M00S01472.lfm     +++|          NFA    FA,R
01844  M00S01473.lfm     +++|          ADN    FSTL
01845  M00S01474.lfm     +++|          CRD    FS          LOAD ORIGINAL FST ENTRY
01846  M00S01475.lfm     +++|          RJM    VFN         VERIFY FILE NAME
01847  M00S01476.lfm     +++|          NJN    RNM8        IF NO ERROR
01848  M00S01477.lfm     +++|          LDN    /ERR/FLN    FILE NAME ERROR
01849  M00S01478.lfm     +++| RNM6     LJM    ERR         PROCESS ERROR
01850  M00S01479.lfm     +++|
Line S01480 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01851  M01S01480.v23l617 ---|*         EXIT IF ILLEGAL FILE TYPE ON FILE *B*.
Line S00033 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01852  M01S00033.v23l617 +++|*         EXIT IF INCORRECT FILE TYPE ON FILE *B*.
01853  M00S01481.lfm     +++|
Line S01482 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01854  M01S01482.242l642 ---| RNM7     AOD    FS+4        SET FILE *A* COMPLETE
01855  M01S01483.242l642 ---|          NFA    FA,R
01856  M01S01484.242l642 ---|          ADN    FSTL
01857  M01S01485.242l642 ---|          CWD    FS
01858  M01S01486.242l642 ---|          LDM    RNMA        RESTORE *B* FST WORD FOR EXIT
01859  M01S01487.242l642 ---|          STD    FA
01860  M01S01488.242l642 ---|          NFA    FA,R
01861  M01S01489.242l642 ---|          ADN    FSTL
01862  M01S01490.242l642 ---|          CRD    FS
Line S01491 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01863  M02S01491.242l642 ---|          LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
Line S00034 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01864  M02S00034.242l642 ---|          LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
Line S01492 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01865  M01S01492.242l642 ---|          LJM    ERR         PROCESS ERROR
Line S00087 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01866  M01S00087.242l642 +++| RNM7     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
01867  M01S00088.242l642 +++|          UJN    RNM6        PROCESS ERROR
01868  M00S01493.lfm     +++|
01869  M00S01494.lfm     +++|*         CHANGE FILE NAME FROM *B* TO *A* IN FNT WORD.
01870  M00S01495.lfm     +++|
01871  M00S01496.lfm     +++| RNM8     LDC    *           RESTORE FILE TYPE OF *B*
01872  M00S01497.lfm     +++| RNMB     EQU    *-1         FILE TYPE
01873  M00S01498.lfm     +++|          STD    FN+4
01874  M00S01499.lfm     +++|          LDD    FN+3        RESTORE FILE STATUS OF *B*
01875  M00S01500.lfm     +++|          SCN    77
01876  M00S01501.lfm     +++|          ADC    *
01877  M00S01502.lfm     +++| RNMC     EQU    *-1         FILE STATUS
01878  M00S01503.lfm     +++|          STD    FN+3
01879  M00S01504.lfm     +++|          NFA    FA,R        WRITE NEW FNT WORD
01880  M00S01505.lfm     +++|          CWD    FN
01881  M00S01506.lfm     +++|          LDD    FN+4
01882  M00S01507.lfm     +++|          SHN    -6
01883  M00S01508.lfm     +++|          LMN    PTFT
01884  M00S01509.lfm     +++|          NJN    RNM10       IF NOT PRIMARY TERMINAL TYPE
01885  M00S01510.lfm     +++| RNMD     LDN    0
01886  M00S01511.lfm     +++|*         LDN    1           (FILE NOT USED)
01887  M00S01512.lfm     +++|          ZJN    RNM9        IF FILE USED
01888  M00S01513.lfm     +++|          LDN    /ERR/FLE    EMPTY FILE
01889  M00S01514.lfm     +++|          LJM    ERR         PROCESS ERROR
01890  M00S01515.lfm     +++|
01891  M00S01516.lfm     +++| RNM9     RJM    UPP         UPDATE PRIMARY FILE POINTERS
01892  M00S01517.lfm     +++| RNM10    LDN    0           SET TO NON-TAPE EQUIPMENT
01893  M00S01518.lfm     +++|*         LDN    1           (TAPE EQUIPMENT)
01894  M00S01519.lfm     +++| RNME     EQU    *-1
01895  M00S01520.lfm     +++|          NJN    RNM11       IF TAPE EQUIPMENT
Line S00004 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01521.lfm     +++|          LJM    LFMX        EXIT
Line S00010 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01903  M01S00010.274l797 +++|
01904  M01S00011.274l797 +++|*         PROCESS TAPE EQUIPMENT.
01905  M00S01522.lfm     +++|
01906  M00S01523.lfm     +++| RNM11    LDN    0
01907  M00S01524.lfm     +++|          STD    CM+1
01908  M00S01525.lfm     +++|          MONITOR ROCM       ROLLOUT JOB
01909  M00S01526.lfm     +++|          LDD    IA          READ REQUEST
01910  M00S01527.lfm     +++|          CRD    CM
01911  M00S01528.lfm     +++|          CRD    CN
01912  M00S01529.lfm     +++|          LDD    CN+1
01913  M00S01530.lfm     +++|          SCN    77
01914  M00S01531.lfm     +++|          ADN    20          SET RECALL PP PROCESSOR BIT
01915  M00S01532.lfm     +++|          STD    CN+1
01916  M00S01533.lfm     +++|          STD    CM+1
01917  M00S01534.lfm     +++|          LDD    CN+3
01918  M00S01535.lfm     +++|          LPN    77
01919  M00S01536.lfm     +++|          STD    CN+3
01920  M00S01537.lfm     +++|          LDD    CP
01921  M00S01538.lfm     +++|          ADC    SPCW
01922  M00S01539.lfm     +++|          CWD    CN          ENTER EXTERNAL CALL
01923  M00S01540.lfm     +++|          LDD    RA          REWRITE USERS CALL
01924  M00S01541.lfm     +++|          SHN    6
01925  M00S01542.lfm     +++|          ADN    1
01926  M00S01543.lfm     +++|          CWD    CM
01927  M00S01544.lfm     +++|          RJM    CPA         SET ORIGINAL NAME IN FET + 0
01928  M00S01545.lfm     +++|          CRD    FN
01929  M00S01546.lfm     +++|          LJM    LFMX        EXIT
Line S00012 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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
Line S01547 Modification History
M01 (Removed by) lfm17
Seq #  *Modification Id* Act 
----------------------------+
01961  M01S01547.lfm17   ---|
01962  M01S01548.lfm17   ---|
01963  M01S01549.lfm17   ---|          ERRNG  OVL0-*      CHECK FOR OVERFLOW
01964  M00S01550.lfm     +++| STS      SPACE  4,10
01965  M00S01551.lfm     +++|***       FUNCTION 3.
01966  M00S01552.lfm     +++|*         SET FILE STATUS.
01967  M00S01553.lfm     +++|*
01968  M00S01554.lfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
01969  M00S01555.lfm     +++|*                (FN - FN+3) = FILE NAME FROM FET+0.
01970  M00S01556.lfm     +++|*                (FF) = FET SPECIFIED FNT ADDRESS.
01971  M00S01557.lfm     +++|*                (FP) = FILE STATUS.
01972  M00S01558.lfm     +++|
01973  M00S01559.lfm     +++|
01974  M00S01560.lfm     +++|          ENTRY  STS         ENTRY
01975  M00S01561.lfm     +++|          LDD    CP          CHECK FOR *SSJ=* CALLER
01976  M00S01562.lfm     +++|          ADC    SEPW
01977  M00S01563.lfm     +++|          CRD    CM
01978  M00S01564.lfm     +++|          LDD    CM
01979  M00S01565.lfm     +++|          SHN    21-2
01980  M00S01566.lfm     +++|          MJN    STS2        IF CALLER IS *SSJ=*
01981  M00S01567.lfm     +++|
01982  M00S01568.lfm     +++|*         FOR NON-*SSJ=* CALLER, VERIFY THAT VALUE SPECIFIED
01983  M00S01569.lfm     +++|*         IS ALLOWED.  OTHERWISE IGNORE REQUEST.
01984  M00S01570.lfm     +++|
01985  M00S01571.lfm     +++|          AOM    STSA        INDICATE NON-*SSJ=* CALLER
01986  M00S01572.lfm     +++|          LDN    TNFSL-1
01987  M00S01573.lfm     +++|          STD    T1
01988  M00S01574.lfm     +++| STS1     LDM    TNFS,T1     CHECK IF SPECIFIED VALUE IS IN TABLE
01989  M00S01575.lfm     +++|          LMD    FP
01990  M00S01576.lfm     +++|          ZJN    STS2        IF NEW STATUS FOUND IN TABLE
01991  M00S01577.lfm     +++|          SOD    T1
01992  M00S01578.lfm     +++|          PJN    STS1        IF NOT END OF TABLE
01993  M00S01579.lfm     +++|          LJM    LFMX        EXIT
01994  M00S01580.lfm     +++|
01995  M00S01581.lfm     +++| STS2     LDD    FP          CHECK SPECIFIED STATUS
01996  M00S01582.lfm     +++|          SBN    MXST
01997  M00S01583.lfm     +++|          MJN    STS5        IF LEGAL STATUS
Line S01584 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01998  M01S01584.v23l617 ---|          LDN    /ERR/IFS    * ILLEGAL FILE STATUS.*
Line S00035 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01999  M01S00035.v23l617 +++|          LDN    /ERR/IFS    * INCORRECT FILE STATUS.*
02000  M00S01585.lfm     +++| STS3     LJM    ERR         PROCESS ERROR
02001  M00S01586.lfm     +++|
02002  M00S01587.lfm     +++|*         CHECK CURRENT VALUE OF FILE STATUS FIELD.
02003  M00S01588.lfm     +++|
02004  M00S01589.lfm     +++| STS4     NFA    FA,R        READ LOCAL FNT WORD
02005  M00S01590.lfm     +++|          CRD    FS
02006  M00S01591.lfm     +++|          RJM    SFB         SET FILE BUSY
02007  M00S01592.lfm     +++|          ZJN    STS6        IF FILE SET BUSY
02008  M00S01593.lfm     +++|          LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
02009  M00S01594.lfm     +++|          UJN    STS3        PROCESS ERROR
02010  M00S01595.lfm     +++|
02011  M00S01596.lfm     +++| STS5     LDD    FF          SEARCH FOR ASSIGNED FILE
02012  M00S01597.lfm     +++|          RJM    SAF
02013  M00S01598.lfm     +++|          NJN    STS4        IF FILE FOUND
02014  M00S01599.lfm     +++|          RJM    EFN         CREATE LOCAL FILE
02015  M00S01600.lfm     +++|          NFA    FA,R
02016  M00S01601.lfm     +++|          CRD    CM
02017  M00S01602.lfm     +++|
02018  M00S01603.lfm     +++|*         FOR A NON-*SSJ=* CALLER, VERIFY THAT THE CURRENT STATUS
02019  M00S01604.lfm     +++|*         IS A VALUE THAT MAY BE CHANGED.
02020  M00S01605.lfm     +++|
02021  M00S01606.lfm     +++| STS6     LDN    0
02022  M00S01607.lfm     +++|*         LDN    1           (NON-*SSJ=* CALLER)
02023  M00S01608.lfm     +++| STSA     EQU    *-1
02024  M00S01609.lfm     +++|          ZJN    STS9        IF CALLER IS *SSJ=*
02025  M00S01610.lfm     +++|          LDN    TOFSL-1
02026  M00S01611.lfm     +++|          STD    T1
02027  M00S01612.lfm     +++| STS7     LDM    TOFS,T1     COMPARE EXISTING STATUS WITH TABLE
02028  M00S01613.lfm     +++|          LMD    CM+4
02029  M00S01614.lfm     +++|          LPN    77
02030  M00S01615.lfm     +++|          ZJN    STS9        IF EXISTING STATUS FOUND IN TABLE
02031  M00S01616.lfm     +++|          SOD    T1
02032  M00S01617.lfm     +++|          PJN    STS7        IF NOT END OF TABLE
02033  M00S01618.lfm     +++| STS8     LJM    LFMX        IGNORE REQUEST
02034  M00S01619.lfm     +++|
02035  M00S01620.lfm     +++|*         SET NEW FILE STATUS.
02036  M00S01621.lfm     +++|
02037  M00S01622.lfm     +++| STS9     LDD    CM+4
02038  M00S01623.lfm     +++|          SCN    77
02039  M00S01624.lfm     +++|          LMD    FP
02040  M00S01625.lfm     +++|          STD    CM+4
02041  M00S01626.lfm     +++|          NFA    FA,R        REWRITE FNT WORD
02042  M00S01627.lfm     +++|          CWD    CM
02043  M00S01628.lfm     +++|          UJN    STS8        EXIT
02044  M00S01629.lfm     +++|
02045  M00S01630.lfm     +++|
02046  M00S01631.lfm     +++|*         TABLE OF STATUSES THAT MAY BE SET BY USER.
02047  M00S01632.lfm     +++|
02048  M00S01633.lfm     +++| TNFS     BSS    0
02049  M00S01634.lfm     +++|          CON    0
02050  M00S01635.lfm     +++|          CON    NDST
02051  M00S01636.lfm     +++| TNFSL    EQU    *-TNFS
02052  M00S01637.lfm     +++|
02053  M00S01638.lfm     +++|
02054  M00S01639.lfm     +++|*         TABLE OF STATUSES THAT MAY BE CHANGED BY USER.
02055  M00S01640.lfm     +++|
02056  M00S01641.lfm     +++| TOFS     BSS    0
02057  M00S01642.lfm     +++|          CON    0
Line S00001 Modification History
M01 (Added by) lfm22
Seq #  *Modification Id* Act 
----------------------------+
02058  M01S00001.lfm22   +++|          CON    UPST
02059  M00S01643.lfm     +++|          CON    NDST
02060  M00S01644.lfm     +++| TOFSL    EQU    *-TOFS
Line S00084 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00104 Modification History
M01 (Added by) ns22000
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02081  M02S00104.252l678 ---|          LPC    3777
Line S00105 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02082  M02S00105.274l797 ---|          LMC    2RMT
02083  M02S00106.274l797 ---|          ZJN    FSL0        IF TAPE FILE
02084  M02S00107.274l797 ---|          LMC    2RNT&2RMT
02085  M02S00108.274l797 ---|          ZJN    FSL0        IF TAPE FILE
Line S00043 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02086  M01S00043.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
02087  M01S00044.274l797 +++|          PJN    FSL0        IF TAPE FILE
Line S00109 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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*
Line S00117 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02096  M02S00117.v23l617 ---| FSL0     LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
Line S00036 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02097  M01S00036.v23l617 +++| FSL0     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
Line S00118 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00150 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02130  M02S00150.v23l617 ---|          NJN    FSL4        IF INVALID ACCESS LEVEL
Line S00037 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02131  M01S00037.v23l617 +++|          NJN    FSL4        IF INCORRECT ACCESS LEVEL
Line S00151 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01645.lfm     +++| LCK      SPACE  4,10
02157  M00S01646.lfm     +++|***       FUNCTION 10.
02158  M00S01647.lfm     +++|*         LOCK FILE.
02159  M00S01648.lfm     +++|*         SET WRITE LOCKOUT FOR FILE.
Line S01649 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02160  M01S01649.ns2685  ---|*         FILE MUST BE LOCAL AND CAN NOT BE IN EXECUTE-ONLY MODE.
02161  M01S01650.ns2685  ---|*         THE FILE CAN ALSO BE A PRIMARY FILE.
Line S00001 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01651.lfm     +++|*
02165  M00S01652.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
02166  M00S01653.lfm     +++|
02167  M00S01654.lfm     +++|
02168  M00S01655.lfm     +++|          ENTRY  LCK
02169  M00S01656.lfm     +++| LCK1     LDD    FF          SET INITIAL FNT ADDRESS
02170  M00S01657.lfm     +++|          RJM    SIF         SEARCH AND INTERLOCK FILE
02171  M00S01658.lfm     +++|          LDD    CM+4
02172  M00S01659.lfm     +++|          SHN    -6
02173  M00S01660.lfm     +++|          LMN    LOFT
Line S01661 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02174  M01S01661.ns2685  ---|          ZJN    LCK3        IF *LOCAL*
02175  M01S01662.ns2685  ---|          LMN    LOFT&PTFT
02176  M01S01663.ns2685  ---|          ZJN    LCK3        IF *PRIMARY*
Line S01664 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02177  M02S01664.ns2685  ---|          LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
Line S00038 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02178  M02S00038.ns2685  ---|          LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
Line S00003 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01665.lfm     +++| LCK2     LJM    ERR         PROCESS ERROR
02195  M00S01666.lfm     +++|
02196  M00S01667.lfm     +++| LCK3     LDM    LCKA
Line S01668 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02197  M01S01668.ns2685  ---|          LMN    PSNI
Line S00018 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02198  M01S00018.ns2685  +++|          LPN    1
02199  M00S01669.lfm     +++|          NJN    LCK4        IF LOCK
02200  M00S01670.lfm     +++|          LDD    CM+3        CHECK FOR EXECUTE ONLY
02201  M00S01671.lfm     +++|          SHN    21-2
02202  M00S01672.lfm     +++|          PJN    LCK4        IF NOT EXECUTE-ONLY
Line S01673 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02203  M01S01673.v23l617 ---|          LDN    /ERR/ILM    * ILLEGAL FILE MODE.*
Line S00039 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02204  M01S00039.v23l617 +++|          LDN    /ERR/ILM    * INCORRECT FILE MODE.*
02205  M00S01674.lfm     +++|          UJN    LCK2        PROCESS ERROR
02206  M00S01675.lfm     +++|
02207  M00S01676.lfm     +++| LCK4     LDD    CM+3
02208  M00S01677.lfm     +++|          SCN    1
02209  M00S01678.lfm     +++| LCKA     LMN    1
Line S01679 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02210  M01S01679.ns2685  ---|*         PSN                (UNLOCK COMMAND)
Line S00019 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02211  M01S00019.ns2685  +++|*         LMN    0           (UNLOCK FUNCTION)
02212  M00S01680.lfm     +++|          STD    CM+3
02213  M00S01681.lfm     +++|          NFA    FA,R        STORE FNT ENTRY
02214  M00S01682.lfm     +++|          CWD    CM
02215  M00S01683.lfm     +++|          LJM    LFMX        EXIT
02216  M00S01684.lfm     +++| ULK      SPACE  4,10
02217  M00S01685.lfm     +++|***       FUNCTION 11.
02218  M00S01686.lfm     +++|*         UNLOCK FILE.
02219  M00S01687.lfm     +++|*         CLEAR WRITE LOCKOUT FOR FILE.
Line S01688 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02220  M01S01688.ns2685  ---|*         FILE MUST BE LOCAL OR PRIMARY.
Line S00020 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02221  M01S00020.ns2685  +++|*         FILE MUST BE TYPE *LOFT* OR *PTFT* AND NOT EXECUTE-ONLY.
02222  M00S01689.lfm     +++|
02223  M00S01690.lfm     +++|
02224  M00S01691.lfm     +++|          ENTRY  ULK
Line S01692 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02225  M01S01692.ns2685  ---|          LDN    PSNI        CLEAR LOCK
02226  M01S01693.ns2685  ---|          STM    LCKA
Line S00021 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02227  M01S00021.ns2685  +++|          SOM    LCKA        DO NOT SET WRITE LOCKOUT
02228  M00S01694.lfm     +++|          LJM    LCK1        PROCESS AS LOCK
02229  M00S01695.lfm     +++| RLS      SPACE  4,10
02230  M00S01696.lfm     +++|***       FUNCTION 12.
02231  M00S01697.lfm     +++|*         RETURN FILE FOUND/NOT FOUND.
02232  M00S01698.lfm     +++|*
02233  M00S01699.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
02234  M00S01700.lfm     +++|*                (FN - FN+3) = FILE NAME FROM FET+0.
02235  M00S01701.lfm     +++|
02236  M00S01702.lfm     +++|
02237  M00S01703.lfm     +++|          ENTRY  RLS
02238  M00S01704.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
02239  M00S01705.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
02240  M00S01706.lfm     +++|          ZJN    RLS2        IF NOT FOUND
02241  M00S01707.lfm     +++|          RJM    SFB         SET FILE BUSY
02242  M00S01708.lfm     +++|          ZJN    RLS1        IF NO REJECT ON FILE INTERLOCK
02243  M00S01709.lfm     +++|          LDN    /ERR/IOE    *I/O SEQUENCE ERROR.*
02244  M00S01710.lfm     +++|          LJM    ERR         PROCESS ERROR
02245  M00S01711.lfm     +++|
02246  M00S01712.lfm     +++| RLS1     LDN    2           FLAG FILE FOUND
02247  M00S01713.lfm     +++| RLS2     STD    LS
02248  M00S01714.lfm     +++|          LJM    LFMX        EXIT
02249  M00S01715.lfm     +++| RCP      SPACE  4,20
02250  M00S01716.lfm     +++|***       FUNCTION 13.
02251  M00S01717.lfm     +++|*         RETURN CURRENT POSITION AND STATUS.
Line S00175 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02252  M01S00175.ns22000 +++|*         RETURN FILE ACCESS LEVEL IN FET+4 IF BIT 39 IN FET+1 IS SET.
02253  M00S01718.lfm     +++|*         RETURN FNT ENTRY IN (FET+5).
02254  M00S01719.lfm     +++|*         RETURN FST ENTRY IN (FET+6).
02255  M00S01720.lfm     +++|*         OPTIONALLY RETURNS ADDITIONAL MAGNETIC TAPE INFORMATION
02256  M00S01721.lfm     +++|*         TO FET+8 IN LABEL MACRO FORMAT.
02257  M00S01722.lfm     +++|*         FIELDS RETURNED TO FET+8 INCLUDE -
02258  M00S01723.lfm     +++|*                1.  LABEL BIT (58)
02259  M00S01724.lfm     +++|*                2.  NONSTANDARD LABEL BIT (57)
Line S01725 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02260  M01S01725.274l797 ---|*                3.  TRACK BIT (56)
Line S00045 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02261  M01S00045.274l797 +++|*                3.  TAPE DEVICE TYPE (55-56)
02262  M00S01726.lfm     +++|*                4.  DENSITY (51-53)
02263  M00S01727.lfm     +++|*                5.  CONVERSION MODE (48-50)
02264  M00S01728.lfm     +++|*                6.  PROCESSING OPTIONS (36-47)
02265  M00S01729.lfm     +++|*                7.  FORMAT (30-35)
02266  M00S01730.lfm     +++|*                8.  NOISE SIZE (24-29) - IN FRAMES
02267  M00S01731.lfm     +++|*                9.  BLOCK SIZE (0-23) - IN CM WORDS
02268  M00S01732.lfm     +++|*         REFER TO LFM FUNCTION 24 DOCUMENTATION FOR FURTHER
02269  M00S01733.lfm     +++|*         DETAILS ON CONTENTS OF FET+8 FIELDS.
02270  M00S01734.lfm     +++|*
02271  M00S01735.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
02272  M00S01736.lfm     +++|
02273  M00S01737.lfm     +++|
02274  M00S01738.lfm     +++|          ENTRY  RCP
02275  M00S01739.lfm     +++|          LCN    6           CHECK FET LENGTH .GE. 7
02276  M00S01740.lfm     +++|          RJM    CFL
02277  M00S01741.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
02278  M00S01742.lfm     +++|          RJM    SIF         SEARCH AND INTERLOCK FILE
02279  M00S01743.lfm     +++|          RJM    CPA         READ FIRST
02280  M00S01744.lfm     +++|          ADN    1
02281  M00S01745.lfm     +++|          CRD    CN
Line S01746 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02282  M01S01746.ns22000 ---|          ADN    4
Line S00176 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02283  M01S00176.ns22000 +++|          ADN    3
02284  M01S00177.ns22000 +++|          CRD    UD          READ FET+4
02285  M01S00178.ns22000 +++|          ADN    1
02286  M00S01747.lfm     +++|          CWD    CM          STORE FNT
02287  M00S01748.lfm     +++|          ADN    1
02288  M00S01749.lfm     +++|          CWD    FS          STORE FST
Line S01750 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S01750.ns22000 ---|          LDN    0           INITIALIZE *FIRST* EQUIPMENT TYPE
Line S00179 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01751.lfm     +++|          STD    CN
02306  M00S01752.lfm     +++|          LDD    FS          READ EST ENTRY
02307  M00S01753.lfm     +++|          ZJN    RCP1        IF NO EQUIPMENT ASSIGNED
Line S01754 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02308  M01S01754.ns22000 ---|          ADM    ESTS
Line S00194 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02309  M01S00194.ns22000 +++|          SFA    EST
02310  M01S00195.ns22000 +++|          ADK    EQDE
02311  M00S01755.lfm     +++|          CRD    CM
02312  M00S01756.lfm     +++|          LDD    CM+3        SET EQUIPMENT TYPE
Line S01757 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02313  M01S01757.252l678 ---|          LPC    3777
02314  M01S01758.252l678 ---|          STD    EQ          SAVE DEVICE TYPE
02315  M00S01759.lfm     +++|          STD    CN
02316  M00S01760.lfm     +++|          LDD    CM          CHECK EQUIPMENT TYPE
02317  M00S01761.lfm     +++|          SHN    21-13
02318  M00S01762.lfm     +++|          MJN    RCP1        IF MASS STORAGE
02319  M00S01763.lfm     +++|          SHN    21-12-21+13
02320  M00S01764.lfm     +++|          MJN    RCP1        IF ALLOCATABLE TYPE
02321  M00S01765.lfm     +++|          LDC    4000
02322  M00S01766.lfm     +++|          RAD    CN
02323  M00S01767.lfm     +++| RCP1     RJM    CPA         STORE FIRST
02324  M00S01768.lfm     +++|          ADN    1
02325  M00S01769.lfm     +++|          CWD    CN
02326  M00S01770.lfm     +++|          LDD    FP          FUNCTION PARAMETER
02327  M00S01771.lfm     +++|          LMN    1
02328  M00S01772.lfm     +++|          NJN    RCP2        IF EXTRA TAPE INFORMATION NOT REQUESTED
Line S01773 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02329  M01S01773.252l678 ---|          LDD    EQ
Line S00001 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02330  M01S00001.252l678 +++|          LDD    CM+3
Line S01774 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02331  M01S01774.274l797 ---|          LMC    2RMT
02332  M01S01775.274l797 ---|          ZJN    RCP3        IF 7-TRACK TAPE EQUIPMENT
02333  M01S01776.274l797 ---|          LMC    2RNT&2RMT
02334  M01S01777.274l797 ---|          ZJN    RCP4        IF 9-TRACK TAPE EQUIPMENT
Line S00046 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02335  M01S00046.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
02336  M01S00047.274l797 +++|          PJN    RCP3        IF TAPE EQUIPMENT
02337  M00S01778.lfm     +++| RCP2     LJM    LFMX        EXIT
02338  M00S01779.lfm     +++|
Line S01780 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02339  M01S01780.274l797 ---| RCP3     STD    FP          CLEAR TRACK BIT
02340  M01S01781.274l797 ---| RCP4     LCN    10          CHECK FET LENGTH .GE. 9D
Line S00048 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02341  M01S00048.274l797 +++| RCP3     STD    FP          SET TAPE DEVICE TYPE
02342  M01S00049.274l797 +++|          LCN    10          CHECK FET LENGTH .GE. 9D
02343  M00S01782.lfm     +++|          RJM    CFL
Line S01783 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02344  M01S01783.282l826 ---|          LDN    /MTX/UST2   GET UST2, UST3, UST4 WORDS FROM UDT
Line S00001 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02345  M01S00001.282l826 +++|          LDN    /MTX/UST4   GET *UST4* AND *UST5* WORDS FROM UDT
02346  M00S01784.lfm     +++|          STD    T1
Line S01785 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02347  M01S01785.282l826 ---|          LDN    3
Line S00002 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02348  M01S00002.282l826 +++|          LDN    2
02349  M00S01786.lfm     +++|          RJM    TUW         READ UDT WORDS
02350  M00S01787.lfm     +++|          LDD    MA
Line S01788 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02351  M01S01788.282l826 ---|          CRD    T3          (T3 - T7) = UST2
Line S00003 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02352  M01S00003.282l826 +++|          CRD    UD          (UD - UD+4) = UST4
02353  M00S01789.lfm     +++|          ADN    1
Line S01790 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02354  M01S01790.282l826 ---|          CRD    CM          (CM - CM+4) = UST3
02355  M01S01791.282l826 ---|          ADN    1
02356  M01S01792.282l826 ---|          CRD    UD          (UD - UD+4) = UST4
Line S00004 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02357  M01S00004.282l826 +++|          CRD    CM          (CM - CM+4) = UST5
02358  M00S01793.lfm     +++|          LDN    ZERL        CLEAR FET+8 ASSEMBLY BUFFER
02359  M00S01794.lfm     +++|          CRD    CN
Line S01795 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02360  M01S01795.274l797 ---|          LDD    T7
02361  M01S01796.274l797 ---|          SHN    11          LABEL AND NONSTANDARD LABEL BITS
02362  M01S01797.274l797 ---|          LPN    6
02363  M01S01798.274l797 ---|          ADD    FP          TRACK BIT
02364  M01S01799.274l797 ---|          SHN    10
Line S00050 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02365  M02S00050.282l826 ---|          LDD    T3+4
02366  M02S00051.282l826 ---|          SHN    3-13+22     SET LABEL AND NONSTANDARD LABEL BITS
02367  M02S00052.282l826 ---|          LPN    14
02368  M02S00053.282l826 ---|          ADD    FP          SET TAPE DEVICE TYPE
02369  M02S00054.282l826 ---|          SHN    12-3
Line S00005 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02370  M01S00005.282l826 +++|          LDD    UD          SET LABELED FLAGS AND DEVICE TYPE
02371  M01S00006.282l826 +++|          LPC    3700
02372  M00S01800.lfm     +++|          STD    CN
Line S01801 Modification History
M01 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02373  M01S01801.lfm25   ---|          LDD    CM+4        CONVERT DENSITY
Line S00001 Modification History
M01 (Added by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02374  M01S00001.lfm25   +++|          LDD    CM          CONVERT DENSITY
Line S01802 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02375  M01S01802.282l826 ---|          SHN    -6
Line S00007 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02376  M01S00007.282l826 +++|          SHN    -3
02377  M01S00008.282l826 +++|          LPN    7
02378  M00S01803.lfm     +++|          STD    T2
Line S01804 Modification History
M01 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02379  M01S01804.lfm25   ---|          LDD    CM+4        CONVERT CONVERSION MODE
Line S00002 Modification History
M01 (Added by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02380  M01S00002.lfm25   +++|          LDD    CM          CONVERT CONVERSION MODE
Line S01805 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02381  M01S01805.282l826 ---|          ZJN    RCP5        IF NO CONVERSION MODE
Line S00009 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02382  M01S00009.282l826 +++|          LPN    7
02383  M00S01806.lfm     +++|          SBN    1
Line S01807 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02384  M01S01807.282l826 ---|          LPN    7
02385  M00S01808.lfm     +++| RCP5     LMM    TDEN-1,T2
02386  M00S01809.lfm     +++|          RAD    CN
Line S01810 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02387  M01S01810.282l826 ---|          LDD    UD+4
Line S00010 Modification History
M01 (Added by) 282l826
M02 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02388  M02S00010.lfm25   ---|          LDD    UD+1
Line S01811 Modification History
M01 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02389  M01S01811.lfm25   ---|          SHN    -12
02390  M01S01812.lfm25   ---|          STD    T2
Line S01813 Modification History
M01 (Removed by) 282l826
M02 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02391  M02S01813.lfm25   ---|          LDD    UD+4        CONVERT PROCESSING OPTIONS
Line S00011 Modification History
M01 (Added by) 282l826
M02 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02392  M02S00011.lfm25   ---|          LDD    UD+1        CONVERT PROCESSING OPTIONS
Line S01814 Modification History
M01 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02393  M01S01814.lfm25   ---|          LPC    777
02394  M01S01815.lfm25   ---|          LMM    TERL,T2
Line S00003 Modification History
M01 (Added by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02395  M01S00003.lfm25   +++|          LDD    UD+1        SET PROCESSING OPTIONS
02396  M00S01816.lfm     +++|          STD    CN+1
02397  M00S01817.lfm     +++|
02398  M00S01818.lfm     +++|*         CONVERT NOISE BYTES (NB) AND FILL STATUS BACK TO NOISE SIZE
02399  M00S01819.lfm     +++|*         (NS) IN FRAMES.
02400  M00S01820.lfm     +++|*                7-TRACK FORMULA -
02401  M00S01821.lfm     +++|*                    NS = NB * 2
02402  M00S01822.lfm     +++|*                    IF FILL STATUS, NS = NS - 1 = NB * 2 - 1
02403  M00S01823.lfm     +++|*                9-TRACK FORMULA -
02404  M00S01824.lfm     +++|*                    NS = ( NB * 3 ) / 2
02405  M00S01825.lfm     +++|*                    IF FILL STATUS, NS = NS - 1 = ( NB * 3 ) / 2 - 1
02406  M00S01826.lfm     +++|
Line S00055 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02407  M01S00055.274l797 +++|          LDD    FP          CHECK TAPE DEVICE TYPE
02408  M01S00056.274l797 +++|          LPN    1
02409  M01S00057.274l797 +++|          NJN    RCP7        IF *CT* OR *AT* DEVICE
Line S01827 Modification History
M01 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02410  M01S01827.lfm25   ---|          LDD    UD+3        FILL STATUS BIT
Line S00004 Modification History
M01 (Added by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02411  M01S00004.lfm25   +++|          LDD    UD+2        FILL STATUS BIT
02412  M00S01828.lfm     +++|          LPN    40
02413  M00S01829.lfm     +++|          STD    T1
Line S01830 Modification History
M01 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02414  M01S01830.lfm25   ---|          LDD    UD+3        NOISE SIZE IN BYTES
Line S00005 Modification History
M01 (Added by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02415  M01S00005.lfm25   +++|          LDD    UD+2        NOISE SIZE IN BYTES
02416  M00S01831.lfm     +++|          LPN    37
02417  M00S01832.lfm     +++|          STD    T2
02418  M00S01833.lfm     +++|          SHN    1           NB * 2
02419  M00S01834.lfm     +++|          STD    CN+2
02420  M00S01835.lfm     +++|          LDD    FP
02421  M00S01836.lfm     +++|          ZJN    RCP6        IF 7-TRACK
02422  M00S01837.lfm     +++|          LDD    T2
02423  M00S01838.lfm     +++|          ADD    CN+2        NB + NB * 2
02424  M00S01839.lfm     +++|          SHN    -1          ( NB * 3 ) / 2
02425  M00S01840.lfm     +++|          STD    CN+2
02426  M00S01841.lfm     +++| RCP6     LDD    T1
02427  M00S01842.lfm     +++|          ZJN    RCP7        IF NO FILL STATUS
02428  M00S01843.lfm     +++|          SOD    CN+2
Line S01844 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02429  M01S01844.ns22000 ---| RCP7     LDD    UD+2        DATA FORMAT
02430  M01S01845.ns22000 ---|          LPN    77
Line S00196 Modification History
M01 (Added by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02431  M02S00196.282l826 ---| RCP7     LDD    UD+3        DATA FORMAT
02432  M02S00197.282l826 ---|          SHN    -6
Line S01846 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02433  M01S01846.282l826 ---|          SHN    6
Line S00012 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02434  M01S00012.282l826 +++| RCP7     LDD    UD+2        DATA FORMAT
02435  M01S00013.282l826 +++|          LPC    7700
02436  M00S01847.lfm     +++|          RAD    CN+2
02437  M00S01848.lfm     +++|
02438  M00S01849.lfm     +++|*         RETURN BLOCK SIZE (IN CM WORDS).
Line S01850 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02439  M01S01850.274l797 ---|*         BLOCK SIZE = BLOCK WORD COUNT + CHUNK COUNT * 634B.
Line S00058 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02440  M01S00058.274l797 +++|*         BLOCK SIZE = BLOCK WORD COUNT + CHUNK COUNT * 600B.
02441  M00S01851.lfm     +++|
Line S01852 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02442  M01S01852.282l826 ---|          LDD    UD          BLOCK WORD COUNT
Line S00014 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02443  M01S00014.282l826 +++|          LDD    UD+3        BLOCK WORD COUNT
02444  M00S01853.lfm     +++|          STD    CN+4
Line S01854 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02445  M01S01854.282l826 ---|          LDD    UD+1        CHUNK COUNT
Line S00015 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02446  M01S00015.282l826 +++|          LDD    UD+4        CHUNK COUNT
02447  M00S01855.lfm     +++|          ZJN    RCP9        IF NOT LONG BLOCK
02448  M00S01856.lfm     +++|          STD    T1
02449  M00S01857.lfm     +++| RCP8     LDC    /MTX/LBWD
02450  M00S01858.lfm     +++|          RAD    CN+4
02451  M00S01859.lfm     +++|          SHN    -14
02452  M00S01860.lfm     +++|          RAD    CN+3
02453  M00S01861.lfm     +++|          SOD    T1
02454  M00S01862.lfm     +++|          NJN    RCP8        IF OVERFLOW COUNT NOT EXHAUSTED
02455  M00S01863.lfm     +++|
02456  M00S01864.lfm     +++|*         RETURN ADDITIONAL TAPE INFORMATION TO FET+8.
02457  M00S01865.lfm     +++|
02458  M00S01866.lfm     +++| RCP9     RJM    CPA         STORE FET + 8
02459  M00S01867.lfm     +++|          ADN    10
02460  M00S01868.lfm     +++|          CWD    CN
02461  M00S01869.lfm     +++|          LJM    LFMX        EXIT
02462  M00S01870.lfm     +++| TUW      SPACE  4,15
02463  M00S01871.lfm     +++|**        TUW - TRANSFER UDT WORDS.
02464  M00S01872.lfm     +++|*
02465  M00S01873.lfm     +++|*         ENTRY  (A) = NUMBER OF WORDS TO TRANSFER.
02466  M00S01874.lfm     +++|*                (T1) = FIRST WORD FROM UDT TO BE TRANSFERRED.
02467  M00S01875.lfm     +++|*                (FS+1) = UDT ADDRESS OF ASSIGNED TAPE.
02468  M00S01876.lfm     +++|*
02469  M00S01877.lfm     +++|*         EXIT   CONTIGUOUS UDT WORDS REQUESTED IN MESSAGE BUFFER.
02470  M00S01878.lfm     +++|*
02471  M00S01879.lfm     +++|*         ERROR  TO *ERR* IF *MAGNET* NOT PRESENT.
02472  M00S01880.lfm     +++|*                TO *LFMX*, IF ERROR FLAG SET ON CONTROL POINT.
02473  M00S01881.lfm     +++|*
02474  M00S01882.lfm     +++|*         USES   T1, T2, CM - CM+4.
02475  M00S01883.lfm     +++|*
02476  M00S01884.lfm     +++|*         MACROS DELAY, MONITOR, PAUSE.
02477  M00S01885.lfm     +++|
02478  M00S01886.lfm     +++|
02479  M00S01887.lfm     +++| TUW      SUBR               ENTRY/EXIT
02480  M00S01888.lfm     +++|          SHN    6
02481  M00S01889.lfm     +++|          STD    T2
02482  M00S01890.lfm     +++|          LDD    FS+1        UDT ADDRESS OF ASSIGNED TAPE
02483  M00S01891.lfm     +++|          ZJN    TUW2        IF NO UDT ADDRESS IN FST WORD
02484  M00S01892.lfm     +++|          RAD    T1          FWA IN MAGNET TO BE TRANSFERRED
02485  M00S01893.lfm     +++| TUW1     LDD    T2          NUMBER OF WORDS TO TRANSFER
02486  M00S01894.lfm     +++|          STD    CM+3
02487  M00S01895.lfm     +++|          LDD    T1
02488  M00S01896.lfm     +++|          STD    CM+4
02489  M00S01897.lfm     +++|          LDN    0           SET READ
02490  M00S01898.lfm     +++|          STD    CM+1
02491  M00S01899.lfm     +++|          LCN    7777-MTSI   SET *MAGNET* SUBSYSTEM ID
02492  M00S01900.lfm     +++|          STD    CM+2
02493  M00S01901.lfm     +++|          MONITOR TDAM       GET UDT WORDS
02494  M00S01902.lfm     +++|          LDD    CM+1
02495  M00S01903.lfm     +++|          ZJN    TUWX        IF TRANSFER COMPLETE
02496  M00S01904.lfm     +++|          SBN    3
02497  M00S01905.lfm     +++| TUW2     PJN    TUW3        IF *MAGNET* NOT UP OR FUNCTION REJECT
02498  M00S01906.lfm     +++|          PAUSE
02499  M00S01907.lfm     +++|          DELAY
02500  M00S01908.lfm     +++|          LDD    CM+1
02501  M00S01909.lfm     +++|          ZJN    TUW1        IF NO ERROR FLAGS SET ON CP
02502  M00S01910.lfm     +++|          LJM    LFMX        EXIT
02503  M00S01911.lfm     +++|
Line S01912 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02504  M01S01912.v23l617 ---| TUW3     LDN    /ERR/MNA    * MAGNET NOT ACTIVE.*
Line S00040 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02505  M01S00040.v23l617 +++| TUW3     LDN    /ERR/MNA    * MAGNETIC TAPE SUBSYSTEM NOT ACTIVE *
02506  M00S01913.lfm     +++|          LJM    ERR         PROCESS ERROR
02507  M00S01914.lfm     +++| RFI      SPACE  4,30
02508  M00S01915.lfm     +++|***       RFI - FUNCTION 32.
02509  M00S01916.lfm     +++|*         RETURN FILE INFORMATION.
02510  M00S01917.lfm     +++|*         RETURN FILE INFORMATION TO USER IN SPECIFIED PARAMETER BLOCK.
02511  M00S01918.lfm     +++|*
02512  M00S01919.lfm     +++|*         ENTRY  (IR+3 - IR+4) = ADDRESS OF PARAMETER BLOCK.
02513  M00S01920.lfm     +++|*                THE PARAMETER BLOCK SHOULD HAVE THE FOLLOWING FORMAT.
02514  M00S01921.lfm     +++|*                (FE) = LENGTH OF PARAMETER BLOCK - 1.
02515  M00S01922.lfm     +++|*                (FF) = FET SPECIFIED FNT ADDRESS.
02516  M00S01923.lfm     +++|*
02517  M00S01924.lfm     +++|*T ADDR   42/LFN, 6/LEN, 11/0, 1/0
Figure ADDR

01111217182900LENLFN3059LFN

02518  M00S01925.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  M00S01926.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  M00S01927.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  M00S01928.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  M00S01929.lfm     +++|*         LEN = LENGTH OF TABLE, MUST BE .GE. 5.
02523  M00S01930.lfm     +++|*
02524  M00S01931.lfm     +++|*         EXIT   TO *ERR* IF ERROR ENCOUNTERED.
02525  M00S01932.lfm     +++|*                PARAMETER BLOCK RETURNED TO USER IN THE FOLLOWING
02526  M00S01933.lfm     +++|*                FORMAT.
02527  M00S01934.lfm     +++|*
02528  M00S01935.lfm     +++|*T ADDR   42/LFN, 6/LEN, 11/0, 1/1
Figure ADDR

01111217182910LENLFN3059LFN


Line S01936 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02529  M01S01936.274l797 ---|*T ADDR+1 12/DEVICE TYPE, 24/RESERVED, 18/STATUS BITS, 6/FT
Figure ADDR+1

056232429FTSTATUS BITSRESERVED30474859RESERVEDDEVICE TYPE


Line S00059 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02530  M01S00059.274l797 +++|*T ADDR+1 12/DEVICE TYPE, 12/RESERVED, 30/STATUS BITS, 6/FT
Figure ADDR+1

05629FTSTATUS BITS303536474859STATUS BITSRESERVEDDEVICE TYPE

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

0290304748590EQ

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

056290CRA303536590FILE LENGTH IN SECTORS

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

029RESERVED3059RESERVED

02534  M00S01940.lfm     +++|*         LEN = LENGTH OF TABLE.
Line S00060 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01941.lfm     +++|*         FT = FILE TYPE.
Line S01942 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02562  M01S01942.ns22000 ---|*         EQ = EQUIPMENT NUMBER.
Line S00198 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02563  M01S00198.ns22000 +++|*         EQ = EST ORDINAL.
02564  M00S01943.lfm     +++|*         CRA = CURRENT RANDOM ADDRESS.
02565  M00S01944.lfm     +++|*
02566  M00S01945.lfm     +++|*         ADDITIONAL INFORMATION IS RETURNED BASED ON THE *KEY*
02567  M00S01946.lfm     +++|*         SPECIFIED IN BITS 0-4 OF EACH WORD DEFINED IN THE *FILINFO*
02568  M00S01947.lfm     +++|*         PARAMETER BLOCK BEYOND THE STANDARD 5 WORD LENGTH.  THE KEY
02569  M00S01948.lfm     +++|*         WORDS BEGIN AT THE *FILINFO* PARAMETER BLOCK ADDRESS + 5
02570  M00S01949.lfm     +++|*         AND CAN BE IN ANY ORDER.
02571  M00S01950.lfm     +++|*
02572  M00S01951.lfm     +++|*         KEY    RETURNED WORD (IF APPLICABLE - ELSE BIT 5 IS SET)
02573  M00S01952.lfm     +++|*
02574  M00S01953.lfm     +++|*         1      48/0, 6/F, 1/0, 5/1
02575  M00S01954.lfm     +++|*         2      41/0, 1/IEP, 6/LBTYP, 3/DEN, 3/CV, 1/0, 5/2
02576  M00S01955.lfm     +++|*         3      RESERVED FOR ANSI 1977 LBL. STD.
02577  M00S01956.lfm     +++|*         4-13B  RESERVED FOR CDC (COMMON O/S)
02578  M00S01957.lfm     +++|*         14B    12/0, 24/BSIZE, 12/PO, 6/NOISE, 1/0, 5/14B
02579  M00S01958.lfm     +++|*         15B-17B RESERVED FOR CDC (NOS ONLY)
02580  M00S01959.lfm     +++|*         20B-27B RESERVED FOR CDC (OTHER O/S-S)
02581  M00S01960.lfm     +++|*         30B-37B RESERVED FOR INSTALLATIONS
02582  M00S01961.lfm     +++|*                F = TAPE FORMAT.
Line S01962 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02583  M01S01962.274l797 ---|*                    0 = INTERNAL (I)
02584  M01S01963.274l797 ---|*                    1 = SYSTEM INTERNAL (SI)
Line S00086 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02585  M01S00086.274l797 +++|*                    0 = INTERNAL BINARY (I)
02586  M01S00087.274l797 +++|*                    1 = NOS/BE INTERNAL BINARY (SI)
02587  M00S01964.lfm     +++|*                    2 = FOREIGN (F)
02588  M00S01965.lfm     +++|*                    3 = STRANGER (S)
02589  M00S01966.lfm     +++|*                    4 = LONG BLOCK STRANGER (L)
Line S01967 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02590  M01S01967.274l797 ---|*                    5-77B = RESERVED FOR CDC
Line S00088 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02591  M01S00088.274l797 +++|*                    5 = LONG BLOCK INTERNAL BINARY (LI)
02592  M01S00089.274l797 +++|*                    6-77B = RESERVED FOR CDC
02593  M00S01968.lfm     +++|*                IEP = ERROR PROCESSING INHIBITED (IF SET).
02594  M00S01969.lfm     +++|*                LBTYP = LABEL TYPE.
02595  M00S01970.lfm     +++|*                    0 = UNLABELED
02596  M00S01971.lfm     +++|*                    1 = STANDARD (ANSI 1969 STD.)
02597  M00S01972.lfm     +++|*                    2 = RESERVED FOR CDC (ANSI 1977 STD.)
02598  M00S01973.lfm     +++|*                    3-10B = RESERVED FOR CDC
02599  M00S01974.lfm     +++|*                    11B-13B = NOS/BE ONLY
02600  M00S01975.lfm     +++|*                    14B = NONSTANDARD (SKIP LABELS)
02601  M00S01976.lfm     +++|*                    15B-67B = RESERVED FOR CDC
02602  M00S01977.lfm     +++|*                    70B-77B = RESERVED FOR INSTALLATIONS
02603  M00S01978.lfm     +++|*                DEN = TAPE DENSITY.
02604  M00S01979.lfm     +++|*                    0 = NOT APPLICABLE
02605  M00S01980.lfm     +++|*                    1 = 556 BPI (7-TRACK)
02606  M00S01981.lfm     +++|*                    2 = 200 BPI (7-TRACK)
02607  M00S01982.lfm     +++|*                    3 = 800 BPI (7- OR 9-TRACK)
02608  M00S01983.lfm     +++|*                    4 = 1600 CPI (9-TRACK)
02609  M00S01984.lfm     +++|*                    5 = 6250 CPI (9-TRACK)
Line S01985 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02610  M01S01985.274l797 ---|*                    6-7 = RESERVED FOR CDC
Line S00090 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02611  M01S00090.274l797 +++|*                    6 = 38000 CPI (CARTRIDGE)
02612  M01S00091.274l797 +++|*                    7 = RESERVED FOR CDC
02613  M00S01986.lfm     +++|*                CV = CONVERSION MODE.
02614  M00S01987.lfm     +++|*                    0 = BCD CONVERSION (7-TRACK)
02615  M00S01988.lfm     +++|*                    1 = ASCII CONVERSION (9-TRACK)
02616  M00S01989.lfm     +++|*                    2 = EBCDIC CONVERSION (9-TRACK)
02617  M00S01990.lfm     +++|*                    3-7 = RESERVED FOR CDC
02618  M00S01991.lfm     +++|*                BSIZE = MAXIMUM BLOCK SIZE (IN CM WORDS).
02619  M00S01992.lfm     +++|*                PO = PROCESSING OPTIONS.
02620  M00S01993.lfm     +++|*                    0 = ABORT ON IRRECOVERABLE PARITY ERROR
02621  M00S01994.lfm     +++|*                        WITH EP SET
02622  M00S01995.lfm     +++|*                    1 = DO NOT ABORT ON IRRECOVERABLE PARITY
02623  M00S01996.lfm     +++|*                        WITHOUT EP SET
02624  M00S01997.lfm     +++|*                    2 = INHIBIT ERROR PROCESSING
02625  M00S01998.lfm     +++|*                    3 = ENFORCE RING OUT
02626  M00S01999.lfm     +++|*                    4 = ENFORCE RING IN
02627  M00S02000.lfm     +++|*                    5 = INHIBIT UNLOAD
02628  M00S02001.lfm     +++|*                    6 = DISABLE GCR HARDWARE WRITE ERROR CORRECTION
02629  M00S02002.lfm     +++|*                    7 = ISSUE ALL ERROR RECOVERY MESSAGES TO USER
02630  M00S02003.lfm     +++|*                        DAYFILE
02631  M00S02004.lfm     +++|*                    8 = RESERVED FOR CDC
02632  M00S02005.lfm     +++|*                    9-11 = END-OF-REEL PROCESSING OPTION
02633  M00S02006.lfm     +++|*                        9 = OPTION *S*
02634  M00S02007.lfm     +++|*                        10 = OPTION *P*
02635  M00S02008.lfm     +++|*                        11 = OPTION *I*
02636  M00S02009.lfm     +++|*                NOISE = NOISE SIZE (IN FRAMES).
02637  M00S02010.lfm     +++|
02638  M00S02011.lfm     +++|
02639  M00S02012.lfm     +++|          ENTRY  RFI         RETURN FILE INFORMATION
Line S00092 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02640  M01S00092.274l797 +++|          LDN    0           CLEAR STATUS BYTES
02641  M01S00093.274l797 +++|          STD    ST
02642  M01S00094.274l797 +++|          STD    SX
02643  M00S02013.lfm     +++|          LDN    FIPBL*5-1*5-1
02644  M00S02014.lfm     +++|          STD    T1
02645  M00S02015.lfm     +++| RFI1     LDN    0           INITIALIZE PARAMETER BLOCK BUFFER
02646  M00S02016.lfm     +++|          STM    FIPB,T1
02647  M00S02017.lfm     +++|          SOD    T1
02648  M00S02018.lfm     +++|          PJN    RFI1        IF MORE WORDS TO CLEAR
02649  M00S02019.lfm     +++|          RJM    CPA         GET PARAMETER BLOCK ADDRESS
02650  M00S02020.lfm     +++|          CRD    FN          READ FIRST WORD OF PARAMETER BLOCK
02651  M00S02021.lfm     +++|          ADN    1
02652  M00S02022.lfm     +++|          CWM    FIPB,ON     ZERO WORD ONE OF PARAMETER BLOCK
02653  M00S02023.lfm     +++|          LDD    FN+4        CHECK IF COMPLETION BIT SET
02654  M00S02024.lfm     +++|          SHN    21-0
02655  M00S02025.lfm     +++|          PJN    RFI2        IF COMPLETION BIT NOT SET
02656  M00S02026.lfm     +++|          LDN    /ERR/PBB    * PARAMETER BLOCK BUSY.*
02657  M00S02027.lfm     +++|          LJM    ERR         EXIT TO ERROR PROCESSOR
02658  M00S02028.lfm     +++|
02659  M00S02029.lfm     +++| RFI2     LCN    FIPBL-1     CHECK FET LENGTH .GE. MINIMUM LENGTH
02660  M00S02030.lfm     +++|          RJM    CFL
02661  M00S02031.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
02662  M00S02032.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
02663  M00S02033.lfm     +++|          NJN    RFI3        IF FILE FOUND
02664  M00S02034.lfm     +++|          LDN    FIPBL-2     CLEAR REMAINDER OF PARAMETER BLOCK
02665  M00S02035.lfm     +++|          STD    T4
02666  M00S02036.lfm     +++|          RJM    CPA         DETERMINE RETURN ADDRESS
02667  M00S02037.lfm     +++|          ADN    2
02668  M00S02038.lfm     +++|          CWM    FIPB,T4
02669  M00S02039.lfm     +++|          LJM    LFMX        EXIT
02670  M00S02040.lfm     +++|
02671  M00S02041.lfm     +++| RFI3     RJM    SFB         SET FILE BUSY
02672  M00S02042.lfm     +++|          ZJN    RFI4        IF NO REJECT ON FILE INTERLOCK
02673  M00S02043.lfm     +++|          LDN    0
02674  M00S02044.lfm     +++|          STD    FA
02675  M00S02045.lfm     +++|          LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
02676  M00S02046.lfm     +++|          LJM    ERR         EXIT TO ERROR PROCESSOR
02677  M00S02047.lfm     +++|
02678  M00S02048.lfm     +++|*         DETERMINE FILE TYPE.
02679  M00S02049.lfm     +++|
02680  M00S02050.lfm     +++| RFI4     STD    T4
02681  M00S02051.lfm     +++|          LDD    CM+4        GET FILE TYPE FROM FNT
02682  M00S02052.lfm     +++|          SHN    -6
02683  M00S02053.lfm     +++|          STD    T3
02684  M00S02054.lfm     +++| RFI5     LDM    TAFT,T4     CHECK TABLE FOR MATCH
02685  M00S02055.lfm     +++|          LMD    T3
02686  M00S02056.lfm     +++|          ZJN    RFI6        IF MATCH
02687  M00S02057.lfm     +++|          AOD    T4
02688  M00S02058.lfm     +++|          LMN    TAFTL
02689  M00S02059.lfm     +++|          NJN    RFI5        IF NOT END OF TABLE
02690  M00S02060.lfm     +++|          LDN    77          SET FILE TYPE = OTHER
02691  M00S02061.lfm     +++|          STD    T4
02692  M00S02062.lfm     +++| RFI6     LDD    T4
02693  M00S02063.lfm     +++|          STM    FIPB+4      PLACE FILE TYPE IN PARAMETER BLOCK
02694  M00S02064.lfm     +++|          LDD    CM+3        PICK UP FILE ACCESS MODE
02695  M00S02065.lfm     +++|          LPN    35          ISOLATE ACCESS MODE
02696  M00S02066.lfm     +++|          STD    EQ          SAVE FILE ACCESS MODE
Line S02067 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02697  M01S02067.ns22000 ---|          LDD    FS          GET EQUIPMENT NUMBER
02698  M01S02068.ns22000 ---|          STD    T5          SAVE EQUIPMENT NUMBER
02699  M01S02069.ns22000 ---|          STM    FIPB+1*5    PLACE EQUIPMENT NUMBER IN PARAMETER BLOCK
Line S00199 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02070.lfm     +++|          ZJN    RFI7        IF NOT ASSIGNED TO MASS STORAGE
Line S02071 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02704  M01S02071.ns22000 ---|          ADM    ESTS        READ EST ENTRY FOR FILE
Line S00202 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02705  M01S00202.ns22000 +++|          SFA    EST         READ EST ENTRY FOR FILE
02706  M01S00203.ns22000 +++|          ADK    EQDE
02707  M00S02072.lfm     +++|          CRD    CN
02708  M00S02073.lfm     +++|          LDD    CN+3        GET DEVICE TYPE
Line S02074 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02709  M01S02074.252l678 ---|          LPC    3777
02710  M00S02075.lfm     +++|          STM    FIPB
02711  M00S02076.lfm     +++|          LDD    CN
02712  M00S02077.lfm     +++|          SHN    21-13
02713  M00S02078.lfm     +++|          MJN    RFI7        IF MASS STORAGE
02714  M00S02079.lfm     +++|          LJM    RFI18       PROCESS NON MASS STORAGE
02715  M00S02080.lfm     +++|
02716  M00S02081.lfm     +++|*         CHECK FOR EOI, EOF, AND BOI FOR MASS STORAGE FILES.
02717  M00S02082.lfm     +++|
02718  M00S02083.lfm     +++| RFI7     LDD    FS+4        SET MASS STORAGE AND OPEN BITS
02719  M00S02084.lfm     +++|          SHN    -3
02720  M00S02085.lfm     +++|          LPN    40
02721  M00S02086.lfm     +++|          ADN    10
Line S02087 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02722  M01S02087.v23l617 ---|          STD    FT
Line S00041 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02723  M01S00041.v23l617 +++|          STD    ST
Line S02088 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02724  M01S02088.242l642 ---|          LDD    FS+4        CHECK FOR EOF OR EOI
Line S00089 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02725  M01S00089.242l642 +++|          LDD    T5
02726  M01S00090.242l642 +++|          ZJN    RFI7.1      IF NOT ASSIGNED TO MASS STORAGE DEVICE
02727  M01S00091.242l642 +++|          SETMS  STATUS
Line S00092 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02728  M02S00092.ns2776  ---|          ZJN    RFI7.1      IF DEVICE ACCESSIBLE
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02729  M01S00001.ns2776  +++|          LDM    MSD
02730  M01S00002.ns2776  +++|          SHN    21-6
02731  M01S00003.ns2776  +++|          PJN    RFI7.1      IF DEVICE ACCESSIBLE
Line S00093 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02732  M01S00093.242l642 +++|          LDN    4
02733  M01S00094.242l642 +++|          RAD    ST
02734  M01S00095.242l642 +++| RFI7.1   LDD    FS+4        CHECK FOR EOF OR EOI
02735  M00S02089.lfm     +++|          SHN    21-3
02736  M00S02090.lfm     +++|          PJN    RFI9        IF NOT EOI OR EOF
Line S02091 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02737  M01S02091.242l642 ---|          SHN    21-20
Line S00096 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02738  M01S00096.242l642 +++|          SHN    3-2
Line S02092 Modification History
M01 (Removed by) lfm21
Seq #  *Modification Id* Act 
----------------------------+
02739  M01S02092.lfm21   ---|          PJN    RFI8        IF EOF
02740  M01S02093.lfm21   ---|          LDN    4           SET BIT TO INDICATE EOI
Line S00001 Modification History
M01 (Added by) lfm21
Seq #  *Modification Id* Act 
----------------------------+
02741  M01S00001.lfm21   +++|          MJN    RFI8        IF NOT EOF
02742  M01S00002.lfm21   +++|          LDN    2           SET BIT TO INDICATE EOF
02743  M00S02094.lfm     +++|          UJN    RFI10       SET UP FILE MODE FIELDS
02744  M00S02095.lfm     +++|
Line S02096 Modification History
M01 (Removed by) lfm21
Seq #  *Modification Id* Act 
----------------------------+
02745  M01S02096.lfm21   ---| RFI8     LDN    2           SET BIT TO INDICATE EOF
02746  M01S02097.lfm21   ---|          UJN    RFI10       SET UP FILE MODE FIELDS
02747  M01S02098.lfm21   ---|
02748  M01S02099.lfm21   ---| RFI9     LDD    FS+1        CHECK FOR BOI
02749  M01S02100.lfm21   ---|          ZJN    RFI13       IF EMPTY FILE
Line S00003 Modification History
M01 (Added by) lfm21
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02101.lfm     +++|          LMD    FS+2
02756  M00S02102.lfm     +++|          NJN    RFI11       IF FIRST TRACK .NE. CURRENT TRACK
02757  M00S02103.lfm     +++|          LDD    FS+3
02758  M00S02104.lfm     +++|          LMN    FSMS
02759  M00S02105.lfm     +++|          NJN    RFI11       IF CURRENT SECTOR .NE. FSMS
Line S02106 Modification History
M01 (Removed by) lfm21
Seq #  *Modification Id* Act 
----------------------------+
02760  M01S02106.lfm21   ---|          LDN    1           SET BIT TO INDICATE BOI
Line S00008 Modification History
M01 (Added by) lfm21
Seq #  *Modification Id* Act 
----------------------------+
02761  M01S00008.lfm21   +++| RFI9.1   LDN    1           SET BIT TO INDICATE BOI
02762  M00S02107.lfm     +++| RFI10    SHN    11
Line S02108 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02763  M01S02108.v23l617 ---|          RAD    FT
Line S00042 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02764  M01S00042.v23l617 +++|          RAD    ST
02765  M00S02109.lfm     +++|
02766  M00S02110.lfm     +++|*         DETERMINE FILE LENGTH.
02767  M00S02111.lfm     +++|
02768  M00S02112.lfm     +++| RFI11    LDD    FS+1        SET FIRST TRACK
02769  M00S02113.lfm     +++|          ZJN    RFI13       IF NO FIRST TRACK
02770  M00S02114.lfm     +++|          STD    T6
02771  M00S02115.lfm     +++|          RJM    SEI         DETERMINE FILE LENGTH
02772  M00S02116.lfm     +++|          SOD    T3          SET FILE LENGTH IN PARAMETER BLOCK
02773  M00S02117.lfm     +++|          PJN    RFI12       IF NO BORROW
02774  M00S02118.lfm     +++|          LDD    T2
02775  M00S02119.lfm     +++|          ZJN    RFI12       IF LENGTH IS ZERO
02776  M00S02120.lfm     +++|          SOD    T2          BORROW
02777  M00S02121.lfm     +++|          LCN    0
02778  M00S02122.lfm     +++| RFI12    STM    FIPB+2*5+1
02779  M00S02123.lfm     +++|          LDD    T2
02780  M00S02124.lfm     +++|          STM    FIPB+2*5
02781  M00S02125.lfm     +++|
02782  M00S02126.lfm     +++|*         DETERMINE RANDOM ADDRESS.
02783  M00S02127.lfm     +++|
02784  M00S02128.lfm     +++| RFI13    LDD    FS+2        SET TRACK
02785  M00S02129.lfm     +++|          ZJN    RFI14       IF NO CURRENT TRACK
02786  M00S02130.lfm     +++|          STD    T6
02787  M00S02131.lfm     +++|          LDD    FS+3        SET SECTOR
02788  M00S02132.lfm     +++|          STD    T7
02789  M00S02133.lfm     +++|          LDD    FS+1
02790  M00S02134.lfm     +++|          RJM    SRA         SET RANDOM ADDRESS
02791  M00S02135.lfm     +++|          LDD    RI          SET RANDOM ADDRESS IN PARAMETER BLOCK
02792  M00S02136.lfm     +++|          SHN    6
02793  M00S02137.lfm     +++|          STM    FIPB+2*5+3
02794  M00S02138.lfm     +++|          SHN    -14
02795  M00S02139.lfm     +++|          STM    FIPB+2*5+2
02796  M00S02140.lfm     +++|          LDD    RI+1
02797  M00S02141.lfm     +++|          SHN    6
02798  M00S02142.lfm     +++|          STM    FIPB+2*5+4
02799  M00S02143.lfm     +++|          SHN    -14
02800  M00S02144.lfm     +++|          RAM    FIPB+2*5+3
02801  M00S02145.lfm     +++|
02802  M00S02146.lfm     +++|*         DETERMINE FILE ACCESS MODE.
02803  M00S02147.lfm     +++|
Line S02148 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02804  M01S02148.v23l617 ---| RFI14    AOD    FT          DEFAULT TO EXECUTE MODE
Line S00043 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02805  M01S00043.v23l617 +++| RFI14    AOD    ST          DEFAULT TO EXECUTE MODE
02806  M00S02149.lfm     +++|          LDN    0
02807  M00S02150.lfm     +++|          STD    T4
02808  M00S02151.lfm     +++| RFI15    LDM    TAFM,T4     CHECK TABLE FOR MATCH
02809  M00S02152.lfm     +++|          LMD    EQ
02810  M00S02153.lfm     +++|          LPN    77
02811  M00S02154.lfm     +++|          ZJN    RFI16       IF MATCH
02812  M00S02155.lfm     +++|          AOD    T4
02813  M00S02156.lfm     +++|          LMN    TAFML
02814  M00S02157.lfm     +++|          NJN    RFI15       IF NOT END OF TABLE
Line S02158 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02815  M01S02158.241l630 ---|          MONITOR  HNGM      HANG PP
Line S00024 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02159.lfm     +++|
02823  M00S02160.lfm     +++|*         PROGRAMMER NOTE - BECAUSE ALL POSSIBLE FILE MODES
02824  M00S02161.lfm     +++|*         SHOULD BE INCLUDED IN TABLE *TAFM*, A MATCH
02825  M00S02162.lfm     +++|*         FAILURE INDICATES THAT THE FNT ENTRY FOR THE
02826  M00S02163.lfm     +++|*         FILE IS INCORRECT.
02827  M00S02164.lfm     +++|
Line S02165 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02828  M01S02165.241l630 ---|          UJN    RFI17       RETURN ZERO FOR FILE PERMISSIONS
02829  M01S02166.241l630 ---|
02830  M00S02167.lfm     +++| RFI16    LDM    TAFM,T4     SET BITS TO INDICATE MODE
02831  M00S02168.lfm     +++|          SCN    77
02832  M00S02169.lfm     +++| RFI17    RAM    FIPB+4
02833  M00S02170.lfm     +++|          LJM    RFI27       CHECK FOR KEYWORD
02834  M00S02171.lfm     +++|
02835  M00S02172.lfm     +++|*         CHECK FOR TAPE OR TTY FILE.
02836  M00S02173.lfm     +++|
02837  M00S02174.lfm     +++| RFI18    LDD    CN+3        CHECK FOR *TTY* OR TAPE FILE
Line S00095 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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
Line S02175 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02844  M01S02175.252l678 ---|          LPC    3777
02845  M00S02176.lfm     +++|          LMC    2RMT
02846  M00S02177.lfm     +++|          ZJN    RFI21       IF *MT*
02847  M00S02178.lfm     +++|          LMC    2RNT&2RMT
02848  M00S02179.lfm     +++|          ZJN    RFI20       IF *NT*
Line S02180 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02849  M01S02180.274l797 ---|          LMC    2RTT&2RNT
Line S00101 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02181.lfm     +++|          ZJN    RFI19       IF *TT*
02855  M00S02182.lfm     +++|          LDN    20          CLEAR STATUS BYTE
02856  M00S02183.lfm     +++| RFI19    LMN    20          SET BIT TO INDICATE *TT*
Line S02184 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02857  M01S02184.v23l617 ---|          STD    FT
Line S00044 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02858  M01S00044.v23l617 +++|          STD    ST
02859  M00S02185.lfm     +++|          LJM    RFI23       CHECK ACCESS MODE
02860  M00S02186.lfm     +++|
02861  M00S02187.lfm     +++| RFI20    LDD    HN
02862  M00S02188.lfm     +++| RFI21    ADD    HN
Line S02189 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02863  M01S02189.v23l617 ---|          STD    FT
Line S00045 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02864  M02S00045.274l797 ---|          STD    ST
Line S02190 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02865  M01S02190.274l797 ---|          LDD    FS+4        CHECK IF LABELLED TAPE
Line S00105 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02191.lfm     +++|          LPC    4000
02869  M00S02192.lfm     +++|          SHN    -3
Line S02193 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02870  M01S02193.v23l617 ---|          RAD    FT
Line S00046 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02871  M01S00046.v23l617 +++|          RAD    ST
02872  M00S02194.lfm     +++|
02873  M00S02195.lfm     +++|*         CHECK FOR FILE OPENED.
02874  M00S02196.lfm     +++|
02875  M00S02197.lfm     +++|          LDN    /MTX/UVSN
02876  M00S02198.lfm     +++|          STD    T1
02877  M00S02199.lfm     +++|          LDN    1
02878  M00S02200.lfm     +++|          RJM    TUW         TRANSFER UDT WORD
02879  M00S02201.lfm     +++|          LDD    MA
Line S02202 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02880  M01S02202.v23l617 ---|          CRD    CN
02881  M01S02203.v23l617 ---|          LDD    CN+3        CHECK FOR OPEN BIT
Line S00047 Modification History
M01 (Added by) v23l617
M02 (Removed by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02882  M02S00047.lfm25   ---|          CRD    UD          VSN, REEL NUMBER, AND OPEN BIT
Line S00006 Modification History
M01 (Added by) lfm25
Seq #  *Modification Id* Act 
----------------------------+
02883  M01S00006.lfm25   +++|          CRD    UD          GET VSN AND OPEN STATUS
Line S00048 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02884  M01S00048.v23l617 +++|          LDD    UD+3        CHECK FOR OPEN BIT
02885  M00S02204.lfm     +++|          SHN    21-11
02886  M00S02205.lfm     +++|          PJN    RFI22       IF NOT OPEN
02887  M00S02206.lfm     +++|          LDN    40          SET OPEN BIT FOR REPLY
Line S02207 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02888  M01S02207.v23l617 ---|          RAD    FT
Line S00049 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02889  M01S00049.v23l617 +++|          RAD    ST
02890  M00S02208.lfm     +++|
02891  M00S02209.lfm     +++|*         CHECK FOR WRITE LOCKOUT.
02892  M00S02210.lfm     +++|
02893  M00S02211.lfm     +++| RFI22    LDN    /MTX/UST1   GET DEVICE STATUS FROM UDT
02894  M00S02212.lfm     +++|          STD    T1
02895  M00S02213.lfm     +++|          LDN    1
02896  M00S02214.lfm     +++|          RJM    TUW
02897  M00S02215.lfm     +++|          LDD    MA
02898  M00S02216.lfm     +++|          CRD    CN
02899  M00S02217.lfm     +++|          LDD    CN+4        CHECK FOR WRITE RING
02900  M00S02218.lfm     +++|          SHN    21-7
02901  M00S02219.lfm     +++|          PJN    RFI24       IF NO WRITE RING
02902  M00S02220.lfm     +++|
02903  M00S02221.lfm     +++| RFI23    LDD    EQ          PICK UP FILE ACCESS MODE
02904  M00S02222.lfm     +++|          SHN    21-0
02905  M00S02223.lfm     +++|          PJN    RFI25       IF NOT WRITE LOCKOUT
02906  M00S02224.lfm     +++| RFI24    LDD    HN          SET READ BIT
02907  M00S02225.lfm     +++|          UJN    RFI26       SET UP FILE MODE FIELD
02908  M00S02226.lfm     +++|
02909  M00S02227.lfm     +++| RFI25    LDC    300         SET READ AND WRITE BITS
02910  M00S02228.lfm     +++| RFI26    RAM    FIPB+4
02911  M00S02229.lfm     +++|
Line S02230 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02912  M01S02230.274l797 ---|
Line S02231 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02913  M02S02231.274l797 ---| RFI27    LDD    FT          SET STATUS BYTE
Line S00050 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02914  M02S00050.274l797 ---| RFI27    LDD    ST          SET STATUS BYTE
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/lfm.001.txt ยท Last modified: (external edit)