Deck 1MT

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1mt     +++|          IDENT  1MT,PRS
00002  M00S00002.1mt     +++|          PERIPH
00003  M00S00003.1mt     +++|          BASE   MIXED
00004  M00S00004.1mt     +++|          SST
00005  M00S00005.1mt     +++|*COMMENT  1MT - PPU MAGNETIC TAPE EXECUTIVE.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.1mt     +++|          TITLE  1MT - PPU MAGNETIC TAPE EXECUTIVE.
00009  M00S00008.1mt     +++|          SPACE  4,10
00010  M00S00009.1mt     +++|***       1MT - PPU MAGNETIC TAPE EXECUTIVE.
00011  M00S00010.1mt     +++|*         R. E. TATE.        73/01/09.
00012  M00S00011.1mt     +++|*         D. D. SADLER.      74/05/01. (MTS)
00013  M00S00012.1mt     +++|*         L. C. HAAS.        77/07/15. (BLOCK - ID)
00014  M00S00013.1mt     +++|*         R. J. PRIEVE.      77/07/15. (ATS)

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00001.274l797 +++|*         C. D. ROWE.        92/02/03. (CTS)
00016  M00S00014.1mt     +++|          SPACE  4,10
00017  M00S00015.1mt     +++|***              1MT - PROCESSES VARIOUS TAPE FUNCTIONS FOR *MAGNET*,
00018  M00S00016.1mt     +++|*         THE CPU MAGNETIC TAPE EXECUTIVE.
00019  M00S00017.1mt     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00018.282l826 ---|***       *MAGNET* INITIALIZATION CALL.

Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00001.282l826 +++|***       CALL FORMAT.
00022  M00S00019.1mt     +++|*

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

Figure IR

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00002.282l826 +++|*         NORMAL CALL -
00025  M00S00021.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00022.282l826 ---|*         RSPW   *MAGNET* RESPONSE WORD.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00023.1mt     +++|*         IFL    INITIALIZATION FLAGS.
00044  M00S00024.1mt     +++|*                1 = *MAGNET* INITIALIZATION.
00045  M00S00025.1mt     +++|*                3 = LEVEL 3 RECOVERY.

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00026.282l826 ---|          SPACE  4,10
00047  M01S00027.282l826 ---|***       CALL.
00048  M01S00028.282l826 ---|*
00049  M01S00029.282l826 ---|*T,   IR  18/ *1MT*,6/0,12/ FLAGS,3/E4,3/E3,3/E2,3/E1,12/0

Figure IR

00050  M01S00030.282l826 ---|*
00051  M01S00031.282l826 ---|*         FLAGS.
00052  M01S00032.282l826 ---|*         13-11  INDEX OF THIS 1MT (1, 3, 5 OR 7).
00053  M01S00033.282l826 ---|*                /COMSMTX/UITW-1 + INDEX = IMAGE OF INPUT REGISTER.
00054  M01S00034.282l826 ---|*         10     CHANNEL DOWN INDICATOR.
00055  M01S00035.282l826 ---|*         7,6    CONTROLLER TYPE.

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

Seq #  *Modification Id* Act 
----------------------------+
00057  M03S00037.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.
00061  M02S00002.282l826 ---|*                1 = ATS/CMTS/FSC CONTROLLER.

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00040.282l826 ---|*         5      DEDICATED CHANNEL FLAG.
00066  M01S00041.282l826 ---|*         4-0    CHANNEL NUMBER.
00067  M01S00042.282l826 ---|*
00068  M01S00043.282l826 ---|*         E4-E1  EQUIPMENT NUMBERS OF CONTROLLERS ON CHANNEL.

Seq #  *Modification Id* Act 
----------------------------+
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.

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00003.274l797 +++|*                PARENTHESES.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00044.1mt     +++|          SPACE  4,10
00209  M00S00045.1mt     +++|***       DEFINITIONS AND ABBREVIATIONS.
00210  M00S00046.1mt     +++|*
00211  M00S00047.1mt     +++|*         THE FOLLOWING ARE TERMS THAT WILL BE USED THROUGHOUT
00212  M00S00048.1mt     +++|*         THIS ROUTINE.
00213  M00S00049.1mt     +++|*
00214  M00S00050.1mt     +++|*         BID    BLOCK ID.
00215  M00S00051.1mt     +++|*
00216  M00S00052.1mt     +++|*         BOT    BEGINNING OF TAPE.
00217  M00S00053.1mt     +++|*
00218  M00S00054.1mt     +++|*         CHUNK  THIS DEFINES THE PORTION OF A BLOCK HANDLED BY EACH
00219  M00S00055.1mt     +++|*                PPU DURING LONG BLOCK OPERATIONS.
00220  M00S00056.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00004.274l797 +++|*         CTS    CARTRIDGE TAPE SUBSYSTEM.
00222  M01S00005.274l797 +++|*
00223  M00S00057.1mt     +++|*         EOT    END OF TAPE.
00224  M00S00058.1mt     +++|*
00225  M00S00059.1mt     +++|*         LGB    LAST GOOD BLOCK.
00226  M00S00060.1mt     +++|*
00227  M00S00061.1mt     +++|*         PCL    PROGRAMMABLE CLIPPING LEVEL.
00228  M00S00062.1mt     +++|*
00229  M00S00063.1mt     +++|*         TM     TAPE MARK.
00230  M00S00064.1mt     +++|*
00231  M00S00065.1mt     +++|*         SNB    SYSTEM NOISE BYTE.
00232  M00S00066.1mt     +++|*
00233  M00S00067.1mt     +++|*         UBC    UNUSED BIT COUNT.  AS USED TO DEFINE THE EXACT NUMBER
00234  M00S00068.1mt     +++|*                OF BYTES AND FRAMES TO BE WRITTEN ON OR READ FROM
00235  M00S00069.1mt     +++|*                TAPE.
00236  M00S00070.1mt     +++|*
00237  M00S00071.1mt     +++|*         UDT    UNIT DESCRIPTOR TABLE.  THE AREA OF *MAGNET,S*
00238  M00S00072.1mt     +++|*                FIELD LENGTH WHICH CONTAINS THE INFORMATION DESCRIBING
00239  M00S00073.1mt     +++|*                EACH TAPE UNIT AND THE CHARACTERISTICS OF THE TAPE
00240  M00S00074.1mt     +++|*                BEING PROCESSED.
00241  M00S00075.1mt     +++|*
00242  M00S00076.1mt     +++|*                EXPLICIT PROCESSOR.  DEFINES A CASE WHERE CERTAIN
00243  M00S00077.1mt     +++|*                UNITS CAN ONLY BE SERVICED BY CERTAIN COPIES
00244  M00S00078.1mt     +++|*                0F *1MT* DUE TO CONFIGURATION RESTRICTIONS.
00245  M00S00079.1mt     +++|          SPACE  4,10
00246  M00S00080.1mt     +++|***       PROGRAMMING CONSIDERATIONS.
00247  M00S00081.1mt     +++|*
00248  M00S00082.1mt     +++|*         IN ORDER TO CONSERVE SPACE, THIS PROGRAM OVERLAYS ITSELF
00249  M00S00083.1mt     +++|*         EXTENSIVELY.  IT IS DESIGNED TO MAKE MAXIMUM USE OF AREAS
00250  M00S00084.1mt     +++|*         THAT ARE NORMALLY SACRED SUCH AS THE 5 BYTE HEADER
00251  M00S00085.1mt     +++|*         ON PPU ROUTINES, FOR EXAMPLE.  PLEASE TAKE DUE CARE
00252  M00S00086.1mt     +++|*         WHEN ATTEMPTING MODIFICATIONS.
00253  M00S00087.1mt     +++|*
00254  M00S00088.1mt     +++|*         READ/WRITE OVERLAY GROUPS MUST BE IN THE FOLLOWING ORDER -
00255  M00S00089.1mt     +++|*         MAIN PROCCESOR.
00256  M00S00090.1mt     +++|*         LONG BLOCK PROCESSOR.
00257  M00S00091.1mt     +++|*         LABEL PROCESSOR.
00258  M00S00092.1mt     +++|*         ERROR PROCESSOR MUST BE LAST.
00259  M00S00093.1mt     +++|*
00260  M00S00094.1mt     +++|*         REMEMBER WHEN READING/WRITING DIRECTLY FROM/TO THE UDT TO BE
00261  M00S00095.1mt     +++|*         SURE THAT *1MT* IS AT *MAGNET,S* CONTROL POINT.
00262  M00S00096.1mt     +++|*
00263  M00S00097.1mt     +++|*         NOTE THE OVERLAY NAMES OF THE FOLLOWING OVERLAYS ARE HARD
00264  M00S00098.1mt     +++|*         CODED INTO EXECUTE MACROS. *LOV* CANNOT BE USED TO LOAD
00265  M00S00099.1mt     +++|*         THESE OVERLAYS BECAUSE THE CHANNEL MAY NOT BE RESERVED
00266  M00S00100.1mt     +++|*         OR CHANNEL PROBLEMS OCCURRED WHICH MUST BE DIAGNOSED
00267  M00S00101.1mt     +++|*         BEFORE ATTEMPTING MORE FUNCTIONS.
00268  M00S00102.1mt     +++|*         3MA - INITIALIZE TAPE EXECUTIVE.

Seq #  *Modification Id* Act 
----------------------------+
00269  M01S00103.274l797 ---|*         3MB - FUNCTION REJECT PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00006.274l797 +++|*         3MB - FUNCTION REJECT PROCESSOR (ALL EXCEPT CTS).
00271  M00S00104.1mt     +++|*         3MD - ATS/MTS SPECIAL MESSAGE PROCESSOR.
00272  M00S00105.1mt     +++|*
00273  M00S00106.1mt     +++|*         USE THE CROSS REFERENCE TABLES WHEN TAGS ARE SHUFFLED.
00274  M00S00107.1mt     +++|*         IN PARTICULAR THE TAGS IN READ/WRITE ARE REFERENCED BY LONG
00275  M00S00108.1mt     +++|*         BLOCK OVERLAYS AT SEVERAL PLACES.
00276  M00S00109.1mt     +++|          SPACE  4,10
00277  M00S00110.1mt     +++|***       RESIDENCY RECOMMENDATIONS.
00278  M00S00111.1mt     +++|*
00279  M00S00112.1mt     +++|*         THE FOLLOWING IS A SUGGESTED ORDER OF PRIORITY FOR MAKING
00280  M00S00113.1mt     +++|*         ROUTINES CM OR ALTERNATE LIBRARY RESIDENCE.
00281  M00S00114.1mt     +++|*
00282  M00S00115.1mt     +++|*         1)     CONTROL POINT/CODED PRESET.
00283  M00S00116.1mt     +++|*         2)     READ FUNCTION PROCESSOR.
00284  M00S00117.1mt     +++|*         3)     WRITE FUNCTION PROCESSOR.
00285  M00S00118.1mt     +++|*         4)     DROP PPU PROCESSOR.
00286  M00S00119.1mt     +++|*         5)     1MT ITSELF.
00287  M00S00120.1mt     +++|*         6)     *3MB* IF RECOVERY FROM FUNCTION REJECTS DESIRED.
00288  M00S00121.1mt     +++|          SPACE  4,10
00289  M00S00122.1mt     +++|***       DOCUMENTATION CONVENTIONS.
00290  M00S00123.1mt     +++|*
00291  M00S00124.1mt     +++|*         TAG CONVENTIONS.
00292  M00S00125.1mt     +++|*         ASSUME A ROUTINE NAMED *ABC*.
00293  M00S00126.1mt     +++|*         *ABCA* - *ABCZ* WOULD BE CONSTANTS AND INSTRUCTIONS MODIFIED
00294  M00S00127.1mt     +++|*         *.EABC* WOULD BE FOR LOCATIONS REFERENCED BY THE ERROR
00295  M00S00128.1mt     +++|*                PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00129.1mt     +++|          SPACE  4,10
00301  M00S00130.1mt     +++|**        MISCELLANEOUS SYMBOL DEFINITIONS.
00302  M00S00131.1mt     +++|
00303  M00S00132.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
00304  M01S00001.261l700 +++|*CALL     COMPMAC

Seq #  *Modification Id* Act 
----------------------------+
00305  M01S00001.ns21000 +++|*CALL     COMSDFS
00306  M00S00133.1mt     +++|*CALL     COMSMSC
00307  M00S00134.1mt     +++|          SPACE  4,10
00308  M00S00135.1mt     +++|**        MICRO DEFINITIONS.
00309  M00S00136.1mt     +++|
00310  M00S00137.1mt     +++|
00311  M00S00138.1mt     +++| VERNUM   MICRO  6,3,+"VER170"+
00312  M00S00139.1mt     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
00328  M01S00001.ns2794  +++| F0220    EQU    0220        CONNECT AND SELECT DATA COMPRESSION

Seq #  *Modification Id* Act 
----------------------------+
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
00343  M02S00036.ns2794  ---| CE32     EQU    32B         DRIVE BUSY
00344  M02S00037.ns2794  ---| CE33     EQU    33B         CONTROL UNIT BUSY

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00001.ns2794  ---| CE51     EQU    51B         NO TAPE UNIT CONNECTED

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00140.1mt     +++|**        ASSEMBLY CONSTANTS.
00358  M00S00141.1mt     +++|
00359  M00S00142.1mt     +++|
00360  M00S00143.1mt     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00361  M00S00144.1mt     +++| BUFC     EQU    2765        BUFFER CONTROL WORD
00362  M00S00145.1mt     +++| BUF      EQU    BUFC+5      FWA DATA BUFFER
00363  M00S00146.1mt     +++| BUFL     EQU    BUF+5000    CONTROL WORD FOR LEVEL NUMBER
00364  M00S00147.1mt     +++| LBBY     EQU    3600        LONG BLOCK BYTES PER INPUT
00365  M00S00148.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  M00S00149.1mt     +++| CH       EQU    TC          TAPE CHANNEL
00369  M00S00150.1mt     +++| ERLA     EQU    7775-2*500  ERROR PROCESSOR LOAD ADDRESS
00370  M00S00151.1mt     +++| ERLB     EQU    7775-1*500  SPECIAL ERROR PROCESSOR LOAD ADDRESS
00371  M00S00152.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)

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00153.1mt     +++| SBLK     EQU    400         BLOCKS TO SKIP BEFORE CHECKING ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
00376  M01S00154.274l797 ---| LABL     EQU    80D/2       MAXIMUM LENGTH OF ANY LABEL BLOCK
00377  M01S00155.274l797 ---| LABW     EQU    LABL/5      CM WORDS IN LABEL

Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00047.282l826 ---| LABL     EQU    80D/2       LABEL LENGTH (DISPLAY CODE)

Seq #  *Modification Id* Act 
----------------------------+
00379  M01S00019.282l826 +++| LABL     EQU    80D/2       LABEL LENGTH IN BYTES

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
00382  M01S00020.282l826 +++| SLBY     EQU    2400        SKIP LI FORMAT BYTES PER INPUT

Seq #  *Modification Id* Act 
----------------------------+
00383  M01S00156.252l678 ---| ERAL     EQU    20D         ERASE LIMIT

Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00139.252l678 +++| ERAL     EQU    45D         ERASE LIMIT SET TO 15 FEET
00385  M00S00157.1mt     +++| BCKS     EQU    3           NUMBER OF BYTES TO CHECKSUM (POWER OF 2)
00386  M00S00158.1mt     +++| LCKS     EQU    5000        LENGTH TO USE IN CHECKSUM OF LONG BLOCKS

Seq #  *Modification Id* Act 
----------------------------+
00387  M01S00001.1mt22   +++| MXBS     EQU    76          MAXIMUM NUMBER OF CONSECUTIVE BACKSPACES
00388  M01S00002.1mt22   +++|          ERRPL  MXBS-100    MAXIMUM NUMBER OF BACKSPACES TOO LARGE
00389  M00S00159.1mt     +++|
00390  M00S00160.1mt     +++|*         NOTE   BUFB IS BUFFER FOR LONG BLOCK READS AND WRITES
00391  M00S00161.1mt     +++|*                AND ALSO THE ORIGIN ADDRESS FOR READ AND WRITE
00392  M00S00162.1mt     +++|*                ERROR PROCESSING. INCREASING IT,S VALUE WILL
00393  M00S00163.1mt     +++|*                INCREASE THE ALLOWABLE SIZE OF THE READ AND WRITE
00394  M00S00164.1mt     +++|*                LONG BLOCK OVERLAYS AND DECREASE THE MAXIMUM
00395  M00S00165.1mt     +++|*                LENGTH OF THE ERROR PROCESSORS.
00396  M00S00166.1mt     +++|          SPACE  4,10
00397  M00S00167.1mt     +++|**        COMMON DECKS.
00398  M00S00168.1mt     +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00050.282l826 ---|          QUAL   ATF
00402  M02S00051.282l826 ---|*CALL     COMSATF
00403  M02S00052.282l826 ---|          QUAL   *
00404  M00S00171.1mt     ---|          QUAL   COMSCIO
00405  M00S00172.1mt     ---|*CALL     COMSCIO
00406  M00S00173.1mt     ---|          QUAL   *
00407  M00S00174.1mt     ---|          QUAL   CPS
00408  M00S00175.1mt     ---|*CALL     COMSCPS
00409  M00S00176.1mt     ---|          QUAL   *
00410  M00S00177.1mt     ---|          QUAL   EJT
00411  M00S00178.1mt     ---|*CALL     COMSEJT
00412  M00S00179.1mt     ---|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00413  M01S00021.282l826 +++|          QUAL   EVT
00414  M01S00022.282l826 +++|*CALL     COMSEVT
00415  M01S00023.282l826 +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00416  M01S00180.282l826 ---|          QUAL   EVENT
00417  M01S00181.282l826 ---|*CALL     COMSEVT
00418  M01S00182.282l826 ---|          QUAL   *
00419  M01S00183.282l826 ---|*CALL     COMSMSP
00420  M01S00184.282l826 ---|*CALL     COMSMST
00421  M00S00185.1mt     ---|*CALL     COMSPIM
00422  M00S00186.1mt     ---|          QUAL   SRU
00423  M00S00187.1mt     ---| MT$      SET    1           ONLY ASSEMBLE MT INCREMENTS
00424  M00S00188.1mt     ---|*CALL COMSSRU
00425  M00S00189.1mt     ---|          QUAL   *
00426  M00S00190.1mt     ---|          QUAL   SSD
00427  M00S00191.1mt     ---|*CALL     COMSSSD
00428  M00S00192.1mt     ---|          QUAL   *
00429  M00S00193.1mt     ---|*CALL     COMSZOL
00430  M00S00194.1mt     ---|          LIST   X
00431  M00S00195.1mt     ---|          QUAL   MTX
00432  M00S00196.1mt     ---|*CALL     COMSMTX
00433  M00S00197.1mt     ---|          QUAL   *
00434  M00S00198.1mt     ---|          LIST   *
00435  M00S00199.1mt     ---|          SPACE  4,10
00436  M00S00200.1mt     ---|****      DIRECT LOCATION ASSIGNMENTS.
00437  M00S00201.1mt     ---|
00438  M00S00202.1mt     ---|
00439  M00S00203.1mt     ---|          LOC    16
00440  M00S00204.1mt     ---| T8       BSS    1           TEMPORARY
00441  M00S00205.1mt     ---| T9       BSS    1           TEMPORARY
00442  M01S00206.282l826 ---| ED       BSS    1           EQUIPMENT AND UNIT
00443  M01S00207.282l826 ---| HP       BSS    1           HARDWARE OPTIONS
00444  M01S00208.282l826 ---| EC       BSS    1           ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00209.1mt     +++| ES       BSS    1           EXTENDED STATUS
00449  M00S00210.1mt     +++| DS       BSS    1           DEVICE STATUS
00450  M00S00211.1mt     +++| EI       BSS    1           ERROR ITERATIONS
00451  M00S00212.1mt     +++| WP       BSS    1           BID WINDOW POINTER (MTS/ATS)
00452  M00S00213.1mt     +++| BL       BSS    2           BLOCK COUNT

Seq #  *Modification Id* Act 
----------------------------+
00453  M01S00214.282l826 ---| UP       BSS    1           USER OPTIONS

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

Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00217.282l826 ---| DC       BSS    1           DENSITY, CONVERSION

Seq #  *Modification Id* Act 
----------------------------+
00458  M01S00028.282l826 +++| EC       BSS    1           ERROR CODE
00459  M00S00218.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
00460  M01S00219.282l826 ---|*         NEXT 5 BYTES ARE NOT WRITTEN BACK TO THE UDT
00461  M01S00220.282l826 ---|*         UPON NORMAL COMPLETION.  THIS IS NOTED BECAUSE SOME
00462  M01S00221.282l826 ---|*         OVERLAYS USE THEM AS LOCAL TO OVERLAY CELLS.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00222.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  M00S00223.1mt     +++| WC       BSS    1           CM WORDS PER PRU
00471  M00S00224.1mt     +++| OV       BSS    1           CHUNK COUNT - LONG BLOCKS

Seq #  *Modification Id* Act 
----------------------------+
00472  M01S00225.ns22000 ---| FM       BSS    1           FORMAT
00473  M01S00226.ns22000 ---| EO       BSS    0           EST ORDINAL (11 - 6)
00474  M01S00227.ns22000 ---| NB       BSS    1           NOISE BYTES  (5 - 0)

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

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

Seq #  *Modification Id* Act 
----------------------------+
00479  M01S00230.251l664 ---| TB       BSS    1           BLOCK TYPE (READ)/READ AHEAD LENGTH (WRITE)

Seq #  *Modification Id* Act 
----------------------------+
00480  M01S00001.251l664 +++| TB       BSS    1           BLOCK TYPE (READ)
00481  M00S00231.1mt     +++| CF       BSS    1           CHANNEL FLAGS

Seq #  *Modification Id* Act 
----------------------------+
00482  M01S00232.282l826 ---|*                            13 - 11 = PROCESSOR NUMBER
00483  M01S00233.282l826 ---|*                            10 = RESERVED

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

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

Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00235.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  M01S00236.1mt34   ---|*                                 = 10 - MTS CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00003.1mt34   +++|*                            7, 6 = 00 - ISMT CONTROLLER
00491  M01S00004.1mt34   +++|*                                 = 01 - ATS/CMTS/FSC CONTROLLER
00492  M01S00005.1mt34   +++|*                                 = 10 - MTS CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
00493  M01S00053.274l797 +++|*                                 = 11 - CTS CONTROLLER

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

Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00238.282l826 ---|*                            5 - 3 = RESERVED
00496  M01S00239.282l826 ---|*                            2 = MONITORING IN PROGRESS
00497  M01S00240.282l826 ---|*                            1 = MONITORING TO BE INITIATED

Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00036.282l826 +++|*                            5 - 1 = RESERVED
00499  M00S00241.1mt     +++|*                            0 = 64 CHARACTER SET FLAG

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

Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00003.282l826 ---| FM       BSS    1           FORMAT (ALSO IN *NB*)

Seq #  *Modification Id* Act 
----------------------------+
00502  M01S00037.282l826 +++|          BSS    1           RESERVED
00503  M00S00243.1mt     +++| RS       BSS    1           RETURN STATUS
00504  M00S00244.1mt     +++| FN       BSS    1           FUNCTION NUMBER
00505  M00S00245.1mt     +++| MD       BSS    1           DRIVER MODE FUNCTION
00506  M00S00246.1mt     +++| PA       BSS    1           PARAMETER
00507  M00S00247.1mt     +++| PB       BSS    1           PARAMETER
00508  M00S00248.1mt     +++|          BSS    2           (RA AND FL)
00509  M00S00249.1mt     +++| SC       BSS    1           SCRATCH

Seq #  *Modification Id* Act 
----------------------------+
00510  M01S00250.274l797 ---| BT       BSS    1           BLOCKS TRANSFERED/OVERLAY ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00511  M01S00054.274l797 +++| BT       BSS    1           BLOCKS TRANSFERRED/OVERLAY ENTRY ADDRESS
00512  M00S00251.1mt     +++| BY       BSS    1           BYTES TO BE PROCESSED
00513  M00S00252.1mt     +++| CN       BSS    5           CM BUFFER
00514  M00S00253.1mt     +++| DF       BSS    1           DROP OUT FLAG (SEE CDO)
00515  M00S00254.1mt     +++|          LOC    *O
00516  M00S00255.1mt     +++|****
00517  M00S00256.1mt     +++|          TITLE  GENERAL USAGE MACROS.
00518  M00S00257.1mt     +++| BUFFER   SPACE  4,10
00519  M00S00258.1mt     +++|**        BUFFER - CHECK FOR BUFFER OVERFLOW.
00520  M00S00259.1mt     +++|*
00521  M00S00260.1mt     +++|*         BUFFER B
00522  M00S00261.1mt     +++|*         B      IF DEFINED MEANS CHECK FOR LONG BLOCK BUFFER (BUFB),
00523  M00S00262.1mt     +++|*                INSTEAD OF *BUF*.
00524  M00S00263.1mt     +++|
00525  M00S00264.1mt     +++|
00526  M00S00265.1mt     +++|          PURGMAC BUFFER
00527  M00S00266.1mt     +++| BUFFER   MACRO  B

Seq #  *Modification Id* Act 
----------------------------+
00528  M01S00038.282l826 +++|          MACREF BUFFER
00529  M00S00267.1mt     +++|          USE    BUFFER
00530  M00S00268.1mt     +++|          IFC    EQ,*B**,4
00531  M00S00269.1mt     +++|          LIST   M
00532  M00S00270.1mt     +++|          ERRNG  BUFC-*      OVERFLOWED INTO BUFFER
00533  M00S00271.1mt     +++|          LIST   *
00534  M00S00272.1mt     +++|          ELSE   3
00535  M00S00273.1mt     +++|          LIST   M
00536  M00S00274.1mt     +++|          ERRNG  BUFB-*      OVERFLOWED INTO BUFFER
00537  M00S00275.1mt     +++|          LIST   *
00538  M00S00276.1mt     +++|          ENDM
00539  M00S00277.1mt     +++| CALL     SPACE  4,10
00540  M00S00278.1mt     +++|**        CALL - LOAD AND ENTER OVERLAY AT DEFINED ENTRY POINT.
00541  M00S00279.1mt     +++|*
00542  M00S00280.1mt     +++|*
00543  M00S00281.1mt     +++|*         CALL   EPR
00544  M00S00282.1mt     +++|*         ENTRY  *EPR* = DESIRED ENTRY POINT AS DEFINED BY ENTRY MACRO.
00545  M00S00283.1mt     +++|
00546  M00S00284.1mt     +++|
00547  M00S00285.1mt     +++|          PURGMAC CALL
00548  M00S00286.1mt     +++|
00549  M00S00287.1mt     +++| CALL     MACRO  EPR
00550  M01S00039.282l826 +++|          MACREF CALL
00551  M00S00288.1mt     +++|          LDN    EPR/10000
00552  M00S00289.1mt     +++|          RJM    LOV
00553  M00S00290.1mt     +++|          ENDM
00554  M00S00291.1mt     +++| C6364    SPACE  4,10
00555  M00S00292.1mt     +++|**        C6463 - GENERATE TABLE FOR MODIFICATION OF CONVERSION TABLES
00556  M00S00293.1mt     +++|*         FROM 64 TO 63 CHARACTER SET.
00557  M00S00294.1mt     +++|*
00558  M00S00295.1mt     +++|*         C6463  MAC,CH,P
00559  M00S00296.1mt     +++|*         ENTRY  *MAC* = MACRO TO BE CALLED TO GENERATE CHARACTERS.
00560  M00S00297.1mt     +++|*                *CH* = CHARACTER.
00561  M00S00298.1mt     +++|*                *P* = IF DEFINED, 1 ADDRESS BYTE AND 2 MODIFICATION
00562  M00S00299.1mt     +++|*                BYTES WILL BE GENERATED AND PLACED IN A SEPARATE TABLE.
00563  M00S00300.1mt     +++|
00564  M00S00301.1mt     +++|
00565  M00S00302.1mt     +++| C6463    MACRO  A,B,P
00566  M00S00303.1mt     +++|          LOCAL  C,D
00567  M00S00304.1mt     +++| C        BSS    0
00568  M00S00305.1mt     +++|          LOC    *O
00569  M00S00306.1mt     +++| D        BSS    0
00570  M00S00307.1mt     +++|          LOC    C
00571  M00S00308.1mt     +++|          IFC    EQ,*P**
00572  M00S00309.1mt     +++| C63      RMT
00573  M00S00310.1mt     +++|          CON    D-1
00574  M00S00311.1mt     +++|          A      B
00575  M00S00312.1mt     +++| C63      RMT
00576  M00S00313.1mt     +++|          ELSE
00577  M00S00314.1mt     +++| C63P     RMT
00578  M00S00315.1mt     +++|          CON    D-2
00579  M00S00316.1mt     +++|          A      B
00580  M00S00317.1mt     +++| C63P     RMT
00581  M00S00318.1mt     +++|          ENDIF
00582  M00S00319.1mt     +++|          ENDM
00583  M00S00320.1mt     +++| ENTRY    SPACE  4,10
00584  M00S00321.1mt     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00585  M00S00322.1mt     +++|*
00586  M00S00323.1mt     +++|*
00587  M00S00324.1mt     +++|*         ENTRY  NAME
00588  M00S00325.1mt     +++|*         ENTRY  *NAME* = NAME OF ENTRY ADDRESS.
00589  M00S00326.1mt     +++|
00590  M00S00327.1mt     +++|
00591  M00S00328.1mt     +++|          PURGMAC ENTRY
00592  M00S00329.1mt     +++|
00593  M00S00330.1mt     +++| ENTRY    MACRO  NAME
00594  M01S00040.282l826 +++|          MACREF ENTRY
00595  M00S00331.1mt     +++|          QUAL
00596  M00S00332.1mt     +++| NAME     EQU    *+1R".MA"*10000
00597  M00S00333.1mt     +++|          QUAL   ".QNAM"
00598  M00S00334.1mt     +++|          ENDM
00599  M00S00335.1mt     +++| ERROVL   SPACE  4,10
00600  M00S00336.1mt     +++|**        ERROVL - TEST FOR OVERFLOW INTO ERROR PROCESSOR.
00601  M00S00337.1mt     +++|*
00602  M00S00338.1mt     +++|*         ERROVL A
00603  M00S00339.1mt     +++|*         A      IF DEFINED USE INSTEAD OF ORIGIN ADDRESS FOR OVERFLOW.
00604  M00S00340.1mt     +++|
00605  M00S00341.1mt     +++|          PURGMAC ERROVL
00606  M00S00342.1mt     +++|
00607  M00S00343.1mt     +++|
00608  M00S00344.1mt     +++| ERROVL   MACRO  A
00609  M01S00041.282l826 +++|          MACREF ERROVL
00610  M00S00345.1mt     +++|          IFC    NE,/A//
00611  M00S00346.1mt     +++|          LIST   M
00612  M00S00347.1mt     +++|          ERRNG  ERLA-A      OVERFLOWED INTO BUFFER
00613  M00S00348.1mt     +++|          LIST   *
00614  M00S00349.1mt     +++|          ELSE
00615  M00S00350.1mt     +++|          LIST   M
00616  M00S00351.1mt     +++|          ERRNG  ERLA-*      OVERFLOWED INTO BUFFER
00617  M00S00352.1mt     +++|          LIST   *
00618  M00S00353.1mt     +++|          ENDIF
00619  M00S00354.1mt     +++|          ENDM
00620  M00S00355.1mt     +++| JMP      SPACE  4,10
00621  M00S00356.1mt     +++|**        JMP - THREADED JUMP.
00622  M00S00357.1mt     +++|*
00623  M00S00358.1mt     +++|*
00624  M00S00359.1mt     +++|*         JMP    ADDR
00625  M00S00360.1mt     +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00626  M00S00361.1mt     +++|
00627  M00S00362.1mt     +++|
00628  M00S00363.1mt     +++| JMP      MACRO  ADDR
00629  M00S00364.1mt     +++|          IF     -DEF,.ADDR,1
00630  M00S00365.1mt     +++| .ADDR    MAX    ADDR,*-40
00631  M00S00366.1mt     +++|          IFGT   .ADDR,*-40
00632  M00S00367.1mt     +++|          UJN    .ADDR
00633  M00S00368.1mt     +++| .ADDR    SET    *-1
00634  M00S00369.1mt     +++|          ELSE   2
00635  M00S00370.1mt     +++| .ADDR    SET    *
00636  M00S00371.1mt     +++|          LJM    ADDR
00637  M00S00372.1mt     +++|          ENDM
00638  M00S00373.1mt     +++| SADT     SPACE  4,35
00639  M00S00374.1mt     +++|**        SADT - SET ADDRESS TABLE MACRO.
00640  M00S00375.1mt     +++|*         THIS MACRO WILL GENERATE THE TABLE ENTRIES NECESSARY TO
00641  M00S00376.1mt     +++|*         PROVIDE SETTING ADDRESSES IN THE FOLLOWING 24 BIT
00642  M00S00377.1mt     +++|*         INSTRUCTION.  ONE, TWO, OR THREE SETS OF TABLE ENTRIES
00643  M00S00378.1mt     +++|*         ARE GENERATED DEPENDING ON THE VALUE OF *.IM*.  THE FIRST
00644  M00S00379.1mt     +++|*         SET OF TABLE ENTRIES IS FOR THE CURRENT OVERLAY.  THE ONE OR
00645  M00S00380.1mt     +++|*         TWO ADDITIONAL ONES WILL BE GENERATED BASED ON THE FOLLOWING-
00646  M00S00381.1mt     +++|*
00647  M00S00382.1mt     +++|*         IF .IM .NE. 0, A SET OF TABLE ENTRIES IS GENERATED FOR THE
00648  M00S00383.1mt     +++|*         ERROR PROCESSORS THAT FOLLOW.
00649  M00S00384.1mt     +++|*
00650  M00S00385.1mt     +++|*         IF .IM = 2, A SET OF ADDRESSES IS GENERATED FOR THE LONG
00651  M00S00386.1mt     +++|*         BLOCK ROUTINE THAT FOLLOWS.
00652  M00S00387.1mt     +++|*
00653  M00S00388.1mt     +++|*SADT     MACRO  DC,C,BIAS,ABS,SE
00654  M00S00389.1mt     +++|*
00655  M00S00390.1mt     +++|*         DC = DIRECT CELLS WHERE 17 BIT ADDRESS VALUE IS TO BE TAKEN
00656  M00S00391.1mt     +++|*         FROM.
00657  M00S00392.1mt     +++|*         CF = IF *C* COMPLEMENT RESULT OF ABOVE.
00658  M00S00393.1mt     +++|*         BIAS = VALUE TO BE ADDED TO CONTENTS OF DIRECT CELLS.
00659  M00S00394.1mt     +++|*         (MAXIMUM VALUE IS 7)
00660  M00S00395.1mt     +++|*         ABS = IF *A* ADD RA TO ADDRESS.
00661  M00S00396.1mt     +++|*         SE = IF PRESENT, GENERATE ONLY ONE SET OF TABLE ENTRIES.
00662  M00S00397.1mt     +++|*
00663  M00S00398.1mt     +++|*         TABLE FORMAT.
00664  M00S00399.1mt     +++|*         2 WORDS PER ENTRY.
00665  M00S00400.1mt     +++|*
00666  M00S00401.1mt     +++|*T        11/ ADDRESS,1/C,6/ DC,3/ BI,1/A,2/

Figure

00667  M00S00402.1mt     +++|*         C      COMPLEMENT IF SET.
00668  M00S00403.1mt     +++|*         DC     POINTER TO DIRECT CELL CONTAINING VALUE.
00669  M00S00404.1mt     +++|*         BI     BIAS (AMOUNT TO ADD TO VALUE FROM DIRECT CELLS).
00670  M00S00405.1mt     +++|*         A      ABSOLUTE FLAG.
00671  M00S00406.1mt     +++|
00672  M00S00407.1mt     +++|
00673  M00S00408.1mt     +++| SADT     MACRO  DC,CF,BIAS,ABS,SE
00674  M00S00409.1mt     +++|          LOCAL  Z,X
00675  M00S00410.1mt     +++|          QUAL
00676  M00S00411.1mt     +++| Z        BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00412.274l797 ---|          ERRNG  3777-Z      ADDRESS TO LARGE FOR MODIFICATION TABLE

Seq #  *Modification Id* Act 
----------------------------+
00678  M01S00055.274l797 +++|          ERRNG  3777-Z      ADDRESS TOO LARGE FOR MODIFICATION TABLE
00679  M00S00413.1mt     +++|          QUAL   ".QNAM"
00680  M00S00414.1mt     +++| X        BSS    0
00681  M00S00415.1mt     +++| SADT     RMT
00682  M00S00416.1mt     +++|          VFD    11/X
00683  M00S00417.1mt     +++|          IFC    EQ,*CF*C*,2
00684  M00S00418.1mt     +++|          VFD    1/1         COMPLEMENT FLAG
00685  M00S00419.1mt     +++|          ELSE   3
00686  M00S00420.1mt     +++|          VFD    1/0
00687  M00S00421.1mt     +++|          IFC    NE,*CF**,1

Seq #  *Modification Id* Act 
----------------------------+
00688  M01S00422.v23l617 ---|          ERR    ILLEGAL COMPLEMENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
00689  M01S00004.v23l617 +++|          ERR    INCORRECT COMPLEMENT FLAG
00690  M00S00423.1mt     +++|          VFD    6/DC
00691  M00S00424.1mt     +++|          VFD    3/BIAS
00692  M00S00425.1mt     +++|          IFC    EQ,*ABS*A*,2
00693  M00S00426.1mt     +++|          VFD    1/1
00694  M00S00427.1mt     +++|          ELSE   3
00695  M00S00428.1mt     +++|          VFD    1/0
00696  M00S00429.1mt     +++|          IFC    NE,*ABS**,1

Seq #  *Modification Id* Act 
----------------------------+
00697  M01S00430.v23l617 ---|          ERR    ILLEGAL ABSOLUTE FLAG

Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00005.v23l617 +++|          ERR    INCORRECT ABSOLUTE FLAG
00699  M00S00431.1mt     +++|          VFD    2/0
00700  M00S00432.1mt     +++|          RMT
00701  M00S00433.1mt     +++| .L1      IFEQ   .IM,2
00702  M00S00434.1mt     +++| SLBP     RMT
00703  M00S00435.1mt     +++|          VFD    11/Z
00704  M00S00436.1mt     +++| .L2      IFC    EQ,*CF*C*
00705  M00S00437.1mt     +++|          VFD    1/1         COMPLEMENT FLAG
00706  M00S00438.1mt     +++| .L2      ELSE
00707  M00S00439.1mt     +++|          VFD    1/0
00708  M00S00440.1mt     +++| .L2      ENDIF
00709  M00S00441.1mt     +++|          VFD    6/DC
00710  M00S00442.1mt     +++|          VFD    3/BIAS
00711  M00S00443.1mt     +++| .L3      IFC    EQ,*ABS*A*
00712  M00S00444.1mt     +++|          VFD    1/1
00713  M00S00445.1mt     +++| .L3      ELSE
00714  M00S00446.1mt     +++|          VFD    1/0
00715  M00S00447.1mt     +++| .L3      ENDIF
00716  M00S00448.1mt     +++|          VFD    2/0
00717  M00S00449.1mt     +++|          RMT
00718  M00S00450.1mt     +++| .L1      ENDIF
00719  M00S00451.1mt     +++| .S1      IFNE   .IM,0
00720  M00S00452.1mt     +++| .S6      IFC    EQ,$SE$$
00721  M00S00453.1mt     +++|
00722  M00S00454.1mt     +++|*         MAKE ERROR OVERLAY TABLE.
00723  M00S00455.1mt     +++|
00724  M00S00456.1mt     +++|          ERRNG  BUFB-Z      ADDRESS OVERFLOWS ERROR OVERLAY
00725  M00S00457.1mt     +++| SERR     RMT
00726  M00S00458.1mt     +++|          VFD    11/Z
00727  M00S00459.1mt     +++| .S2      IFC    EQ,*CF*C*
00728  M00S00460.1mt     +++|          VFD    1/1         COMPLEMENT FLAG
00729  M00S00461.1mt     +++| .S2      ELSE
00730  M00S00462.1mt     +++|          VFD    1/0
00731  M00S00463.1mt     +++| .S2      ENDIF
00732  M00S00464.1mt     +++|          VFD    6/DC
00733  M00S00465.1mt     +++|          VFD    3/BIAS
00734  M00S00466.1mt     +++| .S3      IFC    EQ,*ABS*A*
00735  M00S00467.1mt     +++|          VFD    1/1
00736  M00S00468.1mt     +++| .S3      ELSE
00737  M00S00469.1mt     +++|          VFD    1/0
00738  M00S00470.1mt     +++| .S3      ENDIF
00739  M00S00471.1mt     +++|          VFD    2/0
00740  M00S00472.1mt     +++|          RMT
00741  M00S00473.1mt     +++|
00742  M00S00474.1mt     +++|*         MAKE MTS ERROR OVERLAY TABLE.
00743  M00S00475.1mt     +++|
00744  M00S00476.1mt     +++| SMER     RMT
00745  M00S00477.1mt     +++|          VFD    11/Z
00746  M00S00478.1mt     +++| .S4      IFC    EQ,*CF*C*
00747  M00S00479.1mt     +++|          VFD    1/1
00748  M00S00480.1mt     +++| .S4      ELSE
00749  M00S00481.1mt     +++|          VFD    1/0
00750  M00S00482.1mt     +++| .S4      ENDIF
00751  M00S00483.1mt     +++|          VFD    6/DC
00752  M00S00484.1mt     +++|          VFD    3/BIAS
00753  M00S00485.1mt     +++| .S5      IFC    EQ,*ABS*A*
00754  M00S00486.1mt     +++|          VFD    1/1
00755  M00S00487.1mt     +++| .S5      ELSE
00756  M00S00488.1mt     +++|          VFD    1/0
00757  M00S00489.1mt     +++| .S5      ENDIF
00758  M00S00490.1mt     +++|          VFD    2/0
00759  M00S00491.1mt     +++|          RMT
00760  M00S00492.1mt     +++| .S6      ENDIF
00761  M00S00493.1mt     +++| .S1      ENDIF
00762  M00S00494.1mt     +++|          ENDM
00763  M00S00495.1mt     +++|          SPACE  4,10
00764  M00S00496.1mt     +++|**        THE FOLLOWING CONSTANTS ARE USED IN CALLING THE INSTRUCTION
00765  M00S00497.1mt     +++|*         MODIFICATION MACRO TO DEFINE THE RELATIVE ADDRESS WHERE THE
00766  M00S00498.1mt     +++|*         VALUES WILL BE SET.
00767  M00S00499.1mt     +++|
00768  M00S00500.1mt     +++|          LOC    T2
00769  M00S00501.1mt     +++| .FT      BSS    2           FIRST
00770  M00S00502.1mt     +++| .LM      BSS    2           LIMIT
00771  M00S00503.1mt     +++| .FE      BSS    2           FET ADDRESS
00772  M00S00504.1mt     +++| .LF      BSS    2           LIMIT - FIRST
00773  M00S00505.1mt     +++| .BS      BSS    2           BLOCK SIZE
00774  M00S00506.1mt     +++|          LOC    *O
00775  M00S00507.1mt     +++| TSAD     SPACE  4,10
00776  M00S00508.1mt     +++|**        TSAD - DEFINE SET ADDRESS TABLE.
00777  M00S00509.1mt     +++|*         TABLE IS TERMINATED BY A 0 WORD.
00778  M00S00510.1mt     +++|*
00779  M00S00511.1mt     +++|*
00780  M00S00512.1mt     +++|*LOC      TSAD   B
00781  M00S00513.1mt     +++|*         ENTRY  *LOC* = FWA OF SET ADDRESS TABLE.
00782  M00S00514.1mt     +++|*                *B* = IF PRESENT NAME OF REMOTE CODE.
00783  M00S00515.1mt     +++|
00784  M00S00516.1mt     +++|
00785  M00S00517.1mt     +++|          MACRO  TSAD,A,B
00786  M00S00518.1mt     +++| A        BSS    0
00787  M00S00519.1mt     +++| SADT     HERE
00788  M00S00520.1mt     +++|          IFC    NE,*B**,1
00789  M00S00521.1mt     +++| B        HERE
00790  M00S00522.1mt     +++|          CON    0           TERMINATE TABLE
00791  M00S00523.1mt     +++|          ENDM
00792  M00S00524.1mt     +++|          TITLE  OVERLAY COMMUNICATION MACROS.
00793  M00S00525.1mt     +++|*         OVERLAY CONTROL.
00794  M00S00526.1mt     +++|
00795  M00S00527.1mt     +++|
00796  M00S00528.1mt     +++| .NA      SET    0
00797  M00S00529.1mt     +++| ADNAM    SPACE  4,10
00798  M00S00530.1mt     +++|**        ADNAM - ADVANCE OVERLAY NAME MACRO.
00799  M00S00531.1mt     +++|*         ADVANCES OVERLAY NAME.
00800  M00S00532.1mt     +++|
00801  M00S00533.1mt     +++|
00802  M00S00534.1mt     +++|          PURGMAC ADNAM
00803  M00S00535.1mt     +++| ADNAM    MACRO
00804  M00S00536.1mt     +++| .NA      SET    .NA+1
00805  M00S00537.1mt     +++| .MA      MICRO  .NA,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00806  M00S00538.1mt     +++| .OA      MICRO  1,3, 3M".MA"
00807  M00S00539.1mt     +++|          ENDM
00808  M00S00540.1mt     +++| OVERLAY  SPACE  4,15
00809  M00S00541.1mt     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00810  M00S00542.1mt     +++|*
00811  M00S00543.1mt     +++|*         NOTE   AT PRESET TIME IN AN OVERLAY THE UNIT MAY OR MAY
00812  M00S00544.1mt     +++|*                NOT BE CONNECTED DEPENDING ON WHETHER THE CHANNEL
00813  M00S00545.1mt     +++|*                IS DEDICATED.  THUS, NO CHANNEL OPERATIONS CAN BE DONE

Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00546.274l797 ---|*                IN PRESET.  ALSO ABNORMAL ERROR EXITS MSUT BE DONE

Seq #  *Modification Id* Act 
----------------------------+
00815  M01S00056.274l797 +++|*                IN PRESET.  ALSO ABNORMAL ERROR EXITS MUST BE DONE
00816  M00S00547.1mt     +++|*                BY FIRST COMPLETING THE OVERLAY LOAD.  FOR EXAMPLE
00817  M00S00548.1mt     +++|*                SEE THE BEGINNING OF PRESET IN THE WRITE OVERLAY.
00818  M00S00549.1mt     +++|*
00819  M00S00550.1mt     +++|*         OVERLAY (TEXT),LDA,PRS,QN
00820  M00S00551.1mt     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLE.
00821  M00S00552.1mt     +++|*                *LDA* = LOAD ADDRESS.  (IF ABSENT ASSUMES *OVL*.
00822  M00S00553.1mt     +++|*                *PRS* = IF PRESENT DO NOT GENERATE CALL TO *PRS*.
00823  M00S00554.1mt     +++|*                *QN* = QUALIFIER NAME.  (OVERLAY NAME IF ABSENT.)
00824  M00S00555.1mt     +++|
00825  M00S00556.1mt     +++|
00826  M00S00557.1mt     +++|          PURGMAC OVERLAY
00827  M00S00558.1mt     +++|
00828  M00S00559.1mt     +++| OVERLAY  MACRO  TEXT,LDA,P,QN
00829  M00S00560.1mt     +++|          LOCAL  A
00830  M00S00561.1mt     +++|          USE OVERLAY
00831  M00S00562.1mt     +++|          QUAL
00832  M00S00563.1mt     +++|          ADNAM              ADVANCE OVERLAY NAME
00833  M00S00564.1mt     +++|          IFC    NE,*QN**,3
00834  M00S00565.1mt     +++| .QNAM    MICRO  1,, QN
00835  M00S00566.1mt     +++|          QUAL   QN
00836  M00S00567.1mt     +++|          ELSE   2
00837  M00S00568.1mt     +++| .QNAM    MICRO  1,, ".OA"
00838  M00S00569.1mt     +++|          QUAL   ".OA"
00839  M00S00570.1mt     +++|          TTL    1MT/".OA" - TEXT
00840  M00S00571.1mt     +++|          TITLE
00841  M00S00572.1mt     +++| LOAD     MICRO  1,3,*OVL*
00842  M00S00573.1mt     +++|          IFC    NE,*LDA**,1
00843  M00S00574.1mt     +++| LOAD     MICRO  1,,*LDA*
00844  M00S00575.1mt     +++|          IDENT  ".OA","LOAD"  TEXT
00845  M00S00576.1mt     +++|*COMMENT  1MT - TEXT

Seq #  *Modification Id* Act 
----------------------------+
00846  M01S00577.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.

Seq #  *Modification Id* Act 
----------------------------+
00847  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00848  M00S00578.1mt     +++|          ORG    "LOAD"
00849  M00S00579.1mt     +++|          IFC    EQ,*P**
00850  M00S00580.1mt     +++| PRSX     LJM    *
00851  M00S00581.1mt     +++|          LJM    PRS
00852  M00S00582.1mt     +++|          ENDIF
00853  M00S00583.1mt     +++| .IM      SET    0           DESELECT ERROR PROCESSOR INSTRUCTION LIST
00854  M00S00584.1mt     +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00585.282l826 ---| CMOT     SPACE  4,10
00856  M01S00586.282l826 ---|**        CMOT - CREATE CHANNEL TABLE ENTRY FOR MONITORING.
00857  M01S00587.282l826 ---|*
00858  M01S00588.282l826 ---|*         CMOT   ADDR
00859  M01S00589.282l826 ---|*
00860  M01S00590.282l826 ---|*         ENTRY  ADDR = ADDRESS TO INSERT IN CHANNEL TABLE.
00861  M01S00591.282l826 ---|
00862  M01S00592.282l826 ---|
00863  M01S00593.282l826 ---|          PURGMAC CMOT
00864  M01S00594.282l826 ---| CMOT     MACRO  A
00865  M01S00595.282l826 ---|          LOCAL  B
00866  M01S00596.282l826 ---| B        EQU    A
00867  M01S00597.282l826 ---| CMOT     RMT
00868  M01S00598.282l826 ---|          CON    B
00869  M01S00599.282l826 ---| CMOT     RMT
00870  M01S00600.282l826 ---|          ENDM
00871  M01S00601.282l826 ---| TMOT     SPACE  4,10
00872  M01S00602.282l826 ---|**        TMOT - DEFINE CHANNEL TABLE FOR MONITORING.
00873  M01S00603.282l826 ---|*
00874  M01S00604.282l826 ---|*LOC      TMOT
00875  M01S00605.282l826 ---|*
00876  M01S00606.282l826 ---|*         ENTRY  LOC = FWA OF TABLE.
00877  M01S00607.282l826 ---|
00878  M01S00608.282l826 ---|
00879  M01S00609.282l826 ---|          PURGMAC TMOT
00880  M01S00610.282l826 ---|          MACRO  TMOT,A
00881  M01S00611.282l826 ---| A        BSS    0
00882  M01S00612.282l826 ---| CMOT     HERE
00883  M01S00613.282l826 ---|          CON    0           TERMINATE TABLE
00884  M01S00614.282l826 ---|          ENDM
00885  M01S00615.282l826 ---| CMMT     SPACE  4,10
00886  M01S00616.282l826 ---|**        CMMT - CREATE CHANNEL TABLE ENTRY FOR MONITORING
00887  M01S00617.282l826 ---|*         IN MAIN CODE.
00888  M01S00618.282l826 ---|*
00889  M01S00619.282l826 ---|*         CMMT   ADDR
00890  M01S00620.282l826 ---|*
00891  M01S00621.282l826 ---|*         ENTRY  ADDR = ADDRESS TO INSERT IN CHANNEL TABLE.
00892  M01S00622.282l826 ---|
00893  M01S00623.282l826 ---|
00894  M01S00624.282l826 ---|          PURGMAC CMMT
00895  M01S00625.282l826 ---| CMMT     MACRO  A
00896  M01S00626.282l826 ---|          LOCAL  B
00897  M01S00627.282l826 ---| B        EQU    A
00898  M01S00628.282l826 ---| CMMT     RMT
00899  M01S00629.282l826 ---|          CON    B
00900  M01S00630.282l826 ---| CMMT     RMT
00901  M01S00631.282l826 ---|          ENDM
00902  M00S00632.1mt     ---|          SPACE  4,10
00903  M00S00633.1mt     ---|**        MAKE SURE THAT 1MT SYMBOL *LBBY* IS 5 TIMES GREATER
00904  M00S00634.1mt     ---|*         THAN COMSMTX SYMBOL *LBWD*.
00905  M00S00635.1mt     ---|
00906  M00S00636.1mt     ---|
00907  M00S00637.1mt     ---| ASCK     EQU    /MTX/LBWD*5
00908  M00S00638.1mt     ---|          ERRNZ  ASCK-LBBY   IF LONG BLOCK DEFINITIONS OUT OF SYNC
00909  M00S00639.1mt     ---|          TITLE  MAIN PROGRAM.
00910  M00S00640.1mt     ---| 1MT      SPACE  4,10
00911  M00S00641.1mt     ---|**        1MT - MAIN PROGRAM.
00912  M00S00642.1mt     ---|
00913  M00S00643.1mt     ---|
00914  M00S00644.1mt     ---|          ORG    PPFW
00915  M00S00645.1mt     ---| PRS      LJM    /PRESET/PRS  PRESET MAIN PROGRAM
00916  M00S00646.1mt     ---| RET      EQU    PRS
00917  M00S00647.1mt     ---| RET      SPACE  4,10
00918  M00S00648.1mt     ---|**        RET - STANDARD RETURN POINTS.
00919  M00S00649.1mt     ---|*
00920  M00S00650.1mt     ---|*         CALLS  CEC, UAD.
00921  M00S00651.1mt     ---|
00922  M00S00652.1mt     ---|
00923  M00S00653.1mt     ---|*         RET - SET FET COMPLETE. (A) = FET COMPETION CODE.
00924  M00S00654.1mt     ---|
00925  M00S00655.1mt     ---|*RET      RJM    CEC         SET FET COMPLETE (SETUP IN PRESET)
00926  M00S00656.1mt     ---|
00927  M00S00657.1mt     ---|*         RET1 - NORMAL COMPLETION.
00928  M00S00658.1mt     ---|
00929  M00S00659.1mt     ---| RET1     LDN    /MTX/NCP
00930  M00S00660.1mt     ---|          UJN    RET5        RETURN NORMAL COMPLETION STATUS
00931  M00S00661.1mt     ---|
00932  M00S00662.1mt     ---|*         RET2 - REQUEUE.
00933  M00S00663.1mt     ---|
00934  M00S00664.1mt     ---| RET2     LDN    0
00935  M00S00665.1mt     ---|          UJN    RET5        REQUEUE REQUEST
00936  M00S00666.1mt     ---|
00937  M00S00667.1mt     ---|*         RET3 - RETURN WITH ERROR. (A) = ERROR CODE.
00938  M00S00668.1mt     ---|
00939  M00S00669.1mt     ---| RET3     STD    EC
00940  M00S00670.1mt     ---|
00941  M00S00671.1mt     ---|*         RET4 - RETURN WITH ERROR. (EC) = ERROR CODE.
00942  M00S00672.1mt     ---|
00943  M00S00673.1mt     ---| RET4     LDN    /MTX/ERR
00944  M00S00674.1mt     ---|*         UJN    RET5        RETURN ERROR STATUS
00945  M00S00675.1mt     ---|
00946  M00S00676.1mt     ---|*         RET5 - RETURN.  (A) = COMPLETION STATUS.
00947  M00S00677.1mt     ---|
00948  M00S00678.1mt     ---| RET5     STD    RS
00949  M00S00679.1mt     ---|          LDN    0           DO NOT SET FET COMPLETE
00950  M00S00680.1mt     ---|          RJM    CEC         CHANGE TO MAGNET CP

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

Seq #  *Modification Id* Act 
----------------------------+
00952  M02S00002.282l826 ---|          LDN    6           REWRITE STATUS, BID, AND COUNTERS

Seq #  *Modification Id* Act 
----------------------------+
00953  M01S00042.282l826 +++|          LDN    /MTX/UERC-/MTX/UST5+1  SET WORD COUNT FOR WRITE
00954  M00S00682.1mt     +++|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
00955  M01S00683.282l826 ---|          RJM    UAD         GET UDT ADDRESS

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00003.282l826 ---|          SBN    -/MTX/UST1+/MTX/UST5+6

Seq #  *Modification Id* Act 
----------------------------+
00961  M01S00044.282l826 +++|          CWM    DNCV,T2
00962  M01S00045.282l826 +++|          SBN    -/MTX/UST1+/MTX/UERC+1
00963  M00S00687.1mt     +++|          CWM    ED,TR
00964  M00S00688.1mt     +++|          SBN    -/MTX/UXRQ+/MTX/UST1+3
00965  M00S00689.1mt     +++|          CWD    RS
00966  M00S00690.1mt     +++|*         LJM    PNR         PROCESS NEXT REQUEST
00967  M00S00691.1mt     +++|          TITLE  PROCESS NEXT REQUEST.
00968  M00S00692.1mt     +++| PNR      SPACE  4,10
00969  M00S00693.1mt     +++|**        PNR - PROCESS NEXT REQUEST.
00970  M00S00694.1mt     +++|*
00971  M00S00695.1mt     +++|*         ENTRY  (BT) = 0.

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

Seq #  *Modification Id* Act 
----------------------------+
00974  M01S00697.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.

Seq #  *Modification Id* Act 
----------------------------+
00976  M01S00046.282l826 +++|*         CALLS  CDO, CON, *CPP*, *DPP*, EXR, LOV, PIC, REL, UAD.
00977  M00S00698.1mt     +++|*
00978  M00S00699.1mt     +++|*         MACROS CALL, MONITOR.
00979  M00S00700.1mt     +++|
00980  M00S00701.1mt     +++|
00981  M00S00702.1mt     +++| PNR      RJM    CDO         CHECK DROP OUT CONDITIONS
00982  M00S00703.1mt     +++| PNR1     LDN    PPAL        CHECK PPU AVAILABILITY
00983  M00S00704.1mt     +++|          CRD    CM
00984  M00S00705.1mt     +++|          LDN    /MTX/UNITL  UPDATE UDT ADDRESS
00985  M00S00706.1mt     +++| PNR2     RAM    UADA
00986  M00S00707.1mt     +++|          LMC    *           (LWA+1 OF UDT)
00987  M00S00708.1mt     +++| PNRA     EQU    *-1
00988  M00S00709.1mt     +++|          NJN    PNR3        IF NOT END OF UDT
00989  M00S00710.1mt     +++|          LDC    -*          - LENGTH OF UDT
00990  M00S00711.1mt     +++| PNRB     EQU    *-1
00991  M00S00712.1mt     +++|          UJN    PNR2        RECYCLE THROUGH UDT,S
00992  M00S00713.1mt     +++|
00993  M01S00047.282l826 +++|*         REENTRY FROM ERROR ON CTS UNIT RELEASE.
00994  M01S00048.282l826 +++|
00995  M00S00714.1mt     +++| PNR3     RJM    REL         RELEASE LAST RESERVED UNIT

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

Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00059.282l826 ---| PNR3.1   LDD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
00998  M01S00049.282l826 +++|          LDD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
00999  M01S00060.274l797 +++| PNRC     EQU    *-1
01000  M00S00716.1mt     +++|*         LDN    0           (FORCE DROP OUT)

Seq #  *Modification Id* Act 
----------------------------+
01001  M01S00001.1mt4    +++|          ZJN    PNR5        IF ALL PP-S IN USE

Seq #  *Modification Id* Act 
----------------------------+
01002  M01S00717.ns22000 ---|          ZJN    PNR5        IF ALL PPU,S IN USE
01003  M00S00718.1mt     ---|          LDM    UADA
01004  M00S00719.1mt     ---|          LMC    *           (STARTING UDT ADDRESS)
01005  M00S00720.1mt     ---| PNRD     EQU    *-1
01006  M00S00721.1mt     ---|          NJN    PNR4        IF NOT END OF A PASS
01007  M00S00722.1mt     ---| PNRE     LDN    0
01008  M00S00723.1mt     ---|          ZJN    PNR5        IF NO ACTIVITIES PERFORMED
01009  M00S00724.1mt     ---|          SOM    PNRE        RESET ACTIVITY COUNT
01010  M00S00725.1mt     ---| PNR4     LDD    DF
01011  M00S00726.1mt     ---|          ZJN    PNR6        IF NO DROP OUT

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00727.1mt     +++|
01018  M00S00728.1mt     +++|*         ENTER HERE TO DROP PPU.
01019  M00S00729.1mt     +++|
01020  M00S00730.1mt     +++| PNR5     CALL   DPP         DROP PPU

Seq #  *Modification Id* Act 
----------------------------+
01021  M01S00731.ns22000 ---|
01022  M01S00732.ns22000 ---|*         RETURN JUMP HERE TO HANG PPU.
01023  M01S00733.ns22000 ---|
01024  M01S00734.ns22000 ---| HNG      CON    0
01025  M01S00735.ns22000 ---|          MONITOR  HNGM      HANG PPU
01026  M01S00736.ns22000 ---|          UJN    PNR5        DROP PPU
01027  M00S00737.1mt     ---|
01028  M00S00738.1mt     ---|*         PROCESS UNIT.  (A) = 0.
01029  M00S00739.1mt     ---|*         ENTRY MADE HERE FROM PRS.
01030  M00S00740.1mt     ---|*         IF DROP OUT FORCED THE FOLLOWING CODE UP TO THE START OF
01031  M00S00741.1mt     ---|*         RESIDENT SUBROUTINES MAY BE OVERLAID.
01032  M00S00742.1mt     ---|*
01033  M00S00743.1mt     ---|*         FIRST 30D BYTES ARE USED FOR FUNCTION REJECT PARAMETERS.
01034  M00S00744.1mt     ---|
01035  M00S00745.1mt     ---| .OVLR    BSS    0           OVERLAY RESIDENT ADDRESS
01036  M00S00746.1mt     ---|

Seq #  *Modification Id* Act 
----------------------------+
01037  M01S00747.282l826 ---| PNR6     RJM    UAD         SET UNIT CONNECT INFORMATION

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

Seq #  *Modification Id* Act 
----------------------------+
01042  M01S00750.282l826 ---|          LDD    ED
01043  M01S00751.282l826 ---|          SHN    21-10
01044  M01S00752.282l826 ---|          MJN    PNR7        IF UNIT DOWN
01045  M01S00753.282l826 ---| PNRF     SHN    10-4        (SET TO REFLECT PROCESSOR)
01046  M01S00754.282l826 ---|          PJN    PNR7        IF UNIT NOT AVAILABLE ON THIS CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00755.282l826 ---|          LDD    HP          CHECK CONTROLLER TYPE
01048  M02S00756.282l826 ---| PNRG     LPN    40
01049  M02S00757.282l826 ---|*         LPN    20          (ATS CONTROLLER)
01050  M02S00758.282l826 ---|          ZJN    PNR7        IF NOT MTS CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
01051  M01S00759.282l826 ---|          RJM    CON         CONNECT UNIT

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
01073  M01S00061.274l797 +++| PNRG     EQU    *-1
01074  M01S00062.274l797 +++|*         RJM    PIC         (CTS)

Seq #  *Modification Id* Act 
----------------------------+
01075  M01S00760.282l826 ---|          ZJN    PNR7        IF NOT CONNECTED
01076  M01S00761.282l826 ---|          RJM    UAD         CHECK IF REQUEST IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00762.1mt     +++|          CRD    RS

Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00763.282l826 ---|          ADN    /MTX/UJID   GET JOB IDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00764.1mt     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
01118  M01S00765.282l826 ---|          LDD    RS
01119  M01S00766.282l826 ---|          NJN    PNR7        IF REQUEST IN PROGRESS
01120  M01S00767.282l826 ---| .ECON    BSS    0
01121  M01S00768.282l826 ---|          RJM    FJB         FIND JOB
01122  M01S00769.282l826 ---|          LDD    FN
01123  M01S00770.282l826 ---|          ZJN    PNR9        IF NO FUNCTION PENDING
01124  M01S00771.282l826 ---|          LPN    77
01125  M01S00772.282l826 ---|          ADN    /MTX/TFUN-1 CHECK FUNCTION
01126  M01S00773.282l826 ---|          STD    T1
01127  M01S00774.282l826 ---|          SBN    /MTX/TFUN+/MTX/MFUN-1
01128  M01S00775.282l826 ---|          MJN    PNR8        IF VALID FUNCTION
01129  M01S00776.282l826 ---| PNR7     LJM    PNR1        PROCESS NEXT REQUEST
01130  M01S00777.282l826 ---|
01131  M01S00778.282l826 ---| PNR8     LDD    RA          READ FUNCTION TABLE ENTRY
01132  M01S00779.282l826 ---|          SHN    6
01133  M01S00780.282l826 ---|          ADD    T1
01134  M01S00781.282l826 ---|          CRD    SC
01135  M01S00782.282l826 ---|
01136  M01S00783.282l826 ---|*         CAUTION - ABOVE READ DESTROYS SC, BT, BY, CN AND CN+1.
01137  M01S00784.282l826 ---|*         SC AND BT SHOULD NOT BE REUSED UNTIL AFTER *CPP* PRESET.
01138  M01S00785.282l826 ---|
01139  M01S00786.282l826 ---|          LDD    SC          SET OVERLAY REQUEST
01140  M01S00787.282l826 ---|          SHN    21-5
01141  M01S00788.282l826 ---|          PJN    PNR11       IF NOT BUSY NOT REQUIRED
01142  M01S00789.282l826 ---|          LDD    DS
01143  M01S00790.282l826 ---|          LPN    2
01144  M01S00791.282l826 ---|          ZJN    PNR11       IF NOT BUSY
01145  M01S00792.282l826 ---|          LDD    HN          COUNT BUSY CYCLES
01146  M01S00793.282l826 ---|          RAD    FN
01147  M01S00794.282l826 ---|          SHN    -10
01148  M01S00795.282l826 ---|          NJN    PNR10       IF TIME TO REQUEUE FOR LATER
01149  M01S00796.282l826 ---|          RJM    UAD         REWRITE UPDATED REQUEST
01150  M01S00797.282l826 ---|          CWD    RS
01151  M01S00798.282l826 ---| PNR9     RJM    UAD         UPDATE UDT
01152  M01S00799.282l826 ---|          ADN    /MTX/UST1
01153  M01S00800.282l826 ---|          CWD    ED
01154  M01S00801.282l826 ---|          UJN    PNR7        PROCESS NEXT REQUEST
01155  M01S00802.282l826 ---|
01156  M01S00803.282l826 ---| PNR10    LDN    /MTX/REQ    REQUEUE TO TRY LATER
01157  M01S00804.282l826 ---|          LJM    RET5        SET RETURN STATUS
01158  M01S00805.282l826 ---|
01159  M01S00806.282l826 ---| PNR11    LDD    FN
01160  M01S00807.282l826 ---|          LPN    77
01161  M01S00808.282l826 ---|          STD    FN
01162  M01S00809.282l826 ---|          LDD    SC
01163  M01S00810.282l826 ---|          LPN    20
01164  M01S00811.282l826 ---|          ZJN    PNR12       IF NO CP CHANGE NEEDED
01165  M01S00812.282l826 ---|          LDD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
01166  M01S00111.282l826 +++|          RJM    UAD         GET UDT INFORMATION
01167  M01S00112.282l826 +++|          ADK    /MTX/UXRQ
01168  M01S00113.282l826 +++|          CRD    RS
01169  M01S00114.282l826 +++|          ADK    /MTX/UCIB-/MTX/UXRQ
01170  M01S00115.282l826 +++|          CRM    CIOE,ON
01171  M01S00116.282l826 +++|          ADK    /MTX/UST2-/MTX/UCIB-1
01172  M01S00117.282l826 +++|          CRM    EI,TR
01173  M01S00118.282l826 +++|          ADK    /MTX/UST5-/MTX/UST4-1
01174  M01S00119.282l826 +++|          CRM    DNCV,ON
01175  M01S00120.282l826 +++|          ADK    /MTX/UERC-/MTX/UST5-1
01176  M01S00121.282l826 +++|          CRM    ECNT,ON
01177  M01S00122.282l826 +++| PNRH     SBN    /MTX/UERC-/MTX/UDS4+1
01178  M01S00123.282l826 +++|*         UJN    PNR15       (CTS UNIT)
01179  M01S00124.282l826 +++|          CRM    MTSF,TR
01180  M01S00125.282l826 +++| PNR15    LDD    OA          SET *ASCM* PARAMETERS FOR *EXR* CALL
01181  M01S00126.282l826 +++|          CWD    CN
01182  M01S00127.282l826 +++|          LDN    ZERL        CLEAR ADDRESS MODIFICATION LIST
01183  M01S00128.282l826 +++|          CRD    CN
01184  M01S00129.282l826 +++|          LDD    SC          LOAD OVERLAY
01185  M00S00813.1mt     +++|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
01186  M01S00814.282l826 ---|          ZJN    PNR10       IF JOB NOT FOUND
01187  M01S00815.282l826 ---| PNR12    LDN    ZERL        CLEAR ADDRESS MODIFICATION LIST
01188  M01S00816.282l826 ---|          CRD    CN
01189  M01S00817.282l826 ---|          AOD    RS          SET REQUEST IN PROGRESS
01190  M01S00818.282l826 ---|          RJM    UAD
01191  M01S00819.282l826 ---|          CWD    RS
01192  M01S00820.282l826 ---|          LDD    SC          LOAD OVERLAY
01193  M01S00821.282l826 ---|          SHN    -7
01194  M00S00822.1mt     ---|          RJM    LOV
01195  M00S00823.1mt     ---|          LDD    SC
01196  M00S00824.1mt     ---|          LPN    17
01197  M01S00825.282l826 ---|          ZJN    PNR13       IF NO SECOND OVERLAY

Seq #  *Modification Id* Act 
----------------------------+
01198  M01S00130.282l826 +++|          ZJN    PNR16       IF NO SECOND OVERLAY
01199  M00S00826.1mt     +++|          SHN    6
01200  M00S00827.1mt     +++|          ADM    NAME        LOAD OVERLAY
01201  M00S00828.1mt     +++|          SHN    -6
01202  M00S00829.1mt     +++|          RJM    LOV

Seq #  *Modification Id* Act 
----------------------------+
01203  M01S00830.282l826 ---| PNR13    CALL   CPP         LOAD SPECIAL PROCESSOR AND ENTER ROUTINE
01204  M01S00831.282l826 ---| PNRH     BSS    0           USED TO DETECT IF *CPP* CALLED FROM HERE
01205  M01S00832.282l826 ---| FJB      SPACE  4,15
01206  M01S00833.282l826 ---|**        FJB - FIND JOBS.
01207  M01S00834.282l826 ---|*
01208  M01S00835.282l826 ---|*         ENTRY  (CN - CN+4) = *UJID* WORD OF *UDT*.
01209  M01S00836.282l826 ---|*
01210  M01S00837.282l826 ---|*         EXIT   (CN+2, BITS 6-11D) = 0, IF JOB NOT FOUND
01211  M01S00838.282l826 ---|*                OR JOB IS BEING ADVANCED.
01212  M01S00839.282l826 ---|*                (CN+2, BITS 6-11D) = CP NUMBER IF JOB FOUND.
01213  M01S00840.282l826 ---|*                UDT INFORMATION IS SET IN DIRECT CELLS.
01214  M01S00841.282l826 ---|*                JOB INFORMATION UPDATED.
01215  M01S00842.282l826 ---|*
01216  M01S00843.282l826 ---|*         USES   CM - CM+5.
01217  M01S00844.282l826 ---|*
01218  M01S00845.282l826 ---|*         CALLS  UAD.
01219  M01S00846.282l826 ---|
01220  M01S00847.282l826 ---|
01221  M01S00848.282l826 ---| FJB1     RJM    UAD         READ ADDITIONAL UDT INFORMATION
01222  M01S00849.282l826 ---|          ADN    /MTX/UCIB
01223  M01S00850.282l826 ---|          CRM    CIOE,ON
01224  M01S00851.282l826 ---|          ADN    /MTX/UST2-/MTX/UCIB-1
01225  M01S00852.282l826 ---|          CRM    EI,TR
01226  M01S00853.282l826 ---|          ADN    /MTX/UJID-/MTX/UST2-3  UPDATE JOB IDENTIFICATION
01227  M01S00854.282l826 ---|          CWD    CN

Seq #  *Modification Id* Act 
----------------------------+
01228  M02S00009.282l826 ---|          LDD    NB          COPY FORMAT TO *FM*
01229  M02S00010.282l826 ---|          SHN    -6
01230  M02S00011.282l826 ---|          STD    FM

Seq #  *Modification Id* Act 
----------------------------+
01231  M01S00855.282l826 ---|
01232  M01S00856.282l826 ---| FJB      SUBR               ENTRY/EXIT
01233  M01S00857.282l826 ---|          LDD    CN+2        INDICATE JOB NOT FOUND OR ROLLING
01234  M01S00858.282l826 ---|          LPN    77
01235  M01S00859.282l826 ---|          STD    CN+2
01236  M01S00860.282l826 ---|          SHN    14
01237  M01S00861.282l826 ---|          ADD    CN+3        ABSOLUTE EJT ENTRY ADDRESS
01238  M01S00862.282l826 ---|          ZJN    FJB1        IF NO JOB
01239  M01S00863.282l826 ---|          ERRNZ  JSNE        CODE DEPENDS ON VALUE
01240  M01S00864.282l826 ---|          CRD    CM+1
01241  M01S00865.282l826 ---|          ADN    SCHE-JSNE
01242  M01S00866.282l826 ---|          CRD    CM
01243  M01S00867.282l826 ---|          LDD    CM+1+4      CHECK JOB STATUS AND JOB ADVANCE
01244  M01S00868.282l826 ---|          LPC    176
01245  M01S00869.282l826 ---|          LMN    /EJT/EXJS*2

Seq #  *Modification Id* Act 
----------------------------+
01246  M02S00870.282l826 ---|          NJN    FJB1        IF JOB ROLLING OR NOT AT CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
01247  M02S00140.282l826 ---| FJB2     NJN    FJB1        IF JOB ROLLIN OR NOT AT CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
01248  M01S00871.282l826 ---|          LDD    CM+3        GET JOB CONTROL POINT NUMBER
01249  M01S00872.282l826 ---|          SHN    7
01250  M01S00873.282l826 ---|          RAD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
01251  M02S00874.282l826 ---|          UJN    FJB1        GET UDT INFORMATION

Seq #  *Modification Id* Act 
----------------------------+
01252  M03S00012.282l826 ---|          LJM    FJB1        GET UDT INFORMATION

Seq #  *Modification Id* Act 
----------------------------+
01253  M02S00141.282l826 ---|          UJN    FJB2        GET UDT INFORMATION

Seq #  *Modification Id* Act 
----------------------------+
01254  M01S00131.282l826 +++| PNR16    CALL   CPP         LOAD SPECIAL PROCESSOR AND ENTER ROUTINE
01255  M01S00132.282l826 +++| PNRI     BSS    0           USED TO DETECT IF *CPP* CALLED FROM HERE
01256  M00S00875.1mt     +++|          TITLE  RESIDENT SUBROUTINES.
01257  M00S00876.1mt     +++| CDO      SPACE  4,10
01258  M00S00877.1mt     +++|**        CDO - CHECK DROP OUT CONDITIONS.
01259  M00S00878.1mt     +++|*         CHECKS MOVE FLAG, ROLLOUT FLAG, BLOCKS TRANSFERRED,
01260  M00S00879.1mt     +++|*         AND CHANNEL REQUESTED.
01261  M00S00880.1mt     +++|*
01262  M00S00881.1mt     +++|*         EXIT   (A) = (DF) = 0, IF NO DROP OUT NEEDED.
01263  M00S00882.1mt     +++|*
01264  M00S00883.1mt     +++|*         USES   CM - CM+4.
01265  M00S00884.1mt     +++|
01266  M00S00885.1mt     +++|
01267  M00S00886.1mt     +++| CDO1     LDN    1           SET DROP OUT
01268  M00S00887.1mt     +++| CDO2     STD    DF
01269  M00S00888.1mt     +++|
01270  M00S00889.1mt     +++| CDO      SUBR               ENTRY/EXIT
01271  M00S00890.1mt     +++|          LDN    CMCL        CHECK MOVE FLAG
01272  M00S00891.1mt     +++|          CRD    CM
01273  M00S00892.1mt     +++|          LDD    CM

Seq #  *Modification Id* Act 
----------------------------+
01274  M01S00001.271l716 +++|          SHN    7
01275  M00S00893.1mt     +++|          LMD    CP
01276  M00S00894.1mt     +++|          ZJN    CDO1        IF MOVE FLAG
01277  M00S00895.1mt     +++|          LDD    CP          CHECK ROLLOUT FLAG
01278  M00S00896.1mt     +++|          ADN    STSW
01279  M00S00897.1mt     +++|          CRD    CM
01280  M00S00898.1mt     +++|          LDD    CM+2
01281  M00S00899.1mt     +++|          LPN    1
01282  M00S00900.1mt     +++|          NJN    CDO1        IF ROLLOUT FLAG
01283  M00S00901.1mt     +++|          LDD    BT

Seq #  *Modification Id* Act 
----------------------------+
01284  M01S00902.v23l617 ---|          LPN    77
01285  M01S00903.v23l617 ---|          SBN    BLKS

Seq #  *Modification Id* Act 
----------------------------+
01286  M01S00006.v23l617 +++|          LPC    3777
01287  M01S00007.v23l617 +++|          ADC    -BLKS
01288  M01S00008.v23l617 +++| CDOC     EQU    *-1
01289  M01S00009.v23l617 +++|*         ADC    -BLKX       (FOR ISMT)

Seq #  *Modification Id* Act 
----------------------------+
01290  M01S00063.274l797 +++|*         ADC    -BLKC       (FOR CTS)
01291  M00S00904.1mt     +++|          PJN    CDO1        IF MAXIMUM BLOCKS TRANSFERRED
01292  M00S00905.1mt     +++| CDOA     LDC    **          CHECK IF CHANNEL REQUESTED
01293  M00S00906.1mt     +++|          CRD    CM
01294  M00S00907.1mt     +++| CDOB     LDD    CM+**
01295  M00S00908.1mt     +++|          SHN    -13
01296  M00S00909.1mt     +++|          UJN    CDO2        STORE DROP OUT FLAG
01297  M00S00910.1mt     +++| CEC      SPACE  4,10
01298  M00S00911.1mt     +++|**        CEC - CHANGE TO MAGNET CONTROL POINT.
01299  M00S00912.1mt     +++|*
01300  M00S00913.1mt     +++|*         ENTRY  (A) = FET COMPLETION STATUS.

Seq #  *Modification Id* Act 
----------------------------+
01301  M01S00914.273l780 ---|*                (CECC) = MAGNET,S CP ADDRESS ALWAYS.

Seq #  *Modification Id* Act 
----------------------------+
01302  M02S00001.282l826 ---|*                (MGCP) = MAGNET,S CP ADDRESS ALWAYS.
01303  M00S00915.1mt     ---|*
01304  M00S00916.1mt     ---|*         EXIT   (BT) = 0.
01305  M00S00917.1mt     ---|*                (CP) = RESTORED TO MAGNET,S CP ADDRESS.
01306  M00S00918.1mt     ---|*

Seq #  *Modification Id* Act 
----------------------------+
01307  M01S00919.282l826 ---|*         USES   CM+1 - CM+4, CN - CN+4.

Seq #  *Modification Id* Act 
----------------------------+
01308  M01S00133.282l826 +++|*         USES   BT, CM+1 - CM+4, CN - CN+4.
01309  M00S00920.1mt     +++|*
01310  M00S00921.1mt     +++|*         MACROS MONITOR.
01311  M00S00922.1mt     +++|
01312  M00S00923.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
01313  M01S00924.282l826 ---| CEC2     SBN    16          DELAY
01314  M01S00925.282l826 ---|*         SBN    7           (2X PPU SPEED)
01315  M01S00926.282l826 ---|*         SBN    3           (4X PPU SPEED)
01316  M01S00927.282l826 ---| CECD     EQU    *-1
01317  M01S00928.282l826 ---|          PJN    *-1         IF MORE DELAY
01318  M01S00929.282l826 ---| CEC3     MONITOR TIOM       CHANGE TO MAGNET CONTROL POINT
01319  M01S00930.282l826 ---|          LDD    CM+1
01320  M01S00931.282l826 ---|          NJN    CEC2        IF NOT NORMAL COMPLETION
01321  M01S00932.282l826 ---|          STD    BT          CLEAR BLOCKS TRANSFERRED
01322  M01S00933.282l826 ---|          SOM    CECB        CLEAR CP CHANGED FLAG
01323  M01S00934.282l826 ---|
01324  M00S00935.1mt     ---| CEC      SUBR               ENTRY/EXIT
01325  M00S00936.1mt     ---|          STD    CM+4        SAVE FET COMPLETION STATUS
01326  M00S00937.1mt     ---|          SHN    -14
01327  M00S00938.1mt     ---|          LMC    **          INCLUDE SRU INCREMENT VALUE
01328  M00S00939.1mt     ---| CECA     EQU    *-1
01329  M00S00940.1mt     ---|          STD    CM+3
01330  M00S00941.1mt     ---| CECB     LDN    0
01331  M01S00942.282l826 ---|          ZJN    CECX        IF AT MAGNET CP

Seq #  *Modification Id* Act 
----------------------------+
01332  M02S00943.282l826 ---|          LDC    *           RESTORE CP ADDRESS
01333  M02S00944.282l826 ---| CECC     EQU    *-1
01334  M02S00945.282l826 ---|          STD    CP

Seq #  *Modification Id* Act 
----------------------------+
01335  M01S00946.282l826 ---| CEC1     LDD    OA          WAIT OUTPUT REGISTER CLEAR

Seq #  *Modification Id* Act 
----------------------------+
01336  M01S00134.282l826 +++|          ZJN    CEC2        IF AT MAGNET CP
01337  M01S00135.282l826 +++|          SOM    CECB        CLEAR CP CHANGED FLAG
01338  M01S00136.282l826 +++| CEC1     LDD    OA          CHECK FOR PENDING *DRCM* FUNCTION
01339  M00S00947.1mt     +++|          CRD    CN
01340  M00S00948.1mt     +++|          LDD    CN
01341  M00S00949.1mt     +++|          NJN    CEC1        IF FUNCTION PENDING

Seq #  *Modification Id* Act 
----------------------------+
01342  M01S00950.282l826 ---|          LDN    ZERL        CLEAR FIRST WORD OF MESSAGE BUFFER
01343  M01S00951.282l826 ---|          CRD    CN
01344  M01S00952.282l826 ---|          LDD    MA
01345  M01S00953.282l826 ---|          CWD    CN
01346  M00S00954.1mt     ---|          LDM    UADA        SET *UDT* ADDRESS
01347  M01S00955.282l826 ---|          ADN    /MTX/UCIA
01348  M00S00956.1mt     ---|          STD    CM+1
01349  M00S00957.1mt     ---|          LDD    BT          SET BLOCKS TRANSFERRED
01350  M00S00958.1mt     ---|          STD    CM+2
01351  M01S00959.282l826 ---|          LJM    CEC3        ISSUE MONITOR FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
01352  M01S00137.282l826 +++|          MONITOR TIOM       CHANGE TO MAGNET CONTROL POINT
01353  M01S00138.282l826 +++|*         LDN    0
01354  M01S00139.282l826 +++| CEC2     STD    BT          CLEAR BLOCKS TRANSFERRED FOR *CDO* CHECK
01355  M01S00140.282l826 +++|          UJN    CECX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01356  M01S00960.274l797 ---| MCC      SPACE  4,10
01357  M01S00961.274l797 ---|**        MCC - MASTER CLEAR MTS/ATS CHANNEL.
01358  M01S00962.274l797 ---|*         DISCONNECT CHANNEL AND ISSUE STOP TAPE MOTION FUNCTION.
01359  M01S00963.274l797 ---|*
01360  M01S00964.274l797 ---|*         ENTRY  (A) = ERROR CODE.
01361  M01S00965.274l797 ---|*
01362  M01S00966.274l797 ---|*         EXIT   (A) = 0.
01363  M01S00967.274l797 ---|*                (EC) = ERROR CODE.
01364  M01S00968.274l797 ---|*
01365  M01S00969.274l797 ---|*         CALLS  FCN.
01366  M01S00970.274l797 ---|
01367  M01S00971.274l797 ---|
01368  M01S00972.274l797 ---| MCC      SUBR               ENTRY/EXIT
01369  M01S00973.274l797 ---|          STD    EC          SAVE ERROR CODE
01370  M01S00974.274l797 ---|          DCN    CH+40
01371  M01S00975.274l797 ---| MCCA     LDN    11          STOP TAPE MOTION
01372  M01S00976.274l797 ---|*         UJN    MCCX        (PROCESSING FATAL FUNCTION REJECT)
01373  M01S00977.274l797 ---|          RJM    FCN
01374  M01S00978.274l797 ---|          UJN    MCCX        RETURN
01375  M00S00979.1mt     ---| LOV      SPACE  4,10
01376  M00S00980.1mt     ---|**        LOV - LOAD OVERLAY.

Seq #  *Modification Id* Act 
----------------------------+
01377  M01S00981.282l826 ---|*         DROPS CHANNEL IF NOT A DEDICATED CHANNEL.
01378  M00S00982.1mt     ---|*
01379  M00S00983.1mt     ---|*         ENTRY  (A) = THIRD CHARACTER OF OVERLAY NAME.

Seq #  *Modification Id* Act 
----------------------------+
01380  M01S00141.282l826 +++|*                *ASCM* FUNCTION PARAMETERS IN OUTPUT REGISTER IF PLD
01381  M01S00142.282l826 +++|*                  ALREADY SEARCHED.
01382  M00S00984.1mt     +++|*
01383  M00S00985.1mt     +++|*         USES   T5, CM - CM+4.
01384  M00S00986.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01385  M01S00987.282l826 ---|*         CALLS  EXR, REL.
01386  M01S00988.282l826 ---|*
01387  M01S00989.282l826 ---|*         MACROS CHTE, DCHAN, RCHAN.

Seq #  *Modification Id* Act 
----------------------------+
01388  M01S00143.282l826 +++|*         CALLS  EXR.
01389  M00S00990.1mt     +++|
01390  M00S00991.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
01391  M01S00992.282l826 ---| LOV2     LDD    T5          LOAD OVERLAY

Seq #  *Modification Id* Act 
----------------------------+
01392  M01S00144.282l826 +++| LOV      SUBR               ENTRY/EXIT
01393  M01S00145.282l826 +++|          STD    T5          SAVE OVERLAY NAME
01394  M01S00146.282l826 +++| LOV1     LDD    OA          CHECK FOR PENDING FUNCTION
01395  M01S00147.282l826 +++|          CRD    CM
01396  M01S00148.282l826 +++|          LDD    CM
01397  M01S00149.282l826 +++|          SBN    ASCM+1
01398  M01S00150.282l826 +++|          ERRNZ  ASCM-1
01399  M01S00151.282l826 +++|          PJN    LOV1        IF FUNCTION PENDING
01400  M01S00152.282l826 +++|          LDD    T5          LOAD OVERLAY
01401  M00S00993.1mt     +++|          LMC    2L3M
01402  M00S00994.1mt     +++|          RJM    EXR

Seq #  *Modification Id* Act 
----------------------------+
01403  M01S00995.282l826 ---|          CHTE   *
01404  M01S00996.282l826 ---|          LDN    CH
01405  M01S00997.282l826 ---| LOVB     EQU    *-1
01406  M01S00998.282l826 ---|*         UJN    LOVX        (DEDICATED CHANNEL)
01407  M01S00999.282l826 ---|          RCHAN
01408  M01S01000.282l826 ---|
01409  M01S01001.282l826 ---| LOV      SUBR               ENTRY/EXIT
01410  M01S01002.282l826 ---|          STD    T5          SAVE OVERLAY NAME
01411  M01S01003.282l826 ---| LOV1     LDD    OA          WAIT OUTPUT REGISTER CLEAR
01412  M01S01004.282l826 ---|          CRD    CM
01413  M01S01005.282l826 ---|          LDD    CM          (NO DELAY LOOP USED AS MTR SHOULD GET
01414  M01S01006.282l826 ---|*                            TO REQUEST LONG BEFORE THIS TIME.)
01415  M01S01007.282l826 ---|          NJN    LOV1        IF RECALL STILL PENDING
01416  M01S01008.282l826 ---| LOVA     UJN    LOV2        DEDICATED CHANNEL
01417  M01S01009.282l826 ---|*         RJM    REL         (RELEASE UNIT - NON DEDICATED CHANNEL.)
01418  M01S01010.282l826 ---|          CON    REL
01419  M01S01011.282l826 ---|          CHTE   *
01420  M01S01012.282l826 ---|          LDN    CH          DROP CHANNEL
01421  M01S01013.282l826 ---|          DCHAN
01422  M01S01014.282l826 ---|          UJN    LOV2        COMPLETE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01423  M01S00153.282l826 +++|          UJN    LOVX        RETURN
01424  M00S01015.1mt     +++| MCH      SPACE  4,10
01425  M00S01016.1mt     +++|**        MCH - MODIFY CHANNELS.
01426  M00S01017.1mt     +++|*
01427  M00S01018.1mt     +++|*         ENTRY  (A) = ADDRESS OF CHANNEL TABLE.
01428  M00S01019.1mt     +++|*
01429  M00S01020.1mt     +++|*         USES   T1, T2.
01430  M00S01021.1mt     +++|
01431  M00S01022.1mt     +++|
01432  M00S01023.1mt     +++| MCH1     STD    T2
01433  M00S01024.1mt     +++| MCHB     LDN    0           (PRESET TO PROPER INCREMENT/DECREMENT)
01434  M00S01025.1mt     +++|          RAI    T2
01435  M00S01026.1mt     +++|          AOD    T1
01436  M00S01027.1mt     +++| MCH2     LDI    T1
01437  M00S01028.1mt     +++|          NJN    MCH1        IF MORE CHANNELS TO MODIFY
01438  M00S01029.1mt     +++|
01439  M00S01030.1mt     +++| MCH      SUBR               ENTRY/EXIT
01440  M00S01031.1mt     +++| MCHA     STD    T1
01441  M00S01032.1mt     +++|*         UJN    MCHX        (PRS - NO CHANNEL MODIFICATION REQUIRED)
01442  M00S01033.1mt     +++|          UJN    MCH2        MODIFY CHANNEL INSTRUCTIONS
01443  M00S01034.1mt     +++| REL      SPACE  4,10
01444  M00S01035.1mt     +++|**        REL - RELEASE UNIT.
01445  M00S01036.1mt     +++|*
01446  M00S01037.1mt     +++|*         ENTRY  (RELA) .NE. 0, UNIT CONNECTED.
01447  M00S01038.1mt     +++|*
01448  M00S01039.1mt     +++|*         CALLS  FCN.
01449  M00S01040.1mt     +++|
01450  M00S01041.1mt     +++|
01451  M00S01042.1mt     +++| REL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01452  M01S00010.v23l617 +++|          LDC    0
01453  M01S00011.v23l617 +++| RELA     EQU    *-1
01454  M01S00012.v23l617 +++|          ZJN    RELX        IF NO UNIT CONNECTED

Seq #  *Modification Id* Act 
----------------------------+
01455  M01S01043.ns21000 ---|          LDC    0           CONNECT FLAG
01456  M01S01044.ns21000 ---| RELA     EQU    *-1
01457  M01S01045.ns21000 ---|          ZJN    RELX        IF NO UNIT CONNECTED
01458  M01S01046.ns21000 ---|          LDN    0           CLEAR CONNECTED FLAG
01459  M01S01047.ns21000 ---|          STM    RELA

Seq #  *Modification Id* Act 
----------------------------+
01460  M01S01048.274l797 ---|          LDN    1           RELEASE UNIT

Seq #  *Modification Id* Act 
----------------------------+
01461  M01S00064.274l797 +++|          LDN    F0001       RELEASE UNIT
01462  M00S01049.1mt     +++|          RJM    FCN

Seq #  *Modification Id* Act 
----------------------------+
01463  M01S00004.ns21000 +++|          STM    RELA        CLEAR CONNECTED FLAG
01464  M00S01050.1mt     +++|          UJN    RELX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01465  M01S00065.274l797 +++| ITM      SPACE  4,10
01466  M01S00066.274l797 +++|**        ITM - INITIATE TAPE MOTION.
01467  M01S00067.274l797 +++|*
01468  M01S00068.274l797 +++|*         ENTRY  (ITMA) = TAPE MOTION FUNCTION.
01469  M01S00069.274l797 +++|*
01470  M01S00070.274l797 +++|*         EXIT   WITH CHANNEL ACTIVE.
01471  M01S00071.274l797 +++|*
01472  M01S00072.274l797 +++|*         CALLS  FCN.
01473  M01S00073.274l797 +++|
01474  M01S00074.274l797 +++|
01475  M01S00075.274l797 +++| ITM      SUBR               ENTRY/EXIT
01476  M01S00076.274l797 +++|          LDC    F0040       READ FORWARD
01477  M01S00077.274l797 +++|*         LDC    F0140       READ BACKWARD
01478  M01S00078.274l797 +++|*         LDC    F0050       WRITE EVEN FRAME COUNT (MTS)/WRITE (ATS)
01479  M01S00079.274l797 +++|*         LDC    F0250       WRITE ODD FRAME COUNT/SHORT WRITE
01480  M01S00080.274l797 +++| ITMA     EQU    *-1
01481  M01S00081.274l797 +++|          RJM    FCN
01482  M01S00082.274l797 +++|          ACN    CH
01483  M01S00083.274l797 +++|          UJN    ITMX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01484  M02S00005.v23l617 ---|
01485  M02S00006.v23l617 ---|
01486  M02S00007.v23l617 ---| RELA     CON    0           CONNECT FLAG

Proceed to Part 1