User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ms

Deck 1MS

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1ms     +++|          IDENT  1MS,TMSO
00002  M00S00002.1ms     +++|          PERIPH
00003  M00S00003.1ms     +++|          BASE   MIXED
00004  M00S00004.1ms     +++|          SST    BFMS,FNSS,EQSS,FTSS,NSSS,FASS,DTSS,EISS,GQSS
Line S00005 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.242l642 ---| EQV$     EQU    1           DEFINE NO EQUIPMENT CHECK FOR *COMPRSS*
00006  M01S00006.242l642 ---| MSS$     EQU    1           DEFINE ERROR PROCESSING FOR *COMPRSS*
00007  M00S00007.1ms     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00008  M00S00008.1ms     +++|*COMMENT  1MS - MASS STORAGE INPUT/OUTPUT.
Line S00009 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M00S00010.1ms     +++|          TITLE  1MS - MASS STORAGE INPUT/OUTPUT.
00012  M00S00011.1ms     +++|          SPACE  4,10
00013  M00S00012.1ms     +++|***       1MS - MASS STORAGE INPUT/OUTPUT.
00014  M00S00013.1ms     +++|*
00015  M00S00014.1ms     +++|*         G. R. MANSFIELD.  72/03/16.
00016  M00S00015.1ms     +++|*         J. C. BOHNHOFF.   72/11/01.
00017  M00S00016.1ms     +++|*         J. J. EIKUM.       79/06/18.
00018  M00S00017.1ms     +++|*         J. L. LARSON.      80/08/01.
00019  M00S00018.1ms     +++|          SPACE  4,10
00020  M00S00019.1ms     +++|***              *1MS* PROCESSES INPUT/OUTPUT REQUESTS TO MASS STORAGE
Line S00020 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00020.v23l617 ---|*         FILES FOR CPU PROGRAMS.  THE *CIO* RA+1 REQUEST ISSUED BY
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00001.v23l617 +++|*         FILES FOR CPU PROGRAMS.  THE *CIO* SYSTEM REQUEST ISSUED BY
00023  M00S00021.1ms     +++|*         THE USER CPU PROGRAM IS PRE-PROCESSED BY THE *CPUCIO*
00024  M00S00022.1ms     +++|*         SECTION OF *CPUMTR*.  *1MS* PROCESSES *RETURN*, *UNLOAD*,
00025  M00S00023.1ms     +++|*         AND *EVICT* FUNCTIONS FOR ALL EQUIPMENT TYPES (CALLS
00026  M00S00024.1ms     +++|*         *0DF* TO DROP FILE).  *1MS* ALSO ISSUES ERROR MESSAGES FOR
00027  M00S00025.1ms     +++|*         ERRORS DETECTED BY *CPUCIO* ON ANY EQUIPMENT TYPE.
00028  M00S00026.1ms     +++|*         *1MS* COMPLETES NON-READ/WRITE FUNCTIONS FOR *TT* EQUIPMENT.
00029  M00S00027.1ms     +++|*         ALL OTHER FUNCTIONS PROCESSED BY *1MS* ARE ON MASS
00030  M00S00028.1ms     +++|*         STORAGE OR NULL EQUIPMENT.
00031  M00S00029.1ms     +++|          SPACE  4,10
00032  M00S00030.1ms     +++|***       CALL.
00033  M00S00031.1ms     +++|*
00034  M00S00032.1ms     +++|*
00035  M00S00033.1ms     +++|*T IR     18/ *1MS*, 1/A, 5/ CP, 18/ SKIP, 18/ FET
Figure IR

0171829 FET SKIP30353640414259 SKIP CPA *1MS*

00036  M00S00034.1ms     +++|*         A      SET IF AUTO RECALL REQUESTED.
00037  M00S00035.1ms     +++|*         CP     CONTROL POINT NUMBER.
Line S00036 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00036.ns22000 ---|*         SKIP   COUNT FOR SKIP OPERATIONS.
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00001.ns22000 +++|*         SKIP   COUNT FOR SKIP OPERATIONS, DATA PATTERN SELECTIONS
00040  M01S00002.ns22000 +++|*                FOR OVERWRITE OPERATION.
00041  M00S00037.1ms     +++|*         FET    ADDRESS OF FET.
00042  M00S00038.1ms     +++|*
00043  M00S00039.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

011121920232429ICXCLVORD303536414243474853545859ORDECF0RCRFS

00044  M00S00040.1ms     +++|*         S      SET IF *1MS* RESTARTED FROM RECALL STACK.
Line S00041 Modification History
M01 (Removed by) ns2070
Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00041.ns2070  ---|*         RF     RESTART FLAGS = 1/TIF, 1/OPF, 1/SDT, 1/CCF, 1/DTF.
Line S00001 Modification History
M01 (Added by) ns2070
Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00001.ns2070  +++|*         RF     RESTART FLAGS = 1/TIF, 1/OPF, 1/SDT, 1/BDF, 1/DTF.
00047  M00S00042.1ms     +++|*                TIF = TRACK INTERLOCK FLAG.
00048  M00S00043.1ms     +++|*                OPF = ORIGINAL POSITION FLAG FOR SKIP BACKWARD/OPEN.
00049  M00S00044.1ms     +++|*                SDT = SKIP DATA TRANSFER FLAG FOR *READSKP*.
Line S00045 Modification History
M01 (Removed by) ns2070
Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00045.ns2070  ---|*                CCF = 819 CIO FUNCTION FLAG.
Line S00002 Modification History
M01 (Added by) ns2070
Seq #  *Modification Id* Act 
----------------------------+
00051  M01S00002.ns2070  +++|*                BDF = BUFFERED DEVICE FUNCTION FLAG.
00052  M00S00046.1ms     +++|*                DTF = DATA TRANSFERRED FLAG.
00053  M00S00047.1ms     +++|*         RC     REASON CODE FOR RECALL STACK ENTRY.
00054  M00S00048.1ms     +++|*         F      IF SET, BUILD FNT ENTRY AND RESTART *CPUCIO*.
00055  M00S00049.1ms     +++|*         EC     ERROR CODE, IF NONZERO.
00056  M00S00050.1ms     +++|*         ORD    RELATIVE ADDRESS OF FNT ENTRY IN NEGATIVE FL,
00057  M00S00051.1ms     +++|*                IF NONZERO.
00058  M00S00052.1ms     +++|*         LV     LEVEL NUMBER, IF NO ERROR.
00059  M00S00053.1ms     +++|*         XC     EXTERNAL *CIO* FUNCTION CODE, IF NO ERROR.
00060  M00S00054.1ms     +++|*         IC     INTERNAL *CIO* FUNCTION CODE (AS DEFINED IN
00061  M00S00055.1ms     +++|*                *COMSCIO*), IF NO ERROR.
00062  M00S00056.1ms     +++|*
00063  M00S00057.1ms     +++|*T MB+1   12/ 0, 24/ IN, 24/ OUT
Figure MB+1

0232429 OUT IN30474859 IN 0

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

0232429 LIMIT FIRST30474853545859 FIRST FETL0R

00065  M00S00059.1ms     +++|*         R      SET IF RANDOM FILE.
00066  M00S00060.1ms     +++|*         FETL   FET LENGTH - 5.
00067  M00S00061.1ms     +++|*         FET POINTERS ARE TRANSFERRED ONLY IF *1MS* IS
00068  M00S00062.1ms     +++|*         NOT RESTARTED FROM THE RECALL STACK.
00069  M00S00063.1ms     +++|          SPACE  4,10
00070  M00S00064.1ms     +++|***       SYSTEM SECTOR PROCESSING.
00071  M00S00065.1ms     +++|*
00072  M00S00066.1ms     +++|*         *1MS* WILL READ AND WRITE THE SYSTEM SECTOR TO/FROM THE
00073  M00S00067.1ms     +++|*         CIRCULAR BUFFER BASED ON THE SYSTEM SECTOR OPERATION FLAG
00074  M00S00068.1ms     +++|*         IN THE FST (BYTE 4, BIT 13B).  TO READ THE SYSTEM SECTOR, THE
00075  M00S00069.1ms     +++|*         FORMAT OF THE FST SHOULD BE
00076  M00S00070.1ms     +++|*
Line S00071 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00077  M01S00071.ns22000 ---|*T        6/ ,6/ EQ,12/ FIRST TRACK,12/ FIRST TRACK,12/ 0,12/ 4005
Figure

01112232429 4005 0 FIRST TRACK3035364748535459 FIRST TRACK FIRST TRACK EQ


Line S00003 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00003.ns22000 +++|*T FST    12/ EQ,12/ FIRST TRACK,12/ FIRST TRACK,12/ 0,12/4005
Figure FST

011122324294005 0 FIRST TRACK303536474859 FIRST TRACK FIRST TRACK EQ

00079  M00S00072.1ms     +++|*
00080  M00S00073.1ms     +++|*         TO WRITE THE SYSTEM SECTOR, THE FORMAT OF THE FST SHOULD BE
00081  M00S00074.1ms     +++|*
00082  M00S00075.1ms     +++|*T        6/ ,6/ EQ,12/ FIRST TRACK,12/ 0,12/ 0,12/ 4005
Figure

01112232429 4005 0 03035364748535459 0 FIRST TRACK EQ

00083  M00S00076.1ms     +++|*         THE EQUIPMENT AND FIRST TRACK ARE OPTIONAL AND MAY BE 0 IN
00084  M00S00077.1ms     +++|*         WHICH CASE *1MS* WILL ASSIGN A MASS STORAGE DEVICE.
00085  M00S00078.1ms     +++|*
00086  M00S00079.1ms     +++|*         SYSTEM SECTOR OPERATIONS ARE ONLY SUPPORTED FOR CONTROL WORD
Line S00080 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00080.v23l617 ---|*         READS AND WRITES AND *ILLEGAL I/O REQUEST* WILL BE ISSUED
Line S00002 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00002.v23l617 +++|*         READS AND WRITES AND *INCORRECT I/O REQUEST* WILL BE ISSUED
00089  M00S00081.1ms     +++|*         IF A NON-CONTROL WORD READ OR WRITE IS ISSUED AND THE SYSTEM
00090  M00S00082.1ms     +++|*         SECTOR OPERATION BIT IS SET IN THE FST.  THE SYSTEM SECTOR
00091  M00S00083.1ms     +++|*         OPERATION BIT IS CLEARED BY *1MS* AFTER THE CONTROL WORD
00092  M00S00084.1ms     +++|*         READ OR WRITE.
00093  M00S00085.1ms     +++|          SPACE  4,10
00094  M00S00086.1ms     +++|***       DAYFILE MESSAGES.
00095  M00S00087.1ms     +++|*
00096  M00S00088.1ms     +++|*
Line S00004 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00004.1ms16   ---|*         *ACCESS LEVEL NOT VALID FOR FILE FFF AT NNN.*
00098  M02S00005.1ms16   ---|*                THE ACCESS LEVEL OF THE JOB IS NOT VALID FOR
00099  M02S00006.1ms16   ---|*                THE DEVICE ON WHICH FILE FFF RESIDES.
00100  M02S00007.1ms16   ---|*
00101  M02S00008.1ms16   ---|*         *ACCESS LEVEL NOT VALID FOR JOB, FFF AT NNN.*
00102  M02S00009.1ms16   ---|*                THE ACCESS LEVEL SPECIFIED FOR FILE FFF
00103  M02S00010.1ms16   ---|*                IS NOT WITHIN THE JOB VALIDATIONS.
00104  M02S00011.1ms16   ---|*
00105  M00S00089.1ms     +++|*         *ASSIGNED FOR DIAGNOSTICS, FILE FFF AT NNN.*
00106  M00S00090.1ms     +++|*                A *MALET* USER ATTEMPTED A *CIO* OPERATION OTHER
00107  M00S00091.1ms     +++|*                THAN RETURN/UNLOAD ON A PREASSIGNED TAPE WITH
00108  M00S00092.1ms     +++|*                FILE NAME FFF AND FET ADDRESS NNN.
00109  M00S00093.1ms     +++|*
00110  M00S00094.1ms     +++|*         *BUFFER ARGUMENT ERROR ON FFF AT NNN.*
00111  M00S00095.1ms     +++|*                A BUFFER POINTER DOES NOT CONFORM TO THESE CONSTRAINTS
00112  M00S00096.1ms     +++|*                            FIRST .LE. IN
00113  M00S00097.1ms     +++|*                            FIRST .LE. OUT
00114  M00S00098.1ms     +++|*                            OUT .LT. LIMIT
00115  M00S00099.1ms     +++|*                            IN .LT. LIMIT
00116  M00S00100.1ms     +++|*                            LIMIT .LE. FL
00117  M00S00101.1ms     +++|*
00118  M00S00102.1ms     +++|*         *BUFFER CONTROL WORD ERROR ON FFF AT NNN.*
00119  M00S00103.1ms     +++|*                BLOCK LENGTH AS SPECIFIED DURING A *WRITECW* OPERATION
00120  M00S00104.1ms     +++|*                IS GREATER THAN ALLOWABLE PRU SIZE FOR DEVICE.
00121  M00S00105.1ms     +++|*
00122  M00S00106.1ms     +++|*         *DEVICE ERROR ON FILE FFF AT NNN.*
00123  M00S00107.1ms     +++|*                AN UNRECOVERED ERROR OCCURRED ON THE MASS STORAGE
00124  M00S00108.1ms     +++|*                DEVICE CONTAINING THE FILE.
00125  M00S00109.1ms     +++|*
00126  M00S00110.1ms     +++|*         *ERROR FLAG TERMINATION, FILE FFF AT NNN.*
00127  M00S00111.1ms     +++|*                A SPECIAL ERROR FLAG WAS SET DURING PROCESSING OF THE
00128  M00S00112.1ms     +++|*                OPERATION AND THE OPERATION WAS NOT COMPLETED.
00129  M00S00113.1ms     +++|*
00130  M00S00114.1ms     +++|*         *FET ADDRESS OUT OF RANGE AT NNN.*
00131  M00S00115.1ms     +++|*                FET ADDRESS .LE. 1 OR FET EXTENDS PAST FL.
00132  M00S00116.1ms     +++|*
00133  M00S00117.1ms     +++|*         *FET PARAMETER ERROR ON FFF AT NNN.*
Line S00118 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00134  M01S00118.v23l617 ---|*                ONE OF THE PARAMETERS IN THE FET IS ILLEGAL (E.G. THE
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00135  M01S00003.v23l617 +++|*                ONE OF THE PARAMETERS IN THE FET IS INCORRECT (IE. THE
00136  M00S00119.1ms     +++|*                LIST ADDRESS IS .GT. THE JOBS FL) OR THE  FET IS NOT
00137  M00S00120.1ms     +++|*                LONG ENOUGH FOR THE PARAMETER.
00138  M00S00121.1ms     +++|*
Line S00001 Modification History
M01 (Added by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00122.1ms     +++|*         *FILE TOO LONG, FILE FFF AT NNN.* = DIRECT ACCESS PERMANENT
00144  M00S00123.1ms     +++|*                FILE FFF HAS EXCEEDED THE DIRECT ACCESS FILE SIZE
00145  M00S00124.1ms     +++|*                LIMIT.
00146  M00S00125.1ms     +++|*
Line S00126 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00147  M01S00126.v23l617 ---|*         *ILLEGAL EQUIPMENT ON FILE FFF AT NNN.*
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00148  M01S00004.v23l617 +++|*         *INCORRECT EQUIPMENT ON FILE FFF AT NNN.*
00149  M00S00127.1ms     +++|*                THE EQUIPMENT IN THE FST ENTRY FOR THE FILE IS NOT
00150  M00S00128.1ms     +++|*                SUPPORTED FOR *CIO* FUNCTIONS.
00151  M00S00129.1ms     +++|*
Line S00130 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00152  M01S00130.v23l617 ---|*         *ILLEGAL FILE NAME FFF AT NNN.*
Line S00005 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00153  M01S00005.v23l617 +++|*         *INCORRECT FILE NAME FFF AT NNN.*
00154  M00S00131.1ms     +++|*                THE FILE NAME DOES NOT CONFORM TO ESTABLISHED RULES.
00155  M00S00132.1ms     +++|*
Line S00133 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00133.v23l617 ---|*         *ILLEGAL I/O REQUEST ON FILE FFF AT NNN.*
Line S00006 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00157  M01S00006.v23l617 +++|*         *INCORRECT I/O REQUEST ON FILE FFF AT NNN.*
Line S00134 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00134.ns22000 ---|*                THE FUNCTION CODE IS UNRECOGNIZED.
Line S00012 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00135.1ms     +++|*
Line S00136 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00136.v23l617 ---|*         *ILLEGAL MODIFICATION OF FFF AT NNN.*
Line S00007 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00163  M01S00007.v23l617 +++|*         *INCORRECT MODIFICATION OF FFF AT NNN.*
00164  M00S00137.1ms     +++|*                EITHER THE FUNCTION WOULD RESULT IN SHORTENING A
00165  M00S00138.1ms     +++|*                MODIFY-ONLY FILE OR THE FILE HAS MODIFY LOCK-OUT.
00166  M00S00139.1ms     +++|*
00167  M00S00140.1ms     +++|*         *INDEX ADDRESS OUT OF RANGE FOR FFF AT NNN.*
00168  M00S00141.1ms     +++|*                RANDOM ADDRESS RETURN ADDRESS IS .GT. FL.
00169  M00S00142.1ms     +++|*
00170  M00S00143.1ms     +++|*         *INDEX TOO LARGE ON OPEN, FILE FFF AT NNN.*
00171  M00S00144.1ms     +++|*                FOR OPEN FUNCTION, THE RANDOM INDEX LENGTH EXCEEDED
00172  M00S00145.1ms     +++|*                THE INDEX BUFFER SIZE.
00173  M00S00146.1ms     +++|*
00174  M00S00147.1ms     +++|*         *I/O ON EXECUTE-ONLY FILE FFF AT NNN.*
00175  M00S00148.1ms     +++|*                FUNCTION IS NOT ALLOWED BY JOB ON EXECUTE-ONLY FILE.
00176  M00S00149.1ms     +++|*
00177  M00S00150.1ms     +++|*         *I/O SEQUENCE ERROR ON FILE FFF AT NNN.*
00178  M00S00151.1ms     +++|*                MULTIPLE CONCURRENT FUNCTIONS WERE ATTEMPTED ON A
00179  M00S00152.1ms     +++|*                SINGLE FILE.
Line S00005 Modification History
M01 (Added by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00153.1ms     +++|*
00185  M00S00154.1ms     +++|*         *M.T. NOT AVAILABLE ON FILE FFF AT NNN.*
00186  M00S00155.1ms     +++|*                THE MAGNETIC TAPE EXECUTIVE IS NOT EXECUTING.
00187  M00S00156.1ms     +++|*
00188  M00S00157.1ms     +++|*         *PRU LIMIT, FILE FFF AT NNN.*
00189  M00S00158.1ms     +++|*                WRITING ON FILE FFF WOULD EXCEED THE JOBS PRU LIMIT.
00190  M00S00159.1ms     +++|*
00191  M00S00160.1ms     +++|*         *RANDOM ADDRESS NOT ON FILE FFF AT NNN.*
00192  M00S00161.1ms     +++|*                THE RANDOM ADDRESS EXCEEDS THE NUMBER OF ADDRESSES ON
00193  M00S00162.1ms     +++|*                THE FILE.
00194  M00S00163.1ms     +++|*
00195  M00S00164.1ms     +++|*         *REQUEST UNDEFINED ON DEVICE, FFF AT NNN.*
00196  M00S00165.1ms     +++|*                THE FUNCTION CANNOT BE PERFORMED ON THE DEVICE UPON
00197  M00S00166.1ms     +++|*                WHICH THE FILE RESIDES.
Line S00014 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00198  M01S00014.ns22000 +++|*
Line S00167 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00199  M01S00167.ns22000 ---|*
00200  M00S00168.1ms     +++|*         *UNNECESSARY CIO FCT. 000 ON FFF AT NNN.*
00201  M00S00169.1ms     +++|*                THE SPECIFIED *CIO* READ OR WRITE FUNCTION WAS
00202  M00S00170.1ms     +++|*                UNNECESSARY, SINCE THE USER I/O BUFFER WAS ALREADY
00203  M00S00171.1ms     +++|*                FULL (FOR READ) OR EMPTY (FOR WRITE) AND NO DATA
00204  M00S00172.1ms     +++|*                COULD BE TRANSFERRED FOR THIS *CIO* CALL.
00205  M00S00173.1ms     +++|*
00206  M00S00174.1ms     +++|*         *WRITE ON READ-ONLY FILE FFF AT NNN.*
00207  M00S00175.1ms     +++|*                A WRITE WAS ATTEMPTED ON A FILE WITH WRITE LOCK-OUT.
Line S00015 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00176.1ms     +++|*
00214  M00S00177.1ms     +++|*         IN THE ABOVE MESSAGES, FFF REPRESENTS THE FILE NAME AS GIVEN
00215  M00S00178.1ms     +++|*         IN THE FET AND NNN REPRESENTS THE FET ADDRESS.
00216  M00S00179.1ms     +++|          SPACE  4,10
00217  M00S00180.1ms     +++|***       OPERATOR MESSAGES.
00218  M00S00181.1ms     +++|*
00219  M00S00182.1ms     +++|*
Line S00183 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00220  M01S00183.ns22000 ---|*         *TRACK LIMIT.  EQXX*
00221  M01S00184.ns22000 ---|*                CIO IS WAITING FOR MASS STORAGE SPACE ON EQUIPMENT
00222  M01S00185.ns22000 ---|*                ORDINAL XX.
00223  M01S00186.ns22000 ---|*
00224  M01S00187.ns22000 ---|*         *TRACK LIMIT.*
00225  M01S00188.ns22000 ---|*                CIO IS WAITING FOR MASS STORAGE SPACE ON ANY MASS
00226  M01S00189.ns22000 ---|*                STORAGE DEVICE AVAILABLE FOR TEMPORARY FILES.
Line S00020 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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.
Line S00190 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00232  M01S00190.ns22000 ---|          SPACE  4,10
Line S00025 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00191.1ms     +++|***       HANG CONDITIONS.
00239  M00S00192.1ms     +++|*
00240  M00S00193.1ms     +++|*         *1MS* WILL HANG ISSUING THE *MXFM* MONITOR FUNCTION
00241  M00S00194.1ms     +++|*         IN THE FOLLOWING CASES -
00242  M00S00195.1ms     +++|*
00243  M00S00196.1ms     +++|*         1.  *WMS* TRIES TO WRITE A DATA SECTOR ON THE LAST SECTOR
00244  M00S00197.1ms     +++|*             OF A TRACK WITH NO NEXT TRACK RESERVED.
00245  M00S00198.1ms     +++|*         2.  *WMS* TRIES TO WRITE AN EOF SECTOR ON THE LAST SECTOR
00246  M00S00199.1ms     +++|*             OF A TRACK WITH NO NEXT TRACK RESERVED.
00247  M00S00200.1ms     +++|*         3.  *PMS* CALLED TO PROCESS FUNCTION OTHER THAN
00248  M00S00201.1ms     +++|*             SKIP, OPEN, OR RANDOM READ/WRITE.
00249  M00S00202.1ms     +++|*         4.  HANG ERROR CODE WAS PASSED TO *1MS* FROM *CPUCIO*
00250  M00S00203.1ms     +++|*             (DEFINED IN *COMSCIO*).
00251  M00S00204.1ms     +++|*         5.  *0DQ* WAS UNABLE TO LOCATE GLOBAL ENTRY ASSOCIATED
00252  M00S00205.1ms     +++|*             WITH QUEUED FILE FOR *EVICT* PROCESSING.
00253  M00S00206.1ms     +++|*         6.  ERROR CODE PASSED IN MESSAGE BUFFER PARAMETER WORD IS
Line S00207 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00207.v23l617 ---|*             INVALID.
Line S00008 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00255  M01S00008.v23l617 +++|*             INCORRECT.
00256  M00S00208.1ms     +++|          SPACE  4,10
00257  M00S00209.1ms     +++|**        ROUTINES USED.
00258  M00S00210.1ms     +++|*
00259  M00S00211.1ms     +++|*
00260  M00S00212.1ms     +++|*         0BF - BEGIN FILE.
00261  M00S00213.1ms     +++|*         0DF - DROP FILE.
00262  M00S00214.1ms     +++|          SPACE  4,10
00263  M00S00215.1ms     +++|**        SYSTEM SECTOR BUFFER ASSIGNMENTS.
00264  M00S00216.1ms     +++|
00265  M00S00217.1ms     +++|
00266  M00S00218.1ms     +++| BFMS     EQU    6776-2*5    ALLOW FOR CONTROL WORDS
00267  M00S00219.1ms     +++|          SPACE  4,10
00268  M00S00220.1ms     +++|**        COMMON DECKS.
00269  M00S00221.1ms     +++|
00270  M00S00222.1ms     +++|
00271  M00S00223.1ms     +++|*CALL     COMPMAC
00272  M00S00224.1ms     +++|          LIST   X
00273  M00S00225.1ms     +++|*CALL     COMSCIO
00274  M00S00226.1ms     +++|          LIST   *
00275  M00S00227.1ms     +++|*CALL     COMSCPS
00276  M00S00228.1ms     +++|*CALL     COMSEVT
Line S00030 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00277  M01S00030.ns22000 +++|*CALL     COMSMLS
Line S00001 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00278  M01S00001.ns2090  +++|          QUAL   COMSHIO
00279  M01S00002.ns2090  +++|*CALL     COMSHIO
00280  M01S00003.ns2090  +++|          QUAL   *
00281  M00S00229.1ms     +++|*CALL     COMSMSP
00282  M00S00230.1ms     +++|          QUAL   PFM
00283  M00S00231.1ms     +++|*CALL     COMSPFM
00284  M00S00232.1ms     +++|          QUAL   *
00285  M00S00233.1ms     +++|*CALL     COMSPIM
Line S00001 Modification History
M01 (Added by) 1ms4
Seq #  *Modification Id* Act 
----------------------------+
00286  M01S00001.1ms4    +++|*CALL     COMSSCD
00287  M00S00234.1ms     +++|*CALL     COMSSRU
Line S00031 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00288  M01S00031.ns22000 +++|*CALL     COMSSSD
00289  M00S00235.1ms     +++|*CALL     COMSSSE
00290  M00S00236.1ms     +++|*CALL     COMSWEI
00291  M00S00237.1ms     +++|*CALL     COMSZOL
00292  M00S00238.1ms     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00293  M00S00239.1ms     +++|          SPACE  4,10
00294  M00S00240.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
00295  M00S00241.1ms     +++|
00296  M00S00242.1ms     +++|
Line S00243 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00297  M01S00243.ns2090  ---|*                16          USED BY OVERLAYS (DESTROYED BY OVL LOAD)
00298  M01S00244.ns2090  ---|*                17          USED BY OVERLAYS (DESTROYED BY OVL LOAD)
Line S00004 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00299  M01S00004.ns2090  +++| T8       EQU    16          TEMPORARY (DESTROYED BY OVL LOAD)
00300  M01S00005.ns2090  +++| T9       EQU    17          TEMPORARY (DESTROYED BY OVL LOAD)
00301  M00S00245.1ms     +++| EN       EQU    17          ERROR NUMBER
00302  M00S00246.1ms     +++|
00303  M00S00247.1ms     +++|*         THE FOLLOWING DIRECT CELLS (MB - MB2) ARE READ IN BY *PPR*
00304  M00S00248.1ms     +++|*         FROM *MB* THROUGH *MB*+2 IMMEDIATELY AFTER PP ASSIGNMENT
00305  M00S00249.1ms     +++|*         SO THAT THE INFORMATION IS NOT DESTROYED BY LOADING THE PP.
00306  M00S00250.1ms     +++|
00307  M00S00251.1ms     +++| MB       EQU    20 - 24     MESSAGE BUFFER PARAMETERS
00308  M00S00252.1ms     +++|          ERRNZ  MB-MP       ADDRESSES MUST MATCH
00309  M00S00253.1ms     +++| MB1      EQU    25 - 31     MB + 1 PARAMETERS
00310  M00S00254.1ms     +++|          ERRNZ  MB1-MP-5    ADDRESS MUST BE CONSECUTIVE
00311  M00S00255.1ms     +++| MB2      EQU    32 - 36     MB + 2 PARAMETERS
00312  M00S00256.1ms     +++|          ERRNZ  MB2-MP-10D  ADDRESS MUST BE CONSECUTIVE
00313  M00S00257.1ms     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00314  M00S00258.1ms     +++| PC       EQU    25          PHYSICAL RECORD COUNT
00315  M00S00259.1ms     +++| RC       EQU    26          *DRCM* REQUEST CODE
00316  M00S00260.1ms     +++| FO       EQU    27          FET OPTIONS
00317  M00S00261.1ms     +++| DP       EQU    30 - 34     DATA POINTER (5 LOCATIONS)
00318  M00S00262.1ms     +++|*                35          USED BY OVERLAYS
00319  M00S00263.1ms     +++|*                36          USED BY OVERLAYS
00320  M00S00264.1ms     +++|*                37          USED BY OVERLAYS
00321  M00S00265.1ms     +++| BS       EQU    40 - 44     BUFFER STATUS (5 LOCATIONS)
00322  M00S00266.1ms     +++| FN       EQU    BS          FILE NAME (5 LOCATIONS)
00323  M00S00267.1ms     +++| FC       EQU    45          FUNCTION CODE
00324  M00S00268.1ms     +++|*                46          USED BY OVERLAYS
00325  M00S00269.1ms     +++|*                47          USED BY OVERLAYS
00326  M00S00270.1ms     +++| FA       EQU    57          FNT ENTRY RELATIVE ADDRESS IN NFL
00327  M00S00271.1ms     +++| FT       EQU    60 - 61     FIRST ADDRESS OF BUFFER (2 LOCATIONS)
00328  M00S00272.1ms     +++| LM       EQU    62 - 63     LIMIT ADDRESS OF BUFFER (2 LOCATIONS)
00329  M00S00273.1ms     +++| IN       EQU    64 - 65     NEXT INPUT ADDRESS (2 LOCATIONS)
00330  M00S00274.1ms     +++| OT       EQU    66 - 67     NEXT OUTPUT ADDRESS (2 LOCATIONS)
00331  M00S00275.1ms     +++|          TITLE  MACRO DEFINITIONS.
00332  M00S00276.1ms     +++|          SPACE  4,10
00333  M00S00277.1ms     +++|**        MACRO DEFINITIONS.
00334  M00S00278.1ms     +++| CFET     SPACE  4,10
00335  M00S00279.1ms     +++|**        CFET - COMPUTE FET ADDRESS.
00336  M00S00280.1ms     +++|*         CFET   N
00337  M00S00281.1ms     +++|*
00338  M00S00282.1ms     +++|*         ENTRY  *N* = FET WORD NUMBER.
00339  M00S00283.1ms     +++|*
00340  M00S00284.1ms     +++|*         COMPUTES ABSOLUTE FET ADDRESS USING (IR+3 - IR+4).
00341  M00S00285.1ms     +++|*
00342  M00S00286.1ms     +++|*         CALLS  CAF.
00343  M00S00287.1ms     +++|
00344  M00S00288.1ms     +++|
00345  M00S00289.1ms     +++| CFET     MACRO  W
00346  M00S00290.1ms     +++|          RJM    CAF
00347  M00S00291.1ms     +++|          IFC    NE,$W$$,1
00348  M00S00292.1ms     +++|          ADN    W
00349  M00S00293.1ms     +++|          ENDM
00350  M00S00294.1ms     +++| ERROR    SPACE  4,10
00351  M00S00295.1ms     +++|**        ERROR - PROCESS ERROR.
00352  M00S00296.1ms     +++|*
00353  M00S00297.1ms     +++|*         ERROR  EC
00354  M00S00298.1ms     +++|*
00355  M00S00299.1ms     +++|*         *EC* = ERROR CODE.
00356  M00S00300.1ms     +++|
00357  M00S00301.1ms     +++|
00358  M00S00302.1ms     +++| ERROR    MACRO  EC
Line S00001 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00303.1ms     +++|          LDN    /CIOERR/EC
00367  M00S00304.1ms     +++|          LJM    ERR
00368  M00S00305.1ms     +++|          ENDM
00369  M00S00306.1ms     +++| MSG      SPACE  4,10
00370  M00S00307.1ms     +++|**        MSG - DEFINE ERROR MESSAGE.
00371  M00S00308.1ms     +++|*
00372  M00S00309.1ms     +++|*ERR      MSG    (TEXT),EF,CODE
00373  M00S00310.1ms     +++|*
00374  M00S00311.1ms     +++|*         ENTRY  *ERR* = ERROR CODE.
00375  M00S00312.1ms     +++|*                *TEXT* = ERROR MESSAGE.
00376  M00S00313.1ms     +++|*                *EF* = ERROR FLAG.
00377  M00S00314.1ms     +++|*                *CODE* = OPTION CODE.
00378  M00S00315.1ms     +++|
00379  M00S00316.1ms     +++|
00380  M00S00317.1ms     +++|          MACRO  MSG,ERR,TEXT,EF,CODE
00381  M00S00318.1ms     +++|          LOCAL  A
00382  M00S00319.1ms     +++|          ORG    TEPO+/CIOERR/ERR
00383  M00S00320.1ms     +++| .A       IFC    NE,$EF_CODE_TEXT$$
00384  M00S00321.1ms     +++|          LOC    /CIOERR/ERR
00385  M00S00322.1ms     +++|          VFD    6/EF,6/CODE
00386  M00S00323.1ms     +++|          LOC    *O
00387  M00S00324.1ms     +++|          ORG    TMSG+/CIOERR/ERR
00388  M00S00325.1ms     +++| .B       IFC    NE,$TEXT$$
00389  M00S00326.1ms     +++|          CON    =Z*_TEXT_*
00390  M00S00327.1ms     +++| .B       ELSE
00391  M00S00328.1ms     +++|          CON    0
00392  M00S00329.1ms     +++| .B       ENDIF
00393  M00S00330.1ms     +++| A        MICRO  1,,$TEXT$
00394  M00S00331.1ms     +++| A        MICCNT A
Line S00332 Modification History
M01 (Removed by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
00395  M01S00332.1ms16   ---|          ERRNG  32D-A
Line S00009 Modification History
M01 (Added by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
00396  M01S00009.1ms16   +++|          ERRNG  31D-A
00397  M00S00333.1ms     +++| .A       ENDIF
00398  M00S00334.1ms     +++|          ENDM
00399  M00S00335.1ms     +++| OVERLAY  SPACE  4,10
00400  M00S00336.1ms     +++|**        OVERLAY - DEFINE OVERLAY.
00401  M00S00337.1ms     +++|*
00402  M00S00338.1ms     +++|*
00403  M00S00339.1ms     +++|*NAME     OVERLAY (TITLE),ORG
00404  M00S00340.1ms     +++|*
00405  M00S00341.1ms     +++|*         ENTRY  *NAME* = OVERLAY NAME.
00406  M00S00342.1ms     +++|*                *TITLE* = OVERLAY TITLE.
00407  M00S00343.1ms     +++|*                *ORG* = ORIGIN ADDRESS.
00408  M00S00344.1ms     +++|
00409  M00S00345.1ms     +++|
00410  M00S00346.1ms     +++|          NOREF  .N
00411  M00S00347.1ms     +++| .N       SET    0           OVERLAY NUMBER
00412  M00S00348.1ms     +++|          PURGMAC OVERLAY
00413  M00S00349.1ms     +++|
00414  M00S00350.1ms     +++|          MACRO  OVERLAY,NAME,TEXT,ORIG
00415  M00S00351.1ms     +++|          QUAL
00416  M00S00352.1ms     +++| .1       SET    .N/1R4
00417  M00S00353.1ms     +++| .1       MICRO  .1+1,1 M
00418  M00S00354.1ms     +++| .N       MICRO  .N-.1*1R4+1,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ01234
00419  M00S00355.1ms     +++| .N       MICRO  1,, ".1"".N"
00420  M00S00356.1ms     +++| NAME     EQU    2R".N"
00421  M00S00357.1ms     +++| .N       SET    .N+1
00422  M00S00358.1ms     +++|          TTL    1MS/4".N" - TEXT
00423  M00S00359.1ms     +++|          TITLE
00424  M00S00360.1ms     +++|          USE
00425  M00S00361.1ms     +++|          QUAL   NAME
00426  M00S00362.1ms     +++|          IDENT  4".N",ORIG  TEXT
00427  M00S00363.1ms     +++|          ORG    ORIG
00428  M00S00364.1ms     +++|*COMMENT  1MS - TEXT
Line S00365 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00429  M01S00365.281l803 ---|          COMMENT COPYRIGHT  CONTROL DATA CORPORATION. 1980.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00430  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00431  M00S00366.1ms     +++|          ENDM
00432  M00S00367.1ms     +++|          TITLE  MAIN PROGRAM.
00433  M00S00368.1ms     +++|          ORG    PPFW
00434  M00S00369.1ms     +++|
00435  M00S00370.1ms     +++| TMSO     LJM    PRS         PRESET PROGRAM
00436  M00S00371.1ms     +++|
00437  M00S00372.1ms     +++|*         GLOBAL DATA.
00438  M00S00373.1ms     +++|
00439  M00S00374.1ms     +++| FACF     EQU    *-2         FILE ACCESS FLAGS
00440  M00S00375.1ms     +++| FETL     EQU    *-1         FET LENGTH
00441  M00S00376.1ms     +++| PMFF     CON    1           PERMANENT FILE FLAG
00442  M00S00377.1ms     +++| MSFF     CON    0           MASS STORAGE FILE FLAG
Line S00032 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00378.1ms     +++|
00447  M00S00379.1ms     +++|*         THE FOLLOWING 5 CONSECUTIVE LOCATIONS SAVE *1MS*
00448  M00S00380.1ms     +++|*         MESSAGE BUFFER PARAMETERS.
00449  M00S00381.1ms     +++|
00450  M00S00382.1ms     +++| RCRF     CON    0           REASON CODE AND RESTART FLAGS
00451  M00S00383.1ms     +++| ERCF     CON    0           ERROR CODE AND FUNCTION FLAGS
00452  M00S00384.1ms     +++| FNTA     CON    0           FNT ENTRY RELATIVE ADDRESS
00453  M00S00385.1ms     +++| LVXC     CON    0           LEVEL NUMBER AND EXTERNAL FUNCTION CODE
00454  M00S00386.1ms     +++| ICFC     CON    0           INTERNAL *CIO* FUNCTION CODE
00455  M00S00387.1ms     +++|
00456  M00S00388.1ms     +++|          ERRNZ  /CIO/RDF    CODE DEPENDS ON INTERNAL READ FUNCTION
00457  M00S00389.1ms     +++|          ERRNZ  /CIO/WTF-1  CODE DEPENDS ON INTERNAL WRITE FUNCTION
00458  M00S00390.1ms     +++| TMS      SPACE  4,10
00459  M00S00391.1ms     +++|**        TMS - TRANSFER MASS STORAGE DATA.
00460  M00S00392.1ms     +++|*
00461  M00S00393.1ms     +++|*         EXIT   TO *MSP*.
00462  M00S00394.1ms     +++|*
00463  M00S00395.1ms     +++|*         CALLS  EXR.
00464  M00S00396.1ms     +++|
00465  M00S00397.1ms     +++|
00466  M00S00398.1ms     +++| TMS      BSS    0           ENTRY
Line S00399 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00467  M01S00399.ns2090  ---| TMSA     LDN    0
00468  M01S00400.ns2090  ---|*         LDN    1           (RANDOM READ/WRITE)
Line S00006 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00469  M01S00006.ns2090  +++|          LDC    0
00470  M01S00007.ns2090  +++|*         LDC    1           (RANDOM READ/WRITE)
00471  M01S00008.ns2090  +++| TMSA     EQU    *-1
00472  M00S00401.1ms     +++|          ZJN    TMS1        IF NOT RANDOM READ/WRITE
00473  M00S00402.1ms     +++|          LDC    1L4+PMS     LOAD POSITION OVERLAY
00474  M00S00403.1ms     +++|          RJM    EXR
00475  M00S00404.1ms     +++| TMS1     LDC    1L4+PMS     LOAD POSITION OVERLAY
00476  M00S00405.1ms     +++|*         LDC    1L4+RMS     (READ)
00477  M00S00406.1ms     +++|*         LDC    1L4+WMS     (WRITE)
00478  M00S00407.1ms     +++|*         LDC    1L4+CMS     (CLOSE)
Line S00035 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00479  M01S00035.ns22000 +++|*         LDC    1L4+OMS     (OVERWRITE)
00480  M00S00408.1ms     +++| TMSB     EQU    *-1
00481  M00S00409.1ms     +++|          RJM    EXR         EXECUTE FUNCTION PROCESSOR
00482  M00S00410.1ms     +++|*         UJN    MSP         COMPLETE MASS STORAGE PROCESSING
00483  M00S00411.1ms     +++|          TITLE  TERMINATION.
00484  M00S00412.1ms     +++|**        TERMINATION PROCESSORS.
00485  M00S00413.1ms     +++| MSP      SPACE  4,15
00486  M00S00414.1ms     +++|**        MSP - COMPLETE MASS STORAGE PROCESSING.
00487  M00S00415.1ms     +++|*
00488  M00S00416.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
00489  M00S00417.1ms     +++|*                (FO) = FET OPTIONS.
00490  M00S00418.1ms     +++|*                (PC) = SECTOR COUNT FOR RANDOM INDEX UPDATE.
00491  M00S00419.1ms     +++|*                (BS - BS+4) = (FET+0).
00492  M00S00420.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00493  M00S00421.1ms     +++|*
Line S00422 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00494  M01S00422.242l642 ---|*         EXIT   (FS+4) = FST STATUS UPDATED FOR WRITE OPERATION.
Line S00008 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00008.242l642 +++|*         EXIT   RANDOM ADDRESS IN FET+6 UPDATED.
00496  M00S00423.1ms     +++|*                TO *COC*.
00497  M00S00424.1ms     +++|*
00498  M00S00425.1ms     +++|*         USES   CM - CM+4.
00499  M00S00426.1ms     +++|*
00500  M00S00427.1ms     +++|*         MACROS CFET.
00501  M00S00428.1ms     +++|
00502  M00S00429.1ms     +++|
00503  M00S00430.1ms     +++| MSP      BSS    0           ENTRY
00504  M00S00431.1ms     +++|          LDD    FC          CHECK FUNCTION
Line S00432 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00505  M01S00432.242l642 ---|          SHN    -6
00506  M01S00433.242l642 ---|          LPN    17
00507  M01S00434.242l642 ---|          LMN    /CIO/WTF
00508  M01S00435.242l642 ---|          NJN    MSP2        IF NOT WRITE
00509  M01S00436.242l642 ---|          LDM    CFNB        SET FILE MODIFIED
00510  M01S00437.242l642 ---|          LPN    74
00511  M01S00438.242l642 ---|*         LPN    76          (REWRITE)
00512  M01S00439.242l642 ---| MSPA     EQU    *-1
00513  M01S00440.242l642 ---|          LMN    03
00514  M01S00441.242l642 ---|*         LMN    01          (REWRITE)
00515  M01S00442.242l642 ---| MSPB     EQU    *-1
00516  M01S00443.242l642 ---|          STM    CFNB
00517  M01S00444.242l642 ---|          LDN    2           SET WRITE MODE
00518  M01S00445.242l642 ---|          STD    FS+4
00519  M01S00446.242l642 ---|          LDC    0           WORD COUNT - 500
00520  M01S00447.242l642 ---| MSPC     EQU    *-1
00521  M01S00448.242l642 ---|          NJN    MSP1        IF EOR/EOF ON *WRITECW*
00522  M01S00449.242l642 ---|          LDD    BS+4        CHECK REQUEST
00523  M01S00450.242l642 ---|          SHN    21-4
00524  M01S00451.242l642 ---|          PJN    MSP2        IF NOT EOR/EOF
00525  M01S00452.242l642 ---| MSP1     LDN    4           SET OPERATION COMPLETE
00526  M01S00453.242l642 ---|          RAD    FS+4
00527  M01S00454.242l642 ---| MSP2     LDD    FC
00528  M00S00455.1ms     +++|          SHN    -7
00529  M00S00456.1ms     +++|          LPN    7
00530  M00S00457.1ms     +++|          NJN    COC         IF NOT READ/WRITE
00531  M00S00458.1ms     +++|          LDD    FO          CHECK PROCESSING BITS
00532  M00S00459.1ms     +++|          SHN    21-13
00533  M00S00460.1ms     +++|          PJN    COC         IF NOT RANDOM FET
00534  M00S00461.1ms     +++|          CFET   6           READ RANDOM ACCESS CONTROL
00535  M00S00462.1ms     +++|          CRD    CM
00536  M00S00463.1ms     +++|          LDD    PC          ADVANCE SECTOR COUNT
00537  M00S00464.1ms     +++|          SHN    6
00538  M00S00465.1ms     +++|          RAD    CM+2
00539  M00S00466.1ms     +++|          SHN    -14
00540  M00S00467.1ms     +++|          RAD    CM+1
00541  M00S00468.1ms     +++|          SHN    -14
00542  M00S00469.1ms     +++|          RAD    CM
00543  M00S00470.1ms     +++|          CFET   6
00544  M00S00471.1ms     +++|          CWD    CM          STORE RANDOM ACCESS CONTROL
00545  M00S00472.1ms     +++|*         UJN    COC         CHECK OPERATION COMPLETE
00546  M00S00473.1ms     +++| COC      SPACE  4,10
00547  M00S00474.1ms     +++|**        COC - CHECK OPERATION COMPLETE.
00548  M00S00475.1ms     +++|*
00549  M00S00476.1ms     +++|*         EXIT   TO *CFN* IF TO ENTER RECALL STACK OR
00550  M00S00477.1ms     +++|*                   RESTART *CPUCIO*.
00551  M00S00478.1ms     +++|*                TO *UFS* IF FUNCTION COMPLETE.
00552  M00S00479.1ms     +++|
00553  M00S00480.1ms     +++|
00554  M00S00481.1ms     +++| COC      BSS    0           ENTRY
00555  M00S00482.1ms     +++|          LDC    0           CHECK FOR ENTRY TO RECALL STACK
00556  M00S00483.1ms     +++|*         LDC    1           (ENTER RECALL STACK)
00557  M00S00484.1ms     +++|*         LDC    4000        (RESTART *CPUCIO*)
00558  M00S00485.1ms     +++| COCA     EQU    *-1
00559  M00S00486.1ms     +++|          ZJN    UFS         IF FUNCTION COMPLETE
Line S00487 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00560  M01S00487.242l642 ---|          LDN    0           PREVENT SETTING FET COMPLETE
Line S00009 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00488.1ms     +++|          STM    CFNC
00566  M00S00489.1ms     +++|          STM    CFNE        PREVENT FUNCTION CHARGE
00567  M00S00490.1ms     +++|          STM    CFNE+1
Line S00491 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00568  M01S00491.242l642 ---|          LDM    COCA        CHECK FOR *CPUCIO* RESTART
00569  M01S00492.242l642 ---|          SHN    -13
00570  M01S00493.242l642 ---|          NJN    COC1        IF *CPUCIO* RESTART
00571  M01S00494.242l642 ---|          LDC    LDDI+FS+4   LEAVE FILE SET BUSY
00572  M01S00495.242l642 ---|          STM    CFNA
00573  M01S00496.242l642 ---| COC1     LJM    CFN         COMPLETE FUNCTION
Line S00013 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00013.242l642 +++|          LJM    CFN         COMPLETE FUNCTION
00575  M00S00497.1ms     +++| CLS      SPACE  4,10
00576  M00S00498.1ms     +++|**        CLS - CLOSE MASS STORAGE COMPLETION.
00577  M00S00499.1ms     +++|*
00578  M00S00500.1ms     +++|*         EXIT   TO *CFN* IF *CLOSE/NO REWIND* FUNCTION.
00579  M00S00501.1ms     +++|*                TO *DRF* IF *CLOSE/RETURN* OR *CLOSE/UNLOAD*.
00580  M00S00502.1ms     +++|*                TO *REW* IF *CLOSE/REWIND* FUNCTION.
00581  M00S00503.1ms     +++|
00582  M00S00504.1ms     +++|
00583  M00S00505.1ms     +++| CLS      BSS    0           ENTRY
00584  M00S00506.1ms     +++|          LDM    CFNB        CLEAR FILE OPENED AND WRITTEN BITS
00585  M00S00507.1ms     +++|          LPN    71
00586  M00S00508.1ms     +++|          STM    CFNB
00587  M00S00509.1ms     +++| CLSA     LDN    0           SET RETURN FLAG FOR *DRF*
00588  M00S00510.1ms     +++|*         LDN    1           (SET UNLOAD FLAG FOR *DRF*)
00589  M00S00511.1ms     +++|          LJM    REW         REWIND FILE
00590  M00S00512.1ms     +++|*         LJM    DRF         (CLOSE/RETURN OR UNLOAD)
00591  M00S00513.1ms     +++|*         LJM    CFN         (CLOSE/NO REWIND)
00592  M00S00514.1ms     +++| CLSB     EQU    *-1
00593  M00S00515.1ms     +++| UFS      SPACE  4,15
00594  M00S00516.1ms     +++|**        UFS - UPDATE FET STATUS FOR READ OR POSITION FUNCTION.
00595  M00S00517.1ms     +++|*
00596  M00S00518.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
00597  M00S00519.1ms     +++|*                (BS - BS+4) = (FET+0).
00598  M00S00520.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00599  M00S00521.1ms     +++|*
00600  M00S00522.1ms     +++|*         EXIT   (BS - BS+4) = (FET+0) UPDATED WITH TERMINATION
00601  M00S00523.1ms     +++|*                   STATUS.
00602  M00S00524.1ms     +++|*                TO *CFN* FOR FUNCTION OTHER THAN *CLOSE*.
00603  M00S00525.1ms     +++|*                TO *CLS* FOR *CLOSE* FUNCTION.
00604  M00S00526.1ms     +++|*
00605  M00S00527.1ms     +++|*         USES   T1.
00606  M00S00528.1ms     +++|
00607  M00S00529.1ms     +++|
00608  M00S00530.1ms     +++| UFS      BSS    0           ENTRY
00609  M00S00531.1ms     +++|          LDD    FC          CHECK FUNCTION
00610  M00S00532.1ms     +++|          SHN    -6
00611  M00S00533.1ms     +++|          LPN    17
00612  M00S00534.1ms     +++|          ZJN    UFS1        IF READ FUNCTION
00613  M00S00535.1ms     +++|          LMN    /CIO/CLO
00614  M00S00536.1ms     +++|          ZJN    CLS         IF CLOSE FUNCTION
00615  M00S00537.1ms     +++|          LMN    /CIO/SKP&/CIO/CLO
00616  M00S00538.1ms     +++|          NJN    UFS3        IF NOT SKIP FUNCTION
00617  M00S00539.1ms     +++|          LDC    6742
00618  M00S00540.1ms     +++|          STM    UFSB
00619  M00S00541.1ms     +++| UFS1     LDD    FS+4        CHECK TERMINATION CONDITION
00620  M00S00542.1ms     +++|          LPN    14
00621  M00S00543.1ms     +++| UFSA     SHN    -2
00622  M00S00544.1ms     +++|*         LDN    0           (TERMINATION CONDITION NOT REACHED)
00623  M00S00545.1ms     +++|          ZJN    UFS3        IF NOT EOR/EOF/EOI
00624  M00S00546.1ms     +++|          STD    T1
00625  M00S00547.1ms     +++|          LDD    FC
00626  M00S00548.1ms     +++|          SHN    21-13
00627  M00S00549.1ms     +++|          MJN    UFS2        IF SKIP BACKWARD FUNCTION
00628  M00S00550.1ms     +++|          LDD    BS+4
00629  M00S00551.1ms     +++|          LPC    6002
00630  M00S00552.1ms     +++|*         LPC    6742        (SKIP FORWARD)
00631  M00S00553.1ms     +++| UFSB     EQU    *-1
00632  M00S00554.1ms     +++|          LMM    UFSC-1,T1   SET EOR/EOF/EOI INDICATOR
00633  M00S00555.1ms     +++|          STD    BS+4
00634  M00S00556.1ms     +++| UFS2     LDD    BS+3
00635  M00S00557.1ms     +++|          SCN    74
00636  M00S00558.1ms     +++|          LMM    UFSD-1,T1   SET LEVEL NUMBER
00637  M00S00559.1ms     +++|          STD    BS+3
00638  M00S00560.1ms     +++| UFS3     UJN    CFN         COMPLETE FUNCTION
00639  M00S00561.1ms     +++|
00640  M00S00562.1ms     +++|
00641  M00S00563.1ms     +++| UFSC     BSS    0           READ/POSITION FUNCTION RETURNS
00642  M00S00564.1ms     +++|          LOC    1
00643  M00S00565.1ms     +++|          CON    20          EOR
00644  M00S00566.1ms     +++|          CON    30          EOF
00645  M00S00567.1ms     +++|          CON    1030        EOI
00646  M00S00568.1ms     +++|          LOC    *O
00647  M00S00569.1ms     +++|
00648  M00S00570.1ms     +++| UFSD     BSS    0           LEVEL NUMBER RETURNS
00649  M00S00571.1ms     +++|          LOC    1
00650  M00S00572.1ms     +++|          CON    0           EOR
00651  M00S00573.1ms     +++|          CON    74B         EOF
00652  M00S00574.1ms     +++|          CON    74B         EOI
00653  M00S00575.1ms     +++|          LOC    *O
00654  M00S00576.1ms     +++| RRF      SPACE  4,15
00655  M00S00577.1ms     +++|**        RRF - RESET RANDOM FET POINTERS.
00656  M00S00578.1ms     +++|*
00657  M00S00579.1ms     +++|*         ENTRY  (FO) = FET OPTIONS.
00658  M00S00580.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00659  M00S00581.1ms     +++|*
00660  M00S00582.1ms     +++|*         EXIT   (FS+4) = FST STATUS.
00661  M00S00583.1ms     +++|*                TO *CFN*.
00662  M00S00584.1ms     +++|*
00663  M00S00585.1ms     +++|*         USES   DP - DP+4.
00664  M00S00586.1ms     +++|*
00665  M00S00587.1ms     +++|*         MACROS CFET.
00666  M00S00588.1ms     +++|
00667  M00S00589.1ms     +++|
00668  M00S00590.1ms     +++| RRF      BSS    0           ENTRY
Line S00001 Modification History
M01 (Added by) ns2365
Seq #  *Modification Id* Act 
----------------------------+
00669  M01S00001.ns2365  +++|          LDD    FS          CHECK DEVICE TYPE
00670  M01S00002.ns2365  +++|          LMN    TEEQ
00671  M01S00003.ns2365  +++|          ZJN    RRF1        IF *TE*
00672  M00S00591.1ms     +++|          LDN    4           SET EOR FST STATUS
Line S00592 Modification History
M01 (Removed by) ns2365
Seq #  *Modification Id* Act 
----------------------------+
00673  M01S00592.ns2365  ---|          STD    FS+4
Line S00004 Modification History
M01 (Added by) ns2365
Seq #  *Modification Id* Act 
----------------------------+
00674  M01S00004.ns2365  +++| RRF1     STD    FS+4
00675  M00S00593.1ms     +++|          LDD    FO          CHECK FOR RANDOM FILE
00676  M00S00594.1ms     +++|          SHN    21-13
00677  M00S00595.1ms     +++|          PJN    CFN         IF NOT RANDOM FILE
00678  M00S00596.1ms     +++|          CFET   6           READ RANDOM INDEX WORD
00679  M00S00597.1ms     +++|          CRD    DP
00680  M00S00598.1ms     +++|          LDN    0           SET *CRI* TO 1
00681  M00S00599.1ms     +++|          STD    DP
00682  M00S00600.1ms     +++|          STD    DP+1
00683  M00S00601.1ms     +++|          LDD    HN
00684  M00S00602.1ms     +++|          STD    DP+2
00685  M00S00603.1ms     +++|          CFET   6           REWRITE FET+6
00686  M00S00604.1ms     +++|          CWD    DP
00687  M00S00605.1ms     +++|*         UJN    CFN         COMPLETE FUNCTION
00688  M00S00606.1ms     +++| CFN      SPACE  4,20
00689  M00S00607.1ms     +++|**        CFN - COMPLETE FUNCTION.
00690  M00S00608.1ms     +++|*
00691  M00S00609.1ms     +++|*         ENTRY  (FA) = FNT ORDINAL.
00692  M00S00610.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
00693  M00S00611.1ms     +++|*                (PC) = PRU COUNT.
00694  M00S00612.1ms     +++|*                (BS - BS+4) = (FET+0).
00695  M00S00613.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00696  M00S00614.1ms     +++|*
00697  M00S00615.1ms     +++|*         EXIT   TO *PPR* IF FUNCTION COMPLETE.
00698  M00S00616.1ms     +++|*                TO *CRC* IF TO ENTER RECALL STACK OR RESTART
00699  M00S00617.1ms     +++|*                   *CPUCIO*.
00700  M00S00618.1ms     +++|*
00701  M00S00619.1ms     +++|*         USES   T1, CM+1, CM+2.
00702  M00S00620.1ms     +++|*
00703  M00S00621.1ms     +++|*         CALLS  CIT.
00704  M00S00622.1ms     +++|*
00705  M00S00623.1ms     +++|*         MACROS CFET, MONITOR, NFA.
00706  M00S00624.1ms     +++|
00707  M00S00625.1ms     +++|
00708  M00S00626.1ms     +++| CFN      BSS    0           ENTRY
00709  M00S00627.1ms     +++|          RJM    CIT         CLEAR TRACK INTERLOCK
00710  M00S00628.1ms     +++|          LDD    FA          CHECK FNT ADDRESS
00711  M00S00629.1ms     +++|          ZJN    CFN1        IF NO FNT ENTRY
Line S00630 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00712  M01S00630.242l642 ---| CFNA     AOD    FS+4        SET FILE NOT BUSY
00713  M01S00631.242l642 ---|*         LDD    FS+4        (ENTER RECALL STACK)
00714  M01S00632.242l642 ---|          LPN    77
Line S00014 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00633.1ms     +++|          SHN    14
00719  M00S00634.1ms     +++|          LMC    **          RESET UPPER STATUS
00720  M00S00635.1ms     +++| CFNB     EQU    *-1         (UPPER 6 BITS OF PREVIOUS FST STATUS)
00721  M00S00636.1ms     +++|          SHN    6
00722  M00S00637.1ms     +++|          STD    FS+4
00723  M00S00638.1ms     +++|          NFA    FA,R
00724  M00S00639.1ms     +++|          ADN    FSTL
00725  M00S00640.1ms     +++|          CWD    FS
00726  M00S00641.1ms     +++| CFN1     AOD    BS+4        SET FET COMPLETE
00727  M00S00642.1ms     +++|*         PSN                (ENTER RECALL STACK/RESTART *CPUCIO*)
00728  M00S00643.1ms     +++| CFNC     EQU    *-1
00729  M00S00644.1ms     +++|          CFET               STORE FET STATUS
00730  M00S00645.1ms     +++| CFND     CWD    BS
00731  M00S00646.1ms     +++|*         PSN                (ERROR PROCESSING)
00732  M00S00647.1ms     +++|
00733  M00S00648.1ms     +++|*         UPDATE ACCOUNTING CHARGES AND MASS STORAGE PRU COUNT.
00734  M00S00649.1ms     +++|*         DROP PPU.
00735  M00S00650.1ms     +++|
00736  M00S00651.1ms     +++|          LDM    CFNJ        CHECK FOR MASS STORAGE PRU COUNT UPDATE
00737  M00S00652.1ms     +++|          ADM    CFNJ+1
00738  M00S00653.1ms     +++|          ZJN    CFN2        IF NO FILE SIZE CHANGE
00739  M00S00654.1ms     +++|          LDN    1
Line S00001 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00001.241l630 +++|
00741  M01S00002.241l630 +++|*         ENTRY FROM *PRS* IF ERROR CODE INCORRECT.
00742  M01S00003.241l630 +++|
00743  M00S00655.1ms     +++| CFN2     ADN    1           SET *UADM* PARAMETER COUNT
00744  M00S00656.1ms     +++|          STD    CM+1
00745  M00S00657.1ms     +++|          LDD    FC          GET FUNCTION CODE
00746  M00S00658.1ms     +++|          SHN    -6
00747  M00S00659.1ms     +++|          LPN    17
00748  M00S00660.1ms     +++|          STD    T1
00749  M00S00661.1ms     +++|          LDD    PC          CHARGE FOR PRUS TRANSFERRED
00750  M00S00662.1ms     +++|          SHN    IMPT
00751  M00S00663.1ms     +++| CFNE     ADM    TACC,T1     CHARGE FOR FUNCTION
00752  M00S00664.1ms     +++|*         PSN                (ENTER RECALL STACK/RESTART *CPUCIO*)
00753  M00S00665.1ms     +++|*         PSN                (ENTER RECALL STACK/RESTART *CPUCIO*)
00754  M00S00666.1ms     +++|          RAM    CFNH+1
00755  M00S00667.1ms     +++|          SHN    -14
00756  M00S00668.1ms     +++|          RAM    CFNH
00757  M00S00669.1ms     +++|          ADM    CFNH+1
00758  M00S00670.1ms     +++|          NJN    CFN3        IF ACCOUNTING CHARGE
00759  M00S00671.1ms     +++|          SOD    CM+1
00760  M00S00672.1ms     +++|          ZJN    CFN4        IF NO FILE SIZE UPDATE
00761  M00S00673.1ms     +++|          LDN    CFNI-CFNG
00762  M00S00674.1ms     +++|          RAM    CFNF
00763  M00S00675.1ms     +++| CFN3     LDD    MA          STORE *UADM* PARAMETER WORDS
00764  M00S00676.1ms     +++|          CWM    CFNG,CM+1
00765  M00S00677.1ms     +++|*         CWM    CFNI,CM+1   (FILE SIZE UPDATE ONLY)
00766  M00S00678.1ms     +++| CFNF     EQU    *-1
00767  M00S00679.1ms     +++| CFN4     LDM    COCA        CHECK FOR RECALL
00768  M00S00680.1ms     +++|          NJN    CRC         IF FUNCTION NOT COMPLETE
00769  M00S00681.1ms     +++|          LDD    IR+1        CHECK AUTO RECALL
00770  M00S00682.1ms     +++|          SHN    1-5
00771  M00S00683.1ms     +++|          LPN    2
00772  M00S00684.1ms     +++|          LMN    2           RECALL CPU FOR NON-AUTO RECALL REQUEST
00773  M00S00685.1ms     +++|          STD    CM+2        SET TO DROP PPU AND RECALL CPU
00774  M00S00686.1ms     +++|          MONITOR  UADM
00775  M00S00687.1ms     +++|          LJM    PPR         EXIT TO PP RESIDENT
00776  M00S00688.1ms     +++|
00777  M00S00689.1ms     +++|
00778  M00S00690.1ms     +++|*         MESSAGE BUFFER STRUCTURE FOR UADM FUNCTION.
00779  M00S00691.1ms     +++|*         (THE FOLLOWING 2 CM WORDS MUST BE CONTIGUOUS.)
00780  M00S00692.1ms     +++|
00781  M00S00693.1ms     +++| CFNG     CON    AISS        INCREMENT I/O ACCUMULATOR
00782  M00S00694.1ms     +++|          CON    IOAW        I/O ACCUMULATOR WORD
00783  M00S00695.1ms     +++|          CON    40D*100+20D POSITION AND WIDTH OF FIELD
00784  M00S00696.1ms     +++| CFNH     CON    0           PRU COUNT
00785  M00S00697.1ms     +++|          CON    0
00786  M00S00698.1ms     +++|
00787  M00S00699.1ms     +++| CFNI     CON    CDCS        DECREMENT CONTROL POINT AREA FIELD
00788  M00S00700.1ms     +++|          CON    ACLW        MASS STORAGE PRU LIMIT
00789  M00S00701.1ms     +++|          CON    0D*100+18D  POSITION AND WIDTH OF LIMIT FIELD
00790  M00S00702.1ms     +++| CFNJ     CON    0           18 BIT SECTOR COUNT (RIGHT-JUSTIFIED)
00791  M00S00703.1ms     +++|          CON    0
00792  M00S00704.1ms     +++| TACC     SPACE  4,10
00793  M00S00705.1ms     +++|**        TACC - TABLE OF ACCOUNTING CHARGES.
00794  M00S00706.1ms     +++|*
00795  M00S00707.1ms     +++|*         INDEXED BY INTERNAL *CIO* FUNCTION CODE.
00796  M00S00708.1ms     +++|
00797  M00S00709.1ms     +++|
00798  M00S00710.1ms     +++| TACC     INDEX
00799  M00S00711.1ms     +++|          INDEX  /CIO/RDF,IMRD  READ
00800  M00S00712.1ms     +++|          INDEX  /CIO/WTF,IMWT  WRITE
00801  M00S00713.1ms     +++|          INDEX  /CIO/SKP,IMSK  SKIP
00802  M00S00714.1ms     +++|          INDEX  /CIO/OPE,IMOP  OPEN
00803  M00S00715.1ms     +++|          INDEX  /CIO/CLO,IMCL  CLOSE
00804  M00S00716.1ms     +++|          INDEX  /CIO/RET,IMRU  RETURN/UNLOAD
00805  M00S00717.1ms     +++|          INDEX  /CIO/EVI,IMRU  EVICT
Line S00036 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00806  M01S00036.ns22000 +++|          INDEX  /CIO/OVW,IMWT  OVERWRITE
00807  M00S00718.1ms     +++|          INDEX  /CIO/MFC
00808  M00S00719.1ms     +++| CRC      SPACE  4,10
00809  M00S00720.1ms     +++|**        CRC - CHECK FOR RESTART OF *CPUCIO*.
00810  M00S00721.1ms     +++|*
00811  M00S00722.1ms     +++|*         ENTRY  (CM+1) = *UADM* PARAMETER WORD COUNT.
00812  M00S00723.1ms     +++|*
00813  M00S00724.1ms     +++|*         EXIT   TO *ERS* IF TO ENTER RECALL STACK.
00814  M00S00725.1ms     +++|*                TO *PPR* IF *CPUCIO* RESTARTED.
00815  M00S00726.1ms     +++|*
00816  M00S00727.1ms     +++|*         USES   CM+1 - CM+2, IR - IR+1.
00817  M00S00728.1ms     +++|*
00818  M00S00729.1ms     +++|*         MACROS MONITOR.
00819  M00S00730.1ms     +++|
00820  M00S00731.1ms     +++|
00821  M00S00732.1ms     +++| CRC      BSS    0           ENTRY
00822  M00S00733.1ms     +++|          LDD    CM+1        CHECK IF *UADM* NECESSARY
00823  M00S00734.1ms     +++|          ZJN    CRC1        IF *UADM* NOT NECESSARY
00824  M00S00735.1ms     +++|          LDN    1           SET NO DROP OF PP
00825  M00S00736.1ms     +++|          STD    CM+2
00826  M00S00737.1ms     +++|          MONITOR  UADM      UPDATE ACCOUNTING
00827  M00S00738.1ms     +++| CRC1     LDM    COCA
00828  M00S00739.1ms     +++|          SHN    -13
00829  M00S00740.1ms     +++|          NJN    CRC2        IF NOT TO ENTER RECALL STACK
00830  M00S00741.1ms     +++|          LJM    ERS         ENTER RECALL STACK
00831  M00S00742.1ms     +++|
00832  M00S00743.1ms     +++| CRC2     LDC    2RCI        RESET *CIO* CALL
00833  M00S00744.1ms     +++|          STD    IR
00834  M00S00745.1ms     +++|          LDD    IR+1
00835  M00S00746.1ms     +++|          LPN    77
00836  M00S00747.1ms     +++|          ADC    1RO*100
00837  M00S00748.1ms     +++|          STD    IR+1
00838  M00S00749.1ms     +++|          LDN    ZERL
00839  M00S00750.1ms     +++|          CRD    CM
00840  M00S00751.1ms     +++|          LDD    MA
00841  M00S00752.1ms     +++|          CWD    IR
00842  M00S00753.1ms     +++|          ADN    1           CLEAR MB+1
00843  M00S00754.1ms     +++|          CWD    CM
00844  M00S00755.1ms     +++| CRCA     LDN    2           SET DROP PP FLAG
00845  M00S00756.1ms     +++|*         LDN    0           (NO DROP FOR TERMINAL EQUIPMENT)
00846  M00S00757.1ms     +++|          STD    CM+1
00847  M00S00758.1ms     +++|          MONITOR  RPPM      RESTART CIO
00848  M00S00759.1ms     +++| CRCB     UJN    CRC3        EXIT TO PP RESIDENT
00849  M00S00760.1ms     +++|*         PSN                (DROP PPU REQUIRED)
00850  M00S00761.1ms     +++|          LDD    IA          CLEAR AUTO RECALL FLAG
00851  M00S00762.1ms     +++|          CRD    IR
00852  M00S00763.1ms     +++|          LDD    IR+1
00853  M00S00764.1ms     +++|          SCN    40
00854  M00S00765.1ms     +++|          STD    IR+1
00855  M00S00766.1ms     +++|          LDD    IA
00856  M00S00767.1ms     +++|          CWD    IR
00857  M00S00768.1ms     +++|          MONITOR  DPPM      DROP PP
00858  M00S00769.1ms     +++| CRC3     LJM    PPR         EXIT TO PP RESIDENT
00859  M00S00770.1ms     +++| ERS      SPACE  4,10
00860  M00S00771.1ms     +++|**        ERS - ENTER RECALL STACK.
00861  M00S00772.1ms     +++|*
00862  M00S00773.1ms     +++|*         ENTRY  (PC) = PRU COUNT.
00863  M00S00774.1ms     +++|*                (FS - FS+4) = FST ENTRY.
00864  M00S00775.1ms     +++|*
00865  M00S00776.1ms     +++|*         EXIT   TO *PPR*.
Line S00017 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00017.242l642 +++|*                TO *1RJ* IF RECALL DUE TO MASS STORAGE ERROR.
00867  M00S00777.1ms     +++|*
00868  M00S00778.1ms     +++|*         USES   BS - BS+4, CM - CM+4, DP - DP+4.
Line S00009 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00009.ns2090  +++|*
00870  M01S00010.ns2090  +++|*         CALLS  CBD.
00871  M00S00779.1ms     +++|*
Line S00780 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00872  M01S00780.242l642 ---|*         MACROS MONITOR.
Line S00018 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00873  M01S00018.242l642 +++|*         MACROS EXECUTE, MONITOR.
00874  M00S00781.1ms     +++|
00875  M00S00782.1ms     +++|
00876  M00S00783.1ms     +++| ERS      BSS    0           ENTRY
00877  M00S00784.1ms     +++|          LDD    PC
00878  M00S00785.1ms     +++|          ZJN    ERS1        IF NO PRUS TRANSFERRED
00879  M00S00786.1ms     +++|          LDM    RCRF        SET DATA TRANSFERRED FLAG
00880  M00S00787.1ms     +++|          LPC    3600
00881  M00S00788.1ms     +++|          ADD    HN
00882  M00S00789.1ms     +++|          UJN    ERS2        SET RECALL STACK REASON
00883  M00S00790.1ms     +++|
00884  M00S00791.1ms     +++| ERS1     LDM    RCRF
00885  M00S00792.1ms     +++|          LPC    3700
00886  M00S00793.1ms     +++| ERS2     LMN    PTLR        SET PRU TRANSFER LIMIT RECALL REASON CODE
00887  M00S00794.1ms     +++|*         LMN    TRLR        (TRACK LIMIT REASON CODE)
00888  M00S00795.1ms     +++|*         LMN    TIRR        (TRACK INTERLOCK REJECT REASON CODE)
00889  M00S00796.1ms     +++|*         LMN    NFIR        (NFL INCREASE PENDING REASON CODE)
Line S00797 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00890  M01S00797.242l642 ---|*         LMN    RCCR        (RECALL *CPUCIO* REASON CODE)
Line S00011 Modification History
M01 (Added by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00011.242l642 ---|*         LDN    LBBR        (WAIT FOR BUFFER FLUSH REASON CODE)
Line S00019 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00892  M01S00019.242l642 +++|*         LMN    LBBR        (WAIT FOR BUFFER FLUSH REASON CODE)
00893  M01S00020.242l642 +++|*         LMN    WFOR        (WAIT FOR INACCESSABLE DEVICE REASON CODE)
00894  M00S00798.1ms     +++| ERSA     EQU    *-1
00895  M00S00799.1ms     +++|          STM    RCRF
Line S00800 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00896  M01S00800.242l642 ---|          LDD    MA          STORE *1MS* CALL
00897  M01S00801.242l642 ---|          CWD    IR
00898  M01S00802.242l642 ---|          ADN    1
00899  M01S00803.242l642 ---|          CWM    RCRF,ON     STORE ADDITONAL PARAMETERS
Line S00804 Modification History
M01 (Removed by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00900  M02S00804.242l642 ---|          LDN    ZERL
00901  M02S00805.242l642 ---|          CRD    CM
Line S00806 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00902  M01S00806.242l642 ---|          LDM    RCRF        CHECK RECALL REASON CODE
00903  M00S00807.1ms     +++|          LPN    77
00904  M00S00808.1ms     +++|          LMN    PTLR
00905  M00S00809.1ms     +++|          NJN    ERS3        IF NOT PRU TRANSFER LIMIT
Line S00810 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00906  M01S00810.ns2090  ---|          LDD    FS          GET EQUIPMENT NUMBER
00907  M01S00811.ns2090  ---|          LPN    77
00908  M01S00812.ns2090  ---|          ADM    ESTS        GET EST ENTRY
00909  M01S00813.ns2090  ---|          CRD    BS
00910  M01S00814.ns2090  ---|          LDD    BS+4
Line S00012 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00815.1ms     +++|          SHN    3
00915  M00S00816.1ms     +++|          ADN    PFGL        GET NUMBER OF UNITS ON EQUIPMENT
00916  M00S00817.1ms     +++|          CRD    BS
00917  M00S00818.1ms     +++|          ADN    DALL-PFGL   GET DEVICE ACTIVITY
00918  M00S00819.1ms     +++|          CRD    DP
Line S00021 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00919  M01S00021.242l642 +++|          LDD    DP          EXTRACT ACTIVITY ONLY FROM DALL
00920  M01S00022.242l642 +++|          LPN    77
00921  M01S00023.242l642 +++|          STD    DP
00922  M00S00820.1ms     +++|          LDD    BS+4
00923  M00S00821.1ms     +++|          LPN    7
00924  M00S00822.1ms     +++|          ADN    1
Line S00823 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00925  M01S00823.ns2090  ---|          SHN    1
Line S00015 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00926  M01S00015.ns2090  +++| ERSC     SHN    1
00927  M01S00016.ns2090  +++|*         SHN    3           (BUFFERED DEVICE)
00928  M00S00824.1ms     +++|          SBD    DP
00929  M00S00825.1ms     +++|          PJN    ERS3        IF NOT EXCESSIVE DEVICE ACTIVITY
Line S00826 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
00930  M01S00826.ns2090  ---|          LDC    DART        SET DEVICE ACTIVITY RECALL TIME PERIOD
Line S00017 Modification History
M01 (Added by) ns2090
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00017.v23l617 ---|          LDK    DART        SET DEVICE ACTIVITY RECALL TIME PERIOD
Line S00009 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00932  M01S00009.v23l617 +++|          LDK    ACRT        SET DEVICE ACTIVITY RECALL TIME PERIOD
00933  M00S00827.1ms     +++|          UJN    ERS4        ENTER RECALL STACK
00934  M00S00828.1ms     +++|
00935  M00S00829.1ms     +++| ERS3     LDC    IORT        SET I/O RECALL TIME PERIOD
Line S00830 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00936  M01S00830.242l642 ---|*         LDC    RCCT        (RESTART *CPUCIO* RECALL TIME PERIOD)
00937  M00S00831.1ms     +++|*         LDC    TLRT        (TRACK LIMIT RECALL TIME PERIOD)
00938  M00S00832.1ms     +++|*         LDC    TIRT        (TRACK INTERLOCK REJECT RECALL TIME)
00939  M00S00833.1ms     +++| ERSB     EQU    *-1
00940  M00S00834.1ms     +++| ERS4     STD    CM+4        SET RECALL TIME
Line S00018 Modification History
M01 (Added by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00018.242l642 ---|          LDN    ZERL
00942  M02S00019.242l642 ---|          CRD    CM-1
Line S00024 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00835.1ms     +++|          LDN    PTMF        SET TIMED RECALL CRITERION
00958  M00S00836.1ms     +++|          STD    CM+1
00959  M00S00837.1ms     +++|          MONITOR RECM
00960  M00S00838.1ms     +++|          LJM    PPR         EXIT TO PP RESIDENT
Line S00038 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00961  M01S00038.242l642 +++|
00962  M01S00039.242l642 +++|*         CALL *1RJ* TO RECALL THE PP AND ROLL THE JOB.
00963  M01S00040.242l642 +++|
Line S00041 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00041.ns2358  ---| ERS5     LDD    FS          SET EST ORDINAL IN *1RJ* CALL
00965  M02S00042.ns2358  ---|          STD    IR+4
Line S00001 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00043 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00839.1ms     +++| ERR      SPACE  4,10
00976  M00S00840.1ms     +++|**        ERR - PROCESS ERROR.
00977  M00S00841.1ms     +++|*
00978  M00S00842.1ms     +++|*         ENTRY  (A) = ERROR NUMBER.
00979  M00S00843.1ms     +++|*
00980  M00S00844.1ms     +++|*         EXIT   (ERRA) = ERROR NUMBER.
00981  M00S00845.1ms     +++|*                TO *CFN* IF NO LOGGING NEEDED FOR UNNECESSARY
00982  M00S00846.1ms     +++|*                   *CIO* FUNCTION.
00983  M00S00847.1ms     +++|*
00984  M00S00848.1ms     +++|*         CALLS  EXR.
00985  M00S00849.1ms     +++|
00986  M00S00850.1ms     +++|
00987  M00S00851.1ms     +++| ERR      BSS    0           ENTRY
00988  M00S00852.1ms     +++|          STM    ERRA        SET ERROR NUMBER
Line S00853 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00989  M01S00853.242l642 ---|          LMN    /CIOERR/UCF
00990  M01S00854.242l642 ---|          NJN    ERR1        IF NOT UNNECESSARY *CIO* FUNCTION
00991  M01S00855.242l642 ---|          LDN    SSTL        GET SYSTEM STATUS WORD
00992  M01S00856.242l642 ---|          CRD    CM
00993  M01S00857.242l642 ---|          LDD    CM+3
00994  M01S00858.242l642 ---|          LPN    20
00995  M01S00859.242l642 ---|          ZJN    ERR1        IF LOGGING ENABLED
00996  M01S00860.242l642 ---|          LJM    CFN         COMPLETE FUNCTION
00997  M01S00861.242l642 ---|
00998  M01S00862.242l642 ---| ERR1     LDC    1L4+ERP
Line S00047 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00999  M01S00047.242l642 +++|          LDC    1L4+ERP
01000  M00S00863.1ms     +++|          RJM    EXR
01001  M00S00864.1ms     +++|
01002  M00S00865.1ms     +++|
01003  M00S00866.1ms     +++| ERRA     CON    0           ERROR NUMBER
Line S00867 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01004  M01S00867.241l630 ---| HNG      SPACE  4,10
01005  M01S00868.241l630 ---|**        HNG - HANG PP.
01006  M01S00869.241l630 ---|*
01007  M01S00870.241l630 ---|*         MACROS MONITOR.
01008  M01S00871.241l630 ---|
01009  M01S00872.241l630 ---|
01010  M01S00873.241l630 ---| HNG      BSS    0           ENTRY
01011  M01S00874.241l630 ---|          CON    0           HANG ADDRESS FOR *RJM*
01012  M01S00875.241l630 ---| HNG1     MONITOR  HNGM      HANG PP
01013  M01S00876.241l630 ---|          UJN    HNG1        CONTINUE TO HANG PP
Line S00004 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00877.1ms     +++|          TITLE  RESIDENT PROCESSORS.
Line S00048 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00069 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00069.ns2358  ---|          MJN    CDA1        IF UNRECOVERABLE ERROR
Line S00006 Modification History
M01 (Added by) ns2358
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00006.1ms6    ---|          MJN    CDA2        IF UNRECOVERABLE ERROR
Line S00001 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01056  M01S00001.1ms6    +++|          MJN    CDA1        IF UNRECOVERABLE ERROR
Line S00070 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01057  M01S00070.242l642 +++|          LDD    FO
01058  M01S00071.242l642 +++|          SHN    21-7
Line S00072 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00072.ns2358  ---|          MJN    CDA1        IF REAL TIME FLAG
Line S00007 Modification History
M01 (Added by) ns2358
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00007.1ms6    ---|          MJN    CDA2        IF REAL TIME FLAG
Line S00002 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00002.1ms6    +++|          MJN    CDA1        IF REAL TIME FLAG SET
Line S00073 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01062  M01S00073.242l642 +++|          LDM    MSD
01063  M01S00074.242l642 +++|          SHN    21-13
Line S00075 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00075.ns2358  ---|          PJN    CDA1        IF SUBSYSTEM
Line S00008 Modification History
M01 (Added by) ns2358
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00008.1ms6    ---|          PJN    CDA2        IF SUBSYSTEM
Line S00003 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01066  M01S00003.1ms6    +++|          PJN    CDA5        IF SUBSYSTEM
Line S00076 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01067  M01S00076.242l642 +++|          LDD    CP          CHECK ERROR FLAG
01068  M01S00077.242l642 +++|          ADN    STSW
01069  M01S00078.242l642 +++|          CRD    CM
01070  M01S00079.242l642 +++|          LDD    CM+1
Line S00080 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00080.ns2358  ---|          NJN    CDA1        IF ERROR FLAG IS SET
01072  M02S00081.ns2358  ---|          LDN    WFOR-PTLR   SET REASON CODE
Line S00009 Modification History
M01 (Added by) ns2358
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00009.1ms6    ---|          NJN    CDA2        IF ERROR FLAG SET
01074  M02S00010.1ms6    ---|          LDM    ERSD
01075  M02S00011.1ms6    ---|          ZJN    CDA1        IF NOT ERROR RETURN FROM *0DF*
Line S00004 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01076  M01S00004.1ms6    +++| CDA1     NJN    CDA5        IF ERROR FLAG SET
Line S00005 Modification History
M01 (Added by) 1ms6
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01077  M02S00005.253l688 ---|          LDD    FC
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01078  M01S00001.253l688 +++| CDAA     LDD    FC
01079  M01S00002.253l688 +++|*         UJN    CDA4        (ERROR SETTING TRACK INTERLOCK)
Line S00006 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
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*
Line S00012 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00012.ns2358  +++|          LDN    0
01090  M01S00013.ns2358  +++|          STD    FA
Line S00014 Modification History
M01 (Added by) ns2358
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00014.1ms6    ---| CDA1     LDN    WFOR-PTLR   ADJUST REASON CODE
Line S00015 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00015.1ms6    +++| CDA4     LDN    WFOR-PTLR   ADJUST REASON CODE
Line S00082 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00082.242l642 +++|          RAM    ERSA
Line S00083 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00083.ns2723  ---|          AOM    COCA
Line S00001 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
01095  M01S00001.ns2723  +++|          LDN    1           SET TO RECALL PP
01096  M01S00002.ns2723  +++|          STM    COCA
Line S00084 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00084.242l642 +++|          LJM    COC         COMPLETE AND RECALL PP
Line S00001 Modification History
M01 (Added by) 1ms14
Seq #  *Modification Id* Act 
----------------------------+
01098  M01S00001.1ms14   +++|*         LJM    /SMR/SLS    (*READLS*/*RPHRLS*)
01099  M01S00002.1ms14   +++| CDAB     EQU    *-1
Line S00085 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00085.242l642 +++|
Line S00086 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00086.ns2358  ---| CDA1     LDM    RDCT        SAVE DRIVER RETURN CODE
Line S00015 Modification History
M01 (Added by) ns2358
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01102  M02S00015.1ms6    ---| CDA2     LDM    RDCT        SAVE DRIVER RETURN CODE
Line S00016 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00016.1ms6    +++| CDA5     LDM    RDCT        SAVE DRIVER RETURN CODE
Line S00087 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00878.1ms     +++| DRF      SPACE  4,15
01110  M00S00879.1ms     +++|**        DRF - DROP FILE.
01111  M00S00880.1ms     +++|*
Line S00881 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01112  M01S00881.ns2358  ---|*         ENTRY  (A, BIT 0) = 1 IF UNLOAD, 0 IF RETURN FUNCTION.
01113  M01S00882.ns2358  ---|*                (FA) = ORDINAL OF FNT ENTRY.
Line S00016 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00883.1ms     +++|*
01118  M00S00884.1ms     +++|*         EXIT   (FA) = 0.
Line S00092 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01119  M01S00092.242l642 +++|*                TO *CDA*, IF ERROR FROM *0DF*.
01120  M00S00885.1ms     +++|*                TO *REW1*.
01121  M00S00886.1ms     +++|*
01122  M00S00887.1ms     +++|*         CALLS  CIT.
01123  M00S00888.1ms     +++|*
01124  M00S00889.1ms     +++|*         MACROS EXECUTE.
01125  M00S00890.1ms     +++|
01126  M00S00891.1ms     +++|
01127  M00S00892.1ms     +++| DRF      BSS    0           ENTRY
01128  M00S00893.1ms     +++|          STM    OVL-1       SAVE RETURN/UNLOAD FLAG FOR *0DF*
01129  M00S00894.1ms     +++|          LDD    FA
Line S00895 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01130  M01S00895.242l642 ---|          ZJN    REW1        IF NO FNT ENTRY
Line S00093 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00896.1ms     +++|          RJM    CIT         CLEAR TRACK INTERLOCK
01144  M00S00897.1ms     +++|          EXECUTE 0DF,OVL    DROP FILE
Line S00898 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01145  M01S00898.242l642 ---|          LDN    0           CLEAR FST ADDRESS
01146  M01S00899.242l642 ---|          STD    FA
01147  M01S00900.242l642 ---|          UJN    REW1        RESET POINTERS
Line S00105 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01148  M02S00105.ns2358  ---|          PJN    DRF1        IF NO ERROR
01149  M02S00106.ns2358  ---|          NFA    FA,R        REREAD FST ENTRY
01150  M02S00107.ns2358  ---|          ADK    FSTL
01151  M02S00108.ns2358  ---|          CRD    FS
01152  M02S00109.ns2358  ---|          RJM    CDA         CHECK DEVICE
01153  M02S00110.ns2358  ---|
01154  M02S00111.ns2358  ---| DRF1     STD    FA          CLEAR FST ADDRESS
01155  M02S00112.ns2358  ---| DRF2     UJN    REW1        RESET POINTERS
Line S00019 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00901.1ms     +++| REW      SPACE  4,10
01161  M00S00902.1ms     +++|**        REW - REWIND MASS STORAGE.
01162  M00S00903.1ms     +++|*
01163  M00S00904.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01164  M00S00905.1ms     +++|*
01165  M00S00906.1ms     +++|*         EXIT   (FS - FS+4) = UPDATED FST ENTRY.
01166  M00S00907.1ms     +++|*                TO *RRF*.
01167  M00S00908.1ms     +++|
01168  M00S00909.1ms     +++|
01169  M00S00910.1ms     +++| REW      BSS    0           ENTRY
01170  M00S00911.1ms     +++|          LDM    CFNB        CLEAR SYSTEM SECTOR OPERATION FLAG
01171  M00S00912.1ms     +++|          SCN    40
01172  M00S00913.1ms     +++|          STM    CFNB
01173  M00S00914.1ms     +++|          LDM    MSFF        GET MASS STORAGE FILE FLAG
01174  M00S00915.1ms     +++|          NJN    REW1        IF NOT MASS STORAGE FILE
01175  M00S00916.1ms     +++|          LDD    FS+2        CHECK CURRENT TRACK
01176  M00S00917.1ms     +++|          ZJN    REW1        IF FILE NOT USED
01177  M00S00918.1ms     +++|          LDD    FS+1        SET FIRST TRACK
01178  M00S00919.1ms     +++|          STD    FS+2
01179  M00S00920.1ms     +++|          LDN    FSMS        SET FIRST SECTOR
01180  M00S00921.1ms     +++|          STD    FS+3
01181  M00S00922.1ms     +++| REW1     LJM    RRF         RESET POINTERS
01182  M00S00923.1ms     +++|          TITLE  RESIDENT SUBROUTINES.
01183  M00S00924.1ms     +++|          SPACE  4,10
01184  M00S00925.1ms     +++|**        COMMON DECKS.
01185  M00S00926.1ms     +++|
01186  M00S00927.1ms     +++|
01187  M00S00928.1ms     +++|*CALL     COMPCTI
01188  M00S00929.1ms     +++| CAF      SPACE  4,10
01189  M00S00930.1ms     +++|**        CAF - COMPUTE ABSOLUTE FET ADDRESS.
01190  M00S00931.1ms     +++|*
01191  M00S00932.1ms     +++|*         ENTRY  (IR+3 - IR+4) = RELATIVE FET ADDRESS.
01192  M00S00933.1ms     +++|*
01193  M00S00934.1ms     +++|*         EXIT   (A) = ABSOLUTE FET ADDRESS.
01194  M00S00935.1ms     +++|
01195  M00S00936.1ms     +++|
01196  M00S00937.1ms     +++| CAF      SUBR               ENTRY/EXIT
01197  M00S00938.1ms     +++|          LDD    IR+3        CALCULATE ABSOLUTE FET ADDRESS
01198  M00S00939.1ms     +++|          LPN    37
01199  M00S00940.1ms     +++|          SHN    6
01200  M00S00941.1ms     +++|          ADD    RA
01201  M00S00942.1ms     +++|          SHN    6
01202  M00S00943.1ms     +++|          ADD    IR+4
01203  M00S00944.1ms     +++|          UJN    CAFX        RETURN
Line S00020 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
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  +++|*
Line S00029 Modification History
M01 (Added by) ns2090
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
01213  M02S00029.1ms17   ---|*         USES   CM - CM+4, T0 - T4.
Line S00001 Modification History
M01 (Added by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
01214  M01S00001.1ms17   +++|*         USES   CM - CM+4.
Line S00037 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01215  M01S00037.ns22000 +++|*
01216  M01S00038.ns22000 +++|*         MACROS SFA.
Line S00030 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01217  M01S00030.ns2090  +++|
01218  M01S00031.ns2090  +++|
Line S00002 Modification History
M01 (Added by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
01219  M01S00002.1ms17   +++| CBD1     LDN    0           INDICATE NOT BUFFERED DEVICE
01220  M01S00003.1ms17   +++|
Line S00032 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01221  M01S00032.ns2090  +++| CBD      SUBR               ENTRY/EXIT
01222  M01S00033.ns2090  +++|          LDD    FS
Line S00034 Modification History
M01 (Added by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01223  M02S00034.242l642 ---|          LPC    777
Line S00035 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01224  M01S00035.ns2090  +++|          ZJN    CBDX        IF NO EQUIPMENT
Line S00036 Modification History
M01 (Added by) ns2090
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01225  M02S00036.ns22000 ---|          ADM    ESTS        CHECK FOR MASS STORAGE
Line S00039 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01226  M01S00039.ns22000 +++|          SFA    EST         READ EST ENTRY
01227  M01S00040.ns22000 +++|          ADK    EQDE
Line S00037 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
01228  M01S00037.ns2090  +++|          CRD    CM
01229  M01S00038.ns2090  +++|          LDD    CM
Line S00039 Modification History
M01 (Added by) ns2090
M02 (Removed by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00039.1ms17   ---|          SHN    -13
01231  M02S00040.1ms17   ---|          ZJN    CBDX        IF NOT MASS STORAGE
01232  M02S00041.1ms17   ---|          LDD    CM+4        MST ADDRESS / 10B
01233  M02S00042.1ms17   ---|          SHN    3
01234  M02S00043.1ms17   ---|          ADK    DILL
01235  M02S00044.1ms17   ---|          CRD    T0
01236  M02S00045.1ms17   ---|          LDD    T0+3        GET BUFFERED DEVICE FLAG
01237  M02S00046.1ms17   ---|          SHN    1-12
Line S00004 Modification History
M01 (Added by) 1ms17
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00047 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00945.1ms     +++| CIT      SPACE  4,10
01352  M00S00946.1ms     +++|**        CIT - CLEAR TRACK INTERLOCK.
01353  M00S00947.1ms     +++|*
01354  M00S00948.1ms     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01355  M00S00949.1ms     +++|*
01356  M00S00950.1ms     +++|*         USES   T5.
01357  M00S00951.1ms     +++|*
01358  M00S00952.1ms     +++|*         CALLS  CTI.
01359  M00S00953.1ms     +++|
01360  M00S00954.1ms     +++|
01361  M00S00955.1ms     +++| CIT      SUBR               ENTRY/EXIT
01362  M00S00956.1ms     +++|          LDM    RCRF        CHECK TRACK INTERLOCK FLAG
01363  M00S00957.1ms     +++|          SHN    21-12
01364  M00S00958.1ms     +++|          PJN    CITX        IF TRACK INTERLOCK NOT SET
Line S00959 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01365  M01S00959.242l642 ---|          LPC    377777      CLEAR TRACK INTERLOCK FLAG
01366  M01S00960.242l642 ---|          SHN    12-21+22
01367  M01S00961.242l642 ---|          STM    RCRF
Line S00113 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01368  M01S00113.242l642 +++|          LDC    -2000       CLEAR TRACK INTERLOCK FLAG
01369  M01S00114.242l642 +++|          RAM    RCRF
Line S00962 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01370  M01S00962.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
Line S00041 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01371  M01S00041.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S00963 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01372  M01S00963.ns22000 ---|          LPN    77
01373  M00S00964.1ms     +++|          STD    T5
01374  M00S00965.1ms     +++|          LDD    FS+1        SET FIRST TRACK
01375  M00S00966.1ms     +++|          RJM    CTI         CLEAR TRACK INTERLOCK
01376  M00S00967.1ms     +++|          UJN    CITX        RETURN
01377  M00S00968.1ms     +++| DCC      SPACE  4,10
01378  M00S00969.1ms     +++|**        DCC - DROP CHANNEL WHEN OUTPUT REGISTER CLEAR.
01379  M00S00970.1ms     +++|*
01380  M00S00971.1ms     +++|*         EXIT   (A) = 0.
01381  M00S00972.1ms     +++|*
01382  M00S00973.1ms     +++|*         USES   CM - CM+4.
01383  M00S00974.1ms     +++|*
01384  M00S00975.1ms     +++|*         MACROS ENDMS.
01385  M00S00976.1ms     +++|
01386  M00S00977.1ms     +++|
01387  M00S00978.1ms     +++| DCC2     ENDMS              END MASS STORAGE OPERATION
01388  M00S00979.1ms     +++|
01389  M00S00980.1ms     +++| DCC      SUBR               ENTRY/EXIT
01390  M00S00981.1ms     +++| DCC1     LDD    OA          WAIT OUTPUT REGISTER CLEAR
01391  M00S00982.1ms     +++|          CRD    CM
01392  M00S00983.1ms     +++|          LDD    CM
01393  M00S00984.1ms     +++|          ZJN    DCC2        IF OUTPUT REGISTER CLEAR
01394  M00S00985.1ms     +++|          LDN    77
01395  M00S00986.1ms     +++|          SBN    1
01396  M00S00987.1ms     +++|          NJN    *-1         DELAY
01397  M00S00988.1ms     +++|          UJN    DCC1        REREAD OUTPUT REGISTER
Line S00042 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01398  M01S00042.ns22000 +++| VAL      SPACE  4,10
01399  M01S00043.ns22000 +++|**        VAL - VALIDATE FILE ACCESS LEVEL.
01400  M01S00044.ns22000 +++|*
01401  M01S00045.ns22000 +++|*         ENTRY  (A) = 0 IF VALIDATE FILE READ.
01402  M01S00046.ns22000 +++|*                (A) = 1 IF VALIDATE FILE WRITE.
01403  M01S00047.ns22000 +++|*
01404  M01S00048.ns22000 +++|*         ERROR   TO *ERR* IF VALIDATION ERROR DETECTED.
01405  M01S00049.ns22000 +++|*
01406  M01S00050.ns22000 +++|*         USES   T1, CM - CM+7.
01407  M01S00051.ns22000 +++|*
01408  M01S00052.ns22000 +++|*         MACROS ERROR, MONITOR.
01409  M01S00053.ns22000 +++|
01410  M01S00054.ns22000 +++|
01411  M01S00055.ns22000 +++| VAL      SUBR               ENTRY/EXIT
01412  M01S00056.ns22000 +++|          STD    T1
01413  M01S00057.ns22000 +++|          LDM    OSSM        CHECK O/S SECURITY MODE
01414  M01S00058.ns22000 +++|          ZJN    VALX        IF UNSECURED SYSTEM
01415  M01S00059.ns22000 +++|          LDD    CP          CHECK FOR SUBSYSTEM
01416  M01S00060.ns22000 +++|          ADK    JCIW
01417  M01S00061.ns22000 +++|          CRD    CM+3
01418  M01S00062.ns22000 +++|          ADK    SEPW-JCIW   CHECK FOR SSJ=
01419  M01S00063.ns22000 +++|          CRD    CM
01420  M01S00064.ns22000 +++|          LDD    CM
01421  M01S00065.ns22000 +++|          SHN    21-2
01422  M01S00066.ns22000 +++|          MJN    VALX        IF SSJ=
01423  M01S00067.ns22000 +++|          LDD    CM+3+2
01424  M01S00068.ns22000 +++|          SBK    LSSI+1
01425  M01S00069.ns22000 +++|          PJN    VALX        IF SUBSYSTEM
01426  M01S00070.ns22000 +++|          LDM    JSAL        COMPARE JOB AND FILE ACCESS LEVELS
01427  M01S00071.ns22000 +++|          SBM    FSAL
01428  M01S00072.ns22000 +++| VAL1     ZJN    VALX        IF FILE IS AT JOB ACCESS LEVEL
01429  M01S00073.ns22000 +++|          PJN    VAL3        IF JOB LEVEL .GT. FILE LEVEL
01430  M01S00074.ns22000 +++|          LDD    T1
01431  M01S00075.ns22000 +++|          NJN    VALX        IF WRITE TO FILE
01432  M01S00076.ns22000 +++|          LDM    FSAL        RAISE JOB LEVEL TO FILE LEVEL FOR READ
01433  M01S00077.ns22000 +++|          STD    CM+4
01434  M01S00078.ns22000 +++|          LDN    VJAS
01435  M01S00079.ns22000 +++| VAL2     STD    CM+1
01436  M01S00080.ns22000 +++|          MONITOR  VSAM
01437  M01S00081.ns22000 +++|          LDD    CM+1
01438  M01S00082.ns22000 +++|          ZJN    VAL1        IF ACCESS LEVEL CHANGED
Line S00083 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
01439  M02S00083.1ms16   ---|          ERROR  LNF         *ACCESS LEVEL NOT VALID FOR FILE.*
Line S00010 Modification History
M01 (Added by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
01440  M01S00010.1ms16   +++|          ERROR  LNJ         *JOB ACCESS LEVEL CONFLICT.*
Line S00084 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01441  M01S00084.ns22000 +++|
01442  M01S00085.ns22000 +++| VAL3     LDD    T1
01443  M01S00086.ns22000 +++|          ZJN    VAL1        IF READ FILE
01444  M01S00087.ns22000 +++|          LDD    CP          CHECK WRITE DOWN VALIDATION
01445  M01S00088.ns22000 +++|          ADK    JSCW
01446  M01S00089.ns22000 +++|          CRD    CM
01447  M01S00090.ns22000 +++|          LDD    CM
01448  M01S00091.ns22000 +++|          LPN    40
01449  M01S00092.ns22000 +++|          LMN    40
01450  M01S00093.ns22000 +++|          ZJN    VAL1        IF USER ALLOWED TO WRITE TO LOWER LEVEL
01451  M01S00094.ns22000 +++|          LDM    PMFF
01452  M01S00095.ns22000 +++|          ZJN    VAL4        IF PERMANENT FILE
01453  M01S00096.ns22000 +++|          LDD    FA          GET FNT ADDRESS
01454  M01S00097.ns22000 +++|          STD    CM+3
01455  M01S00098.ns22000 +++|          LDM    JSAL        RAISE FILE TO JOB ACCESS LEVEL FOR WRITE
01456  M01S00099.ns22000 +++|          STD    CM+4
01457  M01S00100.ns22000 +++|          LDN    VSFS
01458  M01S00101.ns22000 +++|          UJN    VAL2        ISSUE *VSAM* MONITOR FUNCTION
01459  M01S00102.ns22000 +++|
01460  M01S00103.ns22000 +++| VAL4     ERROR  WDP         *WRITEDOWN PROHIBITED ON FILE.*
Line S00989 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01461  M01S00989.242l642 ---| MSR      SPACE  4,10
01462  M01S00990.242l642 ---|**        MSR - PROCESS MASS STORAGE ERROR.
01463  M01S00991.242l642 ---|*
01464  M01S00992.242l642 ---|*         USES   CM+3, T7+1.
01465  M01S00993.242l642 ---|*
01466  M01S00994.242l642 ---|*         ERROR  TO *ERR*.
01467  M01S00995.242l642 ---|*
01468  M01S00996.242l642 ---|*         MACROS ERROR.
01469  M01S00997.242l642 ---|
01470  M01S00998.242l642 ---|
01471  M01S00999.242l642 ---| MSR      SUBR               ENTRY/EXIT
01472  M01S01000.242l642 ---|          LDD    T3          SAVE (T3)
01473  M01S01001.242l642 ---|          STD    CM+3
01474  M01S01002.242l642 ---|          LDM    RDCT        SAVE ERROR CODE, T4-T7
01475  M01S01003.242l642 ---|          STD    T7+1
01476  M01S01004.242l642 ---|          LDD    MA
01477  M01S01005.242l642 ---|          CWD    T7+2-5
01478  M01S01006.242l642 ---|          CRM    MRSB,ON
01479  M01S01007.242l642 ---|          CWD    CM+3        SAVE T3, T8, T9
01480  M01S01008.242l642 ---|          CRM    MSRA,ON
01481  M01S01009.242l642 ---|          ERROR  DRE         *DEVICE ERROR ON FILE*
01482  M01S01010.242l642 ---|
01483  M01S01011.242l642 ---|
01484  M01S01012.242l642 ---| MSRA     BSS    5           T3, T8, T9
01485  M01S01013.242l642 ---| MRSB     EQU    *           ERROR CODE, T4 - T7
Line S00115 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01486  M01S00115.242l642 +++|          SPACE  4,10
Line S00116 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
01487  M02S00116.1ms13   ---| DCSA     EQU    * - *+4     T3, RDCT, T5, T6, T7
Line S00001 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
01488  M01S00001.1ms13   +++| DCSA     BSSZ   5           T3, RDCT, T5, T6, T7 SAVE AREA
01489  M00S01014.1ms     +++|          SPACE  4,10
01490  M00S01015.1ms     +++| MSDO     EQU    *+5         MASS STORAGE DRIVER ORIGIN
01491  M00S01016.1ms     +++|          SPACE  4,10
01492  M00S01017.1ms     +++| OVL      EQU    *+5         ZERO LEVEL OVERLAY LOAD ADDRESS
01493  M00S01018.1ms     +++|
01494  M00S01019.1ms     +++|          ERRNG  BFMS-OVL-ZDFL  CHECK LENGTH OF *0DF*
01495  M00S01020.1ms     +++|          TITLE  INITIALIZATION.
01496  M00S01021.1ms     +++| CFE      SPACE  4,15
01497  M00S01022.1ms     +++|**        CFE - CREATE FNT ENTRY.
01498  M00S01023.1ms     +++|*
01499  M00S01024.1ms     +++|*         ENTRY  (FN - FN+3) = FILE NAME.
01500  M00S01025.1ms     +++|*
01501  M00S01026.1ms     +++|*         EXIT   TO *ERS1* IF NFL INCREASE REJECTED.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ms.txt ยท Last modified: (external edit)