User Tools

Site Tools


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

Deck QFM Part 001

36 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01510  M01S00063.ns2099  +++|          STD    FA
01511  M01S00064.ns2099  +++|          RJM    RFE         RETURN OLD IQFT LOCAL FILE
01512  M01S00065.ns2099  +++|          LDN    DUCS        DECREMENT USER COUNT
Line S00066 Modification History
M01 (Added by) ns2099
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01513  M02S00066.253l688 ---|          RJM    STB
Line S00025 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01514  M01S00025.253l688 +++|          RJM    SMD
01515  M00S01253.qfm     +++|
01516  M00S01254.qfm     +++| STQ      SUBR               ENTRY/EXIT
01517  M00S01255.qfm     +++|          RJM    CFS         CHECK FILE STATUS
Line S00067 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01518  M01S00067.ns2099  +++|          RJM    CFI         CHECK CURRENT FILE INTERLOCK
Line S00002 Modification History
M01 (Added by) ns2376a
Seq #  *Modification Id* Act 
----------------------------+
01519  M01S00002.ns2376a +++|          LDN    0           READ *NIQFT* SYSTEM SECTOR
01520  M01S00003.ns2376a +++|          STD    T7
Line S00004 Modification History
M01 (Added by) ns2376a
M02 (Removed by) qfm11
Seq #  *Modification Id* Act 
----------------------------+
01521  M02S00004.qfm11   ---|          SETMS  IO
Line S00001 Modification History
M01 (Added by) qfm11
Seq #  *Modification Id* Act 
----------------------------+
01522  M01S00001.qfm11   +++|          SETMS  IO,RW
Line S00005 Modification History
M01 (Added by) ns2376a
Seq #  *Modification Id* Act 
----------------------------+
01523  M01S00005.ns2376a +++|          LDC    BFMS
01524  M01S00006.ns2376a +++|          RJM    RDS
01525  M01S00007.ns2376a +++|          PJN    STQ1        IF NO ERROR
01526  M01S00008.ns2376a +++|          RJM    MSR         REPORT ERROR
01527  M01S00009.ns2376a +++| STQ1     LDC    LIFT*100B   SET FILE TO *LIFT* FILE TYPE
01528  M01S00010.ns2376a +++|          STM    FNSS+4
01529  M01S00011.ns2376a +++|          LDC    BFMS
01530  M01S00012.ns2376a +++|          RJM    WDS
01531  M01S00013.ns2376a +++|          PJN    STQ2        IF NO ERROR
01532  M01S00014.ns2376a +++|          RJM    MSR         REPORT ERROR
01533  M01S00015.ns2376a +++| STQ2     ENDMS
Line S01256 Modification History
M01 (Removed by) qfm4
Seq #  *Modification Id* Act 
----------------------------+
01534  M01S01256.qfm4    ---|          LDN    SIQS
Line S00001 Modification History
M01 (Added by) qfm4
Seq #  *Modification Id* Act 
----------------------------+
01535  M01S00001.qfm4    +++|          LDC    4S15+SPFS   SET PRESERVED FILE STATUS
01536  M01S00002.qfm4    +++|          RJM    STB
01537  M01S00003.qfm4    +++|          LDN    SIQS        SET *IQFT* POINTER BYTE
01538  M00S01257.qfm     +++|          RJM    STB
Line S01258 Modification History
M01 (Removed by) ns2376a
Seq #  *Modification Id* Act 
----------------------------+
01539  M01S01258.ns2376a ---|          ZJN    STQ1        IF NO REJECT
Line S00016 Modification History
M01 (Added by) ns2376a
Seq #  *Modification Id* Act 
----------------------------+
01540  M01S00016.ns2376a +++|          ZJP    STQ3        IF NO REJECT
01541  M00S01259.qfm     +++|          ERROR  TASE        EC = 3, FILE ALREADY ASSIGNED
Line S00068 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01542  M01S00068.ns2099  +++| CFI      SPACE  4,15
01543  M01S00069.ns2099  +++|**        CFI - CHECK FOR IQFT FILE INTERLOCKED.
01544  M01S00070.ns2099  +++|*
01545  M01S00071.ns2099  +++|*         ENTRY  (T5) = EST ORDINAL.
01546  M01S00072.ns2099  +++|*                (T6) = CURRENT TRACK.
01547  M01S00073.ns2099  +++|*
01548  M01S00074.ns2099  +++|*         EXIT   (CA) = FIRST TRACK OF OLD IQFT.
01549  M01S00075.ns2099  +++|*                (CA+1) = FNT OFFSET OF OLD IQFT FILE.
Line S00017 Modification History
M01 (Added by) ns2376a
Seq #  *Modification Id* Act 
----------------------------+
01550  M01S00017.ns2376a +++|*                (T6) = CURRENT TRACK.
Line S00076 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01551  M01S00076.ns2099  +++|*
01552  M01S00077.ns2099  +++|*         USES   T2, T3, T4, T6, CM - CM+4.
01553  M01S00078.ns2099  +++|*
01554  M01S00079.ns2099  +++|*         CALLS  SIT.
01555  M01S00080.ns2099  +++|*
01556  M01S00081.ns2099  +++|*         MACROS NFA.
01557  M01S00082.ns2099  +++|
01558  M01S00083.ns2099  +++|
01559  M01S00084.ns2099  +++| CFI      SUBR               ENTRY/EXIT
01560  M01S00085.ns2099  +++|          LDD    T6          SAVE CURRENT TRACK
01561  M01S00086.ns2099  +++|          STD    T4
01562  M01S00087.ns2099  +++|          RJM    SIT         SET OLD IQFT TRACK
01563  M01S00088.ns2099  +++|          ZJP    CFI3        IF TRACK NOT DEFINED
01564  M01S00089.ns2099  +++|          STD    CA
01565  M01S00090.ns2099  +++|          LDD    CP          SET UP NFL SEARCH
01566  M01S00091.ns2099  +++|          ADN    FLSW
01567  M01S00092.ns2099  +++|          CRD    CM
01568  M01S00093.ns2099  +++|          LDD    CM
01569  M01S00094.ns2099  +++|          SHN    6
01570  M01S00095.ns2099  +++|          ADN    1
01571  M01S00096.ns2099  +++|          STD    T2
01572  M01S00097.ns2099  +++|          LDC    FNTN        SET FIRST ENTRY
01573  M01S00098.ns2099  +++|          STD    T3
01574  M01S00099.ns2099  +++| CFI1     NFA    T3,R        READ FST ENTRY
01575  M01S00100.ns2099  +++|          ADN    FSTL
01576  M01S00101.ns2099  +++|          CRD    CM
01577  M01S00102.ns2099  +++|          LDD    CM
01578  M01S00103.ns2099  +++|          LPC    777
01579  M01S00104.ns2099  +++|          LMD    T5
01580  M01S00105.ns2099  +++|          NJN    CFI2        IF NO MATCH ON EQUIPMENT
01581  M01S00106.ns2099  +++|          LDD    CM+1
01582  M01S00107.ns2099  +++|          LMD    T6
01583  M01S00108.ns2099  +++|          NJN    CFI2        IF NO MATCH ON FIRST TRACK
01584  M01S00109.ns2099  +++|          LDD    T3          SAVE LOCATION
01585  M01S00110.ns2099  +++|          STD    CA+1
01586  M01S00111.ns2099  +++|          LDD    T4          RESTORE CURRENT TRACK
01587  M01S00112.ns2099  +++|          STD    T6
01588  M01S00113.ns2099  +++|          LJM    CFIX        RETURN
01589  M01S00114.ns2099  +++|
01590  M01S00115.ns2099  +++| CFI2     LDN    LENF        ADVANCE TO NEXT ENTRY
01591  M01S00116.ns2099  +++|          RAD    T3
01592  M01S00117.ns2099  +++|          SBD    T2
01593  M01S00118.ns2099  +++|          MJN    CFI1        IF NOT END OF NFL
01594  M01S00119.ns2099  +++| CFI3     ABORT  ERQI        * QFM IQFT INTERLOCK ABORT.*
01595  M00S01260.qfm     +++| SRRF     TITLE  SET AND CLEAR RERUN STATUS.
01596  M00S01261.qfm     +++|***       SRRF - SET RERUN STATUS. (FUNCTION 15).
01597  M00S01262.qfm     +++|*
01598  M00S01263.qfm     +++|*         LOCATION *JASS* IN THE SYSTEM SECTOR, AND *NORERUN* STATUS
01599  M00S01264.qfm     +++|*         IN THE EJT ENTRY ARE CLEARED.  THIS ALLOWS THE JOB TO BE
01600  M00S01265.qfm     +++|*         RERUN FOLLOWING A DEADSTART.
01601  M00S01266.qfm     +++| CRRF     SPACE  4,8
01602  M00S01267.qfm     +++|***       CRRF - CLEAR RERUN STATUS. (FUNCTION 16).
01603  M00S01268.qfm     +++|*
01604  M00S01269.qfm     +++|*         LOCATION *JASS* IN THE SYSTEM SECTOR, AND THE EJT ENTRY
01605  M00S01270.qfm     +++|*         ARE SET TO *NORERUN* STATUS TO PREVENT RESTART OF THE JOB.
01606  M00S01271.qfm     +++|
01607  M00S01272.qfm     +++|
01608  M00S01273.qfm     +++| RER3     LDD    MA          STORE *UTEM* PARAMETERS
01609  M00S01274.qfm     +++|          CWM    RERB,ON
01610  M00S01275.qfm     +++|          LDN    1S5+1
01611  M00S01276.qfm     +++|          STD    T1
01612  M00S01277.qfm     +++|          SFA    EJT,EO      INTERLOCK EJT ENTRY
01613  M00S01278.qfm     +++|          RJM    SFI
01614  M00S01279.qfm     +++|          ZJN    RER4        IF INTERLOCK SET
01615  M00S01280.qfm     +++|          LJM    DPP         ERROR FLAG SET - DROP PP
01616  M00S01281.qfm     +++|
01617  M00S01282.qfm     +++|*         READ INPUT FILE SYSTEM SECTOR.
01618  M00S01283.qfm     +++|
01619  M00S01284.qfm     +++| RER4     RJM    RIS
01620  M00S01285.qfm     +++|          ZJN    RER7        IF NO SYSTEM SECTOR
01621  M00S01286.qfm     +++|          LDM    JASS
01622  M00S01287.qfm     +++|          LMN    NRIE
01623  M00S01288.qfm     +++| RERC     NJN    RER5        IF FILE IN RERUN STATE
01624  M00S01289.qfm     +++|*         ZJN    RER6        (SETTING RERUN STATUS)
01625  M00S01290.qfm     +++|          ENDMS
01626  M00S01291.qfm     +++| RERD     ERROR  NRAE        ED = 10, FILE ALREADY IN NORERUN STATUS
01627  M00S01292.qfm     +++|*         ERROR  RRAE        (SETTING RERUN STATUS)
01628  M00S01293.qfm     +++|
01629  M00S01294.qfm     +++| RER5     LDN    NRIE        SET NORERUN STATUS IN SYSTEM SECTOR
01630  M00S01295.qfm     +++| RER6     STM    JASS
01631  M00S01296.qfm     +++|          LDN    0
01632  M00S01297.qfm     +++|          STD    FA
01633  M00S01298.qfm     +++|          RJM    WSS         REWRITE SYSTEM SECTOR
Line S01299 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01634  M01S01299.242l642 ---|          ENDMS
Line S00069 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01635  M01S00069.242l642 +++|          PJN    RER6.1      IF NO WRITE ERRORS
01636  M01S00070.242l642 +++|          LDC    FNTN        RESET FNT OFFSET
01637  M01S00071.242l642 +++|          STD    FA
01638  M01S00072.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
01639  M01S00073.242l642 +++|
01640  M01S00074.242l642 +++| RER6.1   ENDMS
01641  M00S01300.qfm     +++|          LDC    FNTN        RESET FNT OFFSET
01642  M00S01301.qfm     +++|          STD    FA
01643  M00S01302.qfm     +++| RER7     RJM    CIN         CLEAR INTERLOCKS
01644  M00S01303.qfm     +++|
01645  M00S01304.qfm     +++| RER      SUBR               ENTRY/EXIT
01646  M00S01305.qfm     +++|          LDD    CP          FETCH EJT ORDINAL
01647  M00S01306.qfm     +++|          ADN    TFSW
01648  M00S01307.qfm     +++|          CRD    CM
01649  M00S01308.qfm     +++|          LDD    CM          SAVE ORDINAL
01650  M00S01309.qfm     +++|          STD    EO
01651  M00S01310.qfm     +++|          SFA    EJT         GET ORIGIN TYPE FROM EJT
01652  M00S01311.qfm     +++|          ADN    SCLE
01653  M00S01312.qfm     +++|          CRD    CM
01654  M00S01313.qfm     +++|          LDD    CM          CHECK ORIGIN TYPE
01655  M00S01314.qfm     +++|          LPN    17
Line S01315 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01656  M01S01315.242l642 ---|          LMN    TXOT
Line S00075 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01657  M01S00075.242l642 +++|          LMN    IAOT
01658  M00S01316.qfm     +++|          NJN    RER1        IF NOT TIME-SHARING JOB
Line S01317 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01659  M01S01317.v23l617 ---|          LDC    CPON+RERA   * NORERUN/RERUN IGNORED FROM TTY JOBS.*
Line S00014 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01660  M01S00014.v23l617 +++|          LDC    CPON+RERA   * NORERUN/RERUN IGNORED FROM IAOT JOBS.*
01661  M00S01318.qfm     +++|          RJM    DFM
01662  M00S01319.qfm     +++|          UJN    RERX        RETURN
01663  M00S01320.qfm     +++|
01664  M00S01321.qfm     +++| RER1     LDD    IR+2        CHECK REQUEST
01665  M00S01322.qfm     +++|          LMN    SRRF
01666  M00S01323.qfm     +++|          NJN    RER2        IF NOT SETTING RERUN STATUS
01667  M00S01324.qfm     +++|          STM    RERB+4
01668  M00S01325.qfm     +++|          SOM    RERD        EC = 7, FILE ALREADY IN RERUN STATUS
01669  M00S01326.qfm     +++|          ERRNZ  RRAE+1-NRAE CODE DEPENDS ON VALUE
01670  M00S01327.qfm     +++|          LDC    *
01671  M00S01328.qfm     +++|          ORG    *-1
01672  M00S01329.qfm     +++|          LOC    RERC
01673  M00S01330.qfm     +++|          ZJN    RER6        IF FILE IN NORERUN STATE
01674  M00S01331.qfm     +++|          LOC    *O
01675  M00S01332.qfm     +++|          STM    RERC
01676  M00S01333.qfm     +++| RER2     LJM    RER3        INTERLOCK EJT ENTRY
01677  M00S01334.qfm     +++|
Line S01335 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01678  M01S01335.v23l617 ---| RERA     DATA   C* NORERUN/RERUN IGNORED FROM TTY JOBS.*
Line S00015 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01679  M01S00015.v23l617 +++| RERA     DATA   C* NORERUN/RERUN IGNORED FROM INTERACTIVE JOBS.*
01680  M00S01336.qfm     +++|
01681  M00S01337.qfm     +++| RERB     VFD    1/0,5/SCHE,6/1,6/35D,42/1
Line S01338 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01682  M01S01338.242l642 ---| RIS      SPACE  4,20
Line S00076 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01683  M01S00076.242l642 +++| RIS      SPACE  4,25
01684  M00S01339.qfm     +++|**        RIS - READ INPUT FILE SYSTEM SECTOR.
01685  M00S01340.qfm     +++|*
01686  M00S01341.qfm     +++|*         EXIT   (A) = 0 IF SYSTEM SECTOR NOT READ.
01687  M00S01342.qfm     +++|*                (T5) = EQUIPMENT.
01688  M00S01343.qfm     +++|*                (T6) = TRACK.
01689  M00S01344.qfm     +++|*                (T7) = SECTOR.
01690  M00S01345.qfm     +++|*                CHANNEL RESERVED.
01691  M00S01346.qfm     +++|*                MASS STORAGE DRIVER SET.
01692  M00S01347.qfm     +++|*                FILE SET BUSY.
01693  M00S01348.qfm     +++|*
Line S01349 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01694  M01S01349.242l642 ---|*         USES   CM - CM+4, FS - FS+4.
Line S00077 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01695  M01S00077.242l642 +++|*         ERROR  THE JOB IS ROLLED OUT IF A NON-SUBSYSTEM JOB
01696  M01S00078.242l642 +++|*                ENCOUNTERS A RECOVERABLE I/O ERROR.  IF A
01697  M01S00079.242l642 +++|*                NON-RECOVERABLE ERROR IS ENCOUNTERED AND/OR THE
01698  M01S00080.242l642 +++|*                CALLER IS A SUBSYSTEM, THEN ERROR CODE = *RMSE* (6)
01699  M01S00081.242l642 +++|*                IS RETURNED.
01700  M00S01350.qfm     +++|*
Line S01351 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01701  M01S01351.242l642 ---|*         CALLS  CEQ, RSS, SFB.
Line S00082 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01702  M01S00082.242l642 +++|*         USES   CM - CM+4, FS - FS+4, T5 - T7.
01703  M01S00083.242l642 +++|*
01704  M01S00084.242l642 +++|*         CALLS  CEQ, MSR, RSS, SFB.
01705  M00S01352.qfm     +++|*
01706  M00S01353.qfm     +++|*         MACROS ABORT, ERROR, NFA, SETMS.
01707  M00S01354.qfm     +++|
01708  M00S01355.qfm     +++|
Line S00085 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01709  M01S00085.242l642 +++| RIS3     LDN    1           INDICATE SYSTEM SECTOR HAS BEEN READ
01710  M01S00086.242l642 +++|
01711  M00S01356.qfm     +++| RIS      SUBR               ENTRY/EXIT
01712  M00S01357.qfm     +++|          NFA    FNTN        READ INPUT FILE FNT
01713  M00S01358.qfm     +++|          CRD    FS
01714  M00S01359.qfm     +++|          ADN    FSTL        GET FST INFORMATION
01715  M00S01360.qfm     +++|          CRD    T5
01716  M00S01361.qfm     +++|          RJM    CEQ         CHECK EQUIPMENT
01717  M00S01362.qfm     +++|          ZJN    RISX        IF NOT MASS STORAGE
01718  M00S01363.qfm     +++|          LDC    FNTN        SET FNT OFFSET
01719  M00S01364.qfm     +++|          STD    FA
01720  M00S01365.qfm     +++|          RJM    SFB         SET FILE BUSY
01721  M00S01366.qfm     +++|          ZJN    RIS1        IF FILE SET BUSY
01722  M00S01367.qfm     +++|          LDN    0
01723  M00S01368.qfm     +++|          STD    FA
01724  M00S01369.qfm     +++|          ABORT  ERIO        * QFM I/O SEQUENCE ERROR.*
01725  M00S01370.qfm     +++|
Line S01371 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01726  M01S01371.242l642 ---| RIS1     SETMS  READ
Line S00087 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01727  M01S00087.242l642 +++| RIS1     SETMS  IO,RW
01728  M00S01372.qfm     +++|          LDN    0           READ SYSTEM SECTOR
01729  M00S01373.qfm     +++|          RJM    RSS
Line S01374 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01730  M01S01374.242l642 ---|          ZJN    RIS2        IF NO ERRORS
Line S00088 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01731  M01S00088.242l642 +++|          ZJP    RIS3        IF NO ERRORS
01732  M01S00089.242l642 +++|          MJN    RIS2        IF READ ERROR
Line S01375 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01733  M01S01375.v23l617 ---|          ERROR  INSE        EC = 5, INVALID SYSTEM SECTOR
Line S00016 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01734  M01S00016.v23l617 +++|          ERROR  INSE        EC = 5, INCORRECT SYSTEM SECTOR
01735  M00S01376.qfm     +++|
Line S00090 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01736  M01S00090.242l642 +++| RIS2     LDC    FNTN        RESET FNT OFFSET
01737  M01S00091.242l642 +++|          STD    FA
01738  M01S00092.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
Line S01377 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01739  M01S01377.242l642 ---| RIS2     SETMS  WRITE,RW
01740  M01S01378.242l642 ---|          LJM    RISX        RETURN
01741  M00S01379.qfm     +++|          TITLE  READ SYSTEM SECTOR.
01742  M00S01380.qfm     +++|***       READ SYSTEM SECTOR. (FUNCTION 12).
01743  M00S01381.qfm     +++|*
01744  M00S01382.qfm     +++|*         THE SYSTEM SECTOR FOR THE FILE LFN IS READ INTO THE
01745  M00S01383.qfm     +++|*         DEFINED BUFFER. ONLY 100 WORDS ARE TRANSFERRED. NO
01746  M00S01384.qfm     +++|*         CONTROL BYTES. THE IN POINTER IS MOVED ACCORDINGLY.
01747  M00S01385.qfm     +++|
01748  M00S01386.qfm     +++|
01749  M00S01387.qfm     +++| QRS      SUBR               ENTRY/EXIT
01750  M00S01388.qfm     +++|          RJM    CIB         CHECK INPUT BUFFER
01751  M00S01389.qfm     +++|          SBD    HN
01752  M00S01390.qfm     +++|          PJN    QRS1        IF ENOUGH SPACE
01753  M00S01391.qfm     +++|          ABORT  ERBS        * QFM BUFFER TOO SMALL.*
01754  M00S01392.qfm     +++|
01755  M00S01393.qfm     +++| QRS1     RJM    CFS         CHECK FILE STATUS
Line S01394 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01756  M01S01394.242l642 ---|          SETMS  READ
Line S00093 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01757  M01S00093.242l642 +++|          SETMS  IO
01758  M00S01395.qfm     +++|          LDN    0           NO FILE NAME VERIFY
01759  M00S01396.qfm     +++|          RJM    RSS         READ SYSTEM SECTOR
Line S01397 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01760  M01S01397.242l642 ---|          ZJN    QRS2        IF NO ERROR ENCOUNTERED
01761  M01S01398.242l642 ---|          LDN    0           SET FNT ENTRY FLAG
Line S00094 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01762  M01S00094.242l642 +++|          ZJN    QRS3        IF NO ERROR ENCOUNTERED
01763  M01S00095.242l642 +++|          PJN    QRS2        IF ERROR OTHER THAN READ
01764  M01S00096.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
01765  M01S00097.242l642 +++|
01766  M01S00098.242l642 +++| QRS2     LDN    0           SET FNT ENTRY FLAG
01767  M00S01399.qfm     +++|          STD    T3
01768  M00S01400.qfm     +++|          NFA    FA,R
01769  M00S01401.qfm     +++|          RJM    SSE         ISSUE SYSTEM SECTOR ERROR MESSAGE
01770  M00S01402.qfm     +++|          ERROR  INSE        EC = 5, SYSTEM SECTOR ERROR
01771  M00S01403.qfm     +++|
Line S01404 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01772  M01S01404.242l642 ---| QRS2     ENDMS
Line S00099 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01773  M01S00099.242l642 +++| QRS3     ENDMS
01774  M00S01405.qfm     +++|
01775  M00S01406.qfm     +++|*         TRANSFER SYSTEM SECTOR TO FET BUFFER.
01776  M00S01407.qfm     +++|
01777  M00S01408.qfm     +++|          LDD    IN          SET IN POINTER FOR WRITE
01778  M00S01409.qfm     +++|          STD    CA
01779  M00S01410.qfm     +++|          LDD    IN+1
01780  M00S01411.qfm     +++|          STD    CA+1
01781  M00S01412.qfm     +++|          LDD    HN          COPY SYSTEM SECTOR TO BUFFER
01782  M00S01413.qfm     +++|          STD    T1
01783  M00S01414.qfm     +++|          LDC    BFMS+2
01784  M00S01415.qfm     +++|          RJM    WBB
01785  M00S01416.qfm     +++|          LDN    ZERL        UPDATE IN POINTER
01786  M00S01417.qfm     +++|          CRD    CM
01787  M00S01418.qfm     +++|          LDD    CA
01788  M00S01419.qfm     +++|          STD    CM+3
01789  M00S01420.qfm     +++|          LDD    CA+1
01790  M00S01421.qfm     +++|          STD    CM+4
01791  M00S01422.qfm     +++|          RJM    GFE         WRITE UPDATED IN POINTER BACK
01792  M00S01423.qfm     +++|          ADN    2
01793  M00S01424.qfm     +++|          CWD    CM
01794  M00S01425.qfm     +++|          RJM    CIN         CLEAR FILE INTERLOCK
01795  M00S01426.qfm     +++|          LJM    QRSX        RETURN
01796  M00S01427.qfm     +++|          SPACE  4
01797  M00S01428.qfm     +++|**        COMMON DECKS.
01798  M00S01429.qfm     +++|
01799  M00S01430.qfm     +++|
01800  M00S01431.qfm     +++|*CALL     COMPCIB
01801  M00S01432.qfm     +++|          SPACE  4,10
Line S01433 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01802  M01S01433.242l642 ---|          ERRNG  OVL0-5-*    CHECK LOAD ADDRESS LOCATION-FREE ROUTINES
01803  M00S01434.qfm     +++|          TITLE  PRESET.
01804  M00S01435.qfm     +++|**        PRS - PRESET PROGRAM.
01805  M00S01436.qfm     +++|*
01806  M00S01437.qfm     +++|*         EXIT   (A) = OVERLAY NAME.
01807  M00S01438.qfm     +++|*                (EO) = (QA) = (FA) = (QT) = 0.
01808  M00S01439.qfm     +++|*                (QFMB) = PROCESSOR ADDRESS.
01809  M00S01440.qfm     +++|*
01810  M00S01441.qfm     +++|*         CALLS  CBP, CRS, CUA, GFE, IFP.
01811  M00S01442.qfm     +++|
01812  M00S01443.qfm     +++|
01813  M00S01444.qfm     +++| PRS      SUBR               ENTRY/EXIT
Line S00001 Modification History
M01 (Added by) qfm13
Seq #  *Modification Id* Act 
----------------------------+
01814  M01S00001.qfm13   +++|          LDN    ZERL        CLEAR OUT *MID* WORD
01815  M01S00002.qfm13   +++|          CRM    FMSS,ON
01816  M00S01445.qfm     +++|          LDN    0           CLEAR DIRECT CELLS
01817  M00S01446.qfm     +++|          STD    T1
01818  M00S01447.qfm     +++|          STD    EO
01819  M00S01448.qfm     +++|          STD    QA
01820  M00S01449.qfm     +++|          STD    FA
01821  M00S01450.qfm     +++|          STD    QT
01822  M00S01451.qfm     +++|          RJM    CRS         CHECK RECALL STATUS
01823  M00S01452.qfm     +++|          ZJN    PRS2        IF NOT CALLED WITH RECALL
01824  M00S01453.qfm     +++|
01825  M00S01454.qfm     +++|*         CHECK FUNCTION CODE.
01826  M00S01455.qfm     +++|
01827  M00S01456.qfm     +++|          LDD    IR+2        SET INDEX INTO *TFCN*
01828  M00S01457.qfm     +++|          SHN    1
01829  M00S01458.qfm     +++|          ADD    IR+2
01830  M00S01459.qfm     +++|          STD    T7
Line S01460 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01831  M01S01460.ns21000 ---|          SBN    MXQF*3
Line S00003 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01832  M01S00003.ns21000 +++|          SBK    MXQF*3
01833  M00S01461.qfm     +++|          MJN    PRS3        IF LEGAL CODE
Line S01462 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01834  M01S01462.v23l617 ---| PRS2     ABORT  ERIR        * QFM ILLEGAL REQUEST.*
Line S00017 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01835  M01S00017.v23l617 +++| PRS2     ABORT  ERIR        * QFM INCORRECT REQUEST.*
01836  M00S01463.qfm     +++|
01837  M00S01464.qfm     +++|*         CHECK FET ADDRESS.
01838  M00S01465.qfm     +++|
01839  M00S01466.qfm     +++| PRS3     LDM    TFCN+2,T7   SET REQUIRED FET LENGTH
01840  M00S01467.qfm     +++|          LPN    77
01841  M00S01468.qfm     +++|          STD    T2
01842  M00S01469.qfm     +++|          ZJN    PRS4        IF NO FET REQUIRED
01843  M00S01470.qfm     +++|          LDD    IR+3
01844  M00S01471.qfm     +++|          LPN    77
01845  M00S01472.qfm     +++|          STD    IR+3
01846  M00S01473.qfm     +++|          SHN    14
01847  M00S01474.qfm     +++|          MJN    PRS5        IF OUT OF RANGE
01848  M00S01475.qfm     +++|          LMD    IR+4
01849  M00S01476.qfm     +++|          SBN    2
Line S01477 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01850  M01S01477.v23l617 ---|          MJN    PRS5        IF INVALID FET ADDRESS
Line S00018 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01851  M01S00018.v23l617 +++|          MJN    PRS5        IF INCORRECT FET ADDRESS
01852  M00S01478.qfm     +++|          LDC    *
01853  M00S01479.qfm     +++|          ORG    *-1
01854  M00S01480.qfm     +++|          LOC    GFEA
01855  M00S01481.qfm     +++|          UJN    GFE1        SET FET ADDRESS
01856  M00S01482.qfm     +++|          LOC    *O
01857  M00S01483.qfm     +++|          STM    GFEA
01858  M00S01484.qfm     +++|          RJM    CBP         CHECK BUFFER PARAMETERS
01859  M00S01485.qfm     +++|
01860  M00S01486.qfm     +++|*         CHECK FET LENGTH.
01861  M00S01487.qfm     +++|
01862  M00S01488.qfm     +++|          LDD    CN+3        CHECK FET LENGTH
01863  M00S01489.qfm     +++|          SHN    -6
01864  M00S01490.qfm     +++|          ADN    4
01865  M00S01491.qfm     +++|          STD    T1
01866  M00S01492.qfm     +++|          SBD    T2
01867  M00S01493.qfm     +++|          MJN    PRS5        IF FET NOT LONG ENOUGH
01868  M00S01494.qfm     +++|          LDD    IR+3        CHECK FET ADDRESS WITHIN FL
01869  M00S01495.qfm     +++|          SHN    14
01870  M00S01496.qfm     +++|          LMD    IR+4
01871  M00S01497.qfm     +++| PRS4     ADD    T1
01872  M00S01498.qfm     +++|          SHN    -6
01873  M00S01499.qfm     +++|          SBD    FL
01874  M00S01500.qfm     +++|          MJN    PRS6        IF IN RANGE
01875  M00S01501.qfm     +++| PRS5     ABORT  ERAE        * QFM ARGUMENT ERROR.*
01876  M00S01502.qfm     +++|
01877  M00S01503.qfm     +++| PRS6     LDM    TFCN+2,T7   CHECK USER ACCESS REQUIREMENTS
01878  M00S01504.qfm     +++|          SHN    21-12
01879  M00S01505.qfm     +++|          PJN    PRS7        IF NO REQUIREMENTS
01880  M00S01506.qfm     +++|          RJM    CUA
01881  M00S01507.qfm     +++|          ZJN    PRS7        IF ACCESS ALLOWED
Line S01508 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01882  M01S01508.v23l617 ---|          ABORT  ERUA        * QFM ILLEGAL USER ACCESS.*
Line S00019 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01883  M01S00019.v23l617 +++|          ABORT  ERUA        * QFM USER ACCESS NOT VALID.*
01884  M00S01509.qfm     +++|
01885  M00S01510.qfm     +++| PRS7     RJM    IFP         INITIALIZE TABLE ACCESS ROUTINES
01886  M00S01511.qfm     +++|          LDN    ESTP
01887  M00S01512.qfm     +++|          CRD    CM
01888  M00S01513.qfm     +++|          LCN    0           SET TEST FOR VALID EQUIPMENT
Line S01514 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01889  M01S01514.ns22000 ---|          LMD    CM+1
Line S00020 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01890  M01S00020.ns22000 +++|          LMD    CM+2
01891  M00S01515.qfm     +++|          STM    CEQA
01892  M00S01516.qfm     +++|          LDM    TFCN+1,T7   GET PROCESSOR ADDRESS
01893  M00S01517.qfm     +++|          STM    QFMB
01894  M00S01518.qfm     +++|          NJN    PRS9        IF PROCESSOR DEFINED
Line S01519 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01895  M01S01519.v23l617 ---| PRS8     LJM    PRS2        * QFM ILLEGAL REQUEST.*
Line S00020 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01896  M01S00020.v23l617 +++| PRS8     LJM    PRS2        * QFM INCORRECT REQUEST.*
01897  M00S01520.qfm     +++|
01898  M00S01521.qfm     +++|*         CHECK IF SSJ= REQUIRED.
01899  M00S01522.qfm     +++|
01900  M00S01523.qfm     +++| PRS9     LDM    TFCN+2,T7
01901  M00S01524.qfm     +++|          SHN    21-13
01902  M00S01525.qfm     +++|          PJN    PRS10       IF SSJ= NOT REQUIRED
01903  M00S01526.qfm     +++|          LDD    CP          CHECK SSJ= PRESENT
01904  M00S01527.qfm     +++|          ADC    SEPW
01905  M00S01528.qfm     +++|          CRD    CN
01906  M00S01529.qfm     +++|          LDD    CN
01907  M00S01530.qfm     +++|          SHN    21-2
01908  M00S01531.qfm     +++|          PJN    PRS8        IF SSJ= NOT PRESENT
01909  M00S01532.qfm     +++| PRS10    LDM    TFCN,T7     SET OVERLAY NAME
01910  M00S01533.qfm     +++|          LPN    77
01911  M00S01534.qfm     +++|          LJM    PRSX
01912  M00S01535.qfm     +++|
01913  M00S01536.qfm     +++|
01914  M00S01537.qfm     +++| IFP      HERE               DUMP *IFP* REMOTE CODE
01915  M00S01538.qfm     +++|          SPACE  4,4
01916  M00S01539.qfm     +++|*         COMMON DECKS.
01917  M00S01540.qfm     +++|
01918  M00S01541.qfm     +++|
01919  M00S01542.qfm     +++|*CALL     COMPCRS
01920  M00S01543.qfm     +++| SSJ$     EQU    0           SET SSJ CHECKING FOR *COMPCUA*
01921  M00S01544.qfm     +++|*CALL     COMPCUA
01922  M00S01545.qfm     +++|          SPACE  4,10
01923  M00S01546.qfm     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
01924  M00S01547.qfm     +++|*         ENTRY = 3 WORDS.
01925  M00S01548.qfm     +++|*
01926  M00S01549.qfm     +++|*T        12/ O,12/ N,1/S,1/P,4/,6/ L
Figure

0569101112232429 LPS N O3035 O

01927  M00S01550.qfm     +++|*         O      OVERLAY NAME (LAST CHARACTER).
01928  M00S01551.qfm     +++|*         N      FUNCTION PROCESSOR ADDRESS.
01929  M00S01552.qfm     +++|*         S      SSJ= ENTRY POINT REQUIRED.
01930  M00S01553.qfm     +++|*         P      SYSTEM ORIGIN PRIVILEDGES REQUIRED.
01931  M00S01554.qfm     +++|*         L      REQUIRED FET LENGTH - 1.
01932  M00S01555.qfm     +++|
01933  M00S01556.qfm     +++|
01934  M00S01557.qfm     +++| TFCN     FCN
01935  M00S01558.qfm     +++|          FCN    ATQF,ATQ,7,P,SSJ   ATTACH *IQFT* FILE
01936  M00S01559.qfm     +++|          FCN    DTQF,DTQ,4,P       DETACH *IQFT* FILE
01937  M00S01560.qfm     +++|          FCN    PGQF,PGQ,4,P       PURGE *IQFT* FILE
01938  M00S01561.qfm     +++|          FCN    STQF,STQ,4,,SSJ    SET *IQFT* FILE
01939  M00S01562.qfm     +++|          FCN    IIQF,INQ,7,,SSJ    INITIALIZE *IQFT* FILE
01940  M00S01563.qfm     +++|          FCN    RQLF,RQL,6,,SSJ    REQUEUE LIST
01941  M00S01564.qfm     +++|          FCN    RLLF,RLL,4,,SSJ    RELEASE LIST
01942  M00S01565.qfm     +++|          FCN    DEQF,DEQ,10,,SSJ   DEQUEUE LIST
01943  M00S01566.qfm     +++|          FCN    AQFF,AQF,10,P,SSJ  ATTACH QUEUED FILE
01944  M00S01567.qfm     +++|          FCN    QRSF,QRS,4,,SSJ    READ SYSTEM SECTOR
01945  M00S01568.qfm     +++|          FCN    AIQF,AIQ,4,,SSJ    ATTACH INACTIVE QUEUE FILE
01946  M00S01569.qfm     +++|          FCN    RIQF,RIQ,4,,SSJ    REQUEUE INACTIVE QUEUE FILE
01947  M00S01570.qfm     +++|          FCN    SRRF,RER           SET RERUN STATUS
01948  M00S01571.qfm     +++|          FCN    CRRF,RER           CLEAR RERUN STATUS
01949  M00S01572.qfm     +++|          FCN    IQFF,IQF,4,,SSJ    INTERLOCK QUEUED FILE
01950  M00S01573.qfm     +++|          FCN    CFEF,CFE,6,,SSJ    CREATE FOT ENTRY
01951  M00S01574.qfm     +++|          FCN    CQFF,CQF,4,,SSJ    CREATE QUEUE FILE
Line S00004 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01952  M01S00004.ns21000 +++|          FCN    QREF,QRE,4,,SSJ    READ EOI SECTOR
01953  M01S00005.ns21000 +++|          FCN    QWEF,QWE,4,,SSJ    WRITE EOI SECTOR
01954  M00S01575.qfm     +++|          FCN    MXQF
01955  M00S01576.qfm     +++|
01956  M00S01577.qfm     +++|
01957  M00S01578.qfm     +++|          OVERFLOW
01958  M00S01579.qfm     +++|          OVERLAY (QFM ERROR PROCESSOR.)
01959  M00S01580.qfm     +++| ABP      SPACE  4
01960  M00S01581.qfm     +++|**        ABP - ABORT JOB PROCESSOR.
01961  M00S01582.qfm     +++|*
Line S01583 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01962  M01S01583.ns2099  ---|*         ENTRY (RI - RI+1) = ADDRESS OF MESSAGE.
01963  M01S01584.ns2099  ---|*                    6/ DAYFILE OPTION , 12/ MESSAGE ADDRESS
Line S00120 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01964  M01S00120.ns2099  +++|*         ENTRY  (RI) = ADDRESS OF MESSAGE.
01965  M01S00121.ns2099  +++|*                (RI+1) = EST ORDINAL.
01966  M00S01585.qfm     +++|
01967  M00S01586.qfm     +++|
01968  M00S01587.qfm     +++|          ENTRY  ABP         ENTRY
Line S00122 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01969  M01S00122.ns2099  +++|          LDD    RI+1        RESTORE EST ORDINAL
01970  M01S00123.ns2099  +++|          STD    T5
01971  M00S01588.qfm     +++|          RJM    CIN         CLEAR FILE INTERLOCK
01972  M00S01589.qfm     +++|          LDD    RI
01973  M00S01590.qfm     +++|          ZJN    ABP1        IF NO ERROR MESSAGE
01974  M00S01591.qfm     +++|          RJM    DFM         ISSUE ERROR MESSAGE
01975  M00S01592.qfm     +++| ABP1     RJM    GFE         GET FET ADDRESS
01976  M00S01593.qfm     +++|          ZJN    ABP2        IF NO FET
01977  M00S01594.qfm     +++|          CRD    CM
01978  M00S01595.qfm     +++|          AOD    CM+4        SET FET NOT BUSY
01979  M00S01596.qfm     +++|          RJM    GFE         GET FET ADDRESS
01980  M00S01597.qfm     +++|          CWD    CM
01981  M00S01598.qfm     +++| ABP2     MONITOR ABTM
01982  M00S01599.qfm     +++|          LJM    PPR
01983  M00S01600.qfm     +++|          SPACE  4
01984  M00S01601.qfm     +++|*         COMMON ERROR MESSAGES ISSUED BY *ABT*.
01985  M00S01602.qfm     +++|
01986  M00S01603.qfm     +++|
01987  M00S01604.qfm     +++|          QUAL   ERR
01988  M00S01605.qfm     +++| ERAE     DATA   C* QFM ARGUMENT ERROR.*
01989  M00S01606.qfm     +++| ERBA     DATA   C* QFM BUFFER ARGUMENT ERROR.*
01990  M00S01607.qfm     +++| ERBS     DATA   C* QFM BUFFER TOO SMALL.*
01991  M00S01608.qfm     +++| EREO     DATA   C* EOI BAD ON ATTACHED FILE.*
Line S01609 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01992  M01S01609.v23l617 ---| EREQ     DATA   C* QFM ILLEGAL EQUIPMENT.*
Line S00021 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01993  M01S00021.v23l617 +++| EREQ     DATA   C* QFM INCORRECT EQUIPMENT.*
01994  M00S01610.qfm     +++| ERFA     DATA   C* QFM FILE ALREADY ATTACHED.*
01995  M00S01611.qfm     +++| ERFN     DATA   C* QFM FILE NAME ERROR.*
01996  M00S01612.qfm     +++| ERIE     DATA   C* QFM INTERLOCK ERROR.*
01997  M00S01613.qfm     +++| ERIO     DATA   C* QFM I/O SEQUENCE ERROR.*
Line S01614 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01998  M01S01614.v23l617 ---| ERIQ     DATA   C* QFM INVALID QUEUE FILE ORDINAL.*
01999  M01S01615.v23l617 ---| ERIR     DATA   C* QFM ILLEGAL REQUEST.*
Line S00022 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02000  M01S00022.v23l617 +++| ERIQ     DATA   C* QFM INCORRECT QUEUE FILE ORDINAL.*
02001  M01S00023.v23l617 +++| ERIR     DATA   C* QFM INCORRECT REQUEST.*
Line S00124 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02002  M01S00124.ns2099  +++| ERQI     DATA   C* QFM IQFT INTERLOCK ABORT.*
02003  M01S00125.ns2099  +++| ERTK     DATA   C* QFM NO IQFT TRACK AVAILABLE.*
02004  M00S01616.qfm     +++| ERTM     DATA   C* QFM TRACK MISMATCH.*
Line S01617 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02005  M01S01617.v23l617 ---| ERUA     DATA   C* QFM ILLEGAL USER ACCESS.*
Line S00024 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02006  M01S00024.v23l617 +++| ERUA     DATA   C* QFM USER ACCESS NOT VALID.*
02007  M00S01618.qfm     +++| ERFF     DATA   C* QFM FOT FULL.*
02008  M00S01619.qfm     +++|          QUAL   *
02009  M00S01620.qfm     +++| ERP      SPACE  4,15
02010  M00S01621.qfm     +++|**        ERP - COMMON ERROR EXIT FROM QFM.
02011  M00S01622.qfm     +++|*
02012  M00S01623.qfm     +++|*         ENTRY  (RI) = ERROR CODE. (SEE COMSIOQ FOR DEFINED CODES).
Line S00126 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02013  M01S00126.ns2099  +++|*                (RI+1) = EST ORDINAL.
02014  M00S01624.qfm     +++|*
02015  M00S01625.qfm     +++|*         IF A FET ADDRESS IS SPECIFIED IN THE CALL, THE *EP* BIT IS
02016  M00S01626.qfm     +++|*         CHECKED. IF IT IS NOT SET, THE APPROPRIATE DAYFILE MESSAGE
02017  M00S01627.qfm     +++|*         IS RETURNED TO THE USERS DAYFILE. IF THE *EP* BIT IS SET,
02018  M00S01628.qfm     +++|*         THE ERROR CODE IS RETURNED IN FET+0. NO DAYFILE MESSAGE IS
02019  M00S01629.qfm     +++|*         ISSUED IF *EP* BIT IS SET. IF NO FET IS SPECIFIED, A MESSAGE
02020  M00S01630.qfm     +++|*         IS ISSUED. THE TYPE OF EXIT IS SELECTED FROM A TABLE
02021  M00S01631.qfm     +++|*         (SEE *TABT*). THE RETURN WILL BE TO ABT OR QFMX.
02022  M00S01632.qfm     +++|
02023  M00S01633.qfm     +++|
02024  M00S01634.qfm     +++|          ENTRY  ERP         ENTRY/EXIT
Line S00127 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02025  M01S00127.ns2099  +++|          LDD    RI+1        RESTORE EST ORDINAL
02026  M01S00128.ns2099  +++|          STD    T5
02027  M00S01635.qfm     +++|          RJM    CIN         CLEAR FILE INTERLOCK
02028  M00S01636.qfm     +++|          RJM    GFE
02029  M00S01637.qfm     +++|          ZJN    ERP2        IF NO FET ADDRESS
02030  M00S01638.qfm     +++|          CRD    CM
02031  M00S01639.qfm     +++|          ADN    1           CHECK EP BIT
02032  M00S01640.qfm     +++|          CRD    CN
02033  M00S01641.qfm     +++|          LDD    CN+1
02034  M00S01642.qfm     +++|          SHN    21-10
02035  M00S01643.qfm     +++|          PJN    ERP2        IF EP BIT NOT SET
02036  M00S01644.qfm     +++|          LDD    CM+4
02037  M00S01645.qfm     +++|          LPC    1777
02038  M00S01646.qfm     +++|          STD    CM+4
02039  M00S01647.qfm     +++|          LDD    CM+3
02040  M00S01648.qfm     +++|          SCN    3
02041  M00S01649.qfm     +++|          STD    CM+3
02042  M00S01650.qfm     +++|          LDD    RI          SET ERROR CODE IN FET
02043  M00S01651.qfm     +++|          SHN    12
02044  M00S01652.qfm     +++|          RAD    CM+4
02045  M00S01653.qfm     +++|          SHN    -14
02046  M00S01654.qfm     +++|          RAD    CM+3
02047  M00S01655.qfm     +++|          RJM    GFE
02048  M00S01656.qfm     +++|          CWD    CM
02049  M00S01657.qfm     +++| ERP1     LJM    QFMX        RETURN TO USER
02050  M00S01658.qfm     +++|
02051  M00S01659.qfm     +++|*         SELECT TYPE OF ERROR RETURN.
02052  M00S01660.qfm     +++|
02053  M00S01661.qfm     +++| ERP2     LDM    TEMT,RI     FETCH DIAGNOSTIC ADDRESS
02054  M00S01662.qfm     +++|          ZJN    ERP3        IF NO MESSAGE
02055  M00S01663.qfm     +++|          RJM    DFM
02056  M00S01664.qfm     +++| ERP3     LDM    TABT,RI     GET RETURN CODE
02057  M00S01665.qfm     +++|          ZJN    ERP1        IF RETURN TO USER
02058  M00S01666.qfm     +++|          LJM    ABP1        ABORT JOB
02059  M00S01667.qfm     +++| TEMT     SPACE  4
02060  M00S01668.qfm     +++|**        TEMT - TABLE OF ERROR MESSAGES.
02061  M00S01669.qfm     +++|
02062  M00S01670.qfm     +++|
02063  M00S01671.qfm     +++| TEMT     BSS    0
02064  M00S01672.qfm     +++|          LOC    0
02065  M00S01673.qfm     +++|          CON    0           UNDEFINED
Line S01674 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02066  M01S01674.ns2576  ---|          CON    =C* FILE NOT FOUND.*
02067  M01S01675.ns2576  ---|          CON    =C* FILE ALREADY INTERLOCKED.*
02068  M01S01676.ns2576  ---|          CON    =C* TRACK ALREADY ASSIGNED.*
02069  M01S01677.ns2576  ---|          CON    =C* QFT/LOCAL FNT IS FULL.*
Line S01678 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02070  M02S01678.ns2576  ---|          CON    =C* INVALID SYSTEM SECTOR.*
Line S00025 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02071  M02S00025.ns2576  ---|          CON    =C* INCORRECT SYSTEM SECTOR.*
Line S01679 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02072  M01S01679.ns2576  ---|          CON    =C* UNCORRECTABLE RMS ERROR.*
02073  M01S01680.ns2576  ---|          CON    =C* INPUT FILE IN RERUN STATUS.*
02074  M01S01681.ns2576  ---|          CON    =C* INPUT FILE IN NO RERUN STATUS.*
02075  M01S01682.ns2576  ---|          CON    =C* NO INPUT FILE FOUND.*
02076  M01S01683.ns2576  ---|          CON    0           ERR 12 (INTERNAL TO *QREC*)
02077  M01S01684.ns2576  ---|          CON    0           ERR 13 (INTERNAL TO *QREC*)
02078  M01S01685.ns2576  ---|          CON    =C* FOT IS FULL.*
02079  M01S01686.ns2576  ---|          CON    0           ERR 15 (INTERNAL TO *QREC*)
02080  M01S01687.ns2576  ---|          CON    =C* DUPLICATE FILE NAME.*
Line S00021 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02081  M02S00021.ns2576  ---|          CON    =C* FILE NOT ALLOWED ON EQUIPMENT.*
Line S00016 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02082  M01S00016.ns2576  +++| FNFE     CON    =C* FILE NOT FOUND.*
02083  M01S00017.ns2576  +++| FAIE     CON    =C* FILE ALREADY INTERLOCKED.*
02084  M01S00018.ns2576  +++| TASE     CON    =C* TRACK ALREADY ASSIGNED.*
02085  M01S00019.ns2576  +++| FTHE     CON    =C* QFT/LOCAL FNT IS FULL.*
02086  M01S00020.ns2576  +++| INSE     CON    =C* INCORRECT SYSTEM SECTOR.*
02087  M01S00021.ns2576  +++| RMSE     CON    =C* UNCORRECTABLE RMS ERROR.*
02088  M01S00022.ns2576  +++| RRAE     CON    =C* INPUT FILE IN RERUN STATUS.*
02089  M01S00023.ns2576  +++| NRAE     CON    =C* INPUT FILE IN NO RERUN STATUS.*
02090  M01S00024.ns2576  +++| DUNE     CON    =C* DEVICE UNAVAILABLE.*
02091  M01S00025.ns2576  +++| RDVE     CON    0 * IGNORED - REMOVABLE.*  (QREC)
02092  M01S00026.ns2576  +++|          CON    0           UNUSED
02093  M01S00027.ns2576  +++| FTFE     CON    =C* FOT IS FULL.*
02094  M01S00028.ns2576  +++| EIDE     CON    0 * IGNORED - ERROR IDLE.* (QREC)
02095  M01S00029.ns2576  +++| DFNE     CON    =C* DUPLICATE FILE NAME.*
02096  M01S00030.ns2576  +++| NSEE     CON    =C* FILE NOT ALLOWED ON EQUIPMENT.*
02097  M00S01688.qfm     +++|          LOC    *O
02098  M00S01689.qfm     +++| TEMTL    EQU    *-TEMT
02099  M00S01690.qfm     +++| TABT     SPACE  4
02100  M00S01691.qfm     +++|**        TABT - ABORT TABLE.
02101  M00S01692.qfm     +++|*
02102  M00S01693.qfm     +++|*         0 = EXIT TO USER.
02103  M00S01694.qfm     +++|*         1 = ABORT CONTROL POINT.
02104  M00S01695.qfm     +++|
02105  M00S01696.qfm     +++|
02106  M00S01697.qfm     +++| TABT     BSS    0
02107  M00S01698.qfm     +++|          LOC    0
02108  M00S01699.qfm     +++|          CON    0           UNDEFINED
Line S01700 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02109  M01S01700.ns2576  ---|          CON    1           FILE NOT FOUND
02110  M01S01701.ns2576  ---|          CON    0           REQUESTED FILE ALREADY INTERLOCKED
02111  M01S01702.ns2576  ---|          CON    1           IQFT TRACK ALREADY ASSIGNED
02112  M01S01703.ns2576  ---|          CON    0           QFT/LOCAL FNT IS FULL
Line S01704 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02113  M02S01704.ns2576  ---|          CON    0           INVALID SYSTEM SECTOR
Line S00026 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02114  M02S00026.ns2576  ---|          CON    0           INCORRECT SYSTEM SECTOR
Line S01705 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02115  M01S01705.ns2576  ---|          CON    0           UNCORRECTABLE RMS ERROR
02116  M01S01706.ns2576  ---|          CON    0           FILE ALREADY IN RERUN STATUS
02117  M01S01707.ns2576  ---|          CON    0           FILE ALREADY IN NORERUN STATUS
02118  M01S01708.ns2576  ---|          CON    0           NO INPUT FILE FOUND
02119  M01S01709.ns2576  ---|          CON    0           ERR 12 (INTERNAL TO *QREC*)
02120  M01S01710.ns2576  ---|          CON    0           ERR 13 (INTERNAL TO *QREC*)
02121  M01S01711.ns2576  ---|          CON    0           FOT IS FULL
02122  M01S01712.ns2576  ---|          CON    0           ERR 15 (INTERNAL TO *QREC*)
02123  M01S01713.ns2576  ---|          CON    0           DUPLICATE FILE NAME
Line S00022 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02124  M02S00022.ns2576  ---|          CON    0           INCORRECT ACCESS LEVEL FOR QUEUED FILE
Line S00031 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02125  M01S00031.ns2576  +++| FNFE     CON    1           FILE NOT FOUND
02126  M01S00032.ns2576  +++| FAIE     CON    0           REQUESTED FILE ALREADY INTERLOCKED
02127  M01S00033.ns2576  +++| TASE     CON    1           IQFT TRACK ALREADY ASSIGNED
02128  M01S00034.ns2576  +++| FTHE     CON    0           QFT/LOCAL FNT IS FULL
02129  M01S00035.ns2576  +++| INSE     CON    0           INCORRECT SYSTEM SECTOR
02130  M01S00036.ns2576  +++| RMSE     CON    0           UNCORRECTABLE RMS ERROR
02131  M01S00037.ns2576  +++| RRAE     CON    0           FILE ALREADY IN RERUN STATUS
02132  M01S00038.ns2576  +++| NRAE     CON    0           FILE ALREADY IN NORERUN STATUS
02133  M01S00039.ns2576  +++| DUNE     CON    0           DEVICE UNAVAILABLE
02134  M01S00040.ns2576  +++| RDVE     CON    0           IGNORED - REMOVABLE  (*QREC*)
02135  M01S00041.ns2576  +++|          CON    0           (UNUSED)
02136  M01S00042.ns2576  +++| FTFE     CON    0           FOT IS FULL
02137  M01S00043.ns2576  +++| EIDE     CON    0           IGNORED - ERROR IDLE (*QREC*)
02138  M01S00044.ns2576  +++| DFNE     CON    0           DUPLICATE FILE NAME
02139  M01S00045.ns2576  +++| NSEE     CON    0           INCORRECT ACCESS LEVEL FOR QUEUED FILE
02140  M00S01714.qfm     +++|          LOC    *O
02141  M00S01715.qfm     +++| TABTL    EQU    *-TABT
02142  M00S01716.qfm     +++|          SPACE  4,5
02143  M00S01717.qfm     +++|**        THE FOLLOWING TEST ASSURES THAT *TEMT* AND *TABT*
02144  M00S01718.qfm     +++|*         ARE OF EQUAL LENGTH.
02145  M00S01719.qfm     +++|
02146  M00S01720.qfm     +++|
02147  M00S01721.qfm     +++|          ERRNZ  TEMTL-TABTL *TEMT* AND *TABT* ARE NOT EQUAL
Line S01722 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02148  M01S01722.242l642 ---|          SPACE  4,10
02149  M01S01723.242l642 ---|          ERRNG  OVL0-5-*    CHECK LOAD ADDRESS LOCATION-FREE ROUTINES
02150  M00S01724.qfm     +++|          SPACE  4
02151  M00S01725.qfm     +++|          OVERFLOW  OVL
02152  M00S01726.qfm     +++|          OVERLAY (INITIALIZE IQFT FILE.)
02153  M00S01727.qfm     +++| CFEF     SPACE  4,10
02154  M00S01728.qfm     +++|***       CFEF - CREATE FOT ENTRY.  (FUNCTION 22).
02155  M00S01729.qfm     +++|*
02156  M00S01730.qfm     +++|*         THE FAMILY NAME IDENTIFIED IN FET+6 IS ENTERED IN THE FOT
02157  M00S01731.qfm     +++|*         AND THE FAMILY ORDINAL IS RETURNED IN THE LOWER 18 BITS OF
02158  M00S01732.qfm     +++|*         FET+6.
02159  M00S01733.qfm     +++|
02160  M00S01734.qfm     +++|
02161  M00S01735.qfm     +++| CFE2     RJM    GFE         RETURN FOT ORDINAL TO CALLER
02162  M00S01736.qfm     +++|          ADN    6
02163  M00S01737.qfm     +++|          CWD    FN
02164  M00S01738.qfm     +++|
02165  M00S01739.qfm     +++|          ENTRY  CFE         ENTRY/EXIT
02166  M00S01740.qfm     +++|          RJM    GFE         GET FAMILY NAME
02167  M00S01741.qfm     +++|          ADN    6
02168  M00S01742.qfm     +++|          CRD    FN
02169  M00S01743.qfm     +++|          LDN    0           ENTER FAMILY NAME IN FOT
02170  M00S01744.qfm     +++|          RJM    GFO
02171  M00S01745.qfm     +++|          PJN    CFE1        IF NORMAL RETURN
02172  M00S01746.qfm     +++|          LJM    DPP         ERROR FLAG SET - DROP PP
02173  M00S01747.qfm     +++|
02174  M00S01748.qfm     +++| CFE1     SHN    -1
02175  M00S01749.qfm     +++|          ZJN    CFE2        IF ENTRY CREATED/FOUND
02176  M00S01750.qfm     +++|          ERROR  FTFE        EC = 14, FOT FULL
02177  M00S01751.qfm     +++|          TITLE  INITIALIZE IQFT FILE.
02178  M00S01752.qfm     +++| INQF     SPACE  4,10
02179  M00S01753.qfm     +++|***       INQF - INITIALIZE IQFT FILE. (FUNCTION 5).
02180  M00S01754.qfm     +++|*
02181  M00S01755.qfm     +++|*         ALL QUEUED FILES CATALOGED IN THE IQFT FILE ARE RELEASED.
Line S01756 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02182  M01S01756.ns2099  ---|*         THE IQFT FIRST TRACK BYTE IS CLEARED AND THE IQFT FILE IS
02183  M01S01757.ns2099  ---|*         RELEASED. A MESSAGE IS ISSUED TO THE ACCOUNT DAYFILE FOR
Line S00129 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02184  M01S00129.ns2099  +++|*         A MESSAGE IS ISSUED TO THE ACCOUNT DAYFILE FOR
02185  M00S01758.qfm     +++|*         EACH QUEUED FILE RELEASED.
02186  M00S01759.qfm     +++|
02187  M00S01760.qfm     +++|
Line S00130 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02188  M02S00130.ns2576  ---| INQ10    ABORT  ERTK        * QFM NO IQFT TRACK AVAILABLE.*
Line S00046 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02189  M01S00046.ns2576  +++| INQ14    ABORT  ERTK        * QFM NO IQFT TRACK AVAILABLE.*
Line S00131 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02190  M01S00131.ns2099  +++|
02191  M00S01761.qfm     +++|          ENTRY  INQ         ENTRY/EXIT
02192  M00S01762.qfm     +++|          RJM    GFE         GET FET ADDRESS
02193  M00S01763.qfm     +++|          ADN    7           READ EQUIPMENT FROM FET+7
02194  M00S01764.qfm     +++|          CRD    T5
02195  M00S01765.qfm     +++|
02196  M00S01766.qfm     +++|*         CLEAR IQFT FIRST TRACK BYTE IN MST.
02197  M00S01767.qfm     +++|
02198  M00S01768.qfm     +++|          RJM    CMS         CHECK FOR MASS STORAGE DEVICE
Line S01769 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02199  M01S01769.ns2576  ---|          LDN    IIQS
02200  M01S01770.ns2576  ---|          RJM    STB         INTERLOCK IQFT FILE
Line S01771 Modification History
M01 (Removed by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02201  M02S01771.ns2576  ---|          ZJN    INQ2        IF IQFT INTERLOCKED
Line S00132 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02202  M02S00132.ns2576  ---|          ZJP    INQ2        IF IQFT INTERLOCKED
Line S00047 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02203  M01S00047.ns2576  +++|          LDC    IIQS+3000S6 INTERLOCK IQFT
02204  M01S00048.ns2576  +++|*                            (RETURN ON INACCESSIBLE OR NOT RESERVED)
02205  M01S00049.ns2576  +++|          RJM    STB
02206  M01S00050.ns2576  +++|          ZJP    INQ4        IF IQFT INTERLOCKED
02207  M00S01772.qfm     +++|          RJM    SIT         SET IQFT TRACK
Line S01773 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02208  M01S01773.ns2099  ---|          NJN    INQ1        IF IQFT TRACK EXISTS
02209  M01S01774.ns2099  ---|          ERROR  FNFE        EC = 1, NO FILE FOUND
Line S00133 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02210  M02S00133.ns2576  ---|          NJP    INQ1        IF IQFT TRACK EXISTS
Line S00051 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02211  M01S00051.ns2576  +++|          NJP    INQ3        IF IQFT TRACK EXISTS
Line S00134 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02212  M01S00134.ns2099  +++|          LDN    ZERL        REQUEST A TRACK FOR THE IQFT
02213  M01S00135.ns2099  +++|          CRD    CM
02214  M01S00136.ns2099  +++|          LDD    T5
02215  M01S00137.ns2099  +++|          STD    CM+1
02216  M01S00138.ns2099  +++|          MONITOR  RTCM
02217  M01S00139.ns2099  +++|          STD    FA
02218  M01S00140.ns2099  +++|          LDD    CM+2        SAVE NEW IQFT TRACK
02219  M01S00141.ns2099  +++|          STD    T6
02220  M01S00142.ns2099  +++|          STM    INQA
Line S00143 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02221  M02S00143.ns2576  ---|          ZJP    INQ10       IF NO SPACE AVAILABLE
Line S00052 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02222  M01S00052.ns2576  +++|          ZJP    INQ14       IF NO SPACE AVAILABLE
Line S00144 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02223  M01S00144.ns2099  +++|          LDN    SIQS        ENTER FIRST TRACK IN THE MST
02224  M01S00145.ns2099  +++|          RJM    STB
02225  M01S00146.ns2099  +++|          LDC    4S15+SPFS   SET PRESERVED FILE STATUS
02226  M01S00147.ns2099  +++|          RJM    STB
02227  M01S00148.ns2099  +++|          LDC    500         CLEAR SYSTEM SECTOR BUFFER
02228  M01S00149.ns2099  +++|          STD    T3
Line S00150 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02229  M02S00150.ns2576  ---| INQ0     LDN    0
Line S00053 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02230  M01S00053.ns2576  +++| INQ2     LDN    0
Line S00151 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02231  M01S00151.ns2099  +++|          STM    BFMS+1,T3
02232  M01S00152.ns2099  +++|          SOD    T3
Line S00153 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02233  M02S00153.ns2576  ---|          NJN    INQ0        IF NOT BEGINNING OF BUFFER
Line S00054 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02234  M01S00054.ns2576  +++|          NJN    INQ2        IF NOT BEGINNING OF BUFFER
Line S00154 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02235  M01S00154.ns2099  +++|          LDD    MA          MOVE NAME TO SYSTEM SECTOR
02236  M01S00155.ns2099  +++|          CWM    INQD,ON
02237  M01S00156.ns2099  +++|          SBN    1
02238  M01S00157.ns2099  +++|          CRM    FNSS,ON
Line S00158 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02239  M02S00158.242l642 ---|          SETMS  WRITE
Line S00100 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02240  M01S00100.242l642 +++|          SETMS  IO
Line S00159 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02241  M01S00159.ns2099  +++|          RJM    WSS
Line S00160 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02242  M02S00160.242l642 ---|          LJM    INQ5        COMPLETE THE FILE
Line S00101 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02243  M02S00101.ns2576  ---|          PJP    INQ5        IF NO ERRORS
Line S00055 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02244  M01S00055.ns2576  +++|          PJP    INQ7        IF NO ERRORS
Line S00102 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02245  M01S00102.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
02246  M00S01775.qfm     +++|
Line S01776 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02247  M01S01776.ns2576  ---| INQ1     ERROR  FAIE        EC = 2, FILE ALREADY INTERLOCKED
Line S00056 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02248  M01S00056.ns2576  +++| INQ3     ERROR  FAIE        EC = 2, FILE ALREADY INTERLOCKED
02249  M00S01777.qfm     +++|
Line S01778 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02250  M01S01778.ns2576  ---| INQ2     RJM    SIT         SET IQFT FIRST TRACK
Line S00057 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02251  M01S00057.ns2576  +++| INQ4     RJM    SIT         SET IQFT FIRST TRACK
02252  M00S01779.qfm     +++|          STM    INQA        SAVE FIRST TRACK OF IQFT
02253  M00S01780.qfm     +++|          STM    RIQA
Line S00161 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02254  M01S00161.ns2099  +++|          AOM    INQC        FLAG INTERLOCK SET
Line S01781 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02255  M01S01781.ns2099  ---|          LDN    0           CLEAR IQFT TRACK
02256  M01S01782.ns2099  ---|          STD    T6
02257  M01S01783.ns2099  ---|          LDC    4S15+SIQS
02258  M01S01784.ns2099  ---|          RJM    STB         CLEAR IQFT FIRST TRACK BYTE
02259  M00S01785.qfm     +++|
02260  M00S01786.qfm     +++|*         READ IQFT INTO BUFFER.
02261  M00S01787.qfm     +++|
Line S01788 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02262  M01S01788.242l642 ---|          SETMS  READ
Line S00103 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02263  M01S00103.242l642 +++|          SETMS  IO
Line S01789 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02264  M01S01789.ns2576  ---| INQ3     RJM    RIQ         READ IQFT FILE
Line S00058 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02265  M01S00058.ns2576  +++| INQ5     RJM    RIQ         READ IQFT FILE
02266  M00S01790.qfm     +++|          LDD    T1          GET NUMBER OF PP WORDS READ
02267  M00S01791.qfm     +++|          SHN    2
02268  M00S01792.qfm     +++|          ADD    T1
02269  M00S01793.qfm     +++|          ADC    QBUF
02270  M00S01794.qfm     +++|          STD    BI
02271  M00S01795.qfm     +++|
02272  M00S01796.qfm     +++|*         PROCESS SECTOR OF IQFT.
02273  M00S01797.qfm     +++|
Line S01798 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02274  M01S01798.ns2576  ---| INQ4     LDC    -QFEWL*5    DECREMENT POINTER TO NEXT ENTRY
Line S00059 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02275  M01S00059.ns2576  +++| INQ6     LDC    -QFEWL*5    DECREMENT POINTER TO NEXT ENTRY
02276  M00S01799.qfm     +++|          RAD    BI
02277  M00S01800.qfm     +++|          ADC    -QBUF
Line S01801 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02278  M01S01801.ns2099  ---|          PJN    INQ6        IF NOT END OF BUFFER
Line S00162 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02279  M02S00162.ns2576  ---|          PJP    INQ6        IF NOT END OF BUFFER
Line S00060 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02280  M01S00060.ns2576  +++|          PJP    INQ10       IF NOT END OF BUFFER
02281  M00S01802.qfm     +++|          LDM    RIQC        CHECK CONTROL BYTES FOR EOI
02282  M00S01803.qfm     +++|          ADM    RIQC+1
Line S01804 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02283  M01S01804.ns2576  ---|          NJN    INQ3        IF EOI NOT READ
Line S00061 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02284  M01S00061.ns2576  +++|          NJN    INQ5        IF EOI NOT READ
02285  M00S01805.qfm     +++|
Line S01806 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02286  M01S01806.ns2099  ---|*         RELEASE IQFT FILE.
Line S00163 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02287  M01S00163.ns2099  +++|*         RESET IQFT FILE.
02288  M00S01807.qfm     +++|
Line S01808 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S01808.ns2099  ---|          LDD    T5          SET EQUIPMENT
02290  M01S01809.ns2099  ---|          STD    CM+1
02291  M01S01810.ns2099  ---|          LDC    *           SET IQFT FIRST TRACK
Line S00164 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02292  M02S00164.ns2576  ---| INQ5     LDC    **          SET IQFT FIRST TRACK
Line S00062 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02293  M01S00062.ns2576  +++| INQ7     LDC    **          SET IQFT FIRST TRACK
02294  M00S01811.qfm     +++| INQA     EQU    *-1         (IQFT FIRST TRACK)
Line S01812 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02295  M01S01812.ns2099  ---|          STD    CM+2
02296  M01S01813.ns2099  ---|          MONITOR DTKM       DROP IQFT TRACKS
02297  M01S01814.ns2099  ---|          LJM    INQX        RETURN
Line S00165 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02298  M01S00165.ns2099  +++|          STD    T6
02299  M01S00166.ns2099  +++|          STM    BFMS+FTEI
02300  M01S00167.ns2099  +++|          LDN    FSMS
02301  M01S00168.ns2099  +++|          STD    T7
02302  M01S00169.ns2099  +++|          RJM    WEI         WRITE EOI
Line S00170 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02303  M02S00170.242l642 ---|          ENDMS
Line S00104 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02304  M02S00104.ns2576  ---|          PJN    INQ5.1      IF NO WRITE ERRORS
Line S00063 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02305  M01S00063.ns2576  +++|          PJN    INQ8        IF NO WRITE ERRORS
Line S00105 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02306  M01S00105.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
02307  M01S00106.242l642 +++|
Line S00107 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02308  M02S00107.ns2576  ---| INQ5.1   ENDMS
Line S00064 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02309  M01S00064.ns2576  +++| INQ8     ENDMS
Line S00171 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02310  M01S00171.ns2099  +++|          LDD    MA          SET EOI IN TRT
02311  M01S00172.ns2099  +++|          CWD    T5
02312  M01S00173.ns2099  +++|          CRD    CM+1
02313  M01S00174.ns2099  +++|          LDD    CM+2
02314  M01S00175.ns2099  +++|          LPC    3777
02315  M01S00176.ns2099  +++|          STD    CM+2
02316  M01S00177.ns2099  +++|          MONITOR  DTKM
02317  M01S00178.ns2099  +++| INQC     LDN    0
02318  M01S00179.ns2099  +++|*         LDN    1           (IQFT INTERLOCKED)
Line S00180 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02319  M02S00180.242l642 ---|          ZJN    INQ5.1      IF IQFT NOT INTERLOCKED
Line S00108 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02320  M02S00108.ns2576  ---|          ZJN    INQ5.2      IF IQFT NOT INTERLOCKED
Line S00065 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02321  M01S00065.ns2576  +++|          ZJN    INQ9        IF IQFT NOT INTERLOCKED
Line S00181 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02322  M01S00181.ns2099  +++|          LDD    T6          CLEAR IQFT TRACK INTERLOCK
02323  M01S00182.ns2099  +++|          RJM    CTI
Line S00183 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02324  M02S00183.242l642 ---| INQ5.1   LJM    INQX        RETURN
Line S00109 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02325  M02S00109.ns2576  ---| INQ5.2   LJM    INQX        RETURN
Line S00066 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02326  M01S00066.ns2576  +++| INQ9     LJM    INQX        RETURN
02327  M00S01815.qfm     +++|
02328  M00S01816.qfm     +++|*         SET FILE NAME IN DAYFILE MESSAGE.
02329  M00S01817.qfm     +++|
Line S01818 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02330  M01S01818.ns2576  ---| INQ6     LDI    BI
Line S01819 Modification History
M01 (Removed by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02331  M02S01819.ns2576  ---|          ZJN    INQ4        IF NO FNT
Line S00184 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02332  M02S00184.ns2576  ---|          ZJP    INQ4        IF NO FNT
Line S00067 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02333  M01S00067.ns2576  +++| INQ10    LDI    BI
02334  M01S00068.ns2576  +++|          ZJP    INQ6        IF NO FNT
02335  M00S01820.qfm     +++|          LDD    BI          WRITE FILE NAME TO MESSAGE BUFFER
02336  M00S01821.qfm     +++|          STM    INQB
02337  M00S01822.qfm     +++|          LDD    MA
02338  M00S01823.qfm     +++|          CWM    *,ON        WRITE TO MESSAGE BUFFER
02339  M00S01824.qfm     +++| INQB     EQU    *-1
02340  M00S01825.qfm     +++|          SBN    1
02341  M00S01826.qfm     +++|          CRD    FN
02342  M00S01827.qfm     +++|
02343  M00S01828.qfm     +++|*         READ SYSTEM SECTOR OF QUEUED FILE.
02344  M00S01829.qfm     +++|
02345  M00S01830.qfm     +++|          LDM    5*ENTQ+1,BI SET FIRST TRACK OF QUEUE FILE
02346  M00S01831.qfm     +++|          STD    T6
Line S01832 Modification History
M01 (Removed by) qfm7
Seq #  *Modification Id* Act 
----------------------------+
02347  M01S01832.qfm7    ---|          LDD    BI          VERIFY QUEUED FILE NAME
Line S00001 Modification History
M01 (Added by) qfm7
Seq #  *Modification Id* Act 
----------------------------+
02348  M01S00001.qfm7    +++|          LDN    0           DO NOT VERIFY QUEUED FILE NAME
02349  M00S01833.qfm     +++|          RJM    RSS         READ SYSTEM SECTOR
Line S01834 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02350  M01S01834.ns2576  ---|          ZJN    INQ8        IF NO ERROR ENCOUNTERED
Line S01835 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02351  M02S01835.ns2576  ---|          LDC    ERSE        * QFM SYSTEM SECTOR ERROR.*
Line S00110 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02352  M02S00110.ns2576  ---|          PJN    INQ6.1      IF ERROR OTHER THAN READ
Line S00069 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02353  M01S00069.ns2576  +++|          ZJN    INQ12       IF NO ERROR ENCOUNTERED
02354  M01S00070.ns2576  +++|          PJN    INQ11       IF ERROR OTHER THAN READ
Line S00111 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02355  M01S00111.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
02356  M01S00112.242l642 +++|
Line S00113 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02357  M02S00113.ns2576  ---| INQ6.1   LDC    ERSE        * QFM SYSTEM SECTOR ERROR.*
Line S01836 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02358  M01S01836.ns2576  ---| INQ7     RJM    IFI         ISSUE FILE IGNORED MESSAGE
02359  M01S01837.ns2576  ---|          UJN    INQ9        LOOP FOR NEXT QUEUE FILE
Line S00071 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02360  M01S00071.ns2576  +++| INQ11    LDC    ERSE        * QFM SYSTEM SECTOR ERROR.*
02361  M01S00072.ns2576  +++|          RJM    IFI         ISSUE FILE IGNORED MESSAGE
02362  M01S00073.ns2576  +++|          UJN    INQ13       LOOP FOR NEXT QUEUE FILE
02363  M00S01838.qfm     +++|
Line S01839 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02364  M01S01839.ns2576  ---| INQ8     ENDMS
Line S00074 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02365  M01S00074.ns2576  +++| INQ12    ENDMS
Line S00002 Modification History
M01 (Added by) qfm7
Seq #  *Modification Id* Act 
----------------------------+
02366  M01S00002.qfm7    +++|          LDI    BI          VERIFY THE JSN
02367  M01S00003.qfm7    +++|          LMM    IOSS
Line S00004 Modification History
M01 (Added by) qfm7
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02368  M02S00004.ns2576  ---|          NJN    INQ6.1      IF JSN DOES NOT MATCH
Line S00075 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02369  M01S00075.ns2576  +++|          NJN    INQ11       IF JSN DOES NOT MATCH
Line S00005 Modification History
M01 (Added by) qfm7
Seq #  *Modification Id* Act 
----------------------------+
02370  M01S00005.qfm7    +++|          LDM    1,BI
02371  M01S00006.qfm7    +++|          LMM    IOSS+1
Line S00007 Modification History
M01 (Added by) qfm7
M02 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02372  M02S00007.ns2576  ---|          NJN    INQ6.1      IF JSN DOES NOT MATCH
Line S00076 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02373  M01S00076.ns2576  +++|          NJN    INQ11       IF JSN DOES NOT MATCH
02374  M00S01840.qfm     +++|          RJM    DQF         DROP QUEUE FILE
Line S01841 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02375  M01S01841.ns2576  ---| INQ9     LJM    INQ4        LOOP FOR NEXT QUEUE FILE
Line S00077 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
02376  M01S00077.ns2576  +++| INQ13    LJM    INQ6        LOOP FOR NEXT QUEUE FILE
Line S00185 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02377  M01S00185.ns2099  +++|
02378  M01S00186.ns2099  +++|
02379  M01S00187.ns2099  +++| INQD     VFD    42/0LQUEUES,6/1,6/SYFT,6/0
02380  M00S01842.qfm     +++|          TITLE  INTERLOCK QUEUED FILE.
02381  M00S01843.qfm     +++| IQF      SPACE  4,10
02382  M00S01844.qfm     +++|***       IQFF - INTERLOCK QUEUED FILE.
02383  M00S01845.qfm     +++|*
02384  M00S01846.qfm     +++|*         THE QUEUED FILE IDENTIFIED IN THE FET AND ATTACHED TO THE
02385  M00S01847.qfm     +++|*         CONTROL POINT IS SET IN THE QFT WITH QUEUE TYPE CHANGED
02386  M00S01848.qfm     +++|*         TO *ERQF*.  THE LOCAL FNT IS RELEASED AND THE FILE NAME
02387  M00S01849.qfm     +++|*         (JOB SEQUENCE NUMBER) IN THE FET IS CLEARED.
02388  M00S01850.qfm     +++|
02389  M00S01851.qfm     +++|
02390  M00S01852.qfm     +++|          ENTRY  IQF         ENTRY/EXIT
02391  M00S01853.qfm     +++|          RJM    CFS         CHECK FILE STATUS
02392  M00S01854.qfm     +++|          LDN    ZERL
02393  M00S01855.qfm     +++|          CRD    T7
02394  M00S01856.qfm     +++|          LDN    QFTP        SET LIMIT FOR QFT SEARCH
02395  M00S01857.qfm     +++|          CRD    T0
02396  M00S01858.qfm     +++|          LDN    1           SET REQUEST COUNT FOR *SFI*/*UTEM*
02397  M00S01859.qfm     +++|          STD    T1
02398  M00S01860.qfm     +++|
02399  M00S01861.qfm     +++|*         SEARCH QFT FOR ENTRY WITH MS PARAMETERS MATCHING LOCAL FILE.
02400  M00S01862.qfm     +++|
02401  M00S01863.qfm     +++| IQF1     AOD    T7          ADVANCE ORDINAL
02402  M00S01864.qfm     +++|          LMD    T2
02403  M00S01865.qfm     +++|          ZJN    IQF2        IF END OF QFT
02404  M00S01866.qfm     +++|          SFA    QFT,T7
02405  M00S01867.qfm     +++|          ADN    ENTQ
02406  M00S01868.qfm     +++|          CRD    CN
02407  M00S01869.qfm     +++|          LDD    T6          COMPARE FIRST TRACK
02408  M00S01870.qfm     +++|          LMD    CN+1
02409  M00S01871.qfm     +++|          NJN    IQF1        IF NO MATCH
02410  M00S01872.qfm     +++|          LDD    T5
02411  M00S01873.qfm     +++|          LMD    CN
02412  M00S01874.qfm     +++|          NJN    IQF1        IF NOT SAME EQUIPMENT
02413  M00S01875.qfm     +++|          LDD    MA          WRITE *UTEM* PARAMETER WORD
02414  M00S01876.qfm     +++|          CWM    IQFA,ON
02415  M00S01877.qfm     +++|          SFA    QFT,T7
02416  M00S01878.qfm     +++|          RJM    SFI         UPDATE QFT ENTRY
02417  M00S01879.qfm     +++|          NJN    IQF1.1      IF UPDATE NOT COMPLETE
02418  M00S01880.qfm     +++|          LJM    IQF3        RELEASE LOCAL FNT ENTRY
02419  M00S01881.qfm     +++|
02420  M00S01882.qfm     +++| IQF1.1   RJM    CIN
02421  M00S01883.qfm     +++|          LJM    DPP         ERROR FLAG SET - DROP PP
02422  M00S01884.qfm     +++|
Line S01885 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02423  M01S01885.242l642 ---| IQF2     SETMS  READ
Line S00114 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02424  M01S00114.242l642 +++| IQF2     SETMS  IO
02425  M00S01886.qfm     +++|          LDD    T7          SAVE QFT ORDINAL
02426  M00S01887.qfm     +++|          STD    T2
02427  M00S01888.qfm     +++|          LDN    0
02428  M00S01889.qfm     +++|          RJM    RSS
Line S01890 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02429  M01S01890.242l642 ---|          ZJN    IQF2.1      IF NO ERROR
02430  M01S01891.242l642 ---|          LDN    2           SET QFT ENTRY FLAG
Line S00115 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02431  M01S00115.242l642 +++|          ZJN    IQF2.2      IF NO ERROR
02432  M01S00116.242l642 +++|          PJN    IQF2.1      IF ERROR OTHER THAN READ
02433  M01S00117.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
02434  M01S00118.242l642 +++|
02435  M01S00119.242l642 +++| IQF2.1   LDN    2           SET QFT ENTRY FLAG
02436  M00S01892.qfm     +++|          STD    T3
02437  M00S01893.qfm     +++|          SFA    QFT,T2
02438  M00S01894.qfm     +++|          RJM    SSE         ISSUE SYSTEM SECTOR ERROR MESSAGE
Line S01895 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02439  M01S01895.242l642 ---| IQF2.1   LDM    IOSS+4
Line S00120 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02440  M01S00120.242l642 +++| IQF2.2   LDM    IOSS+4
02441  M00S01896.qfm     +++|          SCN    77
02442  M00S01897.qfm     +++|          LMN    ERQF        SET QUEUE TYPE IN QFT IMAGE
02443  M00S01898.qfm     +++|          STM    IOSS+4
02444  M00S01899.qfm     +++|          LDD    MA          MOVE *JSNQ* TO DIRECT CELLS
02445  M00S01900.qfm     +++|          CWM    IOSS,ON
02446  M00S01901.qfm     +++|          SBN    1
02447  M00S01902.qfm     +++|          CRD    CM+3
02448  M00S01903.qfm     +++|          LDN    QFTE        SET QFT ENTRY LENGTH
02449  M00S01904.qfm     +++|          STD    T7
02450  M00S01905.qfm     +++|          LDC    1S12+PQFT   CREATE QFT ENTRY W/O NEW JSN
02451  M00S01906.qfm     +++|          RJM    CTE
02452  M00S01907.qfm     +++|          ZJN    IQF3        IF QFT FULL
Line S00027 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02453  M01S00027.v23l617 +++|          STD    T5          SAVE QFT ADDRESS
02454  M01S00028.v23l617 +++|          SHN    -14
02455  M01S00029.v23l617 +++|          STD    T4
02456  M01S00030.v23l617 +++|          LDC    FLSS        GET ADDRESS OF SYSTEM SECTOR FILE LENGTH
02457  M01S00031.v23l617 +++|          RJM    RFI         SET FILE SIZE INDEX IN QFT ENTRY
02458  M01S00032.v23l617 +++|          LDD    T4          GET QFT ADDRESS
02459  M01S00033.v23l617 +++|          SHN    14
02460  M01S00034.v23l617 +++|          LMD    T5
02461  M00S01908.qfm     +++|          CWM    IOSS,T7
02462  M00S01909.qfm     +++| IQF3     RJM    RFE         RELEASE LOCAL FNT ENTRY
02463  M00S01910.qfm     +++|          LJM    IQFX        RETURN
02464  M00S01911.qfm     +++|
02465  M00S01912.qfm     +++| IQFA     VFD    1/0,5/JSNQ,6/6,6/6,42/ERQF
02466  M00S01913.qfm     +++|          TITLE  RELEASE LIST.
02467  M00S01914.qfm     +++| RLLF     SPACE  4,10
02468  M00S01915.qfm     +++|***       RLLF - RELEASE LIST. (FUNCTION 7).
02469  M00S01916.qfm     +++|*
02470  M00S01917.qfm     +++|*         THE LIST OF QUEUE FILES STARTING AT OUT WILL BE
02471  M00S01918.qfm     +++|*         RELEASED FROM THE SYSTEM. THE FUNCTION WILL TERMINATE WHEN
02472  M00S01919.qfm     +++|*         IN = OUT, OR A ZERO ENTRY IS ENCOUNTERED IN THE BUFFER.
02473  M00S01920.qfm     +++|
02474  M00S01921.qfm     +++|
02475  M00S01922.qfm     +++|          ENTRY  RLL         ENTRY/EXIT
02476  M00S01923.qfm     +++| RLL1     RJM    RQE         READ NEXT IQFT ENTRY FROM LIST
02477  M00S01924.qfm     +++|          MJN    RLLX        IF BUFFER EMPTY
02478  M00S01925.qfm     +++|          LDD    FN
02479  M00S01926.qfm     +++|          ZJN    RLLX        IF NO ENTRY
02480  M00S01927.qfm     +++|          RJM    DQF         DROP QUEUE FILE
02481  M00S01928.qfm     +++|          LDN    OT          UPDATE OUT POINTER
02482  M00S01929.qfm     +++|          RJM    UOP
02483  M00S01930.qfm     +++|          UJN    RLL1
02484  M00S01931.qfm     +++|          TITLE  SUBROUTINES.
02485  M00S01932.qfm     +++| DQF      SPACE  4,10
02486  M00S01933.qfm     +++|**        DQF - DROP QUEUE FILE.
02487  M00S01934.qfm     +++|*
Line S01935 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02488  M01S01935.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
Line S00023 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02489  M01S00023.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
02490  M00S01936.qfm     +++|*                (T6) = FIRST TRACK.
Line S00001 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02491  M01S00001.ns2358  +++|*
02492  M01S00002.ns2358  +++|*         USES   FS - FS+1.
02493  M00S01937.qfm     +++|*
02494  M00S01938.qfm     +++|*         CALLS  *0DQ*.
02495  M00S01939.qfm     +++|*
02496  M00S01940.qfm     +++|*         MACROS EXECUTE.
02497  M00S01941.qfm     +++|
02498  M00S01942.qfm     +++|
02499  M00S01943.qfm     +++| DQF      SUBR               ENTRY/EXIT
02500  M00S01944.qfm     +++|          LDD    T5          SET EQUIPMENT
Line S01945 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02501  M01S01945.ns2358  ---|          STM    OZDQ-3
02502  M01S01946.ns2358  ---|          LDD    T6          SET FIRST TRACK
02503  M01S01947.ns2358  ---|          STM    OZDQ-1
02504  M01S01948.ns2358  ---|          LDN    2           RELEASE QUEUE FILE NOT IN QFT
02505  M01S01949.ns2358  ---|          STM    OZDQ-2
Line S00003 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02506  M01S00003.ns2358  +++|          STD    FS
02507  M01S00004.ns2358  +++|          LDD    T6          SET FIRST TRACK
02508  M01S00005.ns2358  +++|          STD    FS+1
02509  M01S00006.ns2358  +++|          LDN    2           SELECT DROP OF QUEUE FILE NOT IN QFT
02510  M01S00007.ns2358  +++|          STM    OZDQ-1
02511  M00S01950.qfm     +++|          EXECUTE  0DQ,OZDQ
Line S00028 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
02512  M01S00028.ns2553  +++|          PJN    DQFX        IF FILE DROPPED
02513  M01S00029.ns2553  +++|          RJM    MSR         REPORT ERROR
02514  M00S01951.qfm     +++|          UJN    DQFX        RETURN
02515  M00S01952.qfm     +++| RIQ      SPACE  4,17
02516  M00S01953.qfm     +++|**        RIQ - READ IQFT FILE.
02517  M00S01954.qfm     +++|*
Line S01955 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02518  M01S01955.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
Line S00024 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02519  M01S00024.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
02520  M00S01956.qfm     +++|*                (RIQA) = IQFT CURRENT TRACK.
02521  M00S01957.qfm     +++|*                (RIQB) = IQFT CURRENT SECTOR.
02522  M00S01958.qfm     +++|*                MASS STORAGE DRIVER SET.
02523  M00S01959.qfm     +++|*
02524  M00S01960.qfm     +++|*         EXIT   (RIQA) = IQFT CURRENT TRACK.
02525  M00S01961.qfm     +++|*                (RIQB) = IQFT CURRENT SECTOR.
02526  M00S01962.qfm     +++|*                (T1) = NUMBER OF CM WORDS READ.
02527  M00S01963.qfm     +++|*                EXIT TO *MSR* IF A DISK ERROR IS ENCOUNTERED.
02528  M00S01964.qfm     +++|*
02529  M00S01965.qfm     +++|*         USES   T6, T7.
02530  M00S01966.qfm     +++|*
02531  M00S01967.qfm     +++|*         CALLS  RNS.
02532  M00S01968.qfm     +++|*
02533  M00S01969.qfm     +++|*         MACROS ENDMS.
02534  M00S01970.qfm     +++|
02535  M00S01971.qfm     +++|
02536  M00S01972.qfm     +++| RIQ      SUBR               ENTRY/EXIT
02537  M00S01973.qfm     +++|          LDC    *           SET IQFT CURRENT TRACK
02538  M00S01974.qfm     +++| RIQA     EQU    *-1         (IQFT CURRENT TRACK)
02539  M00S01975.qfm     +++|          STD    T6
02540  M00S01976.qfm     +++|          LDC    FSMS        SET IQFT CURRENT SECTOR
02541  M00S01977.qfm     +++| RIQB     EQU    *-1         (IQFT CURRENT SECTOR)
02542  M00S01978.qfm     +++|          STD    T7
Line S01979 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02543  M01S01979.242l642 ---|          SETMS  READ
Line S00121 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02544  M01S00121.242l642 +++|          SETMS  IO
02545  M00S01980.qfm     +++|          LDC    RIQC
02546  M00S01981.qfm     +++|          RJM    RNS         READ NEXT SECTOR
02547  M00S01982.qfm     +++|          LDD    T6          SAVE IQFT CURRENT TRACK
02548  M00S01983.qfm     +++|          STM    RIQA
02549  M00S01984.qfm     +++|          LDD    T7          SAVE IQFT CURRENT SECTOR
02550  M00S01985.qfm     +++|          STM    RIQB
02551  M00S01986.qfm     +++|          ENDMS
02552  M00S01987.qfm     +++|          UJN    RIQX
02553  M00S01988.qfm     +++|          SPACE  4,10
02554  M00S01989.qfm     +++|**        COMMON DECKS.
02555  M00S01990.qfm     +++|
02556  M00S01991.qfm     +++|
02557  M00S01992.qfm     +++|*CALL     COMPRNS
02558  M00S01993.qfm     +++|          SPACE  4,4
02559  M00S01994.qfm     +++|*         BUFFER FOR IQFT.
02560  M00S01995.qfm     +++|
02561  M00S01996.qfm     +++| RIQC     CON    0,0         CONTROL BYTES
02562  M00S01997.qfm     +++| QBUF     EQU    *           IQFT BUFFER
Line S01998 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02563  M01S01998.242l642 ---|
Line S00122 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02564  M01S00122.242l642 +++|          SPACE  4,10
Line S00123 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02565  M02S00123.ns2358  ---| OZDQ     EQU    *+5
Line S00008 Modification History
M01 (Added by) ns2358
M02 (Removed by) qfm7
Seq #  *Modification Id* Act 
----------------------------+
02566  M02S00008.qfm7    ---| OZDQ     EQU    *+1         LOAD ADDRESS FOR *0DQ*
Line S00008 Modification History
M01 (Added by) qfm7
Seq #  *Modification Id* Act 
----------------------------+
02567  M01S00008.qfm7    +++| OZDQ     EQU    *+500+1     LOAD ADDRESS FOR *0DQ*
Line S00124 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02568  M01S00124.242l642 +++|          ERRNG  BFMS-OZDQ-ZDQL
02569  M01S00125.242l642 +++|
02570  M00S01999.qfm     +++|          OVERFLOW  OVL
02571  M00S02000.qfm     +++|          OVERLAY  (REQUEUE FILES.)
02572  M00S02001.qfm     +++| CQFF     SPACE  4,10
02573  M00S02002.qfm     +++|***       CQFF - CREATE QUEUE FILE. (FUNCTION 23).
02574  M00S02003.qfm     +++|*
02575  M00S02004.qfm     +++|*         THE QUEUE FILE SYSTEM SECTOR IN THE FET BUFFER CONTAINS
02576  M00S02005.qfm     +++|*         SELECTION CRITERIA USED IN CREATING A LOCAL FILE.  IF THE
02577  M00S02006.qfm     +++|*         *GQSS* FIELD IS ZERO, THE FILE IS ASSIGNED A NEW JOB
02578  M00S02007.qfm     +++|*         SEQUENCE NUMBER AND THEN ENTERED INTO THE QFT.  IF
02579  M00S02008.qfm     +++|*         BIT 0 OF THE *GQSS* FIELD IS SET, A NEW JOB SEQUENCE
02580  M00S02009.qfm     +++|*         NUMBER WILL NOT BE ASSIGNED.  IF BIT 1 IS SET, THE FILE
02581  M00S02010.qfm     +++|*         WILL NOT BE ENTERED INTO THE QFT.
02582  M00S02011.qfm     +++|
02583  M00S02012.qfm     +++|
02584  M00S02013.qfm     +++|          ENTRY  CQF         ENTRY/EXIT
02585  M00S02014.qfm     +++|          LDD    HN
02586  M00S02015.qfm     +++|          STD    T3
02587  M00S02016.qfm     +++|          LDC    BFMS+2      GET QUEUE FILE SYSTEM SECTOR
02588  M00S02017.qfm     +++|          RJM    RCB
02589  M00S02018.qfm     +++|          MJN    CQFX        IF BUFFER EMPTY
02590  M00S02019.qfm     +++|          LDD    MA
02591  M00S02020.qfm     +++|          CWM    IOSS+5*JSNQ,ON
02592  M00S02021.qfm     +++|          SBN    1
02593  M00S02022.qfm     +++|          CRD    FN
02594  M00S02023.qfm     +++|          LDN    0
02595  M00S02024.qfm     +++|          STD    FN+2
02596  M00S02025.qfm     +++|          STD    FN+3
02597  M00S02026.qfm     +++|          LDN    NEEQ        ASSIGN NULL EQUIPMENT
02598  M00S02027.qfm     +++|          STD    FS
02599  M00S02028.qfm     +++|          LDN    4           SELECT RETURN ON LOCAL FILE LIMIT
02600  M00S02029.qfm     +++|          STM    OVL0-1
02601  M00S02030.qfm     +++|          EXECUTE  0BF,OVL0  CREATE LOCAL FNT ENTRY
02602  M00S02031.qfm     +++|          UJN    CQF1        CHECK RETURN STATUS
02603  M00S02032.qfm     +++|
02604  M00S02033.qfm     +++|*         ABORT IF FILE ALREADY EXISTS (ADVANCE EXIT FROM *0BF*).
02605  M00S02034.qfm     +++|
02606  M00S02035.qfm     +++|          LDN    0
02607  M00S02036.qfm     +++|          STD    FA
02608  M00S02037.qfm     +++|          ABORT  ERFA        * QFM FILE ALREADY ATTACHED.*
02609  M00S02038.qfm     +++|
02610  M00S02039.qfm     +++| CQF1     ZJN    CQF2        IF FNT ENTRY CREATED
02611  M00S02040.qfm     +++|          ERROR  FTHE        EC = 4, FNT FULL
02612  M00S02041.qfm     +++|
02613  M00S02042.qfm     +++| CQF2     LDM    EQSS        SET EQUIPMENT
02614  M00S02043.qfm     +++|          STD    T5
02615  M00S02044.qfm     +++|          ZJN    CQF5        IF NONE SPECIFIED
02616  M00S02045.qfm     +++|          LMK    NEEQ
02617  M00S02046.qfm     +++|          ZJN    CQF4        IF ANY EQUIPMENT
02618  M00S02047.qfm     +++|          RJM    CEQ
02619  M00S02048.qfm     +++|          ZJN    CQF3        IF SPECIFIED EQUIPMENT NOT MASS STORAGE
Line S02049 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02620  M01S02049.251l664 ---|          LDD    CN+3
02621  M01S02050.251l664 ---|          SHN    0-13
02622  M01S02051.251l664 ---|          NJN    CQF3        IF EQUIPMENT OFF
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02623  M01S00001.251l664 +++|          LDN    0
02624  M00S02052.qfm     +++|          STD    T6
02625  M00S02053.qfm     +++|          LDD    CN
Line S02054 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02626  M01S02054.251l664 ---|          SHN    21-6
Line S02055 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02627  M02S02055.251l664 ---|          PJN    CQF7        IF EQUIPMENT AVAILABLE
Line S00025 Modification History
M01 (Added by) ns22000
M02 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02628  M02S00025.251l664 ---|          PJN    CQF6.1      IF SPECIFIED EQUIPMENT AVAILABLE
Line S00002 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02629  M01S00002.251l664 +++|          LPC    0102
02630  M01S00003.251l664 +++|          ZJN    CQF6.1      IF EQUIPMENT AVAILABLE AND NOT DOWN/OFF
02631  M00S02056.qfm     +++| CQF3     RJM    RFE         RELEASE LOCAL FNT ENTRY
Line S02057 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02632  M01S02057.v23l617 ---|          ABORT  EREQ        * QFM ILLEGAL EQUIPMENT.*
Line S00035 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02633  M01S00035.v23l617 +++|          ABORT  EREQ        * QFM INCORRECT EQUIPMENT.*
02634  M00S02058.qfm     +++|
02635  M00S02059.qfm     +++| CQF4     STD    T5
02636  M00S02060.qfm     +++| CQF5     LDM    IOSS+5*JSNQ+4  CHECK QUEUE TYPE
02637  M00S02061.qfm     +++|          SHN    -11
02638  M00S02062.qfm     +++|          LMN    INQT
02639  M00S02063.qfm     +++|          ZJN    CQF6        IF INPUT QUEUE
Line S00001 Modification History
M01 (Added by) ns2591
Seq #  *Modification Id* Act 
----------------------------+
02640  M01S00001.ns2591  +++|          LDM    RCSS        GET REPEAT COUNT
02641  M01S00002.ns2591  +++|          STM    IOSS+INSQ*5+4  STORE IN QFT
02642  M00S02064.qfm     +++|          LDN    OUTS&INPS
02643  M00S02065.qfm     +++| CQF6     LMN    INPS        SET DEVICE SELECTION
02644  M00S02066.qfm     +++|          STD    T6
Line S00026 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02645  M01S00026.ns22000 +++|          UJN    CQF7        ASSIGN MASS STORAGE SPACE
02646  M01S00027.ns22000 +++|
02647  M01S00028.ns22000 +++|*         CHECK IF FILE ACCESS LEVEL VALID FOR SPECIFIED EQUIPMENT.
02648  M01S00029.ns22000 +++|
02649  M01S00030.ns22000 +++| CQF6.1   LDN    ZERL
02650  M01S00031.ns22000 +++|          CRD    CM
02651  M01S00032.ns22000 +++|          LDM    IOSS+INSQ*5+3  GET FILE ACCESS LEVEL
02652  M01S00033.ns22000 +++|          LPN    70
02653  M01S00034.ns22000 +++|          SHN    -3
02654  M01S00035.ns22000 +++|          STD    CM+4
02655  M01S00036.ns22000 +++|          LDD    T5
02656  M01S00037.ns22000 +++|          STD    CM+2
02657  M01S00038.ns22000 +++|          LDN    VAES        VALIDATE ACCESS LEVEL FOR EQUIPMENT
02658  M01S00039.ns22000 +++|          STD    CM+1
02659  M01S00040.ns22000 +++|          MONITOR  VSAM
02660  M01S00041.ns22000 +++|          LDD    CM+1
02661  M01S00042.ns22000 +++|          NJP    CQF7.1      IF ACCESS LEVEL NOT VALID
02662  M00S02067.qfm     +++|
02663  M00S02068.qfm     +++|*         ASSIGN MASS STORAGE SPACE.
02664  M00S02069.qfm     +++|
02665  M00S02070.qfm     +++| CQF7     LDN    ZERL
02666  M00S02071.qfm     +++|          CRD    CM
02667  M00S02072.qfm     +++|          LDD    T6          SET SELECTION CRITERIA
02668  M00S02073.qfm     +++|          STD    CM+2
Line S00043 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02669  M01S00043.ns22000 +++|          LDM    IOSS+INSQ*5+3  SET FILE ACCESS LEVEL
02670  M01S00044.ns22000 +++|          LPN    70
02671  M01S00045.ns22000 +++|          SHN    3
02672  M01S00046.ns22000 +++|          ADC    4000        SET ACCESS LEVEL FLAG
02673  M01S00047.ns22000 +++|          STD    CM+3
02674  M00S02074.qfm     +++|          LDD    T5          REQUEST TRACK
02675  M00S02075.qfm     +++|          STD    CM+1
02676  M00S02076.qfm     +++|          MONITOR  RTCM
02677  M00S02077.qfm     +++|          LDD    CM+4
Line S02078 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02678  M01S02078.ns22000 ---|          NJN    CQF8        IF TRACK ASSIGNED
Line S00048 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02679  M01S00048.ns22000 +++|          NJP    CQF8        IF TRACK ASSIGNED
02680  M01S00049.ns22000 +++|          LDD    CM+3
02681  M01S00050.ns22000 +++|          LMN    2
02682  M01S00051.ns22000 +++|          ZJN    CQF7.1      IF INCORRECT ACCESS LEVEL
02683  M00S02079.qfm     +++|          LDD    CP
02684  M00S02080.qfm     +++|          ADN    MS2W
02685  M00S02081.qfm     +++|          CWM    CQFA,TR     *TRACK LIMIT.*
02686  M00S02082.qfm     +++|          DELAY
02687  M00S02083.qfm     +++|          PAUSE              PAUSE AND CHECK ERROR FLAG
02688  M00S02084.qfm     +++|          LDD    CM+1
Line S02085 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02689  M01S02085.ns22000 ---|          ZJN    CQF7        IF NO ERROR FLAG
Line S00052 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02690  M01S00052.ns22000 +++|          ZJP    CQF7        IF NO ERROR FLAG
02691  M00S02086.qfm     +++|          RJM    RFE         RELEASE LOCAL FNT ENTRY
02692  M00S02087.qfm     +++|          LJM    DPP         DROP PP
Line S00053 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02693  M01S00053.ns22000 +++|
02694  M01S00054.ns22000 +++| CQF7.1   RJM    RFE         RELEASE LOCAL FNT ENTRY
02695  M01S00055.ns22000 +++|          ERROR  NSEE        EC=17, INCORRECT ACCESS LEVEL
02696  M00S02088.qfm     +++|
02697  M00S02089.qfm     +++| CQF8     STD    FS+1        SET FIRST TRACK
02698  M00S02090.qfm     +++|          STD    FS+2
02699  M00S02091.qfm     +++|          STD    T6
Line S00006 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
02700  M01S00006.ns21000 +++|          LDC    100*5       CLEAR EOI BUFFER
02701  M01S00007.ns21000 +++|          STD    CA
02702  M01S00008.ns21000 +++| CQF9     LDN    0
02703  M01S00009.ns21000 +++|          STM    OVL0-1,CA
02704  M01S00010.ns21000 +++|          SOD    CA
02705  M01S00011.ns21000 +++|          NJN    CQF9        IF NOT DONE
02706  M00S02092.qfm     +++|          LDD    CM+1        SET EQUIPMENT
02707  M00S02093.qfm     +++|          STD    FS
02708  M00S02094.qfm     +++|          STD    T5
02709  M00S02095.qfm     +++|          LDN    FSMS        SET FIRST SECTOR
02710  M00S02096.qfm     +++|          STD    FS+3
Line S02097 Modification History
M01 (Removed by) qfm12
Seq #  *Modification Id* Act 
----------------------------+
02711  M01S02097.qfm12   ---|          STD    T7
02712  M00S02098.qfm     +++|          LDN    14          SET FILE BUSY
02713  M00S02099.qfm     +++|          STD    FS+4
Line S02100 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02714  M01S02100.242l642 ---|          SETMS  WRITE,NE
Line S00126 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02715  M01S00126.242l642 +++|          SETMS  IO
02716  M00S02101.qfm     +++|          NFA    FA,R        STORE FST INFORMATION
02717  M00S02102.qfm     +++|          ADN    FSTL
02718  M00S02103.qfm     +++|          CWD    FS
Line S00056 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02719  M01S00056.ns22000 +++|          ADN    FUTL-FSTL   UPDATE ACCESS LEVEL IN FNT ENTRY
02720  M01S00057.ns22000 +++|          CRD    FN
02721  M01S00058.ns22000 +++|          LDM    IOSS+INSQ*5+3
02722  M01S00059.ns22000 +++|          SHN    -3
02723  M01S00060.ns22000 +++|          LPN    7
02724  M01S00061.ns22000 +++|          STD    T1
02725  M01S00062.ns22000 +++|          LDD    FN+2
02726  M01S00063.ns22000 +++|          SCN    7
02727  M01S00064.ns22000 +++|          LMD    T1
02728  M01S00065.ns22000 +++|          STD    FN+2
02729  M01S00066.ns22000 +++|          NFA    FA,R
02730  M01S00067.ns22000 +++|          ADN    FUTL
02731  M01S00068.ns22000 +++|          CWD    FN
Line S00001 Modification History
M01 (Added by) qfm14
Seq #  *Modification Id* Act 
----------------------------+
02732  M01S00001.qfm14   +++|          LDD    FA          PRESERVE FNT ORDINAL
02733  M01S00002.qfm14   +++|          STD    CA
02734  M01S00003.qfm14   +++|          LDN    0           PREVENT UPDATE OF *FNSS*
02735  M01S00004.qfm14   +++|          STD    FA
Line S00001 Modification History
M01 (Added by) qfm12
Seq #  *Modification Id* Act 
----------------------------+
02736  M01S00001.qfm12   +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S00002 Modification History
M01 (Added by) qfm12
M02 (Removed by) qfm14
Seq #  *Modification Id* Act 
----------------------------+
02737  M02S00002.qfm14   ---|          MJN    CQF9.0      IF WRITE ERROR
Line S00005 Modification History
M01 (Added by) qfm14
Seq #  *Modification Id* Act 
----------------------------+
02738  M01S00005.qfm14   +++|          SHN    -21
02739  M01S00006.qfm14   +++|          STD    T1
02740  M01S00007.qfm14   +++|          LDD    CA          RESTORE FNT ORDINAL
02741  M01S00008.qfm14   +++|          STD    FA
02742  M01S00009.qfm14   +++|          LDD    T1
02743  M01S00010.qfm14   +++|          NJN    CQF9.0      IF SYSTEM SECTOR WRITE ERROR
Line S00188 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
02744  M01S00188.ns2099  +++|          LDC    OVL0
02745  M00S02104.qfm     +++|          RJM    WEI         WRITE EOI SECTOR
Line S02105 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02746  M01S02105.242l642 ---|          ENDMS
Line S00127 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02747  M01S00127.242l642 +++|          PJN    CQF9.1      IF NO WRITE ERRORS
Line S00128 Modification History
M01 (Added by) 242l642
M02 (Removed by) qfm12
Seq #  *Modification Id* Act 
----------------------------+
02748  M02S00128.qfm12   ---|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
Line S00003 Modification History
M01 (Added by) qfm12
Seq #  *Modification Id* Act 
----------------------------+
02749  M01S00003.qfm12   +++| CQF9.0   RJM    MSR         REPORT ERROR (DOES NOT RETURN)
Line S00129 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02750  M01S00129.242l642 +++|
02751  M01S00130.242l642 +++| CQF9.1   ENDMS
02752  M00S02106.qfm     +++|          LDD    T5          SET EOI IN TRT
02753  M00S02107.qfm     +++|          STD    CM+1
02754  M00S02108.qfm     +++|          LDD    T6
02755  M00S02109.qfm     +++|          LPC    3777
02756  M00S02110.qfm     +++|          STD    CM+2
02757  M00S02111.qfm     +++|          LDD    T7
02758  M00S02112.qfm     +++|          STD    CM+3
02759  M00S02113.qfm     +++|          MONITOR  DTKM
02760  M00S02114.qfm     +++|          LDC    SCNI+5      DO NOT CLEAR ASSIGNED FLAG
02761  M00S02115.qfm     +++|          STM    RFSA
02762  M00S02116.qfm     +++|          LDM    GQSS
02763  M00S02117.qfm     +++|          SHN    21-1
Line S02118 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
02764  M01S02118.ns21000 ---|          MJN    CQF9        IF FILE NOT TO BE QUEUED
Line S00012 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
02765  M01S00012.ns21000 +++|          MJN    CQF10       IF FILE NOT TO BE QUEUED
02766  M00S02119.qfm     +++|          RJM    SFO         SET FAMILY ORDINALS
02767  M00S02120.qfm     +++|          LDD    CP          FETCH EJT ORDINAL
02768  M00S02121.qfm     +++|          ADN    TFSW
02769  M00S02122.qfm     +++|          CRD    CM
02770  M00S02123.qfm     +++|          LDD    CM          SET QFT ENTRY ASSIGNED
02771  M00S02124.qfm     +++|          STM    IOSS+5*ENTQ+4
02772  M00S02125.qfm     +++|          LDN    0
02773  M00S02126.qfm     +++|          STM    IOSS+5*ENTQ+3
02774  M00S02127.qfm     +++|          LDM    GQSS
02775  M00S02128.qfm     +++|          LPN    1
02776  M00S02129.qfm     +++|          RJM    CQE         CREATE QFT ENTRY
02777  M00S02130.qfm     +++|          NFA    FA,R
02778  M00S02131.qfm     +++|          CRD    FN
02779  M00S02132.qfm     +++|          LDC    QFFT*100-LOFT*100  CHANGE FILE TYPE
02780  M00S02133.qfm     +++|          RAD    FN+4
02781  M00S02134.qfm     +++|          NFA    FA,R        UPDATE LOCAL FNT ENTRY
02782  M00S02135.qfm     +++|          CWD    FN
02783  M00S02136.qfm     +++|          RJM    RFS         RELEASE FILE TO SYSTEM
Line S02137 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
02784  M01S02137.ns21000 ---|          UJN    CQF10       CLEAR INTERLOCKS
02785  M01S02138.ns21000 ---|
02786  M01S02139.ns21000 ---| CQF9     LDD    MA          SET JSN
Line S00013 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
02787  M01S00013.ns21000 +++|          UJN    CQF11       CLEAR INTERLOCKS
02788  M01S00014.ns21000 +++|
02789  M01S00015.ns21000 +++| CQF10    LDD    MA          SET JSN
02790  M00S02140.qfm     +++|          CWM    FNSS,ON
02791  M00S02141.qfm     +++|          SBN    1
02792  M00S02142.qfm     +++|          CRD    FN
02793  M00S02143.qfm     +++|          LDN    0           UPDATE SYSTEM SECTOR
02794  M00S02144.qfm     +++|          RJM    USS
Line S02145 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
02795  M01S02145.ns21000 ---| CQF10    RJM    CIN         CLEAR INTERLOCKS
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/qfm.001.txt ยท Last modified: by 127.0.0.1