User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0dq

Deck 0DQ

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0dq     +++|          IDENT  0DQ,DQFX
00002  M01S00002.0dq     +++|          PERIPH J
00003  M01S00003.0dq     +++|          BASE   MIXED
00004  M01S00004.0dq     +++|          SST
00005  M01S00005.0dq     +++|*COMMENT  0DQ - DEQUEUE FILE.
Line S00006 Modification History
M01 (Added by) 0dq
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.0dq     +++|          TITLE  0DQ - DEQUEUE FILE.
00009  M01S00008.0dq     +++|          SPACE  4,10
00010  M01S00009.0dq     +++|***       0DQ - DROP QUEUE FILE.
00011  M01S00010.0dq     +++|*
00012  M01S00011.0dq     +++|*         D. R. HILGREN.     79/10/30.
00013  M01S00012.0dq     +++|*         R. M. DESSEL.      81/03/26.
00014  M01S00013.0dq     +++|*         P. D. HAAS.        81/06/18.
00015  M01S00014.0dq     +++|          SPACE  4,10
00016  M01S00015.0dq     +++|***              *0DQ* IS A LOCATION-FREE ROUTINE USED TO DROP
00017  M01S00016.0dq     +++|*         A QFT ENTRY.  *0DQ* PERFORMS THE FOLLOWING -
00018  M01S00017.0dq     +++|*         1.  SEARCH FOR QFT ENTRY.
00019  M01S00018.0dq     +++|*         2.  CLEAR QFT ENTRY.
00020  M01S00019.0dq     +++|*         3.  DROP DISK SPACE IF REQUESTED.
00021  M01S00020.0dq     +++|*         4.  INCREMENT MASS STORAGE PRU COUNTER IF DISK SPACE DROPPED.
00022  M01S00021.0dq     +++|*         5.  ISSUE ACCOUNT FILE MESSAGE IF FILE REMOVED FROM QUEUE.
Line S00022 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00022.ns2663  ---|          SPACE  4,10
00024  M01S00001.ns2663  +++|          SPACE  4,15
00025  M01S00023.0dq     +++|***       ENTRY CONDITIONS.
00026  M01S00024.0dq     +++|*
Line S00025 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00025.ns2663  ---|*         (QA) = 0.  USE EQUIPMENT AND FIRST TRACK TO FIND
Line S00026 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00026.ns2663  ---|*                QFT ENTRY.
Line S00027 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00027.ns2663  ---|*         (QA) = QFT ORDINAL.  USE QFT ORDINAL TO FIND ENTRY.
00030  M01S00002.ns2663  +++|*         (QA) = 0.  USE EQUIPMENT AND FIRST TRACK TO FIND QFT ENTRY.
00031  M01S00003.ns2663  +++|*                THE QFT ENTRY WILL BE INTERLOCKED BY *0DQ* PRIOR TO
00032  M01S00004.ns2663  +++|*                DELETION FOR FUNCTIONS 0 AND 1.
00033  M01S00005.ns2663  +++|*         (QA) = QFT ORDINAL.  USE QFT ORDINAL TO FIND ENTRY.  THE
00034  M01S00006.ns2663  +++|*                CALLER OF *0DQ* MUST INTERLOCK THE QFT ENTRY PRIOR TO
00035  M01S00007.ns2663  +++|*                CALLING *0DQ*.
00036  M01S00028.0dq     +++|*         ((LA)-1) = 0   RELEASE QFT ENTRY AND DISK SPACE.
00037  M01S00029.0dq     +++|*                  = 1   RELEASE QFT ENTRY ONLY.
00038  M01S00030.0dq     +++|*                  = 2   RELEASE DISK SPACE ONLY (FILE NOT IN QFT).
00039  M01S00031.0dq     +++|*         (FS - FS+4) = FST INFORMATION.
00040  M01S00032.0dq     +++|          SPACE  4,10
00041  M01S00033.0dq     +++|***       EXIT CONDITIONS.
00042  M01S00034.0dq     +++|*
00043  M01S00035.0dq     +++|*         (A) = 0 IF REQUESTED DEQUEUEING OPERATION PERFORMED.
00044  M01S00036.0dq     +++|*             .LT. 0 IF QUEUE FILE DEVICE INACCESSIBLE.
00045  M01S00001.ns2553  +++|*         (T5) = QUEUE FILE DEVICE EST ORDINAL, IF DEVICE INACCESSIBLE.
00046  M01S00037.0dq     +++|*
00047  M01S00038.0dq     +++|*         (QA) = QFT ORDINAL, IF QFT ENTRY FOUND AND DEQUEUED.
00048  M01S00039.0dq     +++|*         (QA) = 0, IF QFT ENTRY NOT FOUND.
00049  M01S00040.0dq     +++|*
00050  M01S00041.0dq     +++|*         THE QUEUED FILE SYSTEM SECTOR WILL BE READ ON A RELEASE QFT
00051  M01S00042.0dq     +++|*         ONLY REQUEST (((LA)-1) =1) ONLY IF CREATION MODE IS NOT SET
00052  M01S00043.0dq     +++|*         IN THE QFT ENTRY.
00053  M01S00044.0dq     +++|          SPACE  4,10
00054  M01S00045.0dq     +++|***       USES.
00055  M01S00046.0dq     +++|*
00056  M01S00047.0dq     +++|*         USES   CM - CM+4, T1 - T7.
00057  M01S00048.0dq     +++|          SPACE  4,10
Line S00049 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00049.ns2663  ---|***       ACCOUNT DAYFILE MESSAGES.
Line S00050 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00050.ns2663  ---|*
Line S00051 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00051.ns2663  ---|*
Line S00052 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00052.ns2663  ---|*         *AEQP, C1, JSN, YYMMDD, HHMMSS, DC.*
Line S00053 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00053.ns2663  ---|*                QUEUED FILE CREATED ON DATE YYMMDD AT TIME
Line S00054 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00054.ns2663  ---|*                HHMMSS WITH ORIGINAL JOB SEQUENCE NAME JSN
Line S00055 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00064  M02S00055.ns2663  ---|*                HAS BEEN REMOVED FROM THE QUEUE.
Line S00056 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00056.ns2663  ---|*                THE FILE HAD A DISPOSITION CODE OF DC.
Line S00057 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00057.ns2663  ---|          SPACE  4,10
00067  M01S00058.0dq     +++|*         COMMON DECK MACROS AND DEFINITIONS.
00068  M01S00059.0dq     +++|
00069  M01S00060.0dq     +++|
00070  M01S00061.0dq     +++|*CALL     COMPMAC
00071  M01S00062.0dq     +++|*CALL     COMPREL
00072  M01S00063.0dq     +++|*CALL     COMSCPS
Line S00064 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00064.ns2663  ---|*CALL     COMSMSP
00074  M01S00065.0dq     +++|*CALL     COMSSSE
00075  M01S00066.0dq     +++|*CALL     COMSZOL
00076  M01S00067.0dq     +++|          SPACE  4,10
00077  M01S00068.0dq     +++|****      DIRECT LOCATION ASSIGNMENTS.
00078  M01S00069.0dq     +++|
00079  M01S00070.0dq     +++|
00080  M01S00071.0dq     +++| FS       EQU    20 - 24     FST INFORMATION (5 LOCATIONS)
00081  M01S00072.0dq     +++| QA       EQU    26          QFT ORDINAL
00082  M01S00073.0dq     +++|
00083  M01S00074.0dq     +++|****
00084  M01S00075.0dq     +++|          TITLE  MAIN ROUTINE.
00085  M01S00076.0dq     +++|**        DQF - MAIN ROUTINE.
00086  M01S00077.0dq     +++|
00087  M01S00078.0dq     +++|
00088  M01S00079.0dq     +++|          ORG    5
00089  M01S00080.0dq     +++| DQF      SUBR               ENTRY/EXIT
Line S00081 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00081.ns2663  ---|          LDD    FS+1
Line S00082 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00082.ns2663  ---|          STD    T6
00092  M01S00008.ns2663  +++|          UJN    DQF2        CHECK CALL PARAMETERS
00093  M01S00009.ns2663  +++|
00094  M01S00010.ns2663  +++| DQF1     RJM.   EXR         CALL *0QM* TO ISSUE ACCOUNTING MESSAGE
00095  M01S00011.ns2663  +++|          LDN    0           SET OPERATION COMPLETE
00096  M01S00012.ns2663  +++|          UJN    DQFX        RETURN
00097  M01S00013.ns2663  +++|
00098  M01S00014.ns2663  +++|          VFD    24/0LAEQP   *AEQP* MESSAGE IDENTIFIER
00099  M01S00015.ns2663  +++| OVLA     EQU    *           *0QM* LOAD ADDRESS
00100  M01S00016.ns2663  +++|
00101  M01S00017.ns2663  +++| DQF2     LDD    FS+1
00102  M01S00018.ns2663  +++|          STD    T6          SET FIRST TRACK
00103  M01S00083.0dq     +++|          ADD    QA
00104  M01S00084.0dq     +++|          ZJN    DQFX        IF FILE UNUSED/NULL REQUEST
00105  M01S00085.0dq     +++|          LDD    FS
00106  M01S00086.0dq     +++|          STD    T5          SET EST ORDINAL
00107  M01S00087.0dq     +++|          LDM    -1
00108  M01S00088.0dq     +++|          STI    LA          PRESERVE DEQUEUE OPTION
00109  M01S00089.0dq     +++|          SBN    2
Line S00090 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00090.ns2663  ---|          ZJN    DQF1        IF FILE NOT IN QFT
Line S00091 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00091.ns2663  ---|          LDN    QFTP
Line S00092 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00092.ns2663  ---|          CRD    CM
Line S00093 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00093.ns2663  ---|          LDD    CM+1        SET QFT ADDRESS
Line S00094 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00094.ns2663  ---|          RAM    SGQA
Line S00095 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00095.ns2663  ---|          SHN    -14
Line S00096 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00096.ns2663  ---|          ADD    CM
Line S00097 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00097.ns2663  ---|          RAM    SGQA-1
00118  M01S00019.ns2663  +++|          ZJN    DQF3        IF FILE NOT IN QFT
00119  M01S00020.ns2663  +++|          RJM    IFP         INITIALIZE QFT PROCESSOR
00120  M01S00098.0dq     +++|          RJM    SGQ         SEARCH GLOBAL QUEUE
Line S00099 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00099.ns2663  ---|          ZJN    DQFX        IF ENTRY NOT FOUND
00122  M01S00021.ns2663  +++|          ZJN    DQFX        IF FILE NOT FOUND
00123  M01S00100.0dq     +++|          LDD    T4
00124  M01S00101.0dq     +++|          LPN    4
Line S00102 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00102.ns2663  ---| DQF1     ZJN    DQF4        IF NOT CREATION MODE
Line S00103 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00103.ns2663  ---| DQF2     LDI    LA
00127  M01S00022.ns2663  +++| DQF3     NJN    DQF4        IF CREATION MODE
00128  M01S00023.ns2663  +++|          RJM    RSS         READ QUEUE FILE SYSTEM SECTOR
00129  M01S00024.ns2663  +++|          MJN    DQF6        IF RECOVERABLE MASS STORAGE ERROR
00130  M01S00025.ns2663  +++|          NJN    DQF4        IF ERROR IN SYSTEM SECTOR
00131  M01S00026.ns2663  +++|          LDI    LA
00132  M01S00027.ns2663  +++|          SBN    1
00133  M01S00028.ns2663  +++|          ZJN    DQF4        IF NOT TO DROP DISK SPACE
00134  M01S00029.ns2663  +++|          RJM    DDS         DROP DISK SPACE
00135  M01S00030.ns2663  +++|          MJN    DQF6        IF DEVICE INACCESSIBLE
00136  M01S00031.ns2663  +++| DQF4     LDI    LA
00137  M01S00104.0dq     +++|          SBN    2
Line S00105 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00105.ns2663  ---|          ZJN    DQF3        IF FILE NOT IN QFT
Line S00106 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00106.ns2663  ---|          SETMS  STATUS
Line S00107 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00107.ns2663  ---|          MJN    DQF3        IF DEVICE INACCESSIBLE
00141  M01S00032.ns2663  +++|          ZJN    DQF5        IF FILE NOT IN QFT
00142  M01S00108.0dq     +++|          LDD    QA
00143  M01S00109.0dq     +++|          STD    CM+1
00144  M01S00110.0dq     +++|          LDN    PQFT
00145  M01S00111.0dq     +++|          STD    CM+2
00146  M01S00112.0dq     +++|          MONITOR  MTRM      RELEASE QFT ENTRY
Line S00113 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00113.ns2663  ---|*         LDN    0
Line S00114 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00114.ns2663  ---| DQF3     LJM    DQFX        RETURN
00149  M01S00033.ns2663  +++| DQF5     LDM    FIQF
00150  M01S00034.ns2663  +++|          ZJN    DQF8        IF FILE NOT QUEUED
00151  M01S00035.ns2663  +++|          LDN    OVLA        SET *0QM* LOAD ADDRESS
00152  M01S00036.ns2663  +++|          RAD    LA
00153  M01S00037.ns2663  +++|          EXECUTE  0QM,*
00154  M01S00038.ns2663  +++|          LJM    DQF1-OVLA   CALL *0QM* TO ISSUE ACCOUNTING MESSAGE
00155  M01S00115.0dq     +++|
Line S00116 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00116.ns2663  ---|*         ISSUE ACCOUNTING MESSAGE IF FILE HAS BEEN QUEUED.
00157  M01S00039.ns2663  +++| DQF6     LDM    QFIF
00158  M01S00040.ns2663  +++|          ZJN    DQF7        IF QFT INTERLOCK NOT SET BY *0DQ*
00159  M01S00041.ns2663  +++|          LDN    CFIN        SET CLEAR INTERLOCK FUNCTION
00160  M01S00042.ns2663  +++|          RJM    IQF         CLEAR QFT INTERLOCK
00161  M01S00043.ns2663  +++| DQF7     LCN    0           SET DEVICE INACCESSIBLE
00162  M01S00044.ns2663  +++| DQF8     LJM    DQFX        RETURN
00163  M01S00117.0dq     +++|
Line S00118 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00118.ns2663  ---| DQF4     STD    T7          SET SYSTEM SECTOR
Line S00119 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00119.ns2663  ---|          SETMS  IO,NS
Line S00120 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00120.ns2663  ---|          MJN    DQF3        IF DEVICE INACCESSIBLE
Line S00121 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00121.ns2663  ---|          LDC    BFMS        READ SYSTEM SECTOR
Line S00122 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00122.ns2663  ---|          RJP    RDS
Line S00123 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00123.ns2663  ---|          MJN    DQF5        IF READ ERROR
Line S00124 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00124.ns2663  ---|          ENDMS
Line S00125 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00125.ns2663  ---|          LDP    BFMS+1
Line S00126 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00126.ns2663  ---|          LMN    77
Line S00127 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00127.ns2663  ---|          NJN    DQF5        IF BAD SYSTEM SECTOR LINKAGE
Line S00128 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00128.ns2663  ---|          LDP    BFMS
Line S00129 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00129.ns2663  ---|          LMC    3777
Line S00130 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00130.ns2663  ---|          NJN    DQF5        IF NOT SYSTEM SECTOR LINKAGE
Line S00131 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00131.ns2663  ---|          LDP    FTSS
Line S00132 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00132.ns2663  ---|          LMD    T6
Line S00133 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00133.ns2663  ---|          NJN    DQF5        IF INCORRECT SYSTEM SECTOR
Line S00134 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00134.ns2663  ---|          LDP    FGSS
Line S00135 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00135.ns2663  ---|          LPN    1
Line S00136 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2553
M03 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00182  M03S00136.ns2663  ---|          ZJN    DQF5        IF FILE NOT QUEUED
Line S00137 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00137.ns2663  ---|          STD    T7
Line S00138 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2553
M03 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00184  M03S00138.ns2663  ---|          RJM    IAM         ISSUE ACCOUNTING MESSAGE
Line S00139 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00139.ns2663  ---| DQF5     LDI    LA
Line S00140 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00140.ns2663  ---|          SBN    1
Line S00141 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2553
M03 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00187  M03S00141.ns2663  ---|          ZJN    DQF6        IF NOT TO DROP DISK SPACE
Line S00002 Modification History
M01 (Added by) ns2553
M02 (Updated by) 0dq2
M03 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00188  M03S00002.ns2663  ---|          ZJP    DQF2        IF NOT TO DROP DISK SPACE
Line S00001 Modification History
M01 (Added by) 0dq2
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00001.ns2663  ---|          ZJP    DQF6        IF NOT TO DROP DISK SPACE
00190  M01S00045.ns2663  +++|
00191  M01S00046.ns2663  +++| FIQF     CON    0           FILE QUEUED FLAG
00192  M01S00047.ns2663  +++| QFIF     CON    0           QFT INTERLOCK SET BY *0DQ* FLAG
00193  M01S00048.ns2663  +++|          TITLE  SUBROUTINES.
00194  M01S00049.ns2663  +++| DDS      SPACE  4,15
00195  M01S00050.ns2663  +++|**        DDS - DROP QUEUE FILE DISK SPACE.
00196  M01S00051.ns2663  +++|*
00197  M01S00052.ns2663  +++|*         ENTRY  (FIQF) .NE. 0 IF FILE QUEUED.
00198  M01S00053.ns2663  +++|*
00199  M01S00054.ns2663  +++|*         EXIT   (A) .GE. 0 IF DISK SPACE DROPPED.
00200  M01S00055.ns2663  +++|*                (A) .LT. 0 IF DEVICE INACCESSIBLE.
00201  M01S00056.ns2663  +++|*                MASS STORAGE SECTOR LIMIT INCREMENTED IF FILE NOT
00202  M01S00057.ns2663  +++|*                  QUEUED.
00203  M01S00058.ns2663  +++|*
00204  M01S00059.ns2663  +++|*         USES   (CM - CM+2).
00205  M01S00060.ns2663  +++|*
00206  M01S00061.ns2663  +++|*         MACROS MONITOR.
00207  M01S00062.ns2663  +++|
00208  M01S00063.ns2663  +++|
00209  M01S00064.ns2663  +++| DDS      SUBR               ENTRY/EXIT
00210  M01S00142.0dq     +++|          LDD    T6
00211  M01S00143.0dq     +++|          STD    CM+2
00212  M01S00144.0dq     +++|          LDD    T5          RELEASE TRACK CHAIN
Line S00145 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00145.ns2553  ---|          LMC    4000
00214  M01S00003.ns2553  +++|          LMC    5000        CHECKPOINT / RETURN ON INACCESSIBLE DEVICE
00215  M01S00146.0dq     +++|          STD    CM+1
00216  M01S00147.0dq     +++|          MONITOR  DTKM
00217  M01S00004.ns2553  +++|          LDD    CM+1
00218  M01S00005.ns2553  +++|          SHN    21-11
Line S00006 Modification History
M01 (Added by) ns2553
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00006.ns2663  ---|          MJP    DQFX        IF DEVICE INACCESSIBLE
Line S00148 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00220  M02S00148.ns2663  ---|          LDD    T7
Line S00149 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2553
M03 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00221  M03S00149.ns2663  ---|          NJN    DQF6        IF FILE QUEUED
Line S00007 Modification History
M01 (Added by) ns2553
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00007.ns2663  ---|          NJN    DQF7        IF FILE QUEUED
00223  M01S00065.ns2663  +++|          MJN    DDSX        IF DEVICE INACCESSIBLE
00224  M01S00066.ns2663  +++|          LDM    FIQF
00225  M01S00067.ns2663  +++|          NJN    DDSX        IF FILE QUEUED
00226  M01S00150.0dq     +++|
00227  M01S00151.0dq     +++|*         ACTUAL COUNT OF SECTORS RETURNED VIA *DTKM* IS IN CM+3 - CM+4.
00228  M01S00152.0dq     +++|
00229  M01S00153.0dq     +++|          LDN    CICS        INCREMENT CP AREA FIELD FUNCTION CODE
00230  M01S00154.0dq     +++|          STD    CM
00231  M01S00155.0dq     +++|          LDK    ACLW        ADDRESS OF MASS STORAGE SECTOR LIMIT
00232  M01S00156.0dq     +++|          STD    CM+1
00233  M01S00157.0dq     +++|          LDN    0D*100+18D  POSISTION AND WIDTH OF LIMIT FIELD
00234  M01S00158.0dq     +++|          STD    CM+2
00235  M01S00159.0dq     +++|          LDD    MA          UADM FUNCTION MESSAGE BUFFER CONTENTS
00236  M01S00160.0dq     +++|          CWD    CM
00237  M01S00161.0dq     +++|          LDN    1           SET UADM REQUEST COUNT AND NO DROP OF PPU
00238  M01S00162.0dq     +++|          STD    CM+1
00239  M01S00163.0dq     +++|          STD    CM+2
00240  M01S00164.0dq     +++|          MONITOR UADM       INCREMENT MASS STORAGE SECTOR LIMIT
Line S00165 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00165.ns2553  ---| DQF6     LJM    DQF2        CHECK RELEASE OF QFT ENTRY
Line S00008 Modification History
M01 (Added by) ns2553
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00008.ns2663  ---| DQF6     LDD    T7
Line S00009 Modification History
M01 (Added by) ns2553
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00009.ns2663  ---|          ZJN    DQF8        IF FILE NOT QUEUED
Line S00010 Modification History
M01 (Added by) ns2553
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00010.ns2663  ---| DQF7     RJM    IAM
Line S00011 Modification History
M01 (Added by) ns2553
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00011.ns2663  ---| DQF8     LJM    DQF2        CHECK RELEASE OF QFT ENTRY
Line S00166 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00166.ns2663  ---|          TITLE  SUBROUTINES.
Line S00167 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00167.ns2663  ---| SGQ      SPACE  4,15
00248  M01S00068.ns2663  +++|*         LDN    0
00249  M01S00069.ns2663  +++|          LJM    DDSX        RETURN
00250  M01S00070.ns2663  +++| IQF      SPACE  4,15
00251  M01S00071.ns2663  +++|**        IQF - SET OR CLEAR QFT INTERLOCK.
00252  M01S00072.ns2663  +++|*
00253  M01S00073.ns2663  +++|*         ENTRY  (A) = FUNCTION CODE FOR *SFI*.
00254  M01S00074.ns2663  +++|*                (QA) = QFT ORDINAL.
00255  M01S00075.ns2663  +++|*
00256  M01S00076.ns2663  +++|*         EXIT   (A) = 0 IF OPERATION COMPLETE.
00257  M01S00077.ns2663  +++|*                (A) .NE. 0 IF ERROR (OPERATOR OVERRIDE).
00258  M01S00078.ns2663  +++|*
00259  M01S00079.ns2663  +++|*         USES   T1.
00260  M01S00080.ns2663  +++|*
00261  M01S00081.ns2663  +++|*         CALLS  SFI.
00262  M01S00082.ns2663  +++|*
00263  M01S00083.ns2663  +++|*         MACROS SFA.
00264  M01S00084.ns2663  +++|
00265  M01S00085.ns2663  +++|
00266  M01S00086.ns2663  +++| IQF      SUBR               ENTRY/EXIT
00267  M01S00087.ns2663  +++|          STD    T1          SET FUNCTION CODE
00268  M01S00088.ns2663  +++|          SFA    QFT,QA      SET QFT ADDRESS
00269  M01S00089.ns2663  +++|          RJM    SFI         INTERLOCK QFT ENTRY
00270  M01S00090.ns2663  +++|          UJN    IQFX        RETURN
00271  M01S00091.ns2663  +++| RSS      SPACE  4,20
00272  M01S00092.ns2663  +++|**        RSS - READ QUEUE FILE SYSTEM SECTOR.
00273  M01S00093.ns2663  +++|*
00274  M01S00094.ns2663  +++|*         ENTRY  (A) = 0.
00275  M01S00095.ns2663  +++|*                (T5) = EST ORDINAL OF QUEUE FILE.
00276  M01S00096.ns2663  +++|*                (T6) = FIRST TRACK OF QUEUE FILE.
00277  M01S00097.ns2663  +++|*
00278  M01S00098.ns2663  +++|*         EXIT   (A) = 0 IF NO ERROR.
00279  M01S00099.ns2663  +++|*                (A) .LT. 0 IF RECOVERABLE MASS STORAGE ERROR.
00280  M01S00100.ns2663  +++|*                (A) .GT. 0 IF UNRECOVERABLE MASS STORAGE ERROR OR
00281  M01S00101.ns2663  +++|*                  ERROR IN SYSTEM SECTOR.
00282  M01S00102.ns2663  +++|*                (FIQF) .NE. 0 IF FILE QUEUED.
00283  M01S00103.ns2663  +++|*                (FIQF) = 0 IF FILE NOT QUEUED.
00284  M01S00104.ns2663  +++|*
00285  M01S00105.ns2663  +++|*         USES   T7.
00286  M01S00106.ns2663  +++|*
00287  M01S00107.ns2663  +++|*         CALLS  RDS.
00288  M01S00108.ns2663  +++|*
00289  M01S00109.ns2663  +++|*         MACROS ENDMS, SETMS.
00290  M01S00110.ns2663  +++|
00291  M01S00111.ns2663  +++|
00292  M01S00112.ns2663  +++| RSS3     LMC    2000
00293  M01S00113.ns2663  +++|          SHN    21-12       (A) .LT. 0 IF ERROR RECOVERABLE
00294  M01S00114.ns2663  +++|
00295  M01S00115.ns2663  +++| RSS      SUBR               ENTRY/EXIT
00296  M01S00116.ns2663  +++|          STD    T7          SET SYSTEM SECTOR READ
00297  M01S00117.ns2663  +++|          SETMS  IO
00298  M01S00118.ns2663  +++|          LDC    BFMS        READ SYSTEM SECTOR
00299  M01S00119.ns2663  +++|          RJP    RDS
00300  M01S00120.ns2663  +++|          MJN    RSS3        IF READ ERROR
00301  M01S00121.ns2663  +++|          ENDMS
00302  M01S00122.ns2663  +++|          LDP    BFMS+1
00303  M01S00123.ns2663  +++|          LMN    77
00304  M01S00124.ns2663  +++|          NJN    RSSX        IF NOT SYSTEM SECTOR LINKAGE
00305  M01S00125.ns2663  +++|          LDP    BFMS
00306  M01S00126.ns2663  +++|          LMC    3777
00307  M01S00127.ns2663  +++|          NJN    RSSX        IF NOT SYSTEM SECTOR LINKAGE
00308  M01S00128.ns2663  +++|          LDP    FTSS
00309  M01S00129.ns2663  +++|          LMD    T6
00310  M01S00130.ns2663  +++| RSS1     NJN    RSSX        IF INCORRECT SYSTEM SECTOR
00311  M01S00131.ns2663  +++|          LDP    FNSS+4      CHECK FILE TYPE
00312  M01S00132.ns2663  +++|          SHN    -6
00313  M01S00133.ns2663  +++|          LMN    QFFT
00314  M01S00134.ns2663  +++|          ZJN    RSS2        IF QUEUE FILE
00315  M01S00135.ns2663  +++|          LMN    INFT&QFFT
00316  M01S00136.ns2663  +++|          NJN    RSS1        IF NOT QUEUE FILE
00317  M01S00137.ns2663  +++| RSS2     LDP    FGSS        SET FILE QUEUED STATUS
00318  M01S00138.ns2663  +++|          LPN    1
00319  M01S00139.ns2663  +++|          STM    FIQF
00320  M01S00140.ns2663  +++|          LDN    0           SET NO ERROR
00321  M01S00141.ns2663  +++|          LJM    RSSX        RETURN WITH ERROR STATUS
00322  M01S00142.ns2663  +++| SGQ      SPACE  4,25
00323  M01S00168.0dq     +++|**        SGQ - SEARCH GLOBAL QUEUE.
00324  M01S00169.0dq     +++|*
00325  M01S00170.0dq     +++|*         ENTRY  (QA) = 0 IF QFT SEARCH REQUIRED.
Line S00171 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00171.ns2663  ---|*                     = QFT ORDINAL.
Line S00172 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00172.ns2663  ---|*                (CM+2) = LIMIT VALUE FOR QFT SEARCH.
00328  M01S00143.ns2663  +++|*                     = QFT ORDINAL IF SPECIFIED.
00329  M01S00173.0dq     +++|*                (FS - FS+4) = FST INFORMATION.
00330  M01S00144.ns2663  +++|*                QFT INTERLOCKED IF (QA) .NE. 0.
00331  M01S00174.0dq     +++|*
Line S00175 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00175.ns2663  ---|*         EXIT   (A) = (QA) = 0, IF QFT ENTRY NOT FOUND.
Line S00176 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00176.ns2663  ---|*                (A) = (QA) = QFT ORDINAL, IF ENTRY FOUND.
00334  M01S00145.ns2663  +++|*         EXIT   (A) = 0, IF QFT ENTRY NOT FOUND OR ERROR IN
00335  M01S00146.ns2663  +++|*                      INTERLOCKING QFT ENTRY (OPERATOR OVERRIDE).
00336  M01S00147.ns2663  +++|*                (QA) = QFT ORDINAL, IF ENTRY FOUND.
00337  M01S00177.0dq     +++|*                (T4) = CREATION MODE FLAG.
00338  M01S00178.0dq     +++|*                (T5) = EST ORDINAL.
00339  M01S00179.0dq     +++|*                (T6) = FIRST TRACK.
00340  M01S00148.ns2663  +++|*                (QFIF) .NE. 0 IF QFT ENTRY INTERLOCKED BY *0DQ*.
00341  M01S00180.0dq     +++|*
Line S00181 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00181.ns2663  ---|*         USES   T0 - T7, CM - CM+1.
00343  M01S00149.ns2663  +++|*         USES   QA, CM - CM+4, T0 - T7.
00344  M01S00150.ns2663  +++|*
00345  M01S00151.ns2663  +++|*         CALLS  IQF.
00346  M01S00152.ns2663  +++|*
00347  M01S00153.ns2663  +++|*         MACROS ISTORE, SFA.
00348  M01S00182.0dq     +++|
00349  M01S00183.0dq     +++|
Line S00184 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00184.ns2663  ---| SGQ1     AOD    QA          ADVANCE ORDINAL
00351  M01S00154.ns2663  +++| SGQ1     LDN    QFTP        READ QFT POINTERS
00352  M01S00155.ns2663  +++|          CRD    CM
00353  M01S00156.ns2663  +++| SGQ2     AOD    QA          ADVANCE ORDINAL
00354  M01S00185.0dq     +++|          LMD    CM+2
Line S00186 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00186.ns2663  ---|          ZJN    SGQ4        IF END OF QFT
Line S00187 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00187.ns2663  ---| SGQ2     CFI    QFT,QA
Line S00188 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00188.ns2663  ---|          ADC    JSNQ        READ CREATION MODE FLAG
Line S00189 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00189.ns2663  ---| SGQA     EQU    *-1
00359  M01S00157.ns2663  +++|          ZJN    SGQX        IF END OF QFT
00360  M01S00158.ns2663  +++| SGQ3     SFA    QFT,QA      SET QFT ADDRESS
00361  M01S00159.ns2663  +++|          ADK    JSNQ        READ CREATION MODE FLAG
00362  M01S00190.0dq     +++|          CRD    T0
00363  M01S00191.0dq     +++|          ADN    ENTQ-JSNQ   READ MASS STORAGE PARAMETERS
00364  M01S00192.0dq     +++|          CRD    T5
Line S00193 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00193.ns2663  ---| SGQB     LDD    T6          COMPARE FIRST TRACK
Line S00194 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00194.ns2663  ---|*         UJN    SGQ3        (QFT ORDINAL SPECIFIED)
00367  M01S00160.ns2663  +++| SGQA     LDD    T6          COMPARE FIRST TRACK
00368  M01S00161.ns2663  +++|*         UJN    SGQX        (QFT ORDINAL SPECIFIED)
00369  M01S00195.0dq     +++|          LMD    FS+1
Line S00196 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00196.ns2663  ---|          NJN    SGQ1        IF NO MATCH
00371  M01S00162.ns2663  +++|          NJN    SGQ2        IF NO MATCH
00372  M01S00197.0dq     +++|          LDD    T5
00373  M01S00198.0dq     +++|          LMD    FS
Line S00199 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00199.ns2663  ---|          NJN    SGQ1        IF NOT SAME EQUIPMENT
Line S00200 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00200.ns2663  ---| SGQ3     LDD    QA
Line S00201 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00201.ns2663  ---| SGQ4     STD    QA
00377  M01S00163.ns2663  +++|          NJN    SGQ2        IF NOT SAME EQUIPMENT
00378  M01S00164.ns2663  +++|          LDN    SFIN        SET INTERLOCK FUNCTION
00379  M01S00165.ns2663  +++|          RJM    IQF         INTERLOCK QFT ENTRY
00380  M01S00166.ns2663  +++|          ZJN    SGQ4        IF ENTRY INTERLOCKED
00381  M01S00167.ns2663  +++|          LDN    1
00382  M01S00168.ns2663  +++| SGQ4     LMN    1
00383  M01S00169.ns2663  +++|          STM    QFIF        SET INTERLOCK FLAG
00384  M01S00202.0dq     +++|
00385  M01S00203.0dq     +++| SGQ      SUBR               ENTRY/EXIT
00386  M01S00204.0dq     +++|          LDD    QA
Line S00205 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00205.ns2663  ---|          ZJN    SGQ1        IF QFT ORDINAL UNKNOWN
Line S00206 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00206.ns2663  ---|          ISTORE SGQB,(UJN SGQ3)  BYPASS QFT SEARCH
Line S00207 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00207.ns2663  ---|          UJN    SGQ2        FETCH MASS STORAGE PARAMETERS
00390  M01S00170.ns2663  +++|          ZJN    SGQ1        IF QFT ORDINAL NOT SPECIFIED
00391  M01S00171.ns2663  +++|          ISTORE SGQA,(UJN SGQX)  BYPASS QFT SEARCH
00392  M01S00172.ns2663  +++|          UJN    SGQ3        FETCH MASS STORAGE PARAMETERS
00393  M01S00208.0dq     +++|          SPACE  4,10
00394  M01S00209.0dq     +++|**        COMMON DECKS.
00395  M01S00210.0dq     +++|
00396  M01S00211.0dq     +++|
Line S00212 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00212.ns2663  ---|*CALL     COMPCDD
Line S00213 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00213.ns2663  ---| EQP$     EQU    0           SELECT STANDARD ACCOUNTING MESSAGE
Line S00214 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00214.ns2663  ---| ZLO$     EQU    0           SPECIFY ZERO LEVEL OVERLAY CALL
Line S00215 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00215.ns2663  ---|*CALL     COMPIAM
00401  M01S00173.ns2663  +++| QFT$     EQU    1           ASSEMBLE QFT PROCESSOR
00402  M01S00174.ns2663  +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION CODE
00403  M01S00175.ns2663  +++|*CALL     COMPGFP
00404  M01S00176.ns2663  +++|*CALL     COMPSFI
00405  M01S00177.ns2663  +++|
00406  M01S00178.ns2663  +++|
00407  M01S00179.ns2663  +++| IFP      HERE               *COMPGFP* INITIALIZATION
00408  M01S00216.0dq     +++|
00409  M01S00217.0dq     +++|
00410  M01S00218.0dq     +++|          RSTR
00411  M01S00219.0dq     +++|          SPACE  4,10
00412  M01S00180.ns2663  +++|          ERRNG  ZDQL-OVLA-ZQML  *0QM* OVERFLOWS *0DQ*
00413  M01S00181.ns2663  +++|
00414  M01S00220.0dq     +++|          OVERFLOW  5,ZDQL
00415  M01S00221.0dq     +++|          SPACE  4,10
00416  M01S00222.0dq     +++|          END
00417  M01S00014.0dq     +++|0FA
Line S36993 Modification History
M01 (Yanked) (Added by) @012607
M02 (Yanked) (Updated by) @009032
M03 (Yanked) (Updated by) @020735
Seq #  *Modification Id* Act 
----------------------------+
00418  M03S36993.@020735 ---|
00419  M01S00005.0dq     +++|          SST
00420  M01S00006.0dq     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00421  M01S00007.0dq     +++|*COMMENT  0FA - RELEASE FAST ATTACH PERMANENT FILE.
Line S00008 Modification History
M01 (Added by) 0dq
M02 (Updated by) 0dq2
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00008.0dq2    ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
00423  M01S00001.0dq2    +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00424  M01S00009.0dq     +++|          SPACE  4
00425  M01S00010.0dq     +++|***       0FA - RELEASE FAST ATTACH PERMANENT FILE.
00426  M01S00011.0dq     +++|*         M. E. MADDEN.      73/07/10.
00427  M01S00012.0dq     +++|*         S. L. KSANDER.     75/05/26.
00428  M01S00013.0dq     +++|          SPACE  4
00429  M01S00014.0dq     +++|***              0FA IS A LOCATION FREE ROUTINE TO BE USED FOR
00430  M01S00015.0dq     +++|*         RELEASING FAST ATTACH PERMANENT FILES.
00431  M01S00016.0dq     +++|*
00432  M01S00017.0dq     +++|*         IF THE FILE IS ATTACHED IN WRITE MODE THE MODE BITS
00433  M01S00018.0dq     +++|*         FOR THE FILE WILL BE UPDATED TO CLEAR THE WRITE LOCKOUT
00434  M01S00019.0dq     +++|*         STATUS.  THE ACTIVE FILE COUNT IN THE MST WILL ALSO
00435  M01S00020.0dq     +++|*         BE DECREMENTED FOR THIS FILE.  AN EVENT WILL BE
00436  M01S00021.0dq     +++|*         ISSUED TO ROLL IN USERS WAITING FOR THE FILE.
00437  M01S00022.0dq     +++|*
00438  M01S00023.0dq     +++|*         IF THE FILE WAS ATTACHED IN READ MODE THE USER COUNTS FOR
00439  M01S00024.0dq     +++|*         THE FILE WILL BE UPDATED TO REFLECT ONE LESS USER
00440  M01S00025.0dq     +++|*         ACCESSING THE FILE.
00441  M01S00026.0dq     +++|*
00442  M01S00027.0dq     +++|*         UPDATING OF THE ECS ENTRY AND THE LOCAL FNT IS HANDLED
00443  M01S00028.0dq     +++|*         BY CPU MONITOR THROUGH THE *AFAM* MONITOR FUNCTION.
00444  M01S00029.0dq     +++|          SPACE  4
00445  M01S00030.0dq     +++|***       CALL.
00446  M01S00031.0dq     +++|*
00447  M01S00032.0dq     +++|*         ENTRY  ((LA)-1) = FILE STATUS.
00448  M01S00033.0dq     +++|*                         6/,1/0,1/A,1/M,1/E,1/U,1/R
00449  M01S00034.0dq     +++|*                            A = APPEND
00450  M01S00035.0dq     +++|*                            M = MODIFY
00451  M01S00036.0dq     +++|*                            E = EXECUTE
00452  M01S00037.0dq     +++|*                            U = UTILITY ATTACH (ALWAYS ZERO FOR *0FA*)
00453  M01S00038.0dq     +++|*                            R = READ ONLY
00454  M01S00039.0dq     +++|*                (FS - FS+4) = FST INFORMATION.
00455  M01S00040.0dq     +++|*
00456  M01S00041.0dq     +++|*         EXIT   (A) = 0.
00457  M01S00042.0dq     +++|          SPACE  4
00458  M01S00043.0dq     +++|*CALL     COMPMAC
00459  M01S00044.0dq     +++|*CALL     COMSCPS
00460  M01S00045.0dq     +++|*CALL     COMSMST
00461  M01S00046.0dq     +++|*CALL     COMSPFM
00462  M01S00047.0dq     +++|*CALL     COMSZOL
00463  M01S00048.0dq     +++|*CALL     COMPREL
00464  M01S00049.0dq     +++|          SPACE  4,10
00465  M01S00050.0dq     +++|****      DIRECT LOCATION ASSIGNMENTS.
00466  M01S00051.0dq     +++|
00467  M01S00052.0dq     +++|
00468  M01S00053.0dq     +++| FS       EQU    20 - 24     FST INFORMATION (5 LOCATIONS)
00469  M01S00054.0dq     +++|
00470  M01S00055.0dq     +++|****
00471  M01S00056.0dq     +++|          TITLE  MAIN ROUTINE.
00472  M01S00057.0dq     +++|**        DRP - MAIN ROUTINE.
00473  M01S00058.0dq     +++|
00474  M01S00059.0dq     +++|
00475  M01S00060.0dq     +++|          ORG    5
00476  M01S00061.0dq     +++| DRP      SUBR               ENTRY/EXIT
00477  M01S00062.0dq     +++|          RJM    SFF         SEARCH FOR FILE
00478  M01S00063.0dq     +++|          LDD    CM+3
00479  M01S00064.0dq     +++|          LPN    77
00480  M01S00065.0dq     +++|          ZJN    DRP0        IF NOT GLOBAL FAST ATTACH FILE
00481  M01S00066.0dq     +++|          LDD    T5
00482  M01S00067.0dq     +++| DRP0     STD    CM+1
00483  M01S00068.0dq     +++|          LDD    T2          SET FNT ORDINAL IN REQUEST
00484  M01S00069.0dq     +++|          STD    CM+4
00485  M01S00070.0dq     +++|          LDN    RFAS        REQUEST RETURN OF FAST ATTACH FILE
00486  M01S00071.0dq     +++|          STD    CM+3
00487  M01S00072.0dq     +++|
00488  M01S00073.0dq     +++|*         DETERMINE MODE OF FILE TO BE RETURNED.
00489  M01S00074.0dq     +++|
00490  M01S00075.0dq     +++|          LDD    LA          SET TABLE BASE ADDRESS
00491  M01S00076.0dq     +++|          ADC    TFNS
00492  M01S00077.0dq     +++|          STM    DRPA
00493  M01S00078.0dq     +++|          LDN    TFNSL
00494  M01S00079.0dq     +++|          STD    T2
00495  M01S00080.0dq     +++| DRP1     SOD    T2          DECREMENT TABLE INDEX
00496  M01S00081.0dq     +++|          MJN    DRP2        IF END OF TABLE
00497  M01S00082.0dq     +++|          LDM    -1
00498  M01S00083.0dq     +++|          LPN    35          SEARCH TABLE FOR MODE
00499  M01S00084.0dq     +++|          LMM.   **,T2
00500  M01S00085.0dq     +++| DRPA     EQU    *-1
00501  M01S00086.0dq     +++|          NJN    DRP1        IF NOT MATCHING STATUS
00502  M01S00087.0dq     +++|          LDD    T2          SET ATTACH MODE IN REQUEST
00503  M01S00088.0dq     +++|          STD    CM+2
00504  M01S00089.0dq     +++|          MONITOR  AFAM      RETURN FILE
00505  M01S00090.0dq     +++|          LDD    CM+1        CHECK RETURN STATUS
00506  M01S00091.0dq     +++|          ZJN    DRP3        IF FUNCTION COMPLETE
00507  M01S00092.0dq     +++| DRP2     MONITOR  HNGM      HANG PP
00508  M01S00093.0dq     +++|
00509  M01S00094.0dq     +++| DRP3     LDD    T5          SET EST ORDINAL
00510  M01S00095.0dq     +++|          STD    CM+1
00511  M01S00096.0dq     +++|          LDN    DUCS        DECREMENT ACTIVE FILE COUNT
00512  M01S00097.0dq     +++|          STD    CM+3
Line S00098 Modification History
M01 (Added by) 0dq
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00098.ns2553  ---|          MONITOR STBM
00514  M01S00001.ns2553  +++|          MONITOR  SMDM
00515  M01S00099.0dq     +++|*         LDN    0           ISSUE EVENT TO INDICATE FILE RETURNED
00516  M01S00100.0dq     +++|          STD    CM+1
00517  M01S00101.0dq     +++|          LDD    T6          SET FIRST TRACK IN EVENT
00518  M01S00102.0dq     +++|          STD    CM+4
00519  M01S00103.0dq     +++|          LDD    T5          SET EQUIPMENT IN EVENT
00520  M01S00104.0dq     +++|          STD    CM+3
00521  M01S00105.0dq     +++|          MONITOR  EATM
00522  M01S00106.0dq     +++|*         LDN    0
00523  M01S00107.0dq     +++|          LJM    DRPX        RETURN
00524  M01S00108.0dq     +++| TFNS     SPACE  4
00525  M01S00109.0dq     +++|*         TABLE OF FILE MODES.
00526  M01S00110.0dq     +++|*         INDEXED BY *PFM* MODE NUMBER.
00527  M01S00111.0dq     +++|
00528  M01S00112.0dq     +++|
00529  M01S00113.0dq     +++| TFNS     BSS    0
00530  M01S00114.0dq     +++|          LOC    0
00531  M01S00115.0dq     +++|          CON    0           WRITE
00532  M01S00116.0dq     +++|          CON    1           READ
00533  M01S00117.0dq     +++|          CON    20          APPEND/EXTEND
00534  M01S00118.0dq     +++|          CON    5           EXECUTE
00535  M01S00119.0dq     +++|          CON    77          NULL
00536  M01S00120.0dq     +++|          CON    30          MODIFY
00537  M01S00121.0dq     +++|          CON    31          READ ALLOW MODIFY
00538  M01S00122.0dq     +++|          CON    21          READ ALLOW APPEND/EXTEND
00539  M01S00123.0dq     +++|          CON    10          UPDATE
00540  M01S00124.0dq     +++|          CON    11          READ ALLOW UPDATE
00541  M01S00125.0dq     +++|          LOC    *O
00542  M01S00126.0dq     +++| TFNSL    EQU    *-TFNS      LENGTH OF TABLE
00543  M01S00127.0dq     +++|          TITLE  SUBROUTINES.
00544  M01S00128.0dq     +++| SFF      SPACE  4,10
00545  M01S00129.0dq     +++|**        SFF - SEARCH FOR FAST ATTACH FILE.
00546  M01S00130.0dq     +++|*
00547  M01S00131.0dq     +++|*         ENTRY  (FS - FS+4) = FST INFORMATION.
00548  M01S00132.0dq     +++|*
00549  M01S00133.0dq     +++|*         EXIT   (T2) = FNT ORDINAL OF FAST ATTACH FILE.
00550  M01S00134.0dq     +++|*                (T5) = EST ORDINAL.
00551  M01S00135.0dq     +++|*                (T6) = FIRST TRACK.
00552  M01S00136.0dq     +++|*                (CM+3) = GLOBAL FAST ATTACH FILE FLAG.
00553  M01S00137.0dq     +++|*
00554  M01S00138.0dq     +++|*         USES   T3, T4, CM - CM+4.
00555  M01S00139.0dq     +++|*
00556  M01S00140.0dq     +++|*         MACROS MONITOR, SFA.
00557  M01S00141.0dq     +++|
00558  M01S00142.0dq     +++|
00559  M01S00143.0dq     +++| SFF      SUBR               ENTRY/EXIT
00560  M01S00144.0dq     +++|          LDN    FNTP        FETCH FNT POINTER
00561  M01S00145.0dq     +++|          CRD    T2
00562  M01S00146.0dq     +++|          LDN    1           INITIALIZE FNT ORDINAL
00563  M01S00147.0dq     +++|          STD    T2
00564  M01S00148.0dq     +++| SFF1     SFA    FNT,T2
00565  M01S00149.0dq     +++|          CRD    CM
00566  M01S00150.0dq     +++|          ADN    FSTG        GET FST INFORMATION
00567  M01S00151.0dq     +++|          CRD    T5
00568  M01S00152.0dq     +++|          LDD    CM+4        CHECK FILE TYPE
00569  M01S00153.0dq     +++|          SHN    -6
00570  M01S00154.0dq     +++|          LMN    FAFT
00571  M01S00155.0dq     +++|          NJN    SFF2        IF NOT FAST ATTACH FILE
00572  M01S00156.0dq     +++|          LDD    T5
00573  M01S00157.0dq     +++|          LMD    FS
00574  M01S00158.0dq     +++|          NJN    SFF2        IF NOT SAME EQUIPMENT
00575  M01S00159.0dq     +++|          LDD    T6
00576  M01S00160.0dq     +++|          LMD    FS+1
00577  M01S00161.0dq     +++|          ZJN    SFFX        IF MATCHING TRACK
00578  M01S00162.0dq     +++| SFF2     AOD    T2          ADVANCE FNT ORDINAL
00579  M01S00163.0dq     +++|          LMD    T4
00580  M01S00164.0dq     +++|          NJN    SFF1        IF NOT END OF FNT
00581  M01S00165.0dq     +++|          MONITOR  HNGM      HANG PP
00582  M01S00166.0dq     +++|*         LDN    0
00583  M01S00167.0dq     +++|          LJM    DRPX        EXIT
00584  M01S00168.0dq     +++|          SPACE  4,10
00585  M01S00169.0dq     +++|**        COMMON DECKS.
00586  M01S00170.0dq     +++|
00587  M01S00171.0dq     +++|
00588  M01S00172.0dq     +++| FNT$     EQU    1
00589  M01S00173.0dq     +++|*CALL     COMPGFP
00590  M01S00174.0dq     +++|          SPACE  4
00591  M01S00175.0dq     +++|          OVERFLOW 5,ZFAL
00592  M01S00176.0dq     +++|          END
cdc/nos2.source/opl.opl871/deck/0dq.txt ยท Last modified: by 127.0.0.1