User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:qfm

Deck QFM

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.qfm     +++|          IDENT  QFM,QFM
00002  M00S00002.qfm     +++|          PERIPH
00003  M00S00003.qfm     +++|          BASE   MIXED
00004  M00S00004.qfm     +++|          SST
Line S00001 Modification History
M01 (Added by) ns2442
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.ns2442  +++| QUAL$    EQU    1           DEFINE USER QUALIFICATION
Line S00005 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00005.242l642 ---| EQV$     EQU    1           DEFINE NO EQUIPMENT CHECK FOR *COMPRSS*
00007  M01S00006.242l642 ---| MSS$     EQU    1           DEFINE ERROR CONTROL FOR *COMPRSS*
00008  M00S00007.qfm     ---| MSR$     EQU    1           DEFINE USER ERROR RETURN FOR *COMPRNS*
00009  M00S00008.qfm     ---|*COMMENT  QFM - QUEUE FILE MANAGER.
Line S00009 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M00S00010.qfm     +++|          TITLE  QFM - QUEUE FILE MANAGER.
00013  M00S00011.qfm     +++|          SPACE  4
00014  M00S00012.qfm     +++|***       QFM - QUEUE FILE MANAGER.
00015  M00S00013.qfm     +++|*         C. K. STEHMAN.     74/03/29.
00016  M00S00014.qfm     +++|*         R. A. JAPS.        75/01/27.  (REWRITE).
00017  M00S00015.qfm     +++|*         P. D. HAAS.        81/09/02.
00018  M00S00016.qfm     +++|          SPACE  4
00019  M00S00017.qfm     +++|***       QFM PERFORMS TASKS FOR QUEUE MANAGMENT PROGRAMS.
00020  M00S00018.qfm     +++|*
00021  M00S00019.qfm     +++|*         1.  ATQ - ATTACH PRESERVED FILE (SYSTEM ORIGIN PRIVILEDGES).
00022  M00S00020.qfm     +++|*         2.  DTQ - DETACH PRESERVED FILE (SYSTEM ORIGIN PRIVILEDGES).
00023  M00S00021.qfm     +++|*         3.  PGO - PURGE PRESERVED FILE (SYSTEM ORIGIN PRIVILEDGES).
00024  M00S00022.qfm     +++|*         4.  STQ - SET IQFT FILE (SSJ= REQUIRED).
00025  M00S00023.qfm     +++|*         5.  IIQ - INITIALIZE IQFT FILE (SSJ= REQUIRED).
00026  M00S00024.qfm     +++|*         6.  RQL - REQUEUE FNT/FST LIST SSJ= REQUIRED).
00027  M00S00025.qfm     +++|*         7.  RLL - RELEASE FNT/FST LIST (SSJ= REQUIRED).
00028  M00S00026.qfm     +++|*         10. DEQ - DEQUEUE FNT/FST (SSJ= REQUIRED).
00029  M00S00027.qfm     +++|*         11. AQF - ATTACH QUEUED FILE (SSJ= REQUIRED).
00030  M00S00028.qfm     +++|*         12. QRS - READ SYSTEM SECTOR (SSJ= REQUIRED).
00031  M00S00029.qfm     +++|*         13. AIQ - ATTACH INACTIVE QUEUED FILE (SSJ= REQUIRED).
00032  M00S00030.qfm     +++|*         14. RIQ - REQUEUE INACTIVE QUEUED FILE (SSJ= REQUIRED).
Line S00031 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00031.v23l617 ---|*         15. SRR - SET RERUN (ILLEGAL FROM TTY ORIGIN).
00034  M01S00032.v23l617 ---|*         16. CRR - CLEAR RERUN (ILLEGAL FROM TTY ORIGIN).
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.v23l617 +++|*         15. SRR - SET RERUN (INCORRECT FROM INTERACTIVE ORIGIN).
00036  M01S00002.v23l617 +++|*         16. CRR - CLEAR RERUN (INCORRECT FROM INTERACTIVE ORIGIN).
00037  M00S00033.qfm     +++|*         21. IQF - INTERLOCK QUEUE FILE (SSJ= REQUIRED).
00038  M00S00034.qfm     +++|*         22. CFE - CREATE FOT ENTRY (SSJ= REQUIRED).
00039  M00S00035.qfm     +++|*         23. CQF - CREATE QUEUE FILE (SSJ= REQUIRED).
Line S00001 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00001.ns21000 +++|*         24. QRE - READ EOI SECTOR (SSJ= REQUIRED).
00041  M01S00002.ns21000 +++|*         25. QWE - WRITE EOI SECTOR (SSJ= REQUIRED).
00042  M00S00036.qfm     +++|          SPACE  4
00043  M00S00037.qfm     +++|***       CALL.
00044  M00S00038.qfm     +++|*
00045  M00S00039.qfm     +++|*
00046  M00S00040.qfm     +++|*T        18/ QFM , 6/ 20B , 12/ FN , 6/  , 18/ ADDR
Figure

01718232429 ADDR FN 303536414259 FN 20B QFM

00047  M00S00041.qfm     +++|*
00048  M00S00042.qfm     +++|*                FN = FUNCTION CODE.
00049  M00S00043.qfm     +++|*                ADDR = FWA OF FET.
00050  M00S00044.qfm     +++|*
00051  M00S00045.qfm     +++|*
00052  M00S00046.qfm     +++|*         FORMAT OF FET (9 WORDS).
00053  M00S00047.qfm     +++|*
00054  M00S00048.qfm     +++|*T FET0   42/ LFN , 4/ , 4/ EC , 10/ CC
Figure FET0

09101314171829 CC EC LFN 3059 LFN

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

0171829 FIRST 30434459 EP

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

0171829 IN 3059

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

0171829 OUT 3059

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

0171829 LIMIT 3059

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

029 FP3059 FP

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

029 FP3059 FP

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

0111229 ER 30474859 EQ

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

029 FP3059 FP

00063  M00S00057.qfm     +++|*
00064  M00S00058.qfm     +++|*
00065  M00S00059.qfm     +++|*         LFN = LOCAL FILE NAME.
00066  M00S00060.qfm     +++|*         EC  = ERROR CODE RETURN. (SEE COMSIOQ FOR DEFINED CODES).
00067  M00S00061.qfm     +++|*         CC  = 0 ON CALL, QFM RETURNS COMPLETE BIT OR
00068  M00S00062.qfm     +++|*                RETURN CODE DEPENDING ON FUNCTION.
00069  M00S00063.qfm     +++|*         EP = ERROR PROCESSING. IF BIT 2**0 SET, THEN ERROR
00070  M00S00064.qfm     +++|*                PROCESSING IS SELECTED.
00071  M00S00065.qfm     +++|*         FP = FUNCTION PARAMETERS. (SEE ENTRY CONDITIONS FOR
00072  M00S00066.qfm     +++|*                PARTICULAR FUNCTION FOR REQUIRED FORMAT.)
00073  M00S00067.qfm     +++|*         EQ = EQUIPMENT.
00074  M00S00068.qfm     +++|*         ER = MASS STORAGE ERROR CODE.
00075  M00S00069.qfm     +++|          SPACE  4
00076  M00S00070.qfm     +++|***       DAYFILE MESSAGES.
00077  M00S00071.qfm     +++|*
00078  M00S00072.qfm     +++|*         THE FOLLOWING MESSAGES ARE ISSUED TO THE DAYFILE ONLY IF
00079  M00S00073.qfm     +++|*         THE *EP* BIT IS NOT SET IN THE SECOND WORD OF THE FET.
00080  M00S00074.qfm     +++|*         IF THE *EP* BIT IS SET, THE APPROPRIATE ERROR CODE IS
00081  M00S00075.qfm     +++|*         RETURNED IN THE FIRST WORD OF THE FET. NO DAYFILE MESSAGE
00082  M00S00076.qfm     +++|*         IS ISSUED IF THE *EP* BIT IS SET.
00083  M00S00077.qfm     +++|*
00084  M00S00078.qfm     +++|*
00085  M00S00079.qfm     +++|*         * FILE NOT FOUND.*
00086  M00S00080.qfm     +++|*                THE FILE FOR WHICH A SPECIFIC ACTION IS REQUESTED
00087  M00S00081.qfm     +++|*                CANNOT BE FOUND. (EC = 1).
00088  M00S00082.qfm     +++|*
00089  M00S00083.qfm     +++|*         * FILE ALREADY INTERLOCKED.*
00090  M00S00084.qfm     +++|*                THE TRACK INTERLOCK FOR THE SPECIFIED QFM FILE IS
00091  M00S00085.qfm     +++|*                ALREADY SET. (EC = 2).
00092  M00S00086.qfm     +++|*
00093  M00S00087.qfm     +++|*         * TRACK ALREADY ASSIGNED.*
00094  M00S00088.qfm     +++|*                THE TRACK BYTE FOR THE SPECIFIED QFM FILE IS ALREADY
00095  M00S00089.qfm     +++|*                ASSIGNED IN THE MST. (EC = 3).
00096  M00S00090.qfm     +++|*
Line S00091 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00091.271l716 ---|*         * FNT IS FULL.*
00098  M01S00092.271l716 ---|*                ALL FILES COULD NOT BE REQUEUED BECAUSE OF A FULL FNT.
00099  M01S00093.271l716 ---|*                THE *IQFT* FILE COULD NOT BE ATTACHED BECAUSE THE
00100  M01S00094.271l716 ---|*                FNT WAS FULL.  (EC = 4).
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00095.qfm     +++|*
00106  M00S00096.qfm     +++|*         * FOT IS FULL.*
00107  M00S00097.qfm     +++|*                FAMILY CAN NOT BE DEFINED IN THE SYSTEM SINCE THE
00108  M00S00098.qfm     +++|*                FAMILY ORDINAL TABLE IS FULL.
00109  M00S00099.qfm     +++|*
Line S00100 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00100.v23l617 ---|*         * INVALID SYSTEM SECTOR.*
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00003.v23l617 +++|*         * INCORRECT SYSTEM SECTOR.*
00112  M00S00101.qfm     +++|*                AN ERROR HAS BEEN ENCOUNTERED WHILE TRYING TO READ
00113  M00S00102.qfm     +++|*                A SYSTEM SECTOR. (EC = 5).
00114  M00S00103.qfm     +++|*
00115  M00S00104.qfm     +++|*         * UNCORRECTABLE RMS ERROR.*
00116  M00S00105.qfm     +++|*                AN UNCORRECTABLE RMS ERROR HAS BEEN DETECTED DURING
00117  M00S00106.qfm     +++|*                AN I/O OPERATION. (EC = 6).
00118  M00S00107.qfm     +++|*
00119  M00S00108.qfm     +++|*         * INPUT FILE IN RERUN STATUS.*
00120  M00S00109.qfm     +++|*                INFORMATIVE MESSAGE INDICATING THAT THE REQUESTED
00121  M00S00110.qfm     +++|*                CHANGE IN STATUS IS REDUNDANT. (EC = 7).
00122  M00S00111.qfm     +++|*
00123  M00S00112.qfm     +++|*         * INPUT FILE IN NO-RERUN STATUS.*
00124  M00S00113.qfm     +++|*                INFORMATIVE MESSAGE INDICATING THAT THE REQUESTED
00125  M00S00114.qfm     +++|*                CHANGE IN STATUS IS REDUNDANT. (EC = 10).
00126  M00S00115.qfm     +++|*
Line S00001 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00001.ns2576  +++|*         * DEVICE UNAVAILABLE.
00128  M01S00002.ns2576  +++|*                THE DEVICE IS UNAVAILABLE.  THE REQUEST IS IGNORED.
00129  M01S00003.ns2576  +++|*
00130  M00S00116.qfm     +++|*         * DUPLICATE FILE NAME.*
00131  M00S00117.qfm     +++|*                A FILE WITH THE REQUESTED NAME ALREADY EXISTS.
00132  M00S00118.qfm     +++|*                (EC = 16).
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00119.qfm     +++|*
00138  M00S00120.qfm     +++|*
00139  M00S00121.qfm     +++|*         THE FOLLOWING ARE FATAL ERROR MESSAGES ISSUED BY PRESET
00140  M00S00122.qfm     +++|*         AND RESIDENT ROUTINES.
00141  M00S00123.qfm     +++|*
00142  M00S00124.qfm     +++|*         * QFM BUFFER ARGUMENT ERROR.*
00143  M00S00125.qfm     +++|*                A BUFFER POINTER DOES NOT CONFORM TO THE FOLLOWING
00144  M00S00126.qfm     +++|*                CONSTRAINTS -
00145  M00S00127.qfm     +++|*                            FIRST .LE. IN
00146  M00S00128.qfm     +++|*                            FIRST .LE. OUT
00147  M00S00129.qfm     +++|*                            OUT .LE. LIMIT .LE. FL
00148  M00S00130.qfm     +++|*
00149  M00S00131.qfm     +++|*         * QFM ARGUMENT ERROR.*
00150  M00S00132.qfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS -
00151  M00S00133.qfm     +++|*                1. FET ADDRESS NOT WITHIN FL.
00152  M00S00134.qfm     +++|*                2. FET ADDRESS NOT SPECIFIED IN QFM CALL WHEN REQUIRED.
00153  M00S00135.qfm     +++|*                3. QFM FILE TYPE OUT OF RANGE.
00154  M00S00136.qfm     +++|*
Line S00137 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00137.v23l617 ---|*         * QFM ILLEGAL REQUEST.*
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00004.v23l617 +++|*         * QFM INCORRECT REQUEST.*
00157  M00S00138.qfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS -
00158  M00S00139.qfm     +++|*                1. FUNCTION CODE WAS NOT RECOGNIZED.
00159  M00S00140.qfm     +++|*                2. CALLING JOB DOES NOT HAVE SSJ= SET.
00160  M00S00141.qfm     +++|*                3. QFM WAS NOT CALLED WITH AUTO RECALL.
00161  M00S00142.qfm     +++|*
Line S00143 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00143.v23l617 ---|*         * QFM ILLEGAL EQUIPMENT.*
Line S00005 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00163  M01S00005.v23l617 +++|*         * QFM INCORRECT EQUIPMENT.*
00164  M00S00144.qfm     +++|*                THE EQUIPMENT SPECIFIED IN FET+7 IS NOT MASS STORAGE.
00165  M00S00145.qfm     +++|*
00166  M00S00146.qfm     +++|*
00167  M00S00147.qfm     +++|*         THE FOLLOWING FATAL ERROR MESSAGES ARE ISSUED BY THE
00168  M00S00148.qfm     +++|*         FUNCTION PROCESSORS.
00169  M00S00149.qfm     +++|*
00170  M00S00150.qfm     +++|*
Line S00151 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00151.v23l617 ---|*         * QFM INVALID QUEUE FILE ORDINAL.*
Line S00006 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00172  M01S00006.v23l617 +++|*         * QFM INCORRECT QUEUE FILE ORDINAL.*
00173  M00S00152.qfm     +++|*                THE ORDINAL GIVEN FOR THE QUEUE FILE TO ATTACH TO THE
00174  M00S00153.qfm     +++|*                CONTROL POINT WAS OUT OF RANGE.
00175  M00S00154.qfm     +++|*
00176  M00S00155.qfm     +++|*         * QFM FILE ALREADY ATTACHED.*
00177  M00S00156.qfm     +++|*                THE SPECIFIED FILE IS ALREADY ATTACHED TO THE
00178  M00S00157.qfm     +++|*                CONTROL POINT.
00179  M00S00158.qfm     +++|*
00180  M00S00159.qfm     +++|*         * QFM FOT FULL.*
00181  M00S00160.qfm     +++|*                FAMILY CAN NOT BE DEFINED IN THE SYSTEM SINCE THE
00182  M00S00161.qfm     +++|*                FAMILY ORDINAL TABLE IS FULL.
00183  M00S00162.qfm     +++|*
00184  M00S00163.qfm     +++|*         * QFM INTERLOCK ERROR.*
00185  M00S00164.qfm     +++|*                TRACK INTERLOCK COULD NOT BE SET ON A QFM FILE.
00186  M00S00165.qfm     +++|*
Line S00166 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00166.271l716 ---|*         * QFM UNABLE TO INTERLOCK MST.*
00188  M01S00167.271l716 ---|*                SELF EXPLANATORY.
00189  M01S00168.271l716 ---|*
00190  M01S00169.271l716 ---|*         * QFM EOI BAD ON ATTACHED FILE.*
Line S00005 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00191  M01S00005.271l716 +++|*         * EOI BAD ON ATTACHED FILE.*
00192  M00S00170.qfm     +++|*                THE EOI SECTOR CANNOT BE FOUND ON THE SPECIFIED FILE.
00193  M00S00171.qfm     +++|*
00194  M00S00172.qfm     +++|*         * QFM TRACK MISMATCH.*
00195  M00S00173.qfm     +++|*                THE FILE ABOUT TO BE PURGED IS NOT THE SAME FILE
00196  M00S00174.qfm     +++|*                THAT WAS PREVIOUSLY ATTACHED.
00197  M00S00175.qfm     +++|*
00198  M00S00176.qfm     +++|*         * QFM - FILE IGNORED XXXXXXX.*
00199  M00S00177.qfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS -
00200  M00S00178.qfm     +++|*                1. THE QUEUE FILE XXXXXXX WAS IGNORED BECAUSE OF AN
Line S00179 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00179.v23l617 ---|*                   ILLEGAL ORIGIN OR FILE TYPE CODE. THIS COULD MEAN A
00202  M01S00180.v23l617 ---|*                   POSSIBLE BAD IQFT FILE.
Line S00007 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00203  M01S00007.v23l617 +++|*                   INCORRECT ORIGIN OR FILE TYPE CODE. THIS COULD MEAN
00204  M01S00008.v23l617 +++|*                   A POSSIBLE BAD IQFT FILE.
00205  M00S00181.qfm     +++|*                2. QUEUED FILE ,XXXXXXX, COULD NOT BE PROCESSED
00206  M00S00182.qfm     +++|*                   BECAUSE ITS SYSTEM SECTOR COULD NOT BE READ.
00207  M00S00183.qfm     +++|*
00208  M00S00184.qfm     +++|*         * QFM SYSTEM SECTOR ERROR.*
00209  M00S00185.qfm     +++|*                AN ERROR WAS ENCOUNTERED WHILE READING THE SYSTEM
00210  M00S00186.qfm     +++|*                SECTOR OF A QUEUED FILE. THE FILE IS IDENTIFIED BY THE
00211  M00S00187.qfm     +++|*                QFM FILE IGNORED MESSAGE.
00212  M00S00188.qfm     +++|*
Line S00189 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00213  M01S00189.271l716 ---|*         * QFM RANDOM ADDRESS ERROR.*
00214  M01S00190.271l716 ---|*                AN ERROR HAS BEEN DETECTED WHILE CONVERTING THE
00215  M01S00191.271l716 ---|*                RANDOM ADDRESS OF THE DAYFILE ADDRESS.
00216  M01S00192.271l716 ---|*
Line S00193 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00193.v23l617 ---|*         * NORERUN/RERUN IGNORED FROM TTY JOBS.*
Line S00009 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00218  M01S00009.v23l617 +++|*         * NORERUN/RERUN IGNORED FROM INTERACTIVE JOBS.*
00219  M00S00194.qfm     +++|*                THE USER HAS ENTERED RERUN/NORERUN FROM A TERMINAL.
00220  M00S00195.qfm     +++|*                THE TWO COMMANDS ARE IGNORED FROM TTY.
00221  M00S00196.qfm     +++|*
00222  M00S00197.qfm     +++|*         * QFM I/O SEQUENCE ERROR.*
00223  M00S00198.qfm     +++|*                A REQUEST WAS MADE ON A BUSY FILE.
00224  M00S00199.qfm     +++|*
Line S00200 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00225  M01S00200.v23l617 ---|*         * QFM ILLEGAL USER ACCESS.*
Line S00010 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00226  M01S00010.v23l617 +++|*         * QFM USER ACCESS NOT VALID.*
00227  M00S00201.qfm     +++|*                THE CALLER IS NOT SYSTEM ORIGIN OR DOES NOT HAVE
00228  M00S00202.qfm     +++|*                SYSTEM ORIGIN PRIVILEGES.
00229  M00S00203.qfm     +++|*
00230  M00S00204.qfm     +++|*         * QFM FILE NAME ERROR.*
00231  M00S00205.qfm     +++|*                THE FILE NAME, LFN, IS NOT A VALID FILE NAME.
00232  M00S00206.qfm     +++|*
00233  M00S00207.qfm     +++|*         * QFM BUFFER TOO SMALL.*
00234  M00S00208.qfm     +++|*                THE BUFFER FOR READING THE SYSTEM SECTOR IS LESS THAN
00235  M00S00209.qfm     +++|*                100B WORDS LONG.
00236  M00S00210.qfm     +++|*
00237  M00S00211.qfm     +++|*         * QF LENGTH ERROR  XXXXXXX.*
00238  M00S00212.qfm     +++|*                A LENGTH ERROR WAS DETECTED WHILE DEQUEUING
00239  M00S00213.qfm     +++|*                FILE XXXXXXX.
Line S00001 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
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.
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00214.qfm     +++|          SPACE  4
00256  M00S00215.qfm     +++|***       ACCOUNT FILE MESSAGES.
00257  M00S00216.qfm     +++|*
Line S00217 Modification History
M01 (Removed by) ns2236
Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00217.ns2236  ---|*         *JOBNAMEO. AEPQ, TY.*  THE QUEUED FILE, JOBNAME, OF
00259  M01S00218.ns2236  ---|*                ORIGIN TYPE, O, AND FILE TYPE, TY, HAS BEEN
00260  M01S00219.ns2236  ---|*                RELEASED FROM THE SYSTEM.
Line S00001 Modification History
M01 (Added by) ns2236
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00220.qfm     +++|          SPACE  4
00269  M00S00221.qfm     +++|***       ROUTINES CALLED.
00270  M00S00222.qfm     +++|*
00271  M00S00223.qfm     +++|*         0BF - BEGIN FILE.
00272  M00S00224.qfm     +++|*         0DF - DROP FILE.
00273  M00S00225.qfm     +++|*         0DQ - DROP QUEUE FILE.
Line S00001 Modification History
M01 (Added by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00274  M01S00001.ns2663  +++|*         0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
00275  M00S00226.qfm     +++|          SPACE  4
00276  M00S00227.qfm     +++|*         COMMON DECKS.
00277  M00S00228.qfm     +++|
00278  M00S00229.qfm     +++|*CALL     COMPMAC
00279  M00S00230.qfm     +++|*CALL     COMSCPS
00280  M00S00231.qfm     +++|*CALL     COMSDSP
00281  M00S00232.qfm     +++|*CALL     COMSEVT
00282  M00S00233.qfm     +++|          LIST   X
00283  M00S00234.qfm     +++|*CALL     COMSIOQ
00284  M00S00235.qfm     +++|          LIST   -X
00285  M00S00236.qfm     +++|*CALL     COMSJIO
00286  M00S00237.qfm     +++|*CALL     COMSMMF
00287  M00S00238.qfm     +++|*CALL     COMSMSP
00288  M00S00239.qfm     +++|*CALL     COMSPIM
Line S00001 Modification History
M01 (Added by) ns2185
Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00001.ns2185  +++|*CALL     COMSSCD
00290  M00S00240.qfm     +++|*CALL     COMSSSE
00291  M00S00241.qfm     +++|*CALL     COMSSSJ
00292  M00S00242.qfm     +++|*CALL     COMSWEI
00293  M00S00243.qfm     +++|*CALL     COMSZOL
00294  M00S00244.qfm     +++|          EJECT
00295  M00S00245.qfm     +++|**        DIRECT LOCATION ASSIGNMENTS.
00296  M00S00246.qfm     +++|
00297  M00S00247.qfm     +++|
00298  M00S00248.qfm     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00299  M00S00249.qfm     +++| EO       EQU    25          EJT ORDINAL
00300  M00S00250.qfm     +++| QA       EQU    26          QFT ORDINAL
00301  M00S00251.qfm     +++| BI       EQU    27          BUFFER INDEX
00302  M00S00252.qfm     +++| CN       EQU    30 - 34     CM BUFFER (5 LOCATIONS)
00303  M00S00253.qfm     +++| SC       EQU    35          SCRATCH
00304  M00S00254.qfm     +++| RI       EQU    36 - 37     RANDOM ADDRESS (2 LOCATIONS)
00305  M00S00255.qfm     +++| FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
00306  M00S00256.qfm     +++| QT       EQU    45          *QFM* FILE FIRST TRACK
00307  M00S00257.qfm     +++| CA       EQU    46 - 47     SCRATCH (2 LOCATIONS)
00308  M00S00258.qfm     +++| FA       EQU    57          NFL OFFSET OF LOCAL FNT ENTRY
00309  M00S00259.qfm     +++| FT       EQU    60 - 61     FIRST POINTER (2 LOCATIONS)
00310  M00S00260.qfm     +++| IN       EQU    62 - 63     IN POINTER (2 LOCATIONS)
00311  M00S00261.qfm     +++| OT       EQU    64 - 65     OUT POINTER (2 LOCATIONS)
00312  M00S00262.qfm     +++| LM       EQU    66 - 67     LIMIT POINTER (2 LOCATIONS)
00313  M00S00263.qfm     +++|          TITLE  MACRO DEFINITIONS.
00314  M00S00264.qfm     +++|**        ABORT - ABORT CONTROL POINT.
00315  M00S00265.qfm     +++|*
00316  M00S00266.qfm     +++|*         ABORT  ADDR,*
00317  M00S00267.qfm     +++|*
00318  M00S00268.qfm     +++|*         ENTRY  ADDR = FWA OF ERROR MESSAGE.
00319  M00S00269.qfm     +++|*                *, IF SPECIFIED, DO NOT QUALIFY ADDRESS.
00320  M00S00270.qfm     +++|*
00321  M00S00271.qfm     +++|*         EXIT   TO *ABT*.
00322  M00S00272.qfm     +++|
00323  M00S00273.qfm     +++|
00324  M00S00274.qfm     +++|          PURGMAC ABORT
00325  M00S00275.qfm     +++|
00326  M00S00276.qfm     +++| ABORT    MACRO  ADDR,N
00327  M00S00277.qfm     +++|          IFC    NE,$N$*$
00328  M00S00278.qfm     +++|          LDC    /ERR/ADDR
00329  M00S00279.qfm     +++|          ELSE
00330  M00S00280.qfm     +++|          LDC    ADDR
00331  M00S00281.qfm     +++|          ENDIF
00332  M00S00282.qfm     +++|          LJM    ABT
00333  M00S00283.qfm     +++|          ENDM
00334  M00S00284.qfm     +++|          SPACE  4,7
00335  M00S00285.qfm     +++|**        ERROR - RETURN ERROR CODE TO FET.
00336  M00S00286.qfm     +++|*
00337  M00S00287.qfm     +++|*         ERROR  EC
00338  M00S00288.qfm     +++|*
00339  M00S00289.qfm     +++|*         ENTRY  EC = ERROR CODE. (SEE COMSIOQ FOR DEFINED ERROR CODES).
00340  M00S00290.qfm     +++|*
00341  M00S00291.qfm     +++|*         EXIT   TO *ERR*.
00342  M00S00292.qfm     +++|
00343  M00S00293.qfm     +++|
00344  M00S00294.qfm     +++|          PURGMAC ERROR
00345  M00S00295.qfm     +++|
00346  M00S00296.qfm     +++| ERROR    MACRO  EC
00347  M00S00297.qfm     +++|          LDN    EC
00348  M00S00298.qfm     +++|          LJM    ERR
00349  M00S00299.qfm     +++|          ENDM
00350  M00S00300.qfm     +++| FCN      SPACE  4,10
00351  M00S00301.qfm     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00352  M00S00302.qfm     +++|*
00353  M00S00303.qfm     +++|* TN      FCN    F,N,L,P,S
00354  M00S00304.qfm     +++|*
00355  M00S00305.qfm     +++|*         TN     TABLE NAME (FIRST CALL ONLY).
00356  M00S00306.qfm     +++|*         F      FUNCTION CODE.
00357  M00S00307.qfm     +++|*         N      NAME OF FUNCTION PROCESSOR.
00358  M00S00308.qfm     +++|*         L      REQUIRED FET LENGTH - 1.
00359  M00S00309.qfm     +++|*         P      CALLER MUST HAVE SYSTEM ORIGIN PRIVILEGES.
00360  M00S00310.qfm     +++|*         S      CALLER MUST BE SPECIAL SYSTEM JOB (SSJ).
00361  M00S00311.qfm     +++|*
00362  M00S00312.qfm     +++|*         TABLE GENERATED.
00363  M00S00313.qfm     +++|*
00364  M00S00314.qfm     +++|*T,TN     12/O ,12/N ,1/S,1/P,4/ ,6/L
Figure TN

0569101112232429L PSN O 3035O

00365  M00S00315.qfm     +++|*
00366  M00S00316.qfm     +++|*         O      OVERLAY NAME (LAST CHARACTER)
00367  M00S00317.qfm     +++|*         N      PROCESSOR ADDRESS
00368  M00S00318.qfm     +++|*         S      SSJ= REQUIRED
00369  M00S00319.qfm     +++|*         P      SYSTEM ORIGIN PRIVILEDGES REQUIRED
00370  M00S00320.qfm     +++|*         L      REQUIRED FET LENGTH - 1
00371  M00S00321.qfm     +++|
00372  M00S00322.qfm     +++|
00373  M00S00323.qfm     +++|          MACRO  FCN,TN,F,N,L,P,S
00374  M00S00324.qfm     +++| .D       IFC    NE,$TN$$
00375  M00S00325.qfm     +++| TN       BSS    0
00376  M00S00326.qfm     +++| .T       SET    TN
00377  M00S00327.qfm     +++| .D       ELSE
00378  M00S00328.qfm     +++|          ORG    .T+3*F
00379  M00S00329.qfm     +++| .A       IFC    NE,$N$$
00380  M00S00330.qfm     +++|          LOC    F
00381  M00S00331.qfm     +++|          CON    N/10000B,N-N/10000B*10000B
00382  M00S00332.qfm     +++| .S       IFC    EQ,$S$SSJ$
00383  M00S00333.qfm     +++|          VFD    1/1
00384  M00S00334.qfm     +++| .S       ELSE   1
00385  M00S00335.qfm     +++|          VFD    1/0
00386  M00S00336.qfm     +++| .P       IFC    NE,$P$$
00387  M00S00337.qfm     +++|          VFD    1/1
00388  M00S00338.qfm     +++| .P       ELSE   1
00389  M00S00339.qfm     +++|          VFD    1/0
00390  M00S00340.qfm     +++|          VFD    4/0
00391  M00S00341.qfm     +++|          VFD    6/L
00392  M00S00342.qfm     +++| .A       ENDIF
00393  M00S00343.qfm     +++|          BSS    0
00394  M00S00344.qfm     +++| .D       ENDIF
00395  M00S00345.qfm     +++|          ENDM
00396  M00S00346.qfm     +++|          SPACE  4,5
00397  M00S00347.qfm     +++|**        OVERLAY CONTROL.
00398  M00S00348.qfm     +++|*
00399  M00S00349.qfm     +++|*         THIS FEATURE IS INCLUDED FOR FUTURE MODULARITY.
00400  M00S00350.qfm     +++|
00401  M00S00351.qfm     +++| .N       SET    0
00402  M00S00352.qfm     +++| OVLB     MICRO  1,, 3Q      BASE OVERLAY NAME
00403  M00S00353.qfm     +++|          SPACE  4,8
00404  M00S00354.qfm     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00405  M00S00355.qfm     +++|*
00406  M00S00356.qfm     +++|*
00407  M00S00357.qfm     +++|*         OVERLAY (TEXT)
00408  M00S00358.qfm     +++|*
00409  M00S00359.qfm     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLE.
00410  M00S00360.qfm     +++|
00411  M00S00361.qfm     +++|
00412  M00S00362.qfm     +++|          PURGMAC OVERLAY
00413  M00S00363.qfm     +++|
00414  M00S00364.qfm     +++| OVERLAY  MACRO  TEXT
00415  M00S00365.qfm     +++|          QUAL
00416  M00S00366.qfm     +++| .N       SET    .N+1
00417  M00S00367.qfm     +++| .M       MICRO  .N,1 ABCDEFGHIJKLMNOPQ
00418  M00S00368.qfm     +++| .O       MICRO  1,3, "OVLB"".M"
00419  M00S00369.qfm     +++|          QUAL   ".O"
00420  M00S00370.qfm     +++|          TTL    QFM/".O" - TEXT
00421  M00S00371.qfm     +++|          TITLE
00422  M00S00372.qfm     +++|          IDENT  ".O",OVL    TEXT
Line S00373 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00423  M01S00373.ns22000 ---|  COMMENT 74/04/01.           QFM - TEXT
Line S00005 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00424  M01S00005.ns22000 +++|*COMMENT  QFM - TEXT
Line S00374 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00425  M01S00374.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00426  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00427  M00S00375.qfm     +++|          ORG    OVL
00428  M00S00376.qfm     +++|          LJM    *
00429  M00S00377.qfm     +++|          UJN    *-2
00430  M00S00378.qfm     +++|          ENDM
00431  M00S00379.qfm     +++|          SPACE  4,6
00432  M00S00380.qfm     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00433  M00S00381.qfm     +++|*
00434  M00S00382.qfm     +++|*         ENTRY  NAME
00435  M00S00383.qfm     +++|*
00436  M00S00384.qfm     +++|*         ENTRY  *NAME* = NAME OF ENTRY ADDRESS.
00437  M00S00385.qfm     +++|
00438  M00S00386.qfm     +++|
00439  M00S00387.qfm     +++|          PURGMAC ENTRY
00440  M00S00388.qfm     +++|
00441  M00S00389.qfm     +++| ENTRY    MACRO  NAME
00442  M00S00390.qfm     +++|          QUAL
00443  M00S00391.qfm     +++| NAME_X   LJP    *
00444  M00S00392.qfm     +++| NAME     EQU    *-1+1R".M"*10000B
00445  M00S00393.qfm     +++|          QUAL   ".O"
00446  M00S00394.qfm     +++|          ENDM
00447  M00S00395.qfm     +++|          TITLE  MAIN PROGRAM.
00448  M00S00396.qfm     +++|**        QFM - MAIN PROGRAM.
00449  M00S00397.qfm     +++|
00450  M00S00398.qfm     +++|
00451  M00S00399.qfm     +++|          ORG    PPFW
00452  M00S00400.qfm     +++| QFM      RJM    PRS         PRESET PROGRAM
00453  M00S00401.qfm     +++| QFM1     ZJN    QFM2        IF NO OVERLAY REQUIRED
00454  M00S00402.qfm     +++|          LMC    2L"OVLB"    LOAD OVERLAY
00455  M00S00403.qfm     +++|          RJM    EXR
00456  M00S00404.qfm     +++| QFM2     RJM    *           PROCESS REQUEST
00457  M00S00405.qfm     +++| QFMB     EQU    *-1
00458  M00S00406.qfm     +++|
00459  M00S00407.qfm     +++|*         SET COMPLETE BIT IN FET AND DROP PPU.
00460  M00S00408.qfm     +++|
00461  M00S00409.qfm     +++| QFMX     RJM    GFE
00462  M00S00410.qfm     +++|          ZJN    DPP         IF NO FET
00463  M00S00411.qfm     +++|          CRD    CM
00464  M00S00412.qfm     +++|          AOD    CM+4        SET FET NOT BUSY
00465  M00S00413.qfm     +++|          RJM    GFE         GET FET ADDRESS
00466  M00S00414.qfm     +++|          CWD    CM
00467  M00S00415.qfm     +++|
00468  M00S00416.qfm     +++| DPP      MONITOR DPPM       DROP PPU
00469  M00S00417.qfm     +++|          LJM    PPR
00470  M00S00418.qfm     +++| ABT      TITLE  ERROR PROCESSING ROUTINES.
00471  M00S00419.qfm     +++|**        ABT - ABORT PROCESSOR.
00472  M00S00420.qfm     +++|*
00473  M00S00421.qfm     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
Line S00009 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
00474  M01S00009.ns2099  +++|*                (T5) = EST ORDINAL.
00475  M00S00422.qfm     +++|*
00476  M00S00423.qfm     +++|*         EXIT   (RI) = ADDRESS OF MESSAGE.
00477  M01S00010.ns2099  +++|*                (RI+1) = EST ORDINAL.
00478  M00S00424.qfm     +++|
00479  M00S00425.qfm     +++|
00480  M00S00426.qfm     +++| ABT      STD    RI          SAVE MESSAGE ADDRESS
00481  M01S00011.ns2099  +++|          LDD    T5          SAVE EST ORDINAL
00482  M01S00012.ns2099  +++|          STD    RI+1
00483  M00S00427.qfm     +++|          LDC    ABP
00484  M00S00428.qfm     +++|          UJN    ERR1
00485  M00S00429.qfm     +++| ERR      SPACE  4
00486  M00S00430.qfm     +++|**        ERR - ERROR PROCESSOR.
00487  M00S00431.qfm     +++|*
00488  M00S00432.qfm     +++|*         ENTRY  (A) = ERROR CODE.
00489  M01S00013.ns2099  +++|*                (T5) = EST ORDINAL.
00490  M00S00433.qfm     +++|*
00491  M00S00434.qfm     +++|*         EXIT   (RI) = ERROR CODE.
00492  M01S00014.ns2099  +++|*                (RI+1) = EST ORDINAL.
00493  M00S00435.qfm     +++|*
00494  M00S00436.qfm     +++|*         CALLS  CIN.
00495  M00S00437.qfm     +++|
00496  M00S00438.qfm     +++|
00497  M00S00439.qfm     +++| ERR      STD    RI          SAVE ERROR CODE
00498  M01S00015.ns2099  +++|          LDD    T5
00499  M01S00016.ns2099  +++|          STD    RI+1
00500  M00S00440.qfm     +++|          LDC    ERP
00501  M00S00441.qfm     +++| ERR1     STM    QFMB        SET ENTRY ADDRESS
00502  M00S00442.qfm     +++|          SHN    -14
00503  M00S00443.qfm     +++|          LJM    QFM1        EXECUTE ERROR PROCESSOR
00504  M00S00444.qfm     +++| ERS      SPACE  4,10
00505  M00S00445.qfm     +++|**        ERS - ENTER PP RECALL STACK.
00506  M00S00446.qfm     +++|*
00507  M00S00447.qfm     +++|*         EXIT   TO *PPR*.
00508  M00S00448.qfm     +++|*
00509  M00S00449.qfm     +++|*         USES   CM - CM+5.
00510  M00S00450.qfm     +++|*
00511  M00S00451.qfm     +++|*         MACROS MONITOR.
00512  M00S00452.qfm     +++|
00513  M00S00453.qfm     +++|
00514  M00S00454.qfm     +++| ERS      BSS    0           ENTRY
00515  M00S00455.qfm     +++|          LDN    NFIR        NFL INCREASE PENDING REASON CODE
00516  M00S00456.qfm     +++|          STD    CM
00517  M00S00457.qfm     +++|          LDN    ZERL        ENTER DEFAULT TIMED RECALL
00518  M00S00458.qfm     +++|          CRD    CM+1
00519  M00S00459.qfm     +++|          LDD    MA          STORE PP CALL IN MESSAGE BUFFER
00520  M00S00460.qfm     +++|          CWD    IR
00521  M00S00461.qfm     +++|          ADN    1           STORE RECALL STACK REASON CODE
00522  M00S00462.qfm     +++|          CWD    CM
00523  M00S00463.qfm     +++|          MONITOR  RECM
00524  M00S00464.qfm     +++|          LJM    PPR         EXIT TO PP RESIDENT
00525  M00S00465.qfm     +++|          TITLE  RESIDENT SUBROUTINES.
00526  M00S00466.qfm     +++| CIN      SPACE  4,16
00527  M00S00467.qfm     +++|**        CIN - CLEAR INTERLOCKS.
00528  M00S00468.qfm     +++|*
Line S00469 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00469.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
Line S00006 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00530  M01S00006.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00531  M00S00470.qfm     +++|*                (FA) = FNT OFFSET INTO NFL OF BUSY FILE.
00532  M00S00471.qfm     +++|*                (QT) = FIRST TRACK OF INTERLOCKED FILE.
00533  M00S00472.qfm     +++|*                (EO) = EJT ORDINAL OF INTERLOCKED ENTRY.
00534  M00S00473.qfm     +++|*                (QA) = QFT ORDINAL OF INTERLOCKED ENTRY.
00535  M00S00474.qfm     +++|*
00536  M00S00475.qfm     +++|*         EXIT   (A) = (FA) = (QT) = (EO) = (QA) = 0.
00537  M00S00476.qfm     +++|*
00538  M00S00477.qfm     +++|*         USES   CM - CM+4, CN - CN+4.
00539  M00S00478.qfm     +++|*
00540  M00S00479.qfm     +++|*         CALLS  CTI.
00541  M00S00480.qfm     +++|*
00542  M00S00481.qfm     +++|*         MACROS MONITOR, NFA, SFA.
00543  M00S00482.qfm     +++|
00544  M00S00483.qfm     +++|
00545  M00S00484.qfm     +++| CIN      SUBR               ENTRY/EXIT
00546  M00S00485.qfm     +++|          LDD    FA
00547  M00S00486.qfm     +++|          ZJN    CIN1        IF NO BUSY FILE
00548  M00S00487.qfm     +++|          NFA    FA,R
00549  M00S00488.qfm     +++|          ADN    FSTL
00550  M00S00489.qfm     +++|          CRD    CN
00551  M00S00490.qfm     +++|          AOD    CN+4        SET FILE NOT BUSY
00552  M00S00491.qfm     +++|          NFA    FA,R
00553  M00S00492.qfm     +++|          ADN    FSTL
00554  M00S00493.qfm     +++|          CWD    CN
00555  M00S00494.qfm     +++| CIN1     LDD    QT
00556  M00S00495.qfm     +++|          ZJN    CIN2        IF NO TRACK CHAIN INTERLOCKED
00557  M00S00496.qfm     +++|          RJM    CTI         CLEAR TRACK INTERLOCK
00558  M00S00497.qfm     +++| CIN2     LDD    EO
00559  M00S00498.qfm     +++|          ZJN    CIN3        IF NO EJT ENTRY INTERLOCKED
00560  M00S00499.qfm     +++|          SFA    EJT
00561  M00S00500.qfm     +++|          STD    CM+4        SET ABSOLUTE ADDRESS OF ENTRY
00562  M00S00501.qfm     +++|          SHN    -14
00563  M00S00502.qfm     +++|          STD    CM+3
00564  M00S00503.qfm     +++|          LDN    1S5         CLEAR INTERLOCK
00565  M00S00504.qfm     +++|          STD    CM+1
00566  M00S00505.qfm     +++|          MONITOR  UTEM
00567  M00S00506.qfm     +++|*         LDN    0
00568  M00S00507.qfm     +++|          STD    EO
00569  M00S00508.qfm     +++| CIN3     LDD    QA
00570  M00S00509.qfm     +++|          ZJN    CIN4        IF NO QFT ENTRY INTERLOCKED
00571  M00S00510.qfm     +++|          SFA    QFT
00572  M00S00511.qfm     +++|          STD    CM+4        SET ABSOLUTE ADDRESS OF ENTRY
00573  M00S00512.qfm     +++|          SHN    -14
00574  M00S00513.qfm     +++|          STD    CM+3
00575  M00S00514.qfm     +++|          LDN    1S5         CLEAR INTERLOCK
00576  M00S00515.qfm     +++|          STD    CM+1
00577  M00S00516.qfm     +++|          MONITOR  UTEM
00578  M00S00517.qfm     +++|*         LDN    0
00579  M00S00518.qfm     +++|          STD    QA
00580  M00S00519.qfm     +++| CIN4     STD    QT
00581  M00S00520.qfm     +++|          STD    FA
00582  M00S00521.qfm     +++|          LJM    CINX        RETURN
00583  M00S00522.qfm     +++| GFE      SPACE  4,7
00584  M00S00523.qfm     +++|**        GFE - GENERATE FET ADDRESS.
00585  M00S00524.qfm     +++|*
00586  M00S00525.qfm     +++|*         EXIT   (A) = ADDRESS OF FET.
00587  M00S00526.qfm     +++|*                (A) = 0, IF NO FET ADDRESS SPECIFIED.
00588  M00S00527.qfm     +++|
00589  M00S00528.qfm     +++|
00590  M00S00529.qfm     +++| GFE1     LDD    IR+3        SET FET ADDRESS
00591  M00S00530.qfm     +++|          SHN    6
00592  M00S00531.qfm     +++|          ADD    RA
00593  M00S00532.qfm     +++|          SHN    6
00594  M00S00533.qfm     +++|          ADD    IR+4
00595  M00S00534.qfm     +++|
00596  M00S00535.qfm     +++| GFE      SUBR               ENTRY/EXIT
00597  M00S00536.qfm     +++| GFEA     LDN    0
00598  M00S00537.qfm     +++|*         UJN    GFE1        (FET ADDRESS SPECIFIED)
00599  M00S00538.qfm     +++|          UJN    GFEX        RETURN
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00539.qfm     +++| STB      SPACE  4,10
00621  M00S00540.qfm     +++|**        STB - EXECUTE *STBM* MONITOR FUNCTION.
00622  M00S00541.qfm     +++|*
00623  M00S00542.qfm     +++|*         ENTRY  (A) BITS 17-12 = CPFS SUBFUNCTION OPTIONS.
00624  M00S00543.qfm     +++|*                (A) BITS 11-0 = SUBFUNCTION.
00625  M00S00544.qfm     +++|*                (T5) = EQUIPMENT.
00626  M00S00545.qfm     +++|*                (T6) = TRACK.
00627  M00S00546.qfm     +++|*
00628  M00S00547.qfm     +++|*         EXIT   *STBM* MONITOR FUNCTION EXECUTED.
00629  M00S00548.qfm     +++|*                (A) = 0, NO FUNCTION REJECT.
00630  M00S00549.qfm     +++|*
00631  M00S00550.qfm     +++|*         USES   CM - CM+4.
00632  M00S00551.qfm     +++|
00633  M00S00552.qfm     +++|
Line S00004 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
00634  M01S00004.ns2576  +++| STB1     SHN    22-21+11    RESTORE STATUS
00635  M01S00005.ns2576  +++|
00636  M00S00553.qfm     +++| STB      SUBR               ENTRY/EXIT
00637  M00S00554.qfm     +++|          STD    CM+3
00638  M00S00555.qfm     +++|          SHN    -6          SET *CPFS* SUBFUNCTION OPTIONS
00639  M00S00556.qfm     +++|          SCN    77
00640  M00S00557.qfm     +++|          ADD    T5          SET EQUIPMENT
00641  M00S00558.qfm     +++|          STD    CM+1
00642  M00S00559.qfm     +++|          LDD    T6          SET TRACK
00643  M00S00560.qfm     +++|          STD    CM+2
00644  M00S00561.qfm     +++|          MONITOR STBM
00645  M00S00562.qfm     +++|          LDD    CM+1        SET EXIT CONDITION
Line S00563 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00563.ns2576  ---|          UJN    STBX        RETURN
Line S00006 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00564.qfm     +++| CEQ      SPACE  4,10
00651  M00S00565.qfm     +++|**        CEQ - CHECK EQUIPMENT.
00652  M00S00566.qfm     +++|*
Line S00567 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00653  M01S00567.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
Line S00007 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00654  M01S00007.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00655  M00S00568.qfm     +++|*
00656  M00S00569.qfm     +++|*         EXIT   (A) = 0 IF NOT MASS STORAGE EQUIPMENT.
00657  M00S00570.qfm     +++|*                (CN - CN+4) = EST ENTRY.
00658  M00S00571.qfm     +++|*
Line S00572 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00659  M01S00572.ns22000 ---|*         MACROS ABORT.
Line S00008 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00660  M01S00008.ns22000 +++|*         MACROS ABORT, SFA.
00661  M00S00573.qfm     +++|
00662  M00S00574.qfm     +++|
Line S00575 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00663  M01S00575.ns22000 ---| CEQ1     LDD    CN          POSITION MASS STORAGE FLAG
Line S00009 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00576.qfm     +++|          SHN    0-13
00669  M00S00577.qfm     +++|
00670  M00S00578.qfm     +++| CEQ      SUBR               ENTRY/EXIT
Line S00579 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00671  M01S00579.ns22000 ---|          LDD    T5          READ EST ENTRY
00672  M01S00580.ns22000 ---|          ADM    ESTS
00673  M01S00581.ns22000 ---|          CRD    CN
Line S00013 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00674  M01S00013.ns22000 +++|          LDD    T5
Line S00582 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00675  M01S00582.ns22000 ---|          SBK    7777        CHECK VALID EQUIPMENT NUMBER
Line S00014 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00676  M01S00014.ns22000 +++|          SBK    7777        CHECK VALID EST ORDINAL
00677  M00S00583.qfm     +++| CEQA     EQU    *-1
00678  M00S00584.qfm     +++|          MJN    CEQ1        IF EQUIPMENT WITHIN EST
Line S00585 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00679  M01S00585.v23l617 ---|          ABORT  EREQ        * QFM ILLEGAL EQUIPMENT.*
Line S00011 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00680  M01S00011.v23l617 +++|          ABORT  EREQ        * QFM INCORRECT EQUIPMENT.*
00681  M00S00586.qfm     +++| CFS      SPACE  4,12
00682  M00S00587.qfm     +++|**        CFS - CHECK FILE STATUS.
00683  M00S00588.qfm     +++|*
00684  M00S00589.qfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00685  M00S00590.qfm     +++|*
00686  M00S00591.qfm     +++|*         EXIT   (FA) = NFL OFFSET OF FNT ENTRY.
00687  M00S00592.qfm     +++|*                (T5) = EQUIPMENT.
00688  M00S00593.qfm     +++|*                (T6) = FIRST TRACK.
00689  M00S00594.qfm     +++|*                (CM - CM+4) = FNT ENTRY.
00690  M00S00595.qfm     +++|*                (FS - FS+4) = FST ENTRY.
00691  M00S00596.qfm     +++|*                (CN - CN+4) = EST ENTRY.
00692  M00S00597.qfm     +++|*
00693  M00S00598.qfm     +++|*         USES   FN - FN+4.
00694  M00S00599.qfm     +++|*
00695  M00S00600.qfm     +++|*         MACROS ABORT, ERROR.
00696  M00S00601.qfm     +++|
00697  M00S00602.qfm     +++|
00698  M00S00603.qfm     +++| CFS3     LDD    FS          SET EQUIPMENT
00699  M00S00604.qfm     +++|          STD    T5
00700  M00S00605.qfm     +++|          LDD    FS+1        SET FIRST TRACK
00701  M00S00606.qfm     +++|          STD    T6
00702  M00S00607.qfm     +++|          RJM    CMS         CHECK MASS STORAGE
00703  M00S00608.qfm     +++|
00704  M00S00609.qfm     +++| CFS      SUBR               ENTRY/EXIT
00705  M00S00610.qfm     +++|          RJM    GFE         READ FILE NAME
00706  M00S00611.qfm     +++|          CRD    FN
00707  M00S00612.qfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
00708  M00S00613.qfm     +++|          NJN    CFS2        IF FILE FOUND
00709  M00S00614.qfm     +++|          ERROR  FNFE        EC = 1, NO FILE FOUND
00710  M00S00615.qfm     +++|
00711  M00S00616.qfm     +++| CFS2     RJM    SFB         SET FILE BUSY
00712  M00S00617.qfm     +++|          ZJN    CFS3        IF FILE SET BUSY
00713  M00S00618.qfm     +++|          LDN    0           CLEAR FST ADDRESS
00714  M00S00619.qfm     +++|          STD    FA
00715  M00S00620.qfm     +++|          ABORT  ERIO        * QFM I/O SEQUENCE ERROR.*
00716  M00S00621.qfm     +++| CMS      SPACE  4,6
00717  M00S00622.qfm     +++|**        CMS - CHECK MASS STORAGE.
00718  M00S00623.qfm     +++|*
00719  M00S00624.qfm     +++|*         ENTRY  (T5) = EQUIPMENT.
00720  M00S00625.qfm     +++|*
00721  M00S00626.qfm     +++|*         CALLS  CEQ.
00722  M00S00627.qfm     +++|*
00723  M00S00628.qfm     +++|*         MACROS ABORT.
00724  M00S00629.qfm     +++|
00725  M00S00630.qfm     +++|
00726  M00S00631.qfm     +++| CMS      SUBR               ENTRY/EXIT
00727  M00S00632.qfm     +++|          RJM    CEQ         CHECK EQUIPMENT
00728  M00S00633.qfm     +++|          NJN    CMSX        IF MASS STORAGE
Line S00634 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00729  M01S00634.v23l617 ---|          ABORT  EREQ        * QFM ILLEGAL EQUIPMENT.*
Line S00012 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00730  M01S00012.v23l617 +++|          ABORT  EREQ        * QFM INCORRECT EQUIPMENT.*
00731  M00S00635.qfm     +++| IFI      SPACE  4,10
00732  M00S00636.qfm     +++|**        IFI - ISSUE FILE IGNORED MESSAGE.
00733  M00S00637.qfm     +++|*
00734  M00S00638.qfm     +++|*         ENTRY  (A) = FWA OF ERROR MESSAGE.
00735  M00S00639.qfm     +++|*                (FN - FN+1) = FILE NAME (SEQUENCE NUMBER).
00736  M00S00640.qfm     +++|*
00737  M00S00641.qfm     +++|*         EXIT   SPECIFIED ERROR MESSAGE ISSUED.
00738  M00S00642.qfm     +++|*
00739  M00S00643.qfm     +++|*         CALLS  DFM.
00740  M00S00644.qfm     +++|
00741  M00S00645.qfm     +++|
00742  M00S00646.qfm     +++| IFI      SUBR               ENTRY/EXIT
00743  M00S00647.qfm     +++|          ZJN    IFI1        IF NO ERROR MESSAGE
00744  M00S00648.qfm     +++|          RJM    DFM
00745  M00S00649.qfm     +++| IFI1     LDD    FN          SET NAME IN MESSAGE
00746  M00S00650.qfm     +++|          STM    IFIB
00747  M00S00651.qfm     +++|          LDD    FN+1
00748  M00S00652.qfm     +++|          STM    IFIB+1
00749  M00S00653.qfm     +++|          LDC    IFIA        * QFM - FILE IGNORED XXXX.*
00750  M00S00654.qfm     +++|          RJM    DFM
00751  M00S00655.qfm     +++|          UJN    IFIX        RETURN
00752  M00S00656.qfm     +++|
00753  M00S00657.qfm     +++| IFIA     DATA   H* QFM - FILE IGNORED*
00754  M00S00658.qfm     +++| IFIB     DATA   C*XXXX.*
Line S00659 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00755  M01S00659.242l642 ---| MSR      SPACE  4,14
Line S00001 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00756  M01S00001.242l642 +++| MSR      SPACE  4,20
00757  M00S00660.qfm     +++|**        MSR - MASS STORAGE ERROR PROCESSING.
00758  M00S00661.qfm     +++|*
Line S00662 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00759  M01S00662.242l642 ---|*         ENTRY  ENTERED FROM *RNS* OR *RSS* IF MASS STORAGE ERROR.
Line S00002 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00663.qfm     +++|*                (QT) = TRACK INTERLOCK INDICATOR.
00766  M00S00664.qfm     +++|*
Line S00665 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00767  M01S00665.242l642 ---|*         EXIT   TO ERR.
Line S00007 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00666.qfm     +++|*
Line S00667 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00773  M01S00667.242l642 ---|*         PUTS DISK ERROR CODE IN FET(7)
00774  M01S00668.242l642 ---|*         AND EC = RMSE IN FET(0).
Line S00011 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00775  M01S00011.242l642 +++|*         USES   IR+4, CM - CM+4, CN - CN+4.
00776  M00S00669.qfm     +++|*
Line S00670 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00670.242l642 ---|*         USES   CN - CN+4, CM - CM+4.
Line S00012 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00778  M01S00012.242l642 +++|*         CALLS  CIN, GFE.
00779  M00S00671.qfm     +++|*
Line S00672 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00780  M01S00672.242l642 ---|*         CALLS  GFE.
00781  M01S00673.242l642 ---|*
00782  M01S00674.242l642 ---|*         MACROS ENDMS, ERROR.
Line S00013 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00013.ns2553  ---|*         MACROS ENDMS, ERROR, EXECUTE, PAUSE.
Line S00001 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00784  M01S00001.ns2553  +++|*         MACROS ERROR, EXECUTE, PAUSE.
00785  M00S00675.qfm     +++|
00786  M00S00676.qfm     +++|
Line S00677 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00787  M01S00677.242l642 ---| MSR      CON    0           ENTRY
00788  M01S00678.242l642 ---|          RJM    GFE         CHECK EP BIT
00789  M01S00679.242l642 ---|          ZJN    MSR1        IF NO FET ADDRESS
Line S00014 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00680.qfm     +++|          ADN    1
00809  M00S00681.qfm     +++|          CRD    CN
00810  M00S00682.qfm     +++|          ADN    6           READ FET+7
00811  M00S00683.qfm     +++|          CRD    CM
00812  M00S00684.qfm     +++|          LDD    CN+1
00813  M00S00685.qfm     +++|          SHN    21-10
Line S00686 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00686.242l642 ---|          PJN    MSR1        IF *EP* BIT NOT SET
Line S00032 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00815  M01S00032.242l642 +++|          PJN    MSR2        IF *EP* BIT NOT SET
00816  M00S00687.qfm     +++|          LDM    RDCT        SET DRIVER ERROR CODE
Line S00033 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00033.253l688 ---|          LPN    17
Line S00021 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00818  M01S00021.253l688 +++|          LPN    77
00819  M00S00688.qfm     +++|          STD    CM+4
00820  M00S00689.qfm     +++|          RJM    GFE         WRITE FET+7
00821  M00S00690.qfm     +++|          ADN    7
00822  M00S00691.qfm     +++|          CWD    CM
Line S00692 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00823  M01S00692.242l642 ---| MSR1     ENDMS
00824  M01S00693.242l642 ---|          ERROR  RMSE        EC = 6, UNCORRECTABLE RMS ERROR
00825  M01S00694.242l642 ---| MSS      SPACE  4,8
00826  M01S00695.242l642 ---|**        MSS - MASS STORAGE READ ERROR FROM RSS.
00827  M01S00696.242l642 ---|*
00828  M01S00697.242l642 ---|*         ENTRY  ENTERED FROM *COMPRSS* IF DISK ERROR
00829  M01S00698.242l642 ---|*                READING SYSTEM SECTOR.
00830  M01S00699.242l642 ---|*
00831  M01S00700.242l642 ---|*         EXIT   TO MSR, IF FUNCTION TO BE ABORTED.
00832  M01S00701.242l642 ---|*                TO RSSX, IF FUNCTION NOT TO BE ABORTED.
00833  M01S00702.242l642 ---|*                (A) = 1, ERROR EXIT SET.
00834  M01S00703.242l642 ---|*
00835  M01S00704.242l642 ---|*         USES   T1.
00836  M01S00705.242l642 ---|*
00837  M01S00706.242l642 ---|*         CALLS  MSR.
00838  M01S00707.242l642 ---|*
00839  M01S00708.242l642 ---|*         MACROS ENDMS.
00840  M01S00709.242l642 ---|
00841  M01S00710.242l642 ---|
00842  M01S00711.242l642 ---| MSS      CON    0           ENTRY
00843  M01S00712.242l642 ---|          LDN    0           CLEAR INDEX
00844  M01S00713.242l642 ---|          STD    T1
00845  M01S00714.242l642 ---| MSS1     LDM    TORS,T1     GET NEXT ENTRY
00846  M01S00715.242l642 ---|          LMD    IR+2
00847  M01S00716.242l642 ---|          LPN    77
00848  M01S00717.242l642 ---|          ZJN    MSS2        IF FUNCTION NOT TO BE ABORTED
00849  M01S00718.242l642 ---|          AOD    T1
00850  M01S00719.242l642 ---|          SBN    TORSL
00851  M01S00720.242l642 ---|          MJN    MSS1        IF NOT END OF TABLE
00852  M01S00721.242l642 ---|          RJM    MSR         EXIT
00853  M01S00722.242l642 ---|
00854  M01S00723.242l642 ---| MSS2     ENDMS
00855  M01S00724.242l642 ---|          LDN    1           SET ERROR RETURN
00856  M01S00725.242l642 ---|          LJM    /COMPRSS/RSSX EXIT
00857  M01S00726.242l642 ---|
00858  M01S00727.242l642 ---|
00859  M01S00728.242l642 ---|**        TORS - TABLE OF FUNCTIONS NOT TO BE ABORTED ON ERRORS
00860  M01S00729.242l642 ---|*                ENCOUNTERED READING SYSTEM SECTORS.
00861  M01S00730.242l642 ---|
00862  M01S00731.242l642 ---|
00863  M01S00732.242l642 ---| TORS     BSS    0
00864  M01S00733.242l642 ---|          LOC    0
00865  M01S00734.242l642 ---|          CON    QRSF        READ SYSTEM SECTOR
00866  M01S00735.242l642 ---|          CON    AQFF        ATTACH QUEUED FILE
00867  M01S00736.242l642 ---|          CON    AIQF        ATTACH INACTIVE QUEUED FILE
00868  M01S00737.242l642 ---|          CON    RIQF        REQUEUE INACTIVE QUEUED FILE
00869  M01S00738.242l642 ---|          CON    RQLF        REQUEUE FNT LIST
00870  M01S00739.242l642 ---|          CON    DEQF        DEQUEUE LIST
00871  M01S00740.242l642 ---|          CON    IIQF        INITIALIZE IQFT FILE
00872  M01S00741.242l642 ---| TORSL    EQU    *
00873  M01S00742.242l642 ---|          LOC    *O
Line S00034 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00874  M01S00034.242l642 +++| MSR2     ERROR  RMSE        EC = 6, UNCORRECTABLE RMS ERROR
00875  M00S00743.qfm     +++|          SPACE  4
00876  M00S00744.qfm     +++|*         DAYFILE MESSAGES.
00877  M00S00745.qfm     +++|
00878  M00S00746.qfm     +++|
00879  M00S00747.qfm     +++| ERSE     DATA   C* QFM SYSTEM SECTOR ERROR.*
00880  M00S00748.qfm     +++| RCB      SPACE  4,15
00881  M00S00749.qfm     +++|**        RCB - READ CENTRAL BUFFER.
00882  M00S00750.qfm     +++|*
00883  M00S00751.qfm     +++|*         ENTRY  (A) = PP BUFFER ADDRESS.
00884  M00S00752.qfm     +++|*                (T3) = NUMBER OF WORDS TO READ.
00885  M00S00753.qfm     +++|*
00886  M00S00754.qfm     +++|*         EXIT   (A) .EQ. 0 IF BUFFER READ.
00887  M00S00755.qfm     +++|*                    .LT. 0 IF NOT ENOUGH DATA IN BUFFER.
00888  M00S00756.qfm     +++|*                (BI) = BUFFER ADDRESS.
00889  M00S00757.qfm     +++|*                (CA - CA+1) = PREVIOUS VALUE OF OUT POINTER.
00890  M00S00758.qfm     +++|*
00891  M00S00759.qfm     +++|*         CALLS  COB, RBB.
00892  M00S00760.qfm     +++|*
00893  M00S00761.qfm     +++|*         MACROS ABORT.
00894  M00S00762.qfm     +++|
00895  M00S00763.qfm     +++|
00896  M00S00764.qfm     +++| RCB1     SBD    T3
00897  M00S00765.qfm     +++|          MJN    RCBX        IF NOT ENOUGH DATA IN BUFFER
00898  M00S00766.qfm     +++|          LDD    OT+1
00899  M00S00767.qfm     +++|          STD    CA+1
00900  M00S00768.qfm     +++|          LDD    OT          SAVE OUT POINTER
00901  M00S00769.qfm     +++|          STD    CA
00902  M00S00770.qfm     +++|          LDD    BI          READ BINARY BUFFER
00903  M00S00771.qfm     +++|          RJM    RBB
00904  M00S00772.qfm     +++|          LDN    0
00905  M00S00773.qfm     +++|
00906  M00S00774.qfm     +++| RCB      SUBR               ENTRY/EXIT
00907  M00S00775.qfm     +++|          STD    BI
00908  M00S00776.qfm     +++|          RJM    COB         CHECK OUTPUT BUFFER
00909  M00S00777.qfm     +++|          PJN    RCB1        IF VALID FET POINTERS
00910  M00S00778.qfm     +++|          ABORT  ERBA        * QFM BUFFER ARGUMENT ERROR.*
00911  M00S00779.qfm     +++| RFE      SPACE  4,10
00912  M00S00780.qfm     +++|**        RFE - RELEASE LOCAL FNT ENTRY.
00913  M00S00781.qfm     +++|*
00914  M00S00782.qfm     +++|*         ENTRY  (FA) = FNT ADDRESS (OFFSET INTO NFL).
00915  M00S00783.qfm     +++|*
00916  M00S00784.qfm     +++|*         EXIT   (A) = (FA) = 0.
00917  M00S00785.qfm     +++|*
00918  M00S00786.qfm     +++|*         USES   CM - CM+4.
00919  M00S00787.qfm     +++|*
00920  M00S00788.qfm     +++|*         MACROS MONITOR.
00921  M00S00789.qfm     +++|
00922  M00S00790.qfm     +++|
00923  M00S00791.qfm     +++| RFE      SUBR               ENTRY/EXIT
00924  M00S00792.qfm     +++|          LDN    ZERL
00925  M00S00793.qfm     +++|          CRD    CM
00926  M00S00794.qfm     +++|          LDD    FA
00927  M00S00795.qfm     +++|          ZJN    RFEX        IF NO FNT ENTRY
00928  M00S00796.qfm     +++|          STD    CM+4
00929  M00S00797.qfm     +++|          LDN    DLFS        RELEASE LOCAL FNT ENTRY
00930  M00S00798.qfm     +++|          STD    CM+1
00931  M00S00799.qfm     +++|          MONITOR  PLFM
00932  M00S00800.qfm     +++|*         LDN    0           CLEAR FNT OFFSET
00933  M00S00801.qfm     +++|          STD    FA
00934  M00S00802.qfm     +++|          UJN    RFEX        RETURN
00935  M00S00803.qfm     +++| RIE      SPACE  4,10
00936  M00S00804.qfm     +++|**        RIE - RELEASE QFT ENTRY.
00937  M00S00805.qfm     +++|*
00938  M00S00806.qfm     +++|*         ENTRY  (QA) = QFT ORDINAL.
00939  M00S00807.qfm     +++|*
00940  M00S00808.qfm     +++|*         EXIT   (A) = (QA) = 0.
00941  M00S00809.qfm     +++|*
00942  M00S00810.qfm     +++|*         USES   CM - CM+4.
00943  M00S00811.qfm     +++|*
00944  M00S00812.qfm     +++|*         MACROS MONITOR.
00945  M00S00813.qfm     +++|
00946  M00S00814.qfm     +++|
00947  M00S00815.qfm     +++| RIE      SUBR               ENTRY/EXIT
00948  M00S00816.qfm     +++|          LDN    ZERL
00949  M00S00817.qfm     +++|          CRD    CM
00950  M00S00818.qfm     +++|          LDD    QA
00951  M00S00819.qfm     +++|          ZJN    RIEX        IF NO QFT ENTRY
00952  M00S00820.qfm     +++|          STD    CM+1
00953  M00S00821.qfm     +++|          LDN    PQFT        RELEASE QFT ENTRY
00954  M00S00822.qfm     +++|          STD    CM+2
00955  M00S00823.qfm     +++|          MONITOR  MTRM
00956  M00S00824.qfm     +++|*         LDN    0           CLEAR QFT ORDINAL
00957  M00S00825.qfm     +++|          STD    QA
00958  M00S00826.qfm     +++|          UJN    RIEX        RETURN
00959  M00S00827.qfm     +++| RQE      SPACE  4,15
00960  M00S00828.qfm     +++|**        RQE - READ NEXT IQFT ENTRY FROM BUFFER.
00961  M00S00829.qfm     +++|*
00962  M00S00830.qfm     +++|*         EXIT   (A) .LT. 0 IF BUFFER EMPTY.
Line S00831 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00831.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
Line S00015 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00964  M01S00015.ns22000 +++|*                (T5) = EST ORDINAL.
00965  M00S00832.qfm     +++|*                (T6) = FIRST TRACK.
00966  M00S00833.qfm     +++|*                (FN - FN+1) = FILE NAME (SEQUENCE NUMBER).
00967  M00S00834.qfm     +++|*                (IQFB) = NEXT ENTRY FROM BUFFER.
00968  M00S00835.qfm     +++|*
00969  M00S00836.qfm     +++|*         USES   T3, T7, CM - CM+1.
00970  M00S00837.qfm     +++|*
00971  M00S00838.qfm     +++|*         CALLS  RCB.
00972  M00S00839.qfm     +++|
00973  M00S00840.qfm     +++|
00974  M00S00841.qfm     +++| RQE      SUBR               ENTRY/EXIT
00975  M00S00842.qfm     +++|          LDN    QFEWL       SET NUMBER OF WORDS TO READ
00976  M00S00843.qfm     +++|          STD    T3
00977  M00S00844.qfm     +++|          LDC    IQFB        READ CENTRAL BUFFER
00978  M00S00845.qfm     +++|          RJM    RCB
00979  M00S00846.qfm     +++|          MJN    RQEX        IF BUFFER EMPTY
00980  M00S00847.qfm     +++|          LDD    MA
00981  M00S00848.qfm     +++|          CWM    IQFB+5*JSNQ,ON
00982  M00S00849.qfm     +++|          CWM    IQFB+5*ENTQ,ON
00983  M00S00850.qfm     +++|          SBN    2           MOVE FILE DESCRIPTION TO DIRECT CELLS
00984  M00S00851.qfm     +++|          CRD    FN
00985  M00S00852.qfm     +++|          ADN    1
00986  M00S00853.qfm     +++|          CRD    T5
00987  M00S00854.qfm     +++|          LDN    0           CLEAR FOT ORDINAL/USER INDEX FIELDS
00988  M00S00855.qfm     +++|          STD    FN+2
00989  M00S00856.qfm     +++|          STD    FN+3
00990  M00S00857.qfm     +++|          UJN    RQEX        RETURN
Line S00858 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00991  M01S00858.242l642 ---| RQS      SPACE  4,15
Line S00035 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00992  M01S00035.242l642 +++| RQS      SPACE  4,20
00993  M00S00859.qfm     +++|**        RQS - READ QUEUE FILE SYSTEM SECTOR.
00994  M00S00860.qfm     +++|*
Line S00861 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00995  M01S00861.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
Line S00016 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00996  M01S00016.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00997  M00S00862.qfm     +++|*                (T6) = FIRST TRACK.
00998  M00S00863.qfm     +++|*                (FN - FN+1) = FILE NAME (SEQUENCE NUMBER).
00999  M00S00864.qfm     +++|*
01000  M00S00865.qfm     +++|*         EXIT   (A) = 0 IF NO SYSTEM SECTOR ERROR.
Line S00866 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01001  M01S00866.242l642 ---|*                    = ADDRESS OF ERROR MESSAGE.
Line S00036 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01002  M01S00036.242l642 +++|*                    = ADDRESS OF ERROR MESSAGE FOR ERROR OTHER THAN
01003  M01S00037.242l642 +++|*                      READ.
01004  M00S00867.qfm     +++|*                CHANNEL RESERVED IF NO ERROR.
01005  M00S00868.qfm     +++|*
Line S00869 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01006  M01S00869.242l642 ---|*         CALLS  RSS, SSE.
Line S00038 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00870.qfm     +++|*
01015  M00S00871.qfm     +++|*         MACROS SETMS.
01016  M00S00872.qfm     +++|
01017  M00S00873.qfm     +++|
01018  M00S00874.qfm     +++| RQS      SUBR               ENTRY/EXIT
Line S00875 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01019  M01S00875.242l642 ---|          SETMS  READ
Line S00045 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00045.242l642 +++|          SETMS  IO
01021  M00S00876.qfm     +++|          LDN    0           READ SYSTEM SECTOR (IGNORE FILENAME)
01022  M00S00877.qfm     +++|          RJM    RSS
01023  M00S00878.qfm     +++|          ZJN    RQSX        IF NO ERROR
Line S00879 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01024  M01S00879.242l642 ---|          LDN    0           ISSUE SYSTEM SECTOR ERROR MESSAGE
Line S00046 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00880.qfm     +++|          RJM    SSE
01030  M00S00881.qfm     +++|          LDC    ERSE        * QFM SYSTEM SECTOR ERROR.*
01031  M00S00882.qfm     +++|          UJN    RQSX        RETURN
01032  M00S00883.qfm     +++| UOP      SPACE  4,10
01033  M00S00884.qfm     +++|**        UOP - UPDATE OUT POINTER.
01034  M00S00885.qfm     +++|*
01035  M00S00886.qfm     +++|*         ENTRY  (A) = ADDRESS OF OUT POINTER.
01036  M00S00887.qfm     +++|*
01037  M00S00888.qfm     +++|*         EXIT   (A) = ABSOLUTE ADDRESS OF OUT POINTER IN FET.
01038  M00S00889.qfm     +++|*                (CM - CM+4) = OUT POINTER.
01039  M00S00890.qfm     +++|*
01040  M00S00891.qfm     +++|*         CALLS  GFE.
01041  M00S00892.qfm     +++|
01042  M00S00893.qfm     +++|
01043  M00S00894.qfm     +++| UOP      SUBR               ENTRY/EXIT
01044  M00S00895.qfm     +++|          STD    T0
01045  M00S00896.qfm     +++|          LDN    ZERL
01046  M00S00897.qfm     +++|          CRD    CM
01047  M00S00898.qfm     +++|          LDI    T0          SET OUT POINTER
01048  M00S00899.qfm     +++|          STD    CM+3
01049  M00S00900.qfm     +++|          AOD    T0
01050  M00S00901.qfm     +++|          LDI    T0
01051  M00S00902.qfm     +++|          STD    CM+4
01052  M00S00903.qfm     +++|          RJM    GFE         STORE OUT POINTER
01053  M00S00904.qfm     +++|          ADN    3
01054  M00S00905.qfm     +++|          CWD    CM
01055  M00S00906.qfm     +++|          UJN    UOPX        RETURN
01056  M00S00907.qfm     +++| SIT      SPACE  4,8
01057  M00S00908.qfm     +++|**        SIT - SET IQFT TRACK.
01058  M00S00909.qfm     +++|*
01059  M00S00910.qfm     +++|*         ENTRY  (CN - CN+4) = EST ENTRY.
01060  M00S00911.qfm     +++|*
01061  M00S00912.qfm     +++|*         EXIT   (A) = (T6) = *IQFT* TRACK.
01062  M00S00913.qfm     +++|*
01063  M00S00914.qfm     +++|*         USES   CM - CM+4.
01064  M00S00915.qfm     +++|
01065  M00S00916.qfm     +++|
01066  M00S00917.qfm     +++| SIT      SUBR               ENTRY/EXIT
01067  M00S00918.qfm     +++|          LDD    CN+4        SET IQFT FIRST TRACK
01068  M00S00919.qfm     +++|          SHN    3
01069  M00S00920.qfm     +++|          ADN    ACGL
01070  M00S00921.qfm     +++|          CRD    CM
01071  M00S00922.qfm     +++|          LDD    CM+3
01072  M00S00923.qfm     +++|          STD    T6
01073  M00S00924.qfm     +++|          UJN    SITX        RETURN
01074  M00S00925.qfm     +++|          TITLE  COMMON DECKS USED IN ALL OVERLAYS.
01075  M00S00926.qfm     +++|
01076  M00S00927.qfm     +++|**        RESIDENT COMMON DECKS.
01077  M00S00928.qfm     +++|
01078  M00S00929.qfm     +++|*CALL     COMPCOB
01079  M00S00930.qfm     +++|*CALL     COMPCTE
01080  M00S00931.qfm     +++|*CALL     COMPCTI
01081  M00S00932.qfm     +++|*CALL     COMPC2D
Line S00009 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
01082  M01S00009.ns2576  +++| DTS$     EQU    0           CHECK FOR INACCESSIBLE DEVICE
01083  M00S00933.qfm     +++|*CALL     COMPDTS
01084  M00S00934.qfm     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
01085  M00S00935.qfm     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
01086  M00S00936.qfm     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
01087  M00S00937.qfm     +++|*CALL     COMPGFP
01088  M00S00938.qfm     +++|*CALL     COMPRBB
Line S00013 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00013.v23l617 +++|*CALL     COMPRFI
01090  M00S00939.qfm     +++|*CALL     COMPRSS
01091  M00S00940.qfm     +++|*CALL     COMPSAF
01092  M00S00941.qfm     +++|*CALL     COMPSEI
01093  M00S00942.qfm     +++|*CALL     COMPSFB
01094  M00S00943.qfm     +++|*CALL     COMPSFI
01095  M00S00944.qfm     +++|*CALL     COMPSSE
01096  M00S00945.qfm     +++| GFO$     EQU    0           DEFINE FOT ACCESS IN *COMPUFT*
01097  M00S00946.qfm     +++|*CALL     COMPUFT
Line S00947 Modification History
M01 (Removed by) ns2442
Seq #  *Modification Id* Act 
----------------------------+
01098  M01S00947.ns2442  ---|          QUAL   WBB
01099  M01S00948.ns2442  ---| QUAL$    EQU    0           DONT REQUALIFY *COMPWBB*
Line S00002 Modification History
M01 (Added by) ns2442
Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00002.ns2442  +++|          QUAL   WBB         QUALIFY *WBB*
01101  M00S00949.qfm     +++| IN       EQU    CA          REDEFINE IN POINTER
01102  M00S00950.qfm     +++|*CALL     COMPWBB
01103  M00S00951.qfm     +++|          QUAL   *
01104  M00S00952.qfm     +++| WBB      EQU    /WBB/WBB
Line S00017 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01105  M01S00017.ns2099  +++|*CALL     COMPWEI
01106  M00S00953.qfm     +++|*CALL     COMPWSS
01107  M00S00954.qfm     +++|
01108  M00S00955.qfm     +++|
01109  M00S00956.qfm     +++|          USE    OVERLAY
01110  M00S00957.qfm     +++|          SPACE  4,10
01111  M00S00958.qfm     +++|*         IQFT BUFFER.
01112  M00S00959.qfm     +++|
01113  M00S00960.qfm     +++|
01114  M00S00961.qfm     +++| IQFB     BSS    0
01115  M00S00962.qfm     +++|          SPACE  4
01116  M00S00963.qfm     +++|*         OVERLAY LOAD ADDRESSES.
01117  M00S00964.qfm     +++|
01118  M00S00965.qfm     +++|
01119  M00S00966.qfm     +++| OVL      EQU    IQFB+5*QFEWL+5  OVERLAY LOAD ADDRESS
Line S00967 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01120  M01S00967.242l642 ---| OVL0     EQU    6000        LOAD ADDRESS FOR ZERO LEVEL OVERLAYS
01121  M01S00968.242l642 ---| OZDQ     EQU    OVL0+3      LOAD ADDRESS FOR *0DQ*
01122  M01S00969.242l642 ---|
01123  M01S00970.242l642 ---|          ERRNG  BFMS-OVL0-ZBFL  CHECK LENGTH OF *OBF*
01124  M01S00971.242l642 ---|          ERRNG  7777-OVL0-ZDFL  CHECK LENGTH OF *0DF*
01125  M01S00972.242l642 ---|          ERRNG  BFMS-OZDQ-ZDQL  CHECK LENGTH OF *0DQ*
01126  M00S00973.qfm     ---|          TITLE  OVERLAID SUBROUTINES.
01127  M00S00974.qfm     ---| CBP      SPACE  4,15
01128  M00S00975.qfm     ---|**        CBP - CHECK BUFFER PARAMETERS.
01129  M00S00976.qfm     ---|*
01130  M00S00977.qfm     ---|*         EXIT   (FT - FT+1) = FIRST.
01131  M00S00978.qfm     ---|*                (IN - IN+1) = IN.
01132  M00S00979.qfm     ---|*                (OT - OT+1) = OUT.
01133  M00S00980.qfm     ---|*                (LM - LM+1) = LIMIT.
01134  M00S00981.qfm     ---|*                (CN - CN+4) = FET WORD CONTAINING FIRST.
01135  M00S00982.qfm     ---|*
01136  M00S00983.qfm     ---|*         USES   CM - CM+4.
01137  M00S00984.qfm     ---|*
01138  M00S00985.qfm     ---|*         CALLS  GFE.
01139  M00S00986.qfm     ---|*
01140  M00S00987.qfm     ---|*         MACROS ABORT.
01141  M00S00988.qfm     ---|
01142  M00S00989.qfm     ---|
01143  M00S00990.qfm     ---| CBP      SUBR               ENTRY/EXIT
01144  M00S00991.qfm     ---|          RJM    GFE         GET FET ADDRESS
01145  M00S00992.qfm     ---|          ADN    1           READ FIRST
01146  M00S00993.qfm     ---|          CRD    CN
01147  M00S00994.qfm     ---|          ADN    1           READ IN
01148  M00S00995.qfm     ---|          CRD    CM
01149  M00S00996.qfm     ---|          ADN    2           READ LIMIT
01150  M00S00997.qfm     ---|          CRD    LM-3
01151  M00S00998.qfm     ---|          SBN    1           READ OUT
01152  M00S00999.qfm     ---|          CRD    OT-3
01153  M00S01000.qfm     ---|
01154  M00S01001.qfm     ---|          LDD    CN+4        SET FIRST
01155  M00S01002.qfm     ---|          STD    FT+1
01156  M00S01003.qfm     ---|          LDD    CN+3
01157  M00S01004.qfm     ---|          LPN    37
01158  M00S01005.qfm     ---|          STD    FT
01159  M00S01006.qfm     ---|
01160  M00S01007.qfm     ---|          LDD    LM          SET LIMIT
01161  M00S01008.qfm     ---|          LPN    37
01162  M00S01009.qfm     ---|          STD    LM
01163  M00S01010.qfm     ---|          SHN    14
01164  M00S01011.qfm     ---|          LMD    LM+1
01165  M00S01012.qfm     ---|          SBN    1
01166  M00S01013.qfm     ---|          SHN    -6
01167  M00S01014.qfm     ---|          SBD    FL
01168  M00S01015.qfm     ---|          PJN    CBP1        IF LIMIT .GE. FL
01169  M00S01016.qfm     ---|
01170  M00S01017.qfm     ---|          LDD    OT          CHECK OUT
01171  M00S01018.qfm     ---|          SBD    LM
01172  M00S01019.qfm     ---|          SHN    14
01173  M00S01020.qfm     ---|          ADD    OT+1
01174  M00S01021.qfm     ---|          SBD    LM+1
01175  M00S01022.qfm     ---|          PJN    CBP1        IF OUT .GE. LIMIT
01176  M00S01023.qfm     ---|
01177  M00S01024.qfm     ---|          LDD    OT
01178  M00S01025.qfm     ---|          SBD    FT
01179  M00S01026.qfm     ---|          SHN    14
01180  M00S01027.qfm     ---|          ADD    OT+1
01181  M00S01028.qfm     ---|          SBD    FT+1
01182  M00S01029.qfm     ---|          PJN    CBP2        IF OUT .GE. FIRST
01183  M00S01030.qfm     ---| CBP1     ABORT  ERBA        * QFM BUFFER ARGUMENT ERROR.*
01184  M00S01031.qfm     ---|
01185  M00S01032.qfm     ---| CBP2     LDD    CM+4        SET IN
01186  M00S01033.qfm     ---|          STD    IN+1
01187  M00S01034.qfm     ---|          LDD    CM+3
01188  M00S01035.qfm     ---|          STD    IN
01189  M00S01036.qfm     ---|          SBD    LM
01190  M00S01037.qfm     ---|          SHN    14
01191  M00S01038.qfm     ---|          ADD    IN+1
01192  M00S01039.qfm     ---|          SBD    LM+1
01193  M00S01040.qfm     ---|          PJN    CBP1        IF IN .GE. LIMIT
01194  M00S01041.qfm     ---|
01195  M00S01042.qfm     ---|          LDD    IN
01196  M00S01043.qfm     ---|          SBD    FT
01197  M00S01044.qfm     ---|          SHN    14
01198  M00S01045.qfm     ---|          ADD    IN+1
01199  M00S01046.qfm     ---|          SBD    FT+1
01200  M00S01047.qfm     ---|          MJN    CBP1        IF IN .LT. FIRST
01201  M00S01048.qfm     ---|          LJM    CBPX        RETURN
01202  M00S01049.qfm     ---| VIQ      SPACE  4,10
01203  M00S01050.qfm     ---|**        VIQ - VERIFY IQFT FILE.
01204  M00S01051.qfm     ---|*
01205  M00S01052.qfm     ---|*         CALLS  CFS, DTS.
01206  M00S01053.qfm     ---|*
01207  M00S01054.qfm     ---|*         MACROS ABORT, ERROR.
01208  M00S01055.qfm     ---|
01209  M00S01056.qfm     ---|
01210  M00S01057.qfm     ---| VIQ      SUBR               ENTRY/EXIT
01211  M00S01058.qfm     ---|          RJM    CFS         CHECK FILE STATUS
01212  M00S01059.qfm     ---|          LDD    CM+4        CHECK FILE TYPE
01213  M00S01060.qfm     ---|          SHN    -6
01214  M00S01061.qfm     ---|          LMN    LIFT
01215  M00S01062.qfm     ---|          ZJN    VIQ1        IF LIBRARY FILE
01216  M00S01063.qfm     ---|          ERROR  FNFE        EC = 1, NO FILE FOUND
01217  M00S01064.qfm     ---|
01218  M00S01065.qfm     ---| VIQ1     RJM    DTS
01219  M00S01066.qfm     ---|          MJN    VIQX        IF TRACK CHAIN INTERLOCKED
Line S00010 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
01220  M01S00010.ns2576  +++|          ZJN    VIQ2        IF DEVICE IS INACCESSIBLE
01221  M00S01067.qfm     +++|          ABORT  ERIE        * QFM INTERLOCK ERROR.*
01222  M01S00011.ns2576  +++|
01223  M01S00012.ns2576  +++| VIQ2     RJM    MSR         REPORT ERROR (DOES NOT RETURN)
01224  M00S01068.qfm     +++|          TITLE  ATTACH IQFT FILE.
01225  M00S01069.qfm     +++|***       ATQF - ATTACH IQFT FILE. (FUNCTION 1).
01226  M00S01070.qfm     +++|*
01227  M00S01071.qfm     +++|*         THE IQFT FILE ON EQUIPMENT, EQ, IS ATTACHED TO
01228  M00S01072.qfm     +++|*         THE CONTROL POINT AS A LIBRARY TYPE FILE WITH ITS TRACK
01229  M00S01073.qfm     +++|*         INTERLOCK BIT SET. THE FILE NAME IS TAKEN FROM THE FIRST
01230  M00S01074.qfm     +++|*         WORD OF THE FET.
01231  M00S01075.qfm     +++|*
Line S01076 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01232  M01S01076.ns2099  ---|*         IF A LIBRARY TYPE FILE WITH THE SAME FILE NAME IS FOUND
01233  M01S01077.ns2099  ---|*         ATTACHED TO THE CONTROL POINT, THEN THE CALLER IS ABORTED.
01234  M01S01078.ns2099  ---|*         IF THE DUPLICATE FILE IS NOT A LIBRARY TYPE FILE, THEN
01235  M01S01079.ns2099  ---|*         IT IS RETURNED BEFORE CREATING THE NEW FILE.
Line S00018 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01080.qfm     +++|
01240  M00S01081.qfm     +++|
01241  M00S01082.qfm     +++| ATQ      SUBR               ENTRY/EXIT
01242  M00S01083.qfm     +++|          RJM    GFE         READ FILE NAME
01243  M00S01084.qfm     +++|          CRD    FN
Line S01085 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01244  M01S01085.ns22000 ---|          ADN    7           READ EQUIPMENT NUMBER
Line S00017 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01245  M01S00017.ns22000 +++|          ADN    7           READ EST ORDINAL
01246  M00S01086.qfm     +++|          CRD    CN
01247  M00S01087.qfm     +++|          LDD    FN+3        ENSURE ZERO FILLED FOR *0BF*
01248  M00S01088.qfm     +++|          SCN    77
01249  M00S01089.qfm     +++|          STD    FN+3
01250  M00S01090.qfm     +++|
01251  M00S01091.qfm     +++|*         GET FIRST TRACK OF FILE TO ATTACH.
01252  M00S01092.qfm     +++|
Line S01093 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01253  M01S01093.ns22000 ---| ATQ2     LDD    CN          SET EQUIPMENT NUMBER
Line S00018 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01254  M01S00018.ns22000 +++| ATQ2     LDD    CN          SET EST ORDINAL
01255  M00S01094.qfm     +++|          STD    T5
Line S01095 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01256  M01S01095.ns22000 ---|          STD    SC          SAVE EQUIPMENT NUMBER
Line S00019 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01257  M01S00019.ns22000 +++|          STD    SC          SAVE EST ORDINAL
01258  M00S01096.qfm     +++|          RJM    CMS         CHECK MASS STORAGE
Line S01097 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
01259  M01S01097.ns2576  ---|          LDN    IIQS        INTERLOCK IQFT FILE
Line S00013 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
01260  M01S00013.ns2576  +++|          LDC    IIQS+3000S6 INTERLOCK IQFT
01261  M01S00014.ns2576  +++|*                            (RETURN ON INACCESSIBLE OR NOT RESERVED)
01262  M00S01098.qfm     +++|          RJM    STB
01263  M00S01099.qfm     +++|          ZJN    ATQ4        IF FILE INTERLOCKED
01264  M00S01100.qfm     +++|          RJM    SIT         SET IQFT FIRST TRACK
01265  M00S01101.qfm     +++|          NJN    ATQ3        IF IQFT FILE EXISTS
Line S01102 Modification History
M01 (Removed by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
01266  M01S01102.ns2576  ---|          ERROR  FNFE        EC = 1, NO FILE FOUND
Line S00015 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
01267  M01S00015.ns2576  +++|          ERROR  DUNE        EC = 11, DEVICE UNAVAILABLE
01268  M00S01103.qfm     +++|
Line S01104 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01269  M01S01104.ns2099  ---| ATQ3     ERROR  FAIE        EC = 2, FILE ALREADY INTERLOCKED
Line S00021 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01105.qfm     +++|
01276  M00S01106.qfm     +++|*         VERIFY EOI ON SELECTED FILE.
01277  M00S01107.qfm     +++|
Line S01108 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01278  M01S01108.ns2099  ---| ATQ4     RJM    SIT         SET IQFT FIRST TRACK
Line S00026 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01109.qfm     +++|          STD    QT          SET TRACK INTERLOCK INDICATOR
01286  M00S01110.qfm     +++|          RJM    SEI         SEARCH FOR EOI
Line S01111 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01287  M01S01111.242l642 ---|          SETMS  READ
Line S00050 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01288  M01S00050.242l642 +++|          SETMS  IO
01289  M00S01112.qfm     +++|          LDC    BFMS        READ EOI SECTOR
01290  M00S01113.qfm     +++|          RJM    RDS
01291  M00S01114.qfm     +++|          PJN    ATQ5        IF NO ERROR
01292  M00S01115.qfm     +++|          RJM    MSR         REPORT ERROR
01293  M00S01116.qfm     +++|
01294  M00S01117.qfm     +++| ATQ5     ENDMS
01295  M00S01118.qfm     +++|          LDM    BFMS        CHECK CONTROL BYTES
01296  M00S01119.qfm     +++|          ADM    BFMS+1
Line S01120 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01297  M01S01120.ns2553  ---|          ZJN    ATQ6        IF GOOD EOI
Line S00002 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01298  M01S00002.ns2553  +++|          ZJN    ATQ7        IF GOOD EOI
Line S01121 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01299  M01S01121.271l716 ---|          ABORT  EREO        * QFM EOI BAD ON ATTACHED FILE.*
Line S00013 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01300  M01S00013.271l716 +++|          ABORT  EREO        * EOI BAD ON ATTACHED FILE.*
01301  M00S01122.qfm     +++|
Line S00003 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01123.qfm     +++|*         ENTER IQFT FILE IN FNT TABLE.
01311  M00S01124.qfm     +++|
Line S01125 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01312  M01S01125.ns2553  ---| ATQ6     LDN    NEEQ        ASSIGN NULL EQUIPMENT
Line S00011 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01313  M01S00011.ns2553  +++| ATQ7     LDN    NEEQ        ASSIGN NULL EQUIPMENT
01314  M00S01126.qfm     +++|          STD    FS
01315  M00S01127.qfm     +++|          LDN    6           RETURN ON NFL INCREASE, LOCAL FILE LIMIT
01316  M00S01128.qfm     +++|          STM    OVL0-1
01317  M00S01129.qfm     +++|          EXECUTE 0BF,OVL0   MAKE FNT/FST ENTRY
Line S01130 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01318  M01S01130.ns2553  ---|          UJN    ATQ9        NO DUPLICATE FILE NAME
Line S00012 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01319  M01S00012.ns2553  +++|          UJN    ATQ8        NO DUPLICATE FILE NAME
01320  M00S01131.qfm     +++|
01321  M00S01132.qfm     +++|*         PROCESS DUPLICATE FILE.
01322  M00S01133.qfm     +++|
Line S01134 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01323  M01S01134.ns2099  ---|          NFA    FA,R
01324  M01S01135.ns2099  ---|          CRD    FS
01325  M01S01136.ns2099  ---|          LDD    FS+4
01326  M01S01137.ns2099  ---|          SHN    -6
01327  M01S01138.ns2099  ---|          LMN    LIFT
01328  M01S01139.ns2099  ---|          NJN    ATQ7        IF FILE NOT *LIBRARY* TYPE
01329  M01S01140.ns2099  ---| ATQ6.1   LDN    0           CLEAR FNT ENTRY ADDRESS
01330  M01S01141.ns2099  ---|          STD    FA
01331  M01S01142.ns2099  ---|          ABORT  ERFA        * QFM FILE ALREADY ATTACHED.*
01332  M01S01143.ns2099  ---|
01333  M01S01144.ns2099  ---| ATQ7     RJM    SFB         SET FILE BUSY
01334  M01S01145.ns2099  ---|          NJN    ATQ6.1      IF FILE BUSY REJECT
01335  M01S01146.ns2099  ---|          LDN    1           SET *UNLOAD* OPTION
Line S00032 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01336  M01S00032.ns2099  +++|          LDD    MA          SET FILE BUSY
01337  M01S00033.ns2099  +++|          CWD    FN
01338  M01S00034.ns2099  +++|          CRD    FS
01339  M01S00035.ns2099  +++|          RJM    SFB
Line S00036 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01340  M02S00036.ns2553  ---|          ZJN    ATQ6.1      IF FILE SET BUSY
Line S00013 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01341  M01S00013.ns2553  +++|          ZJP    ATQ6        IF FILE SET BUSY
Line S00037 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
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  +++|
Line S00041 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01346  M02S00041.ns2553  ---| ATQ6.1   LDN    1           SET *UNLOAD* OPTION
Line S01147 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01347  M01S01147.ns2553  ---|          STM    OVL0-1
01348  M01S01148.ns2553  ---|          EXECUTE  0DF,OVL0  CALL *0DF* TO DROP FILE
01349  M01S01149.ns2553  ---|          LJM    ATQ6        RETRY FILE CREATION
01350  M01S01150.ns2553  ---|
01351  M01S01151.ns2553  ---| ATQ9     ZJN    ATQ10       IF FNT ENTRY CREATED
Line S00014 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01352  M01S00014.ns2553  +++| ATQ8     ZJN    ATQ10       IF FNT ENTRY CREATED
01353  M00S01152.qfm     +++|          LMN    4
Line S01153 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01354  M01S01153.ns2553  ---|          NJN    ATQ9.1      IF NOT LOCAL FILE LIMIT
Line S00015 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01355  M01S00015.ns2553  +++|          NJN    ATQ9        IF NOT LOCAL FILE LIMIT
01356  M00S01154.qfm     +++|          ERROR  FTHE        EC=4, *FNT IS FULL.*
01357  M00S01155.qfm     +++|
01358  M00S01156.qfm     +++|*         ENTER PP RECALL STACK TO WAIT FOR PENDING NFL INCREASE.
01359  M00S01157.qfm     +++|
Line S01158 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01360  M01S01158.ns2553  ---| ATQ9.1   RJM    CIN         CLEAR INTERLOCKS
Line S00016 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01361  M01S00016.ns2553  +++| ATQ9     RJM    CIN         CLEAR INTERLOCKS
01362  M00S01159.qfm     +++|          LJM    ERS         ENTER PP RECALL STACK
01363  M00S01160.qfm     +++|
01364  M00S01161.qfm     +++|*         BUILD FNT/FST ENTRY.
01365  M00S01162.qfm     +++|
01366  M00S01163.qfm     +++| ATQ10    LDD    QT          SET FIRST TRACK
01367  M00S01164.qfm     +++|          STD    FS+1
01368  M00S01165.qfm     +++|          STD    FS+2        SET CURRENT TRACK
01369  M00S01166.qfm     +++|          LDD    SC          SET EQUIPMENT
01370  M00S01167.qfm     +++|          STD    T5
01371  M00S01168.qfm     +++|          STD    FS
01372  M00S01169.qfm     +++|          LDN    FSMS        SET CURRENT SECTOR
01373  M00S01170.qfm     +++|          STD    FS+3
01374  M00S01171.qfm     +++|          LDC    1005        SET TRACK INTERLOCK, NOT BUSY, EOR
01375  M00S01172.qfm     +++|          STD    FS+4
01376  M00S01173.qfm     +++|          LDC    LIFT*100-LOFT*100  CHANGE FILE TYPE TO *LIBRARY*
01377  M00S01174.qfm     +++|          RAD    FN+4
01378  M00S01175.qfm     +++|          NFA    FA,R        WRITE FNT/FST
01379  M00S01176.qfm     +++|          CWD    FN
01380  M00S01177.qfm     +++|          ADN    FSTL
01381  M00S01178.qfm     +++|          CWD    FS
01382  M00S01179.qfm     +++|          LDN    IUCS        INCREMENT USER COUNT
Line S01180 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01383  M01S01180.253l688 ---|          RJM    STB
Line S00022 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01384  M01S00022.253l688 +++|          RJM    SMD
01385  M00S01181.qfm     +++|          LJM    ATQX
Line S00042 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01386  M01S00042.ns2099  +++|
01387  M01S00043.ns2099  +++|
01388  M01S00044.ns2099  +++| ATQA     DATA   C*$WAITING FOR IQFT INTERLOCK.*
01389  M00S01182.qfm     +++|          TITLE  PURGE AND DETACH IQFT FILE.
01390  M00S01183.qfm     +++|***       DTQF - DETACH IQFT FILE. (FUNCTION 2).
01391  M00S01184.qfm     +++|*
01392  M00S01185.qfm     +++|*         THE LIBRARY TYPE FILE, LFN, ATTACHED TO THE CONTROL POINT
01393  M00S01186.qfm     +++|*         IS REMOVED FROM THE FNT/FST AND ITS TRACK INTERLOCK IS
01394  M00S01187.qfm     +++|*         CLEARED.
01395  M00S01188.qfm     +++|
01396  M00S01189.qfm     +++|
01397  M00S01190.qfm     +++| DTQ      SUBR               ENTRY/EXIT
01398  M00S01191.qfm     +++|          RJM    VIQ         VERIFY IQFT FILE
Line S01192 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01399  M01S01192.ns2553  ---|          LDN    DUCS        DECREMENT USER COUNT
Line S01193 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01400  M02S01193.ns2553  ---|          RJM    STB
Line S00023 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01401  M02S00023.ns2553  ---|          RJM    SMD
01402  M00S01194.qfm     ---|
01403  M00S01195.qfm     ---|*         NOTE - IT IS NOT NECESSARY TO CLEAR THE TRACK INTERLOCK
01404  M00S01196.qfm     ---|*         HERE.  IT WILL BE CLEARED BY *0DF* BECAUSE THE FST TRACK
01405  M00S01197.qfm     ---|*         INTERLOCK BIT IS SET (BY *ATQ* WHEN THE *IQFT* WAS
01406  M00S01198.qfm     ---|*         ATTACHED TO THE CONTROL POINT).
01407  M00S01199.qfm     ---|
01408  M00S01200.qfm     ---|          LDN    1           UNLOAD OPTION
01409  M00S01201.qfm     ---|          STM    OVL0-1
01410  M00S01202.qfm     ---|          EXECUTE 0DF,OVL0
Line S01203 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01411  M01S01203.ns2553  ---|          UJN    DTQX        RETURN
Line S00017 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01412  M01S00017.ns2553  +++|          PJN    DTQ1        IF FILE DROPPED
01413  M01S00018.ns2553  +++|          RJM    MSR         REPORT ERROR
01414  M01S00019.ns2553  +++| DTQ1     LDN    DUCS        DECREMENT USER COUNT
01415  M01S00020.ns2553  +++|          RJM    SMD
01416  M01S00021.ns2553  +++|          UJP    DTQX        RETURN
Line S01204 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01417  M01S01204.242l642 ---| PGQF     SPACE  4,6
Line S00051 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01418  M01S00051.242l642 +++| PGQF     SPACE  4,5
01419  M00S01205.qfm     +++|***       PGQF - PURGE IQFT FILE. (FUNCTION 3).
01420  M00S01206.qfm     +++|*
01421  M00S01207.qfm     +++|*         THE LIBRARY FILE, LFN, ATTACHED TO THE CONTROL POINT IS
Line S01208 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01422  M01S01208.ns2553  ---|*         CHANGED TO A LOCAL FILE. ITS TRACK INTERLOCK AND THE
01423  M01S01209.ns2553  ---|*         FIRST TRACK BYTE IN THE MST ARE CLEARED.
Line S00022 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01424  M01S00022.ns2553  +++|*         RETURNED AND ITS TRACK INTERLOCK IS CLEARED.
01425  M00S01210.qfm     +++|
01426  M00S01211.qfm     +++|
01427  M00S01212.qfm     +++| PGQ      SUBR               ENTRY/EXIT
01428  M00S01213.qfm     +++|          RJM    VIQ         VERIFY IQFT FILE
01429  M00S01214.qfm     +++|          RJM    SIT         CHECK FIRST TRACK
01430  M00S01215.qfm     +++|          LMD    FS+1
Line S01216 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01431  M01S01216.242l642 ---|          ZJN    PGQ4        IF FIRST TRACKS MATCH
Line S00052 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01432  M01S00052.242l642 +++|          ZJN    PGQ1        IF FIRST TRACKS MATCH
01433  M00S01217.qfm     +++|          ABORT  ERTM        * QFM TRACK MISMATCH.*
01434  M00S01218.qfm     +++|
Line S01219 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01435  M01S01219.ns2099  ---| PGQ4     STD    T6          CLEAR IQFT FIRST TRACK BYTE
01436  M01S01220.ns2099  ---|          LDC    4S15+SIQS
01437  M01S01221.ns2099  ---|          RJM    STB
01438  M01S01222.ns2099  ---|          LDD    FS+1        RESET FIRST TRACK
01439  M01S01223.ns2099  ---|          STD    T6
01440  M01S01224.ns2099  ---|          RJM    CTI         CLEAR TRACK INTERLOCK
01441  M01S01225.ns2099  ---|          LDD    FS+4        CLEAR INTERLOCK BIT
01442  M01S01226.ns2099  ---|          LPC    6777
01443  M01S01227.ns2099  ---|          STD    FS+4
01444  M01S01228.ns2099  ---|          LDC    4S15+CPFS   CLEAR PRESERVED FILE STATUS
01445  M01S01229.ns2099  ---|          RJM    STB
Line S00045 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01446  M02S00045.242l642 ---| PGQ4     LDN    FSMS        WRITE EOI
Line S00053 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01447  M01S00053.242l642 +++| PGQ1     LDN    FSMS        WRITE EOI
Line S00046 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01448  M01S00046.ns2099  +++|          STD    T7
Line S00047 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01449  M02S00047.242l642 ---|          SETMS  WRITE
Line S00054 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01450  M01S00054.242l642 +++|          SETMS  IO
Line S00048 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01451  M01S00048.ns2099  +++|          RJM    WEI
Line S00049 Modification History
M01 (Added by) ns2099
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01452  M02S00049.242l642 ---|          ENDMS
Line S00055 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01453  M01S00055.242l642 +++|          PJN    PGQ2        IF NO WRITE ERRORS
01454  M01S00056.242l642 +++|          RJM    MSR         CHECK IF THE ERROR IS RECOVERABLE
01455  M01S00057.242l642 +++|
01456  M01S00058.242l642 +++| PGQ2     ENDMS
Line S01230 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01457  M01S01230.ns2553  ---|          LDN    DUCS        DECREMENT USER COUNT
Line S01231 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01458  M02S01231.ns2553  ---|          RJM    STB
Line S00024 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01459  M02S00024.ns2553  ---|          RJM    SMD
Line S01232 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01460  M01S01232.ns2099  ---|          NFA    FA,R        RESET FNT ENTRY
01461  M01S01233.ns2099  ---|          CRD    FN
01462  M01S01234.ns2099  ---|          LDC    LOFT*100-LIFT*100  CHANGE FILE TYPE TO LOCAL
01463  M01S01235.ns2099  ---|          RAD    FN+4
01464  M01S01236.ns2099  ---|          NFA    FA,R        WRITE FNT
01465  M01S01237.ns2099  ---|          CWD    FN
01466  M01S01238.ns2099  ---|          ADN    FSTL
01467  M01S01239.ns2099  ---|          CWD    FS          REWRITE FST ENTRY
01468  M01S01240.ns2099  ---|          RJM    CIN         CLEAR FILE INTERLOCKS
Line S00050 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01469  M01S00050.ns2099  +++|          LDN    1           SET *UNLOAD* OPTION
01470  M01S00051.ns2099  +++|          STM    OVL0-1
01471  M01S00052.ns2099  +++|          EXECUTE  0DF,OVL0
Line S01241 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01472  M01S01241.ns2553  ---|          LJM    PGQX        RETURN
Line S00023 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01473  M01S00023.ns2553  +++|          PJN    PGQ3        IF FILE DROPPED
01474  M01S00024.ns2553  +++|          RJM    MSR         REPORT ERROR
01475  M01S00025.ns2553  +++| PGQ3     LDN    DUCS        DECREMENT USER COUNT
01476  M01S00026.ns2553  +++|          RJM    SMD
01477  M01S00027.ns2553  +++|          LJM    PGQX        RETURN
Line S00059 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01478  M01S00059.242l642 +++|          SPACE  4,10
01479  M01S00060.242l642 +++|**        ZERO LEVEL OVERLAY LOAD ADDRESS.
01480  M01S00061.242l642 +++|
01481  M01S00062.242l642 +++|
01482  M01S00063.242l642 +++| OVL0     EQU    *+5
01483  M01S00064.242l642 +++|
01484  M01S00065.242l642 +++|          ERRNG  BFMS-OVL0-ZDFL
01485  M01S00066.242l642 +++|          ERRNG  EPFW-OVL0-ZBFL
01486  M01S00067.242l642 +++|
01487  M01S00068.242l642 +++|*         CODE AFTER THIS POINT IS OVERLAYED BY ZERO LEVEL OVERLAYS.
01488  M00S01242.qfm     +++| STQF     TITLE  SET IQFT FILE.
01489  M00S01243.qfm     +++|***       STQF - SET IQFT FILE. (FUNCTION 4).
01490  M00S01244.qfm     +++|*
01491  M00S01245.qfm     +++|*         THE LOCAL FILE, LFN, IS REMOVED FROM THE FNT/FST
01492  M00S01246.qfm     +++|*         AND THE FIRST TRACK IS PLACED INTO THE FIRST TRACK BYTE IN
01493  M00S01247.qfm     +++|*         THE MST.
Line S00053 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01494  M01S00053.ns2099  +++|*
01495  M01S00054.ns2099  +++|*         THE CALLER MUST HAVE THE CURRENT IQFT INTERLOCKED AT THE TIME
01496  M01S00055.ns2099  +++|*         OF THE CALL TO SET A NEW IQFT FILE.
01497  M00S01248.qfm     +++|
01498  M00S01249.qfm     +++|
Line S01250 Modification History
M01 (Removed by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01499  M01S01250.ns2099  ---| STQ1     RJM    RFE         RELEASE LOCAL FNT ENTRY
Line S00056 Modification History
M01 (Added by) ns2099
M02 (Removed by) ns2376a
Seq #  *Modification Id* Act 
----------------------------+
01500  M02S00056.ns2376a ---| STQ1     LDD    CA          DROP THE OLD IQFT TRACKS
Line S00001 Modification History
M01 (Added by) ns2376a
Seq #  *Modification Id* Act 
----------------------------+
01501  M01S00001.ns2376a +++| STQ3     LDD    CA          DROP THE OLD IQFT TRACKS
Line S00057 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01502  M01S00057.ns2099  +++|          STD    CM+2
01503  M01S00058.ns2099  +++|          LDD    T5
01504  M01S00059.ns2099  +++|          STD    CM+1
01505  M01S00060.ns2099  +++|          MONITOR  DTKM
01506  M01S00061.ns2099  +++|          RJM    RFE         RETURN NEW IQFT LOCAL FILE
Line S01251 Modification History
M01 (Removed by) qfm4
Seq #  *Modification Id* Act 
----------------------------+
01507  M01S01251.qfm4    ---|          LDC    4S15+SPFS   SET PRESERVED FILE STATUS
01508  M01S01252.qfm4    ---|          RJM    STB
Line S00062 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01509  M01S00062.ns2099  +++|          LDD    CA+1
01510  M01S00063.ns2099  +++|          STD    FA
01511  M01S00064.ns2099  +++|          RJM    RFE         RETURN OLD IQFT LOCAL FILE
01512  M01S00065.ns2099  +++|          LDN    DUCS        DECREMENT USER COUNT
Line S00066 Modification History
M01 (Added by) ns2099
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01513  M02S00066.253l688 ---|          RJM    STB
Line S00025 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01514  M01S00025.253l688 +++|          RJM    SMD
01515  M00S01253.qfm     +++|
01516  M00S01254.qfm     +++| STQ      SUBR               ENTRY/EXIT
01517  M00S01255.qfm     +++|          RJM    CFS         CHECK FILE STATUS
Line S00067 Modification History
M01 (Added by) ns2099
Seq #  *Modification Id* Act 
----------------------------+
01518  M01S00067.ns2099  +++|          RJM    CFI         CHECK CURRENT FILE INTERLOCK
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/qfm.txt ยท Last modified: (external edit)