Deck QFM

36 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.qfm     +++|          IDENT  QFM,QFM
00002  M01S00002.qfm     +++|          PERIPH
00003  M01S00003.qfm     +++|          BASE   MIXED
00004  M01S00004.qfm     +++|          SST
00005  M01S00001.ns2442  +++| QUAL$    EQU    1           DEFINE USER QUALIFICATION

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00005.242l642 ---| EQV$     EQU    1           DEFINE NO EQUIPMENT CHECK FOR *COMPRSS*

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00006.242l642 ---| MSS$     EQU    1           DEFINE ERROR CONTROL FOR *COMPRSS*
00008  M01S00007.qfm     +++| MSR$     EQU    1           DEFINE USER ERROR RETURN FOR *COMPRNS*
00009  M01S00008.qfm     +++|*COMMENT  QFM - QUEUE FILE MANAGER.

Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00010.qfm     +++|          TITLE  QFM - QUEUE FILE MANAGER.
00013  M01S00011.qfm     +++|          SPACE  4
00014  M01S00012.qfm     +++|***       QFM - QUEUE FILE MANAGER.
00015  M01S00013.qfm     +++|*         C. K. STEHMAN.     74/03/29.
00016  M01S00014.qfm     +++|*         R. A. JAPS.        75/01/27.  (REWRITE).
00017  M01S00015.qfm     +++|*         P. D. HAAS.        81/09/02.
00018  M01S00016.qfm     +++|          SPACE  4
00019  M01S00017.qfm     +++|***       QFM PERFORMS TASKS FOR QUEUE MANAGMENT PROGRAMS.
00020  M01S00018.qfm     +++|*
00021  M01S00019.qfm     +++|*         1.  ATQ - ATTACH PRESERVED FILE (SYSTEM ORIGIN PRIVILEDGES).
00022  M01S00020.qfm     +++|*         2.  DTQ - DETACH PRESERVED FILE (SYSTEM ORIGIN PRIVILEDGES).
00023  M01S00021.qfm     +++|*         3.  PGO - PURGE PRESERVED FILE (SYSTEM ORIGIN PRIVILEDGES).
00024  M01S00022.qfm     +++|*         4.  STQ - SET IQFT FILE (SSJ= REQUIRED).
00025  M01S00023.qfm     +++|*         5.  IIQ - INITIALIZE IQFT FILE (SSJ= REQUIRED).
00026  M01S00024.qfm     +++|*         6.  RQL - REQUEUE FNT/FST LIST SSJ= REQUIRED).
00027  M01S00025.qfm     +++|*         7.  RLL - RELEASE FNT/FST LIST (SSJ= REQUIRED).
00028  M01S00026.qfm     +++|*         10. DEQ - DEQUEUE FNT/FST (SSJ= REQUIRED).
00029  M01S00027.qfm     +++|*         11. AQF - ATTACH QUEUED FILE (SSJ= REQUIRED).
00030  M01S00028.qfm     +++|*         12. QRS - READ SYSTEM SECTOR (SSJ= REQUIRED).
00031  M01S00029.qfm     +++|*         13. AIQ - ATTACH INACTIVE QUEUED FILE (SSJ= REQUIRED).
00032  M01S00030.qfm     +++|*         14. RIQ - REQUEUE INACTIVE QUEUED FILE (SSJ= REQUIRED).

Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00031.v23l617 ---|*         15. SRR - SET RERUN (ILLEGAL FROM TTY ORIGIN).

Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00032.v23l617 ---|*         16. CRR - CLEAR RERUN (ILLEGAL FROM TTY ORIGIN).
00035  M01S00001.v23l617 +++|*         15. SRR - SET RERUN (INCORRECT FROM INTERACTIVE ORIGIN).
00036  M01S00002.v23l617 +++|*         16. CRR - CLEAR RERUN (INCORRECT FROM INTERACTIVE ORIGIN).
00037  M01S00033.qfm     +++|*         21. IQF - INTERLOCK QUEUE FILE (SSJ= REQUIRED).
00038  M01S00034.qfm     +++|*         22. CFE - CREATE FOT ENTRY (SSJ= REQUIRED).
00039  M01S00035.qfm     +++|*         23. CQF - CREATE QUEUE FILE (SSJ= REQUIRED).
00040  M01S00001.ns21000 +++|*         24. QRE - READ EOI SECTOR (SSJ= REQUIRED).
00041  M01S00002.ns21000 +++|*         25. QWE - WRITE EOI SECTOR (SSJ= REQUIRED).
00042  M01S00036.qfm     +++|          SPACE  4
00043  M01S00037.qfm     +++|***       CALL.
00044  M01S00038.qfm     +++|*
00045  M01S00039.qfm     +++|*
00046  M01S00040.qfm     +++|*T        18/ QFM , 6/ 20B , 12/ FN , 6/  , 18/ ADDR

Figure

00047  M01S00041.qfm     +++|*
00048  M01S00042.qfm     +++|*                FN = FUNCTION CODE.
00049  M01S00043.qfm     +++|*                ADDR = FWA OF FET.
00050  M01S00044.qfm     +++|*
00051  M01S00045.qfm     +++|*
00052  M01S00046.qfm     +++|*         FORMAT OF FET (9 WORDS).
00053  M01S00047.qfm     +++|*
00054  M01S00048.qfm     +++|*T FET0   42/ LFN , 4/ , 4/ EC , 10/ CC

Figure FET0

00055  M01S00049.qfm     +++|*T,FET1   16/ EP , 26/  , 18/ FIRST

Figure FET1

00056  M01S00050.qfm     +++|*T,FET2   42/  , 18/ IN

Figure FET2

00057  M01S00051.qfm     +++|*T,FET3   42/  , 18/ OUT

Figure FET3

00058  M01S00052.qfm     +++|*T,FET4   42/  , 18/ LIMIT

Figure FET4

00059  M01S00053.qfm     +++|*T,FET5   60/ FP

Figure FET5

00060  M01S00054.qfm     +++|*T,FET6   60/ FP

Figure FET6

00061  M01S00055.qfm     +++|*T,FET7   12/ EQ , 36/ , 12/ ER

Figure FET7

00062  M01S00056.qfm     +++|*T,FET10  60/ FP

Figure FET10

00063  M01S00057.qfm     +++|*
00064  M01S00058.qfm     +++|*
00065  M01S00059.qfm     +++|*         LFN = LOCAL FILE NAME.
00066  M01S00060.qfm     +++|*         EC  = ERROR CODE RETURN. (SEE COMSIOQ FOR DEFINED CODES).
00067  M01S00061.qfm     +++|*         CC  = 0 ON CALL, QFM RETURNS COMPLETE BIT OR
00068  M01S00062.qfm     +++|*                RETURN CODE DEPENDING ON FUNCTION.
00069  M01S00063.qfm     +++|*         EP = ERROR PROCESSING. IF BIT 2**0 SET, THEN ERROR
00070  M01S00064.qfm     +++|*                PROCESSING IS SELECTED.
00071  M01S00065.qfm     +++|*         FP = FUNCTION PARAMETERS. (SEE ENTRY CONDITIONS FOR
00072  M01S00066.qfm     +++|*                PARTICULAR FUNCTION FOR REQUIRED FORMAT.)
00073  M01S00067.qfm     +++|*         EQ = EQUIPMENT.
00074  M01S00068.qfm     +++|*         ER = MASS STORAGE ERROR CODE.
00075  M01S00069.qfm     +++|          SPACE  4
00076  M01S00070.qfm     +++|***       DAYFILE MESSAGES.
00077  M01S00071.qfm     +++|*
00078  M01S00072.qfm     +++|*         THE FOLLOWING MESSAGES ARE ISSUED TO THE DAYFILE ONLY IF
00079  M01S00073.qfm     +++|*         THE *EP* BIT IS NOT SET IN THE SECOND WORD OF THE FET.
00080  M01S00074.qfm     +++|*         IF THE *EP* BIT IS SET, THE APPROPRIATE ERROR CODE IS
00081  M01S00075.qfm     +++|*         RETURNED IN THE FIRST WORD OF THE FET. NO DAYFILE MESSAGE
00082  M01S00076.qfm     +++|*         IS ISSUED IF THE *EP* BIT IS SET.
00083  M01S00077.qfm     +++|*
00084  M01S00078.qfm     +++|*
00085  M01S00079.qfm     +++|*         * FILE NOT FOUND.*
00086  M01S00080.qfm     +++|*                THE FILE FOR WHICH A SPECIFIC ACTION IS REQUESTED
00087  M01S00081.qfm     +++|*                CANNOT BE FOUND. (EC = 1).
00088  M01S00082.qfm     +++|*
00089  M01S00083.qfm     +++|*         * FILE ALREADY INTERLOCKED.*
00090  M01S00084.qfm     +++|*                THE TRACK INTERLOCK FOR THE SPECIFIED QFM FILE IS
00091  M01S00085.qfm     +++|*                ALREADY SET. (EC = 2).
00092  M01S00086.qfm     +++|*
00093  M01S00087.qfm     +++|*         * TRACK ALREADY ASSIGNED.*
00094  M01S00088.qfm     +++|*                THE TRACK BYTE FOR THE SPECIFIED QFM FILE IS ALREADY
00095  M01S00089.qfm     +++|*                ASSIGNED IN THE MST. (EC = 3).
00096  M01S00090.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00091.271l716 ---|*         * FNT IS FULL.*

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00092.271l716 ---|*                ALL FILES COULD NOT BE REQUEUED BECAUSE OF A FULL FNT.

Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00093.271l716 ---|*                THE *IQFT* FILE COULD NOT BE ATTACHED BECAUSE THE

Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00094.271l716 ---|*                FNT WAS FULL.  (EC = 4).
00101  M01S00001.271l716 +++|*         * QFT/LOCAL FNT IS FULL.*
00102  M01S00002.271l716 +++|*                ALL FILES COULD NOT BE REQUEUED BECAUSE OF A FULL
00103  M01S00003.271l716 +++|*                QFT.  THE *IQFT* FILE COULD NOT BE ATTACHED BECAUSE
00104  M01S00004.271l716 +++|*                THE LOCAL FNT WAS FULL.  (EC = 4).
00105  M01S00095.qfm     +++|*
00106  M01S00096.qfm     +++|*         * FOT IS FULL.*
00107  M01S00097.qfm     +++|*                FAMILY CAN NOT BE DEFINED IN THE SYSTEM SINCE THE
00108  M01S00098.qfm     +++|*                FAMILY ORDINAL TABLE IS FULL.
00109  M01S00099.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00100.v23l617 ---|*         * INVALID SYSTEM SECTOR.*
00111  M01S00003.v23l617 +++|*         * INCORRECT SYSTEM SECTOR.*
00112  M01S00101.qfm     +++|*                AN ERROR HAS BEEN ENCOUNTERED WHILE TRYING TO READ
00113  M01S00102.qfm     +++|*                A SYSTEM SECTOR. (EC = 5).
00114  M01S00103.qfm     +++|*
00115  M01S00104.qfm     +++|*         * UNCORRECTABLE RMS ERROR.*
00116  M01S00105.qfm     +++|*                AN UNCORRECTABLE RMS ERROR HAS BEEN DETECTED DURING
00117  M01S00106.qfm     +++|*                AN I/O OPERATION. (EC = 6).
00118  M01S00107.qfm     +++|*
00119  M01S00108.qfm     +++|*         * INPUT FILE IN RERUN STATUS.*
00120  M01S00109.qfm     +++|*                INFORMATIVE MESSAGE INDICATING THAT THE REQUESTED
00121  M01S00110.qfm     +++|*                CHANGE IN STATUS IS REDUNDANT. (EC = 7).
00122  M01S00111.qfm     +++|*
00123  M01S00112.qfm     +++|*         * INPUT FILE IN NO-RERUN STATUS.*
00124  M01S00113.qfm     +++|*                INFORMATIVE MESSAGE INDICATING THAT THE REQUESTED
00125  M01S00114.qfm     +++|*                CHANGE IN STATUS IS REDUNDANT. (EC = 10).
00126  M01S00115.qfm     +++|*
00127  M01S00001.ns2576  +++|*         * DEVICE UNAVAILABLE.
00128  M01S00002.ns2576  +++|*                THE DEVICE IS UNAVAILABLE.  THE REQUEST IS IGNORED.
00129  M01S00003.ns2576  +++|*
00130  M01S00116.qfm     +++|*         * DUPLICATE FILE NAME.*
00131  M01S00117.qfm     +++|*                A FILE WITH THE REQUESTED NAME ALREADY EXISTS.
00132  M01S00118.qfm     +++|*                (EC = 16).
00133  M01S00001.ns22000 +++|*
00134  M01S00002.ns22000 +++|*         * FILE NOT ALLOWED ON EQUIPMENT.*
00135  M01S00003.ns22000 +++|*                THE REQUESTED EQUIPMENT DID NOT HAVE THE REQUIRED
00136  M01S00004.ns22000 +++|*                ACCESS LEVEL FOR THE QUEUED FILE.  (EC = 17).
00137  M01S00119.qfm     +++|*
00138  M01S00120.qfm     +++|*
00139  M01S00121.qfm     +++|*         THE FOLLOWING ARE FATAL ERROR MESSAGES ISSUED BY PRESET
00140  M01S00122.qfm     +++|*         AND RESIDENT ROUTINES.
00141  M01S00123.qfm     +++|*
00142  M01S00124.qfm     +++|*         * QFM BUFFER ARGUMENT ERROR.*
00143  M01S00125.qfm     +++|*                A BUFFER POINTER DOES NOT CONFORM TO THE FOLLOWING
00144  M01S00126.qfm     +++|*                CONSTRAINTS -
00145  M01S00127.qfm     +++|*                            FIRST .LE. IN
00146  M01S00128.qfm     +++|*                            FIRST .LE. OUT
00147  M01S00129.qfm     +++|*                            OUT .LE. LIMIT .LE. FL
00148  M01S00130.qfm     +++|*
00149  M01S00131.qfm     +++|*         * QFM ARGUMENT ERROR.*
00150  M01S00132.qfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS -
00151  M01S00133.qfm     +++|*                1. FET ADDRESS NOT WITHIN FL.
00152  M01S00134.qfm     +++|*                2. FET ADDRESS NOT SPECIFIED IN QFM CALL WHEN REQUIRED.
00153  M01S00135.qfm     +++|*                3. QFM FILE TYPE OUT OF RANGE.
00154  M01S00136.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00137.v23l617 ---|*         * QFM ILLEGAL REQUEST.*
00156  M01S00004.v23l617 +++|*         * QFM INCORRECT REQUEST.*
00157  M01S00138.qfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS -
00158  M01S00139.qfm     +++|*                1. FUNCTION CODE WAS NOT RECOGNIZED.
00159  M01S00140.qfm     +++|*                2. CALLING JOB DOES NOT HAVE SSJ= SET.
00160  M01S00141.qfm     +++|*                3. QFM WAS NOT CALLED WITH AUTO RECALL.
00161  M01S00142.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00143.v23l617 ---|*         * QFM ILLEGAL EQUIPMENT.*
00163  M01S00005.v23l617 +++|*         * QFM INCORRECT EQUIPMENT.*
00164  M01S00144.qfm     +++|*                THE EQUIPMENT SPECIFIED IN FET+7 IS NOT MASS STORAGE.
00165  M01S00145.qfm     +++|*
00166  M01S00146.qfm     +++|*
00167  M01S00147.qfm     +++|*         THE FOLLOWING FATAL ERROR MESSAGES ARE ISSUED BY THE
00168  M01S00148.qfm     +++|*         FUNCTION PROCESSORS.
00169  M01S00149.qfm     +++|*
00170  M01S00150.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00151.v23l617 ---|*         * QFM INVALID QUEUE FILE ORDINAL.*
00172  M01S00006.v23l617 +++|*         * QFM INCORRECT QUEUE FILE ORDINAL.*
00173  M01S00152.qfm     +++|*                THE ORDINAL GIVEN FOR THE QUEUE FILE TO ATTACH TO THE
00174  M01S00153.qfm     +++|*                CONTROL POINT WAS OUT OF RANGE.
00175  M01S00154.qfm     +++|*
00176  M01S00155.qfm     +++|*         * QFM FILE ALREADY ATTACHED.*
00177  M01S00156.qfm     +++|*                THE SPECIFIED FILE IS ALREADY ATTACHED TO THE
00178  M01S00157.qfm     +++|*                CONTROL POINT.
00179  M01S00158.qfm     +++|*
00180  M01S00159.qfm     +++|*         * QFM FOT FULL.*
00181  M01S00160.qfm     +++|*                FAMILY CAN NOT BE DEFINED IN THE SYSTEM SINCE THE
00182  M01S00161.qfm     +++|*                FAMILY ORDINAL TABLE IS FULL.
00183  M01S00162.qfm     +++|*
00184  M01S00163.qfm     +++|*         * QFM INTERLOCK ERROR.*
00185  M01S00164.qfm     +++|*                TRACK INTERLOCK COULD NOT BE SET ON A QFM FILE.
00186  M01S00165.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00166.271l716 ---|*         * QFM UNABLE TO INTERLOCK MST.*

Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00167.271l716 ---|*                SELF EXPLANATORY.

Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00168.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00169.271l716 ---|*         * QFM EOI BAD ON ATTACHED FILE.*
00191  M01S00005.271l716 +++|*         * EOI BAD ON ATTACHED FILE.*
00192  M01S00170.qfm     +++|*                THE EOI SECTOR CANNOT BE FOUND ON THE SPECIFIED FILE.
00193  M01S00171.qfm     +++|*
00194  M01S00172.qfm     +++|*         * QFM TRACK MISMATCH.*
00195  M01S00173.qfm     +++|*                THE FILE ABOUT TO BE PURGED IS NOT THE SAME FILE
00196  M01S00174.qfm     +++|*                THAT WAS PREVIOUSLY ATTACHED.
00197  M01S00175.qfm     +++|*
00198  M01S00176.qfm     +++|*         * QFM - FILE IGNORED XXXXXXX.*
00199  M01S00177.qfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS -
00200  M01S00178.qfm     +++|*                1. THE QUEUE FILE XXXXXXX WAS IGNORED BECAUSE OF AN

Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00179.v23l617 ---|*                   ILLEGAL ORIGIN OR FILE TYPE CODE. THIS COULD MEAN A

Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00180.v23l617 ---|*                   POSSIBLE BAD IQFT FILE.
00203  M01S00007.v23l617 +++|*                   INCORRECT ORIGIN OR FILE TYPE CODE. THIS COULD MEAN
00204  M01S00008.v23l617 +++|*                   A POSSIBLE BAD IQFT FILE.
00205  M01S00181.qfm     +++|*                2. QUEUED FILE ,XXXXXXX, COULD NOT BE PROCESSED
00206  M01S00182.qfm     +++|*                   BECAUSE ITS SYSTEM SECTOR COULD NOT BE READ.
00207  M01S00183.qfm     +++|*
00208  M01S00184.qfm     +++|*         * QFM SYSTEM SECTOR ERROR.*
00209  M01S00185.qfm     +++|*                AN ERROR WAS ENCOUNTERED WHILE READING THE SYSTEM
00210  M01S00186.qfm     +++|*                SECTOR OF A QUEUED FILE. THE FILE IS IDENTIFIED BY THE
00211  M01S00187.qfm     +++|*                QFM FILE IGNORED MESSAGE.
00212  M01S00188.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00189.271l716 ---|*         * QFM RANDOM ADDRESS ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00190.271l716 ---|*                AN ERROR HAS BEEN DETECTED WHILE CONVERTING THE

Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00191.271l716 ---|*                RANDOM ADDRESS OF THE DAYFILE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00192.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00193.v23l617 ---|*         * NORERUN/RERUN IGNORED FROM TTY JOBS.*
00218  M01S00009.v23l617 +++|*         * NORERUN/RERUN IGNORED FROM INTERACTIVE JOBS.*
00219  M01S00194.qfm     +++|*                THE USER HAS ENTERED RERUN/NORERUN FROM A TERMINAL.
00220  M01S00195.qfm     +++|*                THE TWO COMMANDS ARE IGNORED FROM TTY.
00221  M01S00196.qfm     +++|*
00222  M01S00197.qfm     +++|*         * QFM I/O SEQUENCE ERROR.*
00223  M01S00198.qfm     +++|*                A REQUEST WAS MADE ON A BUSY FILE.
00224  M01S00199.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00200.v23l617 ---|*         * QFM ILLEGAL USER ACCESS.*
00226  M01S00010.v23l617 +++|*         * QFM USER ACCESS NOT VALID.*
00227  M01S00201.qfm     +++|*                THE CALLER IS NOT SYSTEM ORIGIN OR DOES NOT HAVE
00228  M01S00202.qfm     +++|*                SYSTEM ORIGIN PRIVILEGES.
00229  M01S00203.qfm     +++|*
00230  M01S00204.qfm     +++|*         * QFM FILE NAME ERROR.*
00231  M01S00205.qfm     +++|*                THE FILE NAME, LFN, IS NOT A VALID FILE NAME.
00232  M01S00206.qfm     +++|*
00233  M01S00207.qfm     +++|*         * QFM BUFFER TOO SMALL.*
00234  M01S00208.qfm     +++|*                THE BUFFER FOR READING THE SYSTEM SECTOR IS LESS THAN
00235  M01S00209.qfm     +++|*                100B WORDS LONG.
00236  M01S00210.qfm     +++|*
00237  M01S00211.qfm     +++|*         * QF LENGTH ERROR  XXXXXXX.*
00238  M01S00212.qfm     +++|*                A LENGTH ERROR WAS DETECTED WHILE DEQUEUING
00239  M01S00213.qfm     +++|*                FILE XXXXXXX.
00240  M01S00001.ns2099  +++|*
00241  M01S00002.ns2099  +++|*         * QFM IQFT INTERLOCK ABORT.*
00242  M01S00003.ns2099  +++|*                THE CALLER IS TRYING TO SET A NEW IQFT FILE ON THE
00243  M01S00004.ns2099  +++|*                DEVICE AND DOES NOT HAVE THE OLD FILE INTERLOCKED.
00244  M01S00005.ns2099  +++|*
00245  M01S00006.ns2099  +++|*         * QFM NO IQFT TRACK AVAILABLE.*
00246  M01S00007.ns2099  +++|*                SPACE IS NOT AVAILABLE FOR A NEW IQFT FILE.  RELEASE
00247  M01S00008.ns2099  +++|*                SPACE ON THE DEVICE AND REINITIALIZE.
00248  M01S00006.271l716 +++|*
00249  M01S00007.271l716 +++|*
00250  M01S00008.271l716 +++|*         THE FOLLOWING MESSAGES ARE DISPLAYED ONLY IN *MS2W*.
00251  M01S00009.271l716 +++|*
00252  M01S00010.271l716 +++|*         * TRACK LIMIT.*
00253  M01S00011.271l716 +++|*                *QFM* IS WAITING IN THE PP FOR A TRACK TO BECOME
00254  M01S00012.271l716 +++|*                AVAILABLE.
00255  M01S00214.qfm     +++|          SPACE  4
00256  M01S00215.qfm     +++|***       ACCOUNT FILE MESSAGES.
00257  M01S00216.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00217.ns2236  ---|*         *JOBNAMEO. AEPQ, TY.*  THE QUEUED FILE, JOBNAME, OF

Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00218.ns2236  ---|*                ORIGIN TYPE, O, AND FILE TYPE, TY, HAS BEEN

Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00219.ns2236  ---|*                RELEASED FROM THE SYSTEM.
00261  M01S00001.ns2236  +++|*         *ARRQ, C1, JSN, YYMMDD, HHMMSS, DC.*
00262  M01S00002.ns2236  +++|*         *ARRQ, C2, XXXXXX.XXXKUNS.*
00263  M01S00003.ns2236  +++|*                QUEUED FILE CREATED ON DATE YYMMDD AT TIME
00264  M01S00004.ns2236  +++|*                HHMMSS WITH ORIGINAL JOB SEQUENCE NAME JSN
00265  M01S00005.ns2236  +++|*                HAS BEEN REENTERED INTO THE ACTIVE QUEUE.
00266  M01S00006.ns2236  +++|*                THE FILE HAS A DISPOSITION CODE OF DC AND IS
00267  M01S00007.ns2236  +++|*                XXXXXX.XXX THOUSAND PRUS IN LENGTH.
00268  M01S00220.qfm     +++|          SPACE  4
00269  M01S00221.qfm     +++|***       ROUTINES CALLED.
00270  M01S00222.qfm     +++|*
00271  M01S00223.qfm     +++|*         0BF - BEGIN FILE.
00272  M01S00224.qfm     +++|*         0DF - DROP FILE.
00273  M01S00225.qfm     +++|*         0DQ - DROP QUEUE FILE.
00274  M01S00001.ns2663  +++|*         0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
00275  M01S00226.qfm     +++|          SPACE  4
00276  M01S00227.qfm     +++|*         COMMON DECKS.
00277  M01S00228.qfm     +++|
00278  M01S00229.qfm     +++|*CALL     COMPMAC
00279  M01S00230.qfm     +++|*CALL     COMSCPS
00280  M01S00231.qfm     +++|*CALL     COMSDSP
00281  M01S00232.qfm     +++|*CALL     COMSEVT
00282  M01S00233.qfm     +++|          LIST   X
00283  M01S00234.qfm     +++|*CALL     COMSIOQ
00284  M01S00235.qfm     +++|          LIST   -X
00285  M01S00236.qfm     +++|*CALL     COMSJIO
00286  M01S00237.qfm     +++|*CALL     COMSMMF
00287  M01S00238.qfm     +++|*CALL     COMSMSP
00288  M01S00239.qfm     +++|*CALL     COMSPIM
00289  M01S00001.ns2185  +++|*CALL     COMSSCD
00290  M01S00240.qfm     +++|*CALL     COMSSSE
00291  M01S00241.qfm     +++|*CALL     COMSSSJ
00292  M01S00242.qfm     +++|*CALL     COMSWEI
00293  M01S00243.qfm     +++|*CALL     COMSZOL
00294  M01S00244.qfm     +++|          EJECT
00295  M01S00245.qfm     +++|**        DIRECT LOCATION ASSIGNMENTS.
00296  M01S00246.qfm     +++|
00297  M01S00247.qfm     +++|
00298  M01S00248.qfm     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00299  M01S00249.qfm     +++| EO       EQU    25          EJT ORDINAL
00300  M01S00250.qfm     +++| QA       EQU    26          QFT ORDINAL
00301  M01S00251.qfm     +++| BI       EQU    27          BUFFER INDEX
00302  M01S00252.qfm     +++| CN       EQU    30 - 34     CM BUFFER (5 LOCATIONS)
00303  M01S00253.qfm     +++| SC       EQU    35          SCRATCH
00304  M01S00254.qfm     +++| RI       EQU    36 - 37     RANDOM ADDRESS (2 LOCATIONS)
00305  M01S00255.qfm     +++| FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
00306  M01S00256.qfm     +++| QT       EQU    45          *QFM* FILE FIRST TRACK
00307  M01S00257.qfm     +++| CA       EQU    46 - 47     SCRATCH (2 LOCATIONS)
00308  M01S00258.qfm     +++| FA       EQU    57          NFL OFFSET OF LOCAL FNT ENTRY
00309  M01S00259.qfm     +++| FT       EQU    60 - 61     FIRST POINTER (2 LOCATIONS)
00310  M01S00260.qfm     +++| IN       EQU    62 - 63     IN POINTER (2 LOCATIONS)
00311  M01S00261.qfm     +++| OT       EQU    64 - 65     OUT POINTER (2 LOCATIONS)
00312  M01S00262.qfm     +++| LM       EQU    66 - 67     LIMIT POINTER (2 LOCATIONS)
00313  M01S00263.qfm     +++|          TITLE  MACRO DEFINITIONS.
00314  M01S00264.qfm     +++|**        ABORT - ABORT CONTROL POINT.
00315  M01S00265.qfm     +++|*
00316  M01S00266.qfm     +++|*         ABORT  ADDR,*
00317  M01S00267.qfm     +++|*
00318  M01S00268.qfm     +++|*         ENTRY  ADDR = FWA OF ERROR MESSAGE.
00319  M01S00269.qfm     +++|*                *, IF SPECIFIED, DO NOT QUALIFY ADDRESS.
00320  M01S00270.qfm     +++|*
00321  M01S00271.qfm     +++|*         EXIT   TO *ABT*.
00322  M01S00272.qfm     +++|
00323  M01S00273.qfm     +++|
00324  M01S00274.qfm     +++|          PURGMAC ABORT
00325  M01S00275.qfm     +++|
00326  M01S00276.qfm     +++| ABORT    MACRO  ADDR,N
00327  M01S00277.qfm     +++|          IFC    NE,$N$*$
00328  M01S00278.qfm     +++|          LDC    /ERR/ADDR
00329  M01S00279.qfm     +++|          ELSE
00330  M01S00280.qfm     +++|          LDC    ADDR
00331  M01S00281.qfm     +++|          ENDIF
00332  M01S00282.qfm     +++|          LJM    ABT
00333  M01S00283.qfm     +++|          ENDM
00334  M01S00284.qfm     +++|          SPACE  4,7
00335  M01S00285.qfm     +++|**        ERROR - RETURN ERROR CODE TO FET.
00336  M01S00286.qfm     +++|*
00337  M01S00287.qfm     +++|*         ERROR  EC
00338  M01S00288.qfm     +++|*
00339  M01S00289.qfm     +++|*         ENTRY  EC = ERROR CODE. (SEE COMSIOQ FOR DEFINED ERROR CODES).
00340  M01S00290.qfm     +++|*
00341  M01S00291.qfm     +++|*         EXIT   TO *ERR*.
00342  M01S00292.qfm     +++|
00343  M01S00293.qfm     +++|
00344  M01S00294.qfm     +++|          PURGMAC ERROR
00345  M01S00295.qfm     +++|
00346  M01S00296.qfm     +++| ERROR    MACRO  EC
00347  M01S00297.qfm     +++|          LDN    EC
00348  M01S00298.qfm     +++|          LJM    ERR
00349  M01S00299.qfm     +++|          ENDM
00350  M01S00300.qfm     +++| FCN      SPACE  4,10
00351  M01S00301.qfm     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00352  M01S00302.qfm     +++|*
00353  M01S00303.qfm     +++|* TN      FCN    F,N,L,P,S
00354  M01S00304.qfm     +++|*
00355  M01S00305.qfm     +++|*         TN     TABLE NAME (FIRST CALL ONLY).
00356  M01S00306.qfm     +++|*         F      FUNCTION CODE.
00357  M01S00307.qfm     +++|*         N      NAME OF FUNCTION PROCESSOR.
00358  M01S00308.qfm     +++|*         L      REQUIRED FET LENGTH - 1.
00359  M01S00309.qfm     +++|*         P      CALLER MUST HAVE SYSTEM ORIGIN PRIVILEGES.
00360  M01S00310.qfm     +++|*         S      CALLER MUST BE SPECIAL SYSTEM JOB (SSJ).
00361  M01S00311.qfm     +++|*
00362  M01S00312.qfm     +++|*         TABLE GENERATED.
00363  M01S00313.qfm     +++|*
00364  M01S00314.qfm     +++|*T,TN     12/O ,12/N ,1/S,1/P,4/ ,6/L

Figure TN

00365  M01S00315.qfm     +++|*
00366  M01S00316.qfm     +++|*         O      OVERLAY NAME (LAST CHARACTER)
00367  M01S00317.qfm     +++|*         N      PROCESSOR ADDRESS
00368  M01S00318.qfm     +++|*         S      SSJ= REQUIRED
00369  M01S00319.qfm     +++|*         P      SYSTEM ORIGIN PRIVILEDGES REQUIRED
00370  M01S00320.qfm     +++|*         L      REQUIRED FET LENGTH - 1
00371  M01S00321.qfm     +++|
00372  M01S00322.qfm     +++|
00373  M01S00323.qfm     +++|          MACRO  FCN,TN,F,N,L,P,S
00374  M01S00324.qfm     +++| .D       IFC    NE,$TN$$
00375  M01S00325.qfm     +++| TN       BSS    0
00376  M01S00326.qfm     +++| .T       SET    TN
00377  M01S00327.qfm     +++| .D       ELSE
00378  M01S00328.qfm     +++|          ORG    .T+3*F
00379  M01S00329.qfm     +++| .A       IFC    NE,$N$$
00380  M01S00330.qfm     +++|          LOC    F
00381  M01S00331.qfm     +++|          CON    N/10000B,N-N/10000B*10000B
00382  M01S00332.qfm     +++| .S       IFC    EQ,$S$SSJ$
00383  M01S00333.qfm     +++|          VFD    1/1
00384  M01S00334.qfm     +++| .S       ELSE   1
00385  M01S00335.qfm     +++|          VFD    1/0
00386  M01S00336.qfm     +++| .P       IFC    NE,$P$$
00387  M01S00337.qfm     +++|          VFD    1/1
00388  M01S00338.qfm     +++| .P       ELSE   1
00389  M01S00339.qfm     +++|          VFD    1/0
00390  M01S00340.qfm     +++|          VFD    4/0
00391  M01S00341.qfm     +++|          VFD    6/L
00392  M01S00342.qfm     +++| .A       ENDIF
00393  M01S00343.qfm     +++|          BSS    0
00394  M01S00344.qfm     +++| .D       ENDIF
00395  M01S00345.qfm     +++|          ENDM
00396  M01S00346.qfm     +++|          SPACE  4,5
00397  M01S00347.qfm     +++|**        OVERLAY CONTROL.
00398  M01S00348.qfm     +++|*
00399  M01S00349.qfm     +++|*         THIS FEATURE IS INCLUDED FOR FUTURE MODULARITY.
00400  M01S00350.qfm     +++|
00401  M01S00351.qfm     +++| .N       SET    0
00402  M01S00352.qfm     +++| OVLB     MICRO  1,, 3Q      BASE OVERLAY NAME
00403  M01S00353.qfm     +++|          SPACE  4,8
00404  M01S00354.qfm     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00405  M01S00355.qfm     +++|*
00406  M01S00356.qfm     +++|*
00407  M01S00357.qfm     +++|*         OVERLAY (TEXT)
00408  M01S00358.qfm     +++|*
00409  M01S00359.qfm     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLE.
00410  M01S00360.qfm     +++|
00411  M01S00361.qfm     +++|
00412  M01S00362.qfm     +++|          PURGMAC OVERLAY
00413  M01S00363.qfm     +++|
00414  M01S00364.qfm     +++| OVERLAY  MACRO  TEXT
00415  M01S00365.qfm     +++|          QUAL
00416  M01S00366.qfm     +++| .N       SET    .N+1
00417  M01S00367.qfm     +++| .M       MICRO  .N,1 ABCDEFGHIJKLMNOPQ
00418  M01S00368.qfm     +++| .O       MICRO  1,3, "OVLB"".M"
00419  M01S00369.qfm     +++|          QUAL   ".O"
00420  M01S00370.qfm     +++|          TTL    QFM/".O" - TEXT
00421  M01S00371.qfm     +++|          TITLE
00422  M01S00372.qfm     +++|          IDENT  ".O",OVL    TEXT

Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00373.ns22000 ---|  COMMENT 74/04/01.           QFM - TEXT
00424  M01S00005.ns22000 +++|*COMMENT  QFM - TEXT

Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00374.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00426  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00427  M01S00375.qfm     +++|          ORG    OVL
00428  M01S00376.qfm     +++|          LJM    *
00429  M01S00377.qfm     +++|          UJN    *-2
00430  M01S00378.qfm     +++|          ENDM
00431  M01S00379.qfm     +++|          SPACE  4,6
00432  M01S00380.qfm     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00433  M01S00381.qfm     +++|*
00434  M01S00382.qfm     +++|*         ENTRY  NAME
00435  M01S00383.qfm     +++|*
00436  M01S00384.qfm     +++|*         ENTRY  *NAME* = NAME OF ENTRY ADDRESS.
00437  M01S00385.qfm     +++|
00438  M01S00386.qfm     +++|
00439  M01S00387.qfm     +++|          PURGMAC ENTRY
00440  M01S00388.qfm     +++|
00441  M01S00389.qfm     +++| ENTRY    MACRO  NAME
00442  M01S00390.qfm     +++|          QUAL
00443  M01S00391.qfm     +++| NAME_X   LJP    *
00444  M01S00392.qfm     +++| NAME     EQU    *-1+1R".M"*10000B
00445  M01S00393.qfm     +++|          QUAL   ".O"
00446  M01S00394.qfm     +++|          ENDM
00447  M01S00395.qfm     +++|          TITLE  MAIN PROGRAM.
00448  M01S00396.qfm     +++|**        QFM - MAIN PROGRAM.
00449  M01S00397.qfm     +++|
00450  M01S00398.qfm     +++|
00451  M01S00399.qfm     +++|          ORG    PPFW
00452  M01S00400.qfm     +++| QFM      RJM    PRS         PRESET PROGRAM
00453  M01S00401.qfm     +++| QFM1     ZJN    QFM2        IF NO OVERLAY REQUIRED
00454  M01S00402.qfm     +++|          LMC    2L"OVLB"    LOAD OVERLAY
00455  M01S00403.qfm     +++|          RJM    EXR
00456  M01S00404.qfm     +++| QFM2     RJM    *           PROCESS REQUEST
00457  M01S00405.qfm     +++| QFMB     EQU    *-1
00458  M01S00406.qfm     +++|
00459  M01S00407.qfm     +++|*         SET COMPLETE BIT IN FET AND DROP PPU.
00460  M01S00408.qfm     +++|
00461  M01S00409.qfm     +++| QFMX     RJM    GFE
00462  M01S00410.qfm     +++|          ZJN    DPP         IF NO FET
00463  M01S00411.qfm     +++|          CRD    CM
00464  M01S00412.qfm     +++|          AOD    CM+4        SET FET NOT BUSY
00465  M01S00413.qfm     +++|          RJM    GFE         GET FET ADDRESS
00466  M01S00414.qfm     +++|          CWD    CM
00467  M01S00415.qfm     +++|
00468  M01S00416.qfm     +++| DPP      MONITOR DPPM       DROP PPU
00469  M01S00417.qfm     +++|          LJM    PPR
00470  M01S00418.qfm     +++| ABT      TITLE  ERROR PROCESSING ROUTINES.
00471  M01S00419.qfm     +++|**        ABT - ABORT PROCESSOR.
00472  M01S00420.qfm     +++|*
00473  M01S00421.qfm     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00474  M01S00009.ns2099  +++|*                (T5) = EST ORDINAL.
00475  M01S00422.qfm     +++|*
00476  M01S00423.qfm     +++|*         EXIT   (RI) = ADDRESS OF MESSAGE.
00477  M01S00010.ns2099  +++|*                (RI+1) = EST ORDINAL.
00478  M01S00424.qfm     +++|
00479  M01S00425.qfm     +++|
00480  M01S00426.qfm     +++| ABT      STD    RI          SAVE MESSAGE ADDRESS
00481  M01S00011.ns2099  +++|          LDD    T5          SAVE EST ORDINAL
00482  M01S00012.ns2099  +++|          STD    RI+1
00483  M01S00427.qfm     +++|          LDC    ABP
00484  M01S00428.qfm     +++|          UJN    ERR1
00485  M01S00429.qfm     +++| ERR      SPACE  4
00486  M01S00430.qfm     +++|**        ERR - ERROR PROCESSOR.
00487  M01S00431.qfm     +++|*
00488  M01S00432.qfm     +++|*         ENTRY  (A) = ERROR CODE.
00489  M01S00013.ns2099  +++|*                (T5) = EST ORDINAL.
00490  M01S00433.qfm     +++|*
00491  M01S00434.qfm     +++|*         EXIT   (RI) = ERROR CODE.
00492  M01S00014.ns2099  +++|*                (RI+1) = EST ORDINAL.
00493  M01S00435.qfm     +++|*
00494  M01S00436.qfm     +++|*         CALLS  CIN.
00495  M01S00437.qfm     +++|
00496  M01S00438.qfm     +++|
00497  M01S00439.qfm     +++| ERR      STD    RI          SAVE ERROR CODE
00498  M01S00015.ns2099  +++|          LDD    T5
00499  M01S00016.ns2099  +++|          STD    RI+1
00500  M01S00440.qfm     +++|          LDC    ERP
00501  M01S00441.qfm     +++| ERR1     STM    QFMB        SET ENTRY ADDRESS
00502  M01S00442.qfm     +++|          SHN    -14
00503  M01S00443.qfm     +++|          LJM    QFM1        EXECUTE ERROR PROCESSOR
00504  M01S00444.qfm     +++| ERS      SPACE  4,10
00505  M01S00445.qfm     +++|**        ERS - ENTER PP RECALL STACK.
00506  M01S00446.qfm     +++|*
00507  M01S00447.qfm     +++|*         EXIT   TO *PPR*.
00508  M01S00448.qfm     +++|*
00509  M01S00449.qfm     +++|*         USES   CM - CM+5.
00510  M01S00450.qfm     +++|*
00511  M01S00451.qfm     +++|*         MACROS MONITOR.
00512  M01S00452.qfm     +++|
00513  M01S00453.qfm     +++|
00514  M01S00454.qfm     +++| ERS      BSS    0           ENTRY
00515  M01S00455.qfm     +++|          LDN    NFIR        NFL INCREASE PENDING REASON CODE
00516  M01S00456.qfm     +++|          STD    CM
00517  M01S00457.qfm     +++|          LDN    ZERL        ENTER DEFAULT TIMED RECALL
00518  M01S00458.qfm     +++|          CRD    CM+1
00519  M01S00459.qfm     +++|          LDD    MA          STORE PP CALL IN MESSAGE BUFFER
00520  M01S00460.qfm     +++|          CWD    IR
00521  M01S00461.qfm     +++|          ADN    1           STORE RECALL STACK REASON CODE
00522  M01S00462.qfm     +++|          CWD    CM
00523  M01S00463.qfm     +++|          MONITOR  RECM
00524  M01S00464.qfm     +++|          LJM    PPR         EXIT TO PP RESIDENT
00525  M01S00465.qfm     +++|          TITLE  RESIDENT SUBROUTINES.
00526  M01S00466.qfm     +++| CIN      SPACE  4,16
00527  M01S00467.qfm     +++|**        CIN - CLEAR INTERLOCKS.
00528  M01S00468.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00469.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
00530  M01S00006.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00531  M01S00470.qfm     +++|*                (FA) = FNT OFFSET INTO NFL OF BUSY FILE.
00532  M01S00471.qfm     +++|*                (QT) = FIRST TRACK OF INTERLOCKED FILE.
00533  M01S00472.qfm     +++|*                (EO) = EJT ORDINAL OF INTERLOCKED ENTRY.
00534  M01S00473.qfm     +++|*                (QA) = QFT ORDINAL OF INTERLOCKED ENTRY.
00535  M01S00474.qfm     +++|*
00536  M01S00475.qfm     +++|*         EXIT   (A) = (FA) = (QT) = (EO) = (QA) = 0.
00537  M01S00476.qfm     +++|*
00538  M01S00477.qfm     +++|*         USES   CM - CM+4, CN - CN+4.
00539  M01S00478.qfm     +++|*
00540  M01S00479.qfm     +++|*         CALLS  CTI.
00541  M01S00480.qfm     +++|*
00542  M01S00481.qfm     +++|*         MACROS MONITOR, NFA, SFA.
00543  M01S00482.qfm     +++|
00544  M01S00483.qfm     +++|
00545  M01S00484.qfm     +++| CIN      SUBR               ENTRY/EXIT
00546  M01S00485.qfm     +++|          LDD    FA
00547  M01S00486.qfm     +++|          ZJN    CIN1        IF NO BUSY FILE
00548  M01S00487.qfm     +++|          NFA    FA,R
00549  M01S00488.qfm     +++|          ADN    FSTL
00550  M01S00489.qfm     +++|          CRD    CN
00551  M01S00490.qfm     +++|          AOD    CN+4        SET FILE NOT BUSY
00552  M01S00491.qfm     +++|          NFA    FA,R
00553  M01S00492.qfm     +++|          ADN    FSTL
00554  M01S00493.qfm     +++|          CWD    CN
00555  M01S00494.qfm     +++| CIN1     LDD    QT
00556  M01S00495.qfm     +++|          ZJN    CIN2        IF NO TRACK CHAIN INTERLOCKED
00557  M01S00496.qfm     +++|          RJM    CTI         CLEAR TRACK INTERLOCK
00558  M01S00497.qfm     +++| CIN2     LDD    EO
00559  M01S00498.qfm     +++|          ZJN    CIN3        IF NO EJT ENTRY INTERLOCKED
00560  M01S00499.qfm     +++|          SFA    EJT
00561  M01S00500.qfm     +++|          STD    CM+4        SET ABSOLUTE ADDRESS OF ENTRY
00562  M01S00501.qfm     +++|          SHN    -14
00563  M01S00502.qfm     +++|          STD    CM+3
00564  M01S00503.qfm     +++|          LDN    1S5         CLEAR INTERLOCK
00565  M01S00504.qfm     +++|          STD    CM+1
00566  M01S00505.qfm     +++|          MONITOR  UTEM
00567  M01S00506.qfm     +++|*         LDN    0
00568  M01S00507.qfm     +++|          STD    EO
00569  M01S00508.qfm     +++| CIN3     LDD    QA
00570  M01S00509.qfm     +++|          ZJN    CIN4        IF NO QFT ENTRY INTERLOCKED
00571  M01S00510.qfm     +++|          SFA    QFT
00572  M01S00511.qfm     +++|          STD    CM+4        SET ABSOLUTE ADDRESS OF ENTRY
00573  M01S00512.qfm     +++|          SHN    -14
00574  M01S00513.qfm     +++|          STD    CM+3
00575  M01S00514.qfm     +++|          LDN    1S5         CLEAR INTERLOCK
00576  M01S00515.qfm     +++|          STD    CM+1
00577  M01S00516.qfm     +++|          MONITOR  UTEM
00578  M01S00517.qfm     +++|*         LDN    0
00579  M01S00518.qfm     +++|          STD    QA
00580  M01S00519.qfm     +++| CIN4     STD    QT
00581  M01S00520.qfm     +++|          STD    FA
00582  M01S00521.qfm     +++|          LJM    CINX        RETURN
00583  M01S00522.qfm     +++| GFE      SPACE  4,7
00584  M01S00523.qfm     +++|**        GFE - GENERATE FET ADDRESS.
00585  M01S00524.qfm     +++|*
00586  M01S00525.qfm     +++|*         EXIT   (A) = ADDRESS OF FET.
00587  M01S00526.qfm     +++|*                (A) = 0, IF NO FET ADDRESS SPECIFIED.
00588  M01S00527.qfm     +++|
00589  M01S00528.qfm     +++|
00590  M01S00529.qfm     +++| GFE1     LDD    IR+3        SET FET ADDRESS
00591  M01S00530.qfm     +++|          SHN    6
00592  M01S00531.qfm     +++|          ADD    RA
00593  M01S00532.qfm     +++|          SHN    6
00594  M01S00533.qfm     +++|          ADD    IR+4
00595  M01S00534.qfm     +++|
00596  M01S00535.qfm     +++| GFE      SUBR               ENTRY/EXIT
00597  M01S00536.qfm     +++| GFEA     LDN    0
00598  M01S00537.qfm     +++|*         UJN    GFE1        (FET ADDRESS SPECIFIED)
00599  M01S00538.qfm     +++|          UJN    GFEX        RETURN
00600  M01S00001.253l688 +++| SMD      SPACE  4,10
00601  M01S00002.253l688 +++|**        SMD - EXECUTE *SMDM* MONITOR FUNCTION.
00602  M01S00003.253l688 +++|*
00603  M01S00004.253l688 +++|*         ENTRY  (A) = SUBFUNCTION.
00604  M01S00005.253l688 +++|*                (T5) = EQUIPMENT.
00605  M01S00006.253l688 +++|*                (T6) = TRACK.
00606  M01S00007.253l688 +++|*
00607  M01S00008.253l688 +++|*         EXIT   *SMDM* MONITOR FUNCTION EXECUTED.
00608  M01S00009.253l688 +++|*
00609  M01S00010.253l688 +++|*         USES   CM - CM+4.
00610  M01S00011.253l688 +++|
00611  M01S00012.253l688 +++|
00612  M01S00013.253l688 +++| SMD      SUBR               ENTRY/EXIT
00613  M01S00014.253l688 +++|          STD    CM+3
00614  M01S00015.253l688 +++|          LDD    T5          SET EQUIPMENT
00615  M01S00016.253l688 +++|          STD    CM+1
00616  M01S00017.253l688 +++|          LDD    T6          SET TRACK
00617  M01S00018.253l688 +++|          STD    CM+2
00618  M01S00019.253l688 +++|          MONITOR  SMDM
00619  M01S00020.253l688 +++|          UJN    SMDX        RETURN
00620  M01S00539.qfm     +++| STB      SPACE  4,10
00621  M01S00540.qfm     +++|**        STB - EXECUTE *STBM* MONITOR FUNCTION.
00622  M01S00541.qfm     +++|*
00623  M01S00542.qfm     +++|*         ENTRY  (A) BITS 17-12 = CPFS SUBFUNCTION OPTIONS.
00624  M01S00543.qfm     +++|*                (A) BITS 11-0 = SUBFUNCTION.
00625  M01S00544.qfm     +++|*                (T5) = EQUIPMENT.
00626  M01S00545.qfm     +++|*                (T6) = TRACK.
00627  M01S00546.qfm     +++|*
00628  M01S00547.qfm     +++|*         EXIT   *STBM* MONITOR FUNCTION EXECUTED.
00629  M01S00548.qfm     +++|*                (A) = 0, NO FUNCTION REJECT.
00630  M01S00549.qfm     +++|*
00631  M01S00550.qfm     +++|*         USES   CM - CM+4.
00632  M01S00551.qfm     +++|
00633  M01S00552.qfm     +++|
00634  M01S00004.ns2576  +++| STB1     SHN    22-21+11    RESTORE STATUS
00635  M01S00005.ns2576  +++|
00636  M01S00553.qfm     +++| STB      SUBR               ENTRY/EXIT
00637  M01S00554.qfm     +++|          STD    CM+3
00638  M01S00555.qfm     +++|          SHN    -6          SET *CPFS* SUBFUNCTION OPTIONS
00639  M01S00556.qfm     +++|          SCN    77
00640  M01S00557.qfm     +++|          ADD    T5          SET EQUIPMENT
00641  M01S00558.qfm     +++|          STD    CM+1
00642  M01S00559.qfm     +++|          LDD    T6          SET TRACK
00643  M01S00560.qfm     +++|          STD    CM+2
00644  M01S00561.qfm     +++|          MONITOR STBM
00645  M01S00562.qfm     +++|          LDD    CM+1        SET EXIT CONDITION

Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00563.ns2576  ---|          UJN    STBX        RETURN
00647  M01S00006.ns2576  +++|          SHN    21-11
00648  M01S00007.ns2576  +++|          PJN    STB1        IF DEVICE IS ACCESSIBLE
00649  M01S00008.ns2576  +++|          RJM    MSR         REPORT ERROR (DOES NOT RETURN)
00650  M01S00564.qfm     +++| CEQ      SPACE  4,10
00651  M01S00565.qfm     +++|**        CEQ - CHECK EQUIPMENT.
00652  M01S00566.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00567.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
00654  M01S00007.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00655  M01S00568.qfm     +++|*
00656  M01S00569.qfm     +++|*         EXIT   (A) = 0 IF NOT MASS STORAGE EQUIPMENT.
00657  M01S00570.qfm     +++|*                (CN - CN+4) = EST ENTRY.
00658  M01S00571.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00572.ns22000 ---|*         MACROS ABORT.
00660  M01S00008.ns22000 +++|*         MACROS ABORT, SFA.
00661  M01S00573.qfm     +++|
00662  M01S00574.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00575.ns22000 ---| CEQ1     LDD    CN          POSITION MASS STORAGE FLAG
00664  M01S00009.ns22000 +++| CEQ1     SFA    EST,T5      READ EST ENTRY
00665  M01S00010.ns22000 +++|          ADK    EQDE
00666  M01S00011.ns22000 +++|          CRD    CN
00667  M01S00012.ns22000 +++|          LDD    CN          POSITION MASS STORAGE FLAG
00668  M01S00576.qfm     +++|          SHN    0-13
00669  M01S00577.qfm     +++|
00670  M01S00578.qfm     +++| CEQ      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00579.ns22000 ---|          LDD    T5          READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00580.ns22000 ---|          ADM    ESTS

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00581.ns22000 ---|          CRD    CN
00674  M01S00013.ns22000 +++|          LDD    T5

Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00582.ns22000 ---|          SBK    7777        CHECK VALID EQUIPMENT NUMBER
00676  M01S00014.ns22000 +++|          SBK    7777        CHECK VALID EST ORDINAL
00677  M01S00583.qfm     +++| CEQA     EQU    *-1
00678  M01S00584.qfm     +++|          MJN    CEQ1        IF EQUIPMENT WITHIN EST

Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00585.v23l617 ---|          ABORT  EREQ        * QFM ILLEGAL EQUIPMENT.*
00680  M01S00011.v23l617 +++|          ABORT  EREQ        * QFM INCORRECT EQUIPMENT.*
00681  M01S00586.qfm     +++| CFS      SPACE  4,12
00682  M01S00587.qfm     +++|**        CFS - CHECK FILE STATUS.
00683  M01S00588.qfm     +++|*
00684  M01S00589.qfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00685  M01S00590.qfm     +++|*
00686  M01S00591.qfm     +++|*         EXIT   (FA) = NFL OFFSET OF FNT ENTRY.
00687  M01S00592.qfm     +++|*                (T5) = EQUIPMENT.
00688  M01S00593.qfm     +++|*                (T6) = FIRST TRACK.
00689  M01S00594.qfm     +++|*                (CM - CM+4) = FNT ENTRY.
00690  M01S00595.qfm     +++|*                (FS - FS+4) = FST ENTRY.
00691  M01S00596.qfm     +++|*                (CN - CN+4) = EST ENTRY.
00692  M01S00597.qfm     +++|*
00693  M01S00598.qfm     +++|*         USES   FN - FN+4.
00694  M01S00599.qfm     +++|*
00695  M01S00600.qfm     +++|*         MACROS ABORT, ERROR.
00696  M01S00601.qfm     +++|
00697  M01S00602.qfm     +++|
00698  M01S00603.qfm     +++| CFS3     LDD    FS          SET EQUIPMENT
00699  M01S00604.qfm     +++|          STD    T5
00700  M01S00605.qfm     +++|          LDD    FS+1        SET FIRST TRACK
00701  M01S00606.qfm     +++|          STD    T6
00702  M01S00607.qfm     +++|          RJM    CMS         CHECK MASS STORAGE
00703  M01S00608.qfm     +++|
00704  M01S00609.qfm     +++| CFS      SUBR               ENTRY/EXIT
00705  M01S00610.qfm     +++|          RJM    GFE         READ FILE NAME
00706  M01S00611.qfm     +++|          CRD    FN
00707  M01S00612.qfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
00708  M01S00613.qfm     +++|          NJN    CFS2        IF FILE FOUND
00709  M01S00614.qfm     +++|          ERROR  FNFE        EC = 1, NO FILE FOUND
00710  M01S00615.qfm     +++|
00711  M01S00616.qfm     +++| CFS2     RJM    SFB         SET FILE BUSY
00712  M01S00617.qfm     +++|          ZJN    CFS3        IF FILE SET BUSY
00713  M01S00618.qfm     +++|          LDN    0           CLEAR FST ADDRESS
00714  M01S00619.qfm     +++|          STD    FA
00715  M01S00620.qfm     +++|          ABORT  ERIO        * QFM I/O SEQUENCE ERROR.*
00716  M01S00621.qfm     +++| CMS      SPACE  4,6
00717  M01S00622.qfm     +++|**        CMS - CHECK MASS STORAGE.
00718  M01S00623.qfm     +++|*
00719  M01S00624.qfm     +++|*         ENTRY  (T5) = EQUIPMENT.
00720  M01S00625.qfm     +++|*
00721  M01S00626.qfm     +++|*         CALLS  CEQ.
00722  M01S00627.qfm     +++|*
00723  M01S00628.qfm     +++|*         MACROS ABORT.
00724  M01S00629.qfm     +++|
00725  M01S00630.qfm     +++|
00726  M01S00631.qfm     +++| CMS      SUBR               ENTRY/EXIT
00727  M01S00632.qfm     +++|          RJM    CEQ         CHECK EQUIPMENT
00728  M01S00633.qfm     +++|          NJN    CMSX        IF MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00729  M02S00634.v23l617 ---|          ABORT  EREQ        * QFM ILLEGAL EQUIPMENT.*
00730  M01S00012.v23l617 +++|          ABORT  EREQ        * QFM INCORRECT EQUIPMENT.*
00731  M01S00635.qfm     +++| IFI      SPACE  4,10
00732  M01S00636.qfm     +++|**        IFI - ISSUE FILE IGNORED MESSAGE.
00733  M01S00637.qfm     +++|*
00734  M01S00638.qfm     +++|*         ENTRY  (A) = FWA OF ERROR MESSAGE.
00735  M01S00639.qfm     +++|*                (FN - FN+1) = FILE NAME (SEQUENCE NUMBER).
00736  M01S00640.qfm     +++|*
00737  M01S00641.qfm     +++|*         EXIT   SPECIFIED ERROR MESSAGE ISSUED.
00738  M01S00642.qfm     +++|*
00739  M01S00643.qfm     +++|*         CALLS  DFM.
00740  M01S00644.qfm     +++|
00741  M01S00645.qfm     +++|
00742  M01S00646.qfm     +++| IFI      SUBR               ENTRY/EXIT
00743  M01S00647.qfm     +++|          ZJN    IFI1        IF NO ERROR MESSAGE
00744  M01S00648.qfm     +++|          RJM    DFM
00745  M01S00649.qfm     +++| IFI1     LDD    FN          SET NAME IN MESSAGE
00746  M01S00650.qfm     +++|          STM    IFIB
00747  M01S00651.qfm     +++|          LDD    FN+1
00748  M01S00652.qfm     +++|          STM    IFIB+1
00749  M01S00653.qfm     +++|          LDC    IFIA        * QFM - FILE IGNORED XXXX.*
00750  M01S00654.qfm     +++|          RJM    DFM
00751  M01S00655.qfm     +++|          UJN    IFIX        RETURN
00752  M01S00656.qfm     +++|
00753  M01S00657.qfm     +++| IFIA     DATA   H* QFM - FILE IGNORED*
00754  M01S00658.qfm     +++| IFIB     DATA   C*XXXX.*

Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00659.242l642 ---| MSR      SPACE  4,14
00756  M01S00001.242l642 +++| MSR      SPACE  4,20
00757  M01S00660.qfm     +++|**        MSR - MASS STORAGE ERROR PROCESSING.
00758  M01S00661.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00662.242l642 ---|*         ENTRY  ENTERED FROM *RNS* OR *RSS* IF MASS STORAGE ERROR.
00760  M01S00002.242l642 +++|*         ENTERED FROM *RNS* OR AFTER ENCOUNTERING AN I/O
00761  M01S00003.242l642 +++|*         ERROR ON A MASS STORAGE DEVICE.
00762  M01S00004.242l642 +++|*
00763  M01S00005.242l642 +++|*         ENTRY  BIT 2**10D OF *RDCT* SET IF NON-RECOVERABLE ERROR.
00764  M01S00006.242l642 +++|*                (FA) = FNT POINTER.
00765  M01S00663.qfm     +++|*                (QT) = TRACK INTERLOCK INDICATOR.
00766  M01S00664.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00767  M02S00665.242l642 ---|*         EXIT   TO ERR.
00768  M01S00007.242l642 +++|*         EXIT   TO ERR, IF CALLED BY A SUBSYSTEM OR IF A JOB
00769  M01S00008.242l642 +++|*                ENCOUNTERED A NON-RECOVERABLE ERROR.
00770  M01S00009.242l642 +++|*                A NON-SUBSYSTEM JOB ENCOUNTERING A RECOVERABLE ERROR
00771  M01S00010.242l642 +++|*                WILL BE ROLLED OUT VIA *1RJ*.
00772  M01S00666.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00667.242l642 ---|*         PUTS DISK ERROR CODE IN FET(7)

Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00668.242l642 ---|*         AND EC = RMSE IN FET(0).
00775  M01S00011.242l642 +++|*         USES   IR+4, CM - CM+4, CN - CN+4.
00776  M01S00669.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00670.242l642 ---|*         USES   CN - CN+4, CM - CM+4.
00778  M01S00012.242l642 +++|*         CALLS  CIN, GFE.
00779  M01S00671.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00672.242l642 ---|*         CALLS  GFE.

Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00673.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00674.242l642 ---|*         MACROS ENDMS, ERROR.

Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00013.ns2553  ---|*         MACROS ENDMS, ERROR, EXECUTE, PAUSE.
00784  M01S00001.ns2553  +++|*         MACROS ERROR, EXECUTE, PAUSE.
00785  M01S00675.qfm     +++|
00786  M01S00676.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00677.242l642 ---| MSR      CON    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00678.242l642 ---|          RJM    GFE         CHECK EP BIT

Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00679.242l642 ---|          ZJN    MSR1        IF NO FET ADDRESS
00790  M01S00014.242l642 +++| MSR      SUBR               ENTRY/EXIT
00791  M01S00015.242l642 +++|          LDM    RDCT
00792  M01S00016.242l642 +++|          SHN    21-12
00793  M01S00017.242l642 +++|          MJN    MSR1        IF NON-RECOVERABLE ERROR
00794  M01S00018.242l642 +++|          LDM    MSD
00795  M01S00019.242l642 +++|          SHN    21-13
00796  M01S00020.242l642 +++|          PJN    MSR1        IF SUBSYSTEM
00797  M01S00021.242l642 +++|          RJM    CIN         CLEAR INTERLOCKS
00798  M01S00022.242l642 +++|          PAUSE
00799  M01S00023.242l642 +++|          LDD    CM+1
00800  M01S00024.242l642 +++|          NJP    QFMX        IF ERROR FLAG SET
00801  M01S00025.242l642 +++|          LDD    T5          EST ORDINAL
00802  M01S00026.242l642 +++|          STD    IR+4
00803  M01S00027.242l642 +++|          EXECUTE  1RJ       ROLL OUT JOB
00804  M01S00028.242l642 +++|*         LJM    PPR         DOES NOT RETURN
00805  M01S00029.242l642 +++|
00806  M01S00030.242l642 +++| MSR1     RJM    GFE         CHECK EP BIT
00807  M01S00031.242l642 +++|          ZJN    MSR2        IF NO FET ADDRESS
00808  M01S00680.qfm     +++|          ADN    1
00809  M01S00681.qfm     +++|          CRD    CN
00810  M01S00682.qfm     +++|          ADN    6           READ FET+7
00811  M01S00683.qfm     +++|          CRD    CM
00812  M01S00684.qfm     +++|          LDD    CN+1
00813  M01S00685.qfm     +++|          SHN    21-10

Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00686.242l642 ---|          PJN    MSR1        IF *EP* BIT NOT SET
00815  M01S00032.242l642 +++|          PJN    MSR2        IF *EP* BIT NOT SET
00816  M01S00687.qfm     +++|          LDM    RDCT        SET DRIVER ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00033.253l688 ---|          LPN    17
00818  M01S00021.253l688 +++|          LPN    77
00819  M01S00688.qfm     +++|          STD    CM+4
00820  M01S00689.qfm     +++|          RJM    GFE         WRITE FET+7
00821  M01S00690.qfm     +++|          ADN    7
00822  M01S00691.qfm     +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00692.242l642 ---| MSR1     ENDMS

Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00693.242l642 ---|          ERROR  RMSE        EC = 6, UNCORRECTABLE RMS ERROR

Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00694.242l642 ---| MSS      SPACE  4,8

Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00695.242l642 ---|**        MSS - MASS STORAGE READ ERROR FROM RSS.

Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00696.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00828  M02S00697.242l642 ---|*         ENTRY  ENTERED FROM *COMPRSS* IF DISK ERROR

Seq #  *Modification Id* Act 
----------------------------+
00829  M02S00698.242l642 ---|*                READING SYSTEM SECTOR.

Seq #  *Modification Id* Act 
----------------------------+
00830  M02S00699.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00700.242l642 ---|*         EXIT   TO MSR, IF FUNCTION TO BE ABORTED.

Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00701.242l642 ---|*                TO RSSX, IF FUNCTION NOT TO BE ABORTED.

Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00702.242l642 ---|*                (A) = 1, ERROR EXIT SET.

Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00703.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00704.242l642 ---|*         USES   T1.

Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00705.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00706.242l642 ---|*         CALLS  MSR.

Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00707.242l642 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00708.242l642 ---|*         MACROS ENDMS.

Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00709.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00710.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00842  M02S00711.242l642 ---| MSS      CON    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00712.242l642 ---|          LDN    0           CLEAR INDEX

Seq #  *Modification Id* Act 
----------------------------+
00844  M02S00713.242l642 ---|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
00845  M02S00714.242l642 ---| MSS1     LDM    TORS,T1     GET NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00846  M02S00715.242l642 ---|          LMD    IR+2

Seq #  *Modification Id* Act 
----------------------------+
00847  M02S00716.242l642 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00848  M02S00717.242l642 ---|          ZJN    MSS2        IF FUNCTION NOT TO BE ABORTED

Seq #  *Modification Id* Act 
----------------------------+
00849  M02S00718.242l642 ---|          AOD    T1

Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00719.242l642 ---|          SBN    TORSL

Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00720.242l642 ---|          MJN    MSS1        IF NOT END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00721.242l642 ---|          RJM    MSR         EXIT

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00722.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00723.242l642 ---| MSS2     ENDMS

Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00724.242l642 ---|          LDN    1           SET ERROR RETURN

Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00725.242l642 ---|          LJM    /COMPRSS/RSSX EXIT

Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00726.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00858  M02S00727.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00728.242l642 ---|**        TORS - TABLE OF FUNCTIONS NOT TO BE ABORTED ON ERRORS

Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00729.242l642 ---|*                ENCOUNTERED READING SYSTEM SECTORS.

Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00730.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00731.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00863  M02S00732.242l642 ---| TORS     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00733.242l642 ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00734.242l642 ---|          CON    QRSF        READ SYSTEM SECTOR

Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00735.242l642 ---|          CON    AQFF        ATTACH QUEUED FILE

Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00736.242l642 ---|          CON    AIQF        ATTACH INACTIVE QUEUED FILE

Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00737.242l642 ---|          CON    RIQF        REQUEUE INACTIVE QUEUED FILE

Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00738.242l642 ---|          CON    RQLF        REQUEUE FNT LIST

Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00739.242l642 ---|          CON    DEQF        DEQUEUE LIST

Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00740.242l642 ---|          CON    IIQF        INITIALIZE IQFT FILE

Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00741.242l642 ---| TORSL    EQU    *

Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00742.242l642 ---|          LOC    *O
00874  M01S00034.242l642 +++| MSR2     ERROR  RMSE        EC = 6, UNCORRECTABLE RMS ERROR
00875  M01S00743.qfm     +++|          SPACE  4
00876  M01S00744.qfm     +++|*         DAYFILE MESSAGES.
00877  M01S00745.qfm     +++|
00878  M01S00746.qfm     +++|
00879  M01S00747.qfm     +++| ERSE     DATA   C* QFM SYSTEM SECTOR ERROR.*
00880  M01S00748.qfm     +++| RCB      SPACE  4,15
00881  M01S00749.qfm     +++|**        RCB - READ CENTRAL BUFFER.
00882  M01S00750.qfm     +++|*
00883  M01S00751.qfm     +++|*         ENTRY  (A) = PP BUFFER ADDRESS.
00884  M01S00752.qfm     +++|*                (T3) = NUMBER OF WORDS TO READ.
00885  M01S00753.qfm     +++|*
00886  M01S00754.qfm     +++|*         EXIT   (A) .EQ. 0 IF BUFFER READ.
00887  M01S00755.qfm     +++|*                    .LT. 0 IF NOT ENOUGH DATA IN BUFFER.
00888  M01S00756.qfm     +++|*                (BI) = BUFFER ADDRESS.
00889  M01S00757.qfm     +++|*                (CA - CA+1) = PREVIOUS VALUE OF OUT POINTER.
00890  M01S00758.qfm     +++|*
00891  M01S00759.qfm     +++|*         CALLS  COB, RBB.
00892  M01S00760.qfm     +++|*
00893  M01S00761.qfm     +++|*         MACROS ABORT.
00894  M01S00762.qfm     +++|
00895  M01S00763.qfm     +++|
00896  M01S00764.qfm     +++| RCB1     SBD    T3
00897  M01S00765.qfm     +++|          MJN    RCBX        IF NOT ENOUGH DATA IN BUFFER
00898  M01S00766.qfm     +++|          LDD    OT+1
00899  M01S00767.qfm     +++|          STD    CA+1
00900  M01S00768.qfm     +++|          LDD    OT          SAVE OUT POINTER
00901  M01S00769.qfm     +++|          STD    CA
00902  M01S00770.qfm     +++|          LDD    BI          READ BINARY BUFFER
00903  M01S00771.qfm     +++|          RJM    RBB
00904  M01S00772.qfm     +++|          LDN    0
00905  M01S00773.qfm     +++|
00906  M01S00774.qfm     +++| RCB      SUBR               ENTRY/EXIT
00907  M01S00775.qfm     +++|          STD    BI
00908  M01S00776.qfm     +++|          RJM    COB         CHECK OUTPUT BUFFER
00909  M01S00777.qfm     +++|          PJN    RCB1        IF VALID FET POINTERS
00910  M01S00778.qfm     +++|          ABORT  ERBA        * QFM BUFFER ARGUMENT ERROR.*
00911  M01S00779.qfm     +++| RFE      SPACE  4,10
00912  M01S00780.qfm     +++|**        RFE - RELEASE LOCAL FNT ENTRY.
00913  M01S00781.qfm     +++|*
00914  M01S00782.qfm     +++|*         ENTRY  (FA) = FNT ADDRESS (OFFSET INTO NFL).
00915  M01S00783.qfm     +++|*
00916  M01S00784.qfm     +++|*         EXIT   (A) = (FA) = 0.
00917  M01S00785.qfm     +++|*
00918  M01S00786.qfm     +++|*         USES   CM - CM+4.
00919  M01S00787.qfm     +++|*
00920  M01S00788.qfm     +++|*         MACROS MONITOR.
00921  M01S00789.qfm     +++|
00922  M01S00790.qfm     +++|
00923  M01S00791.qfm     +++| RFE      SUBR               ENTRY/EXIT
00924  M01S00792.qfm     +++|          LDN    ZERL
00925  M01S00793.qfm     +++|          CRD    CM
00926  M01S00794.qfm     +++|          LDD    FA
00927  M01S00795.qfm     +++|          ZJN    RFEX        IF NO FNT ENTRY
00928  M01S00796.qfm     +++|          STD    CM+4
00929  M01S00797.qfm     +++|          LDN    DLFS        RELEASE LOCAL FNT ENTRY
00930  M01S00798.qfm     +++|          STD    CM+1
00931  M01S00799.qfm     +++|          MONITOR  PLFM
00932  M01S00800.qfm     +++|*         LDN    0           CLEAR FNT OFFSET
00933  M01S00801.qfm     +++|          STD    FA
00934  M01S00802.qfm     +++|          UJN    RFEX        RETURN
00935  M01S00803.qfm     +++| RIE      SPACE  4,10
00936  M01S00804.qfm     +++|**        RIE - RELEASE QFT ENTRY.
00937  M01S00805.qfm     +++|*
00938  M01S00806.qfm     +++|*         ENTRY  (QA) = QFT ORDINAL.
00939  M01S00807.qfm     +++|*
00940  M01S00808.qfm     +++|*         EXIT   (A) = (QA) = 0.
00941  M01S00809.qfm     +++|*
00942  M01S00810.qfm     +++|*         USES   CM - CM+4.
00943  M01S00811.qfm     +++|*
00944  M01S00812.qfm     +++|*         MACROS MONITOR.
00945  M01S00813.qfm     +++|
00946  M01S00814.qfm     +++|
00947  M01S00815.qfm     +++| RIE      SUBR               ENTRY/EXIT
00948  M01S00816.qfm     +++|          LDN    ZERL
00949  M01S00817.qfm     +++|          CRD    CM
00950  M01S00818.qfm     +++|          LDD    QA
00951  M01S00819.qfm     +++|          ZJN    RIEX        IF NO QFT ENTRY
00952  M01S00820.qfm     +++|          STD    CM+1
00953  M01S00821.qfm     +++|          LDN    PQFT        RELEASE QFT ENTRY
00954  M01S00822.qfm     +++|          STD    CM+2
00955  M01S00823.qfm     +++|          MONITOR  MTRM
00956  M01S00824.qfm     +++|*         LDN    0           CLEAR QFT ORDINAL
00957  M01S00825.qfm     +++|          STD    QA
00958  M01S00826.qfm     +++|          UJN    RIEX        RETURN
00959  M01S00827.qfm     +++| RQE      SPACE  4,15
00960  M01S00828.qfm     +++|**        RQE - READ NEXT IQFT ENTRY FROM BUFFER.
00961  M01S00829.qfm     +++|*
00962  M01S00830.qfm     +++|*         EXIT   (A) .LT. 0 IF BUFFER EMPTY.

Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00831.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00964  M01S00015.ns22000 +++|*                (T5) = EST ORDINAL.
00965  M01S00832.qfm     +++|*                (T6) = FIRST TRACK.
00966  M01S00833.qfm     +++|*                (FN - FN+1) = FILE NAME (SEQUENCE NUMBER).
00967  M01S00834.qfm     +++|*                (IQFB) = NEXT ENTRY FROM BUFFER.
00968  M01S00835.qfm     +++|*
00969  M01S00836.qfm     +++|*         USES   T3, T7, CM - CM+1.
00970  M01S00837.qfm     +++|*
00971  M01S00838.qfm     +++|*         CALLS  RCB.
00972  M01S00839.qfm     +++|
00973  M01S00840.qfm     +++|
00974  M01S00841.qfm     +++| RQE      SUBR               ENTRY/EXIT
00975  M01S00842.qfm     +++|          LDN    QFEWL       SET NUMBER OF WORDS TO READ
00976  M01S00843.qfm     +++|          STD    T3
00977  M01S00844.qfm     +++|          LDC    IQFB        READ CENTRAL BUFFER
00978  M01S00845.qfm     +++|          RJM    RCB
00979  M01S00846.qfm     +++|          MJN    RQEX        IF BUFFER EMPTY
00980  M01S00847.qfm     +++|          LDD    MA
00981  M01S00848.qfm     +++|          CWM    IQFB+5*JSNQ,ON
00982  M01S00849.qfm     +++|          CWM    IQFB+5*ENTQ,ON
00983  M01S00850.qfm     +++|          SBN    2           MOVE FILE DESCRIPTION TO DIRECT CELLS
00984  M01S00851.qfm     +++|          CRD    FN
00985  M01S00852.qfm     +++|          ADN    1
00986  M01S00853.qfm     +++|          CRD    T5
00987  M01S00854.qfm     +++|          LDN    0           CLEAR FOT ORDINAL/USER INDEX FIELDS
00988  M01S00855.qfm     +++|          STD    FN+2
00989  M01S00856.qfm     +++|          STD    FN+3
00990  M01S00857.qfm     +++|          UJN    RQEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00858.242l642 ---| RQS      SPACE  4,15
00992  M01S00035.242l642 +++| RQS      SPACE  4,20
00993  M01S00859.qfm     +++|**        RQS - READ QUEUE FILE SYSTEM SECTOR.
00994  M01S00860.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00861.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
00996  M01S00016.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00997  M01S00862.qfm     +++|*                (T6) = FIRST TRACK.
00998  M01S00863.qfm     +++|*                (FN - FN+1) = FILE NAME (SEQUENCE NUMBER).
00999  M01S00864.qfm     +++|*
01000  M01S00865.qfm     +++|*         EXIT   (A) = 0 IF NO SYSTEM SECTOR ERROR.

Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00866.242l642 ---|*                    = ADDRESS OF ERROR MESSAGE.
01002  M01S00036.242l642 +++|*                    = ADDRESS OF ERROR MESSAGE FOR ERROR OTHER THAN
01003  M01S00037.242l642 +++|*                      READ.
01004  M01S00867.qfm     +++|*                CHANNEL RESERVED IF NO ERROR.
01005  M01S00868.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00869.242l642 ---|*         CALLS  RSS, SSE.
01007  M01S00038.242l642 +++|*         ERROR  THE JOB IS ROLLED OUT IF A NON-SUBSYSTEM JOB
01008  M01S00039.242l642 +++|*                ENCOUNTERS A RECOVERABLE I/O ERROR.  IF A
01009  M01S00040.242l642 +++|*                NON-RECOVERABLE ERROR IS ENCOUNTERED AND/OR THE
01010  M01S00041.242l642 +++|*                CALLER IS A SUBSYSTEM, THEN ERROR CODE = *RMSE* (6)
01011  M01S00042.242l642 +++|*                IS RETURNED.
01012  M01S00043.242l642 +++|*
01013  M01S00044.242l642 +++|*         CALLS  MSR, RSS, SSE.
01014  M01S00870.qfm     +++|*
01015  M01S00871.qfm     +++|*         MACROS SETMS.
01016  M01S00872.qfm     +++|
01017  M01S00873.qfm     +++|
01018  M01S00874.qfm     +++| RQS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00875.242l642 ---|          SETMS  READ
01020  M01S00045.242l642 +++|          SETMS  IO
01021  M01S00876.qfm     +++|          LDN    0           READ SYSTEM SECTOR (IGNORE FILENAME)
01022  M01S00877.qfm     +++|          RJM    RSS
01023  M01S00878.qfm     +++|          ZJN    RQSX        IF NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00879.242l642 ---|          LDN    0           ISSUE SYSTEM SECTOR ERROR MESSAGE
01025  M01S00046.242l642 +++|          PJN    RQS1        IF ERROR OTHER THAN READ
01026  M01S00047.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
01027  M01S00048.242l642 +++|
01028  M01S00049.242l642 +++| RQS1     LDN    0           ISSUE SYSTEM SECTOR ERROR MESSAGE
01029  M01S00880.qfm     +++|          RJM    SSE
01030  M01S00881.qfm     +++|          LDC    ERSE        * QFM SYSTEM SECTOR ERROR.*
01031  M01S00882.qfm     +++|          UJN    RQSX        RETURN
01032  M01S00883.qfm     +++| UOP      SPACE  4,10
01033  M01S00884.qfm     +++|**        UOP - UPDATE OUT POINTER.
01034  M01S00885.qfm     +++|*
01035  M01S00886.qfm     +++|*         ENTRY  (A) = ADDRESS OF OUT POINTER.
01036  M01S00887.qfm     +++|*
01037  M01S00888.qfm     +++|*         EXIT   (A) = ABSOLUTE ADDRESS OF OUT POINTER IN FET.
01038  M01S00889.qfm     +++|*                (CM - CM+4) = OUT POINTER.
01039  M01S00890.qfm     +++|*
01040  M01S00891.qfm     +++|*         CALLS  GFE.
01041  M01S00892.qfm     +++|
01042  M01S00893.qfm     +++|
01043  M01S00894.qfm     +++| UOP      SUBR               ENTRY/EXIT
01044  M01S00895.qfm     +++|          STD    T0
01045  M01S00896.qfm     +++|          LDN    ZERL
01046  M01S00897.qfm     +++|          CRD    CM
01047  M01S00898.qfm     +++|          LDI    T0          SET OUT POINTER
01048  M01S00899.qfm     +++|          STD    CM+3
01049  M01S00900.qfm     +++|          AOD    T0
01050  M01S00901.qfm     +++|          LDI    T0
01051  M01S00902.qfm     +++|          STD    CM+4
01052  M01S00903.qfm     +++|          RJM    GFE         STORE OUT POINTER
01053  M01S00904.qfm     +++|          ADN    3
01054  M01S00905.qfm     +++|          CWD    CM
01055  M01S00906.qfm     +++|          UJN    UOPX        RETURN
01056  M01S00907.qfm     +++| SIT      SPACE  4,8
01057  M01S00908.qfm     +++|**        SIT - SET IQFT TRACK.
01058  M01S00909.qfm     +++|*
01059  M01S00910.qfm     +++|*         ENTRY  (CN - CN+4) = EST ENTRY.
01060  M01S00911.qfm     +++|*
01061  M01S00912.qfm     +++|*         EXIT   (A) = (T6) = *IQFT* TRACK.
01062  M01S00913.qfm     +++|*
01063  M01S00914.qfm     +++|*         USES   CM - CM+4.
01064  M01S00915.qfm     +++|
01065  M01S00916.qfm     +++|
01066  M01S00917.qfm     +++| SIT      SUBR               ENTRY/EXIT
01067  M01S00918.qfm     +++|          LDD    CN+4        SET IQFT FIRST TRACK
01068  M01S00919.qfm     +++|          SHN    3
01069  M01S00920.qfm     +++|          ADN    ACGL
01070  M01S00921.qfm     +++|          CRD    CM
01071  M01S00922.qfm     +++|          LDD    CM+3
01072  M01S00923.qfm     +++|          STD    T6
01073  M01S00924.qfm     +++|          UJN    SITX        RETURN
01074  M01S00925.qfm     +++|          TITLE  COMMON DECKS USED IN ALL OVERLAYS.
01075  M01S00926.qfm     +++|
01076  M01S00927.qfm     +++|**        RESIDENT COMMON DECKS.
01077  M01S00928.qfm     +++|
01078  M01S00929.qfm     +++|*CALL     COMPCOB
01079  M01S00930.qfm     +++|*CALL     COMPCTE
01080  M01S00931.qfm     +++|*CALL     COMPCTI
01081  M01S00932.qfm     +++|*CALL     COMPC2D
01082  M01S00009.ns2576  +++| DTS$     EQU    0           CHECK FOR INACCESSIBLE DEVICE
01083  M01S00933.qfm     +++|*CALL     COMPDTS
01084  M01S00934.qfm     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
01085  M01S00935.qfm     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
01086  M01S00936.qfm     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
01087  M01S00937.qfm     +++|*CALL     COMPGFP
01088  M01S00938.qfm     +++|*CALL     COMPRBB
01089  M01S00013.v23l617 +++|*CALL     COMPRFI
01090  M01S00939.qfm     +++|*CALL     COMPRSS
01091  M01S00940.qfm     +++|*CALL     COMPSAF
01092  M01S00941.qfm     +++|*CALL     COMPSEI
01093  M01S00942.qfm     +++|*CALL     COMPSFB
01094  M01S00943.qfm     +++|*CALL     COMPSFI
01095  M01S00944.qfm     +++|*CALL     COMPSSE
01096  M01S00945.qfm     +++| GFO$     EQU    0           DEFINE FOT ACCESS IN *COMPUFT*
01097  M01S00946.qfm     +++|*CALL     COMPUFT

Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00947.ns2442  ---|          QUAL   WBB

Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00948.ns2442  ---| QUAL$    EQU    0           DONT REQUALIFY *COMPWBB*
01100  M01S00002.ns2442  +++|          QUAL   WBB         QUALIFY *WBB*
01101  M01S00949.qfm     +++| IN       EQU    CA          REDEFINE IN POINTER
01102  M01S00950.qfm     +++|*CALL     COMPWBB
01103  M01S00951.qfm     +++|          QUAL   *
01104  M01S00952.qfm     +++| WBB      EQU    /WBB/WBB
01105  M01S00017.ns2099  +++|*CALL     COMPWEI
01106  M01S00953.qfm     +++|*CALL     COMPWSS
01107  M01S00954.qfm     +++|
01108  M01S00955.qfm     +++|
01109  M01S00956.qfm     +++|          USE    OVERLAY
01110  M01S00957.qfm     +++|          SPACE  4,10
01111  M01S00958.qfm     +++|*         IQFT BUFFER.
01112  M01S00959.qfm     +++|
01113  M01S00960.qfm     +++|
01114  M01S00961.qfm     +++| IQFB     BSS    0
01115  M01S00962.qfm     +++|          SPACE  4
01116  M01S00963.qfm     +++|*         OVERLAY LOAD ADDRESSES.
01117  M01S00964.qfm     +++|
01118  M01S00965.qfm     +++|
01119  M01S00966.qfm     +++| OVL      EQU    IQFB+5*QFEWL+5  OVERLAY LOAD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01120  M02S00967.242l642 ---| OVL0     EQU    6000        LOAD ADDRESS FOR ZERO LEVEL OVERLAYS

Seq #  *Modification Id* Act 
----------------------------+
01121  M02S00968.242l642 ---| OZDQ     EQU    OVL0+3      LOAD ADDRESS FOR *0DQ*

Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00969.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
01123  M02S00970.242l642 ---|          ERRNG  BFMS-OVL0-ZBFL  CHECK LENGTH OF *OBF*

Seq #  *Modification Id* Act 
----------------------------+
01124  M02S00971.242l642 ---|          ERRNG  7777-OVL0-ZDFL  CHECK LENGTH OF *0DF*

Seq #  *Modification Id* Act 
----------------------------+
01125  M02S00972.242l642 ---|          ERRNG  BFMS-OZDQ-ZDQL  CHECK LENGTH OF *0DQ*
01126  M01S00973.qfm     +++|          TITLE  OVERLAID SUBROUTINES.
01127  M01S00974.qfm     +++| CBP      SPACE  4,15
01128  M01S00975.qfm     +++|**        CBP - CHECK BUFFER PARAMETERS.
01129  M01S00976.qfm     +++|*
01130  M01S00977.qfm     +++|*         EXIT   (FT - FT+1) = FIRST.
01131  M01S00978.qfm     +++|*                (IN - IN+1) = IN.
01132  M01S00979.qfm     +++|*                (OT - OT+1) = OUT.
01133  M01S00980.qfm     +++|*                (LM - LM+1) = LIMIT.
01134  M01S00981.qfm     +++|*                (CN - CN+4) = FET WORD CONTAINING FIRST.
01135  M01S00982.qfm     +++|*
01136  M01S00983.qfm     +++|*         USES   CM - CM+4.
01137  M01S00984.qfm     +++|*
01138  M01S00985.qfm     +++|*         CALLS  GFE.
01139  M01S00986.qfm     +++|*
01140  M01S00987.qfm     +++|*         MACROS ABORT.
01141  M01S00988.qfm     +++|
01142  M01S00989.qfm     +++|
01143  M01S00990.qfm     +++| CBP      SUBR               ENTRY/EXIT
01144  M01S00991.qfm     +++|          RJM    GFE         GET FET ADDRESS
01145  M01S00992.qfm     +++|          ADN    1           READ FIRST
01146  M01S00993.qfm     +++|          CRD    CN
01147  M01S00994.qfm     +++|          ADN    1           READ IN
01148  M01S00995.qfm     +++|          CRD    CM
01149  M01S00996.qfm     +++|          ADN    2           READ LIMIT
01150  M01S00997.qfm     +++|          CRD    LM-3
01151  M01S00998.qfm     +++|          SBN    1           READ OUT
01152  M01S00999.qfm     +++|          CRD    OT-3
01153  M01S01000.qfm     +++|
01154  M01S01001.qfm     +++|          LDD    CN+4        SET FIRST
01155  M01S01002.qfm     +++|          STD    FT+1
01156  M01S01003.qfm     +++|          LDD    CN+3
01157  M01S01004.qfm     +++|          LPN    37
01158  M01S01005.qfm     +++|          STD    FT
01159  M01S01006.qfm     +++|
01160  M01S01007.qfm     +++|          LDD    LM          SET LIMIT
01161  M01S01008.qfm     +++|          LPN    37
01162  M01S01009.qfm     +++|          STD    LM
01163  M01S01010.qfm     +++|          SHN    14
01164  M01S01011.qfm     +++|          LMD    LM+1
01165  M01S01012.qfm     +++|          SBN    1
01166  M01S01013.qfm     +++|          SHN    -6
01167  M01S01014.qfm     +++|          SBD    FL
01168  M01S01015.qfm     +++|          PJN    CBP1        IF LIMIT .GE. FL
01169  M01S01016.qfm     +++|
01170  M01S01017.qfm     +++|          LDD    OT          CHECK OUT
01171  M01S01018.qfm     +++|          SBD    LM
01172  M01S01019.qfm     +++|          SHN    14
01173  M01S01020.qfm     +++|          ADD    OT+1
01174  M01S01021.qfm     +++|          SBD    LM+1
01175  M01S01022.qfm     +++|          PJN    CBP1        IF OUT .GE. LIMIT
01176  M01S01023.qfm     +++|
01177  M01S01024.qfm     +++|          LDD    OT
01178  M01S01025.qfm     +++|          SBD    FT
01179  M01S01026.qfm     +++|          SHN    14
01180  M01S01027.qfm     +++|          ADD    OT+1
01181  M01S01028.qfm     +++|          SBD    FT+1
01182  M01S01029.qfm     +++|          PJN    CBP2        IF OUT .GE. FIRST
01183  M01S01030.qfm     +++| CBP1     ABORT  ERBA        * QFM BUFFER ARGUMENT ERROR.*
01184  M01S01031.qfm     +++|
01185  M01S01032.qfm     +++| CBP2     LDD    CM+4        SET IN
01186  M01S01033.qfm     +++|          STD    IN+1
01187  M01S01034.qfm     +++|          LDD    CM+3
01188  M01S01035.qfm     +++|          STD    IN
01189  M01S01036.qfm     +++|          SBD    LM
01190  M01S01037.qfm     +++|          SHN    14
01191  M01S01038.qfm     +++|          ADD    IN+1
01192  M01S01039.qfm     +++|          SBD    LM+1
01193  M01S01040.qfm     +++|          PJN    CBP1        IF IN .GE. LIMIT
01194  M01S01041.qfm     +++|
01195  M01S01042.qfm     +++|          LDD    IN
01196  M01S01043.qfm     +++|          SBD    FT
01197  M01S01044.qfm     +++|          SHN    14
01198  M01S01045.qfm     +++|          ADD    IN+1
01199  M01S01046.qfm     +++|          SBD    FT+1
01200  M01S01047.qfm     +++|          MJN    CBP1        IF IN .LT. FIRST
01201  M01S01048.qfm     +++|          LJM    CBPX        RETURN
01202  M01S01049.qfm     +++| VIQ      SPACE  4,10
01203  M01S01050.qfm     +++|**        VIQ - VERIFY IQFT FILE.
01204  M01S01051.qfm     +++|*
01205  M01S01052.qfm     +++|*         CALLS  CFS, DTS.
01206  M01S01053.qfm     +++|*
01207  M01S01054.qfm     +++|*         MACROS ABORT, ERROR.
01208  M01S01055.qfm     +++|
01209  M01S01056.qfm     +++|
01210  M01S01057.qfm     +++| VIQ      SUBR               ENTRY/EXIT
01211  M01S01058.qfm     +++|          RJM    CFS         CHECK FILE STATUS
01212  M01S01059.qfm     +++|          LDD    CM+4        CHECK FILE TYPE
01213  M01S01060.qfm     +++|          SHN    -6
01214  M01S01061.qfm     +++|          LMN    LIFT
01215  M01S01062.qfm     +++|          ZJN    VIQ1        IF LIBRARY FILE
01216  M01S01063.qfm     +++|          ERROR  FNFE        EC = 1, NO FILE FOUND
01217  M01S01064.qfm     +++|
01218  M01S01065.qfm     +++| VIQ1     RJM    DTS
01219  M01S01066.qfm     +++|          MJN    VIQX        IF TRACK CHAIN INTERLOCKED
01220  M01S00010.ns2576  +++|          ZJN    VIQ2        IF DEVICE IS INACCESSIBLE
01221  M01S01067.qfm     +++|          ABORT  ERIE        * QFM INTERLOCK ERROR.*
01222  M01S00011.ns2576  +++|
01223  M01S00012.ns2576  +++| VIQ2     RJM    MSR         REPORT ERROR (DOES NOT RETURN)
01224  M01S01068.qfm     +++|          TITLE  ATTACH IQFT FILE.
01225  M01S01069.qfm     +++|***       ATQF - ATTACH IQFT FILE. (FUNCTION 1).
01226  M01S01070.qfm     +++|*
01227  M01S01071.qfm     +++|*         THE IQFT FILE ON EQUIPMENT, EQ, IS ATTACHED TO
01228  M01S01072.qfm     +++|*         THE CONTROL POINT AS A LIBRARY TYPE FILE WITH ITS TRACK
01229  M01S01073.qfm     +++|*         INTERLOCK BIT SET. THE FILE NAME IS TAKEN FROM THE FIRST
01230  M01S01074.qfm     +++|*         WORD OF THE FET.
01231  M01S01075.qfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01232  M02S01076.ns2099  ---|*         IF A LIBRARY TYPE FILE WITH THE SAME FILE NAME IS FOUND

Seq #  *Modification Id* Act 
----------------------------+
01233  M02S01077.ns2099  ---|*         ATTACHED TO THE CONTROL POINT, THEN THE CALLER IS ABORTED.

Seq #  *Modification Id* Act 
----------------------------+
01234  M02S01078.ns2099  ---|*         IF THE DUPLICATE FILE IS NOT A LIBRARY TYPE FILE, THEN

Seq #  *Modification Id* Act 
----------------------------+
01235  M02S01079.ns2099  ---|*         IT IS RETURNED BEFORE CREATING THE NEW FILE.
01236  M01S00018.ns2099  +++|*         IF THE FILE ALREADY IS PRESENT AT THE CONTROL POINT,
01237  M01S00019.ns2099  +++|*         IT WILL BE RETURNED AND THE REQUESTED IQFT FILE
01238  M01S00020.ns2099  +++|*         WILL BE ATTACHED.
01239  M01S01080.qfm     +++|
01240  M01S01081.qfm     +++|
01241  M01S01082.qfm     +++| ATQ      SUBR               ENTRY/EXIT
01242  M01S01083.qfm     +++|          RJM    GFE         READ FILE NAME
01243  M01S01084.qfm     +++|          CRD    FN

Seq #  *Modification Id* Act 
----------------------------+
01244  M02S01085.ns22000 ---|          ADN    7           READ EQUIPMENT NUMBER
01245  M01S00017.ns22000 +++|          ADN    7           READ EST ORDINAL
01246  M01S01086.qfm     +++|          CRD    CN
01247  M01S01087.qfm     +++|          LDD    FN+3        ENSURE ZERO FILLED FOR *0BF*
01248  M01S01088.qfm     +++|          SCN    77
01249  M01S01089.qfm     +++|          STD    FN+3
01250  M01S01090.qfm     +++|
01251  M01S01091.qfm     +++|*         GET FIRST TRACK OF FILE TO ATTACH.
01252  M01S01092.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01253  M02S01093.ns22000 ---| ATQ2     LDD    CN          SET EQUIPMENT NUMBER
01254  M01S00018.ns22000 +++| ATQ2     LDD    CN          SET EST ORDINAL
01255  M01S01094.qfm     +++|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
01256  M02S01095.ns22000 ---|          STD    SC          SAVE EQUIPMENT NUMBER
01257  M01S00019.ns22000 +++|          STD    SC          SAVE EST ORDINAL
01258  M01S01096.qfm     +++|          RJM    CMS         CHECK MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
01259  M02S01097.ns2576  ---|          LDN    IIQS        INTERLOCK IQFT FILE
01260  M01S00013.ns2576  +++|          LDC    IIQS+3000S6 INTERLOCK IQFT
01261  M01S00014.ns2576  +++|*                            (RETURN ON INACCESSIBLE OR NOT RESERVED)
01262  M01S01098.qfm     +++|          RJM    STB
01263  M01S01099.qfm     +++|          ZJN    ATQ4        IF FILE INTERLOCKED
01264  M01S01100.qfm     +++|          RJM    SIT         SET IQFT FIRST TRACK
01265  M01S01101.qfm     +++|          NJN    ATQ3        IF IQFT FILE EXISTS

Seq #  *Modification Id* Act 
----------------------------+
01266  M02S01102.ns2576  ---|          ERROR  FNFE        EC = 1, NO FILE FOUND
01267  M01S00015.ns2576  +++|          ERROR  DUNE        EC = 11, DEVICE UNAVAILABLE
01268  M01S01103.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01269  M02S01104.ns2099  ---| ATQ3     ERROR  FAIE        EC = 2, FILE ALREADY INTERLOCKED
01270  M01S00021.ns2099  +++| ATQ3     LDD    CP          POST WAITING INTERLOCK MESSAGE
01271  M01S00022.ns2099  +++|          ADN    MS2W
01272  M01S00023.ns2099  +++|          CWM    ATQA,TR
01273  M01S00024.ns2099  +++|          RJM    CIN         CLEAR INTERLOCKS
01274  M01S00025.ns2099  +++|          LJM    ERS         RECALL REQUEST
01275  M01S01105.qfm     +++|
01276  M01S01106.qfm     +++|*         VERIFY EOI ON SELECTED FILE.
01277  M01S01107.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01278  M02S01108.ns2099  ---| ATQ4     RJM    SIT         SET IQFT FIRST TRACK
01279  M01S00026.ns2099  +++| ATQ4     LDN    0           CLEAR WAITING MESSAGE
01280  M01S00027.ns2099  +++|          STD    CM
01281  M01S00028.ns2099  +++|          LDD    CP
01282  M01S00029.ns2099  +++|          ADN    MS2W
01283  M01S00030.ns2099  +++|          CWD    CM
01284  M01S00031.ns2099  +++|          RJM    SIT         SET IQFT FIRST TRACK
01285  M01S01109.qfm     +++|          STD    QT          SET TRACK INTERLOCK INDICATOR
01286  M01S01110.qfm     +++|          RJM    SEI         SEARCH FOR EOI

Seq #  *Modification Id* Act 
----------------------------+
01287  M02S01111.242l642 ---|          SETMS  READ
01288  M01S00050.242l642 +++|          SETMS  IO
01289  M01S01112.qfm     +++|          LDC    BFMS        READ EOI SECTOR
01290  M01S01113.qfm     +++|          RJM    RDS
01291  M01S01114.qfm     +++|          PJN    ATQ5        IF NO ERROR
01292  M01S01115.qfm     +++|          RJM    MSR         REPORT ERROR
01293  M01S01116.qfm     +++|
01294  M01S01117.qfm     +++| ATQ5     ENDMS
01295  M01S01118.qfm     +++|          LDM    BFMS        CHECK CONTROL BYTES
01296  M01S01119.qfm     +++|          ADM    BFMS+1

Seq #  *Modification Id* Act 
----------------------------+
01297  M02S01120.ns2553  ---|          ZJN    ATQ6        IF GOOD EOI
01298  M01S00002.ns2553  +++|          ZJN    ATQ7        IF GOOD EOI

Seq #  *Modification Id* Act 
----------------------------+
01299  M02S01121.271l716 ---|          ABORT  EREO        * QFM EOI BAD ON ATTACHED FILE.*
01300  M01S00013.271l716 +++|          ABORT  EREO        * EOI BAD ON ATTACHED FILE.*
01301  M01S01122.qfm     +++|
01302  M01S00003.ns2553  +++|*         RETURN DUPLICATE FILE.
01303  M01S00004.ns2553  +++|
01304  M01S00005.ns2553  +++| ATQ6     LDN    1           SET *UNLOAD* OPTION
01305  M01S00006.ns2553  +++|          STM    OVL0-1
01306  M01S00007.ns2553  +++|          EXECUTE  0DF,OVL0  CALL *0DF* TO DROP FILE
01307  M01S00008.ns2553  +++|          PJN    ATQ7        IF FILE DROPPED
01308  M01S00009.ns2553  +++|          RJM    MSR         REPORT ERROR
01309  M01S00010.ns2553  +++|
01310  M01S01123.qfm     +++|*         ENTER IQFT FILE IN FNT TABLE.
01311  M01S01124.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01312  M02S01125.ns2553  ---| ATQ6     LDN    NEEQ        ASSIGN NULL EQUIPMENT
01313  M01S00011.ns2553  +++| ATQ7     LDN    NEEQ        ASSIGN NULL EQUIPMENT
01314  M01S01126.qfm     +++|          STD    FS
01315  M01S01127.qfm     +++|          LDN    6           RETURN ON NFL INCREASE, LOCAL FILE LIMIT
01316  M01S01128.qfm     +++|          STM    OVL0-1
01317  M01S01129.qfm     +++|          EXECUTE 0BF,OVL0   MAKE FNT/FST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01318  M02S01130.ns2553  ---|          UJN    ATQ9        NO DUPLICATE FILE NAME
01319  M01S00012.ns2553  +++|          UJN    ATQ8        NO DUPLICATE FILE NAME
01320  M01S01131.qfm     +++|
01321  M01S01132.qfm     +++|*         PROCESS DUPLICATE FILE.
01322  M01S01133.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01323  M02S01134.ns2099  ---|          NFA    FA,R

Seq #  *Modification Id* Act 
----------------------------+
01324  M02S01135.ns2099  ---|          CRD    FS

Seq #  *Modification Id* Act 
----------------------------+
01325  M02S01136.ns2099  ---|          LDD    FS+4

Seq #  *Modification Id* Act 
----------------------------+
01326  M02S01137.ns2099  ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
01327  M02S01138.ns2099  ---|          LMN    LIFT

Seq #  *Modification Id* Act 
----------------------------+
01328  M02S01139.ns2099  ---|          NJN    ATQ7        IF FILE NOT *LIBRARY* TYPE

Seq #  *Modification Id* Act 
----------------------------+
01329  M02S01140.ns2099  ---| ATQ6.1   LDN    0           CLEAR FNT ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01330  M02S01141.ns2099  ---|          STD    FA

Seq #  *Modification Id* Act 
----------------------------+
01331  M02S01142.ns2099  ---|          ABORT  ERFA        * QFM FILE ALREADY ATTACHED.*

Seq #  *Modification Id* Act 
----------------------------+
01332  M02S01143.ns2099  ---|

Seq #  *Modification Id* Act 
----------------------------+
01333  M02S01144.ns2099  ---| ATQ7     RJM    SFB         SET FILE BUSY

Seq #  *Modification Id* Act 
----------------------------+
01334  M02S01145.ns2099  ---|          NJN    ATQ6.1      IF FILE BUSY REJECT

Seq #  *Modification Id* Act 
----------------------------+
01335  M02S01146.ns2099  ---|          LDN    1           SET *UNLOAD* OPTION
01336  M01S00032.ns2099  +++|          LDD    MA          SET FILE BUSY
01337  M01S00033.ns2099  +++|          CWD    FN
01338  M01S00034.ns2099  +++|          CRD    FS
01339  M01S00035.ns2099  +++|          RJM    SFB

Seq #  *Modification Id* Act 
----------------------------+
01340  M02S00036.ns2553  ---|          ZJN    ATQ6.1      IF FILE SET BUSY
01341  M01S00013.ns2553  +++|          ZJP    ATQ6        IF FILE SET BUSY
01342  M01S00037.ns2099  +++|          LDN    0           CLEAR FNT ADDRESS
01343  M01S00038.ns2099  +++|          STD    FA
01344  M01S00039.ns2099  +++|          ABORT  ERIO        * QFM I/O SEQUENCE ERROR.*
01345  M01S00040.ns2099  +++|

Seq #  *Modification Id* Act 
----------------------------+
01346  M02S00041.ns2553  ---| ATQ6.1   LDN    1           SET *UNLOAD* OPTION

Seq #  *Modification Id* Act 
----------------------------+
01347  M02S01147.ns2553  ---|          STM    OVL0-1

Seq #  *Modification Id* Act 
----------------------------+
01348  M02S01148.ns2553  ---|          EXECUTE  0DF,OVL0  CALL *0DF* TO DROP FILE

Seq #  *Modification Id* Act 
----------------------------+
01349  M02S01149.ns2553  ---|          LJM    ATQ6        RETRY FILE CREATION

Seq #  *Modification Id* Act 
----------------------------+
01350  M02S01150.ns2553  ---|

Seq #  *Modification Id* Act 
----------------------------+
01351  M02S01151.ns2553  ---| ATQ9     ZJN    ATQ10       IF FNT ENTRY CREATED
01352  M01S00014.ns2553  +++| ATQ8     ZJN    ATQ10       IF FNT ENTRY CREATED
01353  M01S01152.qfm     +++|          LMN    4

Seq #  *Modification Id* Act 
----------------------------+
01354  M02S01153.ns2553  ---|          NJN    ATQ9.1      IF NOT LOCAL FILE LIMIT
01355  M01S00015.ns2553  +++|          NJN    ATQ9        IF NOT LOCAL FILE LIMIT
01356  M01S01154.qfm     +++|          ERROR  FTHE        EC=4, *FNT IS FULL.*
01357  M01S01155.qfm     +++|
01358  M01S01156.qfm     +++|*         ENTER PP RECALL STACK TO WAIT FOR PENDING NFL INCREASE.
01359  M01S01157.qfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
01360  M02S01158.ns2553  ---| ATQ9.1   RJM    CIN         CLEAR INTERLOCKS
01361  M01S00016.ns2553  +++| ATQ9     RJM    CIN         CLEAR INTERLOCKS
01362  M01S01159.qfm     +++|          LJM    ERS         ENTER PP RECALL STACK
01363  M01S01160.qfm     +++|
01364  M01S01161.qfm     +++|*         BUILD FNT/FST ENTRY.
01365  M01S01162.qfm     +++|
01366  M01S01163.qfm     +++| ATQ10    LDD    QT          SET FIRST TRACK
01367  M01S01164.qfm     +++|          STD    FS+1
01368  M01S01165.qfm     +++|          STD    FS+2        SET CURRENT TRACK
01369  M01S01166.qfm     +++|          LDD    SC          SET EQUIPMENT
01370  M01S01167.qfm     +++|          STD    T5
01371  M01S01168.qfm     +++|          STD    FS
01372  M01S01169.qfm     +++|          LDN    FSMS        SET CURRENT SECTOR
01373  M01S01170.qfm     +++|          STD    FS+3
01374  M01S01171.qfm     +++|          LDC    1005        SET TRACK INTERLOCK, NOT BUSY, EOR
01375  M01S01172.qfm     +++|          STD    FS+4
01376  M01S01173.qfm     +++|          LDC    LIFT*100-LOFT*100  CHANGE FILE TYPE TO *LIBRARY*
01377  M01S01174.qfm     +++|          RAD    FN+4
01378  M01S01175.qfm     +++|          NFA    FA,R        WRITE FNT/FST
01379  M01S01176.qfm     +++|          CWD    FN
01380  M01S01177.qfm     +++|          ADN    FSTL
01381  M01S01178.qfm     +++|          CWD    FS
01382  M01S01179.qfm     +++|          LDN    IUCS        INCREMENT USER COUNT

Seq #  *Modification Id* Act 
----------------------------+
01383  M02S01180.253l688 ---|          RJM    STB
01384  M01S00022.253l688 +++|          RJM    SMD
01385  M01S01181.qfm     +++|          LJM    ATQX
01386  M01S00042.ns2099  +++|
01387  M01S00043.ns2099  +++|
01388  M01S00044.ns2099  +++| ATQA     DATA   C*$WAITING FOR IQFT INTERLOCK.*
01389  M01S01182.qfm     +++|          TITLE  PURGE AND DETACH IQFT FILE.
01390  M01S01183.qfm     +++|***       DTQF - DETACH IQFT FILE. (FUNCTION 2).
01391  M01S01184.qfm     +++|*
01392  M01S01185.qfm     +++|*         THE LIBRARY TYPE FILE, LFN, ATTACHED TO THE CONTROL POINT
01393  M01S01186.qfm     +++|*         IS REMOVED FROM THE FNT/FST AND ITS TRACK INTERLOCK IS
01394  M01S01187.qfm     +++|*         CLEARED.
01395  M01S01188.qfm     +++|
01396  M01S01189.qfm     +++|
01397  M01S01190.qfm     +++| DTQ      SUBR               ENTRY/EXIT
01398  M01S01191.qfm     +++|          RJM    VIQ         VERIFY IQFT FILE

Seq #  *Modification Id* Act 
----------------------------+
01399  M02S01192.ns2553  ---|          LDN    DUCS        DECREMENT USER COUNT

Seq #  *Modification Id* Act 
----------------------------+
01400  M03S01193.ns2553  ---|          RJM    STB

Seq #  *Modification Id* Act 
----------------------------+
01401  M02S00023.ns2553  ---|          RJM    SMD
01402  M01S01194.qfm     +++|
01403  M01S01195.qfm     +++|*         NOTE - IT IS NOT NECESSARY TO CLEAR THE TRACK INTERLOCK
01404  M01S01196.qfm     +++|*         HERE.  IT WILL BE CLEARED BY *0DF* BECAUSE THE FST TRACK
01405  M01S01197.qfm     +++|*         INTERLOCK BIT IS SET (BY *ATQ* WHEN THE *IQFT* WAS
01406  M01S01198.qfm     +++|*         ATTACHED TO THE CONTROL POINT).
01407  M01S01199.qfm     +++|
01408  M01S01200.qfm     +++|          LDN    1           UNLOAD OPTION
01409  M01S01201.qfm     +++|          STM    OVL0-1
01410  M01S01202.qfm     +++|          EXECUTE 0DF,OVL0

Seq #  *Modification Id* Act 
----------------------------+
01411  M02S01203.ns2553  ---|          UJN    DTQX        RETURN

Proceed to Part 1