User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:lfm.004

Deck LFM Part 004

48 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05531  M01S00116.v23l617 +++|*         *CPA*.  WHEN THE COMMAND BUFFER IS SUBSEQUENTLY
05532  M00S03961.lfm     +++|*         RESTORED (FROM THE $DM*$ FILE) IT IS POSSIBLE FOR THE
Line S03962 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05533  M01S03962.v23l617 ---|*         POINTERS TO THE CONTROL STATEMENT FILE (NOT RESTORED FROM
05534  M01S03963.v23l617 ---|*         THE $DM*$ FILE) TO BE INCORRECT IF A CONTROL STATEMENT WAS
Line S00117 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05535  M01S00117.v23l617 +++|*         POINTERS TO THE COMMAND FILE (NOT RESTORED FROM
05536  M01S00118.v23l617 +++|*         THE $DM*$ FILE) TO BE INCORRECT IF A COMMAND WAS
05537  M00S03964.lfm     +++|*         CONTINUED FROM THE PREVIOUS SECTOR.
05538  M00S03965.lfm     +++|*
05539  M00S03966.lfm     +++|*         *ENQUIRE* USES THIS OPTION BECAUSE IT ONLY WANTS TO READ
05540  M00S03967.lfm     +++|*         THE FILE, NOT REPOSITION OR RESTORE IT.
05541  M00S03968.lfm     +++|
05542  M00S03969.lfm     +++| ACSA     LDN    0
05543  M00S03970.lfm     +++|*         LDN    1           (FILE MUST BE LOCKED LIBRARY FILE)
05544  M00S03971.lfm     +++|          NJN    ACS7        IF SETTING WRITE LOCKOUT
05545  M00S03972.lfm     +++|          SOM    ACSB        DO NOT LOCK FILE
05546  M00S03973.lfm     +++|          LDN    ZERL        CLEAR CONTROL POINT AREA POINTERS
05547  M00S03974.lfm     +++|          CRD    CM
05548  M00S03975.lfm     +++|          CRD    CN
05549  M00S03976.lfm     +++|          LDD    SP          RETAIN CSPW BYTE 0
05550  M00S03977.lfm     +++|          STD    CM
05551  M00S03978.lfm     +++|          LDD    CP
Line S03979 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05552  M01S03979.ns22000 ---|          ADC    CSPW
Line S00439 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05553  M01S00439.ns22000 +++|          ADK    CSPW
05554  M00S03980.lfm     +++|          CWD    CM
05555  M00S03981.lfm     +++|          ADN    CSSW-CSPW
05556  M00S03982.lfm     +++|          CWD    CN
05557  M00S03983.lfm     +++|          UJN    ACS8        CHECK *SSJ=* VALUE
05558  M00S03984.lfm     +++|
05559  M00S03985.lfm     +++| ACS7     LDC    LIFT*100-LOFT*100  CHANGE FILE TYPE TO *LIFT*
05560  M00S03986.lfm     +++|          RAD    FN+4
05561  M00S03987.lfm     +++| ACS8     LDD    CP          CHECK *SSJ=* ADDRESS VALUE
05562  M00S03988.lfm     +++|          ADC    SEPW
05563  M00S03989.lfm     +++|          CRD    CM
05564  M00S03990.lfm     +++|          LDD    CM+3
05565  M00S03991.lfm     +++|          LPN    77
05566  M00S03992.lfm     +++|          LMN    40
05567  M00S03993.lfm     +++|          SHN    14
05568  M00S03994.lfm     +++|          LMD    CM+4
05569  M00S03995.lfm     +++|          NJN    ACS9        IF *SSJ=* VALUE .NE. 400,000B
05570  M00S03996.lfm     +++|          LDD    FN+4        CHANGE FILE STATUS TO *SSST*
05571  M00S03997.lfm     +++|          SCN    77
05572  M00S03998.lfm     +++|          LMN    SSST
05573  M00S03999.lfm     +++|          STD    FN+4
05574  M00S04000.lfm     +++| ACS9     LDD    FS+1        REWIND FILE
05575  M00S04001.lfm     +++|          STD    FS+2
05576  M00S04002.lfm     +++|          LDN    FSMS
05577  M00S04003.lfm     +++|          STD    FS+3
05578  M00S04004.lfm     +++|          LDD    FN+3        SET LOCKED FILE
05579  M00S04005.lfm     +++|          SCN    77
05580  M00S04006.lfm     +++|          LMN    1
05581  M00S04007.lfm     +++| ACSB     EQU    *-1
05582  M00S04008.lfm     +++|*         LMN    0           DO NOT LOCK FILE WHEN LOFT
05583  M00S04009.lfm     +++|          STD    FN+3
05584  M00S04010.lfm     +++|          NFA    FA,R        STORE FNT WORD
05585  M00S04011.lfm     +++|          CWD    FN
Line S04012 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05586  M01S04012.v23l617 ---|          LDN    ZERL        SET CONTROL STATEMENT COUNT
Line S00119 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05587  M01S00119.v23l617 +++|          LDN    ZERL        SET COMMAND COUNT
05588  M00S04013.lfm     +++|          CRD    CN
05589  M00S04014.lfm     +++|          LDD    SP+1
05590  M00S04015.lfm     +++|          LPN    77
05591  M00S04016.lfm     +++|          STD    CN+3
05592  M00S04017.lfm     +++|          LDD    SP+2
05593  M00S04018.lfm     +++|          STD    CN+4
05594  M00S04019.lfm     +++|          RJM    CPA         STORE (FET+6)
05595  M00S04020.lfm     +++|          ADN    6
05596  M00S04021.lfm     +++|          CWD    CN
05597  M00S04022.lfm     +++|          LJM    LFMX        EXIT
05598  M00S04023.lfm     +++| ECS      SPACE  4,20
05599  M00S04024.lfm     +++|***       FUNCTION 22.
Line S04025 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05600  M01S04025.v23l617 ---|*         REPLACE CONTROL STATEMENT FILE.
05601  M01S04026.v23l617 ---|*         IF FILE IS NOT DEFINED, CONTROL STATEMENT FILE WILL BE
Line S00120 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05602  M01S00120.v23l617 +++|*         REPLACE COMMAND FILE.
05603  M01S00121.v23l617 +++|*         IF FILE IS NOT DEFINED, COMMAND FILE WILL BE
05604  M00S04027.lfm     +++|*         CLEARED.
05605  M00S04028.lfm     +++|*
05606  M00S04029.lfm     +++|*         ENTRY  (FN - FN+3) = FILE NAME FROM FET+0.
05607  M00S04030.lfm     +++|* FET+6   42/, 18/ADDR
05608  M00S04031.lfm     +++|*
05609  M00S04032.lfm     +++|*         ADDR = IF PRESENT IS ADDRESS CONTAINING POSITION INFORMATION.
05610  M00S04033.lfm     +++|*         THE FORMAT OF THIS ADDRESS IS THE FOLLOWING.
05611  M00S04034.lfm     +++|*
05612  M00S04035.lfm     +++|*T ADDR   24/CS, 6/0, 24/CURRENT RANDOM ADDR, 6/WC
Figure ADDR

05629WCCURRENT RANDOM ADDR303536590CS

05613  M00S04036.lfm     +++|*
Line S04037 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05614  M01S04037.v23l617 ---|*         CS = CONTROL STATEMENT COUNT.
Line S00122 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05615  M01S00122.v23l617 +++|*         CS = COMMAND COUNT.
05616  M00S04038.lfm     +++|*         WC = WORD COUNT POSITION IN SECTOR.
05617  M00S04039.lfm     +++|*
05618  M00S04040.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
05619  M00S04041.lfm     +++|
05620  M00S04042.lfm     +++|
05621  M00S04043.lfm     +++|          ENTRY  ECS
05622  M00S04044.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
05623  M00S04045.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
05624  M00S04046.lfm     +++|          NJN    ECS1        IF FOUND
05625  M00S04047.lfm     +++|          LDN    ZERL
05626  M00S04048.lfm     +++|          CRD    FS          CLEAR FST ENTRY
Line S04049 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05627  M01S04049.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT POINTER
Line S00123 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05628  M01S00123.v23l617 +++|          LDD    CP          READ COMMAND POINTER
05629  M00S04050.lfm     +++|          ADN    CSPW
05630  M00S04051.lfm     +++|          CRD    SP
05631  M00S04052.lfm     +++|          LDC    4000        SET EOR
05632  M00S04053.lfm     +++|          STD    SP+1
05633  M00S04054.lfm     +++|          LDD    SP+4        CLEAR BUFFER
05634  M00S04055.lfm     +++|          STD    SP+3
Line S04056 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05635  M01S04056.v23l617 ---|          LDD    CP          STORE CONTROL STATEMENT POINTER
Line S00124 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05636  M01S00124.v23l617 +++|          LDD    CP          STORE COMMAND POINTER
05637  M00S04057.lfm     +++|          ADN    CSPW
05638  M00S04058.lfm     +++|          CWD    SP
05639  M00S04059.lfm     +++|          LJM    LFMX        RETURN
05640  M00S04060.lfm     +++|
05641  M00S04061.lfm     +++| ECS1     RJM    SFB         SET FILE BUSY
05642  M00S04062.lfm     +++|          ZJN    ECS2        IF NO REJECT ON FILE INTERLOCK
05643  M00S04063.lfm     +++|          LDN    /ERR/IOE    *I/O SEQUENCE ERROR.*
05644  M00S04064.lfm     +++|          LJM    ERR         ABORT
05645  M00S04065.lfm     +++|
05646  M00S04066.lfm     +++| ECS2     LDD    CM+4        CHECK FILE TYPE
05647  M00S04067.lfm     +++|          SHN    -6
05648  M00S04068.lfm     +++|          LMN    LOFT
05649  M00S04069.lfm     +++|          NJN    ECS3        IF NOT LOCAL FILE TYPE
Line S00003 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05650  M01S00003.lfm2    +++|          LDD    CM+3        CHECK FILE MODE
05651  M01S00004.lfm2    +++|          SHN    21-2
05652  M01S00005.lfm2    +++|          MJN    ECS2.1      IF EXECUTE-ONLY FILE
05653  M00S04070.lfm     +++|          LJM    ECS6        LOCAL FILE TYPE
Line S00006 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05654  M01S00006.lfm2    +++|
Line S00007 Modification History
M01 (Added by) lfm2
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05655  M02S00007.v23l617 ---| ECS2.1   LDN    /ERR/ILM    * ILLEGAL FILE MODE.*
Line S00125 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05656  M01S00125.v23l617 +++| ECS2.1   LDN    /ERR/ILM    * INCORRECT FILE MODE.*
Line S00008 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05657  M01S00008.lfm2    +++|          LJM    ERR         ABORT
05658  M00S04071.lfm     +++|
05659  M00S04072.lfm     +++| ECS3     LMN    LIFT&LOFT
05660  M00S04073.lfm     +++|          NJN    ECS4        IF NOT LIBRARY FILE TYPE
05661  M00S04074.lfm     +++|          LDC    ECS4        MUST HAVE POSITION PARAMETER
05662  M00S04075.lfm     +++|          STM    ECSA
05663  M00S04076.lfm     +++|
05664  M00S04077.lfm     +++|*         COMPARE TO ORIGINAL JOB INPUT FILE.
05665  M00S04078.lfm     +++|
05666  M00S04079.lfm     +++|          NFA    FNTN+FSTL   FETCH INPUT FILE FST INFORMATION
05667  M00S04080.lfm     +++|          CRD    CM
05668  M00S04081.lfm     +++|          LDD    FS          COMPARE EQUIPMENT AND FIRST TRACK
05669  M00S04082.lfm     +++|          LMD    CM
05670  M00S04083.lfm     +++|          NJN    ECS4        IF LIBRARY TYPE BUT NOT INPUT
05671  M00S04084.lfm     +++|          LDD    FS+1
05672  M00S04085.lfm     +++|          LMD    CM+1
05673  M00S04086.lfm     +++|          ZJN    ECS5        IF ORIGINAL JOB FILE
Line S04087 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05674  M01S04087.v23l617 ---| ECS4     LDN    /ERR/IFT    ILLEGAL FILE TYPE
Line S00126 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05675  M01S00126.v23l617 +++| ECS4     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
05676  M00S04088.lfm     +++|          LJM    ERR         PROCESS ERROR
05677  M00S04089.lfm     +++|
05678  M00S04090.lfm     +++| ECS5     LDC    MJNI&UJNI   PREVENT DROPPING TRACKS
05679  M00S04091.lfm     +++|          LMM    ECSC
05680  M00S04092.lfm     +++|          STM    ECSC
05681  M00S04093.lfm     +++|          LDC    4000        SET ORIGINAL INPUT FILE FLAG
05682  M00S04094.lfm     +++|          STM    ECSB
Line S04095 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05683  M01S04095.ns22000 ---| ECS6     LDD    FS          CHECK FOR MASS STORAGE
05684  M01S04096.ns22000 ---|          ADM    ESTS
Line S00440 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05685  M01S00440.ns22000 +++| ECS6     SFA    EST,FS      CHECK FOR MASS STORAGE
05686  M01S00441.ns22000 +++|          ADK    EQDE
05687  M00S04097.lfm     +++|          CRD    CM
05688  M00S04098.lfm     +++|          LDD    CM
05689  M00S04099.lfm     +++|          SHN    21-13
05690  M00S04100.lfm     +++|          MJN    ECS7        IF ON MASS STORAGE
Line S04101 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05691  M01S04101.v23l617 ---|          LDN    /ERR/IEQ    ILLEGAL EQUIPMENT
Line S00127 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05692  M01S00127.v23l617 +++|          LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
05693  M00S04102.lfm     +++|          UJN    ECS9        ABORT
05694  M00S04103.lfm     +++|
05695  M00S04104.lfm     +++| ECS7     LDD    FS+2
05696  M00S04105.lfm     +++|          NJN    ECS10       IF FILE USED
05697  M00S04106.lfm     +++| ECS8     LDN    /ERR/FLE    * FILE EMPTY.*
05698  M00S04107.lfm     +++| ECS9     LJM    ERR         PROCESS ERROR
05699  M00S04108.lfm     +++|
05700  M00S04109.lfm     +++|
05701  M00S04110.lfm     +++|*         CHECK IF POSITION INFORMATION TO BE RETRIEVED.
05702  M00S04111.lfm     +++|
05703  M00S04112.lfm     +++| ECS10    RJM    CPA         READ FET+6
05704  M00S04113.lfm     +++|          ADN    6
05705  M00S04114.lfm     +++|          CRD    CN
05706  M00S04115.lfm     +++|          LDD    CN+3        CHECK IF ADDRESS PRESENT
05707  M00S04116.lfm     +++|          LPN    77
05708  M00S04117.lfm     +++|          STD    CN+3
05709  M00S04118.lfm     +++|          SHN    14
05710  M00S04119.lfm     +++|          ADD    CN+4
05711  M00S04120.lfm     +++|          NJN    ECS11       IF ADDRESS PRESENT
05712  M00S04121.lfm     +++|          LJM    ECS13       IF ADDRESS NOT PRESENT
05713  M00S04122.lfm     +++| ECSA     EQU    *-1
05714  M00S04123.lfm     +++|*         LJM    ECS4        IF INPUT FILE BUT NO POSITION PARAMETER
05715  M00S04124.lfm     +++|
05716  M00S04125.lfm     +++| ECS11    SHN    -6          CHECK IF ADDRESS WITHIN FL
05717  M00S04126.lfm     +++|          SBD    FL
05718  M00S04127.lfm     +++|          MJN    ECS12       IF WITHIN FL
05719  M00S04128.lfm     +++|          LDN    /ERR/AOR    * ADDRESS OUT OF RANGE.*
05720  M00S04129.lfm     +++|          LJM    ERR         ABORT
05721  M00S04130.lfm     +++|
05722  M00S04131.lfm     +++| ECS12    LDD    CN+3        READ POSITION INFORMATION
05723  M00S04132.lfm     +++|          SHN    6
05724  M00S04133.lfm     +++|          ADD    RA
05725  M00S04134.lfm     +++|          SHN    6
05726  M00S04135.lfm     +++|          ADD    CN+4
Line S04136 Modification History
M01 (Removed by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05727  M01S04136.lfm2    ---|          CRD    FN
05728  M01S04137.lfm2    ---|          LDD    FN+3        GET CURRENT RANDOM ADDRESS
Line S00009 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05729  M01S00009.lfm2    +++|          CRD    CM
05730  M01S00010.lfm2    +++|          LDD    CM+3        GET CURRENT RANDOM ADDRESS
05731  M00S04138.lfm     +++|          SHN    6
05732  M00S04139.lfm     +++|          STD    RI+1
05733  M00S04140.lfm     +++|          SHN    -14
05734  M00S04141.lfm     +++|          STD    RI
Line S04142 Modification History
M01 (Removed by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05735  M01S04142.lfm2    ---|          LDD    FN+4
Line S00011 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05736  M01S00011.lfm2    +++|          LDD    CM+4
05737  M00S04143.lfm     +++|          SHN    -6
05738  M00S04144.lfm     +++|          RAD    RI+1
Line S04145 Modification History
M01 (Removed by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05739  M01S04145.lfm2    ---|          LDD    FN+2
Line S00012 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05740  M01S00012.lfm2    +++|          LDD    CM+2
05741  M00S04146.lfm     +++|          SHN    6
05742  M00S04147.lfm     +++|          RAD    RI
05743  M00S04148.lfm     +++|          LDN    0
05744  M00S04149.lfm     +++|          STD    CN+3
Line S04150 Modification History
M01 (Removed by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05745  M01S04150.lfm2    ---|          LDD    FN          GET CONTROL STATEMENT COUNT
Line S00013 Modification History
M01 (Added by) lfm2
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05746  M02S00013.v23l617 ---|          LDD    CM          GET CONTROL STATEMENT COUNT
Line S00128 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05747  M01S00128.v23l617 +++|          LDD    CM          GET COMMAND COUNT
05748  M00S04151.lfm     +++|          STD    CN+1
Line S04152 Modification History
M01 (Removed by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05749  M01S04152.lfm2    ---|          LDD    FN+1
Line S00014 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05750  M01S00014.lfm2    +++|          LDD    CM+1
05751  M00S04153.lfm     +++|          STD    CN+2
Line S04154 Modification History
M01 (Removed by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05752  M01S04154.lfm2    ---|          LDD    FN+4        SET WORD COUNT
Line S00015 Modification History
M01 (Added by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05753  M01S00015.lfm2    +++|          LDD    CM+4        SET WORD COUNT
05754  M00S04155.lfm     +++|          LPN    77
05755  M00S04156.lfm     +++|          STD    CN+4
05756  M00S04157.lfm     +++|          LDD    FS          SET EQUIPMENT
05757  M00S04158.lfm     +++|          STD    T5
05758  M00S04159.lfm     +++|          LMC    0
05759  M00S04160.lfm     +++| ECSB     EQU    *-1
05760  M00S04161.lfm     +++|*         LMC    4000        WHEN ORIGINAL JOB INPUT FILE
05761  M00S04162.lfm     +++|          STD    FS
05762  M00S04163.lfm     +++|          LDD    FS+1        SET FIRST TRACK
05763  M00S04164.lfm     +++|          STD    T6
Line S04165 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05764  M01S04165.v23l617 ---|          RJM    PCF         POSITION CONTROL STATEMENT FILE
Line S00129 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05765  M01S00129.v23l617 +++|          RJM    PCF         POSITION COMMAND FILE
05766  M00S04166.lfm     +++|          LJM    ECS16       STORE NEW FST WORD
05767  M00S04167.lfm     +++|
05768  M00S04168.lfm     +++|*         CONTINUE HERE IF POSITION INFORMATION NOT PRESENT.
05769  M00S04169.lfm     +++|
Line S04170 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05770  M01S04170.v23l617 ---| ECS13    LDD    CP          READ CONTROL STATEMENT POINTER
Line S00130 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05771  M01S00130.v23l617 +++| ECS13    LDD    CP          READ COMMAND POINTER
05772  M00S04171.lfm     +++|          ADN    CSPW
05773  M00S04172.lfm     +++|          CRD    SP
05774  M00S04173.lfm     +++|          LDD    FS          SET EQUIPMENT
05775  M00S04174.lfm     +++|          STD    T5
05776  M00S04175.lfm     +++|          LDD    FS+1        SET FIRST TRACK
05777  M00S04176.lfm     +++|          STD    FS+2
05778  M00S04177.lfm     +++|          STD    T6
05779  M00S04178.lfm     +++|          LDN    FSMS        SET FIRST SECTOR
Line S04179 Modification History
M01 (Removed by) lfm6
Seq #  *Modification Id* Act 
----------------------------+
05780  M01S04179.lfm6    ---|          STD    FS+3
05781  M00S04180.lfm     +++|          STD    T7
Line S04181 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05782  M01S04181.242l642 ---|          SETMS  READ,NE
Line S00123 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05783  M01S00123.242l642 +++|          SETMS  IO
05784  M00S04182.lfm     +++|          LDC    BFMS        READ FIRST SECTOR
05785  M00S04183.lfm     +++|          RJM    RNS
05786  M00S04184.lfm     +++|          ENDMS
05787  M00S04185.lfm     +++|          LDD    T1          CHECK WORD COUNT
05788  M00S04186.lfm     +++|          NJN    ECS14       IF NOT EMPTY SECTOR
05789  M00S04187.lfm     +++|          LJM    ECS8        * FILE EMPTY.*
05790  M00S04188.lfm     +++|
Line S04189 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05791  M01S04189.v23l617 ---| ECS14    LDN    0           CLEAR CONTROL CARD COUNT
Line S00131 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05792  M01S00131.v23l617 +++| ECS14    LDN    0           CLEAR COMMAND COUNT
05793  M00S04190.lfm     +++|          STD    SP+1
05794  M00S04191.lfm     +++|          STD    SP+2
05795  M00S04192.lfm     +++|          STD    FS+4
Line S04193 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05796  M01S04193.v23l617 ---|          LDC    CSBN        SET INITIAL CONTROL STATEMENT INDEX
Line S00132 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05797  M01S00132.v23l617 +++|          LDC    CSBN        SET INITIAL COMMAND INDEX
05798  M00S04194.lfm     +++|          STD    SP+3
05799  M00S04195.lfm     +++|          NFA    SP+3,R      STORE SECTOR
05800  M00S04196.lfm     +++|          CWM    BFMS+2,T1
05801  M00S04197.lfm     +++|          LDD    SP+3
05802  M00S04198.lfm     +++|          SBD    T1
05803  M00S04199.lfm     +++|          STD    SP+4
Line S00001 Modification History
M01 (Added by) lfm6
Seq #  *Modification Id* Act 
----------------------------+
05804  M01S00001.lfm6    +++|          LDD    T7          SET CURRENT SECTOR IN FST
05805  M01S00002.lfm6    +++|          STD    FS+3
05806  M00S04200.lfm     +++|          LDD    T1          CHECK BUFFER WORD COUNT
05807  M00S04201.lfm     +++|          LMD    HN
05808  M00S04202.lfm     +++|          ZJN    ECS15       IF NOT SHORT SECTOR
05809  M00S04203.lfm     +++|          LDC    4000        SET EOR FLAG
05810  M00S04204.lfm     +++|          STD    SP+1
05811  M00S04205.lfm     +++| ECS15    LDD    FS+1
05812  M00S04206.lfm     +++|          STD    FS+2
Line S04207 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05813  M01S04207.v23l617 ---|          LDD    CP          STORE CONTROL STATEMENT POINTER
Line S00133 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05814  M01S00133.v23l617 +++|          LDD    CP          STORE COMMAND POINTER
05815  M00S04208.lfm     +++|          ADN    CSPW
05816  M00S04209.lfm     +++|          CWD    SP
05817  M00S04210.lfm     +++|          ADN    CSSW-CSPW   READ FST ENTRY
05818  M00S04211.lfm     +++| ECS16    CRD    CN
05819  M00S04212.lfm     +++|          CWD    FS          STORE NEW FST ENTRY
05820  M00S04213.lfm     +++|          LDD    CN
05821  M00S04214.lfm     +++|          SHN    21-13
05822  M00S04215.lfm     +++|          MJN    ECS17       IF OLD FILE WAS INPUT FILE
05823  M00S04216.lfm     +++| ECSC     EQU    *-1
05824  M00S04217.lfm     +++|*         UJN    ECS17       (ORIGINAL JOB INPUT FILE)
Line S04218 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05825  M01S04218.v23l617 ---|          LDD    CN          DROP OLD CONTROL STATEMENT FILE
Line S00134 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05826  M01S00134.v23l617 +++|          LDD    CN          DROP OLD COMMAND FILE
05827  M00S04219.lfm     +++|          LPC    777
05828  M00S04220.lfm     +++|          STD    CM+1
05829  M00S04221.lfm     +++|          LDD    CN+1
05830  M00S04222.lfm     +++|          STD    CM+2
05831  M00S04223.lfm     +++|          ZJN    ECS17       IF NO FIRST TRACK
05832  M00S04224.lfm     +++|          MONITOR DTKM
Line S04225 Modification History
M01 (Removed by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05833  M01S04225.ns2171  ---|
05834  M01S04226.ns2171  ---|*         INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA.
05835  M01S04227.ns2171  ---|*         ACTUAL COUNT OF SECTORS RETURNED VIA DTKM IS IN CM+3 - CM+4.
05836  M01S04228.ns2171  ---|
05837  M01S04229.ns2171  ---|          LDN    CICS        INCREMENT CP AREA FIELD FUNCTION CODE
05838  M01S04230.ns2171  ---|          STD    CM
05839  M01S04231.ns2171  ---|          LDK    ACLW        ADDRESS OF MASS STORAGE SECTOR LIMIT
05840  M01S04232.ns2171  ---|          STD    CM+1
05841  M01S04233.ns2171  ---|          LDN    0D*100+18D  POSITION AND WIDTH OF LIMIT FIELD
05842  M01S04234.ns2171  ---|          STD    CM+2
05843  M01S04235.ns2171  ---|          LDD    MA          UADM FUNCTION MESSAGE BUFFER CONTENTS
05844  M01S04236.ns2171  ---|          CWD    CM
05845  M01S04237.ns2171  ---|          LDN    1           SET UADM REQUEST COUNT AND NO DROP PPU
05846  M01S04238.ns2171  ---|          STD    CM+1
05847  M01S04239.ns2171  ---|          STD    CM+2
05848  M01S04240.ns2171  ---|          MONITOR UADM       INCREMENT MASS STORAGE SECTOR LIMIT
05849  M01S04241.ns2171  ---|
Line S00085 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05850  M01S00085.ns2171  +++|          LDD    CM+3        SET COUNT OF SECTORS RETURNED
05851  M01S00086.ns2171  +++|          STM    DPPB
05852  M01S00087.ns2171  +++|          LDD    CM+4
05853  M01S00088.ns2171  +++|          STM    DPPB+1
05854  M01S00089.ns2171  +++|          LDN    CICS        SET INCREMENT SUBFUNCTION
05855  M01S00090.ns2171  +++|          STM    DPPA
05856  M00S04242.lfm     +++| ECS17    LDD    FA
05857  M00S04243.lfm     +++|          ZJN    ECS18       IF NO FNT ENTRY
05858  M00S04244.lfm     +++|          STD    CM+4
05859  M00S04245.lfm     +++|          LDN    DLFS        CLEAR FNT ENTRY
05860  M00S04246.lfm     +++|          STD    CM+1
05861  M00S04247.lfm     +++|          MONITOR  PLFM
05862  M00S04248.lfm     +++|*         LDN    0           CLEAR FNT ADDRESS
05863  M00S04249.lfm     +++|          STD    FA
05864  M00S04250.lfm     +++| ECS18    LJM    LFMX        EXIT
05865  M00S04251.lfm     +++| PCS      SPACE  4,10
05866  M00S04252.lfm     +++|***       FUNCTION 23.
Line S04253 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05867  M01S04253.v23l617 ---|*         POSITION CONTROL STATEMENT FILE.
Line S00135 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05868  M01S00135.v23l617 +++|*         POSITION COMMAND FILE.
05869  M00S04254.lfm     +++|*
05870  M00S04255.lfm     +++|*         ENTRY -
05871  M00S04256.lfm     +++|*T FET+6  12/,24/  CS,24/  WC
Figure FET+6

0232429 WC CS30474859 CS


Line S04257 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05872  M01S04257.v23l617 ---|*         CS     STATEMENT COUNT
Line S00136 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05873  M01S00136.v23l617 +++|*         CS     COMMAND COUNT
05874  M00S04258.lfm     +++|*         WC     WORD COUNT FROM BEGINNING OF FILE
05875  M00S04259.lfm     +++|
05876  M00S04260.lfm     +++|
05877  M00S04261.lfm     +++|          ENTRY  PCS
Line S04262 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05878  M01S04262.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT FST ENTRY
Line S00137 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05879  M01S00137.v23l617 +++|          LDD    CP          READ COMMAND FST ENTRY
05880  M00S04263.lfm     +++|          ADN    CSSW
05881  M00S04264.lfm     +++|          CRD    FS
05882  M00S04265.lfm     +++|          LDD    FS          SET EQUIPMENT
05883  M00S04266.lfm     +++|          LPC    777
05884  M00S04267.lfm     +++|          STD    T5
05885  M00S04268.lfm     +++|          LDD    FS+1        SET FIRST TRACK
05886  M00S04269.lfm     +++|          STD    T6
05887  M00S04270.lfm     +++|          NJN    PCS1        IF FILE EXISTS
05888  M00S04271.lfm     +++|          LDN    /ERR/FLE    FILE EMPTY
05889  M00S04272.lfm     +++|          LJM    ERR         PROCESS ERROR
05890  M00S04273.lfm     +++|
05891  M00S04274.lfm     +++| PCS1     RJM    CPA         READ (FET+6)
05892  M00S04275.lfm     +++|          ADN    6
05893  M00S04276.lfm     +++|          CRD    CN
05894  M00S04277.lfm     +++|          LDD    CN+4        SET RANDOM INDEX
05895  M00S04278.lfm     +++|          SCN    77
05896  M00S04279.lfm     +++|          SHN    6
05897  M00S04280.lfm     +++|          LMD    CN+3
05898  M00S04281.lfm     +++|          SHN    6
05899  M00S04282.lfm     +++|          ADN    FSMS
05900  M00S04283.lfm     +++|          STD    RI+1
05901  M00S04284.lfm     +++|          SHN    -14
05902  M00S04285.lfm     +++|          STD    RI
Line S04286 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05903  M01S04286.v23l617 ---|          RJM    PCF         POSITION CONTROL STATEMENT FILE
Line S00138 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05904  M01S00138.v23l617 +++|          RJM    PCF         POSITION COMMAND FILE
05905  M00S04287.lfm     +++|          CWD    FS
05906  M00S04288.lfm     +++|          LJM    LFMX        RETURN
05907  M00S04289.lfm     +++|
05908  M00S04290.lfm     +++| PCF      SPACE  4,25
Line S04291 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05909  M01S04291.v23l617 ---|**        PCF - POSITION CONTROL STATEMENT FILE.
Line S00139 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05910  M01S00139.v23l617 +++|**        PCF - POSITION COMMAND FILE.
05911  M00S04292.lfm     +++|*
05912  M00S04293.lfm     +++|*         ENTRY  (RI - RI+1) = CURRENT RANDOM ADDRESS.
Line S04294 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05913  M01S04294.v23l617 ---|*                (CN+1 - CN+2) = CONTROL STATEMENT COUNT.
Line S00140 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05914  M01S00140.v23l617 +++|*                (CN+1 - CN+2) = COMMAND COUNT.
05915  M00S04295.lfm     +++|*                (CN+3 - CN+4) =  WORD COUNT. FROM ECS THIS IS A 6 BIT
05916  M00S04296.lfm     +++|*                WORD COUNT IN CN+4 RELATIVE TO THE PRU AND CN+3 = 0.
05917  M00S04297.lfm     +++|*                IF FROM PCS THIS IS A 24 BIT WORD COUNT FROM THE
05918  M00S04298.lfm     +++|*                BEGINNING OF FILE.
05919  M00S04299.lfm     +++|*                (FS - FS+4) = FST ENTRY.
Line S04300 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05920  M01S04300.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
Line S00442 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05921  M01S00442.ns22000 +++|*                (T5) = EST ORDINAL.
05922  M00S04301.lfm     +++|*                (T6) = FIRST TRACK.
05923  M00S04302.lfm     +++|*
05924  M00S04303.lfm     +++|*         EXIT   (SP - SP+4) = WORD CSPW.
05925  M00S04304.lfm     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
05926  M00S04305.lfm     +++|*                (A) = ADDRESS OF WORD *CSSW*.
05927  M00S04306.lfm     +++|*
Line S04307 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05928  M01S04307.242l642 ---|*         ERROR  TO *ERR*, IF CURRENT RANDOM ADDRESS = 0.
Line S00124 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05929  M01S00124.242l642 +++|*         ERROR  TO *ERR*, IF CURRENT RANDOM ADDRESS = 0, OR IF MASS
05930  M01S00125.242l642 +++|*                STORAGE DEVICE ENCOUNTERED AN I/O ERROR.
05931  M00S04308.lfm     +++|*
05932  M00S04309.lfm     +++|*         USES   T2, T4, T6, T7, CN+4.
05933  M00S04310.lfm     +++|*
05934  M00S04311.lfm     +++|*         CALLS  CRA, RNS.
05935  M00S04312.lfm     +++|*
05936  M00S04313.lfm     +++|*         MACROS ENDMS, SETMS.
05937  M00S04314.lfm     +++|
05938  M00S04315.lfm     +++|
05939  M00S04316.lfm     +++| PCF      SUBR               ENTRY
05940  M00S04317.lfm     +++|          LDD    RI          CHECK CURRENT RANDOM ADDRESS
05941  M00S04318.lfm     +++|          ADD    RI+1
05942  M00S04319.lfm     +++|          NJN    PCF1        IF CURRENT RANDOM ADDRESS .NE. 0
Line S04320 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05943  M01S04320.v23l617 ---|          LDN    /ERR/IRA    * ILLEGAL RANDOM ADDRESS.*
Line S00141 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05944  M01S00141.v23l617 +++|          LDN    /ERR/IRA    * INCORRECT RANDOM ADDRESS.*
05945  M00S04321.lfm     +++|          LJM    ERR         PROCESS ERROR
05946  M00S04322.lfm     +++|
Line S04323 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05947  M01S04323.v23l617 ---| PCF1     LDD    CP          READ CONTROL STATEMENT POINTER
Line S00142 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05948  M01S00142.v23l617 +++| PCF1     LDD    CP          READ COMMAND POINTER
05949  M00S04324.lfm     +++|          ADN    CSPW
05950  M00S04325.lfm     +++|          CRD    SP
05951  M00S04326.lfm     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
05952  M00S04327.lfm     +++|          PJN    PCF3        IF ADDRESS ON FILE
05953  M00S04328.lfm     +++|          LDM    ECSB
05954  M00S04329.lfm     +++|          ZJN    PCF2        IF NOT ORIGINAL JOB INPUT FILE
05955  M00S04330.lfm     +++|          LJM    PCF8        SET *EOR*
05956  M00S04331.lfm     +++|
05957  M00S04332.lfm     +++| PCF2     LDD    FS+1        SET FIRST TRACK
05958  M00S04333.lfm     +++|          STD    T6
05959  M00S04334.lfm     +++|          LDN    FSMS        SET FIRST SECTOR
05960  M00S04335.lfm     +++|          STD    T7
05961  M00S04336.lfm     +++|          LDN    0           CLEAR WORD COUNT
05962  M00S04337.lfm     +++|          STD    CN+4
05963  M00S04338.lfm     +++| PCF3     LDD    T6          SET CURRENT TRACK
05964  M00S04339.lfm     +++|          STD    FS+2
05965  M00S04340.lfm     +++|          LDD    T7          SET CURRENT SECTOR
05966  M00S04341.lfm     +++|          STD    FS+3
Line S04342 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05967  M01S04342.242l642 ---|          SETMS  READ,NE
Line S00126 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05968  M01S00126.242l642 +++|          SETMS  IO
05969  M00S04343.lfm     +++|          LDC    BFMS        READ SECTOR
05970  M00S04344.lfm     +++|          RJM    RNS
05971  M00S04345.lfm     +++|          ENDMS
05972  M00S04346.lfm     +++|          LDD    T1
05973  M00S04347.lfm     +++|          NJN    PCF4        IF NOT EMPTY SECTOR
05974  M00S04348.lfm     +++|          LJM    PCF8        PROCESS *EOR*
05975  M00S04349.lfm     +++|
05976  M00S04350.lfm     +++| PCF4     LDD    CN+4
05977  M00S04351.lfm     +++|          ADD    CN+3
05978  M00S04352.lfm     +++|          ZJN    PCF5        IF POSITIONING TO BEGINNING
05979  M00S04353.lfm     +++|          LDD    CN+4
05980  M00S04354.lfm     +++|          LPN    77
05981  M00S04355.lfm     +++|          SBD    T1
05982  M00S04356.lfm     +++|          SBN    1
05983  M00S04357.lfm     +++|          MJN    PCF5        IF WORD COUNT ON FILE
05984  M00S04358.lfm     +++|          LJM    PCF8        SET *EOR*
05985  M00S04359.lfm     +++|
Line S04360 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05986  M01S04360.v23l617 ---| PCF5     LDD    CN+1        SET CONTROL STATEMENT COUNT
Line S00143 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05987  M01S00143.v23l617 +++| PCF5     LDD    CN+1        SET COMMAND COUNT
05988  M00S04361.lfm     +++|          LPC    3777
05989  M00S04362.lfm     +++|          STD    SP+1
05990  M00S04363.lfm     +++|          LDD    CN+2
05991  M00S04364.lfm     +++|          STD    SP+2
05992  M00S04365.lfm     +++|          LDC    CSBN        SET FIRST BUFFER ADDRESS
05993  M00S04366.lfm     +++|          STD    SP+3
05994  M00S04367.lfm     +++|          LDD    T6          UPDATE TRACK
05995  M00S04368.lfm     +++|          STD    FS+2
05996  M00S04369.lfm     +++|          LDD    T7          UPDATE SECTOR
05997  M00S04370.lfm     +++|          STD    FS+3
05998  M00S04371.lfm     +++|          LDN    0           CLEAR WORD COUNT
05999  M00S04372.lfm     +++|          STD    FS+4
06000  M00S04373.lfm     +++|          NFA    SP+3,R      WRITE NEXT SECTOR INTO BUFFER
06001  M00S04374.lfm     +++|          CWM    BFMS+2,T1
Line S04375 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06002  M01S04375.v23l617 ---|          LDD    SP+3        SET STATEMENT LIMIT
Line S00144 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06003  M01S00144.v23l617 +++|          LDD    SP+3        SET COMMAND LIMIT
06004  M00S04376.lfm     +++|          SBD    T1
06005  M00S04377.lfm     +++|          STD    SP+4
06006  M00S04378.lfm     +++|          LDD    CN+4        SET POSITION IN BUFFER
06007  M00S04379.lfm     +++|          LPN    77
06008  M00S04380.lfm     +++|          LMC    -0
06009  M00S04381.lfm     +++|          RAD    SP+3
06010  M00S04382.lfm     +++|          LDD    T1
06011  M00S04383.lfm     +++|          LMD    HN
06012  M00S04384.lfm     +++|          ZJN    PCF7        IF NOT SHORT BLOCK
06013  M00S04385.lfm     +++| PCF6     LDC    4000        SET *EOR*
06014  M00S04386.lfm     +++|          RAD    SP+1
Line S04387 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06015  M01S04387.v23l617 ---| PCF7     LDD    CP          STORE STATEMENT POINTER
Line S00145 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06016  M01S00145.v23l617 +++| PCF7     LDD    CP          STORE COMMAND POINTER
06017  M00S04388.lfm     +++|          ADN    CSPW
06018  M00S04389.lfm     +++|          CWD    SP
06019  M00S04390.lfm     +++|          ADN    CSSW-CSPW   SET ADDRESS OF *CSSW*
06020  M00S04391.lfm     +++|          LJM    PCFX        EXIT
06021  M00S04392.lfm     +++|
06022  M00S04393.lfm     +++| PCF8     LDC    CSBN        SET BUFFER EMPTY
06023  M00S04394.lfm     +++|          STD    SP+3
06024  M00S04395.lfm     +++|          STD    SP+4
Line S04396 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06025  M01S04396.v23l617 ---|          LDN    0           CLEAR STATEMENT COUNT
Line S00146 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06026  M01S00146.v23l617 +++|          LDN    0           CLEAR COMMAND COUNT
06027  M00S04397.lfm     +++|          STD    SP+1
06028  M00S04398.lfm     +++|          STD    SP+2
06029  M00S04399.lfm     +++|          UJN    PCF6        SET *EOR*
Line S00005 Modification History
M01 (Added by) lfm19
Seq #  *Modification Id* Act 
----------------------------+
06030  M01S00005.lfm19   +++| ERX      SPACE  4,10
06031  M01S00006.lfm19   +++|**        ERX - EVALUATE MASS STORAGE ERROR RETURN.
06032  M01S00007.lfm19   +++|*
06033  M01S00008.lfm19   +++|*         ENTRY  (A) = ERROR RESPONSE FROM DRIVER.
06034  M01S00009.lfm19   +++|*                (T5) = EST ORDINAL.
06035  M01S00010.lfm19   +++|*                (FS - FS+4) = FST ENTRY.
06036  M01S00011.lfm19   +++|*
06037  M01S00012.lfm19   +++|*         USES   FS, IR+4, T0.
06038  M01S00013.lfm19   +++|*
06039  M01S00014.lfm19   +++|*         CALLS  ERR, SNB, *1RJ*.
06040  M01S00015.lfm19   +++|*
06041  M01S00016.lfm19   +++|*         MACROS EXECUTE, PAUSE.
06042  M01S00017.lfm19   +++|
06043  M01S00018.lfm19   +++|
06044  M01S00019.lfm19   +++| ERX      PSN                ENTRY
06045  M01S00020.lfm19   +++|          STD    T0          SAVE ERROR RESPONSE
06046  M01S00021.lfm19   +++|          LDD    FS          INSURE FST IN CORRECT FORMAT
06047  M01S00022.lfm19   +++|          LPC    777
06048  M01S00023.lfm19   +++|          STD    FS
06049  M01S00024.lfm19   +++|          LDD    T0
06050  M01S00025.lfm19   +++|          SHN    21-12
06051  M01S00026.lfm19   +++|          PJN    ERX2        IF ERROR RECOVERABLE
06052  M01S00027.lfm19   +++| ERX1     LDN    /ERR/CFE
06053  M01S00028.lfm19   +++|          LJM    ERR         PROCESS ERROR
06054  M01S00029.lfm19   +++|
06055  M01S00030.lfm19   +++| ERX2     LDM    MSD         CHECK CALLER
06056  M01S00031.lfm19   +++|          SHN    21-13
06057  M01S00032.lfm19   +++|          PJN    ERX1        IF SUBSYSTEM
06058  M01S00033.lfm19   +++| ERX3     PAUSE
06059  M01S00034.lfm19   +++|          LDD    CM+1
06060  M01S00035.lfm19   +++|          NJP    LFMX        IF ERROR FLAG SET
06061  M01S00036.lfm19   +++|          RJM    SNB         SET FST NONBUSY
06062  M01S00037.lfm19   +++|          LDD    T5          SET EST ORDINAL
06063  M01S00038.lfm19   +++|          STD    IR+4
06064  M01S00039.lfm19   +++|          EXECUTE  1RJ       RECALL JOB
06065  M00S04400.lfm     +++|          SPACE  4,10
06066  M00S04401.lfm     +++|**        COMMON DECKS.
06067  M00S04402.lfm     +++|
06068  M00S04403.lfm     +++|
Line S00040 Modification History
M01 (Added by) lfm19
Seq #  *Modification Id* Act 
----------------------------+
06069  M01S00040.lfm19   +++| MSR      EQU    ERX         ERROR PROCESSOR FOR *RNS*
06070  M00S04404.lfm     +++|*CALL     COMPCRA
06071  M00S04405.lfm     +++|*CALL     COMPRNS
Line S00020 Modification History
M01 (Added by) lfm17
Seq #  *Modification Id* Act 
----------------------------+
06072  M01S00020.lfm17   +++|          SPACE  4,10
06073  M01S00021.lfm17   +++|          ERRNG  OVL0-*      CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
06074  M01S00022.lfm17   +++|          OVERFLOW  OVL
06075  M00S04406.lfm     +++|          OVERLAY (GETFNT AND PRIMARY FUNCTIONS.)
06076  M00S04407.lfm     +++|          SPACE  4,10
06077  M00S04408.lfm     +++|****      ADDITIONAL DIRECT LOCATION ASSIGNMENTS.
06078  M00S04409.lfm     +++|
06079  M00S04410.lfm     +++|
06080  M00S04411.lfm     +++| CB       EQU    65          CONTROL BITS - GETFNT FUNCTION.
06081  M00S04412.lfm     +++|*                            TEMPORARY STORAGE - PRIMARY FUNCTION.
06082  M00S04413.lfm     +++| SB       EQU    66 - 67     FILE SELECTIVITY BITS - GETFNT FUNCTION.
06083  M00S04414.lfm     +++|****
06084  M00S04415.lfm     +++|          TITLE  GETFNT
06085  M00S04416.lfm     +++| GTF      SPACE  4,50
06086  M00S04417.lfm     +++|***       FUNCTION 25.
06087  M00S04418.lfm     +++|*         RETURN TABLE WITH FNT/FST ENTRIES (OPTIONALLY MODIFIED)
06088  M00S04419.lfm     +++|*         FOR ALL WORKING FILES.
06089  M00S04420.lfm     +++|*
06090  M00S04421.lfm     +++|*         ENTRY -
06091  M00S04422.lfm     +++|*T FET+8  12/NF, 6/, 18/SB, 2/, 1/F, 1/C, 1/M, 1/N, 18/TA
Figure FET+8

0171819202122232429TANMCFSB304142474859SBNF

06092  M00S04423.lfm     +++|*         WHERE -
06093  M00S04424.lfm     +++|*                NF = MAXIMUM NUMBER OF FILE FNT/FST ENTRIES TO
06094  M00S04425.lfm     +++|*                     RETURN IN TABLE.  TABLE SIZE MUST BE AT LEAST
06095  M00S04426.lfm     +++|*                     NF*2+1.  FOR NEW FORMAT, TABLE MUST BE AT
06096  M00S04427.lfm     +++|*                     LEAST NF*2+2.
06097  M00S04428.lfm     +++|*                SB = SELECTIVITY BITS.  BIT SET IMPLIES FILE TYPE
06098  M00S04429.lfm     +++|*                     SELECTED.  DEFAULT (*SB*=0) IS SELECTION OF
06099  M00S04430.lfm     +++|*                     ALL FILE TYPES.  BIT POSITIONS AND CORRESPONDING
06100  M00S04431.lfm     +++|*                     FILE TYPES ARE DEFINED AS FOLLOWS -
06101  M00S04432.lfm     +++|*
06102  M00S04433.lfm     +++|*                       BIT     FILE TYPE
06103  M00S04434.lfm     +++|*                     41-38        UNUSED
06104  M00S04435.lfm     +++|*                        37          LOFT
06105  M00S04436.lfm     +++|*                        36          SYFT
06106  M00S04437.lfm     +++|*                        35          FAFT
06107  M00S04438.lfm     +++|*                        34          PMFT
06108  M00S04439.lfm     +++|*                        33          PTFT
06109  M00S04440.lfm     +++|*                        32          LIFT
06110  M00S04441.lfm     +++|*                        31      RESERVED
06111  M00S04442.lfm     +++|*                        30      RESERVED
06112  M00S04443.lfm     +++|*                        29          QFFT
06113  M00S04444.lfm     +++|*                        28          TEFT
06114  M00S04445.lfm     +++|*                        27          PHQT
06115  M00S04446.lfm     +++|*                        26          PRQT
06116  M00S04447.lfm     +++|*                        25          ROFT
06117  M00S04448.lfm     +++|*                        24          INFT
06118  M00S04449.lfm     +++|*                F  = SET INDICATES THE NEW FORMAT TWO-WORD ENTRY IS
06119  M00S04450.lfm     +++|*                     TO BE RETURNED.  BITS 18 AND 19 (*M* AND *N*)
06120  M00S04451.lfm     +++|*                     ARE NOT CHECKED IF THIS BIT IS SET, SINCE THERE
06121  M00S04452.lfm     +++|*                     IS ONLY ONE FORMAT RETURNED IF *F* IS SET.
06122  M00S04453.lfm     +++|*                C  = SET IMPLIES TREAT CHECKPOINT FILES NORMALLY
06123  M00S04454.lfm     +++|*                     (LIKE ANY OTHER FILE).  NOT SET IMPLIES WRITE
06124  M00S04455.lfm     +++|*                     CHECKPOINT FILE FNT/FST ENTRIES IN FET+9, AND
06125  M00S04456.lfm     +++|*                     ONWARD.
06126  M00S04457.lfm     +++|*                M  = SET IMPLIES MODIFY FST ENTRIES OF MS FILES
06127  M00S04458.lfm     +++|*                     WITH LENGTH OF FILE.  NOT SET IMPLIES MODIFY
06128  M00S04459.lfm     +++|*                     WITH RANDOM INDEX.
06129  M00S04460.lfm     +++|*                N  = SET IMPLIES PERFORM NO MODIFICATION OF FST
06130  M00S04461.lfm     +++|*                     ENTRIES.  NOT SET IMPLIES PERFORM PERTINENT
06131  M00S04462.lfm     +++|*                     MODIFICATIONS.
06132  M00S04463.lfm     +++|*                TA = STARTING CM TABLE ADDRESS.
06133  M00S04464.lfm     +++|*
06134  M00S04465.lfm     +++|*         IF NEW FORMAT IS REQUESTED (*F* SET) -
06135  M00S04466.lfm     +++|*         (TA) = 48/, 12/ADDR
Line S00275 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06136  M01S00275.274l797 +++|*
06137  M00S04467.lfm     +++|*         WHERE -
06138  M00S04468.lfm     +++|*                ADDR  = 0, IF FIRST *GETFNT* CALL.
06139  M00S04469.lfm     +++|*                      = FWA OF THE LAST FNT ENTRY IN NFL PROCESSED BY
06140  M00S04470.lfm     +++|*                        LAST *GETFNT* CALL.
06141  M00S04471.lfm     +++|*
06142  M00S04472.lfm     +++|*         EXIT   IF *N* NOT SET -
06143  M00S04473.lfm     +++|*                (FET+8) .LT. 0 IF AT LEAST 1 ERROR ENCOUNTERED.
06144  M00S04474.lfm     +++|*                IF *C* NOT SET -
06145  M00S04475.lfm     +++|*                (FET+9) = CHECKPOINT FILE FNT.
06146  M00S04476.lfm     +++|*                        = 0 IF NONE PRESENT (USER MUST PRESET).
06147  M00S04477.lfm     +++|*                        .LT. 0 IF MORE THAN TWO.
06148  M00S04478.lfm     +++|*                (FET+10)= FST.
06149  M00S04479.lfm     +++|*                (FET+11)= ALTERNATE CHECKPOINT FILE FNT.
06150  M00S04480.lfm     +++|*                        = 0 IF NO ALTERNATE (USER MUST PRESET).
06151  M00S04481.lfm     +++|*                (FET+12)= FST.
06152  M00S04482.lfm     +++|*
06153  M00S04483.lfm     +++|*         WRITES TABLE OF FNT/FST ENTRIES TO A CENTRAL MEMORY TABLE
06154  M00S04484.lfm     +++|*         AND TERMINATES WITH A ZERO WORD.  IF THE NEW FORMAT IS
06155  M00S04485.lfm     +++|*         REQUESTED (BIT 21 SET), THE FIRST WORD OF THE TABLE
06156  M00S04486.lfm     +++|*         CONTAINS AN ADDRESS AND THE FIRST FNT ENTRY
06157  M00S04487.lfm     +++|*         BEGINS IN THE SECOND WORD OF THE TABLE.  FOR MASS
06158  M00S04488.lfm     +++|*         STORAGE FILES, BYTES 2 AND 3 OF FST ENTRY CAN BE MODIFIED
06159  M00S04489.lfm     +++|*         WITH EITHER A RANDOM INDEX (CONVERTED FROM CURRENT TRACK
06160  M00S04490.lfm     +++|*         AND SECTOR), OR THE FILE S LENGTH (NUMBER OF SECTORS).
06161  M00S04491.lfm     +++|*         OPTIONALLY, FOR TAPE FILES, FST ENTRY CAN BE MODIFIED
06162  M00S04492.lfm     +++|*         WITH *MT* IN BYTE 1 AND BLOCK NUMBER IN BYTES 2 AND 3.
06163  M00S04493.lfm     +++|*         MODIFICATION CAN BE DONE ONLY IF THE OLD FORMAT
06164  M00S04494.lfm     +++|*         IS TO BE RETURNED IN THE TABLE.
06165  M00S04495.lfm     +++|*
06166  M00S04496.lfm     +++|*         IF NEW FORMAT IS SELECTED (*F* SET) -
06167  M00S04497.lfm     +++|*         (TA) = 48/, 12/ADDR
Line S00276 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06168  M01S00276.274l797 +++|*
06169  M00S04498.lfm     +++|*         WHERE -
06170  M00S04499.lfm     +++|*                ADDR  = 0, IF SEARCH COMPLETE.
06171  M00S04500.lfm     +++|*                      = FWA OF THE LAST FNT ENTRY IN NFL PROCESSED
06172  M00S04501.lfm     +++|*                        BY THIS *GETFNT* CALL.
06173  M00S04502.lfm     +++|*
06174  M00S04503.lfm     +++|*         OLD FORMAT OF TWO-WORD TABLE ENTRY RETURNED (*F* NOT SET) -
06175  M00S04504.lfm     +++|*
06176  M00S04505.lfm     +++|*T        42/FILENAME, 1/, 3/M, 1/, 1/W, 6/FT, 6/FS
Figure

0561112131416171829FSFTWMFILENAME3059FILENAME


Line S04506 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06177  M01S04506.ns22000 ---|*T+1      6/ID,6/EQ,48/D
Line S00443 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06178  M01S00443.ns22000 +++|*T,       12/EQ,48/D
Figure

029D30474859DEQ

06179  M00S04507.lfm     +++|*
06180  M00S04508.lfm     +++|*         NEW FORMAT OF TWO-WORD TABLE ENTRY RETURNED (*F* SET) -
06181  M00S04509.lfm     +++|*
Line S04510 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06182  M01S04510.ns21000 ---|*T        42/FILENAME, 3/M, 2/I, 1/W, 6/FT, 6/FS
Figure

0561112131415171829FSFTWIMFILENAME3059FILENAME

06183  M01S04511.ns21000 ---|*T+1      24/FL, 24/RB, 8/RESERVED, 3/RS, 1/L
Line S00004 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06184  M02S00004.ns22000 ---|*T        42/FILENAME, 3/RES, 2/I, 1/W, 6/FT, 6/FS
Figure

0561112131415171829FSFTWIRESFILENAME3059FILENAME


Line S00444 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06185  M01S00444.ns22000 +++|*T        42/ FILENAME,3/ AL,2/ I,1/W,6/ FT,6/ FS
Figure

0561112131415171829 FS FTW I AL FILENAME3059 FILENAME


Line S00005 Modification History
M01 (Added by) ns21000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06186  M02S00005.242l642 ---|*T+1      24/FL, 24/RB, 4/RES, 4/M, 3/RS, 1/L
Line S00127 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06187  M01S00127.242l642 +++|*T+1      24/FL ,24/RB, 3/RES, 1/F ,4/M 3/RS, 1/L
Line S00277 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06188  M01S00277.274l797 +++|*
06189  M00S04512.lfm     +++|*         WHERE -
Line S00445 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06190  M01S00445.ns22000 +++|*                AL = FILE ACCESS LEVEL.
06191  M00S04513.lfm     +++|*                D  = INFORMATION DEPENDS ON FILE TYPE AND/OR WHETHER
06192  M00S04514.lfm     +++|*                      OR NOT FST MODIFICATION IS SELECTED.
06193  M00S04515.lfm     +++|*                     IF TTY FILE -
06194  M00S04516.lfm     +++|*                     D = 12/*TT*, 36/
06195  M00S04517.lfm     +++|*                     IF TAPE FILE -
06196  M00S04518.lfm     +++|*                     D = 12/*MT*, 24/BLOCK COUNT, 12/
06197  M00S04519.lfm     +++|*                     IF MS FILE AND *M* SET -
06198  M00S04520.lfm     +++|*                     D = 12/, 24/RANDOM INDEX, 12/
06199  M00S04521.lfm     +++|*                     IF MS FILE AND *M* NOT SET -
06200  M00S04522.lfm     +++|*                     D = 12/, 24/FILE LENGTH, 12/
Line S00278 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06201  M01S00278.274l797 +++|*                     IF OPTICAL DISK FILE AND *M* SET -
06202  M01S00279.274l797 +++|*                     D = 12/*OD*, 24/RANDOM INDEX, 12/
06203  M01S00280.274l797 +++|*                     IF OPTICAL DISK FILE AND *M* NOT SET -
06204  M01S00281.274l797 +++|*                     D = 12/*OD*, 24/FILE LENGTH, 12/
Line S04523 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06205  M01S04523.ns22000 ---|*                EQ = EQUIPMENT NUMBER.
Line S00446 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06206  M01S00446.ns22000 +++|*                EQ = EST ORDINAL.
06207  M00S04524.lfm     +++|*                FL = FILE LENGTH (IF MS).
06208  M00S04525.lfm     +++|*                   = 0 (IF TAPE, TTY, OR OTHER).
06209  M00S04526.lfm     +++|*                FS = FILE STATUS.
06210  M00S04527.lfm     +++|*                FT = FILE TYPE.
06211  M00S04528.lfm     +++|*                I  = 0, IF MS FILE.
06212  M00S04529.lfm     +++|*                   = 1, IF TAPE FILE.
06213  M00S04530.lfm     +++|*                   = 2, IF TTY FILE.
06214  M00S04531.lfm     +++|*                   = 3, IF NOT MS, TAPE, OR TTY FILE.
06215  M00S04532.lfm     +++|*                L  = SET IF LAST OPERATION WAS WRITE.
Line S04533 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06216  M01S04533.ns21000 ---|*                M  = MODE OF USE ALLOWED -
Line S00006 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06217  M01S00006.ns21000 +++|*                M  = MODE OF USE ALLOWED.
06218  M01S00007.ns21000 +++|*                     NEW FORMAT -
06219  M00S04534.lfm     +++|*                     0 = READ.
06220  M00S04535.lfm     +++|*                     1 = WRITE.
06221  M00S04536.lfm     +++|*                     2 = MODIFY.
06222  M00S04537.lfm     +++|*                     3 = APPEND.
06223  M00S04538.lfm     +++|*                     4 = EXECUTE.
06224  M00S04539.lfm     +++|*                     5 = READ ALLOW MODIFY.
06225  M00S04540.lfm     +++|*                     6 = READ ALLOW APPEND.
Line S04541 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06226  M01S04541.ns21000 ---|*                     7  = RESERVED.
Line S00008 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06227  M01S00008.ns21000 +++|*                     7 = UPDATE.
06228  M01S00009.ns21000 +++|*                     10 = READ ALLOW UPDATE.
06229  M01S00010.ns21000 +++|*                     11-17 = RESERVED.
06230  M01S00011.ns21000 +++|*                     OLD FORMAT -
06231  M01S00012.ns21000 +++|*                     BIT 16 - SET IF EXTEND-ONLY FILE.
06232  M01S00013.ns21000 +++|*                     BIT 15 - SET IF ALTER-ONLY FILE.
06233  M01S00014.ns21000 +++|*                     BIT 14 - SET IF EXECUTE-ONLY FILE.
06234  M00S04542.lfm     +++|*                RB = RANDOM INDEX (IF MS).
06235  M00S04543.lfm     +++|*                   = BLOCK COUNT (IF TAPE).
06236  M00S04544.lfm     +++|*                   = 77777777 (IF TAPE BUT *MAGNET* NOT PRESENT.)
06237  M00S04545.lfm     +++|*                   = 0 (IF TTY OR OTHER).
Line S00015 Modification History
M01 (Added by) ns21000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06238  M02S00015.242l642 ---|*                RES = RESERVED.
Line S00128 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06239  M01S00128.242l642 +++|*                F  = THE FILE ERROR STATUS.  SET IF THE FILE IS
06240  M01S00129.242l642 +++|*                     ON A DEVICE THAT IS NOT AVAILABLE.
06241  M00S04546.lfm     +++|*                RS = READ STATUS (MS ONLY).
06242  M00S04547.lfm     +++|*                     0 = INCOMPLETE READ.
06243  M00S04548.lfm     +++|*                     1 = EOR.
06244  M00S04549.lfm     +++|*                     2 = EOF.
06245  M00S04550.lfm     +++|*                     3 = EOI.
06246  M00S04551.lfm     +++|*                     4 = BOI.
06247  M00S04552.lfm     +++|*                     5-7 = RESERVED.
06248  M00S04553.lfm     +++|*                S  = SET IF SYSTEM SECTOR CONTAINS CONTROL
06249  M00S04554.lfm     +++|*                     INFORMATION.
06250  M00S04555.lfm     +++|*                W  = SET IF WRITE LOCKOUT.
06251  M00S04556.lfm     +++|
06252  M00S04557.lfm     +++|
06253  M00S04558.lfm     +++|          ENTRY  GTF
06254  M00S04559.lfm     +++|          RJM    CPA         READ FET+CFPN
06255  M00S04560.lfm     +++|          ADN    CGNT
06256  M00S04561.lfm     +++|          CRD    CN
06257  M00S04562.lfm     +++|          RJM    CCP         CRACK CALLING PARAMETERS
06258  M00S04563.lfm     +++|          MJN    GTF1        IF ERROR
06259  M00S04564.lfm     +++|          LDD    CN+3        CHECK IF TABLE WITHIN RANGE
06260  M00S04565.lfm     +++|          SHN    14
06261  M00S04566.lfm     +++|          LMD    CN+4
06262  M00S04567.lfm     +++|          ADD    CN
06263  M00S04568.lfm     +++|          ADD    CN
06264  M00S04569.lfm     +++|          ADN    1
06265  M00S04570.lfm     +++|          ADD    FT+1
06266  M00S04571.lfm     +++|          SHN    -6
06267  M00S04572.lfm     +++|          SBD    FL
06268  M00S04573.lfm     +++|          MJN    GTF3        IF WITHIN RANGE
06269  M00S04574.lfm     +++|          LDN    /ERR/GTL    * GETFNT TABLE TOO LARGE.*
06270  M00S04575.lfm     +++|          UJN    GTF2       ABORT
06271  M00S04576.lfm     +++|
06272  M00S04577.lfm     +++| GTF1     LDN    /ERR/FTS    * FET TOO SHORT.*
06273  M00S04578.lfm     +++| GTF2     LJM    ERR         PROCESS ERROR
06274  M00S04579.lfm     +++|
06275  M00S04580.lfm     +++|*         DETERMINE FNT ENTRY FROM WHICH TO BEGIN SCAN.
06276  M00S04581.lfm     +++|
06277  M00S04582.lfm     +++| GTF3     LDC    FNTN-LENF   FWA OF FNTS IN NFL
06278  M00S04583.lfm     +++|          STD    FT+4
06279  M00S04584.lfm     +++|          LDD    FT+1
06280  M00S04585.lfm     +++|          ZJN    GTF7        IF OLD FORMAT
06281  M00S04586.lfm     +++|          LDD    CN+4        SAVE FWA OF TABLE
06282  M00S04587.lfm     +++|          STM    GTFA+1
06283  M00S04588.lfm     +++|          LDD    CN+3        READ FIRST WORD OF TABLE
06284  M00S04589.lfm     +++|          STM    GTFA
06285  M00S04590.lfm     +++|          SHN    6
06286  M00S04591.lfm     +++|          ADD    RA
06287  M00S04592.lfm     +++|          SHN    6
06288  M00S04593.lfm     +++|          ADD    CN+4
06289  M00S04594.lfm     +++|          CRD    FS
06290  M00S04595.lfm     +++|          LDD    FS+4
06291  M00S04596.lfm     +++|          ZJN    GTF6        IF NO ADDRESS
06292  M00S04597.lfm     +++|          SBD    FT+4        (ADDRESS) - (FWA OF FNT-S)
06293  M00S04598.lfm     +++|          MJN    GTF4        IF ADDRESS OUT OF RANGE
06294  M00S04599.lfm     +++|          LDD    FT
06295  M00S04600.lfm     +++|          SHN    6
06296  M00S04601.lfm     +++|          SBD    FS+4        (LWA OF FNT-S) - (ADDRESS)
06297  M00S04602.lfm     +++|          PJN    GTF5        IF ADDRESS NOT OUT OF RANGE
06298  M00S04603.lfm     +++| GTF4     LDN    /ERR/AOR    * ADDRESS OUT OF RANGE.*
06299  M00S04604.lfm     +++|          UJN    GTF2        PROCESS ERROR
06300  M00S04605.lfm     +++|
06301  M00S04606.lfm     +++| GTF5     LDD    FS+4
06302  M00S04607.lfm     +++|          STD    FT+4        SAVE ADDRESS (LAST FNT PROCESSED)
06303  M00S04608.lfm     +++| GTF6     AOD    CN+4        ADVANCE TABLE ADDRESS (NEW FORMAT ONLY)
06304  M00S04609.lfm     +++|          SHN    -14
06305  M00S04610.lfm     +++|          RAD    CN+3
06306  M00S04611.lfm     +++|
06307  M00S04612.lfm     +++|*         SCAN FNT FOR FILES REQUESTED.
06308  M00S04613.lfm     +++|
06309  M00S04614.lfm     +++| GTF7     LDN    LENF        GET NEXT FNT ENTRY
06310  M00S04615.lfm     +++|          RAD    FT+4
06311  M00S04616.lfm     +++|          SHN    -6
06312  M00S04617.lfm     +++|          SBD    FT
06313  M00S04618.lfm     +++|          MJN    GTF8        IF NOT END OF FNTS
06314  M00S04619.lfm     +++|          LDN    0           CLEAR FNT ADDRESS
06315  M00S04620.lfm     +++|          STD    FT+4
06316  M00S04621.lfm     +++|          LJM    GTF15       TERMINATE SCAN
06317  M00S04622.lfm     +++|
06318  M00S04623.lfm     +++| GTF8     NFA    FT+4,R
06319  M00S04624.lfm     +++|          CRD    FN          FNT
06320  M00S04625.lfm     +++|          ADN    FSTL
06321  M00S04626.lfm     +++|          CRD    FS          FST
Line S00447 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06322  M01S00447.ns22000 +++|          ADN    FUTL-FSTL
06323  M01S00448.ns22000 +++|          CRD    CM          FUT
06324  M01S00449.ns22000 +++|          LDD    CM+2        GET FILE ACCESS LEVEL
06325  M01S00450.ns22000 +++|          SHN    3
06326  M01S00451.ns22000 +++|          LPN    70
06327  M01S00452.ns22000 +++|          STD    AL
06328  M00S04627.lfm     +++|          LDD    FN
06329  M00S04628.lfm     +++|          ZJN    GTF7        IF EMPTY ENTRY
06330  M00S04629.lfm     +++|          RJM    CFS         CHECK FILE SELECTIVITY
06331  M00S04630.lfm     +++|          PJN    GTF7        IF FILE NOT SELECTED
06332  M00S04631.lfm     +++|          LDD    FT+1
06333  M00S04632.lfm     +++|          ZJN    GTF9        IF OLD FORMAT
06334  M00S04633.lfm     +++|          RJM    RFE         REFORMAT FNT ENTRY (NEW FORMAT ONLY)
Line S00453 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06335  M01S00453.ns22000 +++|          LDD    AL          SET FILE ACCESS LEVEL IN FNT ENTRY
06336  M01S00454.ns22000 +++|          RAD    FN+3
06337  M00S04634.lfm     +++|          UJN    GTF10       MODIFY FST
06338  M00S04635.lfm     +++|
06339  M00S04636.lfm     +++| GTF9     LDD    CB          CHECK IF FST MODIFICATION DESIRED
06340  M00S04637.lfm     +++|          SHN    21-0
06341  M00S04638.lfm     +++|          MJN    GTF11       IF NO MODIFICATION DESIRED
06342  M00S04639.lfm     +++| GTF10    RJM    MFF
Line S04640 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06343  M01S04640.ns22000 ---|          NJN    GTF7        IF ERROR EXIT
Line S00455 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06344  M01S00455.ns22000 +++|          NJP    GTF7        IF ERROR EXIT
06345  M00S04641.lfm     +++|
06346  M00S04642.lfm     +++|*         CHECK FOR CHECKPOINT FILE.
06347  M00S04643.lfm     +++|
06348  M00S04644.lfm     +++| GTF11    LDD    CB          CHECK FOR NORMAL TREATMENT
06349  M00S04645.lfm     +++|          SHN    21-2
06350  M00S04646.lfm     +++|          MJN    GTF14       IF CHECKPOINT FILES TO BE TREATED NORMALLY
06351  M00S04647.lfm     +++|          LDD    FN+4
06352  M00S04648.lfm     +++|          LPN    77
06353  M00S04649.lfm     +++|          LMN    CBST
06354  M00S04650.lfm     +++|          ZJN    GTF12       IF CHECKPOINT FILE TYPE *CB*
06355  M00S04651.lfm     +++|          LMN    CKST&CBST
06356  M00S04652.lfm     +++|          NJN    GTF14       IF NOT CHECKPOINT FILE TYPE *CK*
06357  M00S04653.lfm     +++| GTF12    RJM    PCF         PROCESS CHECKPOINT FILE
06358  M00S04654.lfm     +++|          NJN    GTF15       IF ERROR
06359  M00S04655.lfm     +++| GTF13    LJM    GTF7        GET NEXT FNT ENTRY
06360  M00S04656.lfm     +++|
06361  M00S04657.lfm     +++|*         ENTER FNT/FST IN TABLE AND ADVANCE TABLE POINTER.
06362  M00S04658.lfm     +++|
06363  M00S04659.lfm     +++| GTF14    LDD    CN+3
06364  M00S04660.lfm     +++|          SHN    6
06365  M00S04661.lfm     +++|          ADD    RA
06366  M00S04662.lfm     +++|          SHN    6
06367  M00S04663.lfm     +++|          ADD    CN+4
06368  M00S04664.lfm     +++|          CWD    FN
06369  M00S04665.lfm     +++|          ADN    FSTL
06370  M00S04666.lfm     +++|          CWD    FS
06371  M00S04667.lfm     +++|          LDN    2           ADVANCE TABLE POINTER
06372  M00S04668.lfm     +++|          RAD    CN+4
06373  M00S04669.lfm     +++|          SHN    -14
06374  M00S04670.lfm     +++|          RAD    CN+3
06375  M00S04671.lfm     +++|          SOD    CN          DECREMENT FILE COUNTER
06376  M00S04672.lfm     +++|          NJN    GTF13       IF TABLE NOT FULL
06377  M00S04673.lfm     +++|
06378  M00S04674.lfm     +++|*         TERMINATE SCAN.
06379  M00S04675.lfm     +++|
06380  M00S04676.lfm     +++| GTF15    LDN    ZERL        CLEAR LAST WORD OF TABLE
06381  M00S04677.lfm     +++|          CRD    CM
06382  M00S04678.lfm     +++|          LDD    CN+3
06383  M00S04679.lfm     +++|          SHN    6
06384  M00S04680.lfm     +++|          ADD    RA
06385  M00S04681.lfm     +++|          SHN    6
06386  M00S04682.lfm     +++|          ADD    CN+4
06387  M00S04683.lfm     +++|          CWD    CM
06388  M00S04684.lfm     +++|          LDD    FT+1
06389  M00S04685.lfm     +++|          ZJN    GTF16       IF OLD FORMAT
06390  M00S04686.lfm     +++|          LDD    FT+4        SAVE ZERO OR LAST FNT PROCESSED
06391  M00S04687.lfm     +++|          STD    CM+4
06392  M00S04688.lfm     +++|          LDM    GTFA        REWRITE FIRST WORD OF TABLE
06393  M00S04689.lfm     +++|          SHN    6
06394  M00S04690.lfm     +++|          ADD    RA
06395  M00S04691.lfm     +++|          SHN    6
06396  M00S04692.lfm     +++|          ADM    GTFA+1
06397  M00S04693.lfm     +++|          CWD    CM
06398  M00S04694.lfm     +++| GTF16    RJM    CPA         RESET FILE NAME
06399  M00S04695.lfm     +++|          CRD    FN
06400  M00S04696.lfm     +++|          LJM    LFMX        EXIT
06401  M00S04697.lfm     +++|
06402  M00S04698.lfm     +++|
06403  M00S04699.lfm     +++| GTFA     BSS    2           FWA OF TABLE
06404  M00S04700.lfm     +++|          TITLE  PRIMARY
06405  M00S04701.lfm     +++| PRI      SPACE  4,10
06406  M00S04702.lfm     +++|***       FUNCTION 31.
06407  M00S04703.lfm     +++|*         MAKE FILE PRIMARY.
06408  M00S04704.lfm     +++|*         THIS FUNCTION MAKES THE SPECIFIED FILE THE USER S NEW
06409  M00S04705.lfm     +++|*         PRIMARY FILE. ANY EXISTING PRIMARY, WHICH IS NOT THE
06410  M00S04706.lfm     +++|*         SPECIFIED FILE, IS CHANGED TO TYPE *LOFT*.
06411  M00S04707.lfm     +++|*         THE SPECIFIED FILE MUST BE OF TYPE LOCAL AND BE A MASS
06412  M00S04708.lfm     +++|*         STORAGE FILE TO BE MADE PRIMARY.
06413  M00S04709.lfm     +++|*         THE FILE S FST ADDRESS IS SET INTO THE CPA.
06414  M00S04710.lfm     +++|          SPACE  4,10
06415  M00S04711.lfm     +++|**        PRI - PROCESS PRIMARY FUNCTION.
06416  M00S04712.lfm     +++|*
06417  M00S04713.lfm     +++|*         ENTRY  (FN - FN+3) = WORKING FILE NAME TO BE MADE PRIMARY.
06418  M00S04714.lfm     +++|*                (FF) = INITIAL FNT ADDRESS FOR SEARCH.
06419  M00S04715.lfm     +++|*
06420  M00S04716.lfm     +++|*         EXIT   (FN - FN+3) = WORKING FILE NAME TO BE MADE PRIMARY.
06421  M00S04717.lfm     +++|*                (FA) = FNT ENTRY ADDRESS.
06422  M00S04718.lfm     +++|*                (FS - FS+4) = FST ENTRY.
06423  M00S04719.lfm     +++|
06424  M00S04720.lfm     +++|
06425  M00S04721.lfm     +++|          ENTRY  PRI
06426  M00S04722.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
06427  M00S04723.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
06428  M00S04724.lfm     +++|          NJN    PRI1        IF FOUND
06429  M00S04725.lfm     +++|          LDN    NEEQ        SET NULL EQUIPMENT
06430  M00S04726.lfm     +++|          STD    EQ          CREATE NULL PRIMARY FILE
06431  M00S04727.lfm     +++|          RJM    EFN         ENTER FILE NAME
06432  M00S04728.lfm     +++|          UJN    PRI3        CHECK IF FILE ALREADY PRIMARY
06433  M00S04729.lfm     +++|
Line S04730 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06434  M01S04730.ns22000 ---|
06435  M00S04731.lfm     +++| PRI1     RJM    SFB         SET FILE BUSY
06436  M00S04732.lfm     +++|          ZJN    PRI3        IF NO REJECT ON FILE INTERLOCK
Line S04733 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06437  M01S04733.ns22000 ---| PRI2     LDN    /ERR/IOE    *I/O SEQUENCE ERROR.*
Line S00456 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06438  M01S00456.ns22000 +++| PRI2     LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
06439  M00S04734.lfm     +++|          UJN    PRI6        PROCESS ERROR
06440  M00S04735.lfm     +++|
06441  M00S04736.lfm     +++| PRI3     LDD    CP          READ CPA WORD
06442  M00S04737.lfm     +++|          ADN    TFSW
06443  M00S04738.lfm     +++|          CRD    CN
06444  M00S04739.lfm     +++|          LDD    CN+1
06445  M00S04740.lfm     +++|          LMD    FA
Line S04741 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06446  M01S04741.ns22000 ---|          NJN    PRI4        IF SPECIFIED FILE IS NOT ALREADY PRIMARY
06447  M01S04742.ns22000 ---|          LJM    LFMX        EXIT
06448  M01S04743.ns22000 ---|
06449  M01S04744.ns22000 ---| PRI4     NFA    FA,R        CHECK FILE TYPE
Line S00457 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06450  M01S00457.ns22000 +++|          ZJP    LFMX        IF SPECIFIED FILE IS ALREADY PRIMARY
06451  M01S00458.ns22000 +++|          NFA    FA,R        CHECK FILE TYPE
06452  M00S04745.lfm     +++|          CRD    CM
06453  M00S04746.lfm     +++|          LDD    CM+4
06454  M00S04747.lfm     +++|          SHN    -6
06455  M00S04748.lfm     +++|          LMN    LOFT
06456  M00S04749.lfm     +++|          ZJN    PRI7        IF *LOCAL*
Line S04750 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06457  M01S04750.ns22000 ---|          LDN    /ERR/IFT&/ERR/NMA
06458  M01S04751.ns22000 ---| PRI5     LMN    /ERR/NMA
Line S00459 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06459  M02S00459.v23l617 ---|          LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
Line S00147 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06460  M01S00147.v23l617 +++|          LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
06461  M00S04752.lfm     +++| PRI6     LJM    ERR         PROCESS ERROR
06462  M00S04753.lfm     +++|
06463  M00S04754.lfm     +++| PRI7     LDD    FS          CHECK FOR MASS STORAGE
06464  M00S04755.lfm     +++|          ZJN    PRI8        IF NO EQUIPMENT ASSIGNED
06465  M00S04756.lfm     +++|          LMN    NEEQ
06466  M00S04757.lfm     +++|          ZJN    PRI8        IF NULL EQUIPMENT
Line S04758 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06467  M01S04758.ns22000 ---|          LMN    NEEQ
06468  M01S04759.ns22000 ---|          ADM    ESTS
Line S00460 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06469  M01S00460.ns22000 +++|          SFA    EST,FS
06470  M01S00461.ns22000 +++|          ADK    EQDE
06471  M00S04760.lfm     +++|          CRD    T1
06472  M00S04761.lfm     +++|          LDD    T1
06473  M00S04762.lfm     +++|          SHN    21-13
06474  M00S04763.lfm     +++|          MJN    PRI8        IF MASS STORAGE FILE
Line S04764 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06475  M01S04764.ns22000 ---|          LDN    /ERR/IEQ    ILLEGAL EQUIPMENT
Line S00462 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06476  M02S00462.v23l617 ---|          LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
Line S00148 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06477  M01S00148.v23l617 +++|          LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
06478  M00S04765.lfm     +++|          UJN    PRI6        PROCESS ERROR
06479  M00S04766.lfm     +++|
06480  M00S04767.lfm     +++| PRI8     LDD    FS+2
Line S04768 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06481  M01S04768.ns22000 ---|          ZJN    PRI9        IF AN EMPTY FILE
06482  M01S04769.ns22000 ---|          LJM    PRI12       REWIND FILE
06483  M01S04770.ns22000 ---|
06484  M01S04771.ns22000 ---| PRI9     LDD    FS+1
06485  M01S04772.ns22000 ---|          NJN    PRI11       IF NOT A NULL FILE
06486  M01S04773.ns22000 ---|          STD    CM+1        CLEAR EQUIPMENT FIELD
06487  M01S04774.ns22000 ---|          STD    CM+3        SET SECTORS REQUESTED PARAMETER
06488  M01S04775.ns22000 ---|          LDN    FSMS+1
Line S00463 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06489  M01S00463.ns22000 +++|          NJP    PRI12       IF NOT AN EMPTY FILE
06490  M01S00464.ns22000 +++|          LDD    FS+1
06491  M01S00465.ns22000 +++|          NJP    PRI11       IF NOT A NULL FILE
06492  M01S00466.ns22000 +++|          LDD    CP          GET JOB ACCESS LEVEL
06493  M01S00467.ns22000 +++|          ADK    JSCW
06494  M01S00468.ns22000 +++|          CRD    CM
06495  M01S00469.ns22000 +++|          LDD    CM+1
06496  M01S00470.ns22000 +++|          SHN    -11
06497  M01S00471.ns22000 +++|          STD    AL
06498  M01S00472.ns22000 +++|          LDN    ZERL        CLEAR *RTCM* PARAMETERS
06499  M01S00473.ns22000 +++|          CRD    CM
06500  M01S00474.ns22000 +++|          LDN    FSMS+1      SET SECTORS REQUESTED PARAMETER
06501  M00S04776.lfm     +++|          STD    CM+4
06502  M00S04777.lfm     +++|          LDN    PRIS        SET *RTCM* PARAMETER FOR PRIMARY FILE
06503  M00S04778.lfm     +++|          STD    CM+2
Line S04779 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
06504  M02S04779.ns2171  ---|
Line S00091 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
06505  M01S00091.ns2171  +++|          AOM    PRIA
Line S00475 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06506  M01S00475.ns22000 +++|          LDD    AL          SET ACCESS LEVEL SELECTION
06507  M01S00476.ns22000 +++|          ADN    40
06508  M01S00477.ns22000 +++|          SHN    6
06509  M01S00478.ns22000 +++|          STD    CM+3
06510  M00S04780.lfm     +++|          MONITOR RTCM       ASSIGN MASS STORAGE SPACE
06511  M00S04781.lfm     +++|          LDD    CM+4        SET FIRST TRACK
06512  M00S04782.lfm     +++|          NJN    PRI10       IF MASS STORAGE SPACE AVAILABLE
Line S04783 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06513  M01S04783.ns22000 ---|          LJM    PRI5        IF NO MASS STORAGE SPACE
Line S00479 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06514  M01S00479.ns22000 +++|          LDD    CM+3        CHECK *RTCM* REJECT REASON CODE
06515  M01S00480.ns22000 +++|          LMN    2
06516  M01S00481.ns22000 +++|          ZJN    PRI9        IF REJECT BECAUSE OF ACCESS LEVEL
06517  M01S00482.ns22000 +++|          LDN    /ERR/NMA&/ERR/WEQ  * NO MASS STORAGE AVAILABLE.*
06518  M01S00483.ns22000 +++| PRI9     LMN    /ERR/WEQ    * EQUIPMENT NOT AVAILABLE.*
Line S00484 Modification History
M01 (Added by) ns22000
M02 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06519  M02S00484.lfm16   ---|          LJM    PRI6        ISSUE ERROR
Line S00001 Modification History
M01 (Added by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06520  M01S00001.lfm16   +++|          LJM    ERR         ISSUE ERROR
06521  M00S04784.lfm     +++|
06522  M00S04785.lfm     +++| PRI10    STD    FS+1
Line S04786 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06523  M01S04786.ns22000 ---|          LDD    CM+1        SET EQUIPMENT NUMBER
Line S00485 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06524  M01S00485.ns22000 +++|          LDD    CM+1        SET EST ORDINAL
06525  M00S04787.lfm     +++|          STD    FS
Line S04788 Modification History
M01 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06526  M01S04788.lfm16   ---|          LDD    FS+1
06527  M01S04789.lfm16   ---| PRI11    STD    FS+2        UPDATE CURRENT TRACK IN FST WORD
Line S00002 Modification History
M01 (Added by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06528  M01S00002.lfm16   +++|          NFA    FA,R        UPDATE FST FOR *COMPWEI*
06529  M01S00003.lfm16   +++|          ADN    FSTL
06530  M01S00004.lfm16   +++|          CWD    FS
06531  M01S00005.lfm16   +++|          UJN    PRI11.1     WRITE SYSTEM SECTOR AND EOI
06532  M01S00006.lfm16   +++|
06533  M01S00007.lfm16   +++| PRI11    LPC    3777        ONLY SET SECTOR IN TRACK BYTE
06534  M01S00008.lfm16   +++|          STD    CM+2
06535  M01S00009.lfm16   +++|          LDD    FS          SET EST ORDINAL
06536  M01S00010.lfm16   +++|          STD    CM+1
06537  M01S00011.lfm16   +++|          LDN    FSMS        SET SECTOR
06538  M01S00012.lfm16   +++|          STD    CM+3
06539  M01S00013.lfm16   +++|          MONITOR  DTKM      SET EOI SECTOR IN TRT
06540  M01S00014.lfm16   +++| PRI11.1  LDD    FS+1        UPDATE CURRENT TRACK
06541  M00S04790.lfm     +++|          STD    T6          SET FIRST TRACK PARAMETER
Line S04791 Modification History
M01 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06542  M01S04791.lfm16   ---|          LDC    104         UPDATE STATUS BYTE OF FST
Line S00015 Modification History
M01 (Added by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06543  M01S00015.lfm16   +++|          LDD    HN          UPDATE STATUS BYTE OF FST
06544  M00S04792.lfm     +++|          STD    FS+4
Line S04793 Modification History
M01 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06545  M01S04793.lfm16   ---|          LDN    FSMS        UPDATE CURRENT SECTOR IN FST
06546  M01S04794.lfm16   ---|          STD    FS+3
06547  M01S04795.lfm16   ---|          NFA    FA,R        UPDATE FST FOR *COMPWEI*
06548  M01S04796.lfm16   ---|          ADN    FSTL
06549  M01S04797.lfm16   ---|          CWD    FS
06550  M00S04798.lfm     +++|          LDD    FS
06551  M00S04799.lfm     +++|          STD    T5
Line S04800 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06552  M01S04800.242l642 ---|          SETMS  WRITE,NE,BFMS
Line S00130 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06553  M01S00130.242l642 +++|          SETMS  IO
06554  M00S04801.lfm     +++|          RJM    WSS         WRITE SYSTEM SECTOR
06555  M00S04802.lfm     +++|          RJM    WEI         WRITE EOI
06556  M00S04803.lfm     +++|          ENDMS
06557  M00S04804.lfm     +++|          NFA    FA,R        RE-READ FNT ENTRY
06558  M00S04805.lfm     +++|          CRD    CM
Line S00092 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
06559  M01S00092.ns2171  +++| PRIA     LDN    0
06560  M01S00093.ns2171  +++|*         LDN    1           (MASS STORAGE SPACE ALLOCATED)
Line S00094 Modification History
M01 (Added by) ns2171
M02 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06561  M02S00094.lfm16   ---|          ZJN    PRI13       IF NO SECTORS ALLOCATED
Line S00016 Modification History
M01 (Added by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06562  M01S00016.lfm16   +++|          ZJN    PRI12       IF NO SECTORS ALLOCATED
Line S00095 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
06563  M01S00095.ns2171  +++|          LDM    SLM
06564  M01S00096.ns2171  +++|          STM    DPPB+1
Line S04806 Modification History
M01 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06565  M01S04806.lfm16   ---|          UJN    PRI13       CHANGE CURRENT PRIMARY FILE TO *LOFT*
06566  M01S04807.lfm16   ---|
06567  M00S04808.lfm     +++| PRI12    LDD    FS+1        REWIND FILE
06568  M00S04809.lfm     +++|          STD    FS+2
06569  M00S04810.lfm     +++|          LDN    FSMS
06570  M00S04811.lfm     +++|          STD    FS+3
06571  M00S04812.lfm     +++|          LDD    FS+4        UPDATE STATUS BYTE OF FST
06572  M00S04813.lfm     +++|          SCN    77
06573  M00S04814.lfm     +++|          LMN    4
06574  M00S04815.lfm     +++|          STD    FS+4
06575  M00S04816.lfm     +++|
06576  M00S04817.lfm     +++|*         CHANGE EXISTING PRIMARY FILE TO TYPE *LOFT*.
06577  M00S04818.lfm     +++|
Line S04819 Modification History
M01 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06578  M01S04819.lfm16   ---| PRI13    LDD    CN+1
Line S00017 Modification History
M01 (Added by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06579  M01S00017.lfm16   +++|          LDD    CN+1
Line S04820 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06580  M01S04820.ns22000 ---|          NJN    PRI14       IF A PRIMARY EXISTS
06581  M01S04821.ns22000 ---|          LJM    PRI17       SET NEW FILE AS PRIMARY
06582  M01S04822.ns22000 ---|
06583  M01S04823.ns22000 ---| PRI14    LDD    FA          SAVE LOCAL FILE FNT ADDRESS
Line S00486 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06584  M01S00486.ns22000 +++|          ZJP    PRI17       IF NO PRIMARY FILE CURRENTLY EXISTS
06585  M01S00487.ns22000 +++|          LDD    FA          SAVE LOCAL FILE FNT ADDRESS
06586  M00S04824.lfm     +++|          STD    CB
06587  M00S04825.lfm     +++|          NFA    FA,R        WRITE FST WORD
06588  M00S04826.lfm     +++|          ADN    FSTL
06589  M00S04827.lfm     +++|          CWD    FS
06590  M00S04828.lfm     +++|          LDD    CN+1        SAVE FST ADDRESS OF EXISTING PRIMARY FILE
06591  M00S04829.lfm     +++|          STD    FA
06592  M00S04830.lfm     +++|          NFA    FA,R        READ FNT OF EXISTING PRIMARY FILE
06593  M00S04831.lfm     +++|          CRD    FS
06594  M00S04832.lfm     +++|          LDD    FS+4
06595  M00S04833.lfm     +++|          SHN    -6
06596  M00S04834.lfm     +++|          LMN    PTFT
06597  M00S04835.lfm     +++|          NJN    PRI16       IF NOT PRIMARY FILE
06598  M00S04836.lfm     +++|          RJM    SFB         SET PRIMARY FILE BUSY
06599  M00S04837.lfm     +++|          ZJN    PRI15       IF NO REJECT ON FILE INTERLOCK
06600  M00S04838.lfm     +++|          NFA    CB,R
06601  M00S04839.lfm     +++|          ADN    FSTL
06602  M00S04840.lfm     +++|          CRD    FS
06603  M00S04841.lfm     +++|          AOD    FS+4
06604  M00S04842.lfm     +++|          NFA    CB,R
06605  M00S04843.lfm     +++|          ADN    FSTL
06606  M00S04844.lfm     +++|          CWD    FS
06607  M00S04845.lfm     +++|          LJM    PRI2        PROCESS AS I/O SEQ. ERROR
06608  M00S04846.lfm     +++|
06609  M00S04847.lfm     +++| PRI15    LDC    LOFT*100-PTFT*100  CHANGE FILE TYPE TO LOCAL
06610  M00S04848.lfm     +++|          RAD    CM+4
06611  M00S04849.lfm     +++|          AOD    FS+4        SET FST COMPLETE
06612  M00S04850.lfm     +++|          NFA    FA,R        STORE FNT ENTRY
06613  M00S04851.lfm     +++|          CWD    CM
06614  M00S04852.lfm     +++|          ADN    FSTL
06615  M00S04853.lfm     +++|          CWD    FS
06616  M00S04854.lfm     +++| PRI16    LDD    CB          RESTORE LOCAL FILE FNT ADDRESS
06617  M00S04855.lfm     +++|          STD    FA
Line S04856 Modification History
M01 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06618  M01S04856.lfm16   ---| PRI17    NFA    FA,R        RESTORE LOCAL FILE FNT ENTRY
Line S00018 Modification History
M01 (Added by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06619  M01S00018.lfm16   +++|          NFA    FA,R        RESTORE LOCAL FILE FNT ENTRY
06620  M00S04857.lfm     +++|          CRD    CM
06621  M00S04858.lfm     +++|          ADN    FSTL
06622  M00S04859.lfm     +++|          CRD    FS
06623  M00S04860.lfm     +++|
06624  M00S04861.lfm     +++|*         SET NEW FILE AS PRIMARY.
06625  M00S04862.lfm     +++|
Line S04863 Modification History
M01 (Removed by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06626  M01S04863.lfm16   ---|          LDD    CM+4        SET FILE TYPE TO PRIMARY
06627  M01S04864.lfm16   ---|          LPN    77
06628  M01S04865.lfm16   ---|          LMC    PTFT*100
06629  M01S04866.lfm16   ---|          STD    CM+4
Line S00019 Modification History
M01 (Added by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06630  M01S00019.lfm16   +++| PRI17    LDC    PTFT*100-LOFT*100  CHANGE FILE TYPE TO PRIMARY
06631  M01S00020.lfm16   +++|          RAD    CM+4
06632  M00S04867.lfm     +++|          NFA    FA,R        REWRITE FNT
06633  M00S04868.lfm     +++|          CWD    CM
06634  M00S04869.lfm     +++|          RJM    UPP         UPDATE PRIMARY FILE POINTERS
06635  M00S04870.lfm     +++|          LJM    LFMX        EXIT
06636  M00S04871.lfm     +++|          TITLE  SUBROUTINES
06637  M00S04872.lfm     +++| CCP      SPACE  4,20
06638  M00S04873.lfm     +++|**        CCP - CRACK CALLING PARAMETERS IN FET+CGNT.
06639  M00S04874.lfm     +++|*               ALSO, A CHECK IS MADE TO SEE IF FET LENGTH IS
06640  M00S04875.lfm     +++|*               CONSISTENT WITH FET LOCATIONS USED.
06641  M00S04876.lfm     +++|*
06642  M00S04877.lfm     +++|*         ENTRY  (CN) = NUMBER OF FILE ENTRIES TO RETURN IN TABLE.
06643  M00S04878.lfm     +++|*                (CN+1 - CN+2) = SELECTIVITY BITS.
06644  M00S04879.lfm     +++|*                (CN+3) = 2/,4/CONTROL BITS,6/
06645  M00S04880.lfm     +++|*                (FE) = FET LENGTH - 1.
06646  M00S04881.lfm     +++|*
06647  M00S04882.lfm     +++|*         EXIT   (A) .GE. 0 IMPLIES FET LENGTH OK.
06648  M00S04883.lfm     +++|*                (A) .LT. 0 IMPLIES FET LENGTH IN ERROR.
06649  M00S04884.lfm     +++|*                (CN) = NUMBER OF FILE ENTRIES.
06650  M00S04885.lfm     +++|*                (SB - SB+1) = SELECTIVITY BITS.
06651  M00S04886.lfm     +++|*                (CB) = CONTROL BITS - RIGHT JUSTIFIED.
06652  M00S04887.lfm     +++|*                (CN+3) - CONTROL BITS CLEARED.
06653  M00S04888.lfm     +++|*                (CN+1) - CHECKPOINT FILE COUNTER CLEARED.
06654  M00S04889.lfm     +++|*                (FT) = NFL/100B.
06655  M00S04890.lfm     +++|*                (FT+1) = FORMAT FLAG.
06656  M00S04891.lfm     +++|*
06657  M00S04892.lfm     +++|*         USES   CB, CN, CN+1, CN+3, SB, SB+1, T1, FT - FT+4.
06658  M00S04893.lfm     +++|
06659  M00S04894.lfm     +++|
06660  M00S04895.lfm     +++| CCP      SUBR               ENTRY/EXIT
06661  M00S04896.lfm     +++|          LDD    CN          SET NUMBER OF FILE ENTRIES
06662  M00S04897.lfm     +++|          NJN    CCP1        IF NOT DEFAULT
06663  M00S04898.lfm     +++|          LDC    DNFS
06664  M00S04899.lfm     +++|          STD    CN
06665  M00S04900.lfm     +++| CCP1     LDD    CN+1        SET SELECTIVITY BITS
06666  M00S04901.lfm     +++|          LPN    77
06667  M00S04902.lfm     +++|          SHN    14
06668  M00S04903.lfm     +++|          LMD    CN+2
06669  M00S04904.lfm     +++|          NJN    CCP2        IF NOT DEFAULT
06670  M00S04905.lfm     +++|          LCN    0           ALL BITS SET FOR DEFAULT
06671  M00S04906.lfm     +++| CCP2     STD    SB+1
06672  M00S04907.lfm     +++|          SHN    -14
06673  M00S04908.lfm     +++|          STD    SB
06674  M00S04909.lfm     +++|          LDN    0           PRESET CHECKPOINT FILE COUNTER
06675  M00S04910.lfm     +++|          STD    CN+1
06676  M00S04911.lfm     +++|          LDN    10          PRESET T1 FOR FET LENGTH CHECK
06677  M00S04912.lfm     +++|          STD    T1
06678  M00S04913.lfm     +++|          LDD    CN+3        EXTRACT CONTROL BITS
06679  M00S04914.lfm     +++|          SHN    -6
06680  M00S04915.lfm     +++|          STD    CB
06681  M00S04916.lfm     +++|          SHN    21-2
06682  M00S04917.lfm     +++|          MJN    CCP3        IF TREAT CHECKPOINT FILES NORMALLY
06683  M00S04918.lfm     +++|          LDN    4
06684  M00S04919.lfm     +++|          RAD    T1
06685  M00S04920.lfm     +++| CCP3     LDD    CP          GET NEGATIVE FL
06686  M00S04921.lfm     +++|          ADN    FLSW
06687  M00S04922.lfm     +++|          CRD    FT          NEGATIVE FL/100B
06688  M00S04923.lfm     +++|*         LDN    0           PRESET FORMAT FLAG
06689  M00S04924.lfm     +++|*         STD    FT+1
06690  M00S04925.lfm     +++|          LDD    CN+3        CHECK FOR OLD FORMAT
06691  M00S04926.lfm     +++|          SHN    21-11
06692  M00S04927.lfm     +++|          PJN    CCP4        IF OLD FORMAT
06693  M00S04928.lfm     +++|          AOD    FT+1        SET FLAG FOR NEW FORMAT
06694  M00S04929.lfm     +++|          LCN    2           RETURN FILE LENGTH TO BYTES 0 AND 1 OF FST
06695  M00S04930.lfm     +++|          RAM    MFFA
06696  M00S04931.lfm     +++|          SBN    1
06697  M00S04932.lfm     +++|          STM    MFFB
06698  M00S04933.lfm     +++| CCP4     LDD    CN+3        CLEAR CONTROL BITS
06699  M00S04934.lfm     +++|          LPN    77
06700  M00S04935.lfm     +++|          STD    CN+3
06701  M00S04936.lfm     +++|          LDD    FE
06702  M00S04937.lfm     +++|          SBD    T1
06703  M00S04938.lfm     +++|          LJM    CCPX        EXIT
06704  M00S04939.lfm     +++| CFS      SPACE  4,15
06705  M00S04940.lfm     +++|**        CFS - CHECK FILE SELECTIVITY.
06706  M00S04941.lfm     +++|*
06707  M00S04942.lfm     +++|*         ENTRY  (SB) AND (SB+1) = SELECTIVITY BITS.
06708  M00S04943.lfm     +++|*                (FN - FN+4) = FNT ENTRY.
06709  M00S04944.lfm     +++|*                (FS - FS+4) = FST ENTRY.
06710  M00S04945.lfm     +++|*
06711  M00S04946.lfm     +++|*         EXIT   (A) .LT. 0  IMPLIES SELECTED.
06712  M00S04947.lfm     +++|*                (A) .GE. 0  IMPLIES NOT SELECTED.
06713  M00S04948.lfm     +++|*
06714  M00S04949.lfm     +++|*         USES   T1.
06715  M00S04950.lfm     +++|*
06716  M00S04951.lfm     +++|*         CALLS  SDQ.
06717  M00S04952.lfm     +++|
06718  M00S04953.lfm     +++|
06719  M00S04954.lfm     +++| CFS      SUBR               ENTRY/EXIT
06720  M00S04955.lfm     +++|          LDD    FN+4        SET FILE TYPE
06721  M00S04956.lfm     +++|          SHN    -6
06722  M00S04957.lfm     +++|          STD    T1
06723  M00S04958.lfm     +++|          SBN    MXFT
06724  M00S04959.lfm     +++|          MJN    CFS2        IF TYPE DOES NOT EXCEED MAXIMUM
Line S04960 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06725  M01S04960.v23l617 ---| CFS1     LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
Line S00149 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06726  M01S00149.v23l617 +++| CFS1     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
06727  M00S04961.lfm     +++|          LJM    ERR         PROCESS ERROR
06728  M00S04962.lfm     +++|
06729  M00S04963.lfm     +++| CFS2     LDM    TFTS,T1     SET SHIFT INSTRUCTION
Line S04964 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06730  M01S04964.v23l617 ---|          ZJN    CFS1        IF ILLEGAL FILE TYPE
Line S00150 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06731  M01S00150.v23l617 +++|          ZJN    CFS1        IF INCORRECT FILE TYPE
06732  M00S04965.lfm     +++|          STM    CFSA
06733  M00S04966.lfm     +++|          LDD    SB          LOAD SELECTIVITY MASK
06734  M00S04967.lfm     +++|          SHN    14
06735  M00S04968.lfm     +++|          LMD    SB+1
06736  M00S04969.lfm     +++| CFSA     SHN    **
06737  M00S04970.lfm     +++|          MJN    CFSX        IF FILE SELECTED
06738  M00S04971.lfm     +++|
06739  M00S04972.lfm     +++|*         FOR COMPATIBILITY, CHECK FOR *PRQT* OR *PHQT*.
06740  M00S04973.lfm     +++|
06741  M00S04974.lfm     +++|          LDD    T1
06742  M00S04975.lfm     +++|          LMN    QFFT
06743  M00S04976.lfm     +++|          NJN    CFSX        IF FILE MAPPING NOT REQUIRED
06744  M00S04977.lfm     +++|          LDD    SB+1
06745  M00S04978.lfm     +++|          LPN    14
06746  M00S04979.lfm     +++|          ZJN    CFSX        IF *PRQT* AND *PHQT* NOT SELECTED
06747  M00S04980.lfm     +++|          RJM    SDQ         SET DISPOSITION CODE
06748  M00S04981.lfm     +++|          ZJN    CFSX        IF NOT *PRQT* OR *PHQT*
06749  M00S04982.lfm     +++|*         LDD    SB
06750  M00S04983.lfm     +++|*         SHN    14
06751  M00S04984.lfm     +++|*         LMD    SB+1
06752  M00S04985.lfm     +++|          LDD    SB+1
06753  M00S04986.lfm     +++| CFSB     SHN    **          (SET BY *SDQ*)
Line S04987 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06754  M01S04987.ns22000 ---|          LJM    CFSX        RETURN
Line S00488 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06755  M01S00488.ns22000 +++|          UJN    CFSX        RETURN
06756  M00S04988.lfm     +++| CMS      SPACE  4,10
06757  M00S04989.lfm     +++|**        CMS - CHECK FOR MASS STORAGE RESIDENT FILE.
06758  M00S04990.lfm     +++|*
06759  M00S04991.lfm     +++|*         ENTRY  (FS - FS+4) = FILE FST ENTRY.
06760  M00S04992.lfm     +++|*
06761  M00S04993.lfm     +++|*         EXIT   (A) .LT. 0, IF FILE IS ON MASS STORAGE.
06762  M00S04994.lfm     +++|*                (CM - CM+4) = EST ENTRY FOR FILE.
06763  M00S04995.lfm     +++|*                (T5) = EST ORDINAL.
06764  M00S04996.lfm     +++|*
06765  M00S04997.lfm     +++|*         USES   T5, CM - CM+4.
Line S00489 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06766  M01S00489.ns22000 +++|*
06767  M01S00490.ns22000 +++|*         MACROS SFA.
06768  M00S04998.lfm     +++|
06769  M00S04999.lfm     +++|
06770  M00S05000.lfm     +++| CMS      SUBR               ENTRY/EXIT
06771  M00S05001.lfm     +++|          LDD    FS          SET EST ORDINAL
Line S05002 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06772  M01S05002.ns22000 ---|          LPN    77
06773  M00S05003.lfm     +++|          STD    T5
Line S05004 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06774  M01S05004.ns22000 ---|          ADM    ESTS        READ EST ENTRY
Line S00491 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06775  M01S00491.ns22000 +++|          SFA    EST         READ EST ENTRY
06776  M01S00492.ns22000 +++|          ADK    EQDE
06777  M00S05005.lfm     +++|          CRD    CM
06778  M00S05006.lfm     +++|          LDD    CM
06779  M00S05007.lfm     +++|          SHN    21-13       POSITION MASS STORAGE BIT
06780  M00S05008.lfm     +++|          UJN    CMSX        RETURN
06781  M00S05009.lfm     +++| MFF      SPACE  4,20
06782  M00S05010.lfm     +++|**        MFF - MODIFY FILE S FST.
06783  M00S05011.lfm     +++|*
06784  M00S05012.lfm     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
06785  M00S05013.lfm     +++|*                (FN - FN+4) = FNT WORD, IF NEW FORMAT REQUESTED.
06786  M00S05014.lfm     +++|*                (CB) = CONTROL BITS.
06787  M00S05015.lfm     +++|*                (FT+1) = FORMAT FLAG.
Line S00282 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06788  M01S00282.274l797 +++|*                (FT+4) = FNT ADDRESS.
06789  M00S05016.lfm     +++|*
06790  M00S05017.lfm     +++|*         EXIT   (A) = 0 IMPLIES NORMAL RETURN.
06791  M00S05018.lfm     +++|*                (A) .NE. 0 IMPLIES ERROR EXIT.
06792  M00S05019.lfm     +++|*                (FS - FS+4) = MODIFIED FST.
Line S05020 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06793  M01S05020.274l797 ---|*                (FN+3) UPDATED, IF NEW FORMAT REQUESTED.
Line S00283 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06794  M01S00283.274l797 +++|*                (FN+3) UPDATED, IF TAPE FILE AND NEW FORMAT REQUESTED.
06795  M00S05021.lfm     +++|*
06796  M00S05022.lfm     +++|*         USES   T2, T3, T5, T6, T7, CM - CM+4, FN - FN+4 (ONLY IF
06797  M00S05023.lfm     +++|*                NEW FORMAT REQUESTED OR IF ERROR RETURN).
06798  M00S05024.lfm     +++|*
06799  M00S05025.lfm     +++|*         CALLS  CMS, CPA, SEI, SPA.
06800  M00S05026.lfm     +++|*
06801  M00S05027.lfm     +++|*         MACROS DELAY, MONITOR, PAUSE.
06802  M00S05028.lfm     +++|*
06803  M00S05029.lfm     +++|*         ERROR  FET+CGNT IS SET NEGATIVE.
06804  M00S05030.lfm     +++|
06805  M00S05031.lfm     +++|
06806  M00S05032.lfm     +++| MFF      SUBR               ENTRY/EXIT
06807  M00S05033.lfm     +++|          RJM    CMS         CHECK FOR MASS STORAGE RESIDENT FILE
06808  M00S05034.lfm     +++|          PJN    MFF1        IF NOT MASS STORAGE FILE
06809  M00S05035.lfm     +++|          LJM    MFF12       PROCESS MASS STORAGE FILE
06810  M00S05036.lfm     +++|
06811  M00S05037.lfm     +++| MFF1     LDD    CM+3
06812  M00S05038.lfm     +++|          LMN    1RT
06813  M00S05039.lfm     +++|          SHN    14
Line S05040 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06814  M01S05040.252l678 ---|          SCN    40
06815  M00S05041.lfm     +++|          LMN    1RM
Line S05042 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06816  M01S05042.274l797 ---|          ZJN    MFF6        IF *MT*
Line S00284 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06817  M01S00284.274l797 +++|          ZJN    MFF1.1      IF *MT*
06818  M00S05043.lfm     +++|          LMN    1RN&1RM
Line S05044 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06819  M01S05044.274l797 ---|          ZJN    MFF6        IF *NT*
Line S00285 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06820  M01S00285.274l797 +++|          ZJN    MFF1.1      IF *NT*
Line S05045 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06821  M01S05045.274l797 ---|          LMN    1RT&1RN
Line S00286 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06822  M01S00286.274l797 +++|          LMN    1RC&1RN
06823  M01S00287.274l797 +++|          ZJN    MFF1.1      IF *CT*
06824  M01S00288.274l797 +++|          LMN    1RA&1RC
06825  M01S00289.274l797 +++| MFF1.1   ZJN    MFF6        IF *AT*
06826  M01S00290.274l797 +++|          LMN    1RT&1RA
06827  M00S05046.lfm     +++|          ZJN    MFF2        IF *TT*
Line S00291 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06828  M01S00291.274l797 +++|          LDD    CM+3
06829  M01S00292.274l797 +++|          LMC    2ROD
06830  M01S00293.274l797 +++|          ZJP    MFF21       IF *OD*
06831  M00S05047.lfm     +++|
Line S05048 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06832  M01S05048.274l797 ---|*         NEITHER MASS STORAGE, TAPE, NOR TTY FILE.
Line S00294 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06833  M01S00294.274l797 +++|*         FILE IS NOT MASS STORAGE, TAPE, OPTICAL DISK OR TTY.
06834  M00S05049.lfm     +++|
06835  M00S05050.lfm     +++|          LDD    FT+1
06836  M00S05051.lfm     +++|          ZJN    MFF4        IF OLD FORMAT
06837  M00S05052.lfm     +++|          LDN    3S1         SET NON-MS, TAPE, TTY FILE
06838  M00S05053.lfm     +++|          UJN    MFF3        CLEAR FST INFORMATION
06839  M00S05054.lfm     +++|
06840  M00S05055.lfm     +++|*         TTY FILE.
06841  M00S05056.lfm     +++|
06842  M00S05057.lfm     +++| MFF2     LDC    2RTT        SHOW TTY FILE
06843  M00S05058.lfm     +++|          STD    FS+1
06844  M00S05059.lfm     +++|          LDD    FT+1
06845  M00S05060.lfm     +++|          ZJN    MFF5        IF OLD FORMAT
06846  M00S05061.lfm     +++|          LDN    1S2         SET TTY FILE
06847  M00S05062.lfm     +++| MFF3     RAD    FN+3
06848  M00S05063.lfm     +++|          LDN    0           CLEAR FILE LENGTH
06849  M00S05064.lfm     +++|          STD    FS
06850  M00S05065.lfm     +++|          STD    FS+1
06851  M00S05066.lfm     +++| MFF4     STD    FS+2        CLEAR RANDOM INDEX/BLOCK COUNT
06852  M00S05067.lfm     +++|          STD    FS+3
06853  M00S05068.lfm     +++| MFF5     LJM    MFFX        RETURN
06854  M00S05069.lfm     +++|
06855  M00S05070.lfm     +++|*         TAPE FILE.
06856  M00S05071.lfm     +++|
06857  M00S05072.lfm     +++| MFF6     LDD    FS+1        GET USER DESCRIPTOR TABLE ADDRESS
06858  M00S05073.lfm     +++|          ADN    /MTX/UST2
06859  M00S05074.lfm     +++|          STD    CM+4
06860  M00S05075.lfm     +++|          LDN    0           SET READ
06861  M00S05076.lfm     +++|          STD    CM+1
06862  M00S05077.lfm     +++|          LDD    HN          SET WORD COUNT
06863  M00S05078.lfm     +++|          STD    CM+3
06864  M00S05079.lfm     +++|          LCN    7777-MTSI   SET *MAGNET* SUBSYSTEM ID
06865  M00S05080.lfm     +++|          STD    CM+2
Line S05081 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06866  M01S05081.282l826 ---|          MONITOR TDAM       GET WORD 5 OF UDT
Line S00034 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06867  M01S00034.282l826 +++|          MONITOR TDAM
06868  M00S05082.lfm     +++|          LDD    CM+1
06869  M00S05083.lfm     +++|          ZJN    MFF8        IF COMPLETE
06870  M00S05084.lfm     +++|          SBN    2
06871  M00S05085.lfm     +++|          PJN    MFF7        IF *MAGNET* NOT PRESENT
06872  M00S05086.lfm     +++|          PAUSE
06873  M00S05087.lfm     +++|          DELAY
06874  M00S05088.lfm     +++|          LDD    CM+1
06875  M00S05089.lfm     +++|          NJN    MFF11       IF ERROR
06876  M00S05090.lfm     +++|          UJN    MFF6        TRY AGAIN
06877  M00S05091.lfm     +++|
06878  M00S05092.lfm     +++| MFF7     LDD    FT+1
06879  M00S05093.lfm     +++|          ZJN    MFF11       IF OLD FORMAT
06880  M00S05094.lfm     +++|          LCN    0
06881  M00S05095.lfm     +++|          STD    FS+2
06882  M00S05096.lfm     +++|          STD    FS+3
06883  M00S05097.lfm     +++|          UJN    MFF9        SET TAPE FILE
06884  M00S05098.lfm     +++|
06885  M00S05099.lfm     +++|*         SET CURRENT BLOCK COUNT.
06886  M00S05100.lfm     +++|
06887  M00S05101.lfm     +++| MFF8     LDD    MA          SAVE BLOCK COUNT
06888  M00S05102.lfm     +++|          CRD    CM
06889  M00S05103.lfm     +++|          LDD    CM+2
06890  M00S05104.lfm     +++|          STD    FS+2
06891  M00S05105.lfm     +++|          LDD    CM+3
06892  M00S05106.lfm     +++|          STD    FS+3
06893  M00S05107.lfm     +++|          LDD    FT+1
06894  M00S05108.lfm     +++|          ZJN    MFF10       IF OLD FORMAT
06895  M00S05109.lfm     +++| MFF9     LDN    1S1         SET TAPE FILE
06896  M00S05110.lfm     +++|          RAD    FN+3
06897  M00S05111.lfm     +++|          LJM    MFF17       CLEAR FILE LENGTH
06898  M00S05112.lfm     +++|
06899  M00S05113.lfm     +++| MFF10    LDC    2RMT        SET TAPE FILE
06900  M00S05114.lfm     +++|          STD    FS+1
Line S05115 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06901  M01S05115.ns22000 ---|          LJM    MFF15       RETURN
Line S00493 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06902  M01S00493.ns22000 +++|          UJN    MFF15       RETURN
06903  M00S05116.lfm     +++|
06904  M00S05117.lfm     +++|*         SET ERROR PARAMETER IN FET.
06905  M00S05118.lfm     +++|
06906  M00S05119.lfm     +++| MFF11    LCN    0           SET ERROR EXIT
06907  M00S05120.lfm     +++|          STD    FN
06908  M00S05121.lfm     +++|          RJM    CPA
06909  M00S05122.lfm     +++|          ADN    CGNT
06910  M00S05123.lfm     +++|          CWD    FN
06911  M00S05124.lfm     +++|          LJM    MFFX        RETURN
06912  M00S05125.lfm     +++|
06913  M00S05126.lfm     +++|*         MASS STORAGE FILE.
06914  M00S05127.lfm     +++|
06915  M00S05128.lfm     +++| MFF12    LDD    FT+1
06916  M00S05129.lfm     +++|          NJN    MFF13       IF NEW FORMAT
06917  M00S05130.lfm     +++|          LDD    CB          CHECK TYPE OF MODIFICATION DESIRED
06918  M00S05131.lfm     +++|          SHN    21-1
06919  M00S05132.lfm     +++|          MJN    MFF16       IF FILE LENGTH REQUESTED
06920  M00S05133.lfm     +++|
06921  M00S05134.lfm     +++|*         RETURN RANDOM INDEX.
06922  M00S05135.lfm     +++|
06923  M00S05136.lfm     +++| MFF13    LDD    FS+2        SET TRACK
06924  M00S05137.lfm     +++|          STD    RI+1
06925  M00S05138.lfm     +++|          ZJN    MFF14       IF FILE NOT USED
06926  M00S05139.lfm     +++|          STD    T6
06927  M00S05140.lfm     +++|          LDD    FS+3        SET SECTOR
06928  M00S05141.lfm     +++|          STD    T7
06929  M00S05142.lfm     +++|          LDD    FS+1        SET FIRST TRACK
06930  M00S05143.lfm     +++|          RJM    SRA         SET RANDOM ADDRESS
06931  M00S05144.lfm     +++|          NJN    MFF11       IF ERROR
06932  M00S05145.lfm     +++|          LDD    RI          SET ADDRESS IN FST
06933  M00S05146.lfm     +++| MFF14    STD    FS+2
06934  M00S05147.lfm     +++|          LDD    RI+1
06935  M00S05148.lfm     +++|          STD    FS+3
06936  M00S05149.lfm     +++|          LDD    FT+1
06937  M00S05150.lfm     +++|          NJN    MFF16       IF NEW FORMAT
06938  M00S05151.lfm     +++| MFF15    LDN    0
06939  M00S05152.lfm     +++|          LJM    MFFX        RETURN
06940  M00S05153.lfm     +++|
06941  M00S05154.lfm     +++|*         RETURN FILE LENGTH.
06942  M00S05155.lfm     +++|
06943  M00S05156.lfm     +++| MFF16    LDD    FS+1        SET FIRST TRACK
06944  M00S05157.lfm     +++|          ZJN    MFF18       IF FILE NOT USED
06945  M00S05158.lfm     +++|          STD    T6
06946  M00S05159.lfm     +++|          RJM    SEI         DETERMINE FILE LENGTH
06947  M00S05160.lfm     +++|          LCN    FSMS        DO NOT COUNT SYSTEM SECTOR
06948  M00S05161.lfm     +++|          RAD    T3
06949  M00S05162.lfm     +++|          PJN    MFF20       IF NO UNDERFLOW
06950  M00S05163.lfm     +++|          SOD    T2          COMPENSATE FOR UNDERFLOW
06951  M00S05164.lfm     +++|          PJN    MFF19       IF SECTORS ASSIGNED TO FILE
06952  M00S05165.lfm     +++| MFF17    LDN    0
06953  M00S05166.lfm     +++| MFF18    STD    T2
06954  M00S05167.lfm     +++|          UJN    MFF20       CLEAR FILE LENGTH
06955  M00S05168.lfm     +++|
06956  M00S05169.lfm     +++| MFF19    AOD    T3          COMPENSATE FOR ONES COMPLEMENT SUBTRACTION
06957  M00S05170.lfm     +++| MFF20    STD    FS+3
06958  M00S05171.lfm     +++| MFFA     EQU    *-1
06959  M00S05172.lfm     +++|*         STD    FS+1        (NEW FORMAT)
06960  M00S05173.lfm     +++|          LDD    T2
06961  M00S05174.lfm     +++| MFFB     STD    FS+2
06962  M00S05175.lfm     +++|*         STD    FS          (NEW FORMAT)
06963  M00S05176.lfm     +++|          UJN    MFF15      RETURN
Line S00295 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06964  M01S00295.274l797 +++|
06965  M01S00296.274l797 +++|*         OPTICAL DISK FILE.
06966  M01S00297.274l797 +++|
06967  M01S00298.274l797 +++| MFF21    LDD    FT+1
06968  M01S00299.274l797 +++|          NJN    MFF22       IF NEW FORMAT
06969  M01S00300.274l797 +++|          LDD    CB          CHECK TYPE OF MODIFICATION DESIRED
06970  M01S00301.274l797 +++|          SHN    21-1
06971  M01S00302.274l797 +++|          MJN    MFF23       IF FILE LENGTH REQUESTED
06972  M01S00303.274l797 +++|
06973  M01S00304.274l797 +++|*         RETURN RANDOM ADDRESS.
06974  M01S00305.274l797 +++|
06975  M01S00306.274l797 +++| MFF22    LDD    FS+2        SET RANDOM ADDRESS
06976  M01S00307.274l797 +++|          STD    FS+3
06977  M01S00308.274l797 +++|          LDD    FS+1
06978  M01S00309.274l797 +++|          STD    FS+2
06979  M01S00310.274l797 +++| MFF23    LDC    2ROD        SET OPTICAL DISK FILE
06980  M01S00311.274l797 +++|          STD    FS+1
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/lfm.004.txt ยท Last modified: (external edit)