User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:dsp.001

Deck DSP Part 001

81 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00001 Modification History
M01 (Added by) ns2358
M02 (Removed by) ns2369
Seq #  *Modification Id* Act 
----------------------------+
01278  M02S00001.ns2369  ---|          LDN    1           SELECT NO DROP OF DISK SPACE
Line S00012 Modification History
M01 (Added by) ns2369
Seq #  *Modification Id* Act 
----------------------------+
01279  M01S00012.ns2369  +++|*         LDN    1           DROP QFT ENTRY ONLY
Line S00002 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01280  M01S00002.ns2358  +++|          STM    OVL0-1
01281  M00S00958.dsp     +++|          EXECUTE  0DQ,OVL0  DROP QFT ENTRY
01282  M00S00959.dsp     +++|          UJN    FNB2        CONTINUE
01283  M00S00960.dsp     +++|
01284  M00S00961.dsp     +++| FNB1     LDN    40          CLEAR QFT INTERLOCK
01285  M00S00962.dsp     +++|          RJM    FQI         FUNCTION INTERLOCK
01286  M00S00963.dsp     +++| FNB2     LDN    0           CLEAR GLOBAL ENTRY
01287  M00S00964.dsp     +++|          STD    QA
01288  M00S00965.dsp     +++|
01289  M00S00966.dsp     +++|*         PROCESS LOCAL FNT ENTRY.
01290  M00S00967.dsp     +++|
01291  M00S00968.dsp     +++| FNB3     LDD    FA
01292  M00S00969.dsp     +++|          ZJN    FNBX        IF NO FILE
01293  M00S00970.dsp     +++|          LDN    0
01294  M00S00971.dsp     +++|*         LDN    1           (IF FILE CREATED BY *DSP*)
01295  M00S00972.dsp     +++| FNBB     EQU    *-1
01296  M00S00973.dsp     +++|          ZJN    FNB4        IF FILE NOT CREATED BY *DSP*
01297  M00S00974.dsp     +++|          LDN    0           RETURN FILE
01298  M00S00975.dsp     +++|          STM    OVL2-1
01299  M00S00976.dsp     +++|          EXECUTE  0DF,OVL2  DROP FILE
01300  M00S00977.dsp     +++|          UJN    FNB5        CONTINUE
01301  M00S00978.dsp     +++|
01302  M00S00979.dsp     +++| FNB4     NFA    FA,R        SET FILE NOT BUSY
01303  M00S00980.dsp     +++|          ADN    FSTL
01304  M00S00981.dsp     +++|          CRD    FS
01305  M00S00982.dsp     +++|          LDD    FS+4        SET FILE NOT BUSY
01306  M00S00983.dsp     +++|          SCN    1
01307  M00S00984.dsp     +++|          LMN    1
01308  M00S00985.dsp     +++|          STD    FS+4
01309  M00S00986.dsp     +++|          NFA    FA,R
01310  M00S00987.dsp     +++|          ADN    FSTL
01311  M00S00988.dsp     +++|          CWD    FS
Line S00989 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01312  M01S00989.ns2358  ---| FNB5     LDN    0           CLEAR FNT POINTER
01313  M01S00990.ns2358  ---|          STD    FA
01314  M01S00991.ns2358  ---|          LJM    FNBX        RETURN
Line S00003 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01315  M01S00003.ns2358  +++|          LDN    0           CLEAR FNT POINTER
01316  M01S00004.ns2358  +++|          STD    FA
01317  M01S00005.ns2358  +++| FNB5     LJM    FNBX        RETURN
01318  M00S00992.dsp     +++| FQI      SPACE  4,10
01319  M00S00993.dsp     +++|**        FQI - FUNCTION QFT INTERLOCK.
01320  M00S00994.dsp     +++|*
01321  M00S00995.dsp     +++|*         ENTRY  (A) = 0, SET QFT INTERLOCK.
01322  M00S00996.dsp     +++|*                (A) = 40, CLEAR QFT INTERLOCK.
01323  M00S00997.dsp     +++|*                (QA) = QFT ORDINAL.
01324  M00S00998.dsp     +++|*
01325  M00S00999.dsp     +++|*         EXIT   QFT INTERLOCK CLEARED.
01326  M00S01000.dsp     +++|*                (A) = 0, IF OPERATION COMPLETE.
01327  M00S01001.dsp     +++|*
01328  M00S01002.dsp     +++|*         USES   CM - CM+4.
01329  M00S01003.dsp     +++|*
01330  M00S01004.dsp     +++|*         MACROS DELAY, MONITOR, PAUSE, SFA.
01331  M00S01005.dsp     +++|*
01332  M00S01006.dsp     +++|*         NOTE   IF QFT INTERLOCK CANNOT BE SET OR CLEARED, AND
01333  M00S01007.dsp     +++|*                THE OPERATOR OVERRIDES THE JOB, SOME INTERLOCKS
01334  M00S01008.dsp     +++|*                MAY NOT BE CLEARED.
01335  M00S01009.dsp     +++|
01336  M00S01010.dsp     +++|
01337  M00S01011.dsp     +++| FQI      SUBR               ENTRY/EXIT
01338  M00S01012.dsp     +++|          STM    FQIA        PRESERVE FUNCTION
01339  M00S01013.dsp     +++| FQI1     LDC    **
01340  M00S01014.dsp     +++| FQIA     EQU    *-1
01341  M00S01015.dsp     +++|          STD    CM+1
01342  M00S01016.dsp     +++|          LDN    0
01343  M00S01017.dsp     +++|          STD    CM+2
01344  M00S01018.dsp     +++|          SFA    QFT,QA      GET QFT ADDRESS
01345  M00S01019.dsp     +++|          STD    CM+4
01346  M00S01020.dsp     +++|          SHN    -14
01347  M00S01021.dsp     +++|          STD    CM+3
01348  M00S01022.dsp     +++|          MONITOR  UTEM      UPDATE TABLE ENTRY
01349  M00S01023.dsp     +++|          LDD    CM+1        CHECK FOR FUNCTION COMPLETE
01350  M00S01024.dsp     +++|          ZJN    FQIX        IF FUNCTION COMPLETE
01351  M00S01025.dsp     +++|          DELAY
01352  M00S01026.dsp     +++|          PAUSE
01353  M00S01027.dsp     +++|          LDD    CM+1        CHECK FOR OPERATOR OVERRIDE
01354  M00S01028.dsp     +++|          LMN    ORET
01355  M00S01029.dsp     +++|          NJN    FQI1        IF NO OVERRIDE
01356  M00S01030.dsp     +++|          LDN    1           SET ERROR STATUS
01357  M00S01031.dsp     +++|          LJM    FQIX        RETURN
01358  M00S01032.dsp     +++| GEA      SPACE  4,10
01359  M00S01033.dsp     +++|**        GEA - GET EJT ADDRESS.
01360  M00S01034.dsp     +++|*
01361  M00S01035.dsp     +++|*         ENTRY  (AEOA) = EJT ORDINAL.
01362  M00S01036.dsp     +++|*
01363  M00S01037.dsp     +++|*         EXIT   (A) = ADDRESS OF EJT.
01364  M00S01038.dsp     +++|*
01365  M00S01039.dsp     +++|*         MACROS SFA.
01366  M00S01040.dsp     +++|
01367  M00S01041.dsp     +++|
01368  M00S01042.dsp     +++| GEA      SUBR               ENTRY/EXIT
01369  M00S01043.dsp     +++|          LDM    EJTO        LOAD EJT ORDINAL
01370  M00S01044.dsp     +++|          SFA    EJT
01371  M00S01045.dsp     +++|          UJN    GEAX        RETURN
01372  M00S01046.dsp     +++| GFA      SPACE  4,10
01373  M00S01047.dsp     +++|**        GFA - GET PARAMETER BLOCK ADDRESS.
01374  M00S01048.dsp     +++|*
01375  M00S01049.dsp     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
01376  M00S01050.dsp     +++|*
01377  M00S01051.dsp     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
01378  M00S01052.dsp     +++|
01379  M00S01053.dsp     +++|
01380  M00S01054.dsp     +++| GFA      SUBR               ENTRY/EXIT
01381  M00S01055.dsp     +++|          LDD    IR+3
01382  M00S01056.dsp     +++|          LPN    37
01383  M00S01057.dsp     +++|          SHN    6
01384  M00S01058.dsp     +++|          ADD    RA
01385  M00S01059.dsp     +++|          SHN    6
01386  M00S01060.dsp     +++|          ADD    IR+4
01387  M00S01061.dsp     +++|          UJN    GFAX        RETURN
01388  M00S01062.dsp     +++| RFN      SPACE  4,10
01389  M00S01063.dsp     +++|**        RFN - READ FAMILY NAME.
01390  M00S01064.dsp     +++|*
01391  M00S01065.dsp     +++|*         EXIT   (A) = CM ADDRESS OF FAMILY NAME.
01392  M00S01066.dsp     +++|*
01393  M00S01067.dsp     +++|*         USES   CM - CM+4.
01394  M00S01068.dsp     +++|*
01395  M00S01069.dsp     +++|*         MACROS SFA.
01396  M00S01070.dsp     +++|
01397  M00S01071.dsp     +++|
01398  M00S01072.dsp     +++| RFN      SUBR               ENTRY/EXIT
01399  M00S01073.dsp     +++|          LDD    CP          READ FAMILY POINTER
01400  M00S01074.dsp     +++|          ADN    PFCW
01401  M00S01075.dsp     +++|          CRD    CM
01402  M00S01076.dsp     +++|          SFA    EST,CM+3    READ EST
01403  M00S01077.dsp     +++|          ADK    EQDE
01404  M00S01078.dsp     +++|          CRD    CM
01405  M00S01079.dsp     +++|          LDD    CM+4        SET FAMILY ADDRESS
01406  M00S01080.dsp     +++|          SHN    3
01407  M00S01081.dsp     +++|          ADN    PFGL
01408  M00S01082.dsp     +++|          UJN    RFNX        RETURN
Line S00051 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01409  M01S00051.242l642 +++| RMS      SPACE  4,10
01410  M01S00052.242l642 +++|**        RMS - READ MASS STORAGE.
01411  M01S00053.242l642 +++|*
01412  M01S00054.242l642 +++|*         ENTRY  (A) = BUFFER ADDRESS.
01413  M01S00055.242l642 +++|*                (T5 - T7) = MASS STORAGE PARAMETERS.
01414  M01S00056.242l642 +++|*
01415  M01S00057.242l642 +++|*         EXIT   (A) .GE. 0.
01416  M01S00058.242l642 +++|*
01417  M01S00059.242l642 +++|*         ERROR  TO *EER*.
01418  M01S00060.242l642 +++|*
01419  M01S00061.242l642 +++|*         CALLS  RDS.
01420  M01S00062.242l642 +++|
01421  M01S00063.242l642 +++|
01422  M01S00064.242l642 +++| RMS      SUBR               ENTRY/EXIT
01423  M01S00065.242l642 +++|          RJM    RDS
01424  M01S00066.242l642 +++|          PJN    RMSX        IF SUCCESSFUL READ
01425  M01S00067.242l642 +++|          LJM    EER         EVALUATE ERROR RETURN
01426  M00S01083.dsp     +++| SQO      SPACE  4,10
01427  M00S01084.dsp     +++|**        SQO - SET QFT OWNERSHIP.
01428  M00S01085.dsp     +++|*
01429  M00S01086.dsp     +++|*         EXIT   QFT UPDATED.
01430  M00S01087.dsp     +++|*
01431  M00S01088.dsp     +++|*         USES   CN - CN+4, FN - FN+4, UN - UN+4.
01432  M00S01089.dsp     +++|*
01433  M00S01090.dsp     +++|*         CALLS  GEA, GFO, SSJ.
01434  M00S01091.dsp     +++|*
01435  M00S01092.dsp     +++|*         MACROS SFA.
01436  M00S01093.dsp     +++|
01437  M00S01094.dsp     +++|
01438  M00S01095.dsp     +++| SQO3     LDD    CN+2        SET FO,UI IN SYSTEM SECTOR
01439  M00S01096.dsp     +++|          STM    IOSS+JSNQ*5+2
01440  M00S01097.dsp     +++|          LDD    CN+3
01441  M00S01098.dsp     +++|          STM    IOSS+JSNQ*5+3
01442  M00S01099.dsp     +++|
01443  M00S01100.dsp     +++| SQO      SUBR               ENTRY
01444  M00S01101.dsp     +++|          RJM    GEA         GET EJT ADDRESS
01445  M00S01102.dsp     +++|          ADK    JSNE        GET *FO,UI* FROM EJT
01446  M00S01103.dsp     +++|          CRD    CN
01447  M00S01104.dsp     +++|          LDD    CN+2        SET *FO,UI* IN SYSTEM SECTOR
01448  M00S01105.dsp     +++|          ADD    CN+3
01449  M00S01106.dsp     +++|          NJN    SQO3        IF FAMILY ORDINAL AND UI .NE. 0
01450  M00S01107.dsp     +++|          LDD    MA          SAVE FILE NAME
01451  M00S01108.dsp     +++|          CWD    FN
01452  M00S01109.dsp     +++|          CRD    UN
01453  M00S01110.dsp     +++|          LDD    CP          DETERMINE FAMILY ORDINAL FROM CPA
01454  M00S01111.dsp     +++|          ADK    PFCW
01455  M00S01112.dsp     +++|          CRD    CN
01456  M00S01113.dsp     +++|          SFA    EST,CN+3    GET FAMILY EST ORDINAL
01457  M00S01114.dsp     +++|          ADK    EQDE
01458  M00S01115.dsp     +++|          CRD    CN
01459  M00S01116.dsp     +++|          LDD    CN+4        LOAD MST ADDRESS
01460  M00S01117.dsp     +++|          SHN    3
01461  M00S01118.dsp     +++|          ADK    PFGL
01462  M00S01119.dsp     +++|          CRD    FN
01463  M00S01120.dsp     +++|          CRM    FOSS,ON
01464  M00S01121.dsp     +++|*         LDN    (NONZERO)
01465  M00S01122.dsp     +++|          RJM    GFO         GET FAMILY ORDINAL
01466  M00S01123.dsp     +++|          RJM    SSJ         CHECK FOR SSJ= BLOCK
01467  M00S01124.dsp     +++|          ZJN    SQO1        IF NO SSJ= BLOCK PRESENT
01468  M00S01125.dsp     +++|          ADK    UIDS        GET USER INDEX
01469  M00S01126.dsp     +++|          UJN    SQO2        CONTINUE
01470  M00S01127.dsp     +++|
01471  M00S01128.dsp     +++| SQO1     LDD    CP          GET UI FROM CPA
01472  M00S01129.dsp     +++|          ADK    UIDW
01473  M00S01130.dsp     +++| SQO2     CRD    CN
01474  M00S01131.dsp     +++|          CRM    OASS,ON
01475  M00S01132.dsp     +++|          LDD    FN+4        SET FO,UI IN QFT
01476  M00S01133.dsp     +++|          SHN    6
01477  M00S01134.dsp     +++|          LMD    CN+3
01478  M00S01135.dsp     +++|          SCN    37          CLEAR CHARGE REQUIRED BIT
01479  M00S01136.dsp     +++|          LMD    CN+3
01480  M00S01137.dsp     +++|          STD    CN+2
01481  M00S01138.dsp     +++|          LDD    CN+4
01482  M00S01139.dsp     +++|          STD    CN+3
01483  M00S01140.dsp     +++|          LDD    MA          RESTORE FILE NAME
01484  M00S01141.dsp     +++|          CWD    UN
01485  M00S01142.dsp     +++|          CRD    FN
01486  M00S01143.dsp     +++|          LJM    SQO3        CONTINUE
01487  M00S01144.dsp     +++| SSJ      SPACE  4,10
01488  M00S01145.dsp     +++|**        SSJ - CHECK FOR SSJ= BLOCK.
01489  M00S01146.dsp     +++|*
Line S01147 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01490  M01S01147.ns2323  ---|*         EXIT   (A) = 0, NO SSJ= BLOCK PRESENT.
01491  M01S01148.ns2323  ---|*                (A) = SSJ= BLOCK ADDRESS.
Line S00001 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01492  M01S00001.ns2323  +++|*         EXIT   (A) = 0 IF NO SSJ= BLOCK PRESENT.
01493  M01S00002.ns2323  +++|*                (A) = SSJ= BLOCK ADDRESS IF PRESENT.
01494  M00S01149.dsp     +++|*
01495  M00S01150.dsp     +++|*         USES   CM - CM+4.
Line S00003 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01496  M01S00003.ns2323  +++|*
01497  M01S00004.ns2323  +++|*         MACROS NFA.
01498  M00S01151.dsp     +++|
01499  M00S01152.dsp     +++|
01500  M00S01153.dsp     +++| SSJ      SUBR               ENTRY/EXIT
01501  M00S01154.dsp     +++|          LDD    CP          CHECK FOR SSJ=
01502  M00S01155.dsp     +++|          ADC    SEPW
01503  M00S01156.dsp     +++|          CRD    CM
01504  M00S01157.dsp     +++|          LDD    CM
01505  M00S01158.dsp     +++|          LPN    4
01506  M00S01159.dsp     +++|          ZJN    SSJX        IF NOT SSJ=
01507  M00S01160.dsp     +++|          LDD    CM+3        CHECK IF SSJ= BLOCK PRESENT
01508  M00S01161.dsp     +++|          LPN    37
Line S01162 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01509  M01S01162.ns2323  ---|          SHN    14
01510  M01S01163.ns2323  ---|          LMD    CM+4
Line S00005 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01511  M01S00005.ns2323  +++|          ADD    CM+4
01512  M00S01164.dsp     +++|          ZJN    SSJX        IF NO SSJ= BLOCK
Line S01165 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01513  M01S01165.ns2323  ---|          SHN    14          SET SSJ= ADDRESS
01514  M01S01166.ns2323  ---|          ADD    RA
01515  M01S01167.ns2323  ---|          SHN    6
Line S00006 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01516  M01S00006.ns2323  +++|          NFA    SSJN        SET SSJ= BLOCK ADDRESS
01517  M00S01168.dsp     +++|          UJN    SSJX        RETURN
01518  M00S01169.dsp     +++| VCA      SPACE  4,14
01519  M00S01170.dsp     +++|**        VCA - VALIDATE CENTRAL ADDRESS.
01520  M00S01171.dsp     +++|*
01521  M00S01172.dsp     +++|*         ENTRY  (A) = CENTRAL ADDRESS TO VALIDATE.
01522  M00S01173.dsp     +++|*
01523  M00S01174.dsp     +++|*         EXIT   (A) = 0, IF ADDRESS .LE. 1, OR .GE. FL.
01524  M00S01175.dsp     +++|*                (A) = CENTRAL ADDRESS IF VALID.
01525  M00S01176.dsp     +++|*                (T1 - T2) = CENTRAL ADDRESS.
01526  M00S01177.dsp     +++|*
01527  M00S01178.dsp     +++|*         USES   T1, T2.
01528  M00S01179.dsp     +++|
01529  M00S01180.dsp     +++|
01530  M00S01181.dsp     +++| VCA1     STD    T1          CLEAR UPPER PART OF ADDRESS
01531  M00S01182.dsp     +++| VCA2     LDN    0           SET BAD ADDRESS FLAG
01532  M00S01183.dsp     +++|
01533  M00S01184.dsp     +++| VCA      SUBR               ENTRY/EXIT
01534  M00S01185.dsp     +++|          STD    T2
01535  M00S01186.dsp     +++|          SCN    1
01536  M00S01187.dsp     +++|          ZJN    VCA1        IF ADDRESS .LE. 1
01537  M00S01188.dsp     +++|          SCN    77
01538  M00S01189.dsp     +++|          SHN    6
01539  M00S01190.dsp     +++|          STD    T1
01540  M00S01191.dsp     +++|          SHN    6
01541  M00S01192.dsp     +++|          SBD    FL
01542  M00S01193.dsp     +++|          PJN    VCA2        IF ADDRESS .GE. FL
01543  M00S01194.dsp     +++|          LDD    T1
01544  M00S01195.dsp     +++|          SHN    14
01545  M00S01196.dsp     +++|          LMD    T2
01546  M00S01197.dsp     +++|          UJN    VCAX        RETURN
Line S00068 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01547  M01S00068.242l642 +++| WMS      SPACE  4,10
01548  M01S00069.242l642 +++|**        WMS - WRITE MASS STORAGE.
01549  M01S00070.242l642 +++|*
01550  M01S00071.242l642 +++|*         ENTRY  (A) = BUFFER ADDRESS.
01551  M01S00072.242l642 +++|*                (T5 - T7) = MASS STORAGE PARAMETERS.
01552  M01S00073.242l642 +++|*
01553  M01S00074.242l642 +++|*         EXIT   (A) .GE. 0.
01554  M01S00075.242l642 +++|*
01555  M01S00076.242l642 +++|*         ERROR  TO *EER*.
01556  M01S00077.242l642 +++|*
01557  M01S00078.242l642 +++|*         CALLS  WDS.
01558  M01S00079.242l642 +++|
01559  M01S00080.242l642 +++|
01560  M01S00081.242l642 +++| WMS      SUBR               ENTRY/EXIT
01561  M01S00082.242l642 +++|          RJM    WDS
01562  M01S00083.242l642 +++|          PJN    WMSX        IF SUCCESSFUL WRITE
01563  M01S00084.242l642 +++|          LJM    EER         EVALUATE ERROR RETURN
01564  M00S01198.dsp     +++|          SPACE  4,10
01565  M00S01199.dsp     +++|**        COMMON DECKS.
01566  M00S01200.dsp     +++|
Line S00001 Modification History
M01 (Added by) dsp16
Seq #  *Modification Id* Act 
----------------------------+
01567  M01S00001.dsp16   +++|
01568  M00S01201.dsp     +++| EJT$     SET    1           CALCULATE EJT ADDRESS
01569  M00S01202.dsp     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION CODE
01570  M00S01203.dsp     +++| QFT$     SET    1           CALCULATE QFT ADDRESS
01571  M00S01204.dsp     +++|*CALL     COMPGFP
Line S01205 Modification History
M01 (Removed by) dsp16
Seq #  *Modification Id* Act 
----------------------------+
01572  M01S01205.dsp16   ---|*CALL     COMPIAM
01573  M00S01206.dsp     +++| GFO$     SET    1           CONVERT FAMILY NAME TO FAMILY ORDINAL
01574  M00S01207.dsp     +++| GFM$     SET    1           CONVERT FAMILY ORDINAL TO FAMILY NAME
01575  M00S01208.dsp     +++|*CALL     COMPUFT
Line S00085 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01576  M01S00085.242l642 +++|          QUAL   MIO
01577  M01S00086.242l642 +++| WDS      EQU    WMS         USE *WMS* IN PLACE OF *WDS*
01578  M00S01209.dsp     +++| WEI$     SET    1           ALLOW *DSP* TO SPECIFY EOI BUFFER
01579  M00S01210.dsp     +++|*CALL     COMPWEI
Line S00087 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01580  M01S00087.242l642 +++|          QUAL   *
01581  M01S00088.242l642 +++| WEI      EQU    /MIO/WEI
Line S01211 Modification History
M01 (Removed by) ns2185
Seq #  *Modification Id* Act 
----------------------------+
01582  M01S01211.ns2185  ---|*CALL     COMPWSS
01583  M00S01212.dsp     +++|          SPACE  4,10
01584  M00S01213.dsp     +++|*         THE FOLLOWING SUBROUTINES MAY BE OVERLAID BY *DSP* OVERLAYS.
01585  M00S01214.dsp     +++|          SPACE  4,10
01586  M00S01215.dsp     +++| OVL4     EQU    *+5         LOAD ADDRESS FOR *DSP* OVERLAYS
01587  M00S01216.dsp     +++|
01588  M00S01217.dsp     +++|          ERRNG  OVL2-5-*    OVERFLOW INTO *0DF*
01589  M00S01218.dsp     +++|          ERRNG  OVL0-5-*    OVERFLOW INTO *0DQ*
01590  M00S01219.dsp     +++|          TITLE  FILE INITIALIZATION ROUTINES.
Line S01220 Modification History
M01 (Removed by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01591  M01S01220.dsp46   ---| AMS      SPACE  4,10
Line S00001 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01592  M01S00001.dsp46   +++| AMS      SPACE  4,20
01593  M00S01221.dsp     +++|**        AMS - ASSIGN MASS STORAGE.
01594  M00S01222.dsp     +++|*
01595  M00S01223.dsp     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01596  M00S01224.dsp     +++|*                (FA) = NFL FNT OFFSET.
01597  M00S01225.dsp     +++|*
01598  M00S01226.dsp     +++|*         EXIT   (FS - FS+4) = FST ENTRY.
01599  M00S01227.dsp     +++|*                MASS STORAGE ASSIGNED.
Line S01228 Modification History
M01 (Removed by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01600  M01S01228.dsp46   ---|*                EOI WRITTEN.
Line S00002 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01601  M01S00002.dsp46   +++|*                SYSTEM SECTOR AND EOI WRITTEN.
01602  M00S01229.dsp     +++|*                (T5) = EQUIPMENT.
01603  M00S01230.dsp     +++|*
Line S01231 Modification History
M01 (Removed by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01604  M01S01231.dsp46   ---|*         USES   CM - CM+4, FS - FS+4, T5 - T7.
Line S00003 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01605  M01S00003.dsp46   +++|*         USES   T5, T6, CM - CM+4, FS - FS+4.
01606  M00S01232.dsp     +++|*
Line S01233 Modification History
M01 (Removed by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01607  M01S01233.dsp46   ---|*         CALLS  PDF, WEI.
Line S00004 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01608  M01S00004.dsp46   +++|*         CALLS  PDF, WEI, WSS.
01609  M00S01234.dsp     +++|*
01610  M00S01235.dsp     +++|*         MACROS ENDMS, MONITOR, NFA, SETMS.
01611  M00S01236.dsp     +++|
01612  M00S01237.dsp     +++|
01613  M00S01238.dsp     +++| AMS      SUBR               ENTRY/EXIT
01614  M00S01239.dsp     +++|          LDD    FS+2
01615  M00S01240.dsp     +++|          NJN    AMSX        IF FILE USED
01616  M00S01241.dsp     +++|          LDD    FS+1
01617  M00S01242.dsp     +++|          NJN    AMS2        IF FILE ASSIGNED
01618  M00S01243.dsp     +++|
01619  M00S01244.dsp     +++|*         ASSIGN MASS STORAGE.
01620  M00S01245.dsp     +++|
01621  M00S01246.dsp     +++| AMS1     LDN    ZERL        CLEAR PARAMETERS
01622  M00S01247.dsp     +++|          CRD    CM
01623  M00S01248.dsp     +++|          LDN    OUTS        SET *RTCM* PARAMETER FOR OUTPUT FILE
01624  M00S01249.dsp     +++|          STD    CM+2
01625  M00S01250.dsp     +++|          LDM    LFAL        SET ACCESS LEVEL SELECTION
01626  M00S01251.dsp     +++|          ADN    40
01627  M00S01252.dsp     +++|          SHN    6
01628  M00S01253.dsp     +++|          STD    CM+3
01629  M00S01254.dsp     +++|          MONITOR  RTCM      REQUEST TRACK CHAIN
01630  M00S01255.dsp     +++|          LDD    CM+1        SET EQUIPMENT
Line S01256 Modification History
M01 (Removed by) dsp14
Seq #  *Modification Id* Act 
----------------------------+
01631  M01S01256.dsp14   ---|          STD    T5
01632  M00S01257.dsp     +++|          STD    FS
01633  M00S01258.dsp     +++|          LDD    CM+4
01634  M00S01259.dsp     +++|          NJN    AMS2        IF TRACK ASSIGNED
01635  M00S01260.dsp     +++|          RJM    PDF         PROCESS DEVICE FULL
01636  M00S01261.dsp     +++|          UJN    AMS1        RETRY MASS STORAGE ALLOCATION
01637  M00S01262.dsp     +++|
01638  M00S01263.dsp     +++|*         UPDATE FNT/FST.
01639  M00S01264.dsp     +++|
01640  M00S01265.dsp     +++| AMS2     STD    FS+1        SET FIRST TRACK
01641  M00S01266.dsp     +++|          STD    FS+2
01642  M00S01267.dsp     +++|          STD    T6
Line S00001 Modification History
M01 (Added by) dsp14
Seq #  *Modification Id* Act 
----------------------------+
01643  M01S00001.dsp14   +++|          LDD    FS          SET *EST* ORDINAL
01644  M01S00002.dsp14   +++|          STD    T5
01645  M00S01268.dsp     +++|          LDN    FSMS        SET FIRST SECTOR
Line S01269 Modification History
M01 (Removed by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01646  M01S01269.dsp46   ---|          STD    T7
01647  M00S01270.dsp     +++|          STD    FS+3
01648  M00S01271.dsp     +++|          LDN    14          SET FILE BUSY
01649  M00S01272.dsp     +++|          STD    FS+4
Line S01273 Modification History
M01 (Removed by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01650  M01S01273.dsp46   ---|
01651  M01S01274.dsp46   ---|*         WRITE EOI AND UPDATE TRT.
01652  M01S01275.dsp46   ---|
01653  M00S01276.dsp     +++|          NFA    FA,R        WRITE FST
01654  M00S01277.dsp     +++|          ADN    FSTL
01655  M00S01278.dsp     +++|          CWD    FS
Line S00005 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01656  M01S00005.dsp46   +++|
01657  M01S00006.dsp46   +++|*         WRITE SYSTEM SECTOR AND EOI.
01658  M01S00007.dsp46   +++|
Line S01279 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01659  M01S01279.242l642 ---|          SETMS  WRITE,NE
Line S00089 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01660  M01S00089.242l642 +++|          SETMS  IO
Line S00008 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01661  M01S00008.dsp46   +++|          RJM    WSS         WRITE SYSTEM SECTOR
01662  M00S01280.dsp     +++|          LDC    BFMS        ADDRESS OF EOI BUFFER
01663  M00S01281.dsp     +++|          RJM    WEI         WRITE EOI
01664  M00S01282.dsp     +++|          ENDMS
Line S00009 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
01665  M01S00009.dsp46   +++|
01666  M01S00010.dsp46   +++|*         UPDATE TRT.
01667  M01S00011.dsp46   +++|
01668  M00S01283.dsp     +++|          LDD    T5          SET EQUIPMENT
01669  M00S01284.dsp     +++|          STD    CM+1
01670  M00S01285.dsp     +++|          LDD    T6          SET TRACK
01671  M00S01286.dsp     +++|          LPC    3777
01672  M00S01287.dsp     +++|          STD    CM+2
01673  M00S01288.dsp     +++|          LDD    T7          SET SECTOR
01674  M00S01289.dsp     +++|          STD    CM+3
01675  M00S01290.dsp     +++|          MONITOR DTKM       DROP TRACKS AND UPDATE TRT
Line S00002 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
01676  M01S00002.ns2171  +++|          LDM    SLM         SET SECTOR COUNT
01677  M01S00003.ns2171  +++|          STM    DPPC+1
01678  M01S00004.ns2171  +++|          LDN    CDCS        SET DECREMENT FUNCTION
01679  M01S00005.ns2171  +++|          STM    DPPB
01680  M00S01291.dsp     +++|          LJM    AMSX        RETURN
01681  M00S01292.dsp     +++| CSL      SPACE  4,10
01682  M00S01293.dsp     +++|**        CSL - CHECK FOR SPECIAL LID.
01683  M00S01294.dsp     +++|*
01684  M00S01295.dsp     +++|*         ENTRY  (A) = LID (MAY BE SPECIAL CODE).
01685  M00S01296.dsp     +++|*
01686  M00S01297.dsp     +++|*         EXIT   (A) = LID, IF NO SPECIAL CODE.
01687  M00S01298.dsp     +++|*                (A) = 0 IF SPECIAL CODE = *LCZR*.
01688  M00S01299.dsp     +++|*                (A) = PID IF SPECIAL CODE = *LCPD*.
01689  M00S01300.dsp     +++|*
01690  M00S01301.dsp     +++|*         USES   T1, CM - CM+4.
01691  M00S01302.dsp     +++|
01692  M00S01303.dsp     +++|
01693  M00S01304.dsp     +++| CSL1     SHN    14          RESTORE LID AND EXIT
01694  M00S01305.dsp     +++|          LMD    T1
01695  M00S01306.dsp     +++|
01696  M00S01307.dsp     +++|
01697  M00S01308.dsp     +++| CSL      SUBR               ENTRY/EXIT
01698  M00S01309.dsp     +++|          STD    T1
01699  M00S01310.dsp     +++|          SHN    -14
01700  M00S01311.dsp     +++|          NJN    CSL1        IF NOT SPECIAL CODE
01701  M00S01312.dsp     +++|          LDD    T1
01702  M00S01313.dsp     +++|          ZJN    CSLX        IF ZERO LID
01703  M00S01314.dsp     +++|          SBN    LCZR
01704  M00S01315.dsp     +++|          ZJN    CSLX        IF *ZERO LID* CODE SPECIFIED
01705  M00S01316.dsp     +++|          ERRNZ  LCPD-2      CODE DEPENDS ON VALUE
01706  M00S01317.dsp     +++|          ERRNZ  MXLC-3      CODE DEPENDS ON VALUE
01707  M00S01318.dsp     +++|
Line S01319 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01708  M01S01319.v23l617 ---|*         GET PID FROM LID TABLE.
Line S00040 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01709  M01S00040.v23l617 +++|*         CREATE HOST PID USING THE MACHINE ID.
01710  M00S01320.dsp     +++|
Line S01321 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01711  M01S01321.v23l617 ---|          LDC    LIDP        GET LID POINTER
Line S00041 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01712  M01S00041.v23l617 +++|          LDK    MMFL        GET MACHINE ID
01713  M00S01322.dsp     +++|          CRD    CM
Line S01323 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01714  M01S01323.v23l617 ---|          LDD    CM
01715  M01S01324.v23l617 ---|          SHN    14
01716  M01S01325.v23l617 ---|          LMD    CM+1
01717  M01S01326.v23l617 ---|          ADN    1           READ FIRST WORD OF LID TABLE
01718  M01S01327.v23l617 ---|          CRD    CM
01719  M01S01328.v23l617 ---|          LDD    CM+1
01720  M01S01329.v23l617 ---|          SCN    77
01721  M01S01330.v23l617 ---|          SHN    6
01722  M01S01331.v23l617 ---|          LMD    CM
01723  M01S01332.v23l617 ---|          SHN    6
Line S00042 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01724  M01S00042.v23l617 +++|          LDN    1RM
01725  M01S00043.v23l617 +++|          SHN    14
01726  M01S00044.v23l617 +++|          LMD    CM          MERGE *M* WITH MACHINE ID
01727  M00S01333.dsp     +++|          UJN    CSLX        RETURN
01728  M00S01334.dsp     +++| EDF      SPACE  4,25
01729  M00S01335.dsp     +++|**        EDF - ENTER DEFERRED FILE.
01730  M00S01336.dsp     +++|*
01731  M00S01337.dsp     +++|*         ENTRY  (QT) = QUEUE TYPE.
01732  M00S01338.dsp     +++|*                (ST) = STATUS WORD.
01733  M00S01339.dsp     +++|*                (FA) = NFL FNT ENTRY OFFSET.
01734  M00S01340.dsp     +++|*
01735  M00S01341.dsp     +++|*         EXIT   *BFMS* CONTAINS UPDATED SYSTEM SECTOR FOR QUEUED FILE.
01736  M00S01342.dsp     +++|*                (FS - FS+4) = QUEUED FILE FST ENTRY.
01737  M00S01343.dsp     +++|*                (ST) = STATUS WORD.
01738  M00S01344.dsp     +++|*
01739  M00S01345.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
01740  M00S01346.dsp     +++|*                THIS ROUTING NOT ALLOWED.
01741  M00S01347.dsp     +++|*
01742  M00S01348.dsp     +++|*         USES   QA, ST, FN - FN+4, FS - FS+4.
01743  M00S01349.dsp     +++|*
01744  M00S01350.dsp     +++|*         CALLS  FNB, FQI.
01745  M00S01351.dsp     +++|*
01746  M00S01352.dsp     +++|*         MACROS ERROR, NFA.
01747  M00S01353.dsp     +++|
01748  M00S01354.dsp     +++|
01749  M00S01355.dsp     +++| EDF4     AOM    DPPA        SET FILE NOT BUSY
01750  M00S01356.dsp     +++|          LJM    DPP         DROP PPU
01751  M00S01357.dsp     +++|
01752  M00S01358.dsp     +++| EDF      SUBR               ENTRY/EXIT
01753  M00S01359.dsp     +++|
01754  M00S01360.dsp     +++|*         USE QUEUE TYPE FROM SYSTEM SECTOR, IF NOT SPECIFIED IN CALL.
01755  M00S01361.dsp     +++|
01756  M00S01362.dsp     +++|          LDD    ST          CHECK IF DISPOSITION CODE SPECIFIED
01757  M00S01363.dsp     +++|          LPC    DCFL
01758  M00S01364.dsp     +++|          NJN    EDF1        IF DISPOSITION CODE SPECIFIED
01759  M00S01365.dsp     +++|          LDM    IOSS+JSNQ*5+4  USE QUEUE TYPE FROM SYSTEM SECTOR
01760  M00S01366.dsp     +++|          SHN    -11
01761  M00S01367.dsp     +++|          STD    QT
01762  M00S01368.dsp     +++|
01763  M00S01369.dsp     +++|*         DETERMINE IF QUEUE TYPE HAS CHANGED.
01764  M00S01370.dsp     +++|
01765  M00S01371.dsp     +++| EDF1     LDM    IOSS+JSNQ*5+4
01766  M00S01372.dsp     +++|          SHN    -11
01767  M00S01373.dsp     +++|          LMD    QT
01768  M00S01374.dsp     +++|          ZJN    EDF2        IF NO CHANGE IN QUEUE TYPE
01769  M00S01375.dsp     +++|          ERROR  /ERR/EC26   * DSP - THIS ROUTING NOT ALLOWED.*
01770  M00S01376.dsp     +++|
01771  M00S01377.dsp     +++| EDF2     LDN    DSFL        FLAG DATA IN SYSTEM SECTOR
01772  M00S01378.dsp     +++|          RAD    ST
01773  M00S01379.dsp     +++|          LDM    GQSS        GET ORDINAL NUMBER
01774  M00S01380.dsp     +++|          STD    QA
01775  M00S01381.dsp     +++|          LDN    0           SET *INTERLOCK* FUNCTION
01776  M00S01382.dsp     +++|          RJM    FQI         FUNCTION QFT INTERLOCK
01777  M00S01383.dsp     +++|          NJN    EDF4        IF ENTRY NOT INTERLOCKED
01778  M00S01384.dsp     +++|          NFA    FA,R        READ FNT ENTRY OF FILE
01779  M00S01385.dsp     +++|          CRD    FN
Line S01386 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01780  M01S01386.242l642 ---|          ADN    FSTG
Line S00090 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01781  M01S00090.242l642 +++|          ADN    FSTL
01782  M00S01387.dsp     +++|          CRD    FS
01783  M00S01388.dsp     +++|          LDM    IOSS+JSNQ*5+4  CLEAR ATTACHED TO EJT BIT
01784  M00S01389.dsp     +++|          SCN    77
01785  M00S01390.dsp     +++|          STM    IOSS+JSNQ*5+4
01786  M00S01391.dsp     +++|
01787  M00S01392.dsp     +++|*         DETERMINE IF FILE IS BEING REQUEUED.
01788  M00S01393.dsp     +++|
01789  M00S01394.dsp     +++|          LDM    FGSS        CHECK IF FILE BEING REQUEUED
01790  M00S01395.dsp     +++|          LPN    2
01791  M00S01396.dsp     +++|          ZJN    EDF3        IF FILE NOT BEING REQUEUED
01792  M00S01397.dsp     +++|          LDC    RQFL        SAVE *FILE BEING REQUEUED* STATUS
01793  M00S01398.dsp     +++|          RAD    ST
Line S01399 Modification History
M01 (Removed by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01794  M01S01399.ns2663  ---|          LDC    LDCI+1RR    ISSUE *ARRQ* MESSAGE AT TERMINATION
01795  M01S01400.ns2663  ---|          STM    DSPA
01796  M01S01401.ns2663  ---|          LDC    2RRQ
01797  M01S01402.ns2663  ---|          STM    DSPA+1
01798  M00S01403.dsp     +++| EDF3     LJM    EDFX        RETURN
01799  M00S01404.dsp     +++| EFN      SPACE  4,15
01800  M00S01405.dsp     +++|**        EFN - ENTER FILE NAME IN FNT TABLE.
01801  M00S01406.dsp     +++|*
Line S01407 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01802  M01S01407.v23l617 ---|*         ENTRY  (UN - UN+4) = FILE NAME.
Line S00045 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01803  M01S00045.v23l617 +++|*         ENTRY  (FN - FN+4) = FILE NAME.
01804  M00S01408.dsp     +++|*
01805  M00S01409.dsp     +++|*         EXIT   (FS - FS+4) = FST ENTRY.
01806  M00S01410.dsp     +++|*                (FA) = NFL FNT OFFSET.
01807  M00S01411.dsp     +++|*                (FNBB) INCREMENTED.
01808  M00S01412.dsp     +++|*                (LFAL) = ACCESS LEVEL OF NEW FILE.
01809  M00S01413.dsp     +++|*
01810  M00S01414.dsp     +++|*         ERROR  TO *DPP*, IF DUPLICATE FILE ROUND.
01811  M00S01415.dsp     +++|*
Line S01416 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01812  M01S01416.v23l617 ---|*         USES   FS, CM - CM+4.
Line S00046 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01813  M01S00046.v23l617 +++|*         USES   FS, CM - CM+4, UN - UN+4.
01814  M00S01417.dsp     +++|*
01815  M00S01418.dsp     +++|*         CALLS  *0BF*.
01816  M00S01419.dsp     +++|*
01817  M00S01420.dsp     +++|*         MACROS EXECUTE, MONITOR, NFA.
01818  M00S01421.dsp     +++|
01819  M00S01422.dsp     +++|
01820  M00S01423.dsp     +++| EFN1     AOM    FNBB        SET FILE CREATED BY *DSP*
01821  M00S01424.dsp     +++|          NFA    FA,R
01822  M00S01425.dsp     +++|          ADK    FUTL
01823  M00S01426.dsp     +++|          CRD    CM
01824  M00S01427.dsp     +++|          LDD    CM+2
01825  M00S01428.dsp     +++|          LPN    7
01826  M00S01429.dsp     +++|          STM    LFAL
01827  M00S01430.dsp     +++|
01828  M00S01431.dsp     +++| EFN      SUBR               ENTRY/EXIT
Line S00047 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01829  M01S00047.v23l617 +++|          LDD    MA          GET FILE NAME
01830  M01S00048.v23l617 +++|          CWD    FN
01831  M01S00049.v23l617 +++|          CRD    UN
01832  M00S01432.dsp     +++|          LDN    NEEQ        SET NO MASS STORAGE ASSIGNMENT
01833  M00S01433.dsp     +++|          STD    FS
01834  M00S01434.dsp     +++|          LDN    0           SELECT NO RETURN WITHOUT FILE CREATED
01835  M00S01435.dsp     +++|          STM    OVL0-1
01836  M00S01436.dsp     +++|          EXECUTE 0BF,OVL0   BEGIN FILE
01837  M00S01437.dsp     +++|          UJN    EFN1        NO DUPLICATE ENTRY
01838  M00S01438.dsp     +++|
Line S01439 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01839  M01S01439.241l630 ---|          MONITOR  HNGM      HANG PP
Line S00003 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01840  M01S00003.241l630 +++|*         PROCESS ADVANCE EXIT FROM *0BF* (FILE ALREADY EXISTS).
01841  M01S00004.241l630 +++|
01842  M01S00005.241l630 +++|          LDN    SWET        SET SYSTEM SOFTWARE ERROR
01843  M01S00006.241l630 +++|          STD    CM+2
01844  M01S00007.241l630 +++|          LDC    *           SET ADDRESS WHERE ERROR DETECTED
01845  M01S00008.241l630 +++|          STD    CM+1
01846  M01S00009.241l630 +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
01847  M00S01440.dsp     +++|          LJM    DPP         DROP PP
01848  M00S01441.dsp     +++| EQF      SPACE  4,10
01849  M00S01442.dsp     +++|**        EQF - ENTER QUEUED FILE IN GLOBAL TABLE.
01850  M00S01443.dsp     +++|*
01851  M00S01444.dsp     +++|*         EXIT   (QA) = ORDINAL OF ENTRY.
Line S01445 Modification History
M01 (Removed by) ns2369
Seq #  *Modification Id* Act 
----------------------------+
01852  M01S01445.ns2369  ---|*                QFT UPDATED.
Line S00013 Modification History
M01 (Added by) ns2369
Seq #  *Modification Id* Act 
----------------------------+
01853  M01S00013.ns2369  +++|*                (FNBA) = 1 (CREATION MODE).
01854  M01S00014.ns2369  +++|*                QFT BUFFER INITIALIZED.
01855  M00S01446.dsp     +++|*                *QFT FULL.* MESSAGE ISSUED TO OPERATOR, IF
01856  M00S01447.dsp     +++|*                CANNOT MAKE AN ENTRY IN THE QFT.
01857  M00S01448.dsp     +++|*
01858  M00S01449.dsp     +++|*         USES   QA, CM - CM+7.
01859  M00S01450.dsp     +++|*                TO *RCL* IF QFT FULL.
01860  M00S01451.dsp     +++|*
01861  M00S01452.dsp     +++|*         CALLS  CTE, FNB, GEA.
01862  M00S01453.dsp     +++|*
01863  M00S01454.dsp     +++|*         MACROS ERROR, PAUSE, SFA.
01864  M00S01455.dsp     +++|
01865  M00S01456.dsp     +++|
01866  M00S01457.dsp     +++| EQF      SUBR               ENTRY/EXIT
Line S01458 Modification History
M01 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
01867  M01S01458.ns2556  ---|          LDM    SBSN        SET SUBSYSTEM NAME AS JSN
Line S00016 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
01868  M01S00016.ns2556  +++|          LDM    FJSN        SET FORCED JSN OR SUBSYSTEM NAME
01869  M00S01459.dsp     +++|          STD    CM+3
Line S01460 Modification History
M01 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
01870  M01S01460.ns2556  ---|          LDM    SBSN+1
Line S00017 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
01871  M01S00017.ns2556  +++|          LDM    FJSN+1
01872  M00S01461.dsp     +++|          STD    CM+4
01873  M00S01462.dsp     +++|          LDD    FB          CHECK FOR JOB TERMINATION
01874  M00S01463.dsp     +++|          SHN    21-11
01875  M00S01464.dsp     +++|          PJN    EQF2        IF NOT FINAL ROUTE FOR TERMINATING JOB
01876  M00S01465.dsp     +++|          RJM    GEA         GET EJT-S JSN
01877  M00S01466.dsp     +++|          ADK    JSNE
01878  M00S01467.dsp     +++|          CRD    CM+3
01879  M00S01468.dsp     +++| EQF1     LDN    0           ZERO FILL JSN
01880  M00S01469.dsp     +++|          STD    CM+5
01881  M00S01470.dsp     +++|          STD    CM+6
01882  M00S01471.dsp     +++|          AOM    EQFA        PREVENT ALLOCATION OF NEW JSN
01883  M00S01472.dsp     +++|          UJN    EQF4        CONTINUE
01884  M00S01473.dsp     +++|
Line S01474 Modification History
M01 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
01885  M01S01474.ns2493  ---| EQF2     LDD    FB+1
Line S00021 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
01886  M01S00021.ns2493  +++| EQF2     LDM    FSJS
01887  M01S00022.ns2493  +++|          NJN    EQF1        IF FORCED JSN
01888  M01S00023.ns2493  +++|          LDD    FB+1
01889  M00S01475.dsp     +++|          SHN    21-13
01890  M00S01476.dsp     +++|          PJN    EQF3        IF NOT SUBSYSTEM INITIATION
01891  M00S01477.dsp     +++|          LDM    SBID
01892  M00S01478.dsp     +++|          ZJN    EQF1        IF SUBSYSTEM ID NOT SPECIFIED
01893  M00S01479.dsp     +++|          SBK    LSSI+1
01894  M00S01480.dsp     +++|          PJN    EQF1        IF SPECIFIED SUBSYSTEM IS IN *SSCT* TABLE
01895  M00S01481.dsp     +++| EQF3     LDN    ZERL        SET UP FOR *CTE* CALL (ASSIGN NEW JSN)
01896  M00S01482.dsp     +++|          CRD    CM+3
01897  M00S01483.dsp     +++| EQF4     LDN    7           SET CREATION + ATTACH + INTERLOCK
01898  M00S01484.dsp     +++|          STD    CM+7
01899  M00S01485.dsp     +++|          LDC    PQFT        REQUEST QFT ENTRY
01900  M00S01486.dsp     +++|*         LDC    PQFT+10000  (IF NEW JSN NOT NEEDED)
01901  M00S01487.dsp     +++| EQFA     EQU    *-2
01902  M00S01488.dsp     +++|          RJM    CTE         CREATE TABLE ENTRY
01903  M00S01489.dsp     +++|          NJN    EQF6        IF ENTRY MADE
01904  M00S01490.dsp     +++|          LDD    CP          CONSOLE MESSAGE = * QFT FULL.*
01905  M00S01491.dsp     +++|          ADK    MS2W
01906  M00S01492.dsp     +++|          CWM    EQFB,TR
01907  M00S01493.dsp     +++|          PAUSE
01908  M00S01494.dsp     +++|          LDD    FB          CHECK IF ERROR PROCESSING NEEDED
01909  M00S01495.dsp     +++|          LPN    1
01910  M00S01496.dsp     +++|          ADD    CM+1        CHECK FOR ERROR FLAG AT CONTROL POINT
01911  M00S01497.dsp     +++|          ZJN    EQF5        IF NO ERROR PROCESSING NEEDED
01912  M00S01498.dsp     +++|          ERROR  /ERR/EC25   * DSP - QFT FULL.*
01913  M00S01499.dsp     +++|
01914  M00S01500.dsp     +++| EQF5     LJM    RCL         RECALL PP
01915  M00S01501.dsp     +++|
01916  M00S01502.dsp     +++| EQF6     LDD    CM+1        SAVE QFT ORDINAL
01917  M00S01503.dsp     +++|          STD    QA
Line S01504 Modification History
M01 (Removed by) ns2369
Seq #  *Modification Id* Act 
----------------------------+
01918  M01S01504.ns2369  ---|          AOM    FNBA        SET ENTRY MADE BY *DSP*
Line S00015 Modification History
M01 (Added by) ns2369
Seq #  *Modification Id* Act 
----------------------------+
01919  M01S00015.ns2369  +++|          AOM    FNBA        SET CREATION MODE QFT ENTRY
01920  M00S01505.dsp     +++|          SFA    QFT,QA      GET ASSIGNED JSN
01921  M00S01506.dsp     +++|          ADK    JSNQ
01922  M00S01507.dsp     +++|          CRM    IOSS,ON
01923  M00S01508.dsp     +++|          LDN    0           CLEAR INTERLOCK AND CREATION BITS
01924  M00S01509.dsp     +++|          STM    IOSS+JSNQ*5+4
01925  M00S01510.dsp     +++|          LDD    FS          SET EQUIPMENT
01926  M00S01511.dsp     +++|          STM    IOSS+ENTQ*5+0
01927  M00S01512.dsp     +++|          LDD    FS+1        SET TRACK
01928  M00S01513.dsp     +++|          STM    IOSS+ENTQ*5+1
01929  M00S01514.dsp     +++|          LJM    EQFX        RETURN
01930  M00S01515.dsp     +++|
01931  M00S01516.dsp     +++| EQFB     DATA   C* QFT FULL.*
01932  M00S01517.dsp     +++| GLI      SPACE  4,10
01933  M00S01518.dsp     +++|**        GLI - GET LOGICAL IDENTIFIERS.
01934  M00S01519.dsp     +++|*
01935  M00S01520.dsp     +++|*         ENTRY  (QT) = DESTINATION QUEUE TYPE.
01936  M00S01521.dsp     +++|*
01937  M00S01522.dsp     +++|*         EXIT   DLID/SLID SAVED FOR SYSTEM SECTOR AND QFT.
01938  M00S01523.dsp     +++|*
01939  M00S01524.dsp     +++|*         USES   T1, CN - CN+4.
01940  M00S01525.dsp     +++|*
01941  M00S01526.dsp     +++|*         CALLS  CSL, GFA.
01942  M00S01527.dsp     +++|
01943  M00S01528.dsp     +++|
01944  M00S01529.dsp     +++| GLI      SUBR               ENTRY/EXIT
01945  M00S01530.dsp     +++|          LDM    SLSS        PROPAGATE OLD VALUES OF DLID/SLID
01946  M00S01531.dsp     +++|          LPN    77
01947  M00S01532.dsp     +++|          STM    SLID
01948  M00S01533.dsp     +++|          LDM    SLSS+1
01949  M00S01534.dsp     +++|          STM    SLID+1
01950  M00S01535.dsp     +++|          LDM    IOSS+INSQ*5+2
01951  M00S01536.dsp     +++|          SCN    77
01952  M00S01537.dsp     +++|          SHN    6
01953  M00S01538.dsp     +++|          LMM    IOSS+INSQ*5+1
01954  M00S01539.dsp     +++|          SHN    6
01955  M00S01540.dsp     +++|          STM    DLID+1
01956  M00S01541.dsp     +++|          SHN    -14
01957  M00S01542.dsp     +++|          STM    DLID
01958  M00S01543.dsp     +++|          LDD    QT
01959  M00S01544.dsp     +++|          LMK    INQT
01960  M00S01545.dsp     +++|          ZJN    GLI1        IF ROUTE TO INPUT
01961  M00S01546.dsp     +++|          LDM    SLID        SET DLID = SLID FOR OUTPUT FILES
01962  M00S01547.dsp     +++|          STM    DLID
01963  M00S01548.dsp     +++|          LDM    SLID+1
01964  M00S01549.dsp     +++|          STM    DLID+1
01965  M00S01550.dsp     +++| GLI1     LDD    FB+1
01966  M00S01551.dsp     +++|          LPN    FRLD
01967  M00S01552.dsp     +++|          ZJN    GLI4        IF DLID/SLID NOT SPECIFIED
01968  M00S01553.dsp     +++|
01969  M00S01554.dsp     +++|*         GET DLID FROM PARAMETER BLOCK.
01970  M00S01555.dsp     +++|
01971  M00S01556.dsp     +++|          RJM    GFA         GET SLID/DLID
01972  M00S01557.dsp     +++|          ADN    2
01973  M00S01558.dsp     +++|          CRD    CN
01974  M00S01559.dsp     +++|          LDD    CN+1        CHECK DLID
01975  M00S01560.dsp     +++|          LPN    77
01976  M00S01561.dsp     +++|          SHN    14
01977  M00S01562.dsp     +++|          LMD    CN+2
01978  M00S01563.dsp     +++|          RJM    CSL         CHECK FOR SPECIAL LID
01979  M00S01564.dsp     +++|          STM    DLID+1      SAVE DLID
01980  M00S01565.dsp     +++|          SHN    -14
01981  M00S01566.dsp     +++|          STM    DLID
01982  M00S01567.dsp     +++|
01983  M00S01568.dsp     +++|*         GET SLID FROM PARAMETER BLOCK.
01984  M00S01569.dsp     +++|
01985  M00S01570.dsp     +++|          LDD    CN+1        CHECK SLID
01986  M00S01571.dsp     +++|          SCN    77
01987  M00S01572.dsp     +++|          SHN    6
01988  M00S01573.dsp     +++|          LMD    CN
01989  M00S01574.dsp     +++|          ZJN    GLI4        IF NO CHANGE IN SLID
01990  M00S01575.dsp     +++|          SHN    6
01991  M00S01576.dsp     +++| GLI2     RJM    CSL         CHECK FOR SPECIAL LID
01992  M00S01577.dsp     +++|          STM    SLID+1      SAVE SLID
01993  M00S01578.dsp     +++|          SHN    -14
01994  M00S01579.dsp     +++|          STM    SLID
01995  M00S01580.dsp     +++| GLI3     UJN    GLI5        SET ATTRIBUTES
01996  M00S01581.dsp     +++|
01997  M00S01582.dsp     +++|*         CHECK IF DEFAULT SLID NEEDED.
01998  M00S01583.dsp     +++|
01999  M00S01584.dsp     +++| GLI4     LDM    SLID
02000  M00S01585.dsp     +++|          ADM    SLID+1
02001  M00S01586.dsp     +++|          NJN    GLI5        IF SLID NONZERO
Line S01587 Modification History
M01 (Removed by) dsp31
Seq #  *Modification Id* Act 
----------------------------+
02002  M01S01587.dsp31   ---|          LDN    2
Line S00001 Modification History
M01 (Added by) dsp31
Seq #  *Modification Id* Act 
----------------------------+
02003  M01S00001.dsp31   +++|          LDN    LCPD
02004  M00S01588.dsp     +++|          UJN    GLI2        SET SLID TO PID
02005  M00S01589.dsp     +++|
02006  M00S01590.dsp     +++|*         GET ATTRIBUTES OF DLID/SLID.
02007  M00S01591.dsp     +++|
02008  M00S01592.dsp     +++| GLI5     LDM    DLID        GET DLID ATTRIBUTES
02009  M00S01593.dsp     +++|          SHN    14
02010  M00S01594.dsp     +++|          LMM    DLID+1
02011  M00S01595.dsp     +++|          ZJN    GLI6        IF NO DLID
02012  M00S01596.dsp     +++|          RJM    VID         GET ATTRIBUTES FROM LID TABLE
Line S00001 Modification History
M01 (Added by) dsp19
Seq #  *Modification Id* Act 
----------------------------+
02013  M01S00001.dsp19   +++|          ZJN    GLI6        IF LID TABLE NOT FOUND
02014  M00S01597.dsp     +++|          STM    DLAT        SAVE ATTRIBUTES
02015  M00S01598.dsp     +++| GLI6     LDM    SLID        GET SLID ATTRIBUTES
02016  M00S01599.dsp     +++|          SHN    14
02017  M00S01600.dsp     +++|          LMM    SLID+1
02018  M00S01601.dsp     +++|          ZJN    GLI7        IF NO SLID
02019  M00S01602.dsp     +++|          RJM    VID         GET ATTRIBUTES FROM LID TABLE
Line S00002 Modification History
M01 (Added by) dsp19
Seq #  *Modification Id* Act 
----------------------------+
02020  M01S00002.dsp19   +++|          ZJN    GLI7        IF LID TABLE NOT FOUND
02021  M00S01603.dsp     +++|          STM    SLAT        SAVE ATTRIBUTES
02022  M00S01604.dsp     +++| GLI7     LJM    GLIX        RETURN
02023  M00S01605.dsp     +++| ISS      SPACE  4,25
02024  M00S01606.dsp     +++|**        ISS -  INITIALIZE SYSTEM SECTORS.
02025  M00S01607.dsp     +++|*
02026  M00S01608.dsp     +++|*         ENTRY  (FN - FN+4) = QUEUED FILE FNT ENTRY.
02027  M00S01609.dsp     +++|*                (FS - FS+4) = FST ENTRY
02028  M00S01610.dsp     +++|*                (FA) = NFL FNT ENTRY OFFSET.
02029  M00S01611.dsp     +++|*                (ST) = STATUS WORD.
02030  M00S01612.dsp     +++|*                (QT) = DESTINATION QUEUE TYPE.
02031  M00S01613.dsp     +++|*
02032  M00S01614.dsp     +++|*         EXIT   *BFMS* CONTAINS SYSTEM SECTOR FOR QUEUED FILE.
02033  M00S01615.dsp     +++|*                (FS - FS+4) = QUEUED FILE FST ENTRY
02034  M00S01616.dsp     +++|*
02035  M00S01617.dsp     +++|*         USES   CM - CM+4, T1 - T7.
02036  M00S01618.dsp     +++|*
02037  M00S01619.dsp     +++|*         CALLS  EQF, GEA, GLI, RFN, SSJ, SSR.
02038  M00S01620.dsp     +++|*
02039  M00S01621.dsp     +++|*         MACROS NFA.
02040  M00S01622.dsp     +++|
02041  M00S01623.dsp     +++|
02042  M00S01624.dsp     +++| ISS      SUBR               ENTRY
02043  M00S01625.dsp     +++|          LDC    FNTN        READ INPUT FILE FNT
02044  M00S01626.dsp     +++|          STM    SSRB
02045  M00S01627.dsp     +++|          NFA    FNTN
02046  M00S01628.dsp     +++|          CRD    CM
02047  M00S01629.dsp     +++|          ADN    FSTL
02048  M00S01630.dsp     +++|          CRD    T5
02049  M00S01631.dsp     +++|          LDN    INFT        SET DESIRED FILE TYPE
02050  M00S01632.dsp     +++|          STM    SSRA
02051  M00S01633.dsp     +++|          LDD    ST          CHECK IF CALLED BY SUBSYSTEM
02052  M00S01634.dsp     +++|          LPN    SSFL
02053  M00S01635.dsp     +++|          NJN    ISS1        IF NOT CALLED BY A SUBSYSTEM
02054  M00S01636.dsp     +++|          LDD    QT          CHECK IF SUBSYSTEM OUTPUT FILE
02055  M00S01637.dsp     +++|          LMK    INQT
02056  M00S01638.dsp     +++|          NJN    ISS1        IF OUTPUT FROM A SUBSYSTEM
02057  M00S01639.dsp     +++|          AOM    ISSA        SET INPUT FILE NOT READ
02058  M00S01640.dsp     +++|          UJN    ISS2        CONTINUE
02059  M00S01641.dsp     +++|
02060  M00S01642.dsp     +++| ISS1     LDD    T5
02061  M00S01643.dsp     +++|          RJM    SSR         READ INPUT FILE SYSTEM SECTOR
02062  M00S01644.dsp     +++|          ZJN    ISS4        IF INPUT FILE SYSTEM SECTOR READ
02063  M00S01645.dsp     +++| ISS2     LDC    501         CLEAR SYSTEM SECTOR BUFFER
02064  M00S01646.dsp     +++|          STD    T1
02065  M00S01647.dsp     +++| ISS3     LDN    0
02066  M00S01648.dsp     +++|          STM    BFMS,T1
02067  M00S01649.dsp     +++|          SOD    T1
02068  M00S01650.dsp     +++|          PJN    ISS3        IF MORE TO CLEAR
02069  M00S01651.dsp     +++|          RJM    GLI         GET SLID/DLID
02070  M00S01652.dsp     +++|          LDD    ST          CHECK ORIGIN TYPE OF CALLING CP
02071  M00S01653.dsp     +++|          LPN    SYFL
02072  M00S01654.dsp     +++|          ZJN    ISS7        IF CP NOT *SYOT*
02073  M00S01655.dsp     +++|          LCN    0
02074  M00S01656.dsp     +++|          STM    VASS+5*AAWC+3
02075  M00S01657.dsp     +++|          STM    VASS+5*AAWC+4
02076  M00S01658.dsp     +++|          UJN    ISS7        SET DEFAULT TID
02077  M00S01659.dsp     +++|
02078  M00S01660.dsp     +++|*         SET DEFAULT DESTINATION TERMINAL ID (TID).
02079  M00S01661.dsp     +++|
02080  M00S01662.dsp     +++| ISS4     RJM    GLI         GET SLID/DLID
Line S01663 Modification History
M01 (Removed by) dsp48
Seq #  *Modification Id* Act 
----------------------------+
02081  M01S01663.dsp48   ---|          LDN    QFTE*5      CLEAR QFT IN SYSTEM SECTOR
Line S00001 Modification History
M01 (Added by) dsp48
Seq #  *Modification Id* Act 
----------------------------+
02082  M01S00001.dsp48   +++|          LDN    QFTE*5-1    CLEAR QFT IN SYSTEM SECTOR
02083  M00S01664.dsp     +++|          STD    T1
02084  M00S01665.dsp     +++| ISS5     LDN    0           CLEAR QFT
02085  M00S01666.dsp     +++|          STM    IOSS,T1
02086  M00S01667.dsp     +++|          SOD    T1
02087  M00S01668.dsp     +++|          PJN    ISS5        IF NOT FINISHED
02088  M00S01669.dsp     +++|          LDN    DDSSL       CLEAR FILE DEPENDENT INFORMATION
02089  M00S01670.dsp     +++|          STD    T1
02090  M00S01671.dsp     +++| ISS6     LDN    0
02091  M00S01672.dsp     +++|          STM    JISS,T1
02092  M00S01673.dsp     +++|          SOD    T1
02093  M00S01674.dsp     +++|          PJN    ISS6        IF MORE TO CLEAR
02094  M00S01675.dsp     +++|
02095  M00S01676.dsp     +++|*         SET ROUTING INFORMATION FROM EJT.
02096  M00S01677.dsp     +++|
02097  M00S01678.dsp     +++| ISS7     LDC    **
02098  M00S01679.dsp     +++| ISSA     EQU    *-1         (INPUT FILE NOT READ FLAG)
02099  M00S01680.dsp     +++|          NJN    ISS8        IF INPUT FILE NOT READ
02100  M00S01681.dsp     +++|          RJM    GEA         GET EJT ADDRESS
02101  M00S01682.dsp     +++|          ADK    SCLE
02102  M00S01683.dsp     +++|          CRD    CM
02103  M00S01684.dsp     +++|          LDD    CM          SET ORIGIN TYPE OF EJT
02104  M00S01685.dsp     +++|          SCN    60
02105  M00S01686.dsp     +++|          STM    IOSS+SCLQ*5+0
02106  M00S01687.dsp     +++|          LDD    CM+1        SET DEFAULT ROUTING INFORMATION
02107  M00S01688.dsp     +++|          STM    IOSS+SCLQ*5+1
02108  M00S01689.dsp     +++|          LDD    CM+2
02109  M00S01690.dsp     +++|          STM    IOSS+SCLQ*5+2
02110  M00S01691.dsp     +++|
02111  M00S01692.dsp     +++|*         SET CREATION DATE AND MACHINE ID.
02112  M00S01693.dsp     +++|*         SET CREATION FAMILY AND USER NAME.
02113  M00S01694.dsp     +++|
02114  M00S01695.dsp     +++| ISS8     LDC    MMFL        SET MACHINE ID
02115  M00S01696.dsp     +++|          CRD    CM
02116  M00S01697.dsp     +++|          LDD    CM
02117  M00S01698.dsp     +++|          STM    CMSS
02118  M00S01699.dsp     +++|          STM    RMSS
02119  M00S01700.dsp     +++|          RJM    RFN         READ CREATION FAMILY NAME
02120  M00S01701.dsp     +++|          CRM    FMSS,ON
02121  M00S01702.dsp     +++|          RJM    SSJ         CHECK FOR SSJ= BLOCK
02122  M00S01703.dsp     +++|          ZJN    ISS9        IF NO SSJ= ADDRESS
02123  M00S01704.dsp     +++|          ADK    UIDS        USER NAME
02124  M00S01705.dsp     +++|          UJN    ISS10       READ USER NAME
02125  M00S01706.dsp     +++|
02126  M00S01707.dsp     +++| ISS9     LDD    CP          READ USER NAME
02127  M00S01708.dsp     +++|          ADK    UIDW
02128  M00S01709.dsp     +++| ISS10    CRM    ACSS,ON
02129  M00S01710.dsp     +++|          LDM    FMSS+3      ZERO FILL FAMILY NAME
02130  M00S01711.dsp     +++|          SCN    77
02131  M00S01712.dsp     +++|          STM    FMSS+3
02132  M00S01713.dsp     +++|          LDN    0
02133  M00S01714.dsp     +++|          STM    FMSS+4
Line S00002 Modification History
M01 (Added by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
02134  M01S00002.ns2580  +++|
02135  M01S00003.ns2580  +++|*         SET CHARGE AND PROJECT NUMBERS.
02136  M01S00004.ns2580  +++|
02137  M01S00005.ns2580  +++|          NFA    CHGN
02138  M01S00006.ns2580  +++|          CRM    CHSS,TR
02139  M01S00007.ns2580  +++|          ERRNZ  PJSS-CHSS-5 CHARGE AND PROJECT NUMBER NOT CONTIGUOUS
02140  M01S00008.ns2580  +++|          ERRNZ  CHGN-PJ1N-1 CHARGE AND PROJECT NUMBER NOT CONTIGUOUS
02141  M01S00009.ns2580  +++|
02142  M01S00010.ns2580  +++|*         ENTER FILE INTO QFT.
02143  M01S00011.ns2580  +++|
02144  M00S01715.dsp     +++|          RJM    EQF         ENTER QUEUED FILE
02145  M00S01716.dsp     +++|
02146  M00S01717.dsp     +++|*         SET ORIGINAL AND CREATION JSN-S IN SYSTEM SECTOR.
02147  M00S01718.dsp     +++|
02148  M00S01719.dsp     +++|          LDM    IOSS+JSNQ*5+0
02149  M00S01720.dsp     +++|          STM    OJSS
02150  M00S01721.dsp     +++|          LDM    IOSS+JSNQ*5+1
02151  M00S01722.dsp     +++|          STM    OJSS+1
02152  M00S01723.dsp     +++|          RJM    GEA         SET CREATION JSN
02153  M00S01724.dsp     +++|          ADK    JSNE
02154  M00S01725.dsp     +++|          CRD    CM
02155  M00S01726.dsp     +++|          LDD    CM
02156  M00S01727.dsp     +++|          STM    CJSS
02157  M00S01728.dsp     +++|          LDD    CM+1
02158  M00S01729.dsp     +++|          STM    CJSS+1
02159  M00S01730.dsp     +++|          LJM    ISSX        RETURN
02160  M00S01731.dsp     +++| PDF      SPACE  4,15
02161  M00S01732.dsp     +++|**        PDF - PROCESS DEVICE FULL.
02162  M00S01733.dsp     +++|*
02163  M00S01734.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
02164  M00S01735.dsp     +++|*
02165  M00S01736.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
02166  M00S01737.dsp     +++|*                DEVICE FULL.
02167  M00S01738.dsp     +++|*
02168  M00S01739.dsp     +++|*         USES   CM - CM+4.
02169  M00S01740.dsp     +++|*
02170  M00S01741.dsp     +++|*         EXIT   *DEVICE FULL* MESSAGE ISSUED TO OPERATOR.
02171  M00S01742.dsp     +++|*
02172  M00S01743.dsp     +++|*         MACROS ERROR, MONITOR, PAUSE.
02173  M00S01744.dsp     +++|
02174  M00S01745.dsp     +++|
02175  M00S01746.dsp     +++| PDF      SUBR               ENTRY/EXIT
02176  M00S01747.dsp     +++| PDFA     LDN    0           CHECK IF ROUTINE PREVIOUSLY CALLED
02177  M00S01748.dsp     +++|*         LDN    1
02178  M00S01749.dsp     +++|          NJN    PDF1        IF ROUTINE PREVIOUSLY CALLED
02179  M00S01750.dsp     +++|          AOM    PDFA        SET ROUTINE PREVIOUSLY CALLED
02180  M00S01751.dsp     +++|          LDD    CP          CONSOLE MESSAGE = *TRACK LIMIT.*
02181  M00S01752.dsp     +++|          ADK    MS2W
02182  M00S01753.dsp     +++|          CWM    PDFB,TR
02183  M00S01754.dsp     +++|          LDN    ZERL        CLEAR PARAMETERS
02184  M00S01755.dsp     +++|          CRD    CM
02185  M00S01756.dsp     +++|          LDK    TKLE        SET TRACK LIMIT EVENT
02186  M00S01757.dsp     +++|          STD    CM+4
02187  M00S01758.dsp     +++|*         LDN    0           SET SYSTEM EVENT
02188  M00S01759.dsp     +++|*         STD    CM+3
02189  M00S01760.dsp     +++|          MONITOR  EATM
02190  M00S01761.dsp     +++| PDF1     PAUSE
02191  M00S01762.dsp     +++|          LDD    FB
02192  M00S01763.dsp     +++|          LPN    1
02193  M00S01764.dsp     +++|          ADD    CM+1
02194  M00S01765.dsp     +++|          ZJN    PDFX        IF NO ERROR PROCESSING NEEDED
02195  M00S01766.dsp     +++| PDF2     ERROR  /ERR/EC27   * DSP - DEVICE FULL.*
02196  M00S01767.dsp     +++|
02197  M00S01768.dsp     +++| PDFB     DATA   C*TRACK LIMIT.*
02198  M00S01769.dsp     +++| RCL      SPACE  4,10
02199  M00S01770.dsp     +++|**        RCL - RECALL PP.
02200  M00S01771.dsp     +++|
02201  M00S01772.dsp     +++|
02202  M00S01773.dsp     +++| RCL      BSS    0           ENTRY
02203  M00S01774.dsp     +++|          RJM    FNB         SET FILE NOT BUSY
02204  M00S01775.dsp     +++|          LDN    ZERL        DEFAULT TO TIMED RECALL
02205  M00S01776.dsp     +++|          CRD    CM
02206  M00S01777.dsp     +++|          LDD    MA
02207  M00S01778.dsp     +++|          CWD    IR
02208  M00S01779.dsp     +++|          MONITOR  RECM      RECALL PP
02209  M00S01780.dsp     +++|          LJM    PPR         ENTER PP RESIDENT
02210  M00S01781.dsp     +++| SDC      SPACE  4,10
02211  M00S01782.dsp     +++|**        SDC - SET DISPOSITION CODE.
02212  M00S01783.dsp     +++|*
02213  M00S01784.dsp     +++|*         ENTRY  (SDCA) = TABLE INDEX SET BY *DDC*.
02214  M00S01785.dsp     +++|*                       = 0, IF NO DISPOSITION CODE SPECIFIED.
02215  M00S01786.dsp     +++|*
02216  M00S01787.dsp     +++|*         EXIT   QFT AND SYSTEM SECTOR UPDATED.
02217  M00S01788.dsp     +++|*
02218  M00S01789.dsp     +++|*         USES   T0, T1.
02219  M00S01790.dsp     +++|*
02220  M00S01791.dsp     +++|
02221  M00S01792.dsp     +++|
02222  M00S01793.dsp     +++| SDC      SUBR               ENTRY EXIT
02223  M00S01794.dsp     +++|          LDD    ST          CHECK IF DISPOSITION CODE SPECIFIED
02224  M00S01795.dsp     +++|          LPC    DCFL
02225  M00S01796.dsp     +++|          ZJN    SDCX        IF DISPOSITION CODE NOT SPECIFIED
02226  M00S01797.dsp     +++|          LDC    **
02227  M00S01798.dsp     +++| SDCA     EQU    *-1         (*TODC* TABLE ENTRY SET BY *DDC*)
02228  M00S01799.dsp     +++|          STD    T1
02229  M00S01800.dsp     +++|          LPN    77
02230  M00S01801.dsp     +++|          STD    T0
02231  M00S01802.dsp     +++|          LDC    **          SET DISPOSITION CODE IN SYSTEM SECTOR
02232  M00S01803.dsp     +++| SDCB     EQU    *-1
02233  M00S01804.dsp     +++|          STM    DCSS
02234  M00S01805.dsp     +++|          LDM    IOSS+SCLQ*5+3
02235  M00S01806.dsp     +++|          SCN    77
02236  M00S01807.dsp     +++|          LMD    T0
02237  M00S01808.dsp     +++|          STM    IOSS+SCLQ*5+3
02238  M00S01809.dsp     +++|          LDM    IOSS+JSNQ*5+4  SET DISPOSITION CODE IN QFT
02239  M00S01810.dsp     +++|          LMD    T1
02240  M00S01811.dsp     +++|          LPN    77
02241  M00S01812.dsp     +++|          LMD    T1
02242  M00S01813.dsp     +++|          STM    IOSS+JSNQ*5+4
02243  M00S01814.dsp     +++|          UJN    SDCX        RETURN
02244  M00S01815.dsp     +++| SPR      SPACE  4,10
02245  M00S01816.dsp     +++|**        SPR - SET PRIORITY.
02246  M00S01817.dsp     +++|*
02247  M00S01818.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
02248  M00S01819.dsp     +++|*                (QT) = QUEUE TYPE.
Line S00016 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02249  M01S00016.ns2156  +++|*                (T3) .NE. 0, IF SPECIAL REQUEUE OPERATION.
02250  M00S01820.dsp     +++|*
02251  M00S01821.dsp     +++|*         EXIT   QFT UPDATED.
02252  M00S01822.dsp     +++|*                (FGSS) = FLAG SET IF PRIORITY PRESENT.
02253  M00S01823.dsp     +++|*
02254  M00S01824.dsp     +++|*         USES   CN - CN+4, T1 - T5.
02255  M00S01825.dsp     +++|*
02256  M00S01826.dsp     +++|*         CALLS  CET, GFA.
02257  M00S01827.dsp     +++|
02258  M00S01828.dsp     +++|
02259  M00S01829.dsp     +++| SPR      SUBR               ENTRY/EXIT
02260  M00S01830.dsp     +++|          LDD    FB+1        CHECK PRIORITY
02261  M00S01831.dsp     +++|          SHN    21-11
02262  M00S01832.dsp     +++|          MJN    SPR2        IF PRIORITY SPECIFIED
Line S00017 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02263  M01S00017.ns2156  +++|          LDD    T3
02264  M01S00018.ns2156  +++|          NJN    SPRX        IF SPECIAL REQUEUE OPERATION
02265  M00S01833.dsp     +++|          LDD    FB+1        CHECK IF DEFERRED ROUTE
02266  M00S01834.dsp     +++|          SHN    21-0
02267  M00S01835.dsp     +++|          MJN    SPRX        IF DEFERRED ROUTE
02268  M00S01836.dsp     +++|          LDM    FGSS        CHECK IF PRIORITY PREVIOUSLY SPECIFIED
02269  M00S01837.dsp     +++|          LPN    4
02270  M00S01838.dsp     +++|          NJN    SPR3        IF PRIORITY PREVIOUSLY SPECIFIED
Line S01839 Modification History
M01 (Removed by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02271  M01S01839.ns2156  ---|          LDC    RTCL        USER REAL TIME CLOCK
Line S00019 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02272  M01S00019.ns2156  +++| SPR0     LDC    RTCL        USE REAL TIME CLOCK
02273  M00S01840.dsp     +++|          CRD    T1
Line S01841 Modification History
M01 (Removed by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02274  M01S01841.ns2156  ---|          LJM    SPR5        SET ENTRY TIME IN QFT
Line S00020 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02275  M01S00020.ns2156  +++| SPR1     LJM    SPR5        SET ENTRY TIME IN QFT
02276  M00S01842.dsp     +++|
02277  M00S01843.dsp     +++| SPR2     RJM    GFA         READ PRIORITY
02278  M00S01844.dsp     +++|          ADN    3
02279  M00S01845.dsp     +++|          CRD    CN
Line S01846 Modification History
M01 (Removed by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02280  M01S01846.ns2156  ---|          LDD    CN+4
Line S00021 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02281  M01S00021.ns2156  +++|          LDD    T3
02282  M01S00022.ns2156  +++|          ZJN    SPR2.1      IF NOT SPECIAL REQUEUE OPERATION
02283  M01S00023.ns2156  +++|          LDD    CN+2
02284  M01S00024.ns2156  +++|          NJN    SPR0        IF NEW ENTRY TIME NEEDED
02285  M01S00025.ns2156  +++|          LDD    CN+3        GET ENTRY TIME
02286  M01S00026.ns2156  +++|          STD    T1
02287  M01S00027.ns2156  +++|          LDD    CN+4
02288  M01S00028.ns2156  +++|          STD    T2
02289  M01S00029.ns2156  +++|          UJN    SPR1        SET ENTRY TIME IN QFT ENTRY
02290  M01S00030.ns2156  +++|
02291  M01S00031.ns2156  +++| SPR2.1   LDD    CN+4
02292  M00S01847.dsp     +++|          STM    PRSS
02293  M00S01848.dsp     +++|          LDM    FGSS        SET PRIORITY FLAG
02294  M00S01849.dsp     +++|          SCN    4
02295  M00S01850.dsp     +++|          LMN    4
02296  M00S01851.dsp     +++|          STM    FGSS
02297  M00S01852.dsp     +++|          LDD    FB+1        CHECK IF DEFERRED ROUTE
02298  M00S01853.dsp     +++|          SHN    21-0
02299  M00S01854.dsp     +++|          MJN    SPR6        IF DEFERRED ROUTE
02300  M00S01855.dsp     +++| SPR3     LDM    FGSS        CLEAR PRIORITY SPECIFIED FLAG
02301  M00S01856.dsp     +++|          SCN    4
02302  M00S01857.dsp     +++|          STM    FGSS
02303  M00S01858.dsp     +++|          LDM    PRSS        CONVERT PRIORITY INTO ENTRY TIME
02304  M00S01859.dsp     +++|          STD    T1
02305  M00S01860.dsp     +++|          LDD    QT          GET QUEUE TYPE
02306  M00S01861.dsp     +++|          LMK    INQT
02307  M00S01862.dsp     +++|          ZJN    SPR4        IF INPUT FILE
02308  M00S01863.dsp     +++|          LDN    OTQT        SET OUTPUT QUEUE TYPE
02309  M00S01864.dsp     +++| SPR4     STD    T2
02310  M00S01865.dsp     +++|          LDM    IOSS+SCLQ*5+0
02311  M00S01866.dsp     +++|          SCN    77
02312  M00S01867.dsp     +++|          SHN    6
02313  M00S01868.dsp     +++|          LMD    T2
02314  M00S01869.dsp     +++|          RJM    CET         CALCULATE ENTRY TIME
02315  M00S01870.dsp     +++| SPR5     LDD    T2          SET ENTRY TIME IN QFT ENTRY
02316  M00S01871.dsp     +++|          STM    IOSS+ENTQ*5+4
02317  M00S01872.dsp     +++|          LDD    T1
02318  M00S01873.dsp     +++|          STM    IOSS+ENTQ*5+3
02319  M00S01874.dsp     +++| SPR6     LJM    SPRX        RETURN
02320  M00S01875.dsp     +++| SQS      SPACE  4,15
02321  M00S01876.dsp     +++|**        SQS - SET QUEUED FILE SYSTEM SECTOR IN *BFMS*.
02322  M00S01877.dsp     +++|*
02323  M00S01878.dsp     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
02324  M00S01879.dsp     +++|*                (ST) = STATUS WORD.
02325  M00S01880.dsp     +++|*                (FA) = NFL FNT OFFSET.
02326  M00S01881.dsp     +++|*                (QT) = QUEUE TYPE.
02327  M00S01882.dsp     +++|*                (FN - FN+4) = FILE NAME.
02328  M00S01883.dsp     +++|*
02329  M00S01884.dsp     +++|*         EXIT   (FN - FN+4) = NFL FNT/FST ENTRY.
02330  M00S01885.dsp     +++|*                (FS - FS+4) = NFL FNT/FST ENTRY.
02331  M00S01886.dsp     +++|*                (QT) = QUEUE TYPE.
02332  M00S01887.dsp     +++|*                (QA) = ORDINAL OF GLOBAL *QFT* TABLE ENTRY.
02333  M00S01888.dsp     +++|*
02334  M00S01889.dsp     +++|*         USES   FN - FN+4.
02335  M00S01890.dsp     +++|*
02336  M00S01891.dsp     +++|*         USES   AMS, EFN, SPR, USS, VMS.
02337  M00S01892.dsp     +++|*
02338  M00S01893.dsp     +++|*         MACROS NFA.
02339  M00S01894.dsp     +++|
02340  M00S01895.dsp     +++|
02341  M00S01896.dsp     +++| SQS      SUBR               ENTRY/EXIT
02342  M00S01897.dsp     +++|          LDD    ST          CHECK IF FILE CREATION NEEDED
02343  M00S01898.dsp     +++|          LPN    FCFL
02344  M00S01899.dsp     +++|          ZJN    SQS1        IF FILE EXISTS
02345  M00S01900.dsp     +++|          RJM    EFN         ENTER FILE NAME
02346  M00S01901.dsp     +++| SQS1     RJM    AMS         ASSIGN MASS STORAGE
02347  M00S01902.dsp     +++|          LDD    FS          SET EQUIPMENT
02348  M00S01903.dsp     +++|          RJM    VMS         VALIDATE MASS STORAGE
02349  M00S01904.dsp     +++|          NFA    FA,R        READ FNT OF EXISTING FILE
02350  M00S01905.dsp     +++|          CRD    FN
02351  M00S01906.dsp     +++|          LDD    FN+4        SET FILE TYPE
02352  M00S01907.dsp     +++|          LPN    77
02353  M00S01908.dsp     +++|          LMC    QFFT*100
02354  M00S01909.dsp     +++|          STD    FN+4
02355  M00S01910.dsp     +++|          RJM    USS         SET SYSTEM SECTOR
02356  M00S01911.dsp     +++|          RJM    SPR         SET PRIORITY
02357  M00S01912.dsp     +++|          UJN    SQSX        RETURN
02358  M00S01913.dsp     +++| SSR      SPACE  4,20
02359  M00S01914.dsp     +++|**        SSR - SYSTEM SECTOR READ.
02360  M00S01915.dsp     +++|*
02361  M00S01916.dsp     +++|*         ENTRY  (A) = EST ORDINAL.
02362  M00S01917.dsp     +++|*                (T6) = FIRST TRACK.
02363  M00S01918.dsp     +++|*                (CM - CM+4) = FNT ENTRY.
02364  M00S01919.dsp     +++|*                (SSRB) = NFL FNT ENTRY OFFSET.
02365  M00S01920.dsp     +++|*
02366  M00S01921.dsp     +++|*         EXIT   (A) = 0 IF NO ERRORS AND DATA IN SYSTEM SECTOR.
Line S01922 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02367  M01S01922.242l642 ---|*                (A) = 1, IF NO DATA IN SYSTEM SECTOR.
02368  M01S01923.242l642 ---|*                (A) = -1, IF ERRORS ENCOUNTERED WHILE READING SYSTEM
02369  M01S01924.242l642 ---|*                SECTOR.
02370  M01S01925.242l642 ---|*                (T4) = CHANNEL.
02371  M01S01926.242l642 ---|*                ERROR LOG MESSAGE ISSUED IF ERROR.
Line S00091 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02372  M01S00091.242l642 +++|*                    .GT. 0 IF NO DATA IN SYSTEM SECTOR.
02373  M01S00092.242l642 +++|*                    .LT. 0 IF ERRORS IN SYSTEM SECTOR DATA.
02374  M00S01927.dsp     +++|*                DRIVER PRESET.
02375  M00S01928.dsp     +++|*
02376  M00S01929.dsp     +++|*         USES   T1, T3, T5.
02377  M00S01930.dsp     +++|*
02378  M00S01931.dsp     +++|*         CALLS  RSS, SSE.
02379  M00S01932.dsp     +++|*
02380  M00S01933.dsp     +++|*         MACROS ENDMS, NFA, SETMS.
02381  M00S01934.dsp     +++|
02382  M00S01935.dsp     +++|
02383  M00S01936.dsp     +++| SSR2     ENDMS
02384  M00S01937.dsp     +++|*         LDN    0           RETURN (NO ERRORS)
02385  M00S01938.dsp     +++|
02386  M00S01939.dsp     +++| SSR      SUBR               ENTRY/EXIT
02387  M00S01940.dsp     +++|          STD    T5
02388  M00S01941.dsp     +++|          LMN    NEEQ
02389  M00S01942.dsp     +++|          ZJN    SSR1        IF NO FILE
02390  M00S01943.dsp     +++|          LDD    CM+4
02391  M00S01944.dsp     +++|          SHN    -6
Line S01945 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02392  M01S01945.242l642 ---|          LMC    QFFT
Line S00093 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02393  M01S00093.242l642 +++| SSR1     LMC    QFFT
02394  M00S01946.dsp     +++|*         LMC    INFT        (READ JOB INPUT FILE)
02395  M00S01947.dsp     +++| SSRA     EQU    *-1         (SET BY *ISS*)
Line S01948 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02396  M01S01948.242l642 ---|          NJN    SSR1        IF FILE NOT ALREADY QUEUE FILE
02397  M01S01949.242l642 ---|          SETMS  READ
Line S00094 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02398  M01S00094.242l642 +++|          NJN    SSRX        IF NOT ALREADY QUEUE FILE
02399  M01S00095.242l642 +++|          SETMS  IO
02400  M00S01950.dsp     +++|          LDN    0
02401  M00S01951.dsp     +++|          RJM    RSS         READ SYSTEM SECTOR
02402  M00S01952.dsp     +++|          ZJN    SSR2        IF NO ERRORS
02403  M00S01953.dsp     +++|
02404  M00S01954.dsp     +++|*         PROCESS SYSTEM SECTOR ERROR.
02405  M00S01955.dsp     +++|
02406  M00S01956.dsp     +++|          LDN    0           SET FNT TYPE
02407  M00S01957.dsp     +++|          STD    T3
02408  M00S01958.dsp     +++|          LDC    *
02409  M00S01959.dsp     +++| SSRB     EQU    *-1         (FNT OFFSET OF FILE READ)
02410  M00S01960.dsp     +++|          STD    T1
02411  M00S01961.dsp     +++|          NFA    T1,R
02412  M00S01962.dsp     +++|          RJM    SSE         REPORT SYSTEM SECTOR ERROR
02413  M00S01963.dsp     +++|          LCN    1           FLAG SYSTEM SECTOR ERROR
02414  M00S01964.dsp     +++|          UJN    SSRX        RETURN WITH ERROR
Line S01965 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02415  M01S01965.242l642 ---|
02416  M01S01966.242l642 ---| SSR1     LDN    1           FLAG ERROR RETURN
02417  M01S01967.242l642 ---|          UJN    SSRX        RETURN
02418  M00S01968.dsp     +++| USS      SPACE  4,20
02419  M00S01969.dsp     +++|**        USS - UPDATE SYSTEM SECTOR.
02420  M00S01970.dsp     +++|*
02421  M00S01971.dsp     +++|*         ENTRY  (FN - FN+4) = QUEUED FILE FNT ENTRY.
02422  M00S01972.dsp     +++|*                (FS - FS+4) = FST ENTRY.
02423  M00S01973.dsp     +++|*                (FA) = NFL FNT ENTRY OFFSET.
02424  M00S01974.dsp     +++|*
02425  M00S01975.dsp     +++|*         EXIT   *BFMS* CONTAINS SYSTEM SECTOR FOR QUEUED FILE.
Line S00008 Modification History
M01 (Added by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02426  M01S00008.dsp44   +++|*                (QT) = QUEUE TYPE.
Line S00032 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02427  M01S00032.ns2156  +++|*                (T3) .NE. 0, IF VALID SPECIAL REQUEUE FLAG SET.
Line S01976 Modification History
M01 (Removed by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02428  M01S01976.dsp44   ---|*                (QT) = QUEUE TYPE.
Line S00009 Modification History
M01 (Added by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02429  M01S00009.dsp44   +++|*                REPEAT COUNT SET, IF VALID SPECIAL REQUEUE FLAG SET.
02430  M00S01977.dsp     +++|*
02431  M00S01978.dsp     +++|*         ERROR  TO *ERR* IF ERROR READING *QFFT* FILE SYSTEM SECTOR.
02432  M00S01979.dsp     +++|*
Line S01980 Modification History
M01 (Removed by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02433  M01S01980.ns2156  ---|*         USES   T6, CM - CM+4.
Line S00033 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02434  M01S00033.ns2156  +++|*         USES   QT, T3, T6, CM - CM+4.
02435  M00S01981.dsp     +++|*
Line S01982 Modification History
M01 (Removed by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02436  M01S01982.dsp44   ---|*         CALLS  EDF, GLI, ISS, SQE, SQO, SSR.
Line S00010 Modification History
M01 (Added by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02437  M01S00010.dsp44   +++|*         CALLS  EDF, GFA, GLI, ISS, SQO, SSR.
02438  M00S01983.dsp     +++|*
Line S01984 Modification History
M01 (Removed by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02439  M01S01984.ns2156  ---|*         MACROS ERROR, NFA.
Line S00034 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02440  M01S00034.ns2156  +++|*         MACROS ERROR, ISTORE, NFA.
02441  M00S01985.dsp     +++|
02442  M00S01986.dsp     +++|
02443  M00S01987.dsp     +++| USS2     RJM    ISS         INITIALIZE SYSTEM SECTOR
02444  M00S01988.dsp     +++|          RJM    SQO         SET QFT OWNERSHIP
Line S00035 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02445  M01S00035.ns2156  +++| USS3     LDN    0           SET NORMAL EXIT
02446  M01S00036.ns2156  +++|          STD    T3
02447  M00S01989.dsp     +++|
02448  M00S01990.dsp     +++| USS      SUBR               ENTRY/EXIT
02449  M00S01991.dsp     +++|
02450  M00S01992.dsp     +++|*         SET QUEUE FILE TYPE.
02451  M00S01993.dsp     +++|
02452  M00S01994.dsp     +++|          LDM    SDCA        GET ENTRY FROM *TODC* TABLE
02453  M00S01995.dsp     +++|          SHN    -11
02454  M00S01996.dsp     +++|          STD    QT
02455  M00S01997.dsp     +++|
Line S01998 Modification History
M01 (Removed by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02456  M01S01998.dsp44   ---|*         READ SYSTEM SECTOR IF FILE HAS BEEN DEFERRED ROUTED.
Line S00011 Modification History
M01 (Added by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02457  M01S00011.dsp44   +++|*         READ SYSTEM SECTOR INFORMATION IF IT EXISTS.
02458  M00S01999.dsp     +++|
02459  M00S02000.dsp     +++|          LDD    FS+1        SET FIRST TRACK
02460  M00S02001.dsp     +++|          STD    T6
02461  M00S02002.dsp     +++|          LDD    FA          READ CURRENT FNT ENTRY
02462  M00S02003.dsp     +++|          STM    SSRB        SAVE FNT OFFSET
02463  M00S02004.dsp     +++|          NFA    FA,R
02464  M00S02005.dsp     +++|          CRD    CM
02465  M00S02006.dsp     +++|          LDD    FS
02466  M00S02007.dsp     +++|          RJM    SSR         READ SYSTEM SECTOR
Line S02008 Modification History
M01 (Removed by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02467  M01S02008.dsp44   ---|          MJN    USS1        IF ERROR ON *QFFT* FILE
Line S00012 Modification History
M01 (Added by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02468  M01S00012.dsp44   +++|          MJP    USS1        IF ERROR ON *QFFT* FILE
02469  M00S02009.dsp     +++|          NJN    USS2        IF SYSTEM SECTOR NOT READ
02470  M00S02010.dsp     +++|
Line S02011 Modification History
M01 (Removed by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02471  M01S02011.dsp44   ---|*         SET FNT/FST FOR DEFERRED ROUTED FILE (SYSTEM SECTOR
02472  M01S02012.dsp44   ---|*         INFORMATION IS ALREADY PRESENT).
Line S00013 Modification History
M01 (Added by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02473  M01S00013.dsp44   +++|*         SET FNT/FST FOR DEFERRED ROUTED OR ATTACHED QUEUE FILE
02474  M01S00014.dsp44   +++|*         (SYSTEM SECTOR INFORMATION IS ALREADY PRESENT).
02475  M00S02013.dsp     +++|
02476  M00S02014.dsp     +++|          RJM    GLI         GET LID INFORMATION
02477  M00S02015.dsp     +++|          RJM    EDF         ENTER DEFERRED FILE
Line S02016 Modification History
M01 (Removed by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02478  M01S02016.ns2156  ---|          UJN    USSX        RETURN
Line S00037 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02479  M01S00037.ns2156  +++|
02480  M01S00038.ns2156  +++|*         CHECK FOR SPECIAL REQUEUE FLAG.
02481  M01S00039.ns2156  +++|
02482  M01S00040.ns2156  +++|          LDD    ST
02483  M01S00041.ns2156  +++|          LPN    DSFL
02484  M01S00042.ns2156  +++|          ZJN    USS3        IF FILE NOT PREVIOUSLY ROUTED
02485  M01S00043.ns2156  +++|          LDM    EBIT+1
02486  M01S00044.ns2156  +++|          LPC    EFRQ
02487  M01S00045.ns2156  +++|          STD    T3
02488  M01S00046.ns2156  +++|          ZJN    USS0        IF SPECIAL REQUEUE FLAG NOT SPECIFIED
02489  M01S00047.ns2156  +++|          ISTORE DSPG,(UJN DSP4)
02490  M01S00048.ns2156  +++|          ISTORE DSPH,(UJN DSP5)
Line S00049 Modification History
M01 (Added by) ns2156
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02491  M02S00049.242l642 ---|          ISTORE DSPI,(UJN DSP7)
Line S00096 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02492  M01S00096.242l642 +++|          ISTORE DSPI,(UJN DSP6.2)
Line S00015 Modification History
M01 (Added by) dsp44
Seq #  *Modification Id* Act 
----------------------------+
02493  M01S00015.dsp44   +++|
02494  M01S00016.dsp44   +++|*         SET REPEAT COUNT FOR SPECIAL REQUEUE OPERATION.
02495  M01S00017.dsp44   +++|
02496  M01S00018.dsp44   +++|          LDD    FB
02497  M01S00019.dsp44   +++|          SHN    21-2
02498  M01S00020.dsp44   +++|          PJN    USS0        IF REPEAT COUNT NOT SPECIFIED
02499  M01S00021.dsp44   +++|          RJM    GFA         READ REPEAT COUNT
02500  M01S00022.dsp44   +++|          ADN    4
02501  M01S00023.dsp44   +++|          CRD    CM
02502  M01S00024.dsp44   +++|          LDD    CM+3        SET REPEAT COUNT
02503  M01S00025.dsp44   +++|          LPN    77
02504  M01S00026.dsp44   +++|          STM    IOSS+INSQ*5+4
02505  M01S00027.dsp44   +++|          STM    RCSS
Line S00050 Modification History
M01 (Added by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
02506  M01S00050.ns2156  +++| USS0     LJM    USSX        RETURN
02507  M00S02017.dsp     +++|
02508  M00S02018.dsp     +++| USS1     ERROR  /ERR/EC24   * DSP - QUEUED FILE READ ERROR.*
02509  M00S02019.dsp     +++| VMS      SPACE  4,10
02510  M00S02020.dsp     +++|**        VMS - VALIDATE MASS STORAGE.
02511  M00S02021.dsp     +++|*
02512  M00S02022.dsp     +++|*         ENTRY  (A) = EQUIPMENT.
02513  M00S02023.dsp     +++|*
02514  M00S02024.dsp     +++|*         EXIT   (CM - CM+4) = EST ENTRY.
02515  M00S02025.dsp     +++|*                (T5) = EQUIPMENT.
02516  M00S02026.dsp     +++|*
02517  M00S02027.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
02518  M00S02028.dsp     +++|*                FILE NOT ON REMOVABLE DEVICE.
02519  M00S02029.dsp     +++|*                FILE NOT ON MASS STORAGE.
02520  M00S02030.dsp     +++|*
02521  M00S02031.dsp     +++|*         USES   T5, CM - CM+4.
02522  M00S02032.dsp     +++|*
02523  M00S02033.dsp     +++|*         MACROS ERROR, SFA.
02524  M00S02034.dsp     +++|
02525  M00S02035.dsp     +++|
02526  M00S02036.dsp     +++| VMS1     SHN    21-10-21+13
02527  M00S02037.dsp     +++|          PJN    VMSX        IF NOT REMOVABLE DEVICE
02528  M00S02038.dsp     +++|          ERROR  /ERR/EC20   * DSP - FILE ON REMOVABLE DEVICE.*
02529  M00S02039.dsp     +++|
02530  M00S02040.dsp     +++| VMS      SUBR               ENTRY/EXIT
02531  M00S02041.dsp     +++|          STD    T5          SET EQUIPMENT
02532  M00S02042.dsp     +++|          SFA    EST         READ EST ENTRY
02533  M00S02043.dsp     +++|          ADK    EQDE
02534  M00S02044.dsp     +++|          CRD    CM
02535  M00S02045.dsp     +++|          LDD    CM          CHECK FOR MASS STORAGE
02536  M00S02046.dsp     +++|          SHN    21-13
02537  M00S02047.dsp     +++|          MJN    VMS1        IF MASS STORAGE
02538  M00S02048.dsp     +++|          ERROR  /ERR/EC02   * DSP - FILE NOT ON MASS STORAGE.*
02539  M00S02049.dsp     +++|          SPACE  4,10
02540  M00S02050.dsp     +++|**        COMMON DECKS.
02541  M00S02051.dsp     +++|
Line S00002 Modification History
M01 (Added by) dsp16
Seq #  *Modification Id* Act 
----------------------------+
02542  M01S00002.dsp16   +++|
02543  M00S02052.dsp     +++| CET$     SET    1           CALCULATE ENTRY TIME
02544  M00S02053.dsp     +++|*CALL     COMPCPE
02545  M00S02054.dsp     +++|*CALL     COMPCTE
02546  M00S02055.dsp     +++|*CALL     COMPC2D
02547  M00S02056.dsp     +++|*CALL     COMPRJC
Line S02057 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02548  M01S02057.242l642 ---|*CALL     COMPRSS
Line S00097 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02549  M01S00097.242l642 +++|          QUAL   MIO
02550  M01S00098.242l642 +++| RDS      EQU    RMS         USE *RMS* IN PLACE OF *RDS*
02551  M01S00099.242l642 +++|*CALL     COMPRSS
02552  M01S00100.242l642 +++|          QUAL   *
02553  M01S00101.242l642 +++| RSS      EQU    /MIO/RSS
02554  M00S02058.dsp     +++|*CALL     COMPSSE
02555  M00S02059.dsp     +++|*CALL     COMPVID
Line S00012 Modification History
M01 (Added by) dsp46
Seq #  *Modification Id* Act 
----------------------------+
02556  M01S00012.dsp46   +++|          QUAL   MIO3
02557  M01S00013.dsp46   +++| WCS$     SET    1           WRITE CONSECUTIVE SECTORS
02558  M01S00014.dsp46   +++| WDS      EQU    WMS         USE *WMS* IN PLACE OF *WDS*
02559  M01S00015.dsp46   +++|*CALL     COMPWSS
02560  M01S00016.dsp46   +++|          QUAL   *
02561  M01S00017.dsp46   +++| WSS      EQU    /MIO3/WSS
02562  M00S02060.dsp     +++|          SPACE  4,10
02563  M00S02061.dsp     +++|*         THE FOLLOWING SUBROUTINES MAY BE OVERLAID BY ZERO-LEVEL
02564  M00S02062.dsp     +++|*         OVERLAYS.
02565  M00S02063.dsp     +++|          SPACE  4,10
02566  M00S02064.dsp     +++| OVL5     EQU    *+5         LOAD ADDRESS FOR OVERLAY *3DC*
02567  M00S02065.dsp     +++|          SPACE  4,10
02568  M00S02066.dsp     +++|          ERRNG  OVL0-5-*    OVERFLOW INTO *0BF*
02569  M00S02067.dsp     +++|          ERRNG  OVL1-5-*    OVERFLOW INTO *0AV*
02570  M00S02068.dsp     +++|          TITLE  FILE INITIALIZATION ROUTINES (OVERLAYABLE).
02571  M00S02069.dsp     +++| CFN      SPACE  4,10
02572  M00S02070.dsp     +++|**        CFN - COMPARE FILE NAMES.
02573  M00S02071.dsp     +++|*
02574  M00S02072.dsp     +++|*         ENTRY  (T1) = FWA OF FNT ENTRY
02575  M00S02073.dsp     +++|*                (FN - FN+4) = FILE NAME.
02576  M00S02074.dsp     +++|*
02577  M00S02075.dsp     +++|*         EXIT   (A) = 0, IF FILE FOUND.
02578  M00S02076.dsp     +++|*                (A) .GT. 0, FILE ASSIGNED TO CP, BUT NOT DESIRED FILE.
02579  M00S02077.dsp     +++|*                (A) .LT. 0, NO ENTRY.
02580  M00S02078.dsp     +++|
02581  M00S02079.dsp     +++|
02582  M00S02080.dsp     +++| CFN1     LCN    1           NO FILE FOUND
02583  M00S02081.dsp     +++|
02584  M00S02082.dsp     +++| CFN      SUBR               ENTRY/EXIT
02585  M00S02083.dsp     +++|          LDI    T1
02586  M00S02084.dsp     +++|          ZJN    CFN1        IF NO ENTRY
02587  M00S02085.dsp     +++|          LMD    FN
02588  M00S02086.dsp     +++|          NJN    CFNX        IF NO COMPARE
02589  M00S02087.dsp     +++|          LDM    1,T1
02590  M00S02088.dsp     +++|          LMD    FN+1
02591  M00S02089.dsp     +++|          NJN    CFNX        IF NO COMPARE
02592  M00S02090.dsp     +++|          LDM    2,T1
02593  M00S02091.dsp     +++|          LMD    FN+2
02594  M00S02092.dsp     +++|          NJN    CFNX        IF NO COMPARE
02595  M00S02093.dsp     +++|          LDM    3,T1
02596  M00S02094.dsp     +++|          LMD    FN+3
02597  M00S02095.dsp     +++|          SCN    77
02598  M00S02096.dsp     +++|          UJN    CFNX        RETURN
02599  M00S02097.dsp     +++| DDC      SPACE  4,25
02600  M00S02098.dsp     +++|**        DDC - DETERMINE DISPOSTION CODE.
02601  M00S02099.dsp     +++|*
02602  M00S02100.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
02603  M00S02101.dsp     +++|*                (FN - FN+4) = FNT ENTRY.
02604  M00S02102.dsp     +++|*                (ST) = STATUS WORD.
02605  M00S02103.dsp     +++|*
02606  M00S02104.dsp     +++|*         EXIT   (A) = 0, IF *DC=SC*.
02607  M00S02105.dsp     +++|*                (ST) = SET, IF DISPOSITION CODE SPECIFIED.
02608  M00S02106.dsp     +++|*
02609  M00S02107.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S02108 Modification History
M01 (Removed by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02610  M01S02108.dsp15   ---|*                INVALID FILE TYPE.
Line S02109 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02611  M01S02109.v23l617 ---|*                INVALID DISPOSITION CODE.
Line S00050 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02612  M01S00050.v23l617 +++|*                INCORRECT DISPOSITION CODE.
02613  M00S02110.dsp     +++|*                *DC=SO* OR *DC=SS* AND CALLER NOT *SYOT* OR *SSJ=*.
02614  M00S02111.dsp     +++|*
02615  M00S02112.dsp     +++|*         USES   ST, T1, CM+2.
02616  M00S02113.dsp     +++|*
02617  M00S02114.dsp     +++|*         CALLS  CFN.
02618  M00S02115.dsp     +++|*
02619  M00S02116.dsp     +++|*         MACROS ERROR.
02620  M00S02117.dsp     +++|
02621  M00S02118.dsp     +++|
Line S02119 Modification History
M01 (Removed by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02622  M01S02119.dsp15   ---| INFT     DECMIC INFT
02623  M01S02120.dsp15   ---| QFFT     DECMIC QFFT
02624  M01S02121.dsp15   ---| LOFT     DECMIC LOFT
02625  M01S02122.dsp15   ---|
02626  M01S02123.dsp15   ---| QMSK     EQU    1S"INFT"+1S"QFFT"+1S"LOFT"
02627  M01S02124.dsp15   ---|
02628  M01S02125.dsp15   ---|
02629  M00S02126.dsp     +++| DDC      SUBR               ENTRY/EXIT
Line S02127 Modification History
M01 (Removed by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02630  M01S02127.dsp15   ---|          LDD    FN+4        SET CURRENT FILE TYPE
02631  M01S02128.dsp15   ---|          SHN    -6
02632  M01S02129.dsp15   ---|          STD    T1
02633  M01S02130.dsp15   ---|          LDC    SHNI+21
02634  M01S02131.dsp15   ---|          SBD    T1
02635  M01S02132.dsp15   ---|          STM    DDCA
02636  M01S02133.dsp15   ---|          LDC    QMSK
02637  M01S02134.dsp15   ---|          SHN    21-0
02638  M01S02135.dsp15   ---| DDCA     EQU    *-1         (MODIFIED *SHN* INSTRUCTION)
02639  M01S02136.dsp15   ---|          MJN    DDC1        IF VALID FILE TYPE
02640  M01S02137.dsp15   ---|          ERROR  /ERR/EC03   * DSP - INVALID FILE TYPE.*
02641  M01S02138.dsp15   ---|
02642  M00S02139.dsp     +++| DDC1     LDC    *           SET DISPOSITION CODE
02643  M00S02140.dsp     +++| DDCB     EQU    *-1         (DISPOSITION CODE SET BY PRESET)
02644  M00S02141.dsp     +++|          STD    CM+2
02645  M00S02142.dsp     +++|          LDD    FB+1
02646  M00S02143.dsp     +++|          SHN    21-4
02647  M00S02144.dsp     +++|          MJN    DDC2        IF DISPOSITION CODE SPECIFIED
Line S02145 Modification History
M01 (Removed by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02648  M01S02145.dsp15   ---|          LDD    T1          LOAD FILE TYPE
Line S00001 Modification History
M01 (Added by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02649  M01S00001.dsp15   +++|          LDD    FN+4        GET FILE TYPE
02650  M01S00002.dsp15   +++|          SHN    -6
02651  M00S02146.dsp     +++|          LMN    LOFT
02652  M00S02147.dsp     +++|          ZJN    DDC4        IF NOT QUEUED FILE
02653  M00S02148.dsp     +++|          UJN    DDCX        RETURN
02654  M00S02149.dsp     +++|
02655  M00S02150.dsp     +++|*         IF *DC=SO* OR *DC=SS*, VALIDATE CALLER.
02656  M00S02151.dsp     +++|
02657  M00S02152.dsp     +++| DDC2     LDD    CM+2
02658  M00S02153.dsp     +++|          LMC    2RSO
02659  M00S02154.dsp     +++|          ZJN    DDC3        IF *DC=SO*
02660  M00S02155.dsp     +++|          LMC    2RSO&2RSS
02661  M00S02156.dsp     +++|          NJN    DDC7        IF NOT *DC=SS*
02662  M00S02157.dsp     +++| DDC3     LDD    ST          VALIDATE CALLER
02663  M00S02158.dsp     +++|          LPC    SJFL+SYFL
02664  M00S02159.dsp     +++|          NJN    DDC7        IF *SYOT* OR *SSJ=*
02665  M00S02160.dsp     +++|          ERROR  /ERR/EC12   * DSP - INCORRECT REQUEST.*
02666  M00S02161.dsp     +++|
02667  M00S02162.dsp     +++|*         SET DEFAULT DISPOSITION CODE.
02668  M00S02163.dsp     +++|
02669  M00S02164.dsp     +++| DDC4     LDC    TSFN-TSFNL  PRESET TABLE INDEX
02670  M00S02165.dsp     +++|          STD    T1
02671  M00S02166.dsp     +++| DDC5     LDN    TSFNL       ADVANCE INDEX
02672  M00S02167.dsp     +++|          RAD    T1
02673  M00S02168.dsp     +++|          RJM    CFN         COMPARE FILE NAMES
02674  M00S02169.dsp     +++|          ZJN    DDC6        IF FILE FOUND
02675  M00S02170.dsp     +++|          PJN    DDC5        IF NO FILE NAME MATCH
Line S00001 Modification History
M01 (Added by) dsp17
Seq #  *Modification Id* Act 
----------------------------+
02676  M01S00001.dsp17   +++|          ERROR  /ERR/EC07   * DSP - INCORRECT DISPOSITION CODE.*
02677  M01S00002.dsp17   +++|
02678  M00S02171.dsp     +++| DDC6     LDM    4,T1        SET DEFAULT DISPOSITION
02679  M00S02172.dsp     +++|          STD    CM+2
02680  M00S02173.dsp     +++|
02681  M00S02174.dsp     +++|*         VALIDATE DISPOSITION CODE.
02682  M00S02175.dsp     +++|
02683  M00S02176.dsp     +++| DDC7     LDC    TODC-TODCL  SET TABLE INDEX
02684  M00S02177.dsp     +++|          STD    T1
02685  M00S02178.dsp     +++| DDC8     LDN    TODCL       ADVANCE INDEX
02686  M00S02179.dsp     +++|          RAD    T1
02687  M00S02180.dsp     +++|          LDI    T1
02688  M00S02181.dsp     +++|          NJN    DDC9        IF NOT END OF TABLE
02689  M00S02182.dsp     +++|          LDD    CM+2
02690  M00S02183.dsp     +++|          LMC    2RSC
Line S02184 Modification History
M01 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02691  M01S02184.ns2493  ---|          ZJN    DDC11       IF *DC=SC*
Line S00024 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02692  M01S00024.ns2493  +++|          ZJP    DDCX        IF *DC=SC*
Line S02185 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02693  M01S02185.v23l617 ---|          ERROR  /ERR/EC07   * DSP - INVALID DISPOSITION CODE.*
Line S00051 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02694  M01S00051.v23l617 +++|          ERROR  /ERR/EC07   * DSP - INCORRECT DISPOSITION CODE.*
02695  M00S02186.dsp     +++|
02696  M00S02187.dsp     +++| DDC9     LMD    CM+2
02697  M00S02188.dsp     +++|          NJN    DDC8        IF NO MATCH
02698  M00S02189.dsp     +++|          AOD    T1          SET NEW QUEUE TYPE
02699  M00S02190.dsp     +++|          LDI    T1          SAVE TABLE ENTRY FOR ROUTINE *SDC*
02700  M00S02191.dsp     +++|          STM    SDCA
Line S02192 Modification History
M01 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02701  M01S02192.ns2493  ---|          SHN    -6
02702  M01S02193.ns2493  ---|          NJN    DDC10       IF NOT INPUT FILE
02703  M01S02194.ns2493  ---|          LDM    FSOT        CHECK FOR FORCED ORIGIN TYPE
Line S00025 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02704  M01S00025.ns2493  +++|          SHN    -11
02705  M01S00026.ns2493  +++|          LMK    INQT
02706  M01S00027.ns2493  +++|          NJP    DDC17       IF NOT INPUT FILE
02707  M01S00028.ns2493  +++|
02708  M01S00029.ns2493  +++|*         VALIDATE FORCED JSN, IF ANY.
02709  M01S00030.ns2493  +++|
02710  M01S00031.ns2493  +++|          LDD    FB+1
02711  M01S00032.ns2493  +++|          LPN    FRFJ
02712  M01S00033.ns2493  +++|          ZJP    DDC15       IF FORCED JSN FLAG NOT SPECIFIED
02713  M01S00034.ns2493  +++|          STM    FSJS        SET FORCED JSN
02714  M01S00035.ns2493  +++|          LMD    FB+1        FORCE IMMEDIATE ROUTE FOR INPUT FILE
02715  M01S00036.ns2493  +++|          ERRNZ  FRFJ-FRDR   (CODE ASSUMES FRFJ AND FRDR ARE SAME FLAG)
02716  M01S00037.ns2493  +++|          STD    FB+1
02717  M01S00038.ns2493  +++|          LDD    OT
02718  M01S00039.ns2493  +++|          LMK    SYOT
02719  M01S00040.ns2493  +++|          NJP    DDC16       IF NOT SYSTEM ORIGIN
02720  M01S00041.ns2493  +++|          LDK    EJTP        READ EJT POINTER WORD
02721  M01S00042.ns2493  +++|          CRD    CM
02722  M01S00043.ns2493  +++|          LDN    0           START SEARCH AT ORDINAL 0
02723  M01S00044.ns2493  +++|          STD    CM
02724  M01S00045.ns2493  +++| DDC10    LDD    CM
02725  M01S00046.ns2493  +++|          SBD    CM+2
02726  M01S00047.ns2493  +++|          PJN    DDC12       IF END OF EJT
02727  M01S00048.ns2493  +++|          SFA    EJT,CM      GET EJT ENTRY
02728  M01S00049.ns2493  +++|          ADK    JSNE
02729  M01S00050.ns2493  +++|          CRD    CN
02730  M01S00051.ns2493  +++|          AOD    CM          INCREMENT EJT ORDINAL
02731  M01S00052.ns2493  +++|          LDD    CN
02732  M01S00053.ns2493  +++|          ZJN    DDC10       IF BLANK ENTRY
Line S00054 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02733  M02S00054.ns2556  ---|          LMM    SBSN
Line S00018 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02734  M01S00018.ns2556  +++|          LMM    FJSN
Line S00055 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02735  M01S00055.ns2493  +++|          NJN    DDC10       IF NO MATCH ON FIRST 2 CHARACTERS
02736  M01S00056.ns2493  +++|          LDD    CN+1        COMPARE REMAINDER OF JSN
Line S00057 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02737  M02S00057.ns2556  ---|          LMM    SBSN+1
Line S00019 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02738  M01S00019.ns2556  +++|          LMM    FJSN+1
Line S00058 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02739  M01S00058.ns2493  +++|          NJN    DDC10       IF NOT SAME JSN
02740  M01S00059.ns2493  +++| DDC11    ERROR  /ERR/EC50   * DSP - JSN ALREADY IN SYSTEM.*
02741  M01S00060.ns2493  +++|
02742  M01S00061.ns2493  +++| DDC12    LDC    TSSN        CHECK IF JSN MATCHES A SUBSYSTEM NAME
02743  M01S00062.ns2493  +++|          STD    T1
02744  M01S00063.ns2493  +++| DDC13    LDI    T1          SEARCH TABLE FOR SUBSYSTEM
Line S00064 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02745  M02S00064.ns2556  ---|          LMM    SBSN
Line S00020 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02746  M01S00020.ns2556  +++|          LMM    FJSN
Line S00065 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02747  M01S00065.ns2493  +++|          NJN    DDC14       IF NO MATCH
02748  M01S00066.ns2493  +++|          LDM    1,T1
Line S00067 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02749  M02S00067.ns2556  ---|          LMM    SBSN+1
Line S00021 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02750  M01S00021.ns2556  +++|          LMM    FJSN+1
Line S00068 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02751  M01S00068.ns2493  +++|          ZJN    DDC11       IF MATCH
02752  M01S00069.ns2493  +++| DDC14    LDN    TSSNE       GET NEXT TABLE ENTRY
02753  M01S00070.ns2493  +++|          RAD    T1
02754  M01S00071.ns2493  +++|          LMC    TSSNL
02755  M01S00072.ns2493  +++|          NJN    DDC13       IF NOT END OF TABLE
Line S00022 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02756  M01S00022.ns2556  +++|          RJM    VJS         VALIDATE JSN SPECIFICATION
Line S00073 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02757  M01S00073.ns2493  +++| DDC15    LDM    FSOT        CHECK FOR FORCED ORIGIN TYPE
02758  M00S02195.dsp     +++|          LMK    IAOT
02759  M00S02196.dsp     +++|          LPN    17
Line S02197 Modification History
M01 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02760  M01S02197.ns2493  ---|          NJN    DDC10       IF NOT INTERACTIVE ORIGIN TYPE
Line S02198 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02761  M02S02198.ns2493  ---|          ERROR  /ERR/EC40   * DSP - INVALID ORIGIN TYPE.*
Line S00052 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02762  M02S00052.ns2493  ---|          ERROR  /ERR/EC40   * DSP - INCORRECT ORIGIN TYPE.*
Line S00074 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02763  M01S00074.ns2493  +++|          NJN    DDC17       IF NOT INTERACTIVE ORIGIN TYPE
02764  M01S00075.ns2493  +++| DDC16    ERROR  /ERR/EC40   * DSP - INCORRECT ORIGIN TYPE.*
02765  M00S02199.dsp     +++|
Line S02200 Modification History
M01 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02766  M01S02200.ns2493  ---| DDC10    LDC    DCFL        SET DISPOSITION CODE SPECIFIED FLAG
Line S00076 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02767  M01S00076.ns2493  +++| DDC17    LDC    DCFL        SET DISPOSITION CODE SPECIFIED FLAG
02768  M00S02201.dsp     +++|          RAD    ST
02769  M00S02202.dsp     +++|          LDD    CM+2        SAVE FOR ACCOUNTING MESSAGE
02770  M00S02203.dsp     +++|          STM    SDCB
Line S02204 Modification History
M01 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02771  M01S02204.ns2493  ---| DDC11    LJM    DDCX        RETURN
Line S00077 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02772  M01S00077.ns2493  +++|          LJM    DDCX        RETURN
02773  M00S02205.dsp     +++| TODC     SPACE  4,10
02774  M00S02206.dsp     +++|**        TODC - TABLE OF DEFAULT ROUTING INFORMATION.
02775  M00S02207.dsp     +++|*
02776  M00S02208.dsp     +++|*T        12/ DC, 6/ QT, 3/ EC, 3/ IC.
Figure

02356111223 IC. EC QT DC

02777  M00S02209.dsp     +++|*
02778  M00S02210.dsp     +++|*         DC = DISPOSITION CODE. (DISPLAY CODE)
02779  M00S02211.dsp     +++|*         EC = EXTERNAL CHARACTERISTICS FOR QFT.
02780  M00S02212.dsp     +++|*         IC = INTERNAL CHARACTERISTICS FOR QFT.
02781  M00S02213.dsp     +++|*         QT = QUEUE TYPE FOR SPECIFIED DISPOSITION CODE.
02782  M00S02214.dsp     +++|
02783  M00S02215.dsp     +++|
02784  M00S02216.dsp     +++| IN$      EQU    1           ALLOW *DC=IN*
02785  M00S02217.dsp     +++| NO$      EQU    1           ALLOW *DC=NO*
02786  M00S02218.dsp     +++| TO$      EQU    1           ALLOW *DC=TO*
02787  M00S02219.dsp     +++| TT$      EQU    1           ALLOW *DC=TT*
02788  M00S02220.dsp     +++| SO$      EQU    1           ALLOW *DC=SO*
02789  M00S02221.dsp     +++| SS$      EQU    1           ALLOW *DC=SS*
02790  M00S02222.dsp     +++|
02791  M00S02223.dsp     +++| TODC     BSS    0
02792  M00S02224.dsp     +++|          DRIN   PR,DFEX,DCIC,LPQF           ANY PRINTER
02793  M00S02225.dsp     +++| TODCL    EQU    *-TODC                      LENGTH OF TABLE ENTRY
02794  M00S02226.dsp     +++|          DRIN   LP,DFEX,DCIC,LPQF           ANY PRINTER
02795  M00S02227.dsp     +++|          DRIN   P1,DFEX,DCIC,0              505 PRINTER
02796  M00S02228.dsp     +++|          DRIN   P2,DFEX,DCIC,P2QF           512 PRINTER
02797  M00S02229.dsp     +++|          DRIN   LQ,DFEX,DCIC,0              512 PRINTER
02798  M00S02230.dsp     +++|          DRIN   LR,DFEX,DCIC,LRQF           580-12 PRINTER
02799  M00S02231.dsp     +++|          DRIN   LS,DFEX,DCIC,LSQF           580-16 PRINTER
02800  M00S02232.dsp     +++|          DRIN   LT,DFEX,DCIC,LTQF           580-20 PRINTER
Line S00010 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02801  M01S00010.241l630 +++|          DRIN   LX,DFEX,DCIC,LXQF           5870 NIP
02802  M01S00011.241l630 +++|          DRIN   LY,DFEX,DCIC,LYQF           5970 NIP
02803  M00S02233.dsp     +++|          DRIN   SB,PBFR,BNIC,PUQF           PUNCH BINARY
02804  M00S02234.dsp     +++|          DRIN   P8,P8FR,BNIC,PUQF           PUNCH 80 COLUMN
02805  M00S02235.dsp     +++|          DRIN   PB,PBFR,BNIC,PUQF           PUNCH BINARY
02806  M00S02236.dsp     +++|          DRIN   TT,DFEX,DFEX,TQQF           TERMINAL OUTPUT
02807  M00S02237.dsp     +++|          DRIN   SS,DFEX,DFEX,SQQF           STATION OUTPUT
02808  M00S02238.dsp     +++|          DRIN   WT,DFEX,DFEX,TQQF           WAIT QUEUE
02809  M00S02239.dsp     +++| TODCA    EQU    *
02810  M00S02240.dsp     +++|          DRIN   PU,PHFR,DCIC,PUQF           PUNCH CODED
02811  M00S02241.dsp     +++| TODCB    EQU    *
02812  M00S02242.dsp     +++|          DRIN   PH,PHFR,DCIC,PUQF           PUNCH CODED
02813  M00S02243.dsp     +++|          DRIN   FR,T6EX,0,FRQF              MICROFILM PRINT
02814  M00S02244.dsp     +++|          DRIN   FL,T6EX,0,FLQF              MICROFILM PLOT
02815  M00S02245.dsp     +++|          DRIN   PL,T6EX,0,PLQF              PLOTTER
02816  M00S02246.dsp     +++|          DRIN   HR,T6EX,0,HRQF              HARD COPY PRINT
02817  M00S02247.dsp     +++|          DRIN   HL,T6EX,0,HLQF              HARD COPY PLOT
02818  M00S02248.dsp     +++|          DRIN   IN,0,0,INQF                 INPUT
02819  M00S02249.dsp     +++|          DRIN   NO,0,0,NOQF                 INPUT NO OUTPUT
02820  M00S02250.dsp     +++|*         DRIN   SC,0,0,LOFT                 SCRATCH
02821  M00S02251.dsp     +++|          DRIN   TO,0,0,TOQF                 INPUT, TERMINAL OUTPUT
02822  M00S02252.dsp     +++|          DRIN   SO,0,0,SOQF                 INPUT, STATION OUTPUT
02823  M00S02253.dsp     +++|          CON    0                END OF TABLE
02824  M00S02254.dsp     +++| TSFN     SPACE  4,10
02825  M00S02255.dsp     +++|**        TSFN - TABLE OF SPECIAL FILE NAMES AND DISPOSITION CODES.
02826  M00S02256.dsp     +++|*
02827  M00S02257.dsp     +++|*T        48/ FILE NAME ,12/ DC
Figure

0111229 DC FILE NAME 3059 FILE NAME

02828  M00S02258.dsp     +++|*
02829  M00S02259.dsp     +++|*         DC = DISPOSITION CODE.
02830  M00S02260.dsp     +++|
02831  M00S02261.dsp     +++|
02832  M00S02262.dsp     +++| TSFN     BSS    0
02833  M00S02263.dsp     +++|          VFD    48/0LOUTPUT,12/2LLP
02834  M00S02264.dsp     +++| TSFNL    EQU    *-TSFN      LENGTH OF ENTRY
02835  M00S02265.dsp     +++|          SPACE  4,10
02836  M00S02266.dsp     +++|          VFD    48/0LPUNCH,12/2LPU
02837  M00S02267.dsp     +++|          VFD    48/0LPUNCHB,12/2LSB
02838  M00S02268.dsp     +++|          VFD    48/0LP8,12/2LP8
02839  M00S02269.dsp     +++|          VFD    48/0,12/2LSC
Line S00078 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
02840  M01S00078.ns2493  +++| TSSN     SPACE  4,10
02841  M01S00079.ns2493  +++|**        TABLE OF SUBSYSTEM NAMES.
02842  M01S00080.ns2493  +++|*
02843  M01S00081.ns2493  +++|*         ENTRY FORMAT.
02844  M01S00082.ns2493  +++|*
02845  M01S00083.ns2493  +++|*T        24/ NAME
Figure

023 NAME

02846  M01S00084.ns2493  +++|*
02847  M01S00085.ns2493  +++|*         NAME = 3-CHARACTER SUBSYSTEM NAME + BLANK.
02848  M01S00086.ns2493  +++|
02849  M01S00087.ns2493  +++|
02850  M01S00088.ns2493  +++| TSSN     BSS    0
02851  M01S00089.ns2493  +++|          LIST   G
02852  M01S00090.ns2493  +++| .SSN     HERE
02853  M01S00091.ns2493  +++|          LIST   *
02854  M01S00092.ns2493  +++| TSSNL    BSS    0           END OF TABLE
02855  M00S02270.dsp     +++| FFQ      SPACE  4,20
02856  M00S02271.dsp     +++|**        FFQ - FIND FILE TO QUEUE.
02857  M00S02272.dsp     +++|*
02858  M00S02273.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
02859  M00S02274.dsp     +++|*                (FN - FN+4) = (UN - UN+4) = FILE NAME.
02860  M00S02275.dsp     +++|*                (ST) = STATUS WORD.
02861  M00S02276.dsp     +++|*
02862  M00S02277.dsp     +++|*         EXIT   (FN - FN+4) = FNT ENTRY.
02863  M00S02278.dsp     +++|*                (FS - FS+4) = FST ENTRY.
02864  M00S02279.dsp     +++|*                (FA) = NFL FNT ENTRY OFFSET.
02865  M00S02280.dsp     +++|*                (ST) = SET, IF FILE CREATION NEEDED.
02866  M00S02281.dsp     +++|*                (LFAL) = LOCAL FILE ACCESS LEVEL.
02867  M00S02282.dsp     +++|*
02868  M00S02283.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
02869  M00S02284.dsp     +++|*                FILE NAME ERROR.
02870  M00S02285.dsp     +++|*                IMMEDIATE ROUTE - NO FILE.
02871  M00S02286.dsp     +++|*                CANNOT ROUTE JOB INPUT FILE.
02872  M00S02287.dsp     +++|*                I/O SEQUENCE ERROR.
Line S02288 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02873  M01S02288.v23l617 ---|*                INVALID FILE MODE.
Line S00053 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02874  M01S00053.v23l617 +++|*                INCORRECT FILE MODE.
Line S00003 Modification History
M01 (Added by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02875  M01S00003.dsp15   +++|*                INVALID FILE TYPE.
02876  M00S02289.dsp     +++|*
Line S02290 Modification History
M01 (Removed by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02877  M01S02290.dsp15   ---|*         USES   ST, CM - CM+4, FN - FN+4.
Line S00004 Modification History
M01 (Added by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02878  M01S00004.dsp15   +++|*         USES   ST, T1, CM - CM+4, FN - FN+4.
02879  M00S02291.dsp     +++|*
02880  M00S02292.dsp     +++|*         CALLS  SAF, SFB, VFN, VMS.
02881  M00S02293.dsp     +++|*
02882  M00S02294.dsp     +++|*         MACROS ERROR, NFA.
02883  M00S02295.dsp     +++|
02884  M00S02296.dsp     +++|
02885  M00S02297.dsp     +++| FFQ      SUBR               ENTRY/EXIT
02886  M00S02298.dsp     +++|          LDC    **          FNT ADDRESS
02887  M00S02299.dsp     +++| FFQA     EQU    *-1         (SET BY PRESET)
02888  M00S02300.dsp     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
02889  M00S02301.dsp     +++|          NJN    FFQ3        IF FILE FOUND
02890  M00S02302.dsp     +++|          RJM    VFN         VERIFY FILE NAME
02891  M00S02303.dsp     +++|          NJN    FFQ1        IF VALID FILE NAME
02892  M00S02304.dsp     +++|          ERROR  /ERR/EC01   * DSP - FILE NAME ERROR.*
02893  M00S02305.dsp     +++|
Line S02306 Modification History
M01 (Removed by) dsp9
Seq #  *Modification Id* Act 
----------------------------+
02894  M01S02306.dsp9    ---| FFQ1     LDD    FB+1
02895  M01S02307.dsp9    ---|          SHN    21-0
02896  M01S02308.dsp9    ---|          MJN    FFQ2        IF DEFERRED ROUTE
02897  M01S02309.dsp9    ---|          ERROR  /ERR/EC06   * DSP - IMMEDIATE ROUTING - NO FILE.*
02898  M01S02310.dsp9    ---|
02899  M01S02311.dsp9    ---| FFQ2     LDC    LOFT*100    SET LOCAL FILE FOR *DDC*
Line S00002 Modification History
M01 (Added by) dsp9
Seq #  *Modification Id* Act 
----------------------------+
02900  M01S00002.dsp9    +++| FFQ1     LDC    LOFT*100    SET LOCAL FILE FOR *DDC*
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/dsp.001.txt ยท Last modified: by 127.0.0.1