92 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1mt     +++|          IDENT  1MT,PRS
00002  M01S00002.1mt     +++|          PERIPH
00003  M01S00003.1mt     +++|          BASE   MIXED
00004  M01S00004.1mt     +++|          SST
00005  M01S00005.1mt     +++|*COMMENT  1MT - PPU MAGNETIC TAPE EXECUTIVE.

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.1mt     +++|          TITLE  1MT - PPU MAGNETIC TAPE EXECUTIVE.
00009  M01S00008.1mt     +++|          SPACE  4,10
00010  M01S00009.1mt     +++|***       1MT - PPU MAGNETIC TAPE EXECUTIVE.
00011  M01S00010.1mt     +++|*         R. E. TATE.        73/01/09.
00012  M01S00011.1mt     +++|*         D. D. SADLER.      74/05/01. (MTS)
00013  M01S00012.1mt     +++|*         L. C. HAAS.        77/07/15. (BLOCK - ID)
00014  M01S00013.1mt     +++|*         R. J. PRIEVE.      77/07/15. (ATS)
00015  M01S00001.274l797 +++|*         C. D. ROWE.        92/02/03. (CTS)
00016  M01S00014.1mt     +++|          SPACE  4,10
00017  M01S00015.1mt     +++|***              1MT - PROCESSES VARIOUS TAPE FUNCTIONS FOR *MAGNET*,
00018  M01S00016.1mt     +++|*         THE CPU MAGNETIC TAPE EXECUTIVE.
00019  M01S00017.1mt     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00018.282l826 ---|***       *MAGNET* INITIALIZATION CALL.
00021  M01S00001.282l826 +++|***       CALL FORMAT.
00022  M01S00019.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00020.282l826 ---|*T,  IR   18/ 1MT,6/0,24/ RSPW,12/ IFL

Figure IR

00024  M01S00002.282l826 +++|*         NORMAL CALL -
00025  M01S00021.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00022.282l826 ---|*         RSPW   *MAGNET* RESPONSE WORD.
00027  M01S00003.282l826 +++|*T,   IR  18/ *1MT*,6/0,12/ 0,12/ CH,12/ CSTA

Figure IR

00028  M01S00004.282l826 +++|*
00029  M01S00005.282l826 +++|*         CH     TAPE CHANNEL NUMBER.
00030  M01S00006.282l826 +++|*         CSTA   CST ADDRESS.
00031  M01S00007.282l826 +++|*
00032  M01S00008.282l826 +++|*         MAGNET INITIALIZATION CALL -
00033  M01S00009.282l826 +++|*
00034  M01S00010.282l826 +++|*T   IR   18/ *1MT*,6/0,12/1,24/ ADDR

Figure IR

00035  M01S00011.282l826 +++|*
00036  M01S00012.282l826 +++|*         ADDR   STATUS WORD ADDRESS.
00037  M01S00013.282l826 +++|*
00038  M01S00014.282l826 +++|*         STATUS WORD FORMAT -
00039  M01S00015.282l826 +++|*
00040  M01S00016.282l826 +++|*T        1/A,47/0,12/ IFL

Figure

00041  M01S00017.282l826 +++|*
00042  M01S00018.282l826 +++|*         A      *1MT* ACTIVE (CLEARED UPON COMPLETION).
00043  M01S00023.1mt     +++|*         IFL    INITIALIZATION FLAGS.
00044  M01S00024.1mt     +++|*                1 = *MAGNET* INITIALIZATION.
00045  M01S00025.1mt     +++|*                3 = LEVEL 3 RECOVERY.

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00026.282l826 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00027.282l826 ---|***       CALL.

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00028.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00029.282l826 ---|*T,   IR  18/ *1MT*,6/0,12/ FLAGS,3/E4,3/E3,3/E2,3/E1,12/0

Figure IR

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00030.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00031.282l826 ---|*         FLAGS.

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00032.282l826 ---|*         13-11  INDEX OF THIS 1MT (1, 3, 5 OR 7).

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00033.282l826 ---|*                /COMSMTX/UITW-1 + INDEX = IMAGE OF INPUT REGISTER.

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00034.282l826 ---|*         10     CHANNEL DOWN INDICATOR.

Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00035.282l826 ---|*         7,6    CONTROLLER TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00056  M03S00036.282l826 ---|*                0 = RESERVED.

Seq #  *Modification Id* Act 
----------------------------+
00057  M04S00037.282l826 ---|*                1 = ATS (67X) OR FSC CONTROLLER.

Seq #  *Modification Id* Act 
----------------------------+
00058  M04S00001.282l826 ---|*                1 = ATS (67X) OR FSC OR ISMT (639) CONTROLLER.

Seq #  *Modification Id* Act 
----------------------------+
00059  M03S00001.282l826 ---|*                1 = ATS/FSC/ISMT/CMTS CONTROLLER.

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00001.282l826 ---|*                0 = ISMT CONTROLLER.

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00002.282l826 ---|*                1 = ATS/CMTS/FSC CONTROLLER.

Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00038.282l826 ---|*                2 = MTS (66X) CONTROLLER.

Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00002.282l826 ---|*                3 = CTS CONTROLLER.

Seq #  *Modification Id* Act 
----------------------------+
00064  M03S00039.282l826 ---|*                3 = MTS CONTROLLER WITH NO BLOCK - ID.

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00040.282l826 ---|*         5      DEDICATED CHANNEL FLAG.

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00041.282l826 ---|*         4-0    CHANNEL NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00042.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00043.282l826 ---|*         E4-E1  EQUIPMENT NUMBERS OF CONTROLLERS ON CHANNEL.
00069  M01S00001.252l678 +++|          SPACE  4,10
00070  M01S00002.252l678 +++|***       ERROR MESSAGES.
00071  M01S00003.252l678 +++|*
00072  M01S00004.252l678 +++|*         NOTE - MESSAGES ARE ISSUED TO THE ERROR LOG IN THE FORM OF A
00073  M01S00005.252l678 +++|*                3 CHARACTER MNEMONIC.  THESE MNEMONICS ARE LISTED IN

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00006.274l797 ---|*                PARANTHESES.
00075  M01S00003.274l797 +++|*                PARENTHESES.
00076  M01S00007.252l678 +++|*
00077  M01S00008.252l678 +++|*         *ERASE LIMIT.*                         (ERA)
00078  M01S00009.252l678 +++|*
00079  M01S00010.252l678 +++|*         THIS MESSAGE IS POSTED IF, (A) IN *PE* OR *GCR*
00080  M01S00011.252l678 +++|*         MODE, IF THE CURRENT BLOCK COULD NOT BE RE-WRITTEN PROPERLY
00081  M01S00012.252l678 +++|*         AFTER FORTY ERASURES, (APPROXIMATELY 15 FEET OF
00082  M01S00013.252l678 +++|*         TAPE), OR (B) IN *NRZI* MODE, THAT THE CURRENT BLOCK
00083  M01S00014.252l678 +++|*         COULD NOT BE RE-WRITTEN DUE TO RECEIVING PARITY ERROR(S)
00084  M01S00015.252l678 +++|*         AFTER FORTY ATTEMPTS TO ERASE A SINGLE AREA ON TAPE.
00085  M01S00016.252l678 +++|*
00086  M01S00017.252l678 +++|*
00087  M01S00018.252l678 +++|*         *MARGINALLY WRITTEN TAPE.*             (MWT)
00088  M01S00019.252l678 +++|*
00089  M01S00020.252l678 +++|*         THIS MESSAGE IS POSTED IF SOME OR ALL OF THE PREVIOUS GOOD
00090  M01S00021.252l678 +++|*         BLOCKS USED TO CREATE THE RECOVERY BLOCK ID WINDOW CANNOT BE
00091  M01S00022.252l678 +++|*         READ WITH ERROR CORRECTION ENABLED DURING REPOSITIONING OF
00092  M01S00023.252l678 +++|*         THE TAPE FOR WRITE RECOVERY.
00093  M01S00024.252l678 +++|*
00094  M01S00025.252l678 +++|*
00095  M01S00026.252l678 +++|*         *POSITION LOST.*                       (PLO)
00096  M01S00027.252l678 +++|*
00097  M01S00028.252l678 +++|*         THIS MESSAGE IS POSTED IF, (A) A BLOCK ID MIS-MATCH
00098  M01S00029.252l678 +++|*         OCCURS OR, (B) IF THE BLOCK ID WINDOW IS ALL ONES IT
00099  M01S00030.252l678 +++|*         INDICATES THAT A NOS TERMINATOR LABEL MIS-MATCH HAS
00100  M01S00031.252l678 +++|*         OCCURRED.  IN EITHER CASE, THE POSITION ON THE TAPE CANNOT
00101  M01S00032.252l678 +++|*         BE ESTABLISHED AND THE JOB MUST BE TERMINATED.
00102  M01S00033.252l678 +++|*
00103  M01S00034.252l678 +++|*
00104  M01S00035.252l678 +++|*         *READ ID BURST FAILURE.*               (BFR)
00105  M01S00036.252l678 +++|*
00106  M01S00037.252l678 +++|*         THIS MESSAGE IS ISSUED TO THE *E,P* DISPLAY IN THE FORM *READ
00107  M01S00038.252l678 +++|*         ID BURST* TO INDICATE THAT THE P.E. OR G.C.R. SPECIAL
00108  M01S00039.252l678 +++|*         CHARACTERS TO BE READ BY THE SUBSYSTEM AT LOAD POINT IS NOT
00109  M01S00040.252l678 +++|*         POSSIBLE.
00110  M01S00041.252l678 +++|*
00111  M01S00042.252l678 +++|*         WHEN THIS MESSAGE APPEARS, THE FOLLOWING ACTIONS SHOULD BE
00112  M01S00043.252l678 +++|*         TAKEN.
00113  M01S00044.252l678 +++|*
00114  M01S00045.252l678 +++|*         THE OPERATOR SHOULD DISMOUNT THE MAGNETIC TAPE FROM THE
00115  M01S00046.252l678 +++|*         UNIT IN QUESTION, CLEAN THE HEAD ASSEMBLY, AND REMOUNT THE
00116  M01S00047.252l678 +++|*         MAGNETIC TAPE.  THE OPERATOR SHOULD THEN ENTER *RETRY,EST.*.
00117  M01S00048.252l678 +++|*         THE SYSTEM WILL THEN RETRY THE ORIGINAL OPERATION FROM LOAD
00118  M01S00049.252l678 +++|*         POINT.  IF NO ERRORS OCCUR, THE JOB WILL CONTINUE NORMAL
00119  M01S00050.252l678 +++|*         PROCESSING.  IF THE ORIGINAL PROBLEM PERSISTS, THE MESSAGE
00120  M01S00051.252l678 +++|*         *READ ID BURST* WILL AGAIN BE ISSUED TO THE *E,P* DISPLAY.
00121  M01S00052.252l678 +++|*         THIS TIME THE OPERATOR OR C.E. SHOULD BE INSTRUCTED TO
00122  M01S00053.252l678 +++|*         ENTER *TERMINATE,EST.* TO ABORT THE OPERATION.  THE
00123  M01S00054.252l678 +++|*         MESSAGE, *READ ID BURST FAILURE*, WILL APPEAR IN THE
00124  M01S00055.252l678 +++|*         DAYFILE.
00125  M01S00056.252l678 +++|*
00126  M01S00057.252l678 +++|*
00127  M01S00058.252l678 +++|*         *REPOSITION CORRECTED ERROR.*          (RCE)
00128  M01S00059.252l678 +++|*
00129  M01S00060.252l678 +++|*         THIS ERROR LOG MESSAGE IS USED TO ALERT THE C.E. TO
00130  M01S00061.252l678 +++|*         THE FACT THAT THE TRANSPORT IS WRITING IN A MARGINAL
00131  M01S00062.252l678 +++|*         STATE.  THIS MESSAGE IS INTENDED TO PREVENT THE GENERATION
00132  M01S00063.252l678 +++|*         OF MARGINAL TAPE BY THE SUBSYSTEM AND IT-S DEVICES.  THIS
00133  M01S00064.252l678 +++|*         MESSAGE IS TO BE CONSIDERED A MARGINAL DRIVE INDICATOR
00134  M01S00065.252l678 +++|*         (MDI) BY THE C.E. AND APPROPRIATE ACTION SHOULD BE TAKEN
00135  M01S00066.252l678 +++|*         IMMEDIATELY.
00136  M01S00067.252l678 +++|*
00137  M01S00068.252l678 +++|*
00138  M01S00069.252l678 +++|*         *TAPE CLEANER FAULT.*                  (TCF)
00139  M01S00070.252l678 +++|*
00140  M01S00071.252l678 +++|*         DRIVER DETECTED FAILURE (TRANSPORT ASSIGNED TO JOB) -
00141  M01S00072.252l678 +++|*
00142  M01S00073.252l678 +++|*         THIS MESSAGE IS ISSUED TO THE *E,P* DISPLAY IN THE
00143  M01S00074.252l678 +++|*         FORM *CLEANER FAULT* TO INDICATE THAT THE TAPE CLEANER
00144  M01S00075.252l678 +++|*         WAS NOT IN THE STOWED POSITION AFTER A *LOAD* OR A
00145  M01S00076.252l678 +++|*         *REWIND*.  THE DRIVER HAS ALREADY UNLOADED THE TRANSPORT
00146  M01S00077.252l678 +++|*         AND THE ASSIGNED JOB IS LOOPING WAITING FOR TRANSPORT TO
00147  M01S00078.252l678 +++|*         COME *READY* AGAIN AND FOR *RETRY,EST.* TO BE ENTERED AT
00148  M01S00079.252l678 +++|*         THE CONSOLE.  IF CORRECTIVE ACTION IS NOT POSSIBLE, THE
00149  M01S00080.252l678 +++|*         OPERATOR OR C.E. SHOULD ENTER *TERMINATE,EST.*  TO
00150  M01S00081.252l678 +++|*         ABORT THE OPERATION.  THE MESSAGE, *TAPE CLEANER
00151  M01S00082.252l678 +++|*         FAULT*, WILL APPEAR IN THE DAYFILE.
00152  M01S00083.252l678 +++|*
00153  M01S00084.252l678 +++|*         SCANNER DETECTED FAILURE (TRANSPORT UNASSIGNED) -
00154  M01S00085.252l678 +++|*
00155  M01S00086.252l678 +++|*         SINCE NO JOB HAS BEEN ASSIGNED TO THE TRANSPORT AT THIS
00156  M01S00087.252l678 +++|*         POINT, CORRECTIVE ACTION CAN BE INITIATED ON THE FAILING
00157  M01S00088.252l678 +++|*         UNIT BY CONTACTING A C.E. AND MOVING THE TAPE REEL TO
00158  M01S00089.252l678 +++|*         ANOTHER UNASSIGNED TRANSPORT.  SINCE THE JOB WAS NEVER
00159  M01S00090.252l678 +++|*         ASSIGNED TO THE FAILING TRANSPORT, THIS UNASSIGNED
00160  M01S00091.252l678 +++|*         TRANSPORT CAN ASSUME THE DUTIES ORIGINALLY INTENDED FOR
00161  M01S00092.252l678 +++|*         THE FAILING DEVICE.  IF NO OTHER TRANSPORT IS AVAILABLE,
00162  M01S00093.252l678 +++|*         AND CORRECTIVE ACTION IS POSSIBLE, AND COMPLETED, THE
00163  M01S00094.252l678 +++|*         TRANSPORT CAN BE RELOADED AND THE JOB SHOULD PROCESS AS
00164  M01S00095.252l678 +++|*         IF NO TAPE CLEANER FAULT EVER OCCURRED.
00165  M01S00096.252l678 +++|*
00166  M01S00097.252l678 +++|*
00167  M01S00098.252l678 +++|*         *WRITE ID BURST FAILURE.*              (BFW)
00168  M01S00099.252l678 +++|*
00169  M01S00100.252l678 +++|*         THIS MESSAGE IS ISSUED TO THE *E,P* DISPLAY IN THE FORM
00170  M01S00101.252l678 +++|*         *WRITE ID BURST* TO INDICATE THAT THE P.E. OR G.C.R. SPECIAL
00171  M01S00102.252l678 +++|*         CHARACTERS TO BE READ BY THE SUBSYSTEM AT LOAD POINT IS NOT
00172  M01S00103.252l678 +++|*         POSSIBLE.
00173  M01S00104.252l678 +++|*
00174  M01S00105.252l678 +++|*         WHEN THIS MESSAGE APPEARS, THE FOLLOWING ACTIONS SHOULD
00175  M01S00106.252l678 +++|*         BE TAKEN.
00176  M01S00107.252l678 +++|*
00177  M01S00108.252l678 +++|*         THE OPERATOR SHOULD DISMOUNT THE MAGNETIC TAPE FROM THE
00178  M01S00109.252l678 +++|*         UNIT IN QUESTION, CLEAN THE HEAD ASSEMBLY, AND REMOUNT THE
00179  M01S00110.252l678 +++|*         MAGNETIC TAPE.  THE OPERATOR SHOULD THEN ENTER *RETRY,EST.*.
00180  M01S00111.252l678 +++|*         THE SYSTEM WILL THEN RETRY THE ORIGINAL OPERATION FROM LOAD
00181  M01S00112.252l678 +++|*         POINT.  IF NO ERRORS OCCUR, THE JOB WILL CONTINUE NORMAL
00182  M01S00113.252l678 +++|*         PROCESSING.  IF THE ORIGINAL PROBLEM PERSISTS, THE MESSAGE
00183  M01S00114.252l678 +++|*         *WRITE ID BURST* WILL AGAIN BE ISSUED TO THE *E,P* DISPLAY.
00184  M01S00115.252l678 +++|*         THIS TIME THE OPERATOR OR C.E. SHOULD BE INSTRUCTED TO
00185  M01S00116.252l678 +++|*         DISMOUNT AND REPLACE THE MAGNETIC TAPE REEL.
00186  M01S00117.252l678 +++|*
00187  M01S00118.252l678 +++|*         WHEN THE NEW REPLACEMENT REEL OF TAPE IS MOUNTED ON THE
00188  M01S00119.252l678 +++|*         TRANSPORT AND THE UNIT GOES *READY* AND *RETRY,EST.* HAS
00189  M01S00120.252l678 +++|*         BEEN ENTERED AT THE CONSOLE, THE LABELS FROM THE DISREGARDED
00190  M01S00121.252l678 +++|*         REEL ARE WRITTEN ON THIS NEW REEL IF LABELED TAPE.  IN
00191  M01S00122.252l678 +++|*         ANY CASE, THE EXTERNAL REEL IDENTIFICATION LABEL MUST BE
00192  M01S00123.252l678 +++|*         TRANSFERRED TO THE REPLACEMENT REEL.  THE EXTERNAL REEL
00193  M01S00124.252l678 +++|*         IDENTIFICATION LABEL ON THE ORIGINAL DEFECTIVE REEL MUST BE
00194  M01S00125.252l678 +++|*         REMOVED TO PREVENT DUPLICATE REEL NUMBERS.
00195  M01S00126.252l678 +++|*
00196  M01S00127.252l678 +++|*         IF THE ORIGINAL PROBLEM HAS BEEN OVERCOME, PROCESSING WILL
00197  M01S00128.252l678 +++|*         CONTINUE AS NORMAL.  IF THE PROBLEM PERSISTS, THE OPERATOR
00198  M01S00129.252l678 +++|*         OR C.E. SHOULD BE INSTRUCTED TO ENTER *TERMINATE,EST.* TO
00199  M01S00130.252l678 +++|*         ABORT THE OPERATION.  THE MESSAGE, *WRITE ID BURST
00200  M01S00131.252l678 +++|*         FAILURE*,  WILL APPEAR IN THE DAYFILE.
00201  M01S00132.252l678 +++|*
00202  M01S00133.252l678 +++|*
00203  M01S00134.252l678 +++|*         *WRITE VERIFY FAILURE.*                (WVF)
00204  M01S00135.252l678 +++|*
00205  M01S00136.252l678 +++|*         THIS MESSAGE IS POSTED IF THE TAPE WAS POSITIONED PROPERLY
00206  M01S00137.252l678 +++|*         AND THE BLOCK ID OF THE WINDOW COULD BE READ CORRECTLY, BUT
00207  M01S00138.252l678 +++|*         THE GAP AND CURRENT BLOCK CANNOT BE READ.
00208  M01S00044.1mt     +++|          SPACE  4,10
00209  M01S00045.1mt     +++|***       DEFINITIONS AND ABBREVIATIONS.
00210  M01S00046.1mt     +++|*
00211  M01S00047.1mt     +++|*         THE FOLLOWING ARE TERMS THAT WILL BE USED THROUGHOUT
00212  M01S00048.1mt     +++|*         THIS ROUTINE.
00213  M01S00049.1mt     +++|*
00214  M01S00050.1mt     +++|*         BID    BLOCK ID.
00215  M01S00051.1mt     +++|*
00216  M01S00052.1mt     +++|*         BOT    BEGINNING OF TAPE.
00217  M01S00053.1mt     +++|*
00218  M01S00054.1mt     +++|*         CHUNK  THIS DEFINES THE PORTION OF A BLOCK HANDLED BY EACH
00219  M01S00055.1mt     +++|*                PPU DURING LONG BLOCK OPERATIONS.
00220  M01S00056.1mt     +++|*
00221  M01S00004.274l797 +++|*         CTS    CARTRIDGE TAPE SUBSYSTEM.
00222  M01S00005.274l797 +++|*
00223  M01S00057.1mt     +++|*         EOT    END OF TAPE.
00224  M01S00058.1mt     +++|*
00225  M01S00059.1mt     +++|*         LGB    LAST GOOD BLOCK.
00226  M01S00060.1mt     +++|*
00227  M01S00061.1mt     +++|*         PCL    PROGRAMMABLE CLIPPING LEVEL.
00228  M01S00062.1mt     +++|*
00229  M01S00063.1mt     +++|*         TM     TAPE MARK.
00230  M01S00064.1mt     +++|*
00231  M01S00065.1mt     +++|*         SNB    SYSTEM NOISE BYTE.
00232  M01S00066.1mt     +++|*
00233  M01S00067.1mt     +++|*         UBC    UNUSED BIT COUNT.  AS USED TO DEFINE THE EXACT NUMBER
00234  M01S00068.1mt     +++|*                OF BYTES AND FRAMES TO BE WRITTEN ON OR READ FROM
00235  M01S00069.1mt     +++|*                TAPE.
00236  M01S00070.1mt     +++|*
00237  M01S00071.1mt     +++|*         UDT    UNIT DESCRIPTOR TABLE.  THE AREA OF *MAGNET,S*
00238  M01S00072.1mt     +++|*                FIELD LENGTH WHICH CONTAINS THE INFORMATION DESCRIBING
00239  M01S00073.1mt     +++|*                EACH TAPE UNIT AND THE CHARACTERISTICS OF THE TAPE
00240  M01S00074.1mt     +++|*                BEING PROCESSED.
00241  M01S00075.1mt     +++|*
00242  M01S00076.1mt     +++|*                EXPLICIT PROCESSOR.  DEFINES A CASE WHERE CERTAIN
00243  M01S00077.1mt     +++|*                UNITS CAN ONLY BE SERVICED BY CERTAIN COPIES
00244  M01S00078.1mt     +++|*                0F *1MT* DUE TO CONFIGURATION RESTRICTIONS.
00245  M01S00079.1mt     +++|          SPACE  4,10
00246  M01S00080.1mt     +++|***       PROGRAMMING CONSIDERATIONS.
00247  M01S00081.1mt     +++|*
00248  M01S00082.1mt     +++|*         IN ORDER TO CONSERVE SPACE, THIS PROGRAM OVERLAYS ITSELF
00249  M01S00083.1mt     +++|*         EXTENSIVELY.  IT IS DESIGNED TO MAKE MAXIMUM USE OF AREAS
00250  M01S00084.1mt     +++|*         THAT ARE NORMALLY SACRED SUCH AS THE 5 BYTE HEADER
00251  M01S00085.1mt     +++|*         ON PPU ROUTINES, FOR EXAMPLE.  PLEASE TAKE DUE CARE
00252  M01S00086.1mt     +++|*         WHEN ATTEMPTING MODIFICATIONS.
00253  M01S00087.1mt     +++|*
00254  M01S00088.1mt     +++|*         READ/WRITE OVERLAY GROUPS MUST BE IN THE FOLLOWING ORDER -
00255  M01S00089.1mt     +++|*         MAIN PROCCESOR.
00256  M01S00090.1mt     +++|*         LONG BLOCK PROCESSOR.
00257  M01S00091.1mt     +++|*         LABEL PROCESSOR.
00258  M01S00092.1mt     +++|*         ERROR PROCESSOR MUST BE LAST.
00259  M01S00093.1mt     +++|*
00260  M01S00094.1mt     +++|*         REMEMBER WHEN READING/WRITING DIRECTLY FROM/TO THE UDT TO BE
00261  M01S00095.1mt     +++|*         SURE THAT *1MT* IS AT *MAGNET,S* CONTROL POINT.
00262  M01S00096.1mt     +++|*
00263  M01S00097.1mt     +++|*         NOTE THE OVERLAY NAMES OF THE FOLLOWING OVERLAYS ARE HARD
00264  M01S00098.1mt     +++|*         CODED INTO EXECUTE MACROS. *LOV* CANNOT BE USED TO LOAD
00265  M01S00099.1mt     +++|*         THESE OVERLAYS BECAUSE THE CHANNEL MAY NOT BE RESERVED
00266  M01S00100.1mt     +++|*         OR CHANNEL PROBLEMS OCCURRED WHICH MUST BE DIAGNOSED
00267  M01S00101.1mt     +++|*         BEFORE ATTEMPTING MORE FUNCTIONS.
00268  M01S00102.1mt     +++|*         3MA - INITIALIZE TAPE EXECUTIVE.

Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00103.274l797 ---|*         3MB - FUNCTION REJECT PROCESSOR.
00270  M01S00006.274l797 +++|*         3MB - FUNCTION REJECT PROCESSOR (ALL EXCEPT CTS).
00271  M01S00104.1mt     +++|*         3MD - ATS/MTS SPECIAL MESSAGE PROCESSOR.
00272  M01S00105.1mt     +++|*
00273  M01S00106.1mt     +++|*         USE THE CROSS REFERENCE TABLES WHEN TAGS ARE SHUFFLED.
00274  M01S00107.1mt     +++|*         IN PARTICULAR THE TAGS IN READ/WRITE ARE REFERENCED BY LONG
00275  M01S00108.1mt     +++|*         BLOCK OVERLAYS AT SEVERAL PLACES.
00276  M01S00109.1mt     +++|          SPACE  4,10
00277  M01S00110.1mt     +++|***       RESIDENCY RECOMMENDATIONS.
00278  M01S00111.1mt     +++|*
00279  M01S00112.1mt     +++|*         THE FOLLOWING IS A SUGGESTED ORDER OF PRIORITY FOR MAKING
00280  M01S00113.1mt     +++|*         ROUTINES CM OR ALTERNATE LIBRARY RESIDENCE.
00281  M01S00114.1mt     +++|*
00282  M01S00115.1mt     +++|*         1)     CONTROL POINT/CODED PRESET.
00283  M01S00116.1mt     +++|*         2)     READ FUNCTION PROCESSOR.
00284  M01S00117.1mt     +++|*         3)     WRITE FUNCTION PROCESSOR.
00285  M01S00118.1mt     +++|*         4)     DROP PPU PROCESSOR.
00286  M01S00119.1mt     +++|*         5)     1MT ITSELF.
00287  M01S00120.1mt     +++|*         6)     *3MB* IF RECOVERY FROM FUNCTION REJECTS DESIRED.
00288  M01S00121.1mt     +++|          SPACE  4,10
00289  M01S00122.1mt     +++|***       DOCUMENTATION CONVENTIONS.
00290  M01S00123.1mt     +++|*
00291  M01S00124.1mt     +++|*         TAG CONVENTIONS.
00292  M01S00125.1mt     +++|*         ASSUME A ROUTINE NAMED *ABC*.
00293  M01S00126.1mt     +++|*         *ABCA* - *ABCZ* WOULD BE CONSTANTS AND INSTRUCTIONS MODIFIED
00294  M01S00127.1mt     +++|*         *.EABC* WOULD BE FOR LOCATIONS REFERENCED BY THE ERROR
00295  M01S00128.1mt     +++|*                PROCESSOR.
00296  M01S00002.ns2466  +++|*
00297  M01S00003.ns2466  +++|*         THE TERM *ATS-TYPE CONTROLLER* MEANS AN ATS, FSC, CMTS OR
00298  M01S00004.ns2466  +++|*         ISMT CONTROLLER.  IF IT IS NECESSARY TO DISTINGUISH BETWEEN
00299  M01S00005.ns2466  +++|*         THESE FOUR TYPES, IT WILL BE EXPLICITLY DOCUMENTED.
00300  M01S00129.1mt     +++|          SPACE  4,10
00301  M01S00130.1mt     +++|**        MISCELLANEOUS SYMBOL DEFINITIONS.
00302  M01S00131.1mt     +++|
00303  M01S00132.1mt     +++|
00304  M01S00001.261l700 +++|*CALL     COMPMAC
00305  M01S00001.ns21000 +++|*CALL     COMSDFS
00306  M01S00133.1mt     +++|*CALL     COMSMSC
00307  M01S00134.1mt     +++|          SPACE  4,10
00308  M01S00135.1mt     +++|**        MICRO DEFINITIONS.
00309  M01S00136.1mt     +++|
00310  M01S00137.1mt     +++|
00311  M01S00138.1mt     +++| VERNUM   MICRO  6,3,+"VER170"+
00312  M01S00139.1mt     +++|          SPACE  4,10
00313  M01S00007.274l797 +++|**        CCC FUNCTION CODES FOR CTS.
00314  M01S00008.274l797 +++|
00315  M01S00009.274l797 +++|
00316  M01S00010.274l797 +++| F0001    EQU    0001        RELEASE UNIT
00317  M01S00011.274l797 +++| F0002    EQU    0002        CONTINUE
00318  M01S00012.274l797 +++| F0010    EQU    0010        REWIND
00319  M01S00013.274l797 +++| F0110    EQU    0110        REWIND/UNLOAD
00320  M01S00014.274l797 +++| F0012    EQU    0012        GENERAL STATUS
00321  M01S00015.274l797 +++| F0013    EQU    0013        FORESPACE BLOCK
00322  M01S00016.274l797 +++| F0016    EQU    0016        LOCATE BLOCK
00323  M01S00017.274l797 +++| F0113    EQU    0113        BACKSPACE BLOCK
00324  M01S00018.274l797 +++| F0112    EQU    0112        DETAILED STATUS
00325  M01S00019.274l797 +++| F0212    EQU    0212        READ BLOCK ID
00326  M01S00020.274l797 +++| F0312    EQU    0312        READ BUFFERED LOG
00327  M01S00021.274l797 +++| F0020    EQU    0020        CONNECT
00328  M01S00001.ns2794  +++| F0220    EQU    0220        CONNECT AND SELECT DATA COMPRESSION
00329  M01S00022.274l797 +++| F0040    EQU    0040        READ FORWARD
00330  M01S00023.274l797 +++| F0140    EQU    0140        READ REVERSE
00331  M01S00024.274l797 +++| F0050    EQU    0050        WRITE
00332  M01S00025.274l797 +++| F0250    EQU    0250        SHORT WRITE
00333  M01S00026.274l797 +++| F0051    EQU    0051        WRITE TAPE MARK
00334  M01S00027.274l797 +++| F0414    EQU    0414        AUTOLOAD
00335  M01S00028.274l797 +++|          SPACE  4,10
00336  M01S00029.274l797 +++|**        TRACE CODE FOR CTS.
00337  M01S00030.274l797 +++|
00338  M01S00031.274l797 +++| TE       EQU    0           = 1 TO ENABLE TRACE BUFFER
00339  M01S00032.274l797 +++|          SPACE  4,10
00340  M01S00033.274l797 +++|**        CCC ERROR CODES FOR CTS.
00341  M01S00034.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00035.ns2794  ---| CE01     EQU    01B         TRANSPORT NOT ON-LINE

Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00036.ns2794  ---| CE32     EQU    32B         DRIVE BUSY

Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00037.ns2794  ---| CE33     EQU    33B         CONTROL UNIT BUSY

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00001.ns2794  ---| CE51     EQU    51B         NO TAPE UNIT CONNECTED
00346  M01S00002.ns2794  +++| CE001    EQU    1           TRANSPORT NOT ON-LINE
00347  M01S00003.ns2794  +++| CE007    EQU    7           DENSITY MARK/BLOCK ID READ FAILURE
00348  M01S00004.ns2794  +++| CE012    EQU    12          WRITE ERROR AT LOAD POINT
00349  M01S00005.ns2794  +++| CE032    EQU    32          DRIVE BUSY
00350  M01S00006.ns2794  +++| CE033    EQU    33          CONTROL UNIT BUSY
00351  M01S00007.ns2794  +++| CE051    EQU    51          NO TAPE UNIT CONNECTED
00352  M01S00038.274l797 +++|          SPACE  4,10
00353  M01S00039.274l797 +++|**        ERPA CODES FOR CTS.
00354  M01S00040.274l797 +++|
00355  M01S00041.274l797 +++| ER33     EQU    0#33        LOAD FAILURE
00356  M01S00042.274l797 +++|          SPACE  4,10
00357  M01S00140.1mt     +++|**        ASSEMBLY CONSTANTS.
00358  M01S00141.1mt     +++|
00359  M01S00142.1mt     +++|
00360  M01S00143.1mt     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00361  M01S00144.1mt     +++| BUFC     EQU    2765        BUFFER CONTROL WORD
00362  M01S00145.1mt     +++| BUF      EQU    BUFC+5      FWA DATA BUFFER
00363  M01S00146.1mt     +++| BUFL     EQU    BUF+5000    CONTROL WORD FOR LEVEL NUMBER
00364  M01S00147.1mt     +++| LBBY     EQU    3600        LONG BLOCK BYTES PER INPUT
00365  M01S00148.1mt     +++| BUFB     EQU    3750        SEE NOTE
00366  M01S00043.274l797 +++| LICH     EQU    12          LI FULL CHUNK COUNT
00367  M01S00044.274l797 +++| LIRW     EQU    400         LI REMAINDER IN WORDS
00368  M01S00149.1mt     +++| CH       EQU    TC          TAPE CHANNEL
00369  M01S00150.1mt     +++| ERLA     EQU    7775-2*500  ERROR PROCESSOR LOAD ADDRESS
00370  M01S00151.1mt     +++| ERLB     EQU    7775-1*500  SPECIAL ERROR PROCESSOR LOAD ADDRESS
00371  M01S00152.1mt     +++| BLKS     EQU    40          BLOCKS TO TRANSFER BEFORE REQUEST SWITCH

Seq #  *Modification Id* Act 
----------------------------+
00372  M02S00002.274l797 ---| BLKX     EQU    3776         BLOCKS TO TRANSFER BEFORE SWITCH (ISMT)
00373  M01S00045.274l797 +++| BLKX     EQU    3776        BLOCKS TO TRANSFER BEFORE SWITCH (ISMT)
00374  M01S00046.274l797 +++| BLKC     EQU    100         BLOCKS TO TRANSFER BEFORE SWITCH (CTS)
00375  M01S00153.1mt     +++| SBLK     EQU    400         BLOCKS TO SKIP BEFORE CHECKING ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00154.274l797 ---| LABL     EQU    80D/2       MAXIMUM LENGTH OF ANY LABEL BLOCK

Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00155.274l797 ---| LABW     EQU    LABL/5      CM WORDS IN LABEL

Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00047.282l826 ---| LABL     EQU    80D/2       LABEL LENGTH (DISPLAY CODE)
00379  M01S00019.282l826 +++| LABL     EQU    80D/2       LABEL LENGTH IN BYTES
00380  M01S00048.274l797 +++| CLBL     EQU    81D*8D/12D  MAXIMUM LENGTH OF ANY LABEL BLOCK (CTS)
00381  M01S00049.274l797 +++| LABW     EQU    80D/2/5     CM WORDS IN LABEL
00382  M01S00020.282l826 +++| SLBY     EQU    2400        SKIP LI FORMAT BYTES PER INPUT

Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00156.252l678 ---| ERAL     EQU    20D         ERASE LIMIT
00384  M01S00139.252l678 +++| ERAL     EQU    45D         ERASE LIMIT SET TO 15 FEET
00385  M01S00157.1mt     +++| BCKS     EQU    3           NUMBER OF BYTES TO CHECKSUM (POWER OF 2)
00386  M01S00158.1mt     +++| LCKS     EQU    5000        LENGTH TO USE IN CHECKSUM OF LONG BLOCKS
00387  M01S00001.1mt22   +++| MXBS     EQU    76          MAXIMUM NUMBER OF CONSECUTIVE BACKSPACES
00388  M01S00002.1mt22   +++|          ERRPL  MXBS-100    MAXIMUM NUMBER OF BACKSPACES TOO LARGE
00389  M01S00159.1mt     +++|
00390  M01S00160.1mt     +++|*         NOTE   BUFB IS BUFFER FOR LONG BLOCK READS AND WRITES
00391  M01S00161.1mt     +++|*                AND ALSO THE ORIGIN ADDRESS FOR READ AND WRITE
00392  M01S00162.1mt     +++|*                ERROR PROCESSING. INCREASING IT,S VALUE WILL
00393  M01S00163.1mt     +++|*                INCREASE THE ALLOWABLE SIZE OF THE READ AND WRITE
00394  M01S00164.1mt     +++|*                LONG BLOCK OVERLAYS AND DECREASE THE MAXIMUM
00395  M01S00165.1mt     +++|*                LENGTH OF THE ERROR PROCESSORS.
00396  M01S00166.1mt     +++|          SPACE  4,10
00397  M01S00167.1mt     +++|**        COMMON DECKS.
00398  M01S00168.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00169.261l700 ---|*CALL     COMPMAC
00400  M01S00170.1mt     +++|*CALL     COMPCHI

Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00050.282l826 ---|          QUAL   ATF

Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00051.282l826 ---|*CALL     COMSATF

Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00052.282l826 ---|          QUAL   *
00404  M01S00171.1mt     +++|          QUAL   COMSCIO
00405  M01S00172.1mt     +++|*CALL     COMSCIO
00406  M01S00173.1mt     +++|          QUAL   *
00407  M01S00174.1mt     +++|          QUAL   CPS
00408  M01S00175.1mt     +++|*CALL     COMSCPS
00409  M01S00176.1mt     +++|          QUAL   *
00410  M01S00177.1mt     +++|          QUAL   EJT
00411  M01S00178.1mt     +++|*CALL     COMSEJT
00412  M01S00179.1mt     +++|          QUAL   *
00413  M01S00021.282l826 +++|          QUAL   EVT
00414  M01S00022.282l826 +++|*CALL     COMSEVT
00415  M01S00023.282l826 +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00180.282l826 ---|          QUAL   EVENT

Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00181.282l826 ---|*CALL     COMSEVT

Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00182.282l826 ---|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00183.282l826 ---|*CALL     COMSMSP

Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00184.282l826 ---|*CALL     COMSMST
00421  M01S00185.1mt     +++|*CALL     COMSPIM
00422  M01S00186.1mt     +++|          QUAL   SRU
00423  M01S00187.1mt     +++| MT$      SET    1           ONLY ASSEMBLE MT INCREMENTS
00424  M01S00188.1mt     +++|*CALL COMSSRU
00425  M01S00189.1mt     +++|          QUAL   *
00426  M01S00190.1mt     +++|          QUAL   SSD
00427  M01S00191.1mt     +++|*CALL     COMSSSD
00428  M01S00192.1mt     +++|          QUAL   *
00429  M01S00193.1mt     +++|*CALL     COMSZOL
00430  M01S00194.1mt     +++|          LIST   X
00431  M01S00195.1mt     +++|          QUAL   MTX
00432  M01S00196.1mt     +++|*CALL     COMSMTX
00433  M01S00197.1mt     +++|          QUAL   *
00434  M01S00198.1mt     +++|          LIST   *
00435  M01S00199.1mt     +++|          SPACE  4,10
00436  M01S00200.1mt     +++|****      DIRECT LOCATION ASSIGNMENTS.
00437  M01S00201.1mt     +++|
00438  M01S00202.1mt     +++|
00439  M01S00203.1mt     +++|          LOC    16
00440  M01S00204.1mt     +++| T8       BSS    1           TEMPORARY
00441  M01S00205.1mt     +++| T9       BSS    1           TEMPORARY

Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00206.282l826 ---| ED       BSS    1           EQUIPMENT AND UNIT

Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00207.282l826 ---| HP       BSS    1           HARDWARE OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00208.282l826 ---| EC       BSS    1           ERROR CODE
00445  M01S00024.282l826 +++| ED       BSS    1           EQUIPMENT DESCRIPTION
00446  M01S00025.282l826 +++| HP       BSS    1           HARDWARE PARAMETERS
00447  M01S00026.282l826 +++| EO       BSS    1           EST ORDINAL
00448  M01S00209.1mt     +++| ES       BSS    1           EXTENDED STATUS
00449  M01S00210.1mt     +++| DS       BSS    1           DEVICE STATUS
00450  M01S00211.1mt     +++| EI       BSS    1           ERROR ITERATIONS
00451  M01S00212.1mt     +++| WP       BSS    1           BID WINDOW POINTER (MTS/ATS)
00452  M01S00213.1mt     +++| BL       BSS    2           BLOCK COUNT

Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00214.282l826 ---| UP       BSS    1           USER OPTIONS
00454  M01S00027.282l826 +++| UP       BSS    1           USER OPTIONS, FLAGS
00455  M01S00215.1mt     +++| LG       BSS    2           LENGTH OF LAST GOOD RECORD
00456  M01S00216.1mt     +++| EP       BSS    2           ERROR PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00217.282l826 ---| DC       BSS    1           DENSITY, CONVERSION
00458  M01S00028.282l826 +++| EC       BSS    1           ERROR CODE
00459  M01S00218.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00219.282l826 ---|*         NEXT 5 BYTES ARE NOT WRITTEN BACK TO THE UDT

Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00220.282l826 ---|*         UPON NORMAL COMPLETION.  THIS IS NOTED BECAUSE SOME

Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00221.282l826 ---|*         OVERLAYS USE THEM AS LOCAL TO OVERLAY CELLS.
00463  M01S00029.282l826 +++|*         THE FOLLOWING FIVE CELLS ARE NOT WRITTEN BACK TO THE UDT ON
00464  M01S00030.282l826 +++|*         REQUEST COMPLETION BECAUSE SOME OVERLAYS USE *WC* AND *OV* AS
00465  M01S00031.282l826 +++|*         LOCAL CELLS.
00466  M01S00222.1mt     +++|
00467  M01S00032.282l826 +++| LT       BSS    1           LABEL TYPE, DEVICE TYPE, REQUESTED DENSITY
00468  M01S00033.282l826 +++| SP       BSS    1           SOFTWARE OPTIONS
00469  M01S00034.282l826 +++| FM       BSS    1           TAPE FORMAT AND NOISE BYTE DEFINITION
00470  M01S00223.1mt     +++| WC       BSS    1           CM WORDS PER PRU
00471  M01S00224.1mt     +++| OV       BSS    1           CHUNK COUNT - LONG BLOCKS

Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00225.ns22000 ---| FM       BSS    1           FORMAT

Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00226.ns22000 ---| EO       BSS    0           EST ORDINAL (11 - 6)

Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00227.ns22000 ---| NB       BSS    1           NOISE BYTES  (5 - 0)

Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00001.282l826 ---| EO       BSS    1           EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00002.282l826 ---| NB       BSS    1           NOISE BYTES (AND FORMAT - SEE *FM*)

Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00228.282l826 ---| SP       BSS    1           SOFTWARE OPTIONS
00478  M01S00229.1mt     +++|          BSS    1           RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00230.251l664 ---| TB       BSS    1           BLOCK TYPE (READ)/READ AHEAD LENGTH (WRITE)
00480  M01S00001.251l664 +++| TB       BSS    1           BLOCK TYPE (READ)
00481  M01S00231.1mt     +++| CF       BSS    1           CHANNEL FLAGS

Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00232.282l826 ---|*                            13 - 11 = PROCESSOR NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00233.282l826 ---|*                            10 = RESERVED
00484  M01S00035.282l826 +++|*                            13 - 10 = RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00234.1mt34   ---|*                            7, 6 = 00 - RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00486  M03S00235.1mt34   ---|*                                 = 01 - ATS OR FSC CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
00487  M03S00003.1mt34   ---|*                                 = 01 - ATS OR FSC OR ISMT CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00006.1mt34   ---|*                                 = 01 - ATS/FSC/ISMT/CMTS CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00236.1mt34   ---|*                                 = 10 - MTS CHANNEL
00490  M01S00003.1mt34   +++|*                            7, 6 = 00 - ISMT CONTROLLER
00491  M01S00004.1mt34   +++|*                                 = 01 - ATS/CMTS/FSC CONTROLLER
00492  M01S00005.1mt34   +++|*                                 = 10 - MTS CONTROLLER
00493  M01S00053.274l797 +++|*                                 = 11 - CTS CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00237.ns21000 ---|*                                 = 11 - MTS CHANNEL WITH NO BLOCK ID

Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00238.282l826 ---|*                            5 - 3 = RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00239.282l826 ---|*                            2 = MONITORING IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00240.282l826 ---|*                            1 = MONITORING TO BE INITIATED
00498  M01S00036.282l826 +++|*                            5 - 1 = RESERVED
00499  M01S00241.1mt     +++|*                            0 = 64 CHARACTER SET FLAG

Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00242.ns22000 ---| RC       BSS    1           RECALL CPU FUNCTON

Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00003.282l826 ---| FM       BSS    1           FORMAT (ALSO IN *NB*)
00502  M01S00037.282l826 +++|          BSS    1           RESERVED
00503  M01S00243.1mt     +++| RS       BSS    1           RETURN STATUS
00504  M01S00244.1mt     +++| FN       BSS    1           FUNCTION NUMBER
00505  M01S00245.1mt     +++| MD       BSS    1           DRIVER MODE FUNCTION
00506  M01S00246.1mt     +++| PA       BSS    1           PARAMETER
00507  M01S00247.1mt     +++| PB       BSS    1           PARAMETER
00508  M01S00248.1mt     +++|          BSS    2           (RA AND FL)
00509  M01S00249.1mt     +++| SC       BSS    1           SCRATCH

Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00250.274l797 ---| BT       BSS    1           BLOCKS TRANSFERED/OVERLAY ENTRY ADDRESS
00511  M01S00054.274l797 +++| BT       BSS    1           BLOCKS TRANSFERRED/OVERLAY ENTRY ADDRESS
00512  M01S00251.1mt     +++| BY       BSS    1           BYTES TO BE PROCESSED
00513  M01S00252.1mt     +++| CN       BSS    5           CM BUFFER
00514  M01S00253.1mt     +++| DF       BSS    1           DROP OUT FLAG (SEE CDO)
00515  M01S00254.1mt     +++|          LOC    *O
00516  M01S00255.1mt     +++|****
00517  M01S00256.1mt     +++|          TITLE  GENERAL USAGE MACROS.
00518  M01S00257.1mt     +++| BUFFER   SPACE  4,10
00519  M01S00258.1mt     +++|**        BUFFER - CHECK FOR BUFFER OVERFLOW.
00520  M01S00259.1mt     +++|*
00521  M01S00260.1mt     +++|*         BUFFER B
00522  M01S00261.1mt     +++|*         B      IF DEFINED MEANS CHECK FOR LONG BLOCK BUFFER (BUFB),
00523  M01S00262.1mt     +++|*                INSTEAD OF *BUF*.
00524  M01S00263.1mt     +++|
00525  M01S00264.1mt     +++|
00526  M01S00265.1mt     +++|          PURGMAC BUFFER
00527  M01S00266.1mt     +++| BUFFER   MACRO  B
00528  M01S00038.282l826 +++|          MACREF BUFFER
00529  M01S00267.1mt     +++|          USE    BUFFER
00530  M01S00268.1mt     +++|          IFC    EQ,*B**,4
00531  M01S00269.1mt     +++|          LIST   M
00532  M01S00270.1mt     +++|          ERRNG  BUFC-*      OVERFLOWED INTO BUFFER
00533  M01S00271.1mt     +++|          LIST   *
00534  M01S00272.1mt     +++|          ELSE   3
00535  M01S00273.1mt     +++|          LIST   M
00536  M01S00274.1mt     +++|          ERRNG  BUFB-*      OVERFLOWED INTO BUFFER
00537  M01S00275.1mt     +++|          LIST   *
00538  M01S00276.1mt     +++|          ENDM
00539  M01S00277.1mt     +++| CALL     SPACE  4,10
00540  M01S00278.1mt     +++|**        CALL - LOAD AND ENTER OVERLAY AT DEFINED ENTRY POINT.
00541  M01S00279.1mt     +++|*
00542  M01S00280.1mt     +++|*
00543  M01S00281.1mt     +++|*         CALL   EPR
00544  M01S00282.1mt     +++|*         ENTRY  *EPR* = DESIRED ENTRY POINT AS DEFINED BY ENTRY MACRO.
00545  M01S00283.1mt     +++|
00546  M01S00284.1mt     +++|
00547  M01S00285.1mt     +++|          PURGMAC CALL
00548  M01S00286.1mt     +++|
00549  M01S00287.1mt     +++| CALL     MACRO  EPR
00550  M01S00039.282l826 +++|          MACREF CALL
00551  M01S00288.1mt     +++|          LDN    EPR/10000
00552  M01S00289.1mt     +++|          RJM    LOV
00553  M01S00290.1mt     +++|          ENDM
00554  M01S00291.1mt     +++| C6364    SPACE  4,10
00555  M01S00292.1mt     +++|**        C6463 - GENERATE TABLE FOR MODIFICATION OF CONVERSION TABLES
00556  M01S00293.1mt     +++|*         FROM 64 TO 63 CHARACTER SET.
00557  M01S00294.1mt     +++|*
00558  M01S00295.1mt     +++|*         C6463  MAC,CH,P
00559  M01S00296.1mt     +++|*         ENTRY  *MAC* = MACRO TO BE CALLED TO GENERATE CHARACTERS.
00560  M01S00297.1mt     +++|*                *CH* = CHARACTER.
00561  M01S00298.1mt     +++|*                *P* = IF DEFINED, 1 ADDRESS BYTE AND 2 MODIFICATION
00562  M01S00299.1mt     +++|*                BYTES WILL BE GENERATED AND PLACED IN A SEPARATE TABLE.
00563  M01S00300.1mt     +++|
00564  M01S00301.1mt     +++|
00565  M01S00302.1mt     +++| C6463    MACRO  A,B,P
00566  M01S00303.1mt     +++|          LOCAL  C,D
00567  M01S00304.1mt     +++| C        BSS    0
00568  M01S00305.1mt     +++|          LOC    *O
00569  M01S00306.1mt     +++| D        BSS    0
00570  M01S00307.1mt     +++|          LOC    C
00571  M01S00308.1mt     +++|          IFC    EQ,*P**
00572  M01S00309.1mt     +++| C63      RMT
00573  M01S00310.1mt     +++|          CON    D-1
00574  M01S00311.1mt     +++|          A      B
00575  M01S00312.1mt     +++| C63      RMT
00576  M01S00313.1mt     +++|          ELSE
00577  M01S00314.1mt     +++| C63P     RMT
00578  M01S00315.1mt     +++|          CON    D-2
00579  M01S00316.1mt     +++|          A      B
00580  M01S00317.1mt     +++| C63P     RMT
00581  M01S00318.1mt     +++|          ENDIF
00582  M01S00319.1mt     +++|          ENDM
00583  M01S00320.1mt     +++| ENTRY    SPACE  4,10
00584  M01S00321.1mt     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00585  M01S00322.1mt     +++|*
00586  M01S00323.1mt     +++|*
00587  M01S00324.1mt     +++|*         ENTRY  NAME
00588  M01S00325.1mt     +++|*         ENTRY  *NAME* = NAME OF ENTRY ADDRESS.
00589  M01S00326.1mt     +++|
00590  M01S00327.1mt     +++|
00591  M01S00328.1mt     +++|          PURGMAC ENTRY
00592  M01S00329.1mt     +++|
00593  M01S00330.1mt     +++| ENTRY    MACRO  NAME
00594  M01S00040.282l826 +++|          MACREF ENTRY
00595  M01S00331.1mt     +++|          QUAL
00596  M01S00332.1mt     +++| NAME     EQU    *+1R".MA"*10000
00597  M01S00333.1mt     +++|          QUAL   ".QNAM"
00598  M01S00334.1mt     +++|          ENDM
00599  M01S00335.1mt     +++| ERROVL   SPACE  4,10
00600  M01S00336.1mt     +++|**        ERROVL - TEST FOR OVERFLOW INTO ERROR PROCESSOR.
00601  M01S00337.1mt     +++|*
00602  M01S00338.1mt     +++|*         ERROVL A
00603  M01S00339.1mt     +++|*         A      IF DEFINED USE INSTEAD OF ORIGIN ADDRESS FOR OVERFLOW.
00604  M01S00340.1mt     +++|
00605  M01S00341.1mt     +++|          PURGMAC ERROVL
00606  M01S00342.1mt     +++|
00607  M01S00343.1mt     +++|
00608  M01S00344.1mt     +++| ERROVL   MACRO  A
00609  M01S00041.282l826 +++|          MACREF ERROVL
00610  M01S00345.1mt     +++|          IFC    NE,/A//
00611  M01S00346.1mt     +++|          LIST   M
00612  M01S00347.1mt     +++|          ERRNG  ERLA-A      OVERFLOWED INTO BUFFER
00613  M01S00348.1mt     +++|          LIST   *
00614  M01S00349.1mt     +++|          ELSE
00615  M01S00350.1mt     +++|          LIST   M
00616  M01S00351.1mt     +++|          ERRNG  ERLA-*      OVERFLOWED INTO BUFFER
00617  M01S00352.1mt     +++|          LIST   *
00618  M01S00353.1mt     +++|          ENDIF
00619  M01S00354.1mt     +++|          ENDM
00620  M01S00355.1mt     +++| JMP      SPACE  4,10
00621  M01S00356.1mt     +++|**        JMP - THREADED JUMP.
00622  M01S00357.1mt     +++|*
00623  M01S00358.1mt     +++|*
00624  M01S00359.1mt     +++|*         JMP    ADDR
00625  M01S00360.1mt     +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00626  M01S00361.1mt     +++|
00627  M01S00362.1mt     +++|
00628  M01S00363.1mt     +++| JMP      MACRO  ADDR
00629  M01S00364.1mt     +++|          IF     -DEF,.ADDR,1
00630  M01S00365.1mt     +++| .ADDR    MAX    ADDR,*-40
00631  M01S00366.1mt     +++|          IFGT   .ADDR,*-40
00632  M01S00367.1mt     +++|          UJN    .ADDR
00633  M01S00368.1mt     +++| .ADDR    SET    *-1
00634  M01S00369.1mt     +++|          ELSE   2
00635  M01S00370.1mt     +++| .ADDR    SET    *
00636  M01S00371.1mt     +++|          LJM    ADDR
00637  M01S00372.1mt     +++|          ENDM
00638  M01S00373.1mt     +++| SADT     SPACE  4,35
00639  M01S00374.1mt     +++|**        SADT - SET ADDRESS TABLE MACRO.
00640  M01S00375.1mt     +++|*         THIS MACRO WILL GENERATE THE TABLE ENTRIES NECESSARY TO
00641  M01S00376.1mt     +++|*         PROVIDE SETTING ADDRESSES IN THE FOLLOWING 24 BIT
00642  M01S00377.1mt     +++|*         INSTRUCTION.  ONE, TWO, OR THREE SETS OF TABLE ENTRIES
00643  M01S00378.1mt     +++|*         ARE GENERATED DEPENDING ON THE VALUE OF *.IM*.  THE FIRST
00644  M01S00379.1mt     +++|*         SET OF TABLE ENTRIES IS FOR THE CURRENT OVERLAY.  THE ONE OR
00645  M01S00380.1mt     +++|*         TWO ADDITIONAL ONES WILL BE GENERATED BASED ON THE FOLLOWING-
00646  M01S00381.1mt     +++|*
00647  M01S00382.1mt     +++|*         IF .IM .NE. 0, A SET OF TABLE ENTRIES IS GENERATED FOR THE
00648  M01S00383.1mt     +++|*         ERROR PROCESSORS THAT FOLLOW.
00649  M01S00384.1mt     +++|*
00650  M01S00385.1mt     +++|*         IF .IM = 2, A SET OF ADDRESSES IS GENERATED FOR THE LONG
00651  M01S00386.1mt     +++|*         BLOCK ROUTINE THAT FOLLOWS.
00652  M01S00387.1mt     +++|*
00653  M01S00388.1mt     +++|*SADT     MACRO  DC,C,BIAS,ABS,SE
00654  M01S00389.1mt     +++|*
00655  M01S00390.1mt     +++|*         DC = DIRECT CELLS WHERE 17 BIT ADDRESS VALUE IS TO BE TAKEN
00656  M01S00391.1mt     +++|*         FROM.
00657  M01S00392.1mt     +++|*         CF = IF *C* COMPLEMENT RESULT OF ABOVE.
00658  M01S00393.1mt     +++|*         BIAS = VALUE TO BE ADDED TO CONTENTS OF DIRECT CELLS.
00659  M01S00394.1mt     +++|*         (MAXIMUM VALUE IS 7)
00660  M01S00395.1mt     +++|*         ABS = IF *A* ADD RA TO ADDRESS.
00661  M01S00396.1mt     +++|*         SE = IF PRESENT, GENERATE ONLY ONE SET OF TABLE ENTRIES.
00662  M01S00397.1mt     +++|*
00663  M01S00398.1mt     +++|*         TABLE FORMAT.
00664  M01S00399.1mt     +++|*         2 WORDS PER ENTRY.
00665  M01S00400.1mt     +++|*
00666  M01S00401.1mt     +++|*T        11/ ADDRESS,1/C,6/ DC,3/ BI,1/A,2/

Figure

00667  M01S00402.1mt     +++|*         C      COMPLEMENT IF SET.
00668  M01S00403.1mt     +++|*         DC     POINTER TO DIRECT CELL CONTAINING VALUE.
00669  M01S00404.1mt     +++|*         BI     BIAS (AMOUNT TO ADD TO VALUE FROM DIRECT CELLS).
00670  M01S00405.1mt     +++|*         A      ABSOLUTE FLAG.
00671  M01S00406.1mt     +++|
00672  M01S00407.1mt     +++|
00673  M01S00408.1mt     +++| SADT     MACRO  DC,CF,BIAS,ABS,SE
00674  M01S00409.1mt     +++|          LOCAL  Z,X
00675  M01S00410.1mt     +++|          QUAL
00676  M01S00411.1mt     +++| Z        BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00412.274l797 ---|          ERRNG  3777-Z      ADDRESS TO LARGE FOR MODIFICATION TABLE
00678  M01S00055.274l797 +++|          ERRNG  3777-Z      ADDRESS TOO LARGE FOR MODIFICATION TABLE
00679  M01S00413.1mt     +++|          QUAL   ".QNAM"
00680  M01S00414.1mt     +++| X        BSS    0
00681  M01S00415.1mt     +++| SADT     RMT
00682  M01S00416.1mt     +++|          VFD    11/X
00683  M01S00417.1mt     +++|          IFC    EQ,*CF*C*,2
00684  M01S00418.1mt     +++|          VFD    1/1         COMPLEMENT FLAG
00685  M01S00419.1mt     +++|          ELSE   3
00686  M01S00420.1mt     +++|          VFD    1/0
00687  M01S00421.1mt     +++|          IFC    NE,*CF**,1

Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00422.v23l617 ---|          ERR    ILLEGAL COMPLEMENT FLAG
00689  M01S00004.v23l617 +++|          ERR    INCORRECT COMPLEMENT FLAG
00690  M01S00423.1mt     +++|          VFD    6/DC
00691  M01S00424.1mt     +++|          VFD    3/BIAS
00692  M01S00425.1mt     +++|          IFC    EQ,*ABS*A*,2
00693  M01S00426.1mt     +++|          VFD    1/1
00694  M01S00427.1mt     +++|          ELSE   3
00695  M01S00428.1mt     +++|          VFD    1/0
00696  M01S00429.1mt     +++|          IFC    NE,*ABS**,1

Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00430.v23l617 ---|          ERR    ILLEGAL ABSOLUTE FLAG
00698  M01S00005.v23l617 +++|          ERR    INCORRECT ABSOLUTE FLAG
00699  M01S00431.1mt     +++|          VFD    2/0
00700  M01S00432.1mt     +++|          RMT
00701  M01S00433.1mt     +++| .L1      IFEQ   .IM,2
00702  M01S00434.1mt     +++| SLBP     RMT
00703  M01S00435.1mt     +++|          VFD    11/Z
00704  M01S00436.1mt     +++| .L2      IFC    EQ,*CF*C*
00705  M01S00437.1mt     +++|          VFD    1/1         COMPLEMENT FLAG
00706  M01S00438.1mt     +++| .L2      ELSE
00707  M01S00439.1mt     +++|          VFD    1/0
00708  M01S00440.1mt     +++| .L2      ENDIF
00709  M01S00441.1mt     +++|          VFD    6/DC
00710  M01S00442.1mt     +++|          VFD    3/BIAS
00711  M01S00443.1mt     +++| .L3      IFC    EQ,*ABS*A*
00712  M01S00444.1mt     +++|          VFD    1/1
00713  M01S00445.1mt     +++| .L3      ELSE
00714  M01S00446.1mt     +++|          VFD    1/0
00715  M01S00447.1mt     +++| .L3      ENDIF
00716  M01S00448.1mt     +++|          VFD    2/0
00717  M01S00449.1mt     +++|          RMT
00718  M01S00450.1mt     +++| .L1      ENDIF
00719  M01S00451.1mt     +++| .S1      IFNE   .IM,0
00720  M01S00452.1mt     +++| .S6      IFC    EQ,$SE$$
00721  M01S00453.1mt     +++|
00722  M01S00454.1mt     +++|*         MAKE ERROR OVERLAY TABLE.
00723  M01S00455.1mt     +++|
00724  M01S00456.1mt     +++|          ERRNG  BUFB-Z      ADDRESS OVERFLOWS ERROR OVERLAY
00725  M01S00457.1mt     +++| SERR     RMT
00726  M01S00458.1mt     +++|          VFD    11/Z
00727  M01S00459.1mt     +++| .S2      IFC    EQ,*CF*C*
00728  M01S00460.1mt     +++|          VFD    1/1         COMPLEMENT FLAG
00729  M01S00461.1mt     +++| .S2      ELSE
00730  M01S00462.1mt     +++|          VFD    1/0
00731  M01S00463.1mt     +++| .S2      ENDIF
00732  M01S00464.1mt     +++|          VFD    6/DC
00733  M01S00465.1mt     +++|          VFD    3/BIAS
00734  M01S00466.1mt     +++| .S3      IFC    EQ,*ABS*A*
00735  M01S00467.1mt     +++|          VFD    1/1
00736  M01S00468.1mt     +++| .S3      ELSE
00737  M01S00469.1mt     +++|          VFD    1/0
00738  M01S00470.1mt     +++| .S3      ENDIF
00739  M01S00471.1mt     +++|          VFD    2/0
00740  M01S00472.1mt     +++|          RMT
00741  M01S00473.1mt     +++|
00742  M01S00474.1mt     +++|*         MAKE MTS ERROR OVERLAY TABLE.
00743  M01S00475.1mt     +++|
00744  M01S00476.1mt     +++| SMER     RMT
00745  M01S00477.1mt     +++|          VFD    11/Z
00746  M01S00478.1mt     +++| .S4      IFC    EQ,*CF*C*
00747  M01S00479.1mt     +++|          VFD    1/1
00748  M01S00480.1mt     +++| .S4      ELSE
00749  M01S00481.1mt     +++|          VFD    1/0
00750  M01S00482.1mt     +++| .S4      ENDIF
00751  M01S00483.1mt     +++|          VFD    6/DC
00752  M01S00484.1mt     +++|          VFD    3/BIAS
00753  M01S00485.1mt     +++| .S5      IFC    EQ,*ABS*A*
00754  M01S00486.1mt     +++|          VFD    1/1
00755  M01S00487.1mt     +++| .S5      ELSE
00756  M01S00488.1mt     +++|          VFD    1/0
00757  M01S00489.1mt     +++| .S5      ENDIF
00758  M01S00490.1mt     +++|          VFD    2/0
00759  M01S00491.1mt     +++|          RMT
00760  M01S00492.1mt     +++| .S6      ENDIF
00761  M01S00493.1mt     +++| .S1      ENDIF
00762  M01S00494.1mt     +++|          ENDM
00763  M01S00495.1mt     +++|          SPACE  4,10
00764  M01S00496.1mt     +++|**        THE FOLLOWING CONSTANTS ARE USED IN CALLING THE INSTRUCTION
00765  M01S00497.1mt     +++|*         MODIFICATION MACRO TO DEFINE THE RELATIVE ADDRESS WHERE THE
00766  M01S00498.1mt     +++|*         VALUES WILL BE SET.
00767  M01S00499.1mt     +++|
00768  M01S00500.1mt     +++|          LOC    T2
00769  M01S00501.1mt     +++| .FT      BSS    2           FIRST
00770  M01S00502.1mt     +++| .LM      BSS    2           LIMIT
00771  M01S00503.1mt     +++| .FE      BSS    2           FET ADDRESS
00772  M01S00504.1mt     +++| .LF      BSS    2           LIMIT - FIRST
00773  M01S00505.1mt     +++| .BS      BSS    2           BLOCK SIZE
00774  M01S00506.1mt     +++|          LOC    *O
00775  M01S00507.1mt     +++| TSAD     SPACE  4,10
00776  M01S00508.1mt     +++|**        TSAD - DEFINE SET ADDRESS TABLE.
00777  M01S00509.1mt     +++|*         TABLE IS TERMINATED BY A 0 WORD.
00778  M01S00510.1mt     +++|*
00779  M01S00511.1mt     +++|*
00780  M01S00512.1mt     +++|*LOC      TSAD   B
00781  M01S00513.1mt     +++|*         ENTRY  *LOC* = FWA OF SET ADDRESS TABLE.
00782  M01S00514.1mt     +++|*                *B* = IF PRESENT NAME OF REMOTE CODE.
00783  M01S00515.1mt     +++|
00784  M01S00516.1mt     +++|
00785  M01S00517.1mt     +++|          MACRO  TSAD,A,B
00786  M01S00518.1mt     +++| A        BSS    0
00787  M01S00519.1mt     +++| SADT     HERE
00788  M01S00520.1mt     +++|          IFC    NE,*B**,1
00789  M01S00521.1mt     +++| B        HERE
00790  M01S00522.1mt     +++|          CON    0           TERMINATE TABLE
00791  M01S00523.1mt     +++|          ENDM
00792  M01S00524.1mt     +++|          TITLE  OVERLAY COMMUNICATION MACROS.
00793  M01S00525.1mt     +++|*         OVERLAY CONTROL.
00794  M01S00526.1mt     +++|
00795  M01S00527.1mt     +++|
00796  M01S00528.1mt     +++| .NA      SET    0
00797  M01S00529.1mt     +++| ADNAM    SPACE  4,10
00798  M01S00530.1mt     +++|**        ADNAM - ADVANCE OVERLAY NAME MACRO.
00799  M01S00531.1mt     +++|*         ADVANCES OVERLAY NAME.
00800  M01S00532.1mt     +++|
00801  M01S00533.1mt     +++|
00802  M01S00534.1mt     +++|          PURGMAC ADNAM
00803  M01S00535.1mt     +++| ADNAM    MACRO
00804  M01S00536.1mt     +++| .NA      SET    .NA+1
00805  M01S00537.1mt     +++| .MA      MICRO  .NA,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00806  M01S00538.1mt     +++| .OA      MICRO  1,3, 3M".MA"
00807  M01S00539.1mt     +++|          ENDM
00808  M01S00540.1mt     +++| OVERLAY  SPACE  4,15
00809  M01S00541.1mt     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00810  M01S00542.1mt     +++|*
00811  M01S00543.1mt     +++|*         NOTE   AT PRESET TIME IN AN OVERLAY THE UNIT MAY OR MAY
00812  M01S00544.1mt     +++|*                NOT BE CONNECTED DEPENDING ON WHETHER THE CHANNEL
00813  M01S00545.1mt     +++|*                IS DEDICATED.  THUS, NO CHANNEL OPERATIONS CAN BE DONE

Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00546.274l797 ---|*                IN PRESET.  ALSO ABNORMAL ERROR EXITS MSUT BE DONE
00815  M01S00056.274l797 +++|*                IN PRESET.  ALSO ABNORMAL ERROR EXITS MUST BE DONE
00816  M01S00547.1mt     +++|*                BY FIRST COMPLETING THE OVERLAY LOAD.  FOR EXAMPLE
00817  M01S00548.1mt     +++|*                SEE THE BEGINNING OF PRESET IN THE WRITE OVERLAY.
00818  M01S00549.1mt     +++|*
00819  M01S00550.1mt     +++|*         OVERLAY (TEXT),LDA,PRS,QN
00820  M01S00551.1mt     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLE.
00821  M01S00552.1mt     +++|*                *LDA* = LOAD ADDRESS.  (IF ABSENT ASSUMES *OVL*.
00822  M01S00553.1mt     +++|*                *PRS* = IF PRESENT DO NOT GENERATE CALL TO *PRS*.
00823  M01S00554.1mt     +++|*                *QN* = QUALIFIER NAME.  (OVERLAY NAME IF ABSENT.)
00824  M01S00555.1mt     +++|
00825  M01S00556.1mt     +++|
00826  M01S00557.1mt     +++|          PURGMAC OVERLAY
00827  M01S00558.1mt     +++|
00828  M01S00559.1mt     +++| OVERLAY  MACRO  TEXT,LDA,P,QN
00829  M01S00560.1mt     +++|          LOCAL  A
00830  M01S00561.1mt     +++|          USE OVERLAY
00831  M01S00562.1mt     +++|          QUAL
00832  M01S00563.1mt     +++|          ADNAM              ADVANCE OVERLAY NAME
00833  M01S00564.1mt     +++|          IFC    NE,*QN**,3
00834  M01S00565.1mt     +++| .QNAM    MICRO  1,, QN
00835  M01S00566.1mt     +++|          QUAL   QN
00836  M01S00567.1mt     +++|          ELSE   2
00837  M01S00568.1mt     +++| .QNAM    MICRO  1,, ".OA"
00838  M01S00569.1mt     +++|          QUAL   ".OA"
00839  M01S00570.1mt     +++|          TTL    1MT/".OA" - TEXT
00840  M01S00571.1mt     +++|          TITLE
00841  M01S00572.1mt     +++| LOAD     MICRO  1,3,*OVL*
00842  M01S00573.1mt     +++|          IFC    NE,*LDA**,1
00843  M01S00574.1mt     +++| LOAD     MICRO  1,,*LDA*
00844  M01S00575.1mt     +++|          IDENT  ".OA","LOAD"  TEXT
00845  M01S00576.1mt     +++|*COMMENT  1MT - TEXT

Seq #  *Modification Id* Act 
----------------------------+
00846  M02S00577.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
00847  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00848  M01S00578.1mt     +++|          ORG    "LOAD"
00849  M01S00579.1mt     +++|          IFC    EQ,*P**
00850  M01S00580.1mt     +++| PRSX     LJM    *
00851  M01S00581.1mt     +++|          LJM    PRS
00852  M01S00582.1mt     +++|          ENDIF
00853  M01S00583.1mt     +++| .IM      SET    0           DESELECT ERROR PROCESSOR INSTRUCTION LIST
00854  M01S00584.1mt     +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00585.282l826 ---| CMOT     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00586.282l826 ---|**        CMOT - CREATE CHANNEL TABLE ENTRY FOR MONITORING.

Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00587.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00858  M02S00588.282l826 ---|*         CMOT   ADDR

Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00589.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00590.282l826 ---|*         ENTRY  ADDR = ADDRESS TO INSERT IN CHANNEL TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00591.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00592.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
00863  M02S00593.282l826 ---|          PURGMAC CMOT

Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00594.282l826 ---| CMOT     MACRO  A

Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00595.282l826 ---|          LOCAL  B

Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00596.282l826 ---| B        EQU    A

Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00597.282l826 ---| CMOT     RMT

Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00598.282l826 ---|          CON    B

Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00599.282l826 ---| CMOT     RMT

Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00600.282l826 ---|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00601.282l826 ---| TMOT     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00602.282l826 ---|**        TMOT - DEFINE CHANNEL TABLE FOR MONITORING.

Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00603.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00874  M02S00604.282l826 ---|*LOC      TMOT

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00605.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00606.282l826 ---|*         ENTRY  LOC = FWA OF TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00607.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
00878  M02S00608.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00609.282l826 ---|          PURGMAC TMOT

Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00610.282l826 ---|          MACRO  TMOT,A

Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00611.282l826 ---| A        BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00882  M02S00612.282l826 ---| CMOT     HERE

Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00613.282l826 ---|          CON    0           TERMINATE TABLE

Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00614.282l826 ---|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00615.282l826 ---| CMMT     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00886  M02S00616.282l826 ---|**        CMMT - CREATE CHANNEL TABLE ENTRY FOR MONITORING

Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00617.282l826 ---|*         IN MAIN CODE.

Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00618.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00619.282l826 ---|*         CMMT   ADDR

Seq #  *Modification Id* Act 
----------------------------+
00890  M02S00620.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00621.282l826 ---|*         ENTRY  ADDR = ADDRESS TO INSERT IN CHANNEL TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00892  M02S00622.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00623.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00624.282l826 ---|          PURGMAC CMMT

Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00625.282l826 ---| CMMT     MACRO  A

Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00626.282l826 ---|          LOCAL  B

Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00627.282l826 ---| B        EQU    A

Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00628.282l826 ---| CMMT     RMT

Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00629.282l826 ---|          CON    B

Seq #  *Modification Id* Act 
----------------------------+
00900  M02S00630.282l826 ---| CMMT     RMT

Seq #  *Modification Id* Act 
----------------------------+
00901  M02S00631.282l826 ---|          ENDM
00902  M01S00632.1mt     +++|          SPACE  4,10
00903  M01S00633.1mt     +++|**        MAKE SURE THAT 1MT SYMBOL *LBBY* IS 5 TIMES GREATER
00904  M01S00634.1mt     +++|*         THAN COMSMTX SYMBOL *LBWD*.
00905  M01S00635.1mt     +++|
00906  M01S00636.1mt     +++|
00907  M01S00637.1mt     +++| ASCK     EQU    /MTX/LBWD*5
00908  M01S00638.1mt     +++|          ERRNZ  ASCK-LBBY   IF LONG BLOCK DEFINITIONS OUT OF SYNC
00909  M01S00639.1mt     +++|          TITLE  MAIN PROGRAM.
00910  M01S00640.1mt     +++| 1MT      SPACE  4,10
00911  M01S00641.1mt     +++|**        1MT - MAIN PROGRAM.
00912  M01S00642.1mt     +++|
00913  M01S00643.1mt     +++|
00914  M01S00644.1mt     +++|          ORG    PPFW
00915  M01S00645.1mt     +++| PRS      LJM    /PRESET/PRS  PRESET MAIN PROGRAM
00916  M01S00646.1mt     +++| RET      EQU    PRS
00917  M01S00647.1mt     +++| RET      SPACE  4,10
00918  M01S00648.1mt     +++|**        RET - STANDARD RETURN POINTS.
00919  M01S00649.1mt     +++|*
00920  M01S00650.1mt     +++|*         CALLS  CEC, UAD.
00921  M01S00651.1mt     +++|
00922  M01S00652.1mt     +++|
00923  M01S00653.1mt     +++|*         RET - SET FET COMPLETE. (A) = FET COMPETION CODE.
00924  M01S00654.1mt     +++|
00925  M01S00655.1mt     +++|*RET      RJM    CEC         SET FET COMPLETE (SETUP IN PRESET)
00926  M01S00656.1mt     +++|
00927  M01S00657.1mt     +++|*         RET1 - NORMAL COMPLETION.
00928  M01S00658.1mt     +++|
00929  M01S00659.1mt     +++| RET1     LDN    /MTX/NCP
00930  M01S00660.1mt     +++|          UJN    RET5        RETURN NORMAL COMPLETION STATUS
00931  M01S00661.1mt     +++|
00932  M01S00662.1mt     +++|*         RET2 - REQUEUE.
00933  M01S00663.1mt     +++|
00934  M01S00664.1mt     +++| RET2     LDN    0
00935  M01S00665.1mt     +++|          UJN    RET5        REQUEUE REQUEST
00936  M01S00666.1mt     +++|
00937  M01S00667.1mt     +++|*         RET3 - RETURN WITH ERROR. (A) = ERROR CODE.
00938  M01S00668.1mt     +++|
00939  M01S00669.1mt     +++| RET3     STD    EC
00940  M01S00670.1mt     +++|
00941  M01S00671.1mt     +++|*         RET4 - RETURN WITH ERROR. (EC) = ERROR CODE.
00942  M01S00672.1mt     +++|
00943  M01S00673.1mt     +++| RET4     LDN    /MTX/ERR
00944  M01S00674.1mt     +++|*         UJN    RET5        RETURN ERROR STATUS
00945  M01S00675.1mt     +++|
00946  M01S00676.1mt     +++|*         RET5 - RETURN.  (A) = COMPLETION STATUS.
00947  M01S00677.1mt     +++|
00948  M01S00678.1mt     +++| RET5     STD    RS
00949  M01S00679.1mt     +++|          LDN    0           DO NOT SET FET COMPLETE
00950  M01S00680.1mt     +++|          RJM    CEC         CHANGE TO MAGNET CP

Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00681.ns21000 ---|          LDN    5           REWRITE STATUS AND BID

Seq #  *Modification Id* Act 
----------------------------+
00952  M02S00002.282l826 ---|          LDN    6           REWRITE STATUS, BID, AND COUNTERS
00953  M01S00042.282l826 +++|          LDN    /MTX/UERC-/MTX/UST5+1  SET WORD COUNT FOR WRITE
00954  M01S00682.1mt     +++|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00683.282l826 ---|          RJM    UAD         GET UDT ADDRESS
00956  M01S00043.282l826 +++|          RJM    UAD         SET UDT ADDRESS
00957  M01S00684.1mt     +++|          ADN    /MTX/UST5

Seq #  *Modification Id* Act 
----------------------------+
00958  M02S00685.282l826 ---|          CWM    MTDS,T2

Seq #  *Modification Id* Act 
----------------------------+
00959  M03S00686.282l826 ---|          SBN    -/MTX/UST1+/MTX/UST5+5

Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00003.282l826 ---|          SBN    -/MTX/UST1+/MTX/UST5+6
00961  M01S00044.282l826 +++|          CWM    DNCV,T2
00962  M01S00045.282l826 +++|          SBN    -/MTX/UST1+/MTX/UERC+1
00963  M01S00687.1mt     +++|          CWM    ED,TR
00964  M01S00688.1mt     +++|          SBN    -/MTX/UXRQ+/MTX/UST1+3
00965  M01S00689.1mt     +++|          CWD    RS
00966  M01S00690.1mt     +++|*         LJM    PNR         PROCESS NEXT REQUEST
00967  M01S00691.1mt     +++|          TITLE  PROCESS NEXT REQUEST.
00968  M01S00692.1mt     +++| PNR      SPACE  4,10
00969  M01S00693.1mt     +++|**        PNR - PROCESS NEXT REQUEST.
00970  M01S00694.1mt     +++|*
00971  M01S00695.1mt     +++|*         ENTRY  (BT) = 0.

Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00057.282l826 ---|*                AT *PNR3.1* IF CTS RELEASE FUNCTION TIMEOUT.
00973  M01S00696.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00697.274l797 ---|*         CALLS  CDO, CON, *CPP*, *DPP*, FJB, LOV, REL, UAD.

Seq #  *Modification Id* Act 
----------------------------+
00975  M02S00058.282l826 ---|*         CALLS  CDO, CON, *CPP*, *DPP*, FJB, LOV, PIC, REL, UAD.
00976  M01S00046.282l826 +++|*         CALLS  CDO, CON, *CPP*, *DPP*, EXR, LOV, PIC, REL, UAD.
00977  M01S00698.1mt     +++|*
00978  M01S00699.1mt     +++|*         MACROS CALL, MONITOR.
00979  M01S00700.1mt     +++|
00980  M01S00701.1mt     +++|
00981  M01S00702.1mt     +++| PNR      RJM    CDO         CHECK DROP OUT CONDITIONS
00982  M01S00703.1mt     +++| PNR1     LDN    PPAL        CHECK PPU AVAILABILITY
00983  M01S00704.1mt     +++|          CRD    CM
00984  M01S00705.1mt     +++|          LDN    /MTX/UNITL  UPDATE UDT ADDRESS
00985  M01S00706.1mt     +++| PNR2     RAM    UADA
00986  M01S00707.1mt     +++|          LMC    *           (LWA+1 OF UDT)
00987  M01S00708.1mt     +++| PNRA     EQU    *-1
00988  M01S00709.1mt     +++|          NJN    PNR3        IF NOT END OF UDT
00989  M01S00710.1mt     +++|          LDC    -*          - LENGTH OF UDT
00990  M01S00711.1mt     +++| PNRB     EQU    *-1
00991  M01S00712.1mt     +++|          UJN    PNR2        RECYCLE THROUGH UDT,S
00992  M01S00713.1mt     +++|
00993  M01S00047.282l826 +++|*         REENTRY FROM ERROR ON CTS UNIT RELEASE.
00994  M01S00048.282l826 +++|
00995  M01S00714.1mt     +++| PNR3     RJM    REL         RELEASE LAST RESERVED UNIT

Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00715.274l797 ---| PNRC     LDD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00059.282l826 ---| PNR3.1   LDD    CM+4
00998  M01S00049.282l826 +++|          LDD    CM+4
00999  M01S00060.274l797 +++| PNRC     EQU    *-1
01000  M01S00716.1mt     +++|*         LDN    0           (FORCE DROP OUT)
01001  M01S00001.1mt4    +++|          ZJN    PNR5        IF ALL PP-S IN USE

Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00717.ns22000 ---|          ZJN    PNR5        IF ALL PPU,S IN USE
01003  M01S00718.1mt     +++|          LDM    UADA
01004  M01S00719.1mt     +++|          LMC    *           (STARTING UDT ADDRESS)
01005  M01S00720.1mt     +++| PNRD     EQU    *-1
01006  M01S00721.1mt     +++|          NJN    PNR4        IF NOT END OF A PASS
01007  M01S00722.1mt     +++| PNRE     LDN    0
01008  M01S00723.1mt     +++|          ZJN    PNR5        IF NO ACTIVITIES PERFORMED
01009  M01S00724.1mt     +++|          SOM    PNRE        RESET ACTIVITY COUNT
01010  M01S00725.1mt     +++| PNR4     LDD    DF
01011  M01S00726.1mt     +++|          ZJN    PNR6        IF NO DROP OUT
01012  M01S00004.ns22000 +++|
01013  M01S00005.ns22000 +++|*         ENTER HERE (VIA *RJM*) TO HANG PP.
01014  M01S00006.ns22000 +++|
01015  M01S00007.ns22000 +++| HNG      CON    0           ENTRY
01016  M01S00008.ns22000 +++|*         MONITOR  HNGM      HANG PP
01017  M01S00727.1mt     +++|
01018  M01S00728.1mt     +++|*         ENTER HERE TO DROP PPU.
01019  M01S00729.1mt     +++|
01020  M01S00730.1mt     +++| PNR5     CALL   DPP         DROP PPU

Seq #  *Modification Id* Act 
----------------------------+
01021  M02S00731.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01022  M02S00732.ns22000 ---|*         RETURN JUMP HERE TO HANG PPU.

Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00733.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00734.ns22000 ---| HNG      CON    0

Seq #  *Modification Id* Act 
----------------------------+
01025  M02S00735.ns22000 ---|          MONITOR  HNGM      HANG PPU

Seq #  *Modification Id* Act 
----------------------------+
01026  M02S00736.ns22000 ---|          UJN    PNR5        DROP PPU
01027  M01S00737.1mt     +++|
01028  M01S00738.1mt     +++|*         PROCESS UNIT.  (A) = 0.
01029  M01S00739.1mt     +++|*         ENTRY MADE HERE FROM PRS.
01030  M01S00740.1mt     +++|*         IF DROP OUT FORCED THE FOLLOWING CODE UP TO THE START OF
01031  M01S00741.1mt     +++|*         RESIDENT SUBROUTINES MAY BE OVERLAID.
01032  M01S00742.1mt     +++|*
01033  M01S00743.1mt     +++|*         FIRST 30D BYTES ARE USED FOR FUNCTION REJECT PARAMETERS.
01034  M01S00744.1mt     +++|
01035  M01S00745.1mt     +++| .OVLR    BSS    0           OVERLAY RESIDENT ADDRESS
01036  M01S00746.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
01037  M02S00747.282l826 ---| PNR6     RJM    UAD         SET UNIT CONNECT INFORMATION
01038  M01S00050.282l826 +++| PNR6     STD    RS          INDICATE NO FUNCTION FOR ERROR PROCESSING
01039  M01S00051.282l826 +++|          RJM    UAD         SET UNIT CONNECT INFORMATION
01040  M01S00748.1mt     +++|          ADN    /MTX/UST1
01041  M01S00749.1mt     +++|          CRD    ED

Seq #  *Modification Id* Act 
----------------------------+
01042  M02S00750.282l826 ---|          LDD    ED

Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00751.282l826 ---|          SHN    21-10

Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00752.282l826 ---|          MJN    PNR7        IF UNIT DOWN

Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00753.282l826 ---| PNRF     SHN    10-4        (SET TO REFLECT PROCESSOR)

Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00754.282l826 ---|          PJN    PNR7        IF UNIT NOT AVAILABLE ON THIS CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
01047  M03S00755.282l826 ---|          LDD    HP          CHECK CONTROLLER TYPE

Seq #  *Modification Id* Act 
----------------------------+
01048  M03S00756.282l826 ---| PNRG     LPN    40

Seq #  *Modification Id* Act 
----------------------------+
01049  M03S00757.282l826 ---|*         LPN    20          (ATS CONTROLLER)

Seq #  *Modification Id* Act 
----------------------------+
01050  M03S00758.282l826 ---|          ZJN    PNR7        IF NOT MTS CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00759.282l826 ---|          RJM    CON         CONNECT UNIT
01052  M01S00052.282l826 +++|          ADK    /MTX/UVRI-/MTX/UST1  GET ASSIGNED EJT ORDINAL
01053  M01S00053.282l826 +++|          CRD    CN
01054  M01S00054.282l826 +++|          SFA    EST,EO
01055  M01S00055.282l826 +++|          ADK    EQDE
01056  M01S00056.282l826 +++|          CRD    CM
01057  M01S00057.282l826 +++|          LDD    CM
01058  M01S00058.282l826 +++|          LPN    3
01059  M01S00059.282l826 +++|          LMN    /CPS/DWES
01060  M01S00060.282l826 +++|          ZJN    PNR9        IF UNIT DOWN
01061  M01S00061.282l826 +++|          LDD    CM+1        CHECK PRIMARY CHANNEL
01062  M01S00062.282l826 +++|          CHTE   *+1
01063  M01S00063.282l826 +++|          LMC    CH+4000
01064  M01S00064.282l826 +++|          ZJN    PNR8        IF UNIT ACCESSIBLE
01065  M01S00065.282l826 +++| PNRF     UJN    PNR7        CHECK SECONDARY CHANNEL
01066  M01S00066.282l826 +++|*         SHN    21-12       (CTS UNIT)
01067  M01S00067.282l826 +++|          PJN    PNR11       IF PRIMARY CHANNEL NOT DOWN
01068  M01S00068.282l826 +++| PNR7     LDD    CM+2        CHECK SECONDARY CHANNEL
01069  M01S00069.282l826 +++|          CHTE   *+1
01070  M01S00070.282l826 +++|          LMC    CH+4000
01071  M01S00071.282l826 +++|          NJN    PNR11       IF UNIT NOT ACCESSIBLE
01072  M01S00072.282l826 +++| PNR8     RJM    CON         CONNECT UNIT
01073  M01S00061.274l797 +++| PNRG     EQU    *-1
01074  M01S00062.274l797 +++|*         RJM    PIC         (CTS)

Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00760.282l826 ---|          ZJN    PNR7        IF NOT CONNECTED

Seq #  *Modification Id* Act 
----------------------------+
01076  M02S00761.282l826 ---|          RJM    UAD         CHECK IF REQUEST IN PROGRESS
01077  M01S00073.282l826 +++| PNR9     ZJN    PNR12       IF NOT CONNECTED
01078  M01S00074.282l826 +++|          SFA    EJT,CN
01079  M01S00075.282l826 +++|          ADK    JSNE
01080  M01S00076.282l826 +++|          CRD    CM
01081  M01S00077.282l826 +++|          LDD    ED          CLEAR JOB ROLLED OUT
01082  M01S00078.282l826 +++|          SCN    1
01083  M01S00079.282l826 +++|          STD    ED
01084  M01S00080.282l826 +++|          LDD    CM+4
01085  M01S00081.282l826 +++|          LPC    176
01086  M01S00082.282l826 +++|          LMN    /EJT/EXJS*2
01087  M01S00083.282l826 +++|          ZJN    PNR10       IF JOB EXECUTING OR UNIT NOT ASSIGNED
01088  M01S00084.282l826 +++|          AOD    ED          SET JOB ROLLED OUT
01089  M01S00085.282l826 +++| PNR10    RJM    UAD
01090  M01S00086.282l826 +++|          ADK    /MTX/UXRQ   GET REQUEST
01091  M01S00762.1mt     +++|          CRD    RS

Seq #  *Modification Id* Act 
----------------------------+
01092  M02S00763.282l826 ---|          ADN    /MTX/UJID   GET JOB IDENTIFICATION
01093  M01S00087.282l826 +++|          ADK    /MTX/UST1-/MTX/UXRQ  UPDATE UNIT STATUS AND JOB STATUS
01094  M01S00088.282l826 +++|          CWD    ED
01095  M01S00089.282l826 +++|          LDD    RS
01096  M01S00090.282l826 +++| PNR11    NJN    PNR13       IF REQUEST ALREADY IN PROGRESS OR COMPLETE
01097  M01S00091.282l826 +++|          LDD    FN
01098  M01S00092.282l826 +++| PNR12    ZJN    PNR13       IF NO REQUEST
01099  M01S00093.282l826 +++|          LPN    77
01100  M01S00094.282l826 +++|          SBN    /MTX/MDFN
01101  M01S00095.282l826 +++|          PJN    PNR13       IF NOT *1MT* REQUEST
01102  M01S00096.282l826 +++|          LDM    UADA        SET UDT ADDRESS
01103  M01S00097.282l826 +++|          STD    CM+1
01104  M01S00098.282l826 +++|          LDD    DS          SET BUSY STATUS
01105  M01S00099.282l826 +++|          STD    CM+2
01106  M01S00100.282l826 +++|          MONITOR  TDRM      SET REQUEST IN PROGRESS
01107  M01S00101.282l826 +++|          LDD    CM+4
01108  M01S00102.282l826 +++|          NJN    PNR14       IF REQUEST IN PROGRESS SET
01109  M01S00103.282l826 +++| PNR13    LJM    PNR1        PROCESS NEXT REQUEST
01110  M01S00104.282l826 +++|
01111  M01S00105.282l826 +++|*         CAUTION - THE FOLLOWING CODE DESTROYS SC, BT, AND BY.
01112  M01S00106.282l826 +++|*         SC AND BT SHOULD NOT BE REUSED UNTIL AFTER *CPP* PRESET.
01113  M01S00107.282l826 +++|
01114  M01S00108.282l826 +++| PNR14    LDD    MA          GET FUNCTION TABLE ENTRY
01115  M01S00109.282l826 +++|          CRD    SC
01116  M01S00110.282l826 +++|          ADN    1           GET *ASCM* PARAMETERS
01117  M01S00764.1mt     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
01118  M02S00765.282l826 ---|          LDD    RS

Seq #  *Modification Id* Act 
----------------------------+
01119  M02S00766.282l826 ---|          NJN    PNR7        IF REQUEST IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
01120  M02S00767.282l826 ---| .ECON    BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01121  M02S00768.282l826 ---|          RJM    FJB         FIND JOB

Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00769.282l826 ---|          LDD    FN

Seq #  *Modification Id* Act 
----------------------------+
01123  M02S00770.282l826 ---|          ZJN    PNR9        IF NO FUNCTION PENDING

Seq #  *Modification Id* Act 
----------------------------+
01124  M02S00771.282l826 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
01125  M02S00772.282l826 ---|          ADN    /MTX/TFUN-1 CHECK FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
01126  M02S00773.282l826 ---|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
01127  M02S00774.282l826 ---|          SBN    /MTX/TFUN+/MTX/MFUN-1

Seq #  *Modification Id* Act 
----------------------------+
01128  M02S00775.282l826 ---|          MJN    PNR8        IF VALID FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
01129  M02S00776.282l826 ---| PNR7     LJM    PNR1        PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00777.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00778.282l826 ---| PNR8     LDD    RA          READ FUNCTION TABLE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01132  M02S00779.282l826 ---|          SHN    6

Seq #  *Modification Id* Act 
----------------------------+
01133  M02S00780.282l826 ---|          ADD    T1

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00781.282l826 ---|          CRD    SC

Seq #  *Modification Id* Act 
----------------------------+
01135  M02S00782.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
01136  M02S00783.282l826 ---|*         CAUTION - ABOVE READ DESTROYS SC, BT, BY, CN AND CN+1.

Seq #  *Modification Id* Act 
----------------------------+
01137  M02S00784.282l826 ---|*         SC AND BT SHOULD NOT BE REUSED UNTIL AFTER *CPP* PRESET.

Seq #  *Modification Id* Act 
----------------------------+
01138  M02S00785.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
01139  M02S00786.282l826 ---|          LDD    SC          SET OVERLAY REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01140  M02S00787.282l826 ---|          SHN    21-5

Seq #  *Modification Id* Act 
----------------------------+
01141  M02S00788.282l826 ---|          PJN    PNR11       IF NOT BUSY NOT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
01142  M02S00789.282l826 ---|          LDD    DS

Seq #  *Modification Id* Act 
----------------------------+
01143  M02S00790.282l826 ---|          LPN    2

Seq #  *Modification Id* Act 
----------------------------+
01144  M02S00791.282l826 ---|          ZJN    PNR11       IF NOT BUSY

Seq #  *Modification Id* Act 
----------------------------+
01145  M02S00792.282l826 ---|          LDD    HN          COUNT BUSY CYCLES

Seq #  *Modification Id* Act 
----------------------------+
01146  M02S00793.282l826 ---|          RAD    FN

Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00794.282l826 ---|          SHN    -10

Seq #  *Modification Id* Act 
----------------------------+
01148  M02S00795.282l826 ---|          NJN    PNR10       IF TIME TO REQUEUE FOR LATER

Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00796.282l826 ---|          RJM    UAD         REWRITE UPDATED REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01150  M02S00797.282l826 ---|          CWD    RS

Seq #  *Modification Id* Act 
----------------------------+
01151  M02S00798.282l826 ---| PNR9     RJM    UAD         UPDATE UDT

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00799.282l826 ---|          ADN    /MTX/UST1

Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00800.282l826 ---|          CWD    ED

Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00801.282l826 ---|          UJN    PNR7        PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00802.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
01156  M02S00803.282l826 ---| PNR10    LDN    /MTX/REQ    REQUEUE TO TRY LATER

Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00804.282l826 ---|          LJM    RET5        SET RETURN STATUS

Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00805.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00806.282l826 ---| PNR11    LDD    FN

Seq #  *Modification Id* Act 
----------------------------+
01160  M02S00807.282l826 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
01161  M02S00808.282l826 ---|          STD    FN

Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00809.282l826 ---|          LDD    SC

Seq #  *Modification Id* Act 
----------------------------+
01163  M02S00810.282l826 ---|          LPN    20

Seq #  *Modification Id* Act 
----------------------------+
01164  M02S00811.282l826 ---|          ZJN    PNR12       IF NO CP CHANGE NEEDED

Proceed to Part 1