User Tools

Site Tools


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

Deck LFM Part 004

48 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05447  M01S03883.lfm     +++|          STD    CF
Line S03884 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05448  M02S03884.ns22000 ---|          LPC    777         SET EQUIPMENT NUMBER
05449  M01S00438.ns22000 +++|          LPC    777         SET EST ORDINAL
05450  M01S03885.lfm     +++|          STD    FS
05451  M01S03886.lfm     +++|          STD    T5
05452  M01S03887.lfm     +++|          LDD    FS+4        SAVE SECTOR WORD COUNT OVERLAP
05453  M01S03888.lfm     +++|          LPN    77
05454  M01S03889.lfm     +++|          STD    WO
05455  M01S03890.lfm     +++|          LDN    4           SET EOR OPERATION
05456  M01S03891.lfm     +++|          STD    FS+4
05457  M01S03892.lfm     +++|
05458  M01S03893.lfm     +++|*         CHECK IF POSITION INFORMATION TO BE RETURNED.
05459  M01S03894.lfm     +++|
05460  M01S03895.lfm     +++|          RJM    CPA         READ FET+6
05461  M01S03896.lfm     +++|          ADN    6
05462  M01S03897.lfm     +++|          CRD    CN
05463  M01S03898.lfm     +++|          LDD    CN+3        CHECK IF ADDRESS PRESENT
05464  M01S03899.lfm     +++|          LPN    77
05465  M01S03900.lfm     +++|          STD    CN+3
05466  M01S03901.lfm     +++|          SHN    14
05467  M01S03902.lfm     +++|          LMD    CN+4
05468  M01S03903.lfm     +++|          NJN    ACS4        IF ADDRESS PRESENT
05469  M01S03904.lfm     +++|          LJM    ACS7        CHANGE TO *LIFT* FILE TYPE
05470  M01S03905.lfm     +++|
05471  M01S03906.lfm     +++| ACS4     SHN    -6          CHECK IF ADDRESS WITHIN FL
05472  M01S03907.lfm     +++|          SBD    FL
05473  M01S03908.lfm     +++|          MJN    ACS5        IF WITHIN FL
05474  M01S03909.lfm     +++|          LDN    /ERR/AOR    * ADDRESS OUT OF RANGE.*
05475  M01S03910.lfm     +++|          LJM    ERR         ABORT
05476  M01S03911.lfm     +++|
05477  M01S03912.lfm     +++| ACS5     LDD    CN          SET FILE TYPE OPTION
05478  M01S03913.lfm     +++|          SHN    -13
05479  M01S03914.lfm     +++|          RAM    ACSA
05480  M01S03915.lfm     +++|          LDD    FS+2        CURRENT TRACK
05481  M01S03916.lfm     +++|          STD    T6
05482  M01S03917.lfm     +++|          LDD    FS+3        CURRENT SECTOR
05483  M01S03918.lfm     +++|          STD    T7
05484  M01S03919.lfm     +++|          LDD    FS+1        FIRST TRACK
05485  M01S03920.lfm     +++|          RJM    SRA         SET RANDOM ADDRESS
05486  M01S03921.lfm     +++|          SOD    RI+1        ADJUST ADDRESS TO PREVIOUS SECTOR
05487  M01S03922.lfm     +++|          PJN    ACS6        IF NO UNDERFLOW
05488  M01S03923.lfm     +++|          SOD    RI
05489  M01S03924.lfm     +++|          AOD    RI+1
05490  M01S03925.lfm     +++| ACS6     LDD    RI          RETURN RANDOM ADDRESS
05491  M01S03926.lfm     +++|          SHN    6
05492  M01S03927.lfm     +++|          STD    CM+3
05493  M01S03928.lfm     +++|          SHN    -14
05494  M01S03929.lfm     +++|          STD    CM+2
05495  M01S03930.lfm     +++|          LDD    RI+1
05496  M01S03931.lfm     +++|          SHN    6
05497  M01S03932.lfm     +++|          STD    CM+4
05498  M01S03933.lfm     +++|          SHN    -14
05499  M01S03934.lfm     +++|          RAD    CM+3
05500  M01S03935.lfm     +++|          LDC    CSBN        SET WORD COUNT
05501  M01S03936.lfm     +++|          SBD    SP+3
05502  M01S03937.lfm     +++|          SBD    WO          ADJUST FOR OVERLAP
05503  M01S03938.lfm     +++|          RAD    CM+4
05504  M01S00001.lfm10   +++|          SHN    -14
05505  M01S00002.lfm10   +++|          RAD    CM+3
05506  M01S03939.lfm     +++|          LDN    0           RETURN POSITION INFORMATION
05507  M01S03940.lfm     +++|          STD    CM
05508  M01S03941.lfm     +++|          STD    CM+1
05509  M01S03942.lfm     +++|          LDD    CN+3
05510  M01S03943.lfm     +++|          SHN    6
05511  M01S03944.lfm     +++|          ADD    RA
05512  M01S03945.lfm     +++|          SHN    6
05513  M01S03946.lfm     +++|          ADD    CN+4
05514  M01S03947.lfm     +++|          CWD    CM
Line S03948 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05515  M02S03948.v23l617 ---|          LDD    CF          CHECK IF ORIGINAL CONTROL STATEMENT FILE
05516  M01S00113.v23l617 +++|          LDD    CF          CHECK IF ORIGINAL COMMAND FILE
05517  M01S03949.lfm     +++|          SHN    21-13
05518  M01S03950.lfm     +++|          MJN    ACS7        IF ORIGINAL JOB INPUT FILE
05519  M01S03951.lfm     +++|
05520  M01S03952.lfm     +++|
05521  M01S03953.lfm     +++|*         IF THE USER OF *ACCSF* HAS BIT 59 SET IN FET+6,
Line S03954 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05522  M02S03954.v23l617 ---|*         IT IS NECESSARY FOR THE CONTROL STATEMENT FILE TO BE
05523  M01S00114.v23l617 +++|*         IT IS NECESSARY FOR THE COMMAND FILE TO BE
05524  M01S03955.lfm     +++|*         ACCESSED AS A LOCKED, READ ONLY, LIBRARY FILE.
05525  M01S03956.lfm     +++|*
05526  M01S03957.lfm     +++|*         *CHKPT* USES THIS OPTION BECAUSE IF THE FILE IS CREATED
05527  M01S03958.lfm     +++|*         AS LOCAL, THE *ENCSF* MACRO CAN BE USED TO RESTORE THE
Line S03959 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05528  M02S03959.v23l617 ---|*         CONTROL STATEMENT FILE AND THE CORRESPONDING POINTERS IN THE
Line S03960 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05529  M02S03960.v23l617 ---|*         *CPA*.  WHEN THE CONTROL STATEMENT BUFFER IS SUBSEQUENTLY
05530  M01S00115.v23l617 +++|*         COMMAND FILE AND THE CORRESPONDING POINTERS IN THE
05531  M01S00116.v23l617 +++|*         *CPA*.  WHEN THE COMMAND BUFFER IS SUBSEQUENTLY
05532  M01S03961.lfm     +++|*         RESTORED (FROM THE $DM*$ FILE) IT IS POSSIBLE FOR THE
Line S03962 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05533  M02S03962.v23l617 ---|*         POINTERS TO THE CONTROL STATEMENT FILE (NOT RESTORED FROM
Line S03963 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05534  M02S03963.v23l617 ---|*         THE $DM*$ FILE) TO BE INCORRECT IF A CONTROL STATEMENT WAS
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  M01S03964.lfm     +++|*         CONTINUED FROM THE PREVIOUS SECTOR.
05538  M01S03965.lfm     +++|*
05539  M01S03966.lfm     +++|*         *ENQUIRE* USES THIS OPTION BECAUSE IT ONLY WANTS TO READ
05540  M01S03967.lfm     +++|*         THE FILE, NOT REPOSITION OR RESTORE IT.
05541  M01S03968.lfm     +++|
05542  M01S03969.lfm     +++| ACSA     LDN    0
05543  M01S03970.lfm     +++|*         LDN    1           (FILE MUST BE LOCKED LIBRARY FILE)
05544  M01S03971.lfm     +++|          NJN    ACS7        IF SETTING WRITE LOCKOUT
05545  M01S03972.lfm     +++|          SOM    ACSB        DO NOT LOCK FILE
05546  M01S03973.lfm     +++|          LDN    ZERL        CLEAR CONTROL POINT AREA POINTERS
05547  M01S03974.lfm     +++|          CRD    CM
05548  M01S03975.lfm     +++|          CRD    CN
05549  M01S03976.lfm     +++|          LDD    SP          RETAIN CSPW BYTE 0
05550  M01S03977.lfm     +++|          STD    CM
05551  M01S03978.lfm     +++|          LDD    CP
Line S03979 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05552  M02S03979.ns22000 ---|          ADC    CSPW
05553  M01S00439.ns22000 +++|          ADK    CSPW
05554  M01S03980.lfm     +++|          CWD    CM
05555  M01S03981.lfm     +++|          ADN    CSSW-CSPW
05556  M01S03982.lfm     +++|          CWD    CN
05557  M01S03983.lfm     +++|          UJN    ACS8        CHECK *SSJ=* VALUE
05558  M01S03984.lfm     +++|
05559  M01S03985.lfm     +++| ACS7     LDC    LIFT*100-LOFT*100  CHANGE FILE TYPE TO *LIFT*
05560  M01S03986.lfm     +++|          RAD    FN+4
05561  M01S03987.lfm     +++| ACS8     LDD    CP          CHECK *SSJ=* ADDRESS VALUE
05562  M01S03988.lfm     +++|          ADC    SEPW
05563  M01S03989.lfm     +++|          CRD    CM
05564  M01S03990.lfm     +++|          LDD    CM+3
05565  M01S03991.lfm     +++|          LPN    77
05566  M01S03992.lfm     +++|          LMN    40
05567  M01S03993.lfm     +++|          SHN    14
05568  M01S03994.lfm     +++|          LMD    CM+4
05569  M01S03995.lfm     +++|          NJN    ACS9        IF *SSJ=* VALUE .NE. 400,000B
05570  M01S03996.lfm     +++|          LDD    FN+4        CHANGE FILE STATUS TO *SSST*
05571  M01S03997.lfm     +++|          SCN    77
05572  M01S03998.lfm     +++|          LMN    SSST
05573  M01S03999.lfm     +++|          STD    FN+4
05574  M01S04000.lfm     +++| ACS9     LDD    FS+1        REWIND FILE
05575  M01S04001.lfm     +++|          STD    FS+2
05576  M01S04002.lfm     +++|          LDN    FSMS
05577  M01S04003.lfm     +++|          STD    FS+3
05578  M01S04004.lfm     +++|          LDD    FN+3        SET LOCKED FILE
05579  M01S04005.lfm     +++|          SCN    77
05580  M01S04006.lfm     +++|          LMN    1
05581  M01S04007.lfm     +++| ACSB     EQU    *-1
05582  M01S04008.lfm     +++|*         LMN    0           DO NOT LOCK FILE WHEN LOFT
05583  M01S04009.lfm     +++|          STD    FN+3
05584  M01S04010.lfm     +++|          NFA    FA,R        STORE FNT WORD
05585  M01S04011.lfm     +++|          CWD    FN
Line S04012 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05586  M02S04012.v23l617 ---|          LDN    ZERL        SET CONTROL STATEMENT COUNT
05587  M01S00119.v23l617 +++|          LDN    ZERL        SET COMMAND COUNT
05588  M01S04013.lfm     +++|          CRD    CN
05589  M01S04014.lfm     +++|          LDD    SP+1
05590  M01S04015.lfm     +++|          LPN    77
05591  M01S04016.lfm     +++|          STD    CN+3
05592  M01S04017.lfm     +++|          LDD    SP+2
05593  M01S04018.lfm     +++|          STD    CN+4
05594  M01S04019.lfm     +++|          RJM    CPA         STORE (FET+6)
05595  M01S04020.lfm     +++|          ADN    6
05596  M01S04021.lfm     +++|          CWD    CN
05597  M01S04022.lfm     +++|          LJM    LFMX        EXIT
05598  M01S04023.lfm     +++| ECS      SPACE  4,20
05599  M01S04024.lfm     +++|***       FUNCTION 22.
Line S04025 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05600  M02S04025.v23l617 ---|*         REPLACE CONTROL STATEMENT FILE.
Line S04026 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05601  M02S04026.v23l617 ---|*         IF FILE IS NOT DEFINED, CONTROL STATEMENT FILE WILL BE
05602  M01S00120.v23l617 +++|*         REPLACE COMMAND FILE.
05603  M01S00121.v23l617 +++|*         IF FILE IS NOT DEFINED, COMMAND FILE WILL BE
05604  M01S04027.lfm     +++|*         CLEARED.
05605  M01S04028.lfm     +++|*
05606  M01S04029.lfm     +++|*         ENTRY  (FN - FN+3) = FILE NAME FROM FET+0.
05607  M01S04030.lfm     +++|* FET+6   42/, 18/ADDR
05608  M01S04031.lfm     +++|*
05609  M01S04032.lfm     +++|*         ADDR = IF PRESENT IS ADDRESS CONTAINING POSITION INFORMATION.
05610  M01S04033.lfm     +++|*         THE FORMAT OF THIS ADDRESS IS THE FOLLOWING.
05611  M01S04034.lfm     +++|*
05612  M01S04035.lfm     +++|*T ADDR   24/CS, 6/0, 24/CURRENT RANDOM ADDR, 6/WC
Figure ADDR

05629WCCURRENT RANDOM ADDR303536590CS

05613  M01S04036.lfm     +++|*
Line S04037 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05614  M02S04037.v23l617 ---|*         CS = CONTROL STATEMENT COUNT.
05615  M01S00122.v23l617 +++|*         CS = COMMAND COUNT.
05616  M01S04038.lfm     +++|*         WC = WORD COUNT POSITION IN SECTOR.
05617  M01S04039.lfm     +++|*
05618  M01S04040.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
05619  M01S04041.lfm     +++|
05620  M01S04042.lfm     +++|
05621  M01S04043.lfm     +++|          ENTRY  ECS
05622  M01S04044.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
05623  M01S04045.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
05624  M01S04046.lfm     +++|          NJN    ECS1        IF FOUND
05625  M01S04047.lfm     +++|          LDN    ZERL
05626  M01S04048.lfm     +++|          CRD    FS          CLEAR FST ENTRY
Line S04049 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05627  M02S04049.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT POINTER
05628  M01S00123.v23l617 +++|          LDD    CP          READ COMMAND POINTER
05629  M01S04050.lfm     +++|          ADN    CSPW
05630  M01S04051.lfm     +++|          CRD    SP
05631  M01S04052.lfm     +++|          LDC    4000        SET EOR
05632  M01S04053.lfm     +++|          STD    SP+1
05633  M01S04054.lfm     +++|          LDD    SP+4        CLEAR BUFFER
05634  M01S04055.lfm     +++|          STD    SP+3
Line S04056 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05635  M02S04056.v23l617 ---|          LDD    CP          STORE CONTROL STATEMENT POINTER
05636  M01S00124.v23l617 +++|          LDD    CP          STORE COMMAND POINTER
05637  M01S04057.lfm     +++|          ADN    CSPW
05638  M01S04058.lfm     +++|          CWD    SP
05639  M01S04059.lfm     +++|          LJM    LFMX        RETURN
05640  M01S04060.lfm     +++|
05641  M01S04061.lfm     +++| ECS1     RJM    SFB         SET FILE BUSY
05642  M01S04062.lfm     +++|          ZJN    ECS2        IF NO REJECT ON FILE INTERLOCK
05643  M01S04063.lfm     +++|          LDN    /ERR/IOE    *I/O SEQUENCE ERROR.*
05644  M01S04064.lfm     +++|          LJM    ERR         ABORT
05645  M01S04065.lfm     +++|
05646  M01S04066.lfm     +++| ECS2     LDD    CM+4        CHECK FILE TYPE
05647  M01S04067.lfm     +++|          SHN    -6
05648  M01S04068.lfm     +++|          LMN    LOFT
05649  M01S04069.lfm     +++|          NJN    ECS3        IF NOT LOCAL FILE TYPE
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  M01S04070.lfm     +++|          LJM    ECS6        LOCAL FILE TYPE
05654  M01S00006.lfm2    +++|
Line S00007 Modification History
M01 (Added by) lfm2
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05655  M02S00007.v23l617 ---| ECS2.1   LDN    /ERR/ILM    * ILLEGAL FILE MODE.*
05656  M01S00125.v23l617 +++| ECS2.1   LDN    /ERR/ILM    * INCORRECT FILE MODE.*
05657  M01S00008.lfm2    +++|          LJM    ERR         ABORT
05658  M01S04071.lfm     +++|
05659  M01S04072.lfm     +++| ECS3     LMN    LIFT&LOFT
05660  M01S04073.lfm     +++|          NJN    ECS4        IF NOT LIBRARY FILE TYPE
05661  M01S04074.lfm     +++|          LDC    ECS4        MUST HAVE POSITION PARAMETER
05662  M01S04075.lfm     +++|          STM    ECSA
05663  M01S04076.lfm     +++|
05664  M01S04077.lfm     +++|*         COMPARE TO ORIGINAL JOB INPUT FILE.
05665  M01S04078.lfm     +++|
05666  M01S04079.lfm     +++|          NFA    FNTN+FSTL   FETCH INPUT FILE FST INFORMATION
05667  M01S04080.lfm     +++|          CRD    CM
05668  M01S04081.lfm     +++|          LDD    FS          COMPARE EQUIPMENT AND FIRST TRACK
05669  M01S04082.lfm     +++|          LMD    CM
05670  M01S04083.lfm     +++|          NJN    ECS4        IF LIBRARY TYPE BUT NOT INPUT
05671  M01S04084.lfm     +++|          LDD    FS+1
05672  M01S04085.lfm     +++|          LMD    CM+1
05673  M01S04086.lfm     +++|          ZJN    ECS5        IF ORIGINAL JOB FILE
Line S04087 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05674  M02S04087.v23l617 ---| ECS4     LDN    /ERR/IFT    ILLEGAL FILE TYPE
05675  M01S00126.v23l617 +++| ECS4     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
05676  M01S04088.lfm     +++|          LJM    ERR         PROCESS ERROR
05677  M01S04089.lfm     +++|
05678  M01S04090.lfm     +++| ECS5     LDC    MJNI&UJNI   PREVENT DROPPING TRACKS
05679  M01S04091.lfm     +++|          LMM    ECSC
05680  M01S04092.lfm     +++|          STM    ECSC
05681  M01S04093.lfm     +++|          LDC    4000        SET ORIGINAL INPUT FILE FLAG
05682  M01S04094.lfm     +++|          STM    ECSB
Line S04095 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05683  M02S04095.ns22000 ---| ECS6     LDD    FS          CHECK FOR MASS STORAGE
Line S04096 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05684  M02S04096.ns22000 ---|          ADM    ESTS
05685  M01S00440.ns22000 +++| ECS6     SFA    EST,FS      CHECK FOR MASS STORAGE
05686  M01S00441.ns22000 +++|          ADK    EQDE
05687  M01S04097.lfm     +++|          CRD    CM
05688  M01S04098.lfm     +++|          LDD    CM
05689  M01S04099.lfm     +++|          SHN    21-13
05690  M01S04100.lfm     +++|          MJN    ECS7        IF ON MASS STORAGE
Line S04101 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05691  M02S04101.v23l617 ---|          LDN    /ERR/IEQ    ILLEGAL EQUIPMENT
05692  M01S00127.v23l617 +++|          LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
05693  M01S04102.lfm     +++|          UJN    ECS9        ABORT
05694  M01S04103.lfm     +++|
05695  M01S04104.lfm     +++| ECS7     LDD    FS+2
05696  M01S04105.lfm     +++|          NJN    ECS10       IF FILE USED
05697  M01S04106.lfm     +++| ECS8     LDN    /ERR/FLE    * FILE EMPTY.*
05698  M01S04107.lfm     +++| ECS9     LJM    ERR         PROCESS ERROR
05699  M01S04108.lfm     +++|
05700  M01S04109.lfm     +++|
05701  M01S04110.lfm     +++|*         CHECK IF POSITION INFORMATION TO BE RETRIEVED.
05702  M01S04111.lfm     +++|
05703  M01S04112.lfm     +++| ECS10    RJM    CPA         READ FET+6
05704  M01S04113.lfm     +++|          ADN    6
05705  M01S04114.lfm     +++|          CRD    CN
05706  M01S04115.lfm     +++|          LDD    CN+3        CHECK IF ADDRESS PRESENT
05707  M01S04116.lfm     +++|          LPN    77
05708  M01S04117.lfm     +++|          STD    CN+3
05709  M01S04118.lfm     +++|          SHN    14
05710  M01S04119.lfm     +++|          ADD    CN+4
05711  M01S04120.lfm     +++|          NJN    ECS11       IF ADDRESS PRESENT
05712  M01S04121.lfm     +++|          LJM    ECS13       IF ADDRESS NOT PRESENT
05713  M01S04122.lfm     +++| ECSA     EQU    *-1
05714  M01S04123.lfm     +++|*         LJM    ECS4        IF INPUT FILE BUT NO POSITION PARAMETER
05715  M01S04124.lfm     +++|
05716  M01S04125.lfm     +++| ECS11    SHN    -6          CHECK IF ADDRESS WITHIN FL
05717  M01S04126.lfm     +++|          SBD    FL
05718  M01S04127.lfm     +++|          MJN    ECS12       IF WITHIN FL
05719  M01S04128.lfm     +++|          LDN    /ERR/AOR    * ADDRESS OUT OF RANGE.*
05720  M01S04129.lfm     +++|          LJM    ERR         ABORT
05721  M01S04130.lfm     +++|
05722  M01S04131.lfm     +++| ECS12    LDD    CN+3        READ POSITION INFORMATION
05723  M01S04132.lfm     +++|          SHN    6
05724  M01S04133.lfm     +++|          ADD    RA
05725  M01S04134.lfm     +++|          SHN    6
05726  M01S04135.lfm     +++|          ADD    CN+4
Line S04136 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05727  M02S04136.lfm2    ---|          CRD    FN
Line S04137 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05728  M02S04137.lfm2    ---|          LDD    FN+3        GET CURRENT RANDOM ADDRESS
05729  M01S00009.lfm2    +++|          CRD    CM
05730  M01S00010.lfm2    +++|          LDD    CM+3        GET CURRENT RANDOM ADDRESS
05731  M01S04138.lfm     +++|          SHN    6
05732  M01S04139.lfm     +++|          STD    RI+1
05733  M01S04140.lfm     +++|          SHN    -14
05734  M01S04141.lfm     +++|          STD    RI
Line S04142 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05735  M02S04142.lfm2    ---|          LDD    FN+4
05736  M01S00011.lfm2    +++|          LDD    CM+4
05737  M01S04143.lfm     +++|          SHN    -6
05738  M01S04144.lfm     +++|          RAD    RI+1
Line S04145 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05739  M02S04145.lfm2    ---|          LDD    FN+2
05740  M01S00012.lfm2    +++|          LDD    CM+2
05741  M01S04146.lfm     +++|          SHN    6
05742  M01S04147.lfm     +++|          RAD    RI
05743  M01S04148.lfm     +++|          LDN    0
05744  M01S04149.lfm     +++|          STD    CN+3
Line S04150 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05745  M02S04150.lfm2    ---|          LDD    FN          GET CONTROL STATEMENT COUNT
Line S00013 Modification History
M01 (Added by) lfm2
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05746  M02S00013.v23l617 ---|          LDD    CM          GET CONTROL STATEMENT COUNT
05747  M01S00128.v23l617 +++|          LDD    CM          GET COMMAND COUNT
05748  M01S04151.lfm     +++|          STD    CN+1
Line S04152 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05749  M02S04152.lfm2    ---|          LDD    FN+1
05750  M01S00014.lfm2    +++|          LDD    CM+1
05751  M01S04153.lfm     +++|          STD    CN+2
Line S04154 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq #  *Modification Id* Act 
----------------------------+
05752  M02S04154.lfm2    ---|          LDD    FN+4        SET WORD COUNT
05753  M01S00015.lfm2    +++|          LDD    CM+4        SET WORD COUNT
05754  M01S04155.lfm     +++|          LPN    77
05755  M01S04156.lfm     +++|          STD    CN+4
05756  M01S04157.lfm     +++|          LDD    FS          SET EQUIPMENT
05757  M01S04158.lfm     +++|          STD    T5
05758  M01S04159.lfm     +++|          LMC    0
05759  M01S04160.lfm     +++| ECSB     EQU    *-1
05760  M01S04161.lfm     +++|*         LMC    4000        WHEN ORIGINAL JOB INPUT FILE
05761  M01S04162.lfm     +++|          STD    FS
05762  M01S04163.lfm     +++|          LDD    FS+1        SET FIRST TRACK
05763  M01S04164.lfm     +++|          STD    T6
Line S04165 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05764  M02S04165.v23l617 ---|          RJM    PCF         POSITION CONTROL STATEMENT FILE
05765  M01S00129.v23l617 +++|          RJM    PCF         POSITION COMMAND FILE
05766  M01S04166.lfm     +++|          LJM    ECS16       STORE NEW FST WORD
05767  M01S04167.lfm     +++|
05768  M01S04168.lfm     +++|*         CONTINUE HERE IF POSITION INFORMATION NOT PRESENT.
05769  M01S04169.lfm     +++|
Line S04170 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05770  M02S04170.v23l617 ---| ECS13    LDD    CP          READ CONTROL STATEMENT POINTER
05771  M01S00130.v23l617 +++| ECS13    LDD    CP          READ COMMAND POINTER
05772  M01S04171.lfm     +++|          ADN    CSPW
05773  M01S04172.lfm     +++|          CRD    SP
05774  M01S04173.lfm     +++|          LDD    FS          SET EQUIPMENT
05775  M01S04174.lfm     +++|          STD    T5
05776  M01S04175.lfm     +++|          LDD    FS+1        SET FIRST TRACK
05777  M01S04176.lfm     +++|          STD    FS+2
05778  M01S04177.lfm     +++|          STD    T6
05779  M01S04178.lfm     +++|          LDN    FSMS        SET FIRST SECTOR
Line S04179 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm6
Seq #  *Modification Id* Act 
----------------------------+
05780  M02S04179.lfm6    ---|          STD    FS+3
05781  M01S04180.lfm     +++|          STD    T7
Line S04181 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05782  M02S04181.242l642 ---|          SETMS  READ,NE
05783  M01S00123.242l642 +++|          SETMS  IO
05784  M01S04182.lfm     +++|          LDC    BFMS        READ FIRST SECTOR
05785  M01S04183.lfm     +++|          RJM    RNS
05786  M01S04184.lfm     +++|          ENDMS
05787  M01S04185.lfm     +++|          LDD    T1          CHECK WORD COUNT
05788  M01S04186.lfm     +++|          NJN    ECS14       IF NOT EMPTY SECTOR
05789  M01S04187.lfm     +++|          LJM    ECS8        * FILE EMPTY.*
05790  M01S04188.lfm     +++|
Line S04189 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05791  M02S04189.v23l617 ---| ECS14    LDN    0           CLEAR CONTROL CARD COUNT
05792  M01S00131.v23l617 +++| ECS14    LDN    0           CLEAR COMMAND COUNT
05793  M01S04190.lfm     +++|          STD    SP+1
05794  M01S04191.lfm     +++|          STD    SP+2
05795  M01S04192.lfm     +++|          STD    FS+4
Line S04193 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05796  M02S04193.v23l617 ---|          LDC    CSBN        SET INITIAL CONTROL STATEMENT INDEX
05797  M01S00132.v23l617 +++|          LDC    CSBN        SET INITIAL COMMAND INDEX
05798  M01S04194.lfm     +++|          STD    SP+3
05799  M01S04195.lfm     +++|          NFA    SP+3,R      STORE SECTOR
05800  M01S04196.lfm     +++|          CWM    BFMS+2,T1
05801  M01S04197.lfm     +++|          LDD    SP+3
05802  M01S04198.lfm     +++|          SBD    T1
05803  M01S04199.lfm     +++|          STD    SP+4
05804  M01S00001.lfm6    +++|          LDD    T7          SET CURRENT SECTOR IN FST
05805  M01S00002.lfm6    +++|          STD    FS+3
05806  M01S04200.lfm     +++|          LDD    T1          CHECK BUFFER WORD COUNT
05807  M01S04201.lfm     +++|          LMD    HN
05808  M01S04202.lfm     +++|          ZJN    ECS15       IF NOT SHORT SECTOR
05809  M01S04203.lfm     +++|          LDC    4000        SET EOR FLAG
05810  M01S04204.lfm     +++|          STD    SP+1
05811  M01S04205.lfm     +++| ECS15    LDD    FS+1
05812  M01S04206.lfm     +++|          STD    FS+2
Line S04207 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05813  M02S04207.v23l617 ---|          LDD    CP          STORE CONTROL STATEMENT POINTER
05814  M01S00133.v23l617 +++|          LDD    CP          STORE COMMAND POINTER
05815  M01S04208.lfm     +++|          ADN    CSPW
05816  M01S04209.lfm     +++|          CWD    SP
05817  M01S04210.lfm     +++|          ADN    CSSW-CSPW   READ FST ENTRY
05818  M01S04211.lfm     +++| ECS16    CRD    CN
05819  M01S04212.lfm     +++|          CWD    FS          STORE NEW FST ENTRY
05820  M01S04213.lfm     +++|          LDD    CN
05821  M01S04214.lfm     +++|          SHN    21-13
05822  M01S04215.lfm     +++|          MJN    ECS17       IF OLD FILE WAS INPUT FILE
05823  M01S04216.lfm     +++| ECSC     EQU    *-1
05824  M01S04217.lfm     +++|*         UJN    ECS17       (ORIGINAL JOB INPUT FILE)
Line S04218 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05825  M02S04218.v23l617 ---|          LDD    CN          DROP OLD CONTROL STATEMENT FILE
05826  M01S00134.v23l617 +++|          LDD    CN          DROP OLD COMMAND FILE
05827  M01S04219.lfm     +++|          LPC    777
05828  M01S04220.lfm     +++|          STD    CM+1
05829  M01S04221.lfm     +++|          LDD    CN+1
05830  M01S04222.lfm     +++|          STD    CM+2
05831  M01S04223.lfm     +++|          ZJN    ECS17       IF NO FIRST TRACK
05832  M01S04224.lfm     +++|          MONITOR DTKM
Line S04225 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05833  M02S04225.ns2171  ---|
Line S04226 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05834  M02S04226.ns2171  ---|*         INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA.
Line S04227 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05835  M02S04227.ns2171  ---|*         ACTUAL COUNT OF SECTORS RETURNED VIA DTKM IS IN CM+3 - CM+4.
Line S04228 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05836  M02S04228.ns2171  ---|
Line S04229 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05837  M02S04229.ns2171  ---|          LDN    CICS        INCREMENT CP AREA FIELD FUNCTION CODE
Line S04230 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05838  M02S04230.ns2171  ---|          STD    CM
Line S04231 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05839  M02S04231.ns2171  ---|          LDK    ACLW        ADDRESS OF MASS STORAGE SECTOR LIMIT
Line S04232 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05840  M02S04232.ns2171  ---|          STD    CM+1
Line S04233 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05841  M02S04233.ns2171  ---|          LDN    0D*100+18D  POSITION AND WIDTH OF LIMIT FIELD
Line S04234 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05842  M02S04234.ns2171  ---|          STD    CM+2
Line S04235 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05843  M02S04235.ns2171  ---|          LDD    MA          UADM FUNCTION MESSAGE BUFFER CONTENTS
Line S04236 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05844  M02S04236.ns2171  ---|          CWD    CM
Line S04237 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05845  M02S04237.ns2171  ---|          LDN    1           SET UADM REQUEST COUNT AND NO DROP PPU
Line S04238 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05846  M02S04238.ns2171  ---|          STD    CM+1
Line S04239 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05847  M02S04239.ns2171  ---|          STD    CM+2
Line S04240 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05848  M02S04240.ns2171  ---|          MONITOR UADM       INCREMENT MASS STORAGE SECTOR LIMIT
Line S04241 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05849  M02S04241.ns2171  ---|
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  M01S04242.lfm     +++| ECS17    LDD    FA
05857  M01S04243.lfm     +++|          ZJN    ECS18       IF NO FNT ENTRY
05858  M01S04244.lfm     +++|          STD    CM+4
05859  M01S04245.lfm     +++|          LDN    DLFS        CLEAR FNT ENTRY
05860  M01S04246.lfm     +++|          STD    CM+1
05861  M01S04247.lfm     +++|          MONITOR  PLFM
05862  M01S04248.lfm     +++|*         LDN    0           CLEAR FNT ADDRESS
05863  M01S04249.lfm     +++|          STD    FA
05864  M01S04250.lfm     +++| ECS18    LJM    LFMX        EXIT
05865  M01S04251.lfm     +++| PCS      SPACE  4,10
05866  M01S04252.lfm     +++|***       FUNCTION 23.
Line S04253 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05867  M02S04253.v23l617 ---|*         POSITION CONTROL STATEMENT FILE.
05868  M01S00135.v23l617 +++|*         POSITION COMMAND FILE.
05869  M01S04254.lfm     +++|*
05870  M01S04255.lfm     +++|*         ENTRY -
05871  M01S04256.lfm     +++|*T FET+6  12/,24/  CS,24/  WC
Figure FET+6

0232429 WC CS30474859 CS


Line S04257 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05872  M02S04257.v23l617 ---|*         CS     STATEMENT COUNT
05873  M01S00136.v23l617 +++|*         CS     COMMAND COUNT
05874  M01S04258.lfm     +++|*         WC     WORD COUNT FROM BEGINNING OF FILE
05875  M01S04259.lfm     +++|
05876  M01S04260.lfm     +++|
05877  M01S04261.lfm     +++|          ENTRY  PCS
Line S04262 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05878  M02S04262.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT FST ENTRY
05879  M01S00137.v23l617 +++|          LDD    CP          READ COMMAND FST ENTRY
05880  M01S04263.lfm     +++|          ADN    CSSW
05881  M01S04264.lfm     +++|          CRD    FS
05882  M01S04265.lfm     +++|          LDD    FS          SET EQUIPMENT
05883  M01S04266.lfm     +++|          LPC    777
05884  M01S04267.lfm     +++|          STD    T5
05885  M01S04268.lfm     +++|          LDD    FS+1        SET FIRST TRACK
05886  M01S04269.lfm     +++|          STD    T6
05887  M01S04270.lfm     +++|          NJN    PCS1        IF FILE EXISTS
05888  M01S04271.lfm     +++|          LDN    /ERR/FLE    FILE EMPTY
05889  M01S04272.lfm     +++|          LJM    ERR         PROCESS ERROR
05890  M01S04273.lfm     +++|
05891  M01S04274.lfm     +++| PCS1     RJM    CPA         READ (FET+6)
05892  M01S04275.lfm     +++|          ADN    6
05893  M01S04276.lfm     +++|          CRD    CN
05894  M01S04277.lfm     +++|          LDD    CN+4        SET RANDOM INDEX
05895  M01S04278.lfm     +++|          SCN    77
05896  M01S04279.lfm     +++|          SHN    6
05897  M01S04280.lfm     +++|          LMD    CN+3
05898  M01S04281.lfm     +++|          SHN    6
05899  M01S04282.lfm     +++|          ADN    FSMS
05900  M01S04283.lfm     +++|          STD    RI+1
05901  M01S04284.lfm     +++|          SHN    -14
05902  M01S04285.lfm     +++|          STD    RI
Line S04286 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05903  M02S04286.v23l617 ---|          RJM    PCF         POSITION CONTROL STATEMENT FILE
05904  M01S00138.v23l617 +++|          RJM    PCF         POSITION COMMAND FILE
05905  M01S04287.lfm     +++|          CWD    FS
05906  M01S04288.lfm     +++|          LJM    LFMX        RETURN
05907  M01S04289.lfm     +++|
05908  M01S04290.lfm     +++| PCF      SPACE  4,25
Line S04291 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05909  M02S04291.v23l617 ---|**        PCF - POSITION CONTROL STATEMENT FILE.
05910  M01S00139.v23l617 +++|**        PCF - POSITION COMMAND FILE.
05911  M01S04292.lfm     +++|*
05912  M01S04293.lfm     +++|*         ENTRY  (RI - RI+1) = CURRENT RANDOM ADDRESS.
Line S04294 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05913  M02S04294.v23l617 ---|*                (CN+1 - CN+2) = CONTROL STATEMENT COUNT.
05914  M01S00140.v23l617 +++|*                (CN+1 - CN+2) = COMMAND COUNT.
05915  M01S04295.lfm     +++|*                (CN+3 - CN+4) =  WORD COUNT. FROM ECS THIS IS A 6 BIT
05916  M01S04296.lfm     +++|*                WORD COUNT IN CN+4 RELATIVE TO THE PRU AND CN+3 = 0.
05917  M01S04297.lfm     +++|*                IF FROM PCS THIS IS A 24 BIT WORD COUNT FROM THE
05918  M01S04298.lfm     +++|*                BEGINNING OF FILE.
05919  M01S04299.lfm     +++|*                (FS - FS+4) = FST ENTRY.
Line S04300 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05920  M02S04300.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
05921  M01S00442.ns22000 +++|*                (T5) = EST ORDINAL.
05922  M01S04301.lfm     +++|*                (T6) = FIRST TRACK.
05923  M01S04302.lfm     +++|*
05924  M01S04303.lfm     +++|*         EXIT   (SP - SP+4) = WORD CSPW.
05925  M01S04304.lfm     +++|*                (FS - FS+4) = UPDATED FST ENTRY.
05926  M01S04305.lfm     +++|*                (A) = ADDRESS OF WORD *CSSW*.
05927  M01S04306.lfm     +++|*
Line S04307 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05928  M02S04307.242l642 ---|*         ERROR  TO *ERR*, IF CURRENT RANDOM ADDRESS = 0.
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  M01S04308.lfm     +++|*
05932  M01S04309.lfm     +++|*         USES   T2, T4, T6, T7, CN+4.
05933  M01S04310.lfm     +++|*
05934  M01S04311.lfm     +++|*         CALLS  CRA, RNS.
05935  M01S04312.lfm     +++|*
05936  M01S04313.lfm     +++|*         MACROS ENDMS, SETMS.
05937  M01S04314.lfm     +++|
05938  M01S04315.lfm     +++|
05939  M01S04316.lfm     +++| PCF      SUBR               ENTRY
05940  M01S04317.lfm     +++|          LDD    RI          CHECK CURRENT RANDOM ADDRESS
05941  M01S04318.lfm     +++|          ADD    RI+1
05942  M01S04319.lfm     +++|          NJN    PCF1        IF CURRENT RANDOM ADDRESS .NE. 0
Line S04320 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05943  M02S04320.v23l617 ---|          LDN    /ERR/IRA    * ILLEGAL RANDOM ADDRESS.*
05944  M01S00141.v23l617 +++|          LDN    /ERR/IRA    * INCORRECT RANDOM ADDRESS.*
05945  M01S04321.lfm     +++|          LJM    ERR         PROCESS ERROR
05946  M01S04322.lfm     +++|
Line S04323 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05947  M02S04323.v23l617 ---| PCF1     LDD    CP          READ CONTROL STATEMENT POINTER
05948  M01S00142.v23l617 +++| PCF1     LDD    CP          READ COMMAND POINTER
05949  M01S04324.lfm     +++|          ADN    CSPW
05950  M01S04325.lfm     +++|          CRD    SP
05951  M01S04326.lfm     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
05952  M01S04327.lfm     +++|          PJN    PCF3        IF ADDRESS ON FILE
05953  M01S04328.lfm     +++|          LDM    ECSB
05954  M01S04329.lfm     +++|          ZJN    PCF2        IF NOT ORIGINAL JOB INPUT FILE
05955  M01S04330.lfm     +++|          LJM    PCF8        SET *EOR*
05956  M01S04331.lfm     +++|
05957  M01S04332.lfm     +++| PCF2     LDD    FS+1        SET FIRST TRACK
05958  M01S04333.lfm     +++|          STD    T6
05959  M01S04334.lfm     +++|          LDN    FSMS        SET FIRST SECTOR
05960  M01S04335.lfm     +++|          STD    T7
05961  M01S04336.lfm     +++|          LDN    0           CLEAR WORD COUNT
05962  M01S04337.lfm     +++|          STD    CN+4
05963  M01S04338.lfm     +++| PCF3     LDD    T6          SET CURRENT TRACK
05964  M01S04339.lfm     +++|          STD    FS+2
05965  M01S04340.lfm     +++|          LDD    T7          SET CURRENT SECTOR
05966  M01S04341.lfm     +++|          STD    FS+3
Line S04342 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05967  M02S04342.242l642 ---|          SETMS  READ,NE
05968  M01S00126.242l642 +++|          SETMS  IO
05969  M01S04343.lfm     +++|          LDC    BFMS        READ SECTOR
05970  M01S04344.lfm     +++|          RJM    RNS
05971  M01S04345.lfm     +++|          ENDMS
05972  M01S04346.lfm     +++|          LDD    T1
05973  M01S04347.lfm     +++|          NJN    PCF4        IF NOT EMPTY SECTOR
05974  M01S04348.lfm     +++|          LJM    PCF8        PROCESS *EOR*
05975  M01S04349.lfm     +++|
05976  M01S04350.lfm     +++| PCF4     LDD    CN+4
05977  M01S04351.lfm     +++|          ADD    CN+3
05978  M01S04352.lfm     +++|          ZJN    PCF5        IF POSITIONING TO BEGINNING
05979  M01S04353.lfm     +++|          LDD    CN+4
05980  M01S04354.lfm     +++|          LPN    77
05981  M01S04355.lfm     +++|          SBD    T1
05982  M01S04356.lfm     +++|          SBN    1
05983  M01S04357.lfm     +++|          MJN    PCF5        IF WORD COUNT ON FILE
05984  M01S04358.lfm     +++|          LJM    PCF8        SET *EOR*
05985  M01S04359.lfm     +++|
Line S04360 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05986  M02S04360.v23l617 ---| PCF5     LDD    CN+1        SET CONTROL STATEMENT COUNT
05987  M01S00143.v23l617 +++| PCF5     LDD    CN+1        SET COMMAND COUNT
05988  M01S04361.lfm     +++|          LPC    3777
05989  M01S04362.lfm     +++|          STD    SP+1
05990  M01S04363.lfm     +++|          LDD    CN+2
05991  M01S04364.lfm     +++|          STD    SP+2
05992  M01S04365.lfm     +++|          LDC    CSBN        SET FIRST BUFFER ADDRESS
05993  M01S04366.lfm     +++|          STD    SP+3
05994  M01S04367.lfm     +++|          LDD    T6          UPDATE TRACK
05995  M01S04368.lfm     +++|          STD    FS+2
05996  M01S04369.lfm     +++|          LDD    T7          UPDATE SECTOR
05997  M01S04370.lfm     +++|          STD    FS+3
05998  M01S04371.lfm     +++|          LDN    0           CLEAR WORD COUNT
05999  M01S04372.lfm     +++|          STD    FS+4
06000  M01S04373.lfm     +++|          NFA    SP+3,R      WRITE NEXT SECTOR INTO BUFFER
06001  M01S04374.lfm     +++|          CWM    BFMS+2,T1
Line S04375 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06002  M02S04375.v23l617 ---|          LDD    SP+3        SET STATEMENT LIMIT
06003  M01S00144.v23l617 +++|          LDD    SP+3        SET COMMAND LIMIT
06004  M01S04376.lfm     +++|          SBD    T1
06005  M01S04377.lfm     +++|          STD    SP+4
06006  M01S04378.lfm     +++|          LDD    CN+4        SET POSITION IN BUFFER
06007  M01S04379.lfm     +++|          LPN    77
06008  M01S04380.lfm     +++|          LMC    -0
06009  M01S04381.lfm     +++|          RAD    SP+3
06010  M01S04382.lfm     +++|          LDD    T1
06011  M01S04383.lfm     +++|          LMD    HN
06012  M01S04384.lfm     +++|          ZJN    PCF7        IF NOT SHORT BLOCK
06013  M01S04385.lfm     +++| PCF6     LDC    4000        SET *EOR*
06014  M01S04386.lfm     +++|          RAD    SP+1
Line S04387 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06015  M02S04387.v23l617 ---| PCF7     LDD    CP          STORE STATEMENT POINTER
06016  M01S00145.v23l617 +++| PCF7     LDD    CP          STORE COMMAND POINTER
06017  M01S04388.lfm     +++|          ADN    CSPW
06018  M01S04389.lfm     +++|          CWD    SP
06019  M01S04390.lfm     +++|          ADN    CSSW-CSPW   SET ADDRESS OF *CSSW*
06020  M01S04391.lfm     +++|          LJM    PCFX        EXIT
06021  M01S04392.lfm     +++|
06022  M01S04393.lfm     +++| PCF8     LDC    CSBN        SET BUFFER EMPTY
06023  M01S04394.lfm     +++|          STD    SP+3
06024  M01S04395.lfm     +++|          STD    SP+4
Line S04396 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06025  M02S04396.v23l617 ---|          LDN    0           CLEAR STATEMENT COUNT
06026  M01S00146.v23l617 +++|          LDN    0           CLEAR COMMAND COUNT
06027  M01S04397.lfm     +++|          STD    SP+1
06028  M01S04398.lfm     +++|          STD    SP+2
06029  M01S04399.lfm     +++|          UJN    PCF6        SET *EOR*
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  M01S04400.lfm     +++|          SPACE  4,10
06066  M01S04401.lfm     +++|**        COMMON DECKS.
06067  M01S04402.lfm     +++|
06068  M01S04403.lfm     +++|
06069  M01S00040.lfm19   +++| MSR      EQU    ERX         ERROR PROCESSOR FOR *RNS*
06070  M01S04404.lfm     +++|*CALL     COMPCRA
06071  M01S04405.lfm     +++|*CALL     COMPRNS
06072  M01S00020.lfm17   +++|          SPACE  4,10
06073  M01S00021.lfm17   +++|          ERRNG  OVL0-*      CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
06074  M01S00022.lfm17   +++|          OVERFLOW  OVL
06075  M01S04406.lfm     +++|          OVERLAY (GETFNT AND PRIMARY FUNCTIONS.)
06076  M01S04407.lfm     +++|          SPACE  4,10
06077  M01S04408.lfm     +++|****      ADDITIONAL DIRECT LOCATION ASSIGNMENTS.
06078  M01S04409.lfm     +++|
06079  M01S04410.lfm     +++|
06080  M01S04411.lfm     +++| CB       EQU    65          CONTROL BITS - GETFNT FUNCTION.
06081  M01S04412.lfm     +++|*                            TEMPORARY STORAGE - PRIMARY FUNCTION.
06082  M01S04413.lfm     +++| SB       EQU    66 - 67     FILE SELECTIVITY BITS - GETFNT FUNCTION.
06083  M01S04414.lfm     +++|****
06084  M01S04415.lfm     +++|          TITLE  GETFNT
06085  M01S04416.lfm     +++| GTF      SPACE  4,50
06086  M01S04417.lfm     +++|***       FUNCTION 25.
06087  M01S04418.lfm     +++|*         RETURN TABLE WITH FNT/FST ENTRIES (OPTIONALLY MODIFIED)
06088  M01S04419.lfm     +++|*         FOR ALL WORKING FILES.
06089  M01S04420.lfm     +++|*
06090  M01S04421.lfm     +++|*         ENTRY -
06091  M01S04422.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  M01S04423.lfm     +++|*         WHERE -
06093  M01S04424.lfm     +++|*                NF = MAXIMUM NUMBER OF FILE FNT/FST ENTRIES TO
06094  M01S04425.lfm     +++|*                     RETURN IN TABLE.  TABLE SIZE MUST BE AT LEAST
06095  M01S04426.lfm     +++|*                     NF*2+1.  FOR NEW FORMAT, TABLE MUST BE AT
06096  M01S04427.lfm     +++|*                     LEAST NF*2+2.
06097  M01S04428.lfm     +++|*                SB = SELECTIVITY BITS.  BIT SET IMPLIES FILE TYPE
06098  M01S04429.lfm     +++|*                     SELECTED.  DEFAULT (*SB*=0) IS SELECTION OF
06099  M01S04430.lfm     +++|*                     ALL FILE TYPES.  BIT POSITIONS AND CORRESPONDING
06100  M01S04431.lfm     +++|*                     FILE TYPES ARE DEFINED AS FOLLOWS -
06101  M01S04432.lfm     +++|*
06102  M01S04433.lfm     +++|*                       BIT     FILE TYPE
06103  M01S04434.lfm     +++|*                     41-38        UNUSED
06104  M01S04435.lfm     +++|*                        37          LOFT
06105  M01S04436.lfm     +++|*                        36          SYFT
06106  M01S04437.lfm     +++|*                        35          FAFT
06107  M01S04438.lfm     +++|*                        34          PMFT
06108  M01S04439.lfm     +++|*                        33          PTFT
06109  M01S04440.lfm     +++|*                        32          LIFT
06110  M01S04441.lfm     +++|*                        31      RESERVED
06111  M01S04442.lfm     +++|*                        30      RESERVED
06112  M01S04443.lfm     +++|*                        29          QFFT
06113  M01S04444.lfm     +++|*                        28          TEFT
06114  M01S04445.lfm     +++|*                        27          PHQT
06115  M01S04446.lfm     +++|*                        26          PRQT
06116  M01S04447.lfm     +++|*                        25          ROFT
06117  M01S04448.lfm     +++|*                        24          INFT
06118  M01S04449.lfm     +++|*                F  = SET INDICATES THE NEW FORMAT TWO-WORD ENTRY IS
06119  M01S04450.lfm     +++|*                     TO BE RETURNED.  BITS 18 AND 19 (*M* AND *N*)
06120  M01S04451.lfm     +++|*                     ARE NOT CHECKED IF THIS BIT IS SET, SINCE THERE
06121  M01S04452.lfm     +++|*                     IS ONLY ONE FORMAT RETURNED IF *F* IS SET.
06122  M01S04453.lfm     +++|*                C  = SET IMPLIES TREAT CHECKPOINT FILES NORMALLY
06123  M01S04454.lfm     +++|*                     (LIKE ANY OTHER FILE).  NOT SET IMPLIES WRITE
06124  M01S04455.lfm     +++|*                     CHECKPOINT FILE FNT/FST ENTRIES IN FET+9, AND
06125  M01S04456.lfm     +++|*                     ONWARD.
06126  M01S04457.lfm     +++|*                M  = SET IMPLIES MODIFY FST ENTRIES OF MS FILES
06127  M01S04458.lfm     +++|*                     WITH LENGTH OF FILE.  NOT SET IMPLIES MODIFY
06128  M01S04459.lfm     +++|*                     WITH RANDOM INDEX.
06129  M01S04460.lfm     +++|*                N  = SET IMPLIES PERFORM NO MODIFICATION OF FST
06130  M01S04461.lfm     +++|*                     ENTRIES.  NOT SET IMPLIES PERFORM PERTINENT
06131  M01S04462.lfm     +++|*                     MODIFICATIONS.
06132  M01S04463.lfm     +++|*                TA = STARTING CM TABLE ADDRESS.
06133  M01S04464.lfm     +++|*
06134  M01S04465.lfm     +++|*         IF NEW FORMAT IS REQUESTED (*F* SET) -
06135  M01S04466.lfm     +++|*         (TA) = 48/, 12/ADDR
06136  M01S00275.274l797 +++|*
06137  M01S04467.lfm     +++|*         WHERE -
06138  M01S04468.lfm     +++|*                ADDR  = 0, IF FIRST *GETFNT* CALL.
06139  M01S04469.lfm     +++|*                      = FWA OF THE LAST FNT ENTRY IN NFL PROCESSED BY
06140  M01S04470.lfm     +++|*                        LAST *GETFNT* CALL.
06141  M01S04471.lfm     +++|*
06142  M01S04472.lfm     +++|*         EXIT   IF *N* NOT SET -
06143  M01S04473.lfm     +++|*                (FET+8) .LT. 0 IF AT LEAST 1 ERROR ENCOUNTERED.
06144  M01S04474.lfm     +++|*                IF *C* NOT SET -
06145  M01S04475.lfm     +++|*                (FET+9) = CHECKPOINT FILE FNT.
06146  M01S04476.lfm     +++|*                        = 0 IF NONE PRESENT (USER MUST PRESET).
06147  M01S04477.lfm     +++|*                        .LT. 0 IF MORE THAN TWO.
06148  M01S04478.lfm     +++|*                (FET+10)= FST.
06149  M01S04479.lfm     +++|*                (FET+11)= ALTERNATE CHECKPOINT FILE FNT.
06150  M01S04480.lfm     +++|*                        = 0 IF NO ALTERNATE (USER MUST PRESET).
06151  M01S04481.lfm     +++|*                (FET+12)= FST.
06152  M01S04482.lfm     +++|*
06153  M01S04483.lfm     +++|*         WRITES TABLE OF FNT/FST ENTRIES TO A CENTRAL MEMORY TABLE
06154  M01S04484.lfm     +++|*         AND TERMINATES WITH A ZERO WORD.  IF THE NEW FORMAT IS
06155  M01S04485.lfm     +++|*         REQUESTED (BIT 21 SET), THE FIRST WORD OF THE TABLE
06156  M01S04486.lfm     +++|*         CONTAINS AN ADDRESS AND THE FIRST FNT ENTRY
06157  M01S04487.lfm     +++|*         BEGINS IN THE SECOND WORD OF THE TABLE.  FOR MASS
06158  M01S04488.lfm     +++|*         STORAGE FILES, BYTES 2 AND 3 OF FST ENTRY CAN BE MODIFIED
06159  M01S04489.lfm     +++|*         WITH EITHER A RANDOM INDEX (CONVERTED FROM CURRENT TRACK
06160  M01S04490.lfm     +++|*         AND SECTOR), OR THE FILE S LENGTH (NUMBER OF SECTORS).
06161  M01S04491.lfm     +++|*         OPTIONALLY, FOR TAPE FILES, FST ENTRY CAN BE MODIFIED
06162  M01S04492.lfm     +++|*         WITH *MT* IN BYTE 1 AND BLOCK NUMBER IN BYTES 2 AND 3.
06163  M01S04493.lfm     +++|*         MODIFICATION CAN BE DONE ONLY IF THE OLD FORMAT
06164  M01S04494.lfm     +++|*         IS TO BE RETURNED IN THE TABLE.
06165  M01S04495.lfm     +++|*
06166  M01S04496.lfm     +++|*         IF NEW FORMAT IS SELECTED (*F* SET) -
06167  M01S04497.lfm     +++|*         (TA) = 48/, 12/ADDR
06168  M01S00276.274l797 +++|*
06169  M01S04498.lfm     +++|*         WHERE -
06170  M01S04499.lfm     +++|*                ADDR  = 0, IF SEARCH COMPLETE.
06171  M01S04500.lfm     +++|*                      = FWA OF THE LAST FNT ENTRY IN NFL PROCESSED
06172  M01S04501.lfm     +++|*                        BY THIS *GETFNT* CALL.
06173  M01S04502.lfm     +++|*
06174  M01S04503.lfm     +++|*         OLD FORMAT OF TWO-WORD TABLE ENTRY RETURNED (*F* NOT SET) -
06175  M01S04504.lfm     +++|*
06176  M01S04505.lfm     +++|*T        42/FILENAME, 1/, 3/M, 1/, 1/W, 6/FT, 6/FS
Figure

0561112131416171829FSFTWMFILENAME3059FILENAME


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

029D30474859DEQ

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

0561112131415171829FSFTWIMFILENAME3059FILENAME


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

0561112131415171829FSFTWIRESFILENAME3059FILENAME

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 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06186  M02S00005.242l642 ---|*T+1      24/FL, 24/RB, 4/RES, 4/M, 3/RS, 1/L
06187  M01S00127.242l642 +++|*T+1      24/FL ,24/RB, 3/RES, 1/F ,4/M 3/RS, 1/L
06188  M01S00277.274l797 +++|*
06189  M01S04512.lfm     +++|*         WHERE -
06190  M01S00445.ns22000 +++|*                AL = FILE ACCESS LEVEL.
06191  M01S04513.lfm     +++|*                D  = INFORMATION DEPENDS ON FILE TYPE AND/OR WHETHER
06192  M01S04514.lfm     +++|*                      OR NOT FST MODIFICATION IS SELECTED.
06193  M01S04515.lfm     +++|*                     IF TTY FILE -
06194  M01S04516.lfm     +++|*                     D = 12/*TT*, 36/
06195  M01S04517.lfm     +++|*                     IF TAPE FILE -
06196  M01S04518.lfm     +++|*                     D = 12/*MT*, 24/BLOCK COUNT, 12/
06197  M01S04519.lfm     +++|*                     IF MS FILE AND *M* SET -
06198  M01S04520.lfm     +++|*                     D = 12/, 24/RANDOM INDEX, 12/
06199  M01S04521.lfm     +++|*                     IF MS FILE AND *M* NOT SET -
06200  M01S04522.lfm     +++|*                     D = 12/, 24/FILE LENGTH, 12/
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 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06205  M02S04523.ns22000 ---|*                EQ = EQUIPMENT NUMBER.
06206  M01S00446.ns22000 +++|*                EQ = EST ORDINAL.
06207  M01S04524.lfm     +++|*                FL = FILE LENGTH (IF MS).
06208  M01S04525.lfm     +++|*                   = 0 (IF TAPE, TTY, OR OTHER).
06209  M01S04526.lfm     +++|*                FS = FILE STATUS.
06210  M01S04527.lfm     +++|*                FT = FILE TYPE.
06211  M01S04528.lfm     +++|*                I  = 0, IF MS FILE.
06212  M01S04529.lfm     +++|*                   = 1, IF TAPE FILE.
06213  M01S04530.lfm     +++|*                   = 2, IF TTY FILE.
06214  M01S04531.lfm     +++|*                   = 3, IF NOT MS, TAPE, OR TTY FILE.
06215  M01S04532.lfm     +++|*                L  = SET IF LAST OPERATION WAS WRITE.
Line S04533 Modification History
M01 (Added by) lfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06216  M02S04533.ns21000 ---|*                M  = MODE OF USE ALLOWED -
06217  M01S00006.ns21000 +++|*                M  = MODE OF USE ALLOWED.
06218  M01S00007.ns21000 +++|*                     NEW FORMAT -
06219  M01S04534.lfm     +++|*                     0 = READ.
06220  M01S04535.lfm     +++|*                     1 = WRITE.
06221  M01S04536.lfm     +++|*                     2 = MODIFY.
06222  M01S04537.lfm     +++|*                     3 = APPEND.
06223  M01S04538.lfm     +++|*                     4 = EXECUTE.
06224  M01S04539.lfm     +++|*                     5 = READ ALLOW MODIFY.
06225  M01S04540.lfm     +++|*                     6 = READ ALLOW APPEND.
Line S04541 Modification History
M01 (Added by) lfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06226  M02S04541.ns21000 ---|*                     7  = RESERVED.
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  M01S04542.lfm     +++|*                RB = RANDOM INDEX (IF MS).
06235  M01S04543.lfm     +++|*                   = BLOCK COUNT (IF TAPE).
06236  M01S04544.lfm     +++|*                   = 77777777 (IF TAPE BUT *MAGNET* NOT PRESENT.)
06237  M01S04545.lfm     +++|*                   = 0 (IF TTY OR OTHER).
Line S00015 Modification History
M01 (Added by) ns21000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06238  M02S00015.242l642 ---|*                RES = RESERVED.
06239  M01S00128.242l642 +++|*                F  = THE FILE ERROR STATUS.  SET IF THE FILE IS
06240  M01S00129.242l642 +++|*                     ON A DEVICE THAT IS NOT AVAILABLE.
06241  M01S04546.lfm     +++|*                RS = READ STATUS (MS ONLY).
06242  M01S04547.lfm     +++|*                     0 = INCOMPLETE READ.
06243  M01S04548.lfm     +++|*                     1 = EOR.
06244  M01S04549.lfm     +++|*                     2 = EOF.
06245  M01S04550.lfm     +++|*                     3 = EOI.
06246  M01S04551.lfm     +++|*                     4 = BOI.
06247  M01S04552.lfm     +++|*                     5-7 = RESERVED.
06248  M01S04553.lfm     +++|*                S  = SET IF SYSTEM SECTOR CONTAINS CONTROL
06249  M01S04554.lfm     +++|*                     INFORMATION.
06250  M01S04555.lfm     +++|*                W  = SET IF WRITE LOCKOUT.
06251  M01S04556.lfm     +++|
06252  M01S04557.lfm     +++|
06253  M01S04558.lfm     +++|          ENTRY  GTF
06254  M01S04559.lfm     +++|          RJM    CPA         READ FET+CFPN
06255  M01S04560.lfm     +++|          ADN    CGNT
06256  M01S04561.lfm     +++|          CRD    CN
06257  M01S04562.lfm     +++|          RJM    CCP         CRACK CALLING PARAMETERS
06258  M01S04563.lfm     +++|          MJN    GTF1        IF ERROR
06259  M01S04564.lfm     +++|          LDD    CN+3        CHECK IF TABLE WITHIN RANGE
06260  M01S04565.lfm     +++|          SHN    14
06261  M01S04566.lfm     +++|          LMD    CN+4
06262  M01S04567.lfm     +++|          ADD    CN
06263  M01S04568.lfm     +++|          ADD    CN
06264  M01S04569.lfm     +++|          ADN    1
06265  M01S04570.lfm     +++|          ADD    FT+1
06266  M01S04571.lfm     +++|          SHN    -6
06267  M01S04572.lfm     +++|          SBD    FL
06268  M01S04573.lfm     +++|          MJN    GTF3        IF WITHIN RANGE
06269  M01S04574.lfm     +++|          LDN    /ERR/GTL    * GETFNT TABLE TOO LARGE.*
06270  M01S04575.lfm     +++|          UJN    GTF2       ABORT
06271  M01S04576.lfm     +++|
06272  M01S04577.lfm     +++| GTF1     LDN    /ERR/FTS    * FET TOO SHORT.*
06273  M01S04578.lfm     +++| GTF2     LJM    ERR         PROCESS ERROR
06274  M01S04579.lfm     +++|
06275  M01S04580.lfm     +++|*         DETERMINE FNT ENTRY FROM WHICH TO BEGIN SCAN.
06276  M01S04581.lfm     +++|
06277  M01S04582.lfm     +++| GTF3     LDC    FNTN-LENF   FWA OF FNTS IN NFL
06278  M01S04583.lfm     +++|          STD    FT+4
06279  M01S04584.lfm     +++|          LDD    FT+1
06280  M01S04585.lfm     +++|          ZJN    GTF7        IF OLD FORMAT
06281  M01S04586.lfm     +++|          LDD    CN+4        SAVE FWA OF TABLE
06282  M01S04587.lfm     +++|          STM    GTFA+1
06283  M01S04588.lfm     +++|          LDD    CN+3        READ FIRST WORD OF TABLE
06284  M01S04589.lfm     +++|          STM    GTFA
06285  M01S04590.lfm     +++|          SHN    6
06286  M01S04591.lfm     +++|          ADD    RA
06287  M01S04592.lfm     +++|          SHN    6
06288  M01S04593.lfm     +++|          ADD    CN+4
06289  M01S04594.lfm     +++|          CRD    FS
06290  M01S04595.lfm     +++|          LDD    FS+4
06291  M01S04596.lfm     +++|          ZJN    GTF6        IF NO ADDRESS
06292  M01S04597.lfm     +++|          SBD    FT+4        (ADDRESS) - (FWA OF FNT-S)
06293  M01S04598.lfm     +++|          MJN    GTF4        IF ADDRESS OUT OF RANGE
06294  M01S04599.lfm     +++|          LDD    FT
06295  M01S04600.lfm     +++|          SHN    6
06296  M01S04601.lfm     +++|          SBD    FS+4        (LWA OF FNT-S) - (ADDRESS)
06297  M01S04602.lfm     +++|          PJN    GTF5        IF ADDRESS NOT OUT OF RANGE
06298  M01S04603.lfm     +++| GTF4     LDN    /ERR/AOR    * ADDRESS OUT OF RANGE.*
06299  M01S04604.lfm     +++|          UJN    GTF2        PROCESS ERROR
06300  M01S04605.lfm     +++|
06301  M01S04606.lfm     +++| GTF5     LDD    FS+4
06302  M01S04607.lfm     +++|          STD    FT+4        SAVE ADDRESS (LAST FNT PROCESSED)
06303  M01S04608.lfm     +++| GTF6     AOD    CN+4        ADVANCE TABLE ADDRESS (NEW FORMAT ONLY)
06304  M01S04609.lfm     +++|          SHN    -14
06305  M01S04610.lfm     +++|          RAD    CN+3
06306  M01S04611.lfm     +++|
06307  M01S04612.lfm     +++|*         SCAN FNT FOR FILES REQUESTED.
06308  M01S04613.lfm     +++|
06309  M01S04614.lfm     +++| GTF7     LDN    LENF        GET NEXT FNT ENTRY
06310  M01S04615.lfm     +++|          RAD    FT+4
06311  M01S04616.lfm     +++|          SHN    -6
06312  M01S04617.lfm     +++|          SBD    FT
06313  M01S04618.lfm     +++|          MJN    GTF8        IF NOT END OF FNTS
06314  M01S04619.lfm     +++|          LDN    0           CLEAR FNT ADDRESS
06315  M01S04620.lfm     +++|          STD    FT+4
06316  M01S04621.lfm     +++|          LJM    GTF15       TERMINATE SCAN
06317  M01S04622.lfm     +++|
06318  M01S04623.lfm     +++| GTF8     NFA    FT+4,R
06319  M01S04624.lfm     +++|          CRD    FN          FNT
06320  M01S04625.lfm     +++|          ADN    FSTL
06321  M01S04626.lfm     +++|          CRD    FS          FST
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  M01S04627.lfm     +++|          LDD    FN
06329  M01S04628.lfm     +++|          ZJN    GTF7        IF EMPTY ENTRY
06330  M01S04629.lfm     +++|          RJM    CFS         CHECK FILE SELECTIVITY
06331  M01S04630.lfm     +++|          PJN    GTF7        IF FILE NOT SELECTED
06332  M01S04631.lfm     +++|          LDD    FT+1
06333  M01S04632.lfm     +++|          ZJN    GTF9        IF OLD FORMAT
06334  M01S04633.lfm     +++|          RJM    RFE         REFORMAT FNT ENTRY (NEW FORMAT ONLY)
06335  M01S00453.ns22000 +++|          LDD    AL          SET FILE ACCESS LEVEL IN FNT ENTRY
06336  M01S00454.ns22000 +++|          RAD    FN+3
06337  M01S04634.lfm     +++|          UJN    GTF10       MODIFY FST
06338  M01S04635.lfm     +++|
06339  M01S04636.lfm     +++| GTF9     LDD    CB          CHECK IF FST MODIFICATION DESIRED
06340  M01S04637.lfm     +++|          SHN    21-0
06341  M01S04638.lfm     +++|          MJN    GTF11       IF NO MODIFICATION DESIRED
06342  M01S04639.lfm     +++| GTF10    RJM    MFF
Line S04640 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06343  M02S04640.ns22000 ---|          NJN    GTF7        IF ERROR EXIT
06344  M01S00455.ns22000 +++|          NJP    GTF7        IF ERROR EXIT
06345  M01S04641.lfm     +++|
06346  M01S04642.lfm     +++|*         CHECK FOR CHECKPOINT FILE.
06347  M01S04643.lfm     +++|
06348  M01S04644.lfm     +++| GTF11    LDD    CB          CHECK FOR NORMAL TREATMENT
06349  M01S04645.lfm     +++|          SHN    21-2
06350  M01S04646.lfm     +++|          MJN    GTF14       IF CHECKPOINT FILES TO BE TREATED NORMALLY
06351  M01S04647.lfm     +++|          LDD    FN+4
06352  M01S04648.lfm     +++|          LPN    77
06353  M01S04649.lfm     +++|          LMN    CBST
06354  M01S04650.lfm     +++|          ZJN    GTF12       IF CHECKPOINT FILE TYPE *CB*
06355  M01S04651.lfm     +++|          LMN    CKST&CBST
06356  M01S04652.lfm     +++|          NJN    GTF14       IF NOT CHECKPOINT FILE TYPE *CK*
06357  M01S04653.lfm     +++| GTF12    RJM    PCF         PROCESS CHECKPOINT FILE
06358  M01S04654.lfm     +++|          NJN    GTF15       IF ERROR
06359  M01S04655.lfm     +++| GTF13    LJM    GTF7        GET NEXT FNT ENTRY
06360  M01S04656.lfm     +++|
06361  M01S04657.lfm     +++|*         ENTER FNT/FST IN TABLE AND ADVANCE TABLE POINTER.
06362  M01S04658.lfm     +++|
06363  M01S04659.lfm     +++| GTF14    LDD    CN+3
06364  M01S04660.lfm     +++|          SHN    6
06365  M01S04661.lfm     +++|          ADD    RA
06366  M01S04662.lfm     +++|          SHN    6
06367  M01S04663.lfm     +++|          ADD    CN+4
06368  M01S04664.lfm     +++|          CWD    FN
06369  M01S04665.lfm     +++|          ADN    FSTL
06370  M01S04666.lfm     +++|          CWD    FS
06371  M01S04667.lfm     +++|          LDN    2           ADVANCE TABLE POINTER
06372  M01S04668.lfm     +++|          RAD    CN+4
06373  M01S04669.lfm     +++|          SHN    -14
06374  M01S04670.lfm     +++|          RAD    CN+3
06375  M01S04671.lfm     +++|          SOD    CN          DECREMENT FILE COUNTER
06376  M01S04672.lfm     +++|          NJN    GTF13       IF TABLE NOT FULL
06377  M01S04673.lfm     +++|
06378  M01S04674.lfm     +++|*         TERMINATE SCAN.
06379  M01S04675.lfm     +++|
06380  M01S04676.lfm     +++| GTF15    LDN    ZERL        CLEAR LAST WORD OF TABLE
06381  M01S04677.lfm     +++|          CRD    CM
06382  M01S04678.lfm     +++|          LDD    CN+3
06383  M01S04679.lfm     +++|          SHN    6
06384  M01S04680.lfm     +++|          ADD    RA
06385  M01S04681.lfm     +++|          SHN    6
06386  M01S04682.lfm     +++|          ADD    CN+4
06387  M01S04683.lfm     +++|          CWD    CM
06388  M01S04684.lfm     +++|          LDD    FT+1
06389  M01S04685.lfm     +++|          ZJN    GTF16       IF OLD FORMAT
06390  M01S04686.lfm     +++|          LDD    FT+4        SAVE ZERO OR LAST FNT PROCESSED
06391  M01S04687.lfm     +++|          STD    CM+4
06392  M01S04688.lfm     +++|          LDM    GTFA        REWRITE FIRST WORD OF TABLE
06393  M01S04689.lfm     +++|          SHN    6
06394  M01S04690.lfm     +++|          ADD    RA
06395  M01S04691.lfm     +++|          SHN    6
06396  M01S04692.lfm     +++|          ADM    GTFA+1
06397  M01S04693.lfm     +++|          CWD    CM
06398  M01S04694.lfm     +++| GTF16    RJM    CPA         RESET FILE NAME
06399  M01S04695.lfm     +++|          CRD    FN
06400  M01S04696.lfm     +++|          LJM    LFMX        EXIT
06401  M01S04697.lfm     +++|
06402  M01S04698.lfm     +++|
06403  M01S04699.lfm     +++| GTFA     BSS    2           FWA OF TABLE
06404  M01S04700.lfm     +++|          TITLE  PRIMARY
06405  M01S04701.lfm     +++| PRI      SPACE  4,10
06406  M01S04702.lfm     +++|***       FUNCTION 31.
06407  M01S04703.lfm     +++|*         MAKE FILE PRIMARY.
06408  M01S04704.lfm     +++|*         THIS FUNCTION MAKES THE SPECIFIED FILE THE USER S NEW
06409  M01S04705.lfm     +++|*         PRIMARY FILE. ANY EXISTING PRIMARY, WHICH IS NOT THE
06410  M01S04706.lfm     +++|*         SPECIFIED FILE, IS CHANGED TO TYPE *LOFT*.
06411  M01S04707.lfm     +++|*         THE SPECIFIED FILE MUST BE OF TYPE LOCAL AND BE A MASS
06412  M01S04708.lfm     +++|*         STORAGE FILE TO BE MADE PRIMARY.
06413  M01S04709.lfm     +++|*         THE FILE S FST ADDRESS IS SET INTO THE CPA.
06414  M01S04710.lfm     +++|          SPACE  4,10
06415  M01S04711.lfm     +++|**        PRI - PROCESS PRIMARY FUNCTION.
06416  M01S04712.lfm     +++|*
06417  M01S04713.lfm     +++|*         ENTRY  (FN - FN+3) = WORKING FILE NAME TO BE MADE PRIMARY.
06418  M01S04714.lfm     +++|*                (FF) = INITIAL FNT ADDRESS FOR SEARCH.
06419  M01S04715.lfm     +++|*
06420  M01S04716.lfm     +++|*         EXIT   (FN - FN+3) = WORKING FILE NAME TO BE MADE PRIMARY.
06421  M01S04717.lfm     +++|*                (FA) = FNT ENTRY ADDRESS.
06422  M01S04718.lfm     +++|*                (FS - FS+4) = FST ENTRY.
06423  M01S04719.lfm     +++|
06424  M01S04720.lfm     +++|
06425  M01S04721.lfm     +++|          ENTRY  PRI
06426  M01S04722.lfm     +++|          LDD    FF          SET INITIAL FNT ADDRESS
06427  M01S04723.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
06428  M01S04724.lfm     +++|          NJN    PRI1        IF FOUND
06429  M01S04725.lfm     +++|          LDN    NEEQ        SET NULL EQUIPMENT
06430  M01S04726.lfm     +++|          STD    EQ          CREATE NULL PRIMARY FILE
06431  M01S04727.lfm     +++|          RJM    EFN         ENTER FILE NAME
06432  M01S04728.lfm     +++|          UJN    PRI3        CHECK IF FILE ALREADY PRIMARY
06433  M01S04729.lfm     +++|
Line S04730 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06434  M02S04730.ns22000 ---|
06435  M01S04731.lfm     +++| PRI1     RJM    SFB         SET FILE BUSY
06436  M01S04732.lfm     +++|          ZJN    PRI3        IF NO REJECT ON FILE INTERLOCK
Line S04733 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06437  M02S04733.ns22000 ---| PRI2     LDN    /ERR/IOE    *I/O SEQUENCE ERROR.*
06438  M01S00456.ns22000 +++| PRI2     LDN    /ERR/IOE    * I/O SEQUENCE ERROR.*
06439  M01S04734.lfm     +++|          UJN    PRI6        PROCESS ERROR
06440  M01S04735.lfm     +++|
06441  M01S04736.lfm     +++| PRI3     LDD    CP          READ CPA WORD
06442  M01S04737.lfm     +++|          ADN    TFSW
06443  M01S04738.lfm     +++|          CRD    CN
06444  M01S04739.lfm     +++|          LDD    CN+1
06445  M01S04740.lfm     +++|          LMD    FA
Line S04741 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06446  M02S04741.ns22000 ---|          NJN    PRI4        IF SPECIFIED FILE IS NOT ALREADY PRIMARY
Line S04742 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06447  M02S04742.ns22000 ---|          LJM    LFMX        EXIT
Line S04743 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06448  M02S04743.ns22000 ---|
Line S04744 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06449  M02S04744.ns22000 ---| PRI4     NFA    FA,R        CHECK FILE TYPE
06450  M01S00457.ns22000 +++|          ZJP    LFMX        IF SPECIFIED FILE IS ALREADY PRIMARY
06451  M01S00458.ns22000 +++|          NFA    FA,R        CHECK FILE TYPE
06452  M01S04745.lfm     +++|          CRD    CM
06453  M01S04746.lfm     +++|          LDD    CM+4
06454  M01S04747.lfm     +++|          SHN    -6
06455  M01S04748.lfm     +++|          LMN    LOFT
06456  M01S04749.lfm     +++|          ZJN    PRI7        IF *LOCAL*
Line S04750 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06457  M02S04750.ns22000 ---|          LDN    /ERR/IFT&/ERR/NMA
Line S04751 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06458  M02S04751.ns22000 ---| PRI5     LMN    /ERR/NMA
Line S00459 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06459  M02S00459.v23l617 ---|          LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
06460  M01S00147.v23l617 +++|          LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
06461  M01S04752.lfm     +++| PRI6     LJM    ERR         PROCESS ERROR
06462  M01S04753.lfm     +++|
06463  M01S04754.lfm     +++| PRI7     LDD    FS          CHECK FOR MASS STORAGE
06464  M01S04755.lfm     +++|          ZJN    PRI8        IF NO EQUIPMENT ASSIGNED
06465  M01S04756.lfm     +++|          LMN    NEEQ
06466  M01S04757.lfm     +++|          ZJN    PRI8        IF NULL EQUIPMENT
Line S04758 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06467  M02S04758.ns22000 ---|          LMN    NEEQ
Line S04759 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06468  M02S04759.ns22000 ---|          ADM    ESTS
06469  M01S00460.ns22000 +++|          SFA    EST,FS
06470  M01S00461.ns22000 +++|          ADK    EQDE
06471  M01S04760.lfm     +++|          CRD    T1
06472  M01S04761.lfm     +++|          LDD    T1
06473  M01S04762.lfm     +++|          SHN    21-13
06474  M01S04763.lfm     +++|          MJN    PRI8        IF MASS STORAGE FILE
Line S04764 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06475  M02S04764.ns22000 ---|          LDN    /ERR/IEQ    ILLEGAL EQUIPMENT
Line S00462 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06476  M02S00462.v23l617 ---|          LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
06477  M01S00148.v23l617 +++|          LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
06478  M01S04765.lfm     +++|          UJN    PRI6        PROCESS ERROR
06479  M01S04766.lfm     +++|
06480  M01S04767.lfm     +++| PRI8     LDD    FS+2
Line S04768 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06481  M02S04768.ns22000 ---|          ZJN    PRI9        IF AN EMPTY FILE
Line S04769 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06482  M02S04769.ns22000 ---|          LJM    PRI12       REWIND FILE
Line S04770 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06483  M02S04770.ns22000 ---|
Line S04771 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06484  M02S04771.ns22000 ---| PRI9     LDD    FS+1
Line S04772 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06485  M02S04772.ns22000 ---|          NJN    PRI11       IF NOT A NULL FILE
Line S04773 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06486  M02S04773.ns22000 ---|          STD    CM+1        CLEAR EQUIPMENT FIELD
Line S04774 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06487  M02S04774.ns22000 ---|          STD    CM+3        SET SECTORS REQUESTED PARAMETER
Line S04775 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06488  M02S04775.ns22000 ---|          LDN    FSMS+1
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  M01S04776.lfm     +++|          STD    CM+4
06502  M01S04777.lfm     +++|          LDN    PRIS        SET *RTCM* PARAMETER FOR PRIMARY FILE
06503  M01S04778.lfm     +++|          STD    CM+2
Line S04779 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
M03 (Updated by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
06504  M03S04779.ns2171  ---|
06505  M01S00091.ns2171  +++|          AOM    PRIA
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  M01S04780.lfm     +++|          MONITOR RTCM       ASSIGN MASS STORAGE SPACE
06511  M01S04781.lfm     +++|          LDD    CM+4        SET FIRST TRACK
06512  M01S04782.lfm     +++|          NJN    PRI10       IF MASS STORAGE SPACE AVAILABLE
Line S04783 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06513  M02S04783.ns22000 ---|          LJM    PRI5        IF NO MASS STORAGE SPACE
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 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06519  M02S00484.lfm16   ---|          LJM    PRI6        ISSUE ERROR
06520  M01S00001.lfm16   +++|          LJM    ERR         ISSUE ERROR
06521  M01S04784.lfm     +++|
06522  M01S04785.lfm     +++| PRI10    STD    FS+1
Line S04786 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06523  M02S04786.ns22000 ---|          LDD    CM+1        SET EQUIPMENT NUMBER
06524  M01S00485.ns22000 +++|          LDD    CM+1        SET EST ORDINAL
06525  M01S04787.lfm     +++|          STD    FS
Line S04788 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06526  M02S04788.lfm16   ---|          LDD    FS+1
Line S04789 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06527  M02S04789.lfm16   ---| PRI11    STD    FS+2        UPDATE CURRENT TRACK IN FST WORD
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  M01S04790.lfm     +++|          STD    T6          SET FIRST TRACK PARAMETER
Line S04791 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06542  M02S04791.lfm16   ---|          LDC    104         UPDATE STATUS BYTE OF FST
06543  M01S00015.lfm16   +++|          LDD    HN          UPDATE STATUS BYTE OF FST
06544  M01S04792.lfm     +++|          STD    FS+4
Line S04793 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06545  M02S04793.lfm16   ---|          LDN    FSMS        UPDATE CURRENT SECTOR IN FST
Line S04794 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06546  M02S04794.lfm16   ---|          STD    FS+3
Line S04795 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06547  M02S04795.lfm16   ---|          NFA    FA,R        UPDATE FST FOR *COMPWEI*
Line S04796 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06548  M02S04796.lfm16   ---|          ADN    FSTL
Line S04797 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06549  M02S04797.lfm16   ---|          CWD    FS
06550  M01S04798.lfm     +++|          LDD    FS
06551  M01S04799.lfm     +++|          STD    T5
Line S04800 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06552  M02S04800.242l642 ---|          SETMS  WRITE,NE,BFMS
06553  M01S00130.242l642 +++|          SETMS  IO
06554  M01S04801.lfm     +++|          RJM    WSS         WRITE SYSTEM SECTOR
06555  M01S04802.lfm     +++|          RJM    WEI         WRITE EOI
06556  M01S04803.lfm     +++|          ENDMS
06557  M01S04804.lfm     +++|          NFA    FA,R        RE-READ FNT ENTRY
06558  M01S04805.lfm     +++|          CRD    CM
06559  M01S00092.ns2171  +++| PRIA     LDN    0
06560  M01S00093.ns2171  +++|*         LDN    1           (MASS STORAGE SPACE ALLOCATED)
Line S00094 Modification History
M01 (Added by) ns2171
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06561  M02S00094.lfm16   ---|          ZJN    PRI13       IF NO SECTORS ALLOCATED
06562  M01S00016.lfm16   +++|          ZJN    PRI12       IF NO SECTORS ALLOCATED
06563  M01S00095.ns2171  +++|          LDM    SLM
06564  M01S00096.ns2171  +++|          STM    DPPB+1
Line S04806 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06565  M02S04806.lfm16   ---|          UJN    PRI13       CHANGE CURRENT PRIMARY FILE TO *LOFT*
Line S04807 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06566  M02S04807.lfm16   ---|
06567  M01S04808.lfm     +++| PRI12    LDD    FS+1        REWIND FILE
06568  M01S04809.lfm     +++|          STD    FS+2
06569  M01S04810.lfm     +++|          LDN    FSMS
06570  M01S04811.lfm     +++|          STD    FS+3
06571  M01S04812.lfm     +++|          LDD    FS+4        UPDATE STATUS BYTE OF FST
06572  M01S04813.lfm     +++|          SCN    77
06573  M01S04814.lfm     +++|          LMN    4
06574  M01S04815.lfm     +++|          STD    FS+4
06575  M01S04816.lfm     +++|
06576  M01S04817.lfm     +++|*         CHANGE EXISTING PRIMARY FILE TO TYPE *LOFT*.
06577  M01S04818.lfm     +++|
Line S04819 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06578  M02S04819.lfm16   ---| PRI13    LDD    CN+1
06579  M01S00017.lfm16   +++|          LDD    CN+1
Line S04820 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06580  M02S04820.ns22000 ---|          NJN    PRI14       IF A PRIMARY EXISTS
Line S04821 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06581  M02S04821.ns22000 ---|          LJM    PRI17       SET NEW FILE AS PRIMARY
Line S04822 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06582  M02S04822.ns22000 ---|
Line S04823 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06583  M02S04823.ns22000 ---| PRI14    LDD    FA          SAVE LOCAL FILE FNT ADDRESS
06584  M01S00486.ns22000 +++|          ZJP    PRI17       IF NO PRIMARY FILE CURRENTLY EXISTS
06585  M01S00487.ns22000 +++|          LDD    FA          SAVE LOCAL FILE FNT ADDRESS
06586  M01S04824.lfm     +++|          STD    CB
06587  M01S04825.lfm     +++|          NFA    FA,R        WRITE FST WORD
06588  M01S04826.lfm     +++|          ADN    FSTL
06589  M01S04827.lfm     +++|          CWD    FS
06590  M01S04828.lfm     +++|          LDD    CN+1        SAVE FST ADDRESS OF EXISTING PRIMARY FILE
06591  M01S04829.lfm     +++|          STD    FA
06592  M01S04830.lfm     +++|          NFA    FA,R        READ FNT OF EXISTING PRIMARY FILE
06593  M01S04831.lfm     +++|          CRD    FS
06594  M01S04832.lfm     +++|          LDD    FS+4
06595  M01S04833.lfm     +++|          SHN    -6
06596  M01S04834.lfm     +++|          LMN    PTFT
06597  M01S04835.lfm     +++|          NJN    PRI16       IF NOT PRIMARY FILE
06598  M01S04836.lfm     +++|          RJM    SFB         SET PRIMARY FILE BUSY
06599  M01S04837.lfm     +++|          ZJN    PRI15       IF NO REJECT ON FILE INTERLOCK
06600  M01S04838.lfm     +++|          NFA    CB,R
06601  M01S04839.lfm     +++|          ADN    FSTL
06602  M01S04840.lfm     +++|          CRD    FS
06603  M01S04841.lfm     +++|          AOD    FS+4
06604  M01S04842.lfm     +++|          NFA    CB,R
06605  M01S04843.lfm     +++|          ADN    FSTL
06606  M01S04844.lfm     +++|          CWD    FS
06607  M01S04845.lfm     +++|          LJM    PRI2        PROCESS AS I/O SEQ. ERROR
06608  M01S04846.lfm     +++|
06609  M01S04847.lfm     +++| PRI15    LDC    LOFT*100-PTFT*100  CHANGE FILE TYPE TO LOCAL
06610  M01S04848.lfm     +++|          RAD    CM+4
06611  M01S04849.lfm     +++|          AOD    FS+4        SET FST COMPLETE
06612  M01S04850.lfm     +++|          NFA    FA,R        STORE FNT ENTRY
06613  M01S04851.lfm     +++|          CWD    CM
06614  M01S04852.lfm     +++|          ADN    FSTL
06615  M01S04853.lfm     +++|          CWD    FS
06616  M01S04854.lfm     +++| PRI16    LDD    CB          RESTORE LOCAL FILE FNT ADDRESS
06617  M01S04855.lfm     +++|          STD    FA
Line S04856 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06618  M02S04856.lfm16   ---| PRI17    NFA    FA,R        RESTORE LOCAL FILE FNT ENTRY
06619  M01S00018.lfm16   +++|          NFA    FA,R        RESTORE LOCAL FILE FNT ENTRY
06620  M01S04857.lfm     +++|          CRD    CM
06621  M01S04858.lfm     +++|          ADN    FSTL
06622  M01S04859.lfm     +++|          CRD    FS
06623  M01S04860.lfm     +++|
06624  M01S04861.lfm     +++|*         SET NEW FILE AS PRIMARY.
06625  M01S04862.lfm     +++|
Line S04863 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06626  M02S04863.lfm16   ---|          LDD    CM+4        SET FILE TYPE TO PRIMARY
Line S04864 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06627  M02S04864.lfm16   ---|          LPN    77
Line S04865 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06628  M02S04865.lfm16   ---|          LMC    PTFT*100
Line S04866 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm16
Seq #  *Modification Id* Act 
----------------------------+
06629  M02S04866.lfm16   ---|          STD    CM+4
06630  M01S00019.lfm16   +++| PRI17    LDC    PTFT*100-LOFT*100  CHANGE FILE TYPE TO PRIMARY
06631  M01S00020.lfm16   +++|          RAD    CM+4
06632  M01S04867.lfm     +++|          NFA    FA,R        REWRITE FNT
06633  M01S04868.lfm     +++|          CWD    CM
06634  M01S04869.lfm     +++|          RJM    UPP         UPDATE PRIMARY FILE POINTERS
06635  M01S04870.lfm     +++|          LJM    LFMX        EXIT
06636  M01S04871.lfm     +++|          TITLE  SUBROUTINES
06637  M01S04872.lfm     +++| CCP      SPACE  4,20
06638  M01S04873.lfm     +++|**        CCP - CRACK CALLING PARAMETERS IN FET+CGNT.
06639  M01S04874.lfm     +++|*               ALSO, A CHECK IS MADE TO SEE IF FET LENGTH IS
06640  M01S04875.lfm     +++|*               CONSISTENT WITH FET LOCATIONS USED.
06641  M01S04876.lfm     +++|*
06642  M01S04877.lfm     +++|*         ENTRY  (CN) = NUMBER OF FILE ENTRIES TO RETURN IN TABLE.
06643  M01S04878.lfm     +++|*                (CN+1 - CN+2) = SELECTIVITY BITS.
06644  M01S04879.lfm     +++|*                (CN+3) = 2/,4/CONTROL BITS,6/
06645  M01S04880.lfm     +++|*                (FE) = FET LENGTH - 1.
06646  M01S04881.lfm     +++|*
06647  M01S04882.lfm     +++|*         EXIT   (A) .GE. 0 IMPLIES FET LENGTH OK.
06648  M01S04883.lfm     +++|*                (A) .LT. 0 IMPLIES FET LENGTH IN ERROR.
06649  M01S04884.lfm     +++|*                (CN) = NUMBER OF FILE ENTRIES.
06650  M01S04885.lfm     +++|*                (SB - SB+1) = SELECTIVITY BITS.
06651  M01S04886.lfm     +++|*                (CB) = CONTROL BITS - RIGHT JUSTIFIED.
06652  M01S04887.lfm     +++|*                (CN+3) - CONTROL BITS CLEARED.
06653  M01S04888.lfm     +++|*                (CN+1) - CHECKPOINT FILE COUNTER CLEARED.
06654  M01S04889.lfm     +++|*                (FT) = NFL/100B.
06655  M01S04890.lfm     +++|*                (FT+1) = FORMAT FLAG.
06656  M01S04891.lfm     +++|*
06657  M01S04892.lfm     +++|*         USES   CB, CN, CN+1, CN+3, SB, SB+1, T1, FT - FT+4.
06658  M01S04893.lfm     +++|
06659  M01S04894.lfm     +++|
06660  M01S04895.lfm     +++| CCP      SUBR               ENTRY/EXIT
06661  M01S04896.lfm     +++|          LDD    CN          SET NUMBER OF FILE ENTRIES
06662  M01S04897.lfm     +++|          NJN    CCP1        IF NOT DEFAULT
06663  M01S04898.lfm     +++|          LDC    DNFS
06664  M01S04899.lfm     +++|          STD    CN
06665  M01S04900.lfm     +++| CCP1     LDD    CN+1        SET SELECTIVITY BITS
06666  M01S04901.lfm     +++|          LPN    77
06667  M01S04902.lfm     +++|          SHN    14
06668  M01S04903.lfm     +++|          LMD    CN+2
06669  M01S04904.lfm     +++|          NJN    CCP2        IF NOT DEFAULT
06670  M01S04905.lfm     +++|          LCN    0           ALL BITS SET FOR DEFAULT
06671  M01S04906.lfm     +++| CCP2     STD    SB+1
06672  M01S04907.lfm     +++|          SHN    -14
06673  M01S04908.lfm     +++|          STD    SB
06674  M01S04909.lfm     +++|          LDN    0           PRESET CHECKPOINT FILE COUNTER
06675  M01S04910.lfm     +++|          STD    CN+1
06676  M01S04911.lfm     +++|          LDN    10          PRESET T1 FOR FET LENGTH CHECK
06677  M01S04912.lfm     +++|          STD    T1
06678  M01S04913.lfm     +++|          LDD    CN+3        EXTRACT CONTROL BITS
06679  M01S04914.lfm     +++|          SHN    -6
06680  M01S04915.lfm     +++|          STD    CB
06681  M01S04916.lfm     +++|          SHN    21-2
06682  M01S04917.lfm     +++|          MJN    CCP3        IF TREAT CHECKPOINT FILES NORMALLY
06683  M01S04918.lfm     +++|          LDN    4
06684  M01S04919.lfm     +++|          RAD    T1
06685  M01S04920.lfm     +++| CCP3     LDD    CP          GET NEGATIVE FL
06686  M01S04921.lfm     +++|          ADN    FLSW
06687  M01S04922.lfm     +++|          CRD    FT          NEGATIVE FL/100B
06688  M01S04923.lfm     +++|*         LDN    0           PRESET FORMAT FLAG
06689  M01S04924.lfm     +++|*         STD    FT+1
06690  M01S04925.lfm     +++|          LDD    CN+3        CHECK FOR OLD FORMAT
06691  M01S04926.lfm     +++|          SHN    21-11
06692  M01S04927.lfm     +++|          PJN    CCP4        IF OLD FORMAT
06693  M01S04928.lfm     +++|          AOD    FT+1        SET FLAG FOR NEW FORMAT
06694  M01S04929.lfm     +++|          LCN    2           RETURN FILE LENGTH TO BYTES 0 AND 1 OF FST
06695  M01S04930.lfm     +++|          RAM    MFFA
06696  M01S04931.lfm     +++|          SBN    1
06697  M01S04932.lfm     +++|          STM    MFFB
06698  M01S04933.lfm     +++| CCP4     LDD    CN+3        CLEAR CONTROL BITS
06699  M01S04934.lfm     +++|          LPN    77
06700  M01S04935.lfm     +++|          STD    CN+3
06701  M01S04936.lfm     +++|          LDD    FE
06702  M01S04937.lfm     +++|          SBD    T1
06703  M01S04938.lfm     +++|          LJM    CCPX        EXIT
06704  M01S04939.lfm     +++| CFS      SPACE  4,15
06705  M01S04940.lfm     +++|**        CFS - CHECK FILE SELECTIVITY.
06706  M01S04941.lfm     +++|*
06707  M01S04942.lfm     +++|*         ENTRY  (SB) AND (SB+1) = SELECTIVITY BITS.
06708  M01S04943.lfm     +++|*                (FN - FN+4) = FNT ENTRY.
06709  M01S04944.lfm     +++|*                (FS - FS+4) = FST ENTRY.
06710  M01S04945.lfm     +++|*
06711  M01S04946.lfm     +++|*         EXIT   (A) .LT. 0  IMPLIES SELECTED.
06712  M01S04947.lfm     +++|*                (A) .GE. 0  IMPLIES NOT SELECTED.
06713  M01S04948.lfm     +++|*
06714  M01S04949.lfm     +++|*         USES   T1.
06715  M01S04950.lfm     +++|*
06716  M01S04951.lfm     +++|*         CALLS  SDQ.
06717  M01S04952.lfm     +++|
06718  M01S04953.lfm     +++|
06719  M01S04954.lfm     +++| CFS      SUBR               ENTRY/EXIT
06720  M01S04955.lfm     +++|          LDD    FN+4        SET FILE TYPE
06721  M01S04956.lfm     +++|          SHN    -6
06722  M01S04957.lfm     +++|          STD    T1
06723  M01S04958.lfm     +++|          SBN    MXFT
06724  M01S04959.lfm     +++|          MJN    CFS2        IF TYPE DOES NOT EXCEED MAXIMUM
Line S04960 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06725  M02S04960.v23l617 ---| CFS1     LDN    /ERR/IFT    * ILLEGAL FILE TYPE.*
06726  M01S00149.v23l617 +++| CFS1     LDN    /ERR/IFT    * INCORRECT FILE TYPE.*
06727  M01S04961.lfm     +++|          LJM    ERR         PROCESS ERROR
06728  M01S04962.lfm     +++|
06729  M01S04963.lfm     +++| CFS2     LDM    TFTS,T1     SET SHIFT INSTRUCTION
Line S04964 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06730  M02S04964.v23l617 ---|          ZJN    CFS1        IF ILLEGAL FILE TYPE
06731  M01S00150.v23l617 +++|          ZJN    CFS1        IF INCORRECT FILE TYPE
06732  M01S04965.lfm     +++|          STM    CFSA
06733  M01S04966.lfm     +++|          LDD    SB          LOAD SELECTIVITY MASK
06734  M01S04967.lfm     +++|          SHN    14
06735  M01S04968.lfm     +++|          LMD    SB+1
06736  M01S04969.lfm     +++| CFSA     SHN    **
06737  M01S04970.lfm     +++|          MJN    CFSX        IF FILE SELECTED
06738  M01S04971.lfm     +++|
06739  M01S04972.lfm     +++|*         FOR COMPATIBILITY, CHECK FOR *PRQT* OR *PHQT*.
06740  M01S04973.lfm     +++|
06741  M01S04974.lfm     +++|          LDD    T1
06742  M01S04975.lfm     +++|          LMN    QFFT
06743  M01S04976.lfm     +++|          NJN    CFSX        IF FILE MAPPING NOT REQUIRED
06744  M01S04977.lfm     +++|          LDD    SB+1
06745  M01S04978.lfm     +++|          LPN    14
06746  M01S04979.lfm     +++|          ZJN    CFSX        IF *PRQT* AND *PHQT* NOT SELECTED
06747  M01S04980.lfm     +++|          RJM    SDQ         SET DISPOSITION CODE
06748  M01S04981.lfm     +++|          ZJN    CFSX        IF NOT *PRQT* OR *PHQT*
06749  M01S04982.lfm     +++|*         LDD    SB
06750  M01S04983.lfm     +++|*         SHN    14
06751  M01S04984.lfm     +++|*         LMD    SB+1
06752  M01S04985.lfm     +++|          LDD    SB+1
06753  M01S04986.lfm     +++| CFSB     SHN    **          (SET BY *SDQ*)
Line S04987 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06754  M02S04987.ns22000 ---|          LJM    CFSX        RETURN
06755  M01S00488.ns22000 +++|          UJN    CFSX        RETURN
06756  M01S04988.lfm     +++| CMS      SPACE  4,10
06757  M01S04989.lfm     +++|**        CMS - CHECK FOR MASS STORAGE RESIDENT FILE.
06758  M01S04990.lfm     +++|*
06759  M01S04991.lfm     +++|*         ENTRY  (FS - FS+4) = FILE FST ENTRY.
06760  M01S04992.lfm     +++|*
06761  M01S04993.lfm     +++|*         EXIT   (A) .LT. 0, IF FILE IS ON MASS STORAGE.
06762  M01S04994.lfm     +++|*                (CM - CM+4) = EST ENTRY FOR FILE.
06763  M01S04995.lfm     +++|*                (T5) = EST ORDINAL.
06764  M01S04996.lfm     +++|*
06765  M01S04997.lfm     +++|*         USES   T5, CM - CM+4.
06766  M01S00489.ns22000 +++|*
06767  M01S00490.ns22000 +++|*         MACROS SFA.
06768  M01S04998.lfm     +++|
06769  M01S04999.lfm     +++|
06770  M01S05000.lfm     +++| CMS      SUBR               ENTRY/EXIT
06771  M01S05001.lfm     +++|          LDD    FS          SET EST ORDINAL
Line S05002 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06772  M02S05002.ns22000 ---|          LPN    77
06773  M01S05003.lfm     +++|          STD    T5
Line S05004 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06774  M02S05004.ns22000 ---|          ADM    ESTS        READ EST ENTRY
06775  M01S00491.ns22000 +++|          SFA    EST         READ EST ENTRY
06776  M01S00492.ns22000 +++|          ADK    EQDE
06777  M01S05005.lfm     +++|          CRD    CM
06778  M01S05006.lfm     +++|          LDD    CM
06779  M01S05007.lfm     +++|          SHN    21-13       POSITION MASS STORAGE BIT
06780  M01S05008.lfm     +++|          UJN    CMSX        RETURN
06781  M01S05009.lfm     +++| MFF      SPACE  4,20
06782  M01S05010.lfm     +++|**        MFF - MODIFY FILE S FST.
06783  M01S05011.lfm     +++|*
06784  M01S05012.lfm     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
06785  M01S05013.lfm     +++|*                (FN - FN+4) = FNT WORD, IF NEW FORMAT REQUESTED.
06786  M01S05014.lfm     +++|*                (CB) = CONTROL BITS.
06787  M01S05015.lfm     +++|*                (FT+1) = FORMAT FLAG.
06788  M01S00282.274l797 +++|*                (FT+4) = FNT ADDRESS.
06789  M01S05016.lfm     +++|*
06790  M01S05017.lfm     +++|*         EXIT   (A) = 0 IMPLIES NORMAL RETURN.
06791  M01S05018.lfm     +++|*                (A) .NE. 0 IMPLIES ERROR EXIT.
06792  M01S05019.lfm     +++|*                (FS - FS+4) = MODIFIED FST.
Line S05020 Modification History
M01 (Added by) lfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06793  M02S05020.274l797 ---|*                (FN+3) UPDATED, IF NEW FORMAT REQUESTED.
06794  M01S00283.274l797 +++|*                (FN+3) UPDATED, IF TAPE FILE AND NEW FORMAT REQUESTED.
06795  M01S05021.lfm     +++|*
06796  M01S05022.lfm     +++|*         USES   T2, T3, T5, T6, T7, CM - CM+4, FN - FN+4 (ONLY IF
06797  M01S05023.lfm     +++|*                NEW FORMAT REQUESTED OR IF ERROR RETURN).
06798  M01S05024.lfm     +++|*
06799  M01S05025.lfm     +++|*         CALLS  CMS, CPA, SEI, SPA.
06800  M01S05026.lfm     +++|*
06801  M01S05027.lfm     +++|*         MACROS DELAY, MONITOR, PAUSE.
06802  M01S05028.lfm     +++|*
06803  M01S05029.lfm     +++|*         ERROR  FET+CGNT IS SET NEGATIVE.
06804  M01S05030.lfm     +++|
06805  M01S05031.lfm     +++|
06806  M01S05032.lfm     +++| MFF      SUBR               ENTRY/EXIT
06807  M01S05033.lfm     +++|          RJM    CMS         CHECK FOR MASS STORAGE RESIDENT FILE
06808  M01S05034.lfm     +++|          PJN    MFF1        IF NOT MASS STORAGE FILE
06809  M01S05035.lfm     +++|          LJM    MFF12       PROCESS MASS STORAGE FILE
06810  M01S05036.lfm     +++|
06811  M01S05037.lfm     +++| MFF1     LDD    CM+3
06812  M01S05038.lfm     +++|          LMN    1RT
06813  M01S05039.lfm     +++|          SHN    14
Line S05040 Modification History
M01 (Added by) lfm
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06814  M02S05040.252l678 ---|          SCN    40
06815  M01S05041.lfm     +++|          LMN    1RM
Line S05042 Modification History
M01 (Added by) lfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06816  M02S05042.274l797 ---|          ZJN    MFF6        IF *MT*
06817  M01S00284.274l797 +++|          ZJN    MFF1.1      IF *MT*
06818  M01S05043.lfm     +++|          LMN    1RN&1RM
Line S05044 Modification History
M01 (Added by) lfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06819  M02S05044.274l797 ---|          ZJN    MFF6        IF *NT*
06820  M01S00285.274l797 +++|          ZJN    MFF1.1      IF *NT*
Line S05045 Modification History
M01 (Added by) lfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06821  M02S05045.274l797 ---|          LMN    1RT&1RN
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  M01S05046.lfm     +++|          ZJN    MFF2        IF *TT*
06828  M01S00291.274l797 +++|          LDD    CM+3
06829  M01S00292.274l797 +++|          LMC    2ROD
06830  M01S00293.274l797 +++|          ZJP    MFF21       IF *OD*
06831  M01S05047.lfm     +++|
Line S05048 Modification History
M01 (Added by) lfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06832  M02S05048.274l797 ---|*         NEITHER MASS STORAGE, TAPE, NOR TTY FILE.
06833  M01S00294.274l797 +++|*         FILE IS NOT MASS STORAGE, TAPE, OPTICAL DISK OR TTY.
06834  M01S05049.lfm     +++|
06835  M01S05050.lfm     +++|          LDD    FT+1
06836  M01S05051.lfm     +++|          ZJN    MFF4        IF OLD FORMAT
06837  M01S05052.lfm     +++|          LDN    3S1         SET NON-MS, TAPE, TTY FILE
06838  M01S05053.lfm     +++|          UJN    MFF3        CLEAR FST INFORMATION
06839  M01S05054.lfm     +++|
06840  M01S05055.lfm     +++|*         TTY FILE.
06841  M01S05056.lfm     +++|
06842  M01S05057.lfm     +++| MFF2     LDC    2RTT        SHOW TTY FILE
06843  M01S05058.lfm     +++|          STD    FS+1
06844  M01S05059.lfm     +++|          LDD    FT+1
06845  M01S05060.lfm     +++|          ZJN    MFF5        IF OLD FORMAT
06846  M01S05061.lfm     +++|          LDN    1S2         SET TTY FILE
06847  M01S05062.lfm     +++| MFF3     RAD    FN+3
06848  M01S05063.lfm     +++|          LDN    0           CLEAR FILE LENGTH
06849  M01S05064.lfm     +++|          STD    FS
06850  M01S05065.lfm     +++|          STD    FS+1
06851  M01S05066.lfm     +++| MFF4     STD    FS+2        CLEAR RANDOM INDEX/BLOCK COUNT
06852  M01S05067.lfm     +++|          STD    FS+3
06853  M01S05068.lfm     +++| MFF5     LJM    MFFX        RETURN
06854  M01S05069.lfm     +++|
06855  M01S05070.lfm     +++|*         TAPE FILE.
06856  M01S05071.lfm     +++|
06857  M01S05072.lfm     +++| MFF6     LDD    FS+1        GET USER DESCRIPTOR TABLE ADDRESS
06858  M01S05073.lfm     +++|          ADN    /MTX/UST2
06859  M01S05074.lfm     +++|          STD    CM+4
06860  M01S05075.lfm     +++|          LDN    0           SET READ
06861  M01S05076.lfm     +++|          STD    CM+1
06862  M01S05077.lfm     +++|          LDD    HN          SET WORD COUNT
06863  M01S05078.lfm     +++|          STD    CM+3
06864  M01S05079.lfm     +++|          LCN    7777-MTSI   SET *MAGNET* SUBSYSTEM ID
06865  M01S05080.lfm     +++|          STD    CM+2
Line S05081 Modification History
M01 (Added by) lfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06866  M02S05081.282l826 ---|          MONITOR TDAM       GET WORD 5 OF UDT
06867  M01S00034.282l826 +++|          MONITOR TDAM
06868  M01S05082.lfm     +++|          LDD    CM+1
06869  M01S05083.lfm     +++|          ZJN    MFF8        IF COMPLETE
06870  M01S05084.lfm     +++|          SBN    2
06871  M01S05085.lfm     +++|          PJN    MFF7        IF *MAGNET* NOT PRESENT
06872  M01S05086.lfm     +++|          PAUSE
06873  M01S05087.lfm     +++|          DELAY
06874  M01S05088.lfm     +++|          LDD    CM+1
06875  M01S05089.lfm     +++|          NJN    MFF11       IF ERROR
06876  M01S05090.lfm     +++|          UJN    MFF6        TRY AGAIN
06877  M01S05091.lfm     +++|
06878  M01S05092.lfm     +++| MFF7     LDD    FT+1
06879  M01S05093.lfm     +++|          ZJN    MFF11       IF OLD FORMAT
06880  M01S05094.lfm     +++|          LCN    0
06881  M01S05095.lfm     +++|          STD    FS+2
06882  M01S05096.lfm     +++|          STD    FS+3
06883  M01S05097.lfm     +++|          UJN    MFF9        SET TAPE FILE
06884  M01S05098.lfm     +++|
06885  M01S05099.lfm     +++|*         SET CURRENT BLOCK COUNT.
06886  M01S05100.lfm     +++|
06887  M01S05101.lfm     +++| MFF8     LDD    MA          SAVE BLOCK COUNT
06888  M01S05102.lfm     +++|          CRD    CM
06889  M01S05103.lfm     +++|          LDD    CM+2
06890  M01S05104.lfm     +++|          STD    FS+2
06891  M01S05105.lfm     +++|          LDD    CM+3
06892  M01S05106.lfm     +++|          STD    FS+3
06893  M01S05107.lfm     +++|          LDD    FT+1
06894  M01S05108.lfm     +++|          ZJN    MFF10       IF OLD FORMAT
06895  M01S05109.lfm     +++| MFF9     LDN    1S1         SET TAPE FILE
06896  M01S05110.lfm     +++|          RAD    FN+3
06897  M01S05111.lfm     +++|          LJM    MFF17       CLEAR FILE LENGTH
06898  M01S05112.lfm     +++|
06899  M01S05113.lfm     +++| MFF10    LDC    2RMT        SET TAPE FILE
06900  M01S05114.lfm     +++|          STD    FS+1
Line S05115 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06901  M02S05115.ns22000 ---|          LJM    MFF15       RETURN
06902  M01S00493.ns22000 +++|          UJN    MFF15       RETURN
06903  M01S05116.lfm     +++|
06904  M01S05117.lfm     +++|*         SET ERROR PARAMETER IN FET.
06905  M01S05118.lfm     +++|
06906  M01S05119.lfm     +++| MFF11    LCN    0           SET ERROR EXIT
06907  M01S05120.lfm     +++|          STD    FN
06908  M01S05121.lfm     +++|          RJM    CPA
06909  M01S05122.lfm     +++|          ADN    CGNT
06910  M01S05123.lfm     +++|          CWD    FN
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/lfm.004.txt ยท Last modified: by 127.0.0.1