cdc:nos2.source:opl.opl871:deck:0dq
Deck 0DQ
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0dq +++| IDENT 0DQ,DQFX 00002 M00S00002.0dq +++| PERIPH J 00003 M00S00003.0dq +++| BASE MIXED 00004 M00S00004.0dq +++| SST 00005 M00S00005.0dq +++|*COMMENT 0DQ - DEQUEUE FILE.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.0dq +++| TITLE 0DQ - DEQUEUE FILE. 00009 M00S00008.0dq +++| SPACE 4,10 00010 M00S00009.0dq +++|*** 0DQ - DROP QUEUE FILE. 00011 M00S00010.0dq +++|* 00012 M00S00011.0dq +++|* D. R. HILGREN. 79/10/30. 00013 M00S00012.0dq +++|* R. M. DESSEL. 81/03/26. 00014 M00S00013.0dq +++|* P. D. HAAS. 81/06/18. 00015 M00S00014.0dq +++| SPACE 4,10 00016 M00S00015.0dq +++|*** *0DQ* IS A LOCATION-FREE ROUTINE USED TO DROP 00017 M00S00016.0dq +++|* A QFT ENTRY. *0DQ* PERFORMS THE FOLLOWING - 00018 M00S00017.0dq +++|* 1. SEARCH FOR QFT ENTRY. 00019 M00S00018.0dq +++|* 2. CLEAR QFT ENTRY. 00020 M00S00019.0dq +++|* 3. DROP DISK SPACE IF REQUESTED. 00021 M00S00020.0dq +++|* 4. INCREMENT MASS STORAGE PRU COUNTER IF DISK SPACE DROPPED. 00022 M00S00021.0dq +++|* 5. ISSUE ACCOUNT FILE MESSAGE IF FILE REMOVED FROM QUEUE.
| Line S00022 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00023 M01S00022.ns2663 ---| SPACE 4,10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00024 M01S00001.ns2663 +++| SPACE 4,15 00025 M00S00023.0dq +++|*** ENTRY CONDITIONS. 00026 M00S00024.0dq +++|*
| Line S00025 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00025.ns2663 ---|* (QA) = 0. USE EQUIPMENT AND FIRST TRACK TO FIND 00028 M01S00026.ns2663 ---|* QFT ENTRY. 00029 M01S00027.ns2663 ---|* (QA) = QFT ORDINAL. USE QFT ORDINAL TO FIND ENTRY.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00028.0dq +++|* ((LA)-1) = 0 RELEASE QFT ENTRY AND DISK SPACE. 00037 M00S00029.0dq +++|* = 1 RELEASE QFT ENTRY ONLY. 00038 M00S00030.0dq +++|* = 2 RELEASE DISK SPACE ONLY (FILE NOT IN QFT). 00039 M00S00031.0dq +++|* (FS - FS+4) = FST INFORMATION. 00040 M00S00032.0dq +++| SPACE 4,10 00041 M00S00033.0dq +++|*** EXIT CONDITIONS. 00042 M00S00034.0dq +++|* 00043 M00S00035.0dq +++|* (A) = 0 IF REQUESTED DEQUEUEING OPERATION PERFORMED. 00044 M00S00036.0dq +++|* .LT. 0 IF QUEUE FILE DEVICE INACCESSIBLE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00045 M01S00001.ns2553 +++|* (T5) = QUEUE FILE DEVICE EST ORDINAL, IF DEVICE INACCESSIBLE. 00046 M00S00037.0dq +++|* 00047 M00S00038.0dq +++|* (QA) = QFT ORDINAL, IF QFT ENTRY FOUND AND DEQUEUED. 00048 M00S00039.0dq +++|* (QA) = 0, IF QFT ENTRY NOT FOUND. 00049 M00S00040.0dq +++|* 00050 M00S00041.0dq +++|* THE QUEUED FILE SYSTEM SECTOR WILL BE READ ON A RELEASE QFT 00051 M00S00042.0dq +++|* ONLY REQUEST (((LA)-1) =1) ONLY IF CREATION MODE IS NOT SET 00052 M00S00043.0dq +++|* IN THE QFT ENTRY. 00053 M00S00044.0dq +++| SPACE 4,10 00054 M00S00045.0dq +++|*** USES. 00055 M00S00046.0dq +++|* 00056 M00S00047.0dq +++|* USES CM - CM+4, T1 - T7. 00057 M00S00048.0dq +++| SPACE 4,10
| Line S00049 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00058 M01S00049.ns2663 ---|*** ACCOUNT DAYFILE MESSAGES. 00059 M01S00050.ns2663 ---|* 00060 M01S00051.ns2663 ---|* 00061 M01S00052.ns2663 ---|* *AEQP, C1, JSN, YYMMDD, HHMMSS, DC.* 00062 M01S00053.ns2663 ---|* QUEUED FILE CREATED ON DATE YYMMDD AT TIME 00063 M01S00054.ns2663 ---|* HHMMSS WITH ORIGINAL JOB SEQUENCE NAME JSN 00064 M01S00055.ns2663 ---|* HAS BEEN REMOVED FROM THE QUEUE. 00065 M01S00056.ns2663 ---|* THE FILE HAD A DISPOSITION CODE OF DC. 00066 M01S00057.ns2663 ---| SPACE 4,10 00067 M00S00058.0dq +++|* COMMON DECK MACROS AND DEFINITIONS. 00068 M00S00059.0dq +++| 00069 M00S00060.0dq +++| 00070 M00S00061.0dq +++|*CALL COMPMAC 00071 M00S00062.0dq +++|*CALL COMPREL 00072 M00S00063.0dq +++|*CALL COMSCPS
| Line S00064 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00073 M01S00064.ns2663 ---|*CALL COMSMSP 00074 M00S00065.0dq +++|*CALL COMSSSE 00075 M00S00066.0dq +++|*CALL COMSZOL 00076 M00S00067.0dq +++| SPACE 4,10 00077 M00S00068.0dq +++|**** DIRECT LOCATION ASSIGNMENTS. 00078 M00S00069.0dq +++| 00079 M00S00070.0dq +++| 00080 M00S00071.0dq +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00081 M00S00072.0dq +++| QA EQU 26 QFT ORDINAL 00082 M00S00073.0dq +++| 00083 M00S00074.0dq +++|**** 00084 M00S00075.0dq +++| TITLE MAIN ROUTINE. 00085 M00S00076.0dq +++|** DQF - MAIN ROUTINE. 00086 M00S00077.0dq +++| 00087 M00S00078.0dq +++| 00088 M00S00079.0dq +++| ORG 5 00089 M00S00080.0dq +++| DQF SUBR ENTRY/EXIT
| Line S00081 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00090 M01S00081.ns2663 ---| LDD FS+1 00091 M01S00082.ns2663 ---| STD T6
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00083.0dq +++| ADD QA 00104 M00S00084.0dq +++| ZJN DQFX IF FILE UNUSED/NULL REQUEST 00105 M00S00085.0dq +++| LDD FS 00106 M00S00086.0dq +++| STD T5 SET EST ORDINAL 00107 M00S00087.0dq +++| LDM -1 00108 M00S00088.0dq +++| STI LA PRESERVE DEQUEUE OPTION 00109 M00S00089.0dq +++| SBN 2
| Line S00090 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00090.ns2663 ---| ZJN DQF1 IF FILE NOT IN QFT 00111 M01S00091.ns2663 ---| LDN QFTP 00112 M01S00092.ns2663 ---| CRD CM 00113 M01S00093.ns2663 ---| LDD CM+1 SET QFT ADDRESS 00114 M01S00094.ns2663 ---| RAM SGQA 00115 M01S00095.ns2663 ---| SHN -14 00116 M01S00096.ns2663 ---| ADD CM 00117 M01S00097.ns2663 ---| RAM SGQA-1
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00118 M01S00019.ns2663 +++| ZJN DQF3 IF FILE NOT IN QFT 00119 M01S00020.ns2663 +++| RJM IFP INITIALIZE QFT PROCESSOR 00120 M00S00098.0dq +++| RJM SGQ SEARCH GLOBAL QUEUE
| Line S00099 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00121 M01S00099.ns2663 ---| ZJN DQFX IF ENTRY NOT FOUND
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00122 M01S00021.ns2663 +++| ZJN DQFX IF FILE NOT FOUND 00123 M00S00100.0dq +++| LDD T4 00124 M00S00101.0dq +++| LPN 4
| Line S00102 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00125 M01S00102.ns2663 ---| DQF1 ZJN DQF4 IF NOT CREATION MODE 00126 M01S00103.ns2663 ---| DQF2 LDI LA
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00104.0dq +++| SBN 2
| Line S00105 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00105.ns2663 ---| ZJN DQF3 IF FILE NOT IN QFT 00139 M01S00106.ns2663 ---| SETMS STATUS 00140 M01S00107.ns2663 ---| MJN DQF3 IF DEVICE INACCESSIBLE
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00032.ns2663 +++| ZJN DQF5 IF FILE NOT IN QFT 00142 M00S00108.0dq +++| LDD QA 00143 M00S00109.0dq +++| STD CM+1 00144 M00S00110.0dq +++| LDN PQFT 00145 M00S00111.0dq +++| STD CM+2 00146 M00S00112.0dq +++| MONITOR MTRM RELEASE QFT ENTRY
| Line S00113 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00113.ns2663 ---|* LDN 0 00148 M01S00114.ns2663 ---| DQF3 LJM DQFX RETURN
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00115.0dq +++|
| Line S00116 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00156 M01S00116.ns2663 ---|* ISSUE ACCOUNTING MESSAGE IF FILE HAS BEEN QUEUED.
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00117.0dq +++|
| Line S00118 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00164 M01S00118.ns2663 ---| DQF4 STD T7 SET SYSTEM SECTOR 00165 M01S00119.ns2663 ---| SETMS IO,NS 00166 M01S00120.ns2663 ---| MJN DQF3 IF DEVICE INACCESSIBLE 00167 M01S00121.ns2663 ---| LDC BFMS READ SYSTEM SECTOR 00168 M01S00122.ns2663 ---| RJP RDS 00169 M01S00123.ns2663 ---| MJN DQF5 IF READ ERROR 00170 M01S00124.ns2663 ---| ENDMS 00171 M01S00125.ns2663 ---| LDP BFMS+1 00172 M01S00126.ns2663 ---| LMN 77 00173 M01S00127.ns2663 ---| NJN DQF5 IF BAD SYSTEM SECTOR LINKAGE 00174 M01S00128.ns2663 ---| LDP BFMS 00175 M01S00129.ns2663 ---| LMC 3777 00176 M01S00130.ns2663 ---| NJN DQF5 IF NOT SYSTEM SECTOR LINKAGE 00177 M01S00131.ns2663 ---| LDP FTSS 00178 M01S00132.ns2663 ---| LMD T6 00179 M01S00133.ns2663 ---| NJN DQF5 IF INCORRECT SYSTEM SECTOR 00180 M01S00134.ns2663 ---| LDP FGSS 00181 M01S00135.ns2663 ---| LPN 1
| Line S00136 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
M02 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00182 M02S00136.ns2663 ---| ZJN DQF5 IF FILE NOT QUEUED
| Line S00137 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00183 M01S00137.ns2663 ---| STD T7
| Line S00138 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
M02 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00184 M02S00138.ns2663 ---| RJM IAM ISSUE ACCOUNTING MESSAGE
| Line S00139 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00185 M01S00139.ns2663 ---| DQF5 LDI LA 00186 M01S00140.ns2663 ---| SBN 1
| Line S00141 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
M02 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00187 M02S00141.ns2663 ---| ZJN DQF6 IF NOT TO DROP DISK SPACE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Removed by) | 0dq2 |
M03 (Removed 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 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00001.ns2663 ---| ZJP DQF6 IF NOT TO DROP DISK SPACE
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00142.0dq +++| LDD T6 00211 M00S00143.0dq +++| STD CM+2 00212 M00S00144.0dq +++| LDD T5 RELEASE TRACK CHAIN
| Line S00145 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00145.ns2553 ---| LMC 4000
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00214 M01S00003.ns2553 +++| LMC 5000 CHECKPOINT / RETURN ON INACCESSIBLE DEVICE 00215 M00S00146.0dq +++| STD CM+1 00216 M00S00147.0dq +++| MONITOR DTKM
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00217 M01S00004.ns2553 +++| LDD CM+1 00218 M01S00005.ns2553 +++| SHN 21-11
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00219 M02S00006.ns2663 ---| MJP DQFX IF DEVICE INACCESSIBLE
| Line S00148 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00220 M01S00148.ns2663 ---| LDD T7
| Line S00149 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
M02 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00221 M02S00149.ns2663 ---| NJN DQF6 IF FILE QUEUED
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00222 M02S00007.ns2663 ---| NJN DQF7 IF FILE QUEUED
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00223 M01S00065.ns2663 +++| MJN DDSX IF DEVICE INACCESSIBLE 00224 M01S00066.ns2663 +++| LDM FIQF 00225 M01S00067.ns2663 +++| NJN DDSX IF FILE QUEUED 00226 M00S00150.0dq +++| 00227 M00S00151.0dq +++|* ACTUAL COUNT OF SECTORS RETURNED VIA *DTKM* IS IN CM+3 - CM+4. 00228 M00S00152.0dq +++| 00229 M00S00153.0dq +++| LDN CICS INCREMENT CP AREA FIELD FUNCTION CODE 00230 M00S00154.0dq +++| STD CM 00231 M00S00155.0dq +++| LDK ACLW ADDRESS OF MASS STORAGE SECTOR LIMIT 00232 M00S00156.0dq +++| STD CM+1 00233 M00S00157.0dq +++| LDN 0D*100+18D POSISTION AND WIDTH OF LIMIT FIELD 00234 M00S00158.0dq +++| STD CM+2 00235 M00S00159.0dq +++| LDD MA UADM FUNCTION MESSAGE BUFFER CONTENTS 00236 M00S00160.0dq +++| CWD CM 00237 M00S00161.0dq +++| LDN 1 SET UADM REQUEST COUNT AND NO DROP OF PPU 00238 M00S00162.0dq +++| STD CM+1 00239 M00S00163.0dq +++| STD CM+2 00240 M00S00164.0dq +++| MONITOR UADM INCREMENT MASS STORAGE SECTOR LIMIT
| Line S00165 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00241 M01S00165.ns2553 ---| DQF6 LJM DQF2 CHECK RELEASE OF QFT ENTRY
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00242 M02S00008.ns2663 ---| DQF6 LDD T7 00243 M02S00009.ns2663 ---| ZJN DQF8 IF FILE NOT QUEUED 00244 M02S00010.ns2663 ---| DQF7 RJM IAM 00245 M02S00011.ns2663 ---| DQF8 LJM DQF2 CHECK RELEASE OF QFT ENTRY
| Line S00166 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00246 M01S00166.ns2663 ---| TITLE SUBROUTINES. 00247 M01S00167.ns2663 ---| SGQ SPACE 4,15
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00168.0dq +++|** SGQ - SEARCH GLOBAL QUEUE. 00324 M00S00169.0dq +++|* 00325 M00S00170.0dq +++|* ENTRY (QA) = 0 IF QFT SEARCH REQUIRED.
| Line S00171 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00326 M01S00171.ns2663 ---|* = QFT ORDINAL. 00327 M01S00172.ns2663 ---|* (CM+2) = LIMIT VALUE FOR QFT SEARCH.
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00328 M01S00143.ns2663 +++|* = QFT ORDINAL IF SPECIFIED. 00329 M00S00173.0dq +++|* (FS - FS+4) = FST INFORMATION.
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00330 M01S00144.ns2663 +++|* QFT INTERLOCKED IF (QA) .NE. 0. 00331 M00S00174.0dq +++|*
| Line S00175 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00332 M01S00175.ns2663 ---|* EXIT (A) = (QA) = 0, IF QFT ENTRY NOT FOUND. 00333 M01S00176.ns2663 ---|* (A) = (QA) = QFT ORDINAL, IF ENTRY FOUND.
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00177.0dq +++|* (T4) = CREATION MODE FLAG. 00338 M00S00178.0dq +++|* (T5) = EST ORDINAL. 00339 M00S00179.0dq +++|* (T6) = FIRST TRACK.
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00340 M01S00148.ns2663 +++|* (QFIF) .NE. 0 IF QFT ENTRY INTERLOCKED BY *0DQ*. 00341 M00S00180.0dq +++|*
| Line S00181 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00181.ns2663 ---|* USES T0 - T7, CM - CM+1.
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00182.0dq +++| 00349 M00S00183.0dq +++|
| Line S00184 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00350 M01S00184.ns2663 ---| SGQ1 AOD QA ADVANCE ORDINAL
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00351 M01S00154.ns2663 +++| SGQ1 LDN QFTP READ QFT POINTERS 00352 M01S00155.ns2663 +++| CRD CM 00353 M01S00156.ns2663 +++| SGQ2 AOD QA ADVANCE ORDINAL 00354 M00S00185.0dq +++| LMD CM+2
| Line S00186 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00355 M01S00186.ns2663 ---| ZJN SGQ4 IF END OF QFT 00356 M01S00187.ns2663 ---| SGQ2 CFI QFT,QA 00357 M01S00188.ns2663 ---| ADC JSNQ READ CREATION MODE FLAG 00358 M01S00189.ns2663 ---| SGQA EQU *-1
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00190.0dq +++| CRD T0 00363 M00S00191.0dq +++| ADN ENTQ-JSNQ READ MASS STORAGE PARAMETERS 00364 M00S00192.0dq +++| CRD T5
| Line S00193 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00365 M01S00193.ns2663 ---| SGQB LDD T6 COMPARE FIRST TRACK 00366 M01S00194.ns2663 ---|* UJN SGQ3 (QFT ORDINAL SPECIFIED)
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00160.ns2663 +++| SGQA LDD T6 COMPARE FIRST TRACK 00368 M01S00161.ns2663 +++|* UJN SGQX (QFT ORDINAL SPECIFIED) 00369 M00S00195.0dq +++| LMD FS+1
| Line S00196 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00370 M01S00196.ns2663 ---| NJN SGQ1 IF NO MATCH
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00371 M01S00162.ns2663 +++| NJN SGQ2 IF NO MATCH 00372 M00S00197.0dq +++| LDD T5 00373 M00S00198.0dq +++| LMD FS
| Line S00199 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00374 M01S00199.ns2663 ---| NJN SGQ1 IF NOT SAME EQUIPMENT 00375 M01S00200.ns2663 ---| SGQ3 LDD QA 00376 M01S00201.ns2663 ---| SGQ4 STD QA
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00202.0dq +++| 00385 M00S00203.0dq +++| SGQ SUBR ENTRY/EXIT 00386 M00S00204.0dq +++| LDD QA
| Line S00205 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00387 M01S00205.ns2663 ---| ZJN SGQ1 IF QFT ORDINAL UNKNOWN 00388 M01S00206.ns2663 ---| ISTORE SGQB,(UJN SGQ3) BYPASS QFT SEARCH 00389 M01S00207.ns2663 ---| UJN SGQ2 FETCH MASS STORAGE PARAMETERS
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00208.0dq +++| SPACE 4,10 00394 M00S00209.0dq +++|** COMMON DECKS. 00395 M00S00210.0dq +++| 00396 M00S00211.0dq +++|
| Line S00212 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00397 M01S00212.ns2663 ---|*CALL COMPCDD 00398 M01S00213.ns2663 ---| EQP$ EQU 0 SELECT STANDARD ACCOUNTING MESSAGE 00399 M01S00214.ns2663 ---| ZLO$ EQU 0 SPECIFY ZERO LEVEL OVERLAY CALL 00400 M01S00215.ns2663 ---|*CALL COMPIAM
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00216.0dq +++| 00409 M00S00217.0dq +++| 00410 M00S00218.0dq +++| RSTR 00411 M00S00219.0dq +++| SPACE 4,10
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00412 M01S00180.ns2663 +++| ERRNG ZDQL-OVLA-ZQML *0QM* OVERFLOWS *0DQ* 00413 M01S00181.ns2663 +++| 00414 M00S00220.0dq +++| OVERFLOW 5,ZDQL 00415 M00S00221.0dq +++| SPACE 4,10 00416 M00S00222.0dq +++| END
cdc/nos2.source/opl.opl871/deck/0dq.txt · Last modified: (external edit)