Deck 1MS

38 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ms     +++|          IDENT  1MS,TMSO
00002  M01S00002.1ms     +++|          PERIPH
00003  M01S00003.1ms     +++|          BASE   MIXED
00004  M01S00004.1ms     +++|          SST    BFMS,FNSS,EQSS,FTSS,NSSS,FASS,DTSS,EISS,GQSS

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.242l642 ---| MSS$     EQU    1           DEFINE ERROR PROCESSING FOR *COMPRSS*
00007  M01S00007.1ms     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00008  M01S00008.1ms     +++|*COMMENT  1MS - MASS STORAGE INPUT/OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.1ms     +++|          TITLE  1MS - MASS STORAGE INPUT/OUTPUT.
00012  M01S00011.1ms     +++|          SPACE  4,10
00013  M01S00012.1ms     +++|***       1MS - MASS STORAGE INPUT/OUTPUT.
00014  M01S00013.1ms     +++|*
00015  M01S00014.1ms     +++|*         G. R. MANSFIELD.  72/03/16.
00016  M01S00015.1ms     +++|*         J. C. BOHNHOFF.   72/11/01.
00017  M01S00016.1ms     +++|*         J. J. EIKUM.       79/06/18.
00018  M01S00017.1ms     +++|*         J. L. LARSON.      80/08/01.
00019  M01S00018.1ms     +++|          SPACE  4,10
00020  M01S00019.1ms     +++|***              *1MS* PROCESSES INPUT/OUTPUT REQUESTS TO MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00020.v23l617 ---|*         FILES FOR CPU PROGRAMS.  THE *CIO* RA+1 REQUEST ISSUED BY
00022  M01S00001.v23l617 +++|*         FILES FOR CPU PROGRAMS.  THE *CIO* SYSTEM REQUEST ISSUED BY
00023  M01S00021.1ms     +++|*         THE USER CPU PROGRAM IS PRE-PROCESSED BY THE *CPUCIO*
00024  M01S00022.1ms     +++|*         SECTION OF *CPUMTR*.  *1MS* PROCESSES *RETURN*, *UNLOAD*,
00025  M01S00023.1ms     +++|*         AND *EVICT* FUNCTIONS FOR ALL EQUIPMENT TYPES (CALLS
00026  M01S00024.1ms     +++|*         *0DF* TO DROP FILE).  *1MS* ALSO ISSUES ERROR MESSAGES FOR
00027  M01S00025.1ms     +++|*         ERRORS DETECTED BY *CPUCIO* ON ANY EQUIPMENT TYPE.
00028  M01S00026.1ms     +++|*         *1MS* COMPLETES NON-READ/WRITE FUNCTIONS FOR *TT* EQUIPMENT.
00029  M01S00027.1ms     +++|*         ALL OTHER FUNCTIONS PROCESSED BY *1MS* ARE ON MASS
00030  M01S00028.1ms     +++|*         STORAGE OR NULL EQUIPMENT.
00031  M01S00029.1ms     +++|          SPACE  4,10
00032  M01S00030.1ms     +++|***       CALL.
00033  M01S00031.1ms     +++|*
00034  M01S00032.1ms     +++|*
00035  M01S00033.1ms     +++|*T IR     18/ *1MS*, 1/A, 5/ CP, 18/ SKIP, 18/ FET

Figure IR

00036  M01S00034.1ms     +++|*         A      SET IF AUTO RECALL REQUESTED.
00037  M01S00035.1ms     +++|*         CP     CONTROL POINT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00036.ns22000 ---|*         SKIP   COUNT FOR SKIP OPERATIONS.
00039  M01S00001.ns22000 +++|*         SKIP   COUNT FOR SKIP OPERATIONS, DATA PATTERN SELECTIONS
00040  M01S00002.ns22000 +++|*                FOR OVERWRITE OPERATION.
00041  M01S00037.1ms     +++|*         FET    ADDRESS OF FET.
00042  M01S00038.1ms     +++|*
00043  M01S00039.1ms     +++|*T MB     1/S, 5/RF, 6/RC, 5/0, 1/F, 6/EC, 12/ORD, 4/LV, 8/XC, 12/IC

Figure MB

00044  M01S00040.1ms     +++|*         S      SET IF *1MS* RESTARTED FROM RECALL STACK.

Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00041.ns2070  ---|*         RF     RESTART FLAGS = 1/TIF, 1/OPF, 1/SDT, 1/CCF, 1/DTF.
00046  M01S00001.ns2070  +++|*         RF     RESTART FLAGS = 1/TIF, 1/OPF, 1/SDT, 1/BDF, 1/DTF.
00047  M01S00042.1ms     +++|*                TIF = TRACK INTERLOCK FLAG.
00048  M01S00043.1ms     +++|*                OPF = ORIGINAL POSITION FLAG FOR SKIP BACKWARD/OPEN.
00049  M01S00044.1ms     +++|*                SDT = SKIP DATA TRANSFER FLAG FOR *READSKP*.

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00045.ns2070  ---|*                CCF = 819 CIO FUNCTION FLAG.
00051  M01S00002.ns2070  +++|*                BDF = BUFFERED DEVICE FUNCTION FLAG.
00052  M01S00046.1ms     +++|*                DTF = DATA TRANSFERRED FLAG.
00053  M01S00047.1ms     +++|*         RC     REASON CODE FOR RECALL STACK ENTRY.
00054  M01S00048.1ms     +++|*         F      IF SET, BUILD FNT ENTRY AND RESTART *CPUCIO*.
00055  M01S00049.1ms     +++|*         EC     ERROR CODE, IF NONZERO.
00056  M01S00050.1ms     +++|*         ORD    RELATIVE ADDRESS OF FNT ENTRY IN NEGATIVE FL,
00057  M01S00051.1ms     +++|*                IF NONZERO.
00058  M01S00052.1ms     +++|*         LV     LEVEL NUMBER, IF NO ERROR.
00059  M01S00053.1ms     +++|*         XC     EXTERNAL *CIO* FUNCTION CODE, IF NO ERROR.
00060  M01S00054.1ms     +++|*         IC     INTERNAL *CIO* FUNCTION CODE (AS DEFINED IN
00061  M01S00055.1ms     +++|*                *COMSCIO*), IF NO ERROR.
00062  M01S00056.1ms     +++|*
00063  M01S00057.1ms     +++|*T MB+1   12/ 0, 24/ IN, 24/ OUT

Figure MB+1

00064  M01S00058.1ms     +++|*T MB+2   1/R, 5/0, 6/ FETL, 24/ FIRST, 24/ LIMIT

Figure MB+2

00065  M01S00059.1ms     +++|*         R      SET IF RANDOM FILE.
00066  M01S00060.1ms     +++|*         FETL   FET LENGTH - 5.
00067  M01S00061.1ms     +++|*         FET POINTERS ARE TRANSFERRED ONLY IF *1MS* IS
00068  M01S00062.1ms     +++|*         NOT RESTARTED FROM THE RECALL STACK.
00069  M01S00063.1ms     +++|          SPACE  4,10
00070  M01S00064.1ms     +++|***       SYSTEM SECTOR PROCESSING.
00071  M01S00065.1ms     +++|*
00072  M01S00066.1ms     +++|*         *1MS* WILL READ AND WRITE THE SYSTEM SECTOR TO/FROM THE
00073  M01S00067.1ms     +++|*         CIRCULAR BUFFER BASED ON THE SYSTEM SECTOR OPERATION FLAG
00074  M01S00068.1ms     +++|*         IN THE FST (BYTE 4, BIT 13B).  TO READ THE SYSTEM SECTOR, THE
00075  M01S00069.1ms     +++|*         FORMAT OF THE FST SHOULD BE
00076  M01S00070.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00071.ns22000 ---|*T        6/ ,6/ EQ,12/ FIRST TRACK,12/ FIRST TRACK,12/ 0,12/ 4005

Figure

00078  M01S00003.ns22000 +++|*T FST    12/ EQ,12/ FIRST TRACK,12/ FIRST TRACK,12/ 0,12/4005

Figure FST

00079  M01S00072.1ms     +++|*
00080  M01S00073.1ms     +++|*         TO WRITE THE SYSTEM SECTOR, THE FORMAT OF THE FST SHOULD BE
00081  M01S00074.1ms     +++|*
00082  M01S00075.1ms     +++|*T        6/ ,6/ EQ,12/ FIRST TRACK,12/ 0,12/ 0,12/ 4005

Figure

00083  M01S00076.1ms     +++|*         THE EQUIPMENT AND FIRST TRACK ARE OPTIONAL AND MAY BE 0 IN
00084  M01S00077.1ms     +++|*         WHICH CASE *1MS* WILL ASSIGN A MASS STORAGE DEVICE.
00085  M01S00078.1ms     +++|*
00086  M01S00079.1ms     +++|*         SYSTEM SECTOR OPERATIONS ARE ONLY SUPPORTED FOR CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00080.v23l617 ---|*         READS AND WRITES AND *ILLEGAL I/O REQUEST* WILL BE ISSUED
00088  M01S00002.v23l617 +++|*         READS AND WRITES AND *INCORRECT I/O REQUEST* WILL BE ISSUED
00089  M01S00081.1ms     +++|*         IF A NON-CONTROL WORD READ OR WRITE IS ISSUED AND THE SYSTEM
00090  M01S00082.1ms     +++|*         SECTOR OPERATION BIT IS SET IN THE FST.  THE SYSTEM SECTOR
00091  M01S00083.1ms     +++|*         OPERATION BIT IS CLEARED BY *1MS* AFTER THE CONTROL WORD
00092  M01S00084.1ms     +++|*         READ OR WRITE.
00093  M01S00085.1ms     +++|          SPACE  4,10
00094  M01S00086.1ms     +++|***       DAYFILE MESSAGES.
00095  M01S00087.1ms     +++|*
00096  M01S00088.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00004.1ms16   ---|*         *ACCESS LEVEL NOT VALID FOR FILE FFF AT NNN.*

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00005.1ms16   ---|*                THE ACCESS LEVEL OF THE JOB IS NOT VALID FOR

Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00006.1ms16   ---|*                THE DEVICE ON WHICH FILE FFF RESIDES.

Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00007.1ms16   ---|*

Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00008.1ms16   ---|*         *ACCESS LEVEL NOT VALID FOR JOB, FFF AT NNN.*

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00009.1ms16   ---|*                THE ACCESS LEVEL SPECIFIED FOR FILE FFF

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00010.1ms16   ---|*                IS NOT WITHIN THE JOB VALIDATIONS.

Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00011.1ms16   ---|*
00105  M01S00089.1ms     +++|*         *ASSIGNED FOR DIAGNOSTICS, FILE FFF AT NNN.*
00106  M01S00090.1ms     +++|*                A *MALET* USER ATTEMPTED A *CIO* OPERATION OTHER
00107  M01S00091.1ms     +++|*                THAN RETURN/UNLOAD ON A PREASSIGNED TAPE WITH
00108  M01S00092.1ms     +++|*                FILE NAME FFF AND FET ADDRESS NNN.
00109  M01S00093.1ms     +++|*
00110  M01S00094.1ms     +++|*         *BUFFER ARGUMENT ERROR ON FFF AT NNN.*
00111  M01S00095.1ms     +++|*                A BUFFER POINTER DOES NOT CONFORM TO THESE CONSTRAINTS
00112  M01S00096.1ms     +++|*                            FIRST .LE. IN
00113  M01S00097.1ms     +++|*                            FIRST .LE. OUT
00114  M01S00098.1ms     +++|*                            OUT .LT. LIMIT
00115  M01S00099.1ms     +++|*                            IN .LT. LIMIT
00116  M01S00100.1ms     +++|*                            LIMIT .LE. FL
00117  M01S00101.1ms     +++|*
00118  M01S00102.1ms     +++|*         *BUFFER CONTROL WORD ERROR ON FFF AT NNN.*
00119  M01S00103.1ms     +++|*                BLOCK LENGTH AS SPECIFIED DURING A *WRITECW* OPERATION
00120  M01S00104.1ms     +++|*                IS GREATER THAN ALLOWABLE PRU SIZE FOR DEVICE.
00121  M01S00105.1ms     +++|*
00122  M01S00106.1ms     +++|*         *DEVICE ERROR ON FILE FFF AT NNN.*
00123  M01S00107.1ms     +++|*                AN UNRECOVERED ERROR OCCURRED ON THE MASS STORAGE
00124  M01S00108.1ms     +++|*                DEVICE CONTAINING THE FILE.
00125  M01S00109.1ms     +++|*
00126  M01S00110.1ms     +++|*         *ERROR FLAG TERMINATION, FILE FFF AT NNN.*
00127  M01S00111.1ms     +++|*                A SPECIAL ERROR FLAG WAS SET DURING PROCESSING OF THE
00128  M01S00112.1ms     +++|*                OPERATION AND THE OPERATION WAS NOT COMPLETED.
00129  M01S00113.1ms     +++|*
00130  M01S00114.1ms     +++|*         *FET ADDRESS OUT OF RANGE AT NNN.*
00131  M01S00115.1ms     +++|*                FET ADDRESS .LE. 1 OR FET EXTENDS PAST FL.
00132  M01S00116.1ms     +++|*
00133  M01S00117.1ms     +++|*         *FET PARAMETER ERROR ON FFF AT NNN.*

Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00118.v23l617 ---|*                ONE OF THE PARAMETERS IN THE FET IS ILLEGAL (E.G. THE
00135  M01S00003.v23l617 +++|*                ONE OF THE PARAMETERS IN THE FET IS INCORRECT (IE. THE
00136  M01S00119.1ms     +++|*                LIST ADDRESS IS .GT. THE JOBS FL) OR THE  FET IS NOT
00137  M01S00120.1ms     +++|*                LONG ENOUGH FOR THE PARAMETER.
00138  M01S00121.1ms     +++|*
00139  M01S00001.1ms16   +++|*         *FILE ACCESS LEVEL CONFLICT, FFF AT NNN.*
00140  M01S00002.1ms16   +++|*                THE ACCESS LEVEL SPECIFIED FOR FILE FFF
00141  M01S00003.1ms16   +++|*                IS NOT WITHIN THE JOB VALIDATIONS.
00142  M01S00004.1ms16   +++|*
00143  M01S00122.1ms     +++|*         *FILE TOO LONG, FILE FFF AT NNN.* = DIRECT ACCESS PERMANENT
00144  M01S00123.1ms     +++|*                FILE FFF HAS EXCEEDED THE DIRECT ACCESS FILE SIZE
00145  M01S00124.1ms     +++|*                LIMIT.
00146  M01S00125.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00126.v23l617 ---|*         *ILLEGAL EQUIPMENT ON FILE FFF AT NNN.*
00148  M01S00004.v23l617 +++|*         *INCORRECT EQUIPMENT ON FILE FFF AT NNN.*
00149  M01S00127.1ms     +++|*                THE EQUIPMENT IN THE FST ENTRY FOR THE FILE IS NOT
00150  M01S00128.1ms     +++|*                SUPPORTED FOR *CIO* FUNCTIONS.
00151  M01S00129.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00130.v23l617 ---|*         *ILLEGAL FILE NAME FFF AT NNN.*
00153  M01S00005.v23l617 +++|*         *INCORRECT FILE NAME FFF AT NNN.*
00154  M01S00131.1ms     +++|*                THE FILE NAME DOES NOT CONFORM TO ESTABLISHED RULES.
00155  M01S00132.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00133.v23l617 ---|*         *ILLEGAL I/O REQUEST ON FILE FFF AT NNN.*
00157  M01S00006.v23l617 +++|*         *INCORRECT I/O REQUEST ON FILE FFF AT NNN.*

Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00134.ns22000 ---|*                THE FUNCTION CODE IS UNRECOGNIZED.
00159  M01S00012.ns22000 +++|*                THE FUNCTION CODE IS NOT RECOGNIZED OR THE FUNCTION
00160  M01S00013.ns22000 +++|*                IS NOT ALLOWED ON THE FILE IN ITS CURRENT STATE.
00161  M01S00135.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00136.v23l617 ---|*         *ILLEGAL MODIFICATION OF FFF AT NNN.*
00163  M01S00007.v23l617 +++|*         *INCORRECT MODIFICATION OF FFF AT NNN.*
00164  M01S00137.1ms     +++|*                EITHER THE FUNCTION WOULD RESULT IN SHORTENING A
00165  M01S00138.1ms     +++|*                MODIFY-ONLY FILE OR THE FILE HAS MODIFY LOCK-OUT.
00166  M01S00139.1ms     +++|*
00167  M01S00140.1ms     +++|*         *INDEX ADDRESS OUT OF RANGE FOR FFF AT NNN.*
00168  M01S00141.1ms     +++|*                RANDOM ADDRESS RETURN ADDRESS IS .GT. FL.
00169  M01S00142.1ms     +++|*
00170  M01S00143.1ms     +++|*         *INDEX TOO LARGE ON OPEN, FILE FFF AT NNN.*
00171  M01S00144.1ms     +++|*                FOR OPEN FUNCTION, THE RANDOM INDEX LENGTH EXCEEDED
00172  M01S00145.1ms     +++|*                THE INDEX BUFFER SIZE.
00173  M01S00146.1ms     +++|*
00174  M01S00147.1ms     +++|*         *I/O ON EXECUTE-ONLY FILE FFF AT NNN.*
00175  M01S00148.1ms     +++|*                FUNCTION IS NOT ALLOWED BY JOB ON EXECUTE-ONLY FILE.
00176  M01S00149.1ms     +++|*
00177  M01S00150.1ms     +++|*         *I/O SEQUENCE ERROR ON FILE FFF AT NNN.*
00178  M01S00151.1ms     +++|*                MULTIPLE CONCURRENT FUNCTIONS WERE ATTEMPTED ON A
00179  M01S00152.1ms     +++|*                SINGLE FILE.
00180  M01S00005.1ms16   +++|*
00181  M01S00006.1ms16   +++|*         *JOB ACCESS LEVEL CONFLICT, FFF AT NNN.*
00182  M01S00007.1ms16   +++|*                THE ACCESS LEVEL OF THE JOB IS NOT VALID FOR
00183  M01S00008.1ms16   +++|*                THE DEVICE ON WHICH FILE FFF RESIDES.
00184  M01S00153.1ms     +++|*
00185  M01S00154.1ms     +++|*         *M.T. NOT AVAILABLE ON FILE FFF AT NNN.*
00186  M01S00155.1ms     +++|*                THE MAGNETIC TAPE EXECUTIVE IS NOT EXECUTING.
00187  M01S00156.1ms     +++|*
00188  M01S00157.1ms     +++|*         *PRU LIMIT, FILE FFF AT NNN.*
00189  M01S00158.1ms     +++|*                WRITING ON FILE FFF WOULD EXCEED THE JOBS PRU LIMIT.
00190  M01S00159.1ms     +++|*
00191  M01S00160.1ms     +++|*         *RANDOM ADDRESS NOT ON FILE FFF AT NNN.*
00192  M01S00161.1ms     +++|*                THE RANDOM ADDRESS EXCEEDS THE NUMBER OF ADDRESSES ON
00193  M01S00162.1ms     +++|*                THE FILE.
00194  M01S00163.1ms     +++|*
00195  M01S00164.1ms     +++|*         *REQUEST UNDEFINED ON DEVICE, FFF AT NNN.*
00196  M01S00165.1ms     +++|*                THE FUNCTION CANNOT BE PERFORMED ON THE DEVICE UPON
00197  M01S00166.1ms     +++|*                WHICH THE FILE RESIDES.
00198  M01S00014.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00167.ns22000 ---|*
00200  M01S00168.1ms     +++|*         *UNNECESSARY CIO FCT. 000 ON FFF AT NNN.*
00201  M01S00169.1ms     +++|*                THE SPECIFIED *CIO* READ OR WRITE FUNCTION WAS
00202  M01S00170.1ms     +++|*                UNNECESSARY, SINCE THE USER I/O BUFFER WAS ALREADY
00203  M01S00171.1ms     +++|*                FULL (FOR READ) OR EMPTY (FOR WRITE) AND NO DATA
00204  M01S00172.1ms     +++|*                COULD BE TRANSFERRED FOR THIS *CIO* CALL.
00205  M01S00173.1ms     +++|*
00206  M01S00174.1ms     +++|*         *WRITE ON READ-ONLY FILE FFF AT NNN.*
00207  M01S00175.1ms     +++|*                A WRITE WAS ATTEMPTED ON A FILE WITH WRITE LOCK-OUT.
00208  M01S00015.ns22000 +++|*
00209  M01S00016.ns22000 +++|*         *WRITEDOWN PROHIBITED ON FILE FFF AT NNN.*
00210  M01S00017.ns22000 +++|*                THE ACCESS LEVEL OF THE JOB IS HIGHER THAN THE
00211  M01S00018.ns22000 +++|*                CURRENT ACCESS LEVEL OF FILE FFF, AND THE FILE
00212  M01S00019.ns22000 +++|*                IS A TAPE FILE OR A DIRECT ACCCESS PERMANENT FILE.
00213  M01S00176.1ms     +++|*
00214  M01S00177.1ms     +++|*         IN THE ABOVE MESSAGES, FFF REPRESENTS THE FILE NAME AS GIVEN
00215  M01S00178.1ms     +++|*         IN THE FET AND NNN REPRESENTS THE FET ADDRESS.
00216  M01S00179.1ms     +++|          SPACE  4,10
00217  M01S00180.1ms     +++|***       OPERATOR MESSAGES.
00218  M01S00181.1ms     +++|*
00219  M01S00182.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00220  M02S00183.ns22000 ---|*         *TRACK LIMIT.  EQXX*

Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00184.ns22000 ---|*                CIO IS WAITING FOR MASS STORAGE SPACE ON EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00185.ns22000 ---|*                ORDINAL XX.

Seq #  *Modification Id* Act 
----------------------------+
00223  M02S00186.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00224  M02S00187.ns22000 ---|*         *TRACK LIMIT.*

Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00188.ns22000 ---|*                CIO IS WAITING FOR MASS STORAGE SPACE ON ANY MASS

Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00189.ns22000 ---|*                STORAGE DEVICE AVAILABLE FOR TEMPORARY FILES.
00227  M01S00020.ns22000 +++|*         *EQXXX, TRACK LIMIT.* = *1MS* IS WAITING FOR MASS STORAGE
00228  M01S00021.ns22000 +++|*                SPACE TO BECOME AVAILABLE ON EST ORDINAL XXX.
00229  M01S00022.ns22000 +++|*
00230  M01S00023.ns22000 +++|*         * TRACK LIMIT.* = *1MS* IS WAITING FOR MASS STORAGE SPACE TO
00231  M01S00024.ns22000 +++|*                BECOME AVAILABLE ON A TEMPORARY FILE DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
00232  M02S00190.ns22000 ---|          SPACE  4,10
00233  M01S00025.ns22000 +++|*
00234  M01S00026.ns22000 +++|*         * TRACK LIMIT, LVLX.* = *1MS* IS WAITING FOR TEMPORARY
00235  M01S00027.ns22000 +++|*                FILE MASS STORAGE SPACE ON ANY MASS STORAGE DEVICE
00236  M01S00028.ns22000 +++|*                WITH ACCESS LEVEL LVLX.
00237  M01S00029.ns22000 +++|          SPACE  4,10
00238  M01S00191.1ms     +++|***       HANG CONDITIONS.
00239  M01S00192.1ms     +++|*
00240  M01S00193.1ms     +++|*         *1MS* WILL HANG ISSUING THE *MXFM* MONITOR FUNCTION
00241  M01S00194.1ms     +++|*         IN THE FOLLOWING CASES -
00242  M01S00195.1ms     +++|*
00243  M01S00196.1ms     +++|*         1.  *WMS* TRIES TO WRITE A DATA SECTOR ON THE LAST SECTOR
00244  M01S00197.1ms     +++|*             OF A TRACK WITH NO NEXT TRACK RESERVED.
00245  M01S00198.1ms     +++|*         2.  *WMS* TRIES TO WRITE AN EOF SECTOR ON THE LAST SECTOR
00246  M01S00199.1ms     +++|*             OF A TRACK WITH NO NEXT TRACK RESERVED.
00247  M01S00200.1ms     +++|*         3.  *PMS* CALLED TO PROCESS FUNCTION OTHER THAN
00248  M01S00201.1ms     +++|*             SKIP, OPEN, OR RANDOM READ/WRITE.
00249  M01S00202.1ms     +++|*         4.  HANG ERROR CODE WAS PASSED TO *1MS* FROM *CPUCIO*
00250  M01S00203.1ms     +++|*             (DEFINED IN *COMSCIO*).
00251  M01S00204.1ms     +++|*         5.  *0DQ* WAS UNABLE TO LOCATE GLOBAL ENTRY ASSOCIATED
00252  M01S00205.1ms     +++|*             WITH QUEUED FILE FOR *EVICT* PROCESSING.
00253  M01S00206.1ms     +++|*         6.  ERROR CODE PASSED IN MESSAGE BUFFER PARAMETER WORD IS

Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00207.v23l617 ---|*             INVALID.
00255  M01S00008.v23l617 +++|*             INCORRECT.
00256  M01S00208.1ms     +++|          SPACE  4,10
00257  M01S00209.1ms     +++|**        ROUTINES USED.
00258  M01S00210.1ms     +++|*
00259  M01S00211.1ms     +++|*
00260  M01S00212.1ms     +++|*         0BF - BEGIN FILE.
00261  M01S00213.1ms     +++|*         0DF - DROP FILE.
00262  M01S00214.1ms     +++|          SPACE  4,10
00263  M01S00215.1ms     +++|**        SYSTEM SECTOR BUFFER ASSIGNMENTS.
00264  M01S00216.1ms     +++|
00265  M01S00217.1ms     +++|
00266  M01S00218.1ms     +++| BFMS     EQU    6776-2*5    ALLOW FOR CONTROL WORDS
00267  M01S00219.1ms     +++|          SPACE  4,10
00268  M01S00220.1ms     +++|**        COMMON DECKS.
00269  M01S00221.1ms     +++|
00270  M01S00222.1ms     +++|
00271  M01S00223.1ms     +++|*CALL     COMPMAC
00272  M01S00224.1ms     +++|          LIST   X
00273  M01S00225.1ms     +++|*CALL     COMSCIO
00274  M01S00226.1ms     +++|          LIST   *
00275  M01S00227.1ms     +++|*CALL     COMSCPS
00276  M01S00228.1ms     +++|*CALL     COMSEVT
00277  M01S00030.ns22000 +++|*CALL     COMSMLS
00278  M01S00001.ns2090  +++|          QUAL   COMSHIO
00279  M01S00002.ns2090  +++|*CALL     COMSHIO
00280  M01S00003.ns2090  +++|          QUAL   *
00281  M01S00229.1ms     +++|*CALL     COMSMSP
00282  M01S00230.1ms     +++|          QUAL   PFM
00283  M01S00231.1ms     +++|*CALL     COMSPFM
00284  M01S00232.1ms     +++|          QUAL   *
00285  M01S00233.1ms     +++|*CALL     COMSPIM
00286  M01S00001.1ms4    +++|*CALL     COMSSCD
00287  M01S00234.1ms     +++|*CALL     COMSSRU
00288  M01S00031.ns22000 +++|*CALL     COMSSSD
00289  M01S00235.1ms     +++|*CALL     COMSSSE
00290  M01S00236.1ms     +++|*CALL     COMSWEI
00291  M01S00237.1ms     +++|*CALL     COMSZOL
00292  M01S00238.1ms     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00293  M01S00239.1ms     +++|          SPACE  4,10
00294  M01S00240.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
00295  M01S00241.1ms     +++|
00296  M01S00242.1ms     +++|

Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00243.ns2090  ---|*                16          USED BY OVERLAYS (DESTROYED BY OVL LOAD)

Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00244.ns2090  ---|*                17          USED BY OVERLAYS (DESTROYED BY OVL LOAD)
00299  M01S00004.ns2090  +++| T8       EQU    16          TEMPORARY (DESTROYED BY OVL LOAD)
00300  M01S00005.ns2090  +++| T9       EQU    17          TEMPORARY (DESTROYED BY OVL LOAD)
00301  M01S00245.1ms     +++| EN       EQU    17          ERROR NUMBER
00302  M01S00246.1ms     +++|
00303  M01S00247.1ms     +++|*         THE FOLLOWING DIRECT CELLS (MB - MB2) ARE READ IN BY *PPR*
00304  M01S00248.1ms     +++|*         FROM *MB* THROUGH *MB*+2 IMMEDIATELY AFTER PP ASSIGNMENT
00305  M01S00249.1ms     +++|*         SO THAT THE INFORMATION IS NOT DESTROYED BY LOADING THE PP.
00306  M01S00250.1ms     +++|
00307  M01S00251.1ms     +++| MB       EQU    20 - 24     MESSAGE BUFFER PARAMETERS
00308  M01S00252.1ms     +++|          ERRNZ  MB-MP       ADDRESSES MUST MATCH
00309  M01S00253.1ms     +++| MB1      EQU    25 - 31     MB + 1 PARAMETERS
00310  M01S00254.1ms     +++|          ERRNZ  MB1-MP-5    ADDRESS MUST BE CONSECUTIVE
00311  M01S00255.1ms     +++| MB2      EQU    32 - 36     MB + 2 PARAMETERS
00312  M01S00256.1ms     +++|          ERRNZ  MB2-MP-10D  ADDRESS MUST BE CONSECUTIVE
00313  M01S00257.1ms     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00314  M01S00258.1ms     +++| PC       EQU    25          PHYSICAL RECORD COUNT
00315  M01S00259.1ms     +++| RC       EQU    26          *DRCM* REQUEST CODE
00316  M01S00260.1ms     +++| FO       EQU    27          FET OPTIONS
00317  M01S00261.1ms     +++| DP       EQU    30 - 34     DATA POINTER (5 LOCATIONS)
00318  M01S00262.1ms     +++|*                35          USED BY OVERLAYS
00319  M01S00263.1ms     +++|*                36          USED BY OVERLAYS
00320  M01S00264.1ms     +++|*                37          USED BY OVERLAYS
00321  M01S00265.1ms     +++| BS       EQU    40 - 44     BUFFER STATUS (5 LOCATIONS)
00322  M01S00266.1ms     +++| FN       EQU    BS          FILE NAME (5 LOCATIONS)
00323  M01S00267.1ms     +++| FC       EQU    45          FUNCTION CODE
00324  M01S00268.1ms     +++|*                46          USED BY OVERLAYS
00325  M01S00269.1ms     +++|*                47          USED BY OVERLAYS
00326  M01S00270.1ms     +++| FA       EQU    57          FNT ENTRY RELATIVE ADDRESS IN NFL
00327  M01S00271.1ms     +++| FT       EQU    60 - 61     FIRST ADDRESS OF BUFFER (2 LOCATIONS)
00328  M01S00272.1ms     +++| LM       EQU    62 - 63     LIMIT ADDRESS OF BUFFER (2 LOCATIONS)
00329  M01S00273.1ms     +++| IN       EQU    64 - 65     NEXT INPUT ADDRESS (2 LOCATIONS)
00330  M01S00274.1ms     +++| OT       EQU    66 - 67     NEXT OUTPUT ADDRESS (2 LOCATIONS)
00331  M01S00275.1ms     +++|          TITLE  MACRO DEFINITIONS.
00332  M01S00276.1ms     +++|          SPACE  4,10
00333  M01S00277.1ms     +++|**        MACRO DEFINITIONS.
00334  M01S00278.1ms     +++| CFET     SPACE  4,10
00335  M01S00279.1ms     +++|**        CFET - COMPUTE FET ADDRESS.
00336  M01S00280.1ms     +++|*         CFET   N
00337  M01S00281.1ms     +++|*
00338  M01S00282.1ms     +++|*         ENTRY  *N* = FET WORD NUMBER.
00339  M01S00283.1ms     +++|*
00340  M01S00284.1ms     +++|*         COMPUTES ABSOLUTE FET ADDRESS USING (IR+3 - IR+4).
00341  M01S00285.1ms     +++|*
00342  M01S00286.1ms     +++|*         CALLS  CAF.
00343  M01S00287.1ms     +++|
00344  M01S00288.1ms     +++|
00345  M01S00289.1ms     +++| CFET     MACRO  W
00346  M01S00290.1ms     +++|          RJM    CAF
00347  M01S00291.1ms     +++|          IFC    NE,$W$$,1
00348  M01S00292.1ms     +++|          ADN    W
00349  M01S00293.1ms     +++|          ENDM
00350  M01S00294.1ms     +++| ERROR    SPACE  4,10
00351  M01S00295.1ms     +++|**        ERROR - PROCESS ERROR.
00352  M01S00296.1ms     +++|*
00353  M01S00297.1ms     +++|*         ERROR  EC
00354  M01S00298.1ms     +++|*
00355  M01S00299.1ms     +++|*         *EC* = ERROR CODE.
00356  M01S00300.1ms     +++|
00357  M01S00301.1ms     +++|
00358  M01S00302.1ms     +++| ERROR    MACRO  EC
00359  M01S00001.242l642 +++| .1       IFC    EQ,$EC$UCF$
00360  M01S00002.242l642 +++|          LDN    SSTL
00361  M01S00003.242l642 +++|          CRD    CM
00362  M01S00004.242l642 +++|          LDD    CM+3
00363  M01S00005.242l642 +++|          LPN    20
00364  M01S00006.242l642 +++|          NJP    CFN         IF LOGGING DISABLED
00365  M01S00007.242l642 +++| .1       ENDIF
00366  M01S00303.1ms     +++|          LDN    /CIOERR/EC
00367  M01S00304.1ms     +++|          LJM    ERR
00368  M01S00305.1ms     +++|          ENDM
00369  M01S00306.1ms     +++| MSG      SPACE  4,10
00370  M01S00307.1ms     +++|**        MSG - DEFINE ERROR MESSAGE.
00371  M01S00308.1ms     +++|*
00372  M01S00309.1ms     +++|*ERR      MSG    (TEXT),EF,CODE
00373  M01S00310.1ms     +++|*
00374  M01S00311.1ms     +++|*         ENTRY  *ERR* = ERROR CODE.
00375  M01S00312.1ms     +++|*                *TEXT* = ERROR MESSAGE.
00376  M01S00313.1ms     +++|*                *EF* = ERROR FLAG.
00377  M01S00314.1ms     +++|*                *CODE* = OPTION CODE.
00378  M01S00315.1ms     +++|
00379  M01S00316.1ms     +++|
00380  M01S00317.1ms     +++|          MACRO  MSG,ERR,TEXT,EF,CODE
00381  M01S00318.1ms     +++|          LOCAL  A
00382  M01S00319.1ms     +++|          ORG    TEPO+/CIOERR/ERR
00383  M01S00320.1ms     +++| .A       IFC    NE,$EF_CODE_TEXT$$
00384  M01S00321.1ms     +++|          LOC    /CIOERR/ERR
00385  M01S00322.1ms     +++|          VFD    6/EF,6/CODE
00386  M01S00323.1ms     +++|          LOC    *O
00387  M01S00324.1ms     +++|          ORG    TMSG+/CIOERR/ERR
00388  M01S00325.1ms     +++| .B       IFC    NE,$TEXT$$
00389  M01S00326.1ms     +++|          CON    =Z*_TEXT_*
00390  M01S00327.1ms     +++| .B       ELSE
00391  M01S00328.1ms     +++|          CON    0
00392  M01S00329.1ms     +++| .B       ENDIF
00393  M01S00330.1ms     +++| A        MICRO  1,,$TEXT$
00394  M01S00331.1ms     +++| A        MICCNT A

Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00332.1ms16   ---|          ERRNG  32D-A
00396  M01S00009.1ms16   +++|          ERRNG  31D-A
00397  M01S00333.1ms     +++| .A       ENDIF
00398  M01S00334.1ms     +++|          ENDM
00399  M01S00335.1ms     +++| OVERLAY  SPACE  4,10
00400  M01S00336.1ms     +++|**        OVERLAY - DEFINE OVERLAY.
00401  M01S00337.1ms     +++|*
00402  M01S00338.1ms     +++|*
00403  M01S00339.1ms     +++|*NAME     OVERLAY (TITLE),ORG
00404  M01S00340.1ms     +++|*
00405  M01S00341.1ms     +++|*         ENTRY  *NAME* = OVERLAY NAME.
00406  M01S00342.1ms     +++|*                *TITLE* = OVERLAY TITLE.
00407  M01S00343.1ms     +++|*                *ORG* = ORIGIN ADDRESS.
00408  M01S00344.1ms     +++|
00409  M01S00345.1ms     +++|
00410  M01S00346.1ms     +++|          NOREF  .N
00411  M01S00347.1ms     +++| .N       SET    0           OVERLAY NUMBER
00412  M01S00348.1ms     +++|          PURGMAC OVERLAY
00413  M01S00349.1ms     +++|
00414  M01S00350.1ms     +++|          MACRO  OVERLAY,NAME,TEXT,ORIG
00415  M01S00351.1ms     +++|          QUAL
00416  M01S00352.1ms     +++| .1       SET    .N/1R4
00417  M01S00353.1ms     +++| .1       MICRO  .1+1,1 M
00418  M01S00354.1ms     +++| .N       MICRO  .N-.1*1R4+1,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ01234
00419  M01S00355.1ms     +++| .N       MICRO  1,, ".1"".N"
00420  M01S00356.1ms     +++| NAME     EQU    2R".N"
00421  M01S00357.1ms     +++| .N       SET    .N+1
00422  M01S00358.1ms     +++|          TTL    1MS/4".N" - TEXT
00423  M01S00359.1ms     +++|          TITLE
00424  M01S00360.1ms     +++|          USE
00425  M01S00361.1ms     +++|          QUAL   NAME
00426  M01S00362.1ms     +++|          IDENT  4".N",ORIG  TEXT
00427  M01S00363.1ms     +++|          ORG    ORIG
00428  M01S00364.1ms     +++|*COMMENT  1MS - TEXT

Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00365.281l803 ---|          COMMENT COPYRIGHT  CONTROL DATA CORPORATION. 1980.
00430  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00431  M01S00366.1ms     +++|          ENDM
00432  M01S00367.1ms     +++|          TITLE  MAIN PROGRAM.
00433  M01S00368.1ms     +++|          ORG    PPFW
00434  M01S00369.1ms     +++|
00435  M01S00370.1ms     +++| TMSO     LJM    PRS         PRESET PROGRAM
00436  M01S00371.1ms     +++|
00437  M01S00372.1ms     +++|*         GLOBAL DATA.
00438  M01S00373.1ms     +++|
00439  M01S00374.1ms     +++| FACF     EQU    *-2         FILE ACCESS FLAGS
00440  M01S00375.1ms     +++| FETL     EQU    *-1         FET LENGTH
00441  M01S00376.1ms     +++| PMFF     CON    1           PERMANENT FILE FLAG
00442  M01S00377.1ms     +++| MSFF     CON    0           MASS STORAGE FILE FLAG
00443  M01S00032.ns22000 +++| FSAL     CON    0           FILE SECURITY ACCESS LEVEL
00444  M01S00033.ns22000 +++| JSAL     CON    0           JOB SECURITY ACCESS LEVEL
00445  M01S00034.ns22000 +++| OSSM     CON    0           OPERATING SYSTEM SECURITY MODE
00446  M01S00378.1ms     +++|
00447  M01S00379.1ms     +++|*         THE FOLLOWING 5 CONSECUTIVE LOCATIONS SAVE *1MS*
00448  M01S00380.1ms     +++|*         MESSAGE BUFFER PARAMETERS.
00449  M01S00381.1ms     +++|
00450  M01S00382.1ms     +++| RCRF     CON    0           REASON CODE AND RESTART FLAGS
00451  M01S00383.1ms     +++| ERCF     CON    0           ERROR CODE AND FUNCTION FLAGS
00452  M01S00384.1ms     +++| FNTA     CON    0           FNT ENTRY RELATIVE ADDRESS
00453  M01S00385.1ms     +++| LVXC     CON    0           LEVEL NUMBER AND EXTERNAL FUNCTION CODE
00454  M01S00386.1ms     +++| ICFC     CON    0           INTERNAL *CIO* FUNCTION CODE
00455  M01S00387.1ms     +++|
00456  M01S00388.1ms     +++|          ERRNZ  /CIO/RDF    CODE DEPENDS ON INTERNAL READ FUNCTION
00457  M01S00389.1ms     +++|          ERRNZ  /CIO/WTF-1  CODE DEPENDS ON INTERNAL WRITE FUNCTION
00458  M01S00390.1ms     +++| TMS      SPACE  4,10
00459  M01S00391.1ms     +++|**        TMS - TRANSFER MASS STORAGE DATA.
00460  M01S00392.1ms     +++|*
00461  M01S00393.1ms     +++|*         EXIT   TO *MSP*.
00462  M01S00394.1ms     +++|*
00463  M01S00395.1ms     +++|*         CALLS  EXR.
00464  M01S00396.1ms     +++|
00465  M01S00397.1ms     +++|
00466  M01S00398.1ms     +++| TMS      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00399.ns2090  ---| TMSA     LDN    0

Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00400.ns2090  ---|*         LDN    1           (RANDOM READ/WRITE)
00469  M01S00006.ns2090  +++|          LDC    0
00470  M01S00007.ns2090  +++|*         LDC    1           (RANDOM READ/WRITE)
00471  M01S00008.ns2090  +++| TMSA     EQU    *-1
00472  M01S00401.1ms     +++|          ZJN    TMS1        IF NOT RANDOM READ/WRITE
00473  M01S00402.1ms     +++|          LDC    1L4+PMS     LOAD POSITION OVERLAY
00474  M01S00403.1ms     +++|          RJM    EXR
00475  M01S00404.1ms     +++| TMS1     LDC    1L4+PMS     LOAD POSITION OVERLAY
00476  M01S00405.1ms     +++|*         LDC    1L4+RMS     (READ)
00477  M01S00406.1ms     +++|*         LDC    1L4+WMS     (WRITE)
00478  M01S00407.1ms     +++|*         LDC    1L4+CMS     (CLOSE)
00479  M01S00035.ns22000 +++|*         LDC    1L4+OMS     (OVERWRITE)
00480  M01S00408.1ms     +++| TMSB     EQU    *-1
00481  M01S00409.1ms     +++|          RJM    EXR         EXECUTE FUNCTION PROCESSOR
00482  M01S00410.1ms     +++|*         UJN    MSP         COMPLETE MASS STORAGE PROCESSING
00483  M01S00411.1ms     +++|          TITLE  TERMINATION.
00484  M01S00412.1ms     +++|**        TERMINATION PROCESSORS.
00485  M01S00413.1ms     +++| MSP      SPACE  4,15
00486  M01S00414.1ms     +++|**        MSP - COMPLETE MASS STORAGE PROCESSING.
00487  M01S00415.1ms     +++|*
00488  M01S00416.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
00489  M01S00417.1ms     +++|*                (FO) = FET OPTIONS.
00490  M01S00418.1ms     +++|*                (PC) = SECTOR COUNT FOR RANDOM INDEX UPDATE.
00491  M01S00419.1ms     +++|*                (BS - BS+4) = (FET+0).
00492  M01S00420.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00493  M01S00421.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00422.242l642 ---|*         EXIT   (FS+4) = FST STATUS UPDATED FOR WRITE OPERATION.
00495  M01S00008.242l642 +++|*         EXIT   RANDOM ADDRESS IN FET+6 UPDATED.
00496  M01S00423.1ms     +++|*                TO *COC*.
00497  M01S00424.1ms     +++|*
00498  M01S00425.1ms     +++|*         USES   CM - CM+4.
00499  M01S00426.1ms     +++|*
00500  M01S00427.1ms     +++|*         MACROS CFET.
00501  M01S00428.1ms     +++|
00502  M01S00429.1ms     +++|
00503  M01S00430.1ms     +++| MSP      BSS    0           ENTRY
00504  M01S00431.1ms     +++|          LDD    FC          CHECK FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00432.242l642 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00433.242l642 ---|          LPN    17

Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00434.242l642 ---|          LMN    /CIO/WTF

Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00435.242l642 ---|          NJN    MSP2        IF NOT WRITE

Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00436.242l642 ---|          LDM    CFNB        SET FILE MODIFIED

Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00437.242l642 ---|          LPN    74

Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00438.242l642 ---|*         LPN    76          (REWRITE)

Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00439.242l642 ---| MSPA     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00440.242l642 ---|          LMN    03

Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00441.242l642 ---|*         LMN    01          (REWRITE)

Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00442.242l642 ---| MSPB     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00443.242l642 ---|          STM    CFNB

Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00444.242l642 ---|          LDN    2           SET WRITE MODE

Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00445.242l642 ---|          STD    FS+4

Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00446.242l642 ---|          LDC    0           WORD COUNT - 500

Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00447.242l642 ---| MSPC     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00448.242l642 ---|          NJN    MSP1        IF EOR/EOF ON *WRITECW*

Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00449.242l642 ---|          LDD    BS+4        CHECK REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00450.242l642 ---|          SHN    21-4

Seq #  *Modification Id* Act 
----------------------------+
00524  M02S00451.242l642 ---|          PJN    MSP2        IF NOT EOR/EOF

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00452.242l642 ---| MSP1     LDN    4           SET OPERATION COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00453.242l642 ---|          RAD    FS+4

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00454.242l642 ---| MSP2     LDD    FC
00528  M01S00455.1ms     +++|          SHN    -7
00529  M01S00456.1ms     +++|          LPN    7
00530  M01S00457.1ms     +++|          NJN    COC         IF NOT READ/WRITE
00531  M01S00458.1ms     +++|          LDD    FO          CHECK PROCESSING BITS
00532  M01S00459.1ms     +++|          SHN    21-13
00533  M01S00460.1ms     +++|          PJN    COC         IF NOT RANDOM FET
00534  M01S00461.1ms     +++|          CFET   6           READ RANDOM ACCESS CONTROL
00535  M01S00462.1ms     +++|          CRD    CM
00536  M01S00463.1ms     +++|          LDD    PC          ADVANCE SECTOR COUNT
00537  M01S00464.1ms     +++|          SHN    6
00538  M01S00465.1ms     +++|          RAD    CM+2
00539  M01S00466.1ms     +++|          SHN    -14
00540  M01S00467.1ms     +++|          RAD    CM+1
00541  M01S00468.1ms     +++|          SHN    -14
00542  M01S00469.1ms     +++|          RAD    CM
00543  M01S00470.1ms     +++|          CFET   6
00544  M01S00471.1ms     +++|          CWD    CM          STORE RANDOM ACCESS CONTROL
00545  M01S00472.1ms     +++|*         UJN    COC         CHECK OPERATION COMPLETE
00546  M01S00473.1ms     +++| COC      SPACE  4,10
00547  M01S00474.1ms     +++|**        COC - CHECK OPERATION COMPLETE.
00548  M01S00475.1ms     +++|*
00549  M01S00476.1ms     +++|*         EXIT   TO *CFN* IF TO ENTER RECALL STACK OR
00550  M01S00477.1ms     +++|*                   RESTART *CPUCIO*.
00551  M01S00478.1ms     +++|*                TO *UFS* IF FUNCTION COMPLETE.
00552  M01S00479.1ms     +++|
00553  M01S00480.1ms     +++|
00554  M01S00481.1ms     +++| COC      BSS    0           ENTRY
00555  M01S00482.1ms     +++|          LDC    0           CHECK FOR ENTRY TO RECALL STACK
00556  M01S00483.1ms     +++|*         LDC    1           (ENTER RECALL STACK)
00557  M01S00484.1ms     +++|*         LDC    4000        (RESTART *CPUCIO*)
00558  M01S00485.1ms     +++| COCA     EQU    *-1
00559  M01S00486.1ms     +++|          ZJN    UFS         IF FUNCTION COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00487.242l642 ---|          LDN    0           PREVENT SETTING FET COMPLETE
00561  M01S00009.242l642 +++|          SHN    21-13
00562  M01S00010.242l642 +++|          MJN    COC1        IF *CPUCIO* RESTART
00563  M01S00011.242l642 +++|          SOM    CFNA        LEAVE FILE SET BUSY
00564  M01S00012.242l642 +++| COC1     LDN    0           PREVENT SETTING FET COMPLETE
00565  M01S00488.1ms     +++|          STM    CFNC
00566  M01S00489.1ms     +++|          STM    CFNE        PREVENT FUNCTION CHARGE
00567  M01S00490.1ms     +++|          STM    CFNE+1

Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00491.242l642 ---|          LDM    COCA        CHECK FOR *CPUCIO* RESTART

Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00492.242l642 ---|          SHN    -13

Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00493.242l642 ---|          NJN    COC1        IF *CPUCIO* RESTART

Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00494.242l642 ---|          LDC    LDDI+FS+4   LEAVE FILE SET BUSY

Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00495.242l642 ---|          STM    CFNA

Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00496.242l642 ---| COC1     LJM    CFN         COMPLETE FUNCTION
00574  M01S00013.242l642 +++|          LJM    CFN         COMPLETE FUNCTION
00575  M01S00497.1ms     +++| CLS      SPACE  4,10
00576  M01S00498.1ms     +++|**        CLS - CLOSE MASS STORAGE COMPLETION.
00577  M01S00499.1ms     +++|*
00578  M01S00500.1ms     +++|*         EXIT   TO *CFN* IF *CLOSE/NO REWIND* FUNCTION.
00579  M01S00501.1ms     +++|*                TO *DRF* IF *CLOSE/RETURN* OR *CLOSE/UNLOAD*.
00580  M01S00502.1ms     +++|*                TO *REW* IF *CLOSE/REWIND* FUNCTION.
00581  M01S00503.1ms     +++|
00582  M01S00504.1ms     +++|
00583  M01S00505.1ms     +++| CLS      BSS    0           ENTRY
00584  M01S00506.1ms     +++|          LDM    CFNB        CLEAR FILE OPENED AND WRITTEN BITS
00585  M01S00507.1ms     +++|          LPN    71
00586  M01S00508.1ms     +++|          STM    CFNB
00587  M01S00509.1ms     +++| CLSA     LDN    0           SET RETURN FLAG FOR *DRF*
00588  M01S00510.1ms     +++|*         LDN    1           (SET UNLOAD FLAG FOR *DRF*)
00589  M01S00511.1ms     +++|          LJM    REW         REWIND FILE
00590  M01S00512.1ms     +++|*         LJM    DRF         (CLOSE/RETURN OR UNLOAD)
00591  M01S00513.1ms     +++|*         LJM    CFN         (CLOSE/NO REWIND)
00592  M01S00514.1ms     +++| CLSB     EQU    *-1
00593  M01S00515.1ms     +++| UFS      SPACE  4,15
00594  M01S00516.1ms     +++|**        UFS - UPDATE FET STATUS FOR READ OR POSITION FUNCTION.
00595  M01S00517.1ms     +++|*
00596  M01S00518.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
00597  M01S00519.1ms     +++|*                (BS - BS+4) = (FET+0).
00598  M01S00520.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00599  M01S00521.1ms     +++|*
00600  M01S00522.1ms     +++|*         EXIT   (BS - BS+4) = (FET+0) UPDATED WITH TERMINATION
00601  M01S00523.1ms     +++|*                   STATUS.
00602  M01S00524.1ms     +++|*                TO *CFN* FOR FUNCTION OTHER THAN *CLOSE*.
00603  M01S00525.1ms     +++|*                TO *CLS* FOR *CLOSE* FUNCTION.
00604  M01S00526.1ms     +++|*
00605  M01S00527.1ms     +++|*         USES   T1.
00606  M01S00528.1ms     +++|
00607  M01S00529.1ms     +++|
00608  M01S00530.1ms     +++| UFS      BSS    0           ENTRY
00609  M01S00531.1ms     +++|          LDD    FC          CHECK FUNCTION
00610  M01S00532.1ms     +++|          SHN    -6
00611  M01S00533.1ms     +++|          LPN    17
00612  M01S00534.1ms     +++|          ZJN    UFS1        IF READ FUNCTION
00613  M01S00535.1ms     +++|          LMN    /CIO/CLO
00614  M01S00536.1ms     +++|          ZJN    CLS         IF CLOSE FUNCTION
00615  M01S00537.1ms     +++|          LMN    /CIO/SKP&/CIO/CLO
00616  M01S00538.1ms     +++|          NJN    UFS3        IF NOT SKIP FUNCTION
00617  M01S00539.1ms     +++|          LDC    6742
00618  M01S00540.1ms     +++|          STM    UFSB
00619  M01S00541.1ms     +++| UFS1     LDD    FS+4        CHECK TERMINATION CONDITION
00620  M01S00542.1ms     +++|          LPN    14
00621  M01S00543.1ms     +++| UFSA     SHN    -2
00622  M01S00544.1ms     +++|*         LDN    0           (TERMINATION CONDITION NOT REACHED)
00623  M01S00545.1ms     +++|          ZJN    UFS3        IF NOT EOR/EOF/EOI
00624  M01S00546.1ms     +++|          STD    T1
00625  M01S00547.1ms     +++|          LDD    FC
00626  M01S00548.1ms     +++|          SHN    21-13
00627  M01S00549.1ms     +++|          MJN    UFS2        IF SKIP BACKWARD FUNCTION
00628  M01S00550.1ms     +++|          LDD    BS+4
00629  M01S00551.1ms     +++|          LPC    6002
00630  M01S00552.1ms     +++|*         LPC    6742        (SKIP FORWARD)
00631  M01S00553.1ms     +++| UFSB     EQU    *-1
00632  M01S00554.1ms     +++|          LMM    UFSC-1,T1   SET EOR/EOF/EOI INDICATOR
00633  M01S00555.1ms     +++|          STD    BS+4
00634  M01S00556.1ms     +++| UFS2     LDD    BS+3
00635  M01S00557.1ms     +++|          SCN    74
00636  M01S00558.1ms     +++|          LMM    UFSD-1,T1   SET LEVEL NUMBER
00637  M01S00559.1ms     +++|          STD    BS+3
00638  M01S00560.1ms     +++| UFS3     UJN    CFN         COMPLETE FUNCTION
00639  M01S00561.1ms     +++|
00640  M01S00562.1ms     +++|
00641  M01S00563.1ms     +++| UFSC     BSS    0           READ/POSITION FUNCTION RETURNS
00642  M01S00564.1ms     +++|          LOC    1
00643  M01S00565.1ms     +++|          CON    20          EOR
00644  M01S00566.1ms     +++|          CON    30          EOF
00645  M01S00567.1ms     +++|          CON    1030        EOI
00646  M01S00568.1ms     +++|          LOC    *O
00647  M01S00569.1ms     +++|
00648  M01S00570.1ms     +++| UFSD     BSS    0           LEVEL NUMBER RETURNS
00649  M01S00571.1ms     +++|          LOC    1
00650  M01S00572.1ms     +++|          CON    0           EOR
00651  M01S00573.1ms     +++|          CON    74B         EOF
00652  M01S00574.1ms     +++|          CON    74B         EOI
00653  M01S00575.1ms     +++|          LOC    *O
00654  M01S00576.1ms     +++| RRF      SPACE  4,15
00655  M01S00577.1ms     +++|**        RRF - RESET RANDOM FET POINTERS.
00656  M01S00578.1ms     +++|*
00657  M01S00579.1ms     +++|*         ENTRY  (FO) = FET OPTIONS.
00658  M01S00580.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00659  M01S00581.1ms     +++|*
00660  M01S00582.1ms     +++|*         EXIT   (FS+4) = FST STATUS.
00661  M01S00583.1ms     +++|*                TO *CFN*.
00662  M01S00584.1ms     +++|*
00663  M01S00585.1ms     +++|*         USES   DP - DP+4.
00664  M01S00586.1ms     +++|*
00665  M01S00587.1ms     +++|*         MACROS CFET.
00666  M01S00588.1ms     +++|
00667  M01S00589.1ms     +++|
00668  M01S00590.1ms     +++| RRF      BSS    0           ENTRY
00669  M01S00001.ns2365  +++|          LDD    FS          CHECK DEVICE TYPE
00670  M01S00002.ns2365  +++|          LMN    TEEQ
00671  M01S00003.ns2365  +++|          ZJN    RRF1        IF *TE*
00672  M01S00591.1ms     +++|          LDN    4           SET EOR FST STATUS

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00592.ns2365  ---|          STD    FS+4
00674  M01S00004.ns2365  +++| RRF1     STD    FS+4
00675  M01S00593.1ms     +++|          LDD    FO          CHECK FOR RANDOM FILE
00676  M01S00594.1ms     +++|          SHN    21-13
00677  M01S00595.1ms     +++|          PJN    CFN         IF NOT RANDOM FILE
00678  M01S00596.1ms     +++|          CFET   6           READ RANDOM INDEX WORD
00679  M01S00597.1ms     +++|          CRD    DP
00680  M01S00598.1ms     +++|          LDN    0           SET *CRI* TO 1
00681  M01S00599.1ms     +++|          STD    DP
00682  M01S00600.1ms     +++|          STD    DP+1
00683  M01S00601.1ms     +++|          LDD    HN
00684  M01S00602.1ms     +++|          STD    DP+2
00685  M01S00603.1ms     +++|          CFET   6           REWRITE FET+6
00686  M01S00604.1ms     +++|          CWD    DP
00687  M01S00605.1ms     +++|*         UJN    CFN         COMPLETE FUNCTION
00688  M01S00606.1ms     +++| CFN      SPACE  4,20
00689  M01S00607.1ms     +++|**        CFN - COMPLETE FUNCTION.
00690  M01S00608.1ms     +++|*
00691  M01S00609.1ms     +++|*         ENTRY  (FA) = FNT ORDINAL.
00692  M01S00610.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
00693  M01S00611.1ms     +++|*                (PC) = PRU COUNT.
00694  M01S00612.1ms     +++|*                (BS - BS+4) = (FET+0).
00695  M01S00613.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00696  M01S00614.1ms     +++|*
00697  M01S00615.1ms     +++|*         EXIT   TO *PPR* IF FUNCTION COMPLETE.
00698  M01S00616.1ms     +++|*                TO *CRC* IF TO ENTER RECALL STACK OR RESTART
00699  M01S00617.1ms     +++|*                   *CPUCIO*.
00700  M01S00618.1ms     +++|*
00701  M01S00619.1ms     +++|*         USES   T1, CM+1, CM+2.
00702  M01S00620.1ms     +++|*
00703  M01S00621.1ms     +++|*         CALLS  CIT.
00704  M01S00622.1ms     +++|*
00705  M01S00623.1ms     +++|*         MACROS CFET, MONITOR, NFA.
00706  M01S00624.1ms     +++|
00707  M01S00625.1ms     +++|
00708  M01S00626.1ms     +++| CFN      BSS    0           ENTRY
00709  M01S00627.1ms     +++|          RJM    CIT         CLEAR TRACK INTERLOCK
00710  M01S00628.1ms     +++|          LDD    FA          CHECK FNT ADDRESS
00711  M01S00629.1ms     +++|          ZJN    CFN1        IF NO FNT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00630.242l642 ---| CFNA     AOD    FS+4        SET FILE NOT BUSY

Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00631.242l642 ---|*         LDD    FS+4        (ENTER RECALL STACK)

Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00632.242l642 ---|          LPN    77
00715  M01S00014.242l642 +++|          AOD    FS+4        SET FILE NOT BUSY
00716  M01S00015.242l642 +++| CFNA     LPN    77
00717  M01S00016.242l642 +++|*         LPN    76          (ENTER RECALL STACK, LEAVE FILE BUSY)
00718  M01S00633.1ms     +++|          SHN    14
00719  M01S00634.1ms     +++|          LMC    **          RESET UPPER STATUS
00720  M01S00635.1ms     +++| CFNB     EQU    *-1         (UPPER 6 BITS OF PREVIOUS FST STATUS)
00721  M01S00636.1ms     +++|          SHN    6
00722  M01S00637.1ms     +++|          STD    FS+4
00723  M01S00638.1ms     +++|          NFA    FA,R
00724  M01S00639.1ms     +++|          ADN    FSTL
00725  M01S00640.1ms     +++|          CWD    FS
00726  M01S00641.1ms     +++| CFN1     AOD    BS+4        SET FET COMPLETE
00727  M01S00642.1ms     +++|*         PSN                (ENTER RECALL STACK/RESTART *CPUCIO*)
00728  M01S00643.1ms     +++| CFNC     EQU    *-1
00729  M01S00644.1ms     +++|          CFET               STORE FET STATUS
00730  M01S00645.1ms     +++| CFND     CWD    BS
00731  M01S00646.1ms     +++|*         PSN                (ERROR PROCESSING)
00732  M01S00647.1ms     +++|
00733  M01S00648.1ms     +++|*         UPDATE ACCOUNTING CHARGES AND MASS STORAGE PRU COUNT.
00734  M01S00649.1ms     +++|*         DROP PPU.
00735  M01S00650.1ms     +++|
00736  M01S00651.1ms     +++|          LDM    CFNJ        CHECK FOR MASS STORAGE PRU COUNT UPDATE
00737  M01S00652.1ms     +++|          ADM    CFNJ+1
00738  M01S00653.1ms     +++|          ZJN    CFN2        IF NO FILE SIZE CHANGE
00739  M01S00654.1ms     +++|          LDN    1
00740  M01S00001.241l630 +++|
00741  M01S00002.241l630 +++|*         ENTRY FROM *PRS* IF ERROR CODE INCORRECT.
00742  M01S00003.241l630 +++|
00743  M01S00655.1ms     +++| CFN2     ADN    1           SET *UADM* PARAMETER COUNT
00744  M01S00656.1ms     +++|          STD    CM+1
00745  M01S00657.1ms     +++|          LDD    FC          GET FUNCTION CODE
00746  M01S00658.1ms     +++|          SHN    -6
00747  M01S00659.1ms     +++|          LPN    17
00748  M01S00660.1ms     +++|          STD    T1
00749  M01S00661.1ms     +++|          LDD    PC          CHARGE FOR PRUS TRANSFERRED
00750  M01S00662.1ms     +++|          SHN    IMPT
00751  M01S00663.1ms     +++| CFNE     ADM    TACC,T1     CHARGE FOR FUNCTION
00752  M01S00664.1ms     +++|*         PSN                (ENTER RECALL STACK/RESTART *CPUCIO*)
00753  M01S00665.1ms     +++|*         PSN                (ENTER RECALL STACK/RESTART *CPUCIO*)
00754  M01S00666.1ms     +++|          RAM    CFNH+1
00755  M01S00667.1ms     +++|          SHN    -14
00756  M01S00668.1ms     +++|          RAM    CFNH
00757  M01S00669.1ms     +++|          ADM    CFNH+1
00758  M01S00670.1ms     +++|          NJN    CFN3        IF ACCOUNTING CHARGE
00759  M01S00671.1ms     +++|          SOD    CM+1
00760  M01S00672.1ms     +++|          ZJN    CFN4        IF NO FILE SIZE UPDATE
00761  M01S00673.1ms     +++|          LDN    CFNI-CFNG
00762  M01S00674.1ms     +++|          RAM    CFNF
00763  M01S00675.1ms     +++| CFN3     LDD    MA          STORE *UADM* PARAMETER WORDS
00764  M01S00676.1ms     +++|          CWM    CFNG,CM+1
00765  M01S00677.1ms     +++|*         CWM    CFNI,CM+1   (FILE SIZE UPDATE ONLY)
00766  M01S00678.1ms     +++| CFNF     EQU    *-1
00767  M01S00679.1ms     +++| CFN4     LDM    COCA        CHECK FOR RECALL
00768  M01S00680.1ms     +++|          NJN    CRC         IF FUNCTION NOT COMPLETE
00769  M01S00681.1ms     +++|          LDD    IR+1        CHECK AUTO RECALL
00770  M01S00682.1ms     +++|          SHN    1-5
00771  M01S00683.1ms     +++|          LPN    2
00772  M01S00684.1ms     +++|          LMN    2           RECALL CPU FOR NON-AUTO RECALL REQUEST
00773  M01S00685.1ms     +++|          STD    CM+2        SET TO DROP PPU AND RECALL CPU
00774  M01S00686.1ms     +++|          MONITOR  UADM
00775  M01S00687.1ms     +++|          LJM    PPR         EXIT TO PP RESIDENT
00776  M01S00688.1ms     +++|
00777  M01S00689.1ms     +++|
00778  M01S00690.1ms     +++|*         MESSAGE BUFFER STRUCTURE FOR UADM FUNCTION.
00779  M01S00691.1ms     +++|*         (THE FOLLOWING 2 CM WORDS MUST BE CONTIGUOUS.)
00780  M01S00692.1ms     +++|
00781  M01S00693.1ms     +++| CFNG     CON    AISS        INCREMENT I/O ACCUMULATOR
00782  M01S00694.1ms     +++|          CON    IOAW        I/O ACCUMULATOR WORD
00783  M01S00695.1ms     +++|          CON    40D*100+20D POSITION AND WIDTH OF FIELD
00784  M01S00696.1ms     +++| CFNH     CON    0           PRU COUNT
00785  M01S00697.1ms     +++|          CON    0
00786  M01S00698.1ms     +++|
00787  M01S00699.1ms     +++| CFNI     CON    CDCS        DECREMENT CONTROL POINT AREA FIELD
00788  M01S00700.1ms     +++|          CON    ACLW        MASS STORAGE PRU LIMIT
00789  M01S00701.1ms     +++|          CON    0D*100+18D  POSITION AND WIDTH OF LIMIT FIELD
00790  M01S00702.1ms     +++| CFNJ     CON    0           18 BIT SECTOR COUNT (RIGHT-JUSTIFIED)
00791  M01S00703.1ms     +++|          CON    0
00792  M01S00704.1ms     +++| TACC     SPACE  4,10
00793  M01S00705.1ms     +++|**        TACC - TABLE OF ACCOUNTING CHARGES.
00794  M01S00706.1ms     +++|*
00795  M01S00707.1ms     +++|*         INDEXED BY INTERNAL *CIO* FUNCTION CODE.
00796  M01S00708.1ms     +++|
00797  M01S00709.1ms     +++|
00798  M01S00710.1ms     +++| TACC     INDEX
00799  M01S00711.1ms     +++|          INDEX  /CIO/RDF,IMRD  READ
00800  M01S00712.1ms     +++|          INDEX  /CIO/WTF,IMWT  WRITE
00801  M01S00713.1ms     +++|          INDEX  /CIO/SKP,IMSK  SKIP
00802  M01S00714.1ms     +++|          INDEX  /CIO/OPE,IMOP  OPEN
00803  M01S00715.1ms     +++|          INDEX  /CIO/CLO,IMCL  CLOSE
00804  M01S00716.1ms     +++|          INDEX  /CIO/RET,IMRU  RETURN/UNLOAD
00805  M01S00717.1ms     +++|          INDEX  /CIO/EVI,IMRU  EVICT
00806  M01S00036.ns22000 +++|          INDEX  /CIO/OVW,IMWT  OVERWRITE
00807  M01S00718.1ms     +++|          INDEX  /CIO/MFC
00808  M01S00719.1ms     +++| CRC      SPACE  4,10
00809  M01S00720.1ms     +++|**        CRC - CHECK FOR RESTART OF *CPUCIO*.
00810  M01S00721.1ms     +++|*
00811  M01S00722.1ms     +++|*         ENTRY  (CM+1) = *UADM* PARAMETER WORD COUNT.
00812  M01S00723.1ms     +++|*
00813  M01S00724.1ms     +++|*         EXIT   TO *ERS* IF TO ENTER RECALL STACK.
00814  M01S00725.1ms     +++|*                TO *PPR* IF *CPUCIO* RESTARTED.
00815  M01S00726.1ms     +++|*
00816  M01S00727.1ms     +++|*         USES   CM+1 - CM+2, IR - IR+1.
00817  M01S00728.1ms     +++|*
00818  M01S00729.1ms     +++|*         MACROS MONITOR.
00819  M01S00730.1ms     +++|
00820  M01S00731.1ms     +++|
00821  M01S00732.1ms     +++| CRC      BSS    0           ENTRY
00822  M01S00733.1ms     +++|          LDD    CM+1        CHECK IF *UADM* NECESSARY
00823  M01S00734.1ms     +++|          ZJN    CRC1        IF *UADM* NOT NECESSARY
00824  M01S00735.1ms     +++|          LDN    1           SET NO DROP OF PP
00825  M01S00736.1ms     +++|          STD    CM+2
00826  M01S00737.1ms     +++|          MONITOR  UADM      UPDATE ACCOUNTING
00827  M01S00738.1ms     +++| CRC1     LDM    COCA
00828  M01S00739.1ms     +++|          SHN    -13
00829  M01S00740.1ms     +++|          NJN    CRC2        IF NOT TO ENTER RECALL STACK
00830  M01S00741.1ms     +++|          LJM    ERS         ENTER RECALL STACK
00831  M01S00742.1ms     +++|
00832  M01S00743.1ms     +++| CRC2     LDC    2RCI        RESET *CIO* CALL
00833  M01S00744.1ms     +++|          STD    IR
00834  M01S00745.1ms     +++|          LDD    IR+1
00835  M01S00746.1ms     +++|          LPN    77
00836  M01S00747.1ms     +++|          ADC    1RO*100
00837  M01S00748.1ms     +++|          STD    IR+1
00838  M01S00749.1ms     +++|          LDN    ZERL
00839  M01S00750.1ms     +++|          CRD    CM
00840  M01S00751.1ms     +++|          LDD    MA
00841  M01S00752.1ms     +++|          CWD    IR
00842  M01S00753.1ms     +++|          ADN    1           CLEAR MB+1
00843  M01S00754.1ms     +++|          CWD    CM
00844  M01S00755.1ms     +++| CRCA     LDN    2           SET DROP PP FLAG
00845  M01S00756.1ms     +++|*         LDN    0           (NO DROP FOR TERMINAL EQUIPMENT)
00846  M01S00757.1ms     +++|          STD    CM+1
00847  M01S00758.1ms     +++|          MONITOR  RPPM      RESTART CIO
00848  M01S00759.1ms     +++| CRCB     UJN    CRC3        EXIT TO PP RESIDENT
00849  M01S00760.1ms     +++|*         PSN                (DROP PPU REQUIRED)
00850  M01S00761.1ms     +++|          LDD    IA          CLEAR AUTO RECALL FLAG
00851  M01S00762.1ms     +++|          CRD    IR
00852  M01S00763.1ms     +++|          LDD    IR+1
00853  M01S00764.1ms     +++|          SCN    40
00854  M01S00765.1ms     +++|          STD    IR+1
00855  M01S00766.1ms     +++|          LDD    IA
00856  M01S00767.1ms     +++|          CWD    IR
00857  M01S00768.1ms     +++|          MONITOR  DPPM      DROP PP
00858  M01S00769.1ms     +++| CRC3     LJM    PPR         EXIT TO PP RESIDENT
00859  M01S00770.1ms     +++| ERS      SPACE  4,10
00860  M01S00771.1ms     +++|**        ERS - ENTER RECALL STACK.
00861  M01S00772.1ms     +++|*
00862  M01S00773.1ms     +++|*         ENTRY  (PC) = PRU COUNT.
00863  M01S00774.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00864  M01S00775.1ms     +++|*
00865  M01S00776.1ms     +++|*         EXIT   TO *PPR*.
00866  M01S00017.242l642 +++|*                TO *1RJ* IF RECALL DUE TO MASS STORAGE ERROR.
00867  M01S00777.1ms     +++|*
00868  M01S00778.1ms     +++|*         USES   BS - BS+4, CM - CM+4, DP - DP+4.
00869  M01S00009.ns2090  +++|*
00870  M01S00010.ns2090  +++|*         CALLS  CBD.
00871  M01S00779.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00780.242l642 ---|*         MACROS MONITOR.
00873  M01S00018.242l642 +++|*         MACROS EXECUTE, MONITOR.
00874  M01S00781.1ms     +++|
00875  M01S00782.1ms     +++|
00876  M01S00783.1ms     +++| ERS      BSS    0           ENTRY
00877  M01S00784.1ms     +++|          LDD    PC
00878  M01S00785.1ms     +++|          ZJN    ERS1        IF NO PRUS TRANSFERRED
00879  M01S00786.1ms     +++|          LDM    RCRF        SET DATA TRANSFERRED FLAG
00880  M01S00787.1ms     +++|          LPC    3600
00881  M01S00788.1ms     +++|          ADD    HN
00882  M01S00789.1ms     +++|          UJN    ERS2        SET RECALL STACK REASON
00883  M01S00790.1ms     +++|
00884  M01S00791.1ms     +++| ERS1     LDM    RCRF
00885  M01S00792.1ms     +++|          LPC    3700
00886  M01S00793.1ms     +++| ERS2     LMN    PTLR        SET PRU TRANSFER LIMIT RECALL REASON CODE
00887  M01S00794.1ms     +++|*         LMN    TRLR        (TRACK LIMIT REASON CODE)
00888  M01S00795.1ms     +++|*         LMN    TIRR        (TRACK INTERLOCK REJECT REASON CODE)
00889  M01S00796.1ms     +++|*         LMN    NFIR        (NFL INCREASE PENDING REASON CODE)

Seq #  *Modification Id* Act 
----------------------------+
00890  M02S00797.242l642 ---|*         LMN    RCCR        (RECALL *CPUCIO* REASON CODE)

Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00011.242l642 ---|*         LDN    LBBR        (WAIT FOR BUFFER FLUSH REASON CODE)
00892  M01S00019.242l642 +++|*         LMN    LBBR        (WAIT FOR BUFFER FLUSH REASON CODE)
00893  M01S00020.242l642 +++|*         LMN    WFOR        (WAIT FOR INACCESSABLE DEVICE REASON CODE)
00894  M01S00798.1ms     +++| ERSA     EQU    *-1
00895  M01S00799.1ms     +++|          STM    RCRF

Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00800.242l642 ---|          LDD    MA          STORE *1MS* CALL

Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00801.242l642 ---|          CWD    IR

Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00802.242l642 ---|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00803.242l642 ---|          CWM    RCRF,ON     STORE ADDITONAL PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
00900  M03S00804.242l642 ---|          LDN    ZERL

Seq #  *Modification Id* Act 
----------------------------+
00901  M03S00805.242l642 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
00902  M02S00806.242l642 ---|          LDM    RCRF        CHECK RECALL REASON CODE
00903  M01S00807.1ms     +++|          LPN    77
00904  M01S00808.1ms     +++|          LMN    PTLR
00905  M01S00809.1ms     +++|          NJN    ERS3        IF NOT PRU TRANSFER LIMIT

Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00810.ns2090  ---|          LDD    FS          GET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00811.ns2090  ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00908  M02S00812.ns2090  ---|          ADM    ESTS        GET EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00909  M02S00813.ns2090  ---|          CRD    BS

Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00814.ns2090  ---|          LDD    BS+4
00911  M01S00012.ns2090  +++|          RJM    CBD         CHECK FOR BUFFERED DEVICE
00912  M01S00013.ns2090  +++|          RAM    ERSC        INCREASE ACTIVITY FOR BUFFERED DEVICE
00913  M01S00014.ns2090  +++|          LDD    CM+4
00914  M01S00815.1ms     +++|          SHN    3
00915  M01S00816.1ms     +++|          ADN    PFGL        GET NUMBER OF UNITS ON EQUIPMENT
00916  M01S00817.1ms     +++|          CRD    BS
00917  M01S00818.1ms     +++|          ADN    DALL-PFGL   GET DEVICE ACTIVITY
00918  M01S00819.1ms     +++|          CRD    DP
00919  M01S00021.242l642 +++|          LDD    DP          EXTRACT ACTIVITY ONLY FROM DALL
00920  M01S00022.242l642 +++|          LPN    77
00921  M01S00023.242l642 +++|          STD    DP
00922  M01S00820.1ms     +++|          LDD    BS+4
00923  M01S00821.1ms     +++|          LPN    7
00924  M01S00822.1ms     +++|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00823.ns2090  ---|          SHN    1
00926  M01S00015.ns2090  +++| ERSC     SHN    1
00927  M01S00016.ns2090  +++|*         SHN    3           (BUFFERED DEVICE)
00928  M01S00824.1ms     +++|          SBD    DP
00929  M01S00825.1ms     +++|          PJN    ERS3        IF NOT EXCESSIVE DEVICE ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
00930  M02S00826.ns2090  ---|          LDC    DART        SET DEVICE ACTIVITY RECALL TIME PERIOD

Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00017.v23l617 ---|          LDK    DART        SET DEVICE ACTIVITY RECALL TIME PERIOD
00932  M01S00009.v23l617 +++|          LDK    ACRT        SET DEVICE ACTIVITY RECALL TIME PERIOD
00933  M01S00827.1ms     +++|          UJN    ERS4        ENTER RECALL STACK
00934  M01S00828.1ms     +++|
00935  M01S00829.1ms     +++| ERS3     LDC    IORT        SET I/O RECALL TIME PERIOD

Seq #  *Modification Id* Act 
----------------------------+
00936  M02S00830.242l642 ---|*         LDC    RCCT        (RESTART *CPUCIO* RECALL TIME PERIOD)
00937  M01S00831.1ms     +++|*         LDC    TLRT        (TRACK LIMIT RECALL TIME PERIOD)
00938  M01S00832.1ms     +++|*         LDC    TIRT        (TRACK INTERLOCK REJECT RECALL TIME)
00939  M01S00833.1ms     +++| ERSB     EQU    *-1
00940  M01S00834.1ms     +++| ERS4     STD    CM+4        SET RECALL TIME

Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00018.242l642 ---|          LDN    ZERL

Seq #  *Modification Id* Act 
----------------------------+
00942  M02S00019.242l642 ---|          CRD    CM-1
00943  M01S00024.242l642 +++|          SHN    -14
00944  M01S00025.242l642 +++|          STD    CM+3
00945  M01S00026.242l642 +++|          LDN    0
00946  M01S00027.242l642 +++|          STD    CM+2
00947  M01S00028.242l642 +++|          LDD    IA          STORE *1MS* CALL
00948  M01S00029.242l642 +++|          CWD    IR
00949  M01S00030.242l642 +++|          ADN    2
00950  M01S00031.242l642 +++|          CWD    IR
00951  M01S00032.242l642 +++|          ADN    1           STORE *1MS* RECALL PARAMETERS
00952  M01S00033.242l642 +++|          CWM    RCRF,ON
00953  M01S00034.242l642 +++|          LDM    RCRF        CHECK IF WAITING FOR SUSPECT EQUIPMENT
00954  M01S00035.242l642 +++|          LPN    77
00955  M01S00036.242l642 +++|          LMN    WFOR
00956  M01S00037.242l642 +++|          ZJN    ERS5        IF WAITING FOR SUSPECT DEVICE - CALL 1RJ*
00957  M01S00835.1ms     +++|          LDN    PTMF        SET TIMED RECALL CRITERION
00958  M01S00836.1ms     +++|          STD    CM+1
00959  M01S00837.1ms     +++|          MONITOR RECM
00960  M01S00838.1ms     +++|          LJM    PPR         EXIT TO PP RESIDENT
00961  M01S00038.242l642 +++|
00962  M01S00039.242l642 +++|*         CALL *1RJ* TO RECALL THE PP AND ROLL THE JOB.
00963  M01S00040.242l642 +++|

Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00041.ns2358  ---| ERS5     LDD    FS          SET EST ORDINAL IN *1RJ* CALL

Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00042.ns2358  ---|          STD    IR+4
00966  M01S00001.ns2358  +++| ERS5     LDC    0           SET EST ORDINAL IN *1RJ* CALL
00967  M01S00002.ns2358  +++| ERSD     EQU    *-1
00968  M01S00003.ns2358  +++|          NJN    ERS6        IF ERROR RETURNED FROM *0DF*
00969  M01S00004.ns2358  +++|          LDD    FS
00970  M01S00005.ns2358  +++| ERS6     STD    IR+4
00971  M01S00043.242l642 +++|          LDD    MA          READ RECALL PARAMETERS FOR *1RJ*
00972  M01S00044.242l642 +++|          ADN    1
00973  M01S00045.242l642 +++|          CRD    MB
00974  M01S00046.242l642 +++|          EXECUTE  1RJ
00975  M01S00839.1ms     +++| ERR      SPACE  4,10
00976  M01S00840.1ms     +++|**        ERR - PROCESS ERROR.
00977  M01S00841.1ms     +++|*
00978  M01S00842.1ms     +++|*         ENTRY  (A) = ERROR NUMBER.
00979  M01S00843.1ms     +++|*
00980  M01S00844.1ms     +++|*         EXIT   (ERRA) = ERROR NUMBER.
00981  M01S00845.1ms     +++|*                TO *CFN* IF NO LOGGING NEEDED FOR UNNECESSARY
00982  M01S00846.1ms     +++|*                   *CIO* FUNCTION.
00983  M01S00847.1ms     +++|*
00984  M01S00848.1ms     +++|*         CALLS  EXR.
00985  M01S00849.1ms     +++|
00986  M01S00850.1ms     +++|
00987  M01S00851.1ms     +++| ERR      BSS    0           ENTRY
00988  M01S00852.1ms     +++|          STM    ERRA        SET ERROR NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00853.242l642 ---|          LMN    /CIOERR/UCF

Seq #  *Modification Id* Act 
----------------------------+
00990  M02S00854.242l642 ---|          NJN    ERR1        IF NOT UNNECESSARY *CIO* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00855.242l642 ---|          LDN    SSTL        GET SYSTEM STATUS WORD

Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00856.242l642 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
00993  M02S00857.242l642 ---|          LDD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00858.242l642 ---|          LPN    20

Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00859.242l642 ---|          ZJN    ERR1        IF LOGGING ENABLED

Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00860.242l642 ---|          LJM    CFN         COMPLETE FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00861.242l642 ---|

Seq #  *Modification Id* Act 
----------------------------+
00998  M02S00862.242l642 ---| ERR1     LDC    1L4+ERP
00999  M01S00047.242l642 +++|          LDC    1L4+ERP
01000  M01S00863.1ms     +++|          RJM    EXR
01001  M01S00864.1ms     +++|
01002  M01S00865.1ms     +++|
01003  M01S00866.1ms     +++| ERRA     CON    0           ERROR NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00867.241l630 ---| HNG      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00868.241l630 ---|**        HNG - HANG PP.

Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00869.241l630 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01007  M02S00870.241l630 ---|*         MACROS MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00871.241l630 ---|

Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00872.241l630 ---|

Seq #  *Modification Id* Act 
----------------------------+
01010  M02S00873.241l630 ---| HNG      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01011  M02S00874.241l630 ---|          CON    0           HANG ADDRESS FOR *RJM*

Seq #  *Modification Id* Act 
----------------------------+
01012  M02S00875.241l630 ---| HNG1     MONITOR  HNGM      HANG PP

Seq #  *Modification Id* Act 
----------------------------+
01013  M02S00876.241l630 ---|          UJN    HNG1        CONTINUE TO HANG PP
01014  M01S00004.241l630 +++| CHG      SPACE  4,10
01015  M01S00005.241l630 +++|**        CHG - CONDITIONALLY HANG PP.
01016  M01S00006.241l630 +++|*
01017  M01S00007.241l630 +++|*         ENTRY  (A) = ERROR FLAG TO BE SET OR ZERO.
01018  M01S00008.241l630 +++|*
01019  M01S00009.241l630 +++|*         EXIT   (A) = 0.
01020  M01S00010.241l630 +++|*
01021  M01S00011.241l630 +++|*         USES   CM - CM+4.
01022  M01S00012.241l630 +++|*
01023  M01S00013.241l630 +++|*         MACROS MONITOR.
01024  M01S00014.241l630 +++|
01025  M01S00015.241l630 +++|
01026  M01S00016.241l630 +++| CHG      SUBR               ENTRY/EXIT
01027  M01S00017.241l630 +++|          STD    CM+2        STORE ERROR FLAG IN REQUEST
01028  M01S00018.241l630 +++|          LDM    CHG         GET ADDRESS WHERE ERROR DETECTED
01029  M01S00019.241l630 +++|          STD    CM+1
01030  M01S00020.241l630 +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
01031  M01S00021.241l630 +++|          UJN    CHGX        RETURN
01032  M01S00877.1ms     +++|          TITLE  RESIDENT PROCESSORS.
01033  M01S00048.242l642 +++| CDA      SPACE  4,15
01034  M01S00049.242l642 +++|**        CDA - CHECK DEVICE ACCESSIBILITY.
01035  M01S00050.242l642 +++|*
01036  M01S00051.242l642 +++|*         THIS ROUTINE CHECKS THE RETURN STATUS FROM THE DRIVER, THE
01037  M01S00052.242l642 +++|*         REAL TIME FLAG IN THE FET, AND THE SUBSYSTEM INDICATION
01038  M01S00053.242l642 +++|*         TO DETERMINE IF THE JOB SHOULD BE ROLLED OUT.
01039  M01S00054.242l642 +++|*
01040  M01S00055.242l642 +++|*         ENTRY  (RDCT), (MSD) = STATUS FROM THE DRIVER.
01041  M01S00056.242l642 +++|*
01042  M01S00057.242l642 +++|*         EXIT   TO *MSR*, IF REAL TIME FLAG SET, UNRECOVERABLE ERROR,
01043  M01S00058.242l642 +++|*                            SUBSYSTEM, OR CONTROL POINT ERROR FLAG
01044  M01S00059.242l642 +++|*                            SET.
01045  M01S00060.242l642 +++|*                TO *COC*, IF JOB SHOULD BE ROLLED.
01046  M01S00061.242l642 +++|*
01047  M01S00062.242l642 +++|*         NOTE   IN SOME CASES, THE ERROR PROCESSOR JUMPS TO THE
01048  M01S00063.242l642 +++|*                *CDA* RETURN ADDRESS.
01049  M01S00064.242l642 +++|
01050  M01S00065.242l642 +++|
01051  M01S00066.242l642 +++| CDA      CON    0
01052  M01S00067.242l642 +++|          LDM    RDCT
01053  M01S00068.242l642 +++|          SHN    21-12

Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00069.ns2358  ---|          MJN    CDA1        IF UNRECOVERABLE ERROR

Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00006.1ms6    ---|          MJN    CDA2        IF UNRECOVERABLE ERROR
01056  M01S00001.1ms6    +++|          MJN    CDA1        IF UNRECOVERABLE ERROR
01057  M01S00070.242l642 +++|          LDD    FO
01058  M01S00071.242l642 +++|          SHN    21-7

Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00072.ns2358  ---|          MJN    CDA1        IF REAL TIME FLAG

Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00007.1ms6    ---|          MJN    CDA2        IF REAL TIME FLAG
01061  M01S00002.1ms6    +++|          MJN    CDA1        IF REAL TIME FLAG SET
01062  M01S00073.242l642 +++|          LDM    MSD
01063  M01S00074.242l642 +++|          SHN    21-13

Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00075.ns2358  ---|          PJN    CDA1        IF SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00008.1ms6    ---|          PJN    CDA2        IF SUBSYSTEM
01066  M01S00003.1ms6    +++|          PJN    CDA5        IF SUBSYSTEM
01067  M01S00076.242l642 +++|          LDD    CP          CHECK ERROR FLAG
01068  M01S00077.242l642 +++|          ADN    STSW
01069  M01S00078.242l642 +++|          CRD    CM
01070  M01S00079.242l642 +++|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00080.ns2358  ---|          NJN    CDA1        IF ERROR FLAG IS SET

Seq #  *Modification Id* Act 
----------------------------+
01072  M02S00081.ns2358  ---|          LDN    WFOR-PTLR   SET REASON CODE

Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00009.1ms6    ---|          NJN    CDA2        IF ERROR FLAG SET

Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00010.1ms6    ---|          LDM    ERSD

Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00011.1ms6    ---|          ZJN    CDA1        IF NOT ERROR RETURN FROM *0DF*
01076  M01S00004.1ms6    +++| CDA1     NJN    CDA5        IF ERROR FLAG SET

Seq #  *Modification Id* Act 
----------------------------+
01077  M02S00005.253l688 ---|          LDD    FC
01078  M01S00001.253l688 +++| CDAA     LDD    FC
01079  M01S00002.253l688 +++|*         UJN    CDA4        (ERROR SETTING TRACK INTERLOCK)
01080  M01S00006.1ms6    +++|          SHN    -6          CHECK FOR WRITE OPERATION
01081  M01S00007.1ms6    +++|          LPN    17
01082  M01S00008.1ms6    +++|          LMN    /CIO/WTF
01083  M01S00009.1ms6    +++|          ZJN    CDA2        IF WRITE FUNCTION
01084  M01S00010.1ms6    +++|          LMN    /CIO/CLO&/CIO/WTF
01085  M01S00011.1ms6    +++|          NJN    CDA3        IF NOT CLOSE FUNCTION
01086  M01S00012.1ms6    +++| CDA2     RJM    /WMS/WEI    ATTEMPT TO WRITE EOI ON FILE
01087  M01S00013.1ms6    +++| CDA3     LDM    ERSD
01088  M01S00014.1ms6    +++|          ZJN    CDA4        IF NOT ERROR RETURN FROM *0DF*
01089  M01S00012.ns2358  +++|          LDN    0
01090  M01S00013.ns2358  +++|          STD    FA

Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00014.1ms6    ---| CDA1     LDN    WFOR-PTLR   ADJUST REASON CODE
01092  M01S00015.1ms6    +++| CDA4     LDN    WFOR-PTLR   ADJUST REASON CODE
01093  M01S00082.242l642 +++|          RAM    ERSA

Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00083.ns2723  ---|          AOM    COCA
01095  M01S00001.ns2723  +++|          LDN    1           SET TO RECALL PP
01096  M01S00002.ns2723  +++|          STM    COCA
01097  M01S00084.242l642 +++|          LJM    COC         COMPLETE AND RECALL PP
01098  M01S00001.1ms14   +++|*         LJM    /SMR/SLS    (*READLS*/*RPHRLS*)
01099  M01S00002.1ms14   +++| CDAB     EQU    *-1
01100  M01S00085.242l642 +++|

Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00086.ns2358  ---| CDA1     LDM    RDCT        SAVE DRIVER RETURN CODE

Seq #  *Modification Id* Act 
----------------------------+
01102  M02S00015.1ms6    ---| CDA2     LDM    RDCT        SAVE DRIVER RETURN CODE
01103  M01S00016.1ms6    +++| CDA5     LDM    RDCT        SAVE DRIVER RETURN CODE
01104  M01S00087.242l642 +++|          STD    T4
01105  M01S00088.242l642 +++|          LDD    MA          SAVE DIRECT CELLS
01106  M01S00089.242l642 +++|          CWD    T3
01107  M01S00090.242l642 +++|          CRM    DCSA,ON
01108  M01S00091.242l642 +++|          ERROR  DRE         *DEVICE ERROR ON FILE*
01109  M01S00878.1ms     +++| DRF      SPACE  4,15
01110  M01S00879.1ms     +++|**        DRF - DROP FILE.
01111  M01S00880.1ms     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01112  M02S00881.ns2358  ---|*         ENTRY  (A, BIT 0) = 1 IF UNLOAD, 0 IF RETURN FUNCTION.

Seq #  *Modification Id* Act 
----------------------------+
01113  M02S00882.ns2358  ---|*                (FA) = ORDINAL OF FNT ENTRY.
01114  M01S00016.ns2358  +++|*         ENTRY  (A) = 0 IF RETURN FUNCTION.
01115  M01S00017.ns2358  +++|*                    = 1 IF UNLOAD FUNCTION.
01116  M01S00018.ns2358  +++|*                (FA) = RELATIVE FNT ADDRESS IN NFL.
01117  M01S00883.1ms     +++|*
01118  M01S00884.1ms     +++|*         EXIT   (FA) = 0.
01119  M01S00092.242l642 +++|*                TO *CDA*, IF ERROR FROM *0DF*.
01120  M01S00885.1ms     +++|*                TO *REW1*.
01121  M01S00886.1ms     +++|*
01122  M01S00887.1ms     +++|*         CALLS  CIT.
01123  M01S00888.1ms     +++|*
01124  M01S00889.1ms     +++|*         MACROS EXECUTE.
01125  M01S00890.1ms     +++|
01126  M01S00891.1ms     +++|
01127  M01S00892.1ms     +++| DRF      BSS    0           ENTRY
01128  M01S00893.1ms     +++|          STM    OVL-1       SAVE RETURN/UNLOAD FLAG FOR *0DF*
01129  M01S00894.1ms     +++|          LDD    FA

Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00895.242l642 ---|          ZJN    REW1        IF NO FNT ENTRY
01131  M01S00093.242l642 +++|          ZJN    DRF2        IF NO FNT ENTRY
01132  M01S00094.242l642 +++|
01133  M01S00095.242l642 +++|*         CHANGE TO RETURN FUNCTION IN CASE RECALL IS NECESSARY DUE TO
01134  M01S00096.242l642 +++|*         AN ERROR FROM *0DF*. THIS ALSO PREVENTS ERROR PROCESSING FROM
01135  M01S00097.242l642 +++|*         ATTEMPTING TO WRITE AN EOI ON THE FILE AFTER A *0DF* ERROR
01136  M01S00098.242l642 +++|*         ON A CLOSE/RETURN FUNCTION.
01137  M01S00099.242l642 +++|
01138  M01S00100.242l642 +++|          LDD    FC
01139  M01S00101.242l642 +++|          LPC    6077
01140  M01S00102.242l642 +++|          LMC    /CIO/RET*100
01141  M01S00103.242l642 +++|          STD    FC
01142  M01S00104.242l642 +++|          STM    ICFC
01143  M01S00896.1ms     +++|          RJM    CIT         CLEAR TRACK INTERLOCK
01144  M01S00897.1ms     +++|          EXECUTE 0DF,OVL    DROP FILE

Seq #  *Modification Id* Act 
----------------------------+
01145  M02S00898.242l642 ---|          LDN    0           CLEAR FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01146  M02S00899.242l642 ---|          STD    FA

Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00900.242l642 ---|          UJN    REW1        RESET POINTERS

Seq #  *Modification Id* Act 
----------------------------+
01148  M02S00105.ns2358  ---|          PJN    DRF1        IF NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00106.ns2358  ---|          NFA    FA,R        REREAD FST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01150  M02S00107.ns2358  ---|          ADK    FSTL

Seq #  *Modification Id* Act 
----------------------------+
01151  M02S00108.ns2358  ---|          CRD    FS

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00109.ns2358  ---|          RJM    CDA         CHECK DEVICE

Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00110.ns2358  ---|

Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00111.ns2358  ---| DRF1     STD    FA          CLEAR FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00112.ns2358  ---| DRF2     UJN    REW1        RESET POINTERS
01156  M01S00019.ns2358  +++| DRF2     PJN    REW1        IF NO ERROR
01157  M01S00020.ns2358  +++|          LDD    T5
01158  M01S00021.ns2358  +++|          STM    ERSD
01159  M01S00022.ns2358  +++|          RJM    CDA         CHECK DEVICE
01160  M01S00901.1ms     +++| REW      SPACE  4,10
01161  M01S00902.1ms     +++|**        REW - REWIND MASS STORAGE.
01162  M01S00903.1ms     +++|*
01163  M01S00904.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01164  M01S00905.1ms     +++|*
01165  M01S00906.1ms     +++|*         EXIT   (FS - FS+4) = UPDATED FST ENTRY.
01166  M01S00907.1ms     +++|*                TO *RRF*.
01167  M01S00908.1ms     +++|
01168  M01S00909.1ms     +++|
01169  M01S00910.1ms     +++| REW      BSS    0           ENTRY
01170  M01S00911.1ms     +++|          LDM    CFNB        CLEAR SYSTEM SECTOR OPERATION FLAG
01171  M01S00912.1ms     +++|          SCN    40
01172  M01S00913.1ms     +++|          STM    CFNB
01173  M01S00914.1ms     +++|          LDM    MSFF        GET MASS STORAGE FILE FLAG
01174  M01S00915.1ms     +++|          NJN    REW1        IF NOT MASS STORAGE FILE
01175  M01S00916.1ms     +++|          LDD    FS+2        CHECK CURRENT TRACK
01176  M01S00917.1ms     +++|          ZJN    REW1        IF FILE NOT USED
01177  M01S00918.1ms     +++|          LDD    FS+1        SET FIRST TRACK
01178  M01S00919.1ms     +++|          STD    FS+2
01179  M01S00920.1ms     +++|          LDN    FSMS        SET FIRST SECTOR
01180  M01S00921.1ms     +++|          STD    FS+3
01181  M01S00922.1ms     +++| REW1     LJM    RRF         RESET POINTERS
01182  M01S00923.1ms     +++|          TITLE  RESIDENT SUBROUTINES.
01183  M01S00924.1ms     +++|          SPACE  4,10
01184  M01S00925.1ms     +++|**        COMMON DECKS.
01185  M01S00926.1ms     +++|
01186  M01S00927.1ms     +++|
01187  M01S00928.1ms     +++|*CALL     COMPCTI
01188  M01S00929.1ms     +++| CAF      SPACE  4,10
01189  M01S00930.1ms     +++|**        CAF - COMPUTE ABSOLUTE FET ADDRESS.
01190  M01S00931.1ms     +++|*
01191  M01S00932.1ms     +++|*         ENTRY  (IR+3 - IR+4) = RELATIVE FET ADDRESS.
01192  M01S00933.1ms     +++|*
01193  M01S00934.1ms     +++|*         EXIT   (A) = ABSOLUTE FET ADDRESS.
01194  M01S00935.1ms     +++|
01195  M01S00936.1ms     +++|
01196  M01S00937.1ms     +++| CAF      SUBR               ENTRY/EXIT
01197  M01S00938.1ms     +++|          LDD    IR+3        CALCULATE ABSOLUTE FET ADDRESS
01198  M01S00939.1ms     +++|          LPN    37
01199  M01S00940.1ms     +++|          SHN    6
01200  M01S00941.1ms     +++|          ADD    RA
01201  M01S00942.1ms     +++|          SHN    6
01202  M01S00943.1ms     +++|          ADD    IR+4
01203  M01S00944.1ms     +++|          UJN    CAFX        RETURN
01204  M01S00020.ns2090  +++| CBD      SPACE  4,10
01205  M01S00021.ns2090  +++|**        CBD - CHECK FOR BUFFERED DEVICE.
01206  M01S00022.ns2090  +++|*
01207  M01S00023.ns2090  +++|*         ENTRY  (FS) = EQUIPMENT.
01208  M01S00024.ns2090  +++|*
01209  M01S00025.ns2090  +++|*         EXIT   (A) = 0 IF NOT BUFFERED DEVICE.
01210  M01S00026.ns2090  +++|*                (A) = 2 IF BUFFERED DEVICE.
01211  M01S00027.ns2090  +++|*                (CM - CM+4) = EST ENTRY IF EQUIPMENT ASSIGNED.
01212  M01S00028.ns2090  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01213  M02S00029.1ms17   ---|*         USES   CM - CM+4, T0 - T4.
01214  M01S00001.1ms17   +++|*         USES   CM - CM+4.
01215  M01S00037.ns22000 +++|*
01216  M01S00038.ns22000 +++|*         MACROS SFA.
01217  M01S00030.ns2090  +++|
01218  M01S00031.ns2090  +++|
01219  M01S00002.1ms17   +++| CBD1     LDN    0           INDICATE NOT BUFFERED DEVICE
01220  M01S00003.1ms17   +++|
01221  M01S00032.ns2090  +++| CBD      SUBR               ENTRY/EXIT
01222  M01S00033.ns2090  +++|          LDD    FS

Seq #  *Modification Id* Act 
----------------------------+
01223  M02S00034.242l642 ---|          LPC    777
01224  M01S00035.ns2090  +++|          ZJN    CBDX        IF NO EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
01225  M02S00036.ns22000 ---|          ADM    ESTS        CHECK FOR MASS STORAGE
01226  M01S00039.ns22000 +++|          SFA    EST         READ EST ENTRY
01227  M01S00040.ns22000 +++|          ADK    EQDE
01228  M01S00037.ns2090  +++|          CRD    CM
01229  M01S00038.ns2090  +++|          LDD    CM

Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00039.1ms17   ---|          SHN    -13

Seq #  *Modification Id* Act 
----------------------------+
01231  M02S00040.1ms17   ---|          ZJN    CBDX        IF NOT MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
01232  M02S00041.1ms17   ---|          LDD    CM+4        MST ADDRESS / 10B

Seq #  *Modification Id* Act 
----------------------------+
01233  M02S00042.1ms17   ---|          SHN    3

Seq #  *Modification Id* Act 
----------------------------+
01234  M02S00043.1ms17   ---|          ADK    DILL

Seq #  *Modification Id* Act 
----------------------------+
01235  M02S00044.1ms17   ---|          CRD    T0

Seq #  *Modification Id* Act 
----------------------------+
01236  M02S00045.1ms17   ---|          LDD    T0+3        GET BUFFERED DEVICE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01237  M02S00046.1ms17   ---|          SHN    1-12
01238  M01S00004.1ms17   +++|          SHN    21-13
01239  M01S00005.1ms17   +++|          PJN    CBD1        IF NOT MASS STORAGE
01240  M01S00006.1ms17   +++|          SHN    1-5-21+13   CHECK BUFFERED DEVICE FLAG
01241  M01S00047.ns2090  +++|          LPN    2
01242  M01S00048.ns2090  +++|          UJN    CBDX        RETURN
01243  M01S00049.ns2090  +++| FWB      SPACE  4,15
01244  M01S00050.ns2090  +++|**        FWB - FLUSH WRITE DATA FOR BUFFERED DEVICE.
01245  M01S00051.ns2090  +++|*
01246  M01S00052.ns2090  +++|*         ENTRY  (FA) = RELATIVE ADDRESS OF FNT ENTRY IN NFL.
01247  M01S00053.ns2090  +++|*                (FS - FS+4) = FST ENTRY.
01248  M01S00054.ns2090  +++|*
01249  M01S00055.ns2090  +++|*         EXIT   (A) = 0 IF NO FLUSH REQUIRED.
01250  M01S00056.ns2090  +++|*                (A) = 1 IF FLUSH IN PROGRESS.
01251  M01S00057.ns2090  +++|*
01252  M01S00058.ns2090  +++|*         USES   CM - T9, T0 - T4.
01253  M01S00059.ns2090  +++|*
01254  M01S00060.ns2090  +++|*         CALLS  CBD.
01255  M01S00061.ns2090  +++|*
01256  M01S00062.ns2090  +++|*         MACROS MONITOR, NFA.
01257  M01S00063.ns2090  +++|
01258  M01S00064.ns2090  +++|
01259  M01S00065.ns2090  +++| FWB      SUBR               ENTRY/EXIT
01260  M01S00066.ns2090  +++|          RJM    CBD         CHECK FOR BUFFERED DEVICE
01261  M01S00067.ns2090  +++|          ZJN    FWBX        IF NOT BUFFERED DEVICE
01262  M01S00068.ns2090  +++|          NFA    FA,R        GET CONTROL BUFFER INDEX FROM FNT ENTRY
01263  M01S00069.ns2090  +++|          ADN    FUTL
01264  M01S00070.ns2090  +++|          CRD    T9-4
01265  M01S00071.ns2090  +++|          LDK    BIOL        GET BUFFERED I/O TABLES FWA
01266  M01S00072.ns2090  +++|          CRD    CM
01267  M01S00073.ns2090  +++|          LDD    CM+1
01268  M01S00074.ns2090  +++|          SHN    14
01269  M01S00075.ns2090  +++|          ADD    CM+2
01270  M01S00076.ns2090  +++|          ADK    /COMSHIO/CBTP  GET CONTROL BUFFERS FWA
01271  M01S00077.ns2090  +++|          CRD    CM
01272  M01S00078.ns2090  +++|          LDD    T9
01273  M01S00079.ns2090  +++|          ZJN    FWBX        IF NO CONTROL BUFFER INDEX
01274  M01S00080.ns2090  +++|          SHN    /COMSHIO/CBTLS
01275  M01S00081.ns2090  +++|          ADD    CM+4
01276  M01S00082.ns2090  +++|          SHN    6
01277  M01S00083.ns2090  +++|          ADD    CM+3
01278  M01S00084.ns2090  +++|          SHN    14
01279  M01S00085.ns2090  +++|          ADN    /COMSHIO/LSLK
01280  M01S00086.ns2090  +++|          CRD    T0
01281  M01S00087.ns2090  +++|          SBN    -/COMSHIO/IOLK+/COMSHIO/LSLK
01282  M01S00088.ns2090  +++|          CRD    CM
01283  M01S00089.ns2090  +++|          SBN    -/COMSHIO/FSTC+/COMSHIO/IOLK
01284  M01S00090.ns2090  +++|          CRD    CM+1
01285  M01S00091.ns2090  +++|          LDD    T0
01286  M01S00092.ns2090  +++|          NJN    FWB1        IF BUFFER BEING ACCESSED
01287  M01S00093.ns2090  +++|          LDD    CM+1        COMPARE FST INFORMATION
01288  M01S00094.ns2090  +++|          LMD    FS
01289  M01S00095.ns2090  +++|          LPC    777
01290  M01S00096.ns2090  +++|          NJN    FWB1        IF BUFFER NOT FOR SAME EQUIPMENT
01291  M01S00097.ns2090  +++|          LDD    CM+2
01292  M01S00098.ns2090  +++|          ZJN    FWB3        IF NO FIRST TRACK
01293  M01S00099.ns2090  +++|          LMD    FS+1
01294  M01S00100.ns2090  +++|          ZJN    FWB3        IF SAME TRACK
01295  M01S00101.ns2090  +++| FWB1     LDN    0           INDICATE NO FLUSH REQUIRED
01296  M01S00102.ns2090  +++| FWB2     LJM    FWBX        RETURN
01297  M01S00103.ns2090  +++|
01298  M01S00104.ns2090  +++| FWB3     LDD    CM
01299  M01S00105.ns2090  +++|          SHN    21-11
01300  M01S00106.ns2090  +++|          PJN    FWB1        IF NOT WRITE DATA
01301  M01S00107.ns2090  +++|          SHN    21-13-21+11+22
01302  M01S00108.ns2090  +++|          MJN    FWB4        IF I/O INTERLOCK SET
01303  M01S00109.ns2090  +++|          LDD    FA          SET FNT RELATIVE ADDRESS
01304  M01S00110.ns2090  +++|          STD    CM+4
01305  M01S00111.ns2090  +++|          LDC    FLBS*100    REQUEST BUFFER FLUSH
01306  M01S00112.ns2090  +++|          STD    CM+1
01307  M01S00113.ns2090  +++|          MONITOR  PIOM
01308  M01S00114.ns2090  +++| FWB4     LDN    1           INDICATE FLUSH IN PROGRESS
01309  M01S00115.ns2090  +++|          UJN    FWB2        RETURN
01310  M01S00116.ns2090  +++| SCF      SPACE  4,10
01311  M01S00117.ns2090  +++|**        SCF - SET CONTROL BUFFER INDEX INTO FNT.
01312  M01S00118.ns2090  +++|*         CONTROL BUFFER INDEX IS TAKEN FROM THE PP LINK TABLE
01313  M01S00119.ns2090  +++|*         FOR BUFFERED DEVICES.
01314  M01S00120.ns2090  +++|*
01315  M01S00121.ns2090  +++|*         USES   CM - CM+5.
01316  M01S00122.ns2090  +++|*
01317  M01S00123.ns2090  +++|*         CALLS  CBD.
01318  M01S00124.ns2090  +++|*
01319  M01S00125.ns2090  +++|*         MACROS NFA.
01320  M01S00126.ns2090  +++|
01321  M01S00127.ns2090  +++|
01322  M01S00128.ns2090  +++| SCF      SUBR               ENTRY/EXIT
01323  M01S00129.ns2090  +++|          RJM    CBD         CHECK FOR BUFFERED DEVICE
01324  M01S00130.ns2090  +++|          ZJN    SCFX        IF NOT BUFFERED DEVICE
01325  M01S00131.ns2090  +++|          LDK    PPCP        GET PP COMMUNICATION BUFFER FWA
01326  M01S00132.ns2090  +++|          CRD    CM+1
01327  M01S00133.ns2090  +++|          LDK    BIOL        GET PP LINK TABLE ADDRESS
01328  M01S00134.ns2090  +++|          CRD    CM
01329  M01S00135.ns2090  +++|          LDD    CM+1
01330  M01S00136.ns2090  +++|          SHN    14
01331  M01S00137.ns2090  +++|          ADD    CM+2
01332  M01S00138.ns2090  +++|          ADN    /COMSHIO/PLTP
01333  M01S00139.ns2090  +++|          CRD    CM
01334  M01S00140.ns2090  +++|          LDD    IA          CALCULATE PP NUMBER
01335  M01S00141.ns2090  +++|          SBD    CM+1+4
01336  M01S00142.ns2090  +++|          SHN    -3
01337  M01S00143.ns2090  +++|          ADD    CM+4
01338  M01S00144.ns2090  +++|          SHN    6
01339  M01S00145.ns2090  +++|          ADD    CM+3
01340  M01S00146.ns2090  +++|          SHN    14
01341  M01S00147.ns2090  +++|          CRD    CM+1        READ CONTROL BUFFER INDEX
01342  M01S00148.ns2090  +++|          NFA    FA,R        UPDATE LINK IN FNT ENTRY
01343  M01S00149.ns2090  +++|          ADN    FUTL
01344  M01S00150.ns2090  +++|          CRD    CM
01345  M01S00151.ns2090  +++|          LDD    CM+1+4
01346  M01S00152.ns2090  +++|          STD    CM+4
01347  M01S00153.ns2090  +++|          NFA    FA,R
01348  M01S00154.ns2090  +++|          ADN    FUTL
01349  M01S00155.ns2090  +++|          CWD    CM
01350  M01S00156.ns2090  +++|          LJM    SCFX        RETURN
01351  M01S00945.1ms     +++| CIT      SPACE  4,10
01352  M01S00946.1ms     +++|**        CIT - CLEAR TRACK INTERLOCK.
01353  M01S00947.1ms     +++|*
01354  M01S00948.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01355  M01S00949.1ms     +++|*
01356  M01S00950.1ms     +++|*         USES   T5.
01357  M01S00951.1ms     +++|*
01358  M01S00952.1ms     +++|*         CALLS  CTI.
01359  M01S00953.1ms     +++|
01360  M01S00954.1ms     +++|
01361  M01S00955.1ms     +++| CIT      SUBR               ENTRY/EXIT
01362  M01S00956.1ms     +++|          LDM    RCRF        CHECK TRACK INTERLOCK FLAG
01363  M01S00957.1ms     +++|          SHN    21-12
01364  M01S00958.1ms     +++|          PJN    CITX        IF TRACK INTERLOCK NOT SET

Seq #  *Modification Id* Act 
----------------------------+
01365  M02S00959.242l642 ---|          LPC    377777      CLEAR TRACK INTERLOCK FLAG

Seq #  *Modification Id* Act 
----------------------------+
01366  M02S00960.242l642 ---|          SHN    12-21+22

Seq #  *Modification Id* Act 
----------------------------+
01367  M02S00961.242l642 ---|          STM    RCRF

Proceed to Part 1